paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

FileClose bug fixed (again ;))

Browse Source
This commit is contained in:
yuri 2003-03-31 02:18:39 +00:00
parent a78099a64f
commit 06a8a4e5d1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/os2/sysutils.pp
View File

@ -338,7 +338,7 @@ end;
procedure FileClose (Handle: longint); procedure FileClose (Handle: longint);
begin begin
if (Handle > 4) or (os_mode = osOS2) and (Handle > 2) then if (Handle > 4) or ((os_mode = osOS2) and (Handle > 2)) then
asm asm
mov eax, 3E00h mov eax, 3E00h
mov ebx, Handle mov ebx, Handle
@ -983,7 +983,10 @@ end.
{ {
$Log$ $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. * Directoryexists function header changed back.
Revision 1.24 2003/03/29 18:53:10 yuri Revision 1.24 2003/03/29 18:53:10 yuri