paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 03:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: checking compiled state: ignore -v flags

Browse Source 
git-svn-id: trunk@36650 -
This commit is contained in:
mattias 2012-04-07 03:29:22 +00:00
parent 1d4a65f793
commit 236f6e9b29
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/packagesystem.pas
View File

@ -468,6 +468,7 @@ begin
if (Reduced[StartPos]='-') and (StartPos<length(Reduced)) then begin
case Reduced[StartPos+1] of
'F':
// search paths
if StartPos<length(Reduced)-1 then begin
Path:=copy(Reduced,StartPos+3,EndPos-StartPos-3);
if (Path<>'') and (Path[1] in ['''','"']) then
@ -484,6 +485,14 @@ begin
System.Delete(Reduced,StartPos,EndPos-StartPos);
EndPos:=StartPos;
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;
end;
end;
end;