mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 12:59:24 +02: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