paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 22:59:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle check fixed

Browse Source
This commit is contained in:
peter 2000-01-16 23:10:15 +00:00
parent c67ec0e996
commit b62af487eb
1 changed files with 5 additions and 2 deletions

7
rtl/os2/sysos2.pas
View File

@ -281,7 +281,7 @@ procedure do_close(h:longint);
begin
{ Only three standard handles under real OS/2 }
if (h > 4) or
(os_MODE = osOS2) and (FileRec (F).Handle > 2) then
(os_MODE = osOS2) and (h > 2) then
begin
asm
movb $0x3e,%ah
@ -755,7 +755,10 @@ begin
end.
{
$Log$
Revision 1.22 2000-01-16 22:25:38 peter
Revision 1.23 2000-01-16 23:10:15 peter
* handle check fixed
Revision 1.22 2000/01/16 22:25:38 peter
* check handle for file closing
Revision 1.21 2000/01/09 20:45:58 hajny