paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 02:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pass arguments to the compiler using an array of ansistring so that

Browse Source 
parameters containing spaces are preserved correctly

git-svn-id: trunk@5989 -
This commit is contained in:
Jonas Maebe 2007-01-15 12:35:48 +00:00
parent 4e19e473a4
commit d6b54890e4
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/utils/fpc.pp
View File

@ -114,11 +114,13 @@ program fpc;
ppcbin, ppcbin,
versionStr, versionStr,
processorstr : string; processorstr : string;
ppccommandline : ansistring; ppccommandline : array of ansistring;
ppccommandlinelen : longint;
i : longint; i : longint;
errorvalue : Longint; errorvalue : Longint;
begin begin
ppccommandline:=''; setlength(ppccommandline,paramcount);
ppccommandlinelen:=0;
cpusuffix :=''; // if not empty, signals attempt at cross cpusuffix :=''; // if not empty, signals attempt at cross
// compiler. // compiler.
extrapath :=''; extrapath :='';
@ -218,9 +220,13 @@ program fpc;
else if pos('-Xp',s)=1 then else if pos('-Xp',s)=1 then
extrapath:=copy(s,4,length(s)-3) extrapath:=copy(s,4,length(s)-3)
else else
ppccommandline:=ppccommandline+s+' '; begin
ppccommandline[ppccommandlinelen]:=s;
inc(ppccommandlinelen);
end; end;
end; end;
end;
SetLength(ppccommandline,ppccommandlinelen);
if versionstr<>'' then if versionstr<>'' then
ppcbin:=ppcbin+'-'+versionstr; ppcbin:=ppcbin+'-'+versionstr;