libini: abort infinite loop on write error

git-svn-id: svn://kolibrios.org@1568 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/libraries/libs-dev/libini/libini_p.asm

@@ -278,8 +278,15 @@ endl
 	neg	eax
 	sub	eax, ecx
 	invoke	file.seek, ebx, eax, SEEK_CUR
+	push	ecx
 	invoke	file.write, ebx, [buf], ecx
-	jmp	@b
+	pop	ecx
+	cmp	eax, ecx
+	jz	@b
+  .fail:
+	or	eax, -1
+	pop	ecx ebx
+	ret
   .done:
 	mov	eax, [_delta]
 	neg	eax
@@ -290,10 +297,6 @@ endl
 	pop	ecx ebx
   .skip:
 	ret
-  .fail:
-	or	eax, -1
-	pop	ecx ebx
-	ret
 
   .down:
 	neg	[_delta]