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

* FileClose bug fixed

Browse Source
This commit is contained in:
Tomas Hajny 2003-03-01 21:19:14 +00:00
parent 551f460b57
commit 4cd8dfb6ff
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
@ -954,7 +954,10 @@ end.
{ {
$Log$ $Log$
Revision 1.21 2003-01-04 16:25:08 hajny Revision 1.22 2003-03-01 21:19:14 hajny
* FileClose bug fixed
Revision 1.21 2003/01/04 16:25:08 hajny
* modified to make use of the common GetEnv code * modified to make use of the common GetEnv code
Revision 1.20 2003/01/03 20:41:04 peter Revision 1.20 2003/01/03 20:41:04 peter