paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added -o/--options parameters to pass extra parameters to the compiler

Browse Source 
git-svn-id: trunk@15293 -
This commit is contained in:
joost 2010-05-18 20:07:32 +00:00
parent 6ea0e26175
commit 34f57ee010
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
packages/fpmkunit/src/fpmkunit.pp
View File

@ -1065,6 +1065,7 @@ ResourceString
SHelpGlobalUnitDir = 'Use indicated directory as global unit dir.';
SHelpCompiler = 'Use indicated binary as compiler';
SHelpConfig = 'Use indicated config file when compiling.';
SHelpOptions = 'Pass extra options to the compiler.';
SHelpVerbose = 'Be verbose when working.';
@ -2840,9 +2841,26 @@ procedure TCustomInstaller.AnalyzeOptions;
end;
end;
function SplitSpaces(var SplitString: string) : string;
var i : integer;
begin
i := pos(' ',SplitString);
if i > 0 then
begin
result := copy(SplitString,1,i-1);
delete(SplitString,1,i);
end
else
begin
result := SplitString;
SplitString:='';
end;
end;
Var
I : Integer;
DefaultsFileName : string;
OptString : string;
begin
I:=0;
FListMode:=False;
@ -2886,6 +2904,12 @@ begin
Defaults.LocalUnitDir:=OptionArg(I)
else if CheckOption(I,'UG','globalunitdir') then
Defaults.GlobalUnitDir:=OptionArg(I)
else if CheckOption(I,'o','options') then
begin
OptString := OptionArg(I);
while OptString <> '' do
Defaults.Options.Add(SplitSpaces(OptString));
end
else if CheckOption(I,'r','compiler') then
Defaults.Compiler:=OptionArg(I)
else if CheckOption(I,'f','config') then
@ -2945,6 +2969,7 @@ begin
LogArgOption('UG','globalunitdir',SHelpGlobalUnitdir);
LogArgOption('r','compiler',SHelpCompiler);
LogArgOption('f','config',SHelpConfig);
LogArgOption('o','options',SHelpOptions);
Log(vlInfo,'');
If (FMT<>'') then
halt(1)