mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 13:39:39 +01: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