paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 23:03:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: when compiled state: skip fpc options -B -i, do not skip all -F

Browse Source 
git-svn-id: trunk@36651 -
This commit is contained in:
mattias 2012-04-07 09:11:01 +00:00
parent 236f6e9b29
commit 1b34f3ddc7
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packager/packagesystem.pas
View File

@ -459,6 +459,14 @@ var
AllPaths.Values[Typ]:=MergeSearchPaths(AllPaths.Values[Typ],Path);
end;
procedure DeleteOption;
begin
while (EndPos<=length(Reduced)) and (Reduced[EndPos] in [' ',#9]) do
inc(EndPos);
System.Delete(Reduced,StartPos,EndPos-StartPos);
EndPos:=StartPos;
end;
begin
Result:=TStringList.Create;
Reduced:=CompParams;
@ -479,20 +487,19 @@ begin
'i': AddSearchPath('IncPath');
'o': AddSearchPath('ObjectPath');
'l': AddSearchPath('LibPath');
else continue;
end;
while (EndPos<=length(Reduced)) and (Reduced[EndPos] in [' ',#9]) do
inc(EndPos);
System.Delete(Reduced,StartPos,EndPos-StartPos);
EndPos:=StartPos;
DeleteOption;
end;
'v':
// verbosity
begin
while (EndPos<=length(Reduced)) and (Reduced[EndPos] in [' ',#9]) do
inc(EndPos);
System.Delete(Reduced,StartPos,EndPos-StartPos);
EndPos:=StartPos;
end;
DeleteOption;
'i','l':
// information
DeleteOption;
'B':
// build clean
DeleteOption;
end;
end;
end;