Ver código fonte

FileClose bug fixed (again ;))

yuri 22 anos atrás
pai
commit
06a8a4e5d1
1 arquivos alterados com 5 adições e 2 exclusões
  1. 5 2
      rtl/os2/sysutils.pp

+ 5 - 2
rtl/os2/sysutils.pp

@@ -338,7 +338,7 @@ end;
 
 procedure FileClose (Handle: longint);
 begin
-    if (Handle > 4) or (os_mode = osOS2) and (Handle > 2) then
+    if (Handle > 4) or ((os_mode = osOS2) and (Handle > 2)) then
         asm
             mov eax, 3E00h
             mov ebx, Handle
@@ -983,7 +983,10 @@ end.
 
 {
   $Log$
-  Revision 1.25  2003-03-29 19:14:16  yuri
+  Revision 1.26  2003-03-31 02:18:39  yuri
+  FileClose bug fixed (again ;))
+
+  Revision 1.25  2003/03/29 19:14:16  yuri
     * Directoryexists function header changed back.
 
   Revision 1.24  2003/03/29 18:53:10  yuri