mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 02:39:40 +01:00 
			
		
		
		
	* fix memory allocation in stringtoppchar
This commit is contained in:
		
							parent
							
								
									6219d43b43
								
							
						
					
					
						commit
						07acabc5b1
					
				@ -130,7 +130,7 @@ var
 | 
			
		||||
 | 
			
		||||
begin
 | 
			
		||||
  buf:=s;
 | 
			
		||||
  nr:=0;
 | 
			
		||||
  nr:=1;
 | 
			
		||||
  InQuote:=false;
 | 
			
		||||
  while (buf^<>#0) do			// count nr of args
 | 
			
		||||
   begin
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user