mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-06 17:10:28 +02:00
* fixed null termination of cmdline (based on patch by C Western,
mantis #22742) -- that function seems like a good candidate to put in a shared include file though git-svn-id: trunk@22270 -
This commit is contained in:
parent
8a4c12ab36
commit
c71cb9dc69
@ -204,7 +204,7 @@ begin
|
||||
buf[bufsize]:='"';
|
||||
inc(bufsize);
|
||||
end;
|
||||
if i<argc then
|
||||
if i<argc-1 then
|
||||
buf[bufsize]:=' '
|
||||
else
|
||||
buf[bufsize]:=#0;
|
||||
|
@ -265,7 +265,7 @@ begin
|
||||
buf[bufsize]:='"';
|
||||
inc(bufsize);
|
||||
end;
|
||||
if i<argc then
|
||||
if i<argc-1 then
|
||||
buf[bufsize]:=' '
|
||||
else
|
||||
buf[bufsize]:=#0;
|
||||
|
@ -197,7 +197,7 @@ begin
|
||||
buf[bufsize]:='"';
|
||||
inc(bufsize);
|
||||
end;
|
||||
if i<argc then
|
||||
if i<argc-1 then
|
||||
buf[bufsize]:=' '
|
||||
else
|
||||
buf[bufsize]:=#0;
|
||||
|
@ -235,7 +235,7 @@ begin
|
||||
buf[bufsize]:='"';
|
||||
inc(bufsize);
|
||||
end;
|
||||
if i<argc then
|
||||
if i<argc-1 then
|
||||
buf[bufsize]:=' '
|
||||
else
|
||||
buf[bufsize]:=#0;
|
||||
|
@ -232,7 +232,7 @@ begin
|
||||
buf[bufsize]:='"';
|
||||
inc(bufsize);
|
||||
end;
|
||||
if i<argc then
|
||||
if i<argc-1 then
|
||||
buf[bufsize]:=' '
|
||||
else
|
||||
buf[bufsize]:=#0;
|
||||
|
@ -209,7 +209,7 @@ begin
|
||||
buf[bufsize]:='"';
|
||||
inc(bufsize);
|
||||
end;
|
||||
if i<argc then
|
||||
if i<argc-1 then
|
||||
buf[bufsize]:=' '
|
||||
else
|
||||
buf[bufsize]:=#0;
|
||||
|
Loading…
Reference in New Issue
Block a user