From 6f73b7be3f6b6be4fa4641def011f305ca07dc8c Mon Sep 17 00:00:00 2001
From: Freeman <vapaamies@yandex.ru>
Date: Tue, 9 Jun 2020 22:02:28 +0300
Subject: [PATCH] =?UTF-8?q?CRT.Write/WriteLn=20bugfix=20=C2=A9=200CodErr?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Lib/CRT.pas | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Lib/CRT.pas b/Lib/CRT.pas
index fb55352..8f0e998 100644
--- a/Lib/CRT.pas
+++ b/Lib/CRT.pas
@@ -231,24 +231,20 @@ function Write(Format: PKolibriChar; const Args: array of const): Integer;
 const
   VarArgSize = SizeOf(TVarRec);
 asm
-        PUSH EDI
         PUSH EBX
         MOV EBX, ESP
 
         INC ECX
         JZ @@call
 @@arg:
-        MOV EDI, [EDX + ECX * VarArgSize - VarArgSize]
-        PUSH EDI
+        PUSH dword [EDX + ECX * VarArgSize - VarArgSize]
         LOOP @@arg
 @@call:
-        PUSH ESP
         PUSH EAX
         CALL PrintF
 
         MOV ESP, EBX
         POP EBX
-        POP EDI
 end;
 
 procedure WriteLn(LineBreaks: Integer);