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

* Refactor: add utility routine to handle command-line changes

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-05-19 11:30:11 +02:00 committed by Pierre Muller
parent 41a1230044
commit 68e09b35f5
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/utils/fpc.pp
View File

@ -258,6 +258,14 @@ program fpc;
ppccommandlinelen : longint;
i : longint;
errorvalue : Longint;
Procedure AddToCommandLine(S : String);
begin
PPCCommandLine [PPCCommandLineLen] := S;
Inc(PPCCommandLineLen);
end;
begin
setlength(ppccommandline,paramcount);
ppccommandlinelen:=0;
@ -269,8 +277,7 @@ program fpc;
if ParamCount = 0 then
begin
SetLength (PPCCommandLine, 1);
PPCCommandLine [PPCCommandLineLen] := '-?F' + ParamStr (0);
Inc (PPCCommandLineLen);
AddToCommandLine('-?F' + ParamStr (0));
end
else
for i:=1 to paramcount do
@ -305,12 +312,11 @@ program fpc;
else
begin
if pos('-h',s)=1 then
ppccommandline[ppccommandlinelen] := '-hF' + ParamStr (0)
AddToCommandLine('-hF'+ParamStr(0))
else if pos('-?',s)=1 then
ppccommandline[ppccommandlinelen] := '-?F' + ParamStr (0)
AddToCommandLine('-?F'+ParamStr(0))
else
ppccommandline[ppccommandlinelen]:=s;
inc(ppccommandlinelen);
AddToCommandLine(S);
end;
end;
end;
@ -330,3 +336,4 @@ program fpc;
error(ppcbin+' returned an error exitcode');
halt(errorvalue);
end.