paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +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);
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