paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 19:38:10 +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,
versionStr,
processorstr : string;
ppccommandline : ansistring;
ppccommandline : array of ansistring;
ppccommandlinelen : longint;
i : longint;
errorvalue : Longint;
begin
ppccommandline:='';
setlength(ppccommandline,paramcount);
ppccommandlinelen:=0;
cpusuffix :=''; // if not empty, signals attempt at cross
// compiler.
extrapath :='';
@ -218,9 +220,13 @@ program fpc;
else if pos('-Xp',s)=1 then
extrapath:=copy(s,4,length(s)-3)
else
ppccommandline:=ppccommandline+s+' ';
begin
ppccommandline[ppccommandlinelen]:=s;
inc(ppccommandlinelen);
end;
end;
end;
SetLength(ppccommandline,ppccommandlinelen);
if versionstr<>'' then
ppcbin:=ppcbin+'-'+versionstr;