paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed problem with Close under OS/2

Browse Source
This commit is contained in:
Tomas Hajny 1999-09-07 15:54:18 +00:00
parent 79f1833059
commit 78d16850ad
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/file.inc
View File

@ -183,7 +183,7 @@ End;
Procedure BlockRead(var f:File;var Buf;Count:Longint;var Result:Longint);[IOCheck];
{
Read Count records from file f ro Buf, return nuùber of read records in
Read Count records from file f ro Buf, return number of read records in
Result
}
Begin
@ -358,7 +358,13 @@ Begin
end;
end;
FileRec(f).mode:=fmClosed;
{$IFDEF OS2}
if (FileRec (F).Handle > 4) or
(os_MODE = osOS2) and (FileRec (F).Handle > 2) then
{ Only three standard handles under real OS/2 }
{$ELSE}
if FileRec(f).Handle>4 then
{$ENDIF}
Do_Close(FileRec(f).Handle);
End;
@ -409,7 +415,10 @@ End;
{
$Log$
Revision 1.10 1998-11-29 23:10:12 peter
Revision 1.11 1999-09-07 15:54:18 hajny
* fixed problem with Close under OS/2
Revision 1.10 1998/11/29 23:10:12 peter
* also check fmInput,fmOutput
Revision 1.9 1998/11/29 22:28:11 peter