paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:19:17 +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); AllPaths.Values[Typ]:=MergeSearchPaths(AllPaths.Values[Typ],Path);
end; 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 begin
Result:=TStringList.Create; Result:=TStringList.Create;
Reduced:=CompParams; Reduced:=CompParams;
@ -479,20 +487,19 @@ begin
'i': AddSearchPath('IncPath'); 'i': AddSearchPath('IncPath');
'o': AddSearchPath('ObjectPath'); 'o': AddSearchPath('ObjectPath');
'l': AddSearchPath('LibPath'); 'l': AddSearchPath('LibPath');
else continue;
end; end;
while (EndPos<=length(Reduced)) and (Reduced[EndPos] in [' ',#9]) do DeleteOption;
inc(EndPos);
System.Delete(Reduced,StartPos,EndPos-StartPos);
EndPos:=StartPos;
end; end;
'v': 'v':
// verbosity // verbosity
begin DeleteOption;
while (EndPos<=length(Reduced)) and (Reduced[EndPos] in [' ',#9]) do 'i','l':
inc(EndPos); // information
System.Delete(Reduced,StartPos,EndPos-StartPos); DeleteOption;
EndPos:=StartPos; 'B':
end; // build clean
DeleteOption;
end; end;
end; end;
end; end;