mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 10:39:40 +01:00 
			
		
		
		
	* fixed typo
This commit is contained in:
		
							parent
							
								
									75aea84e80
								
							
						
					
					
						commit
						71fbd225e4
					
				@ -2854,7 +2854,7 @@ Begin
 | 
			
		||||
   begin
 | 
			
		||||
     if path[i]<>'/' then
 | 
			
		||||
      begin
 | 
			
		||||
        getdir(0,temp)
 | 
			
		||||
        getdir(0,temp);
 | 
			
		||||
        k:=ioresult;
 | 
			
		||||
      end
 | 
			
		||||
     else
 | 
			
		||||
@ -3546,7 +3546,10 @@ End.
 | 
			
		||||
 | 
			
		||||
{
 | 
			
		||||
  $Log$
 | 
			
		||||
  Revision 1.36  1999-05-08 19:47:24  peter
 | 
			
		||||
  Revision 1.37  1999-05-10 09:13:41  peter
 | 
			
		||||
    * fixed typo
 | 
			
		||||
 | 
			
		||||
  Revision 1.36  1999/05/08 19:47:24  peter
 | 
			
		||||
    * check ioresult after getdir calls
 | 
			
		||||
 | 
			
		||||
  Revision 1.35  1999/04/22 14:48:55  peter
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user