paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 17:30:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed handling of multiple compiler-options within the shebang (like #!/usr/bin/instantfpc -O1 -Ci)

Browse Source 
git-svn-id: trunk@37205 -
This commit is contained in:
joost 2017-09-14 11:46:23 +00:00
parent df00b30f92
commit fe6561bf10
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
utils/instantfpc/instantfptools.pas
View File

@ -357,17 +357,38 @@ function GetCompilerParameters(const SrcFilename, OutputDirectory,
/usr/bin/instantfpc -MObjFpc -Sh ./envvars.pas param1
The shebang compile parameters: -MObjFpc -Sh
}
procedure InterpretParam(p : String);
begin
if (Copy(p,1,1)='-') and (copy(p,1,2)<>'--') then
AddParam(P,Result);
end;
var
p: String;
i : integer;
i,j : integer;
begin
Result:=GetEnvironmentVariable('INSTANTFPCOPTIONS');
I:=1;
While (I<=ParamCount) and (Copy(ParamStr(i),1,1)='-') do
begin
p:=ParamStr(i);
if (Copy(p,1,1)='-') and (copy(p,1,2)<>'--') then
AddParam(P,Result);
if (I<>1) then
begin
InterpretParam(p);
end
else
begin
// The linux kernel passes all arguments in the shebang line as 1 argument.
// We must parse and split it ourselves.
Repeat
J:=Pos(' ',P);
if (J=0) then
J:=Length(P)+1;
InterpretParam(Copy(P,1,J-1));
Delete(P,1,J);
Until (P='');
end;
inc(I);
end;
if OutputDirectory<>'' then