mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 10:39:18 +02:00
* remove handle check for do_close
This commit is contained in:
parent
e16bf13bf0
commit
42a00b7705
@ -246,8 +246,6 @@ end;
|
||||
|
||||
Procedure Do_Close(Handle:Longint);
|
||||
Begin
|
||||
if Handle<=4 then
|
||||
exit;
|
||||
{$ifdef crtlib}
|
||||
_rtl_close(Handle);
|
||||
{$else}
|
||||
@ -722,7 +720,10 @@ End.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.37 2000-02-09 16:59:32 peter
|
||||
Revision 1.38 2000-03-23 15:24:18 peter
|
||||
* remove handle check for do_close
|
||||
|
||||
Revision 1.37 2000/02/09 16:59:32 peter
|
||||
* truncated log
|
||||
|
||||
Revision 1.36 2000/02/09 12:17:51 peter
|
||||
|
Loading…
Reference in New Issue
Block a user