paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 13:07:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for 19114. Deal with empty arguments more graciously by quoting them.

Browse Source 
git-svn-id: trunk@17272 -
This commit is contained in:
marco 2011-04-08 14:41:36 +00:00
parent c22c58b3a5
commit f34ffd02c9
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/linux/system.pp
View File

@ -33,7 +33,7 @@ Unit System;
{$I sysunixh.inc}
function get_cmdline:Pchar;
function get_cmdline:Pchar;
property cmdline:Pchar read get_cmdline;
{$if defined(CPUARM) or defined(CPUM68K)}
@ -179,6 +179,7 @@ begin
found:=true;
break;
end;
found:=found or (len=0); // also quote if len=0, bug 19114
if bufsize+len>=ARG_MAX-2 then
AddBuf;
if found then
@ -186,8 +187,11 @@ begin
buf[bufsize]:='"';
inc(bufsize);
end;
move(argv[i]^,buf[bufsize],len);
inc(bufsize,len);
if len>0 then
begin
move(argv[i]^,buf[bufsize],len);
inc(bufsize,len);
end;
if found then
begin
buf[bufsize]:='"';