From b62af487eb6e9db374b038c66f15aa6c11987e5d Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 16 Jan 2000 23:10:15 +0000
Subject: [PATCH] * handle check fixed
---
rtl/os2/sysos2.pas | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/rtl/os2/sysos2.pas b/rtl/os2/sysos2.pas
index 99b2ac6f33..a0f87b2039 100644
--- a/rtl/os2/sysos2.pas
+++ b/rtl/os2/sysos2.pas
@@ -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