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