mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 15:09:19 +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);
|
Procedure Do_Close(Handle:Longint);
|
||||||
Begin
|
Begin
|
||||||
if Handle<=4 then
|
|
||||||
exit;
|
|
||||||
{$ifdef crtlib}
|
{$ifdef crtlib}
|
||||||
_rtl_close(Handle);
|
_rtl_close(Handle);
|
||||||
{$else}
|
{$else}
|
||||||
@ -722,7 +720,10 @@ End.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$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
|
* truncated log
|
||||||
|
|
||||||
Revision 1.36 2000/02/09 12:17:51 peter
|
Revision 1.36 2000/02/09 12:17:51 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user