mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 06:31:34 +01:00 
			
		
		
		
	* reference to EnvC and EnvP fixed
git-svn-id: trunk@218 -
This commit is contained in:
		
							parent
							
								
									1f84c12ae4
								
							
						
					
					
						commit
						b0300f64d2
					
				| @ -15,12 +15,6 @@ | |||||||
| 
 | 
 | ||||||
| { taken from dos unit } | { taken from dos unit } | ||||||
| 
 | 
 | ||||||
| type |  | ||||||
|     PPChar = ^PChar; |  | ||||||
| 
 |  | ||||||
| var EnvC: longint; external name '_envc'; |  | ||||||
|     EnvP: PPChar; external name '_environ'; |  | ||||||
| 
 |  | ||||||
| function EnvStr (Index: longint): string; | function EnvStr (Index: longint): string; | ||||||
| 
 | 
 | ||||||
| var HP: PChar; | var HP: PChar; | ||||||
| @ -56,10 +50,3 @@ begin | |||||||
|     List.Add(S); |     List.Add(S); | ||||||
|     end; |     end; | ||||||
| end; | end; | ||||||
| 
 |  | ||||||
| { |  | ||||||
|   $Log: custapp.inc,v $ |  | ||||||
|   Revision 1.3  2005/02/14 17:13:16  peter |  | ||||||
|     * truncate log |  | ||||||
| 
 |  | ||||||
| } |  | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 Tomas Hajny
						Tomas Hajny