From 236f6e9b2914277a4e3df11bb2bb1c73b79c544b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 7 Apr 2012 03:29:22 +0000
Subject: [PATCH] IDE: checking compiled state: ignore -v flags

git-svn-id: trunk@36650 -
---
 packager/packagesystem.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas
index 26a25bec1b..d850aba0b6 100644
--- a/packager/packagesystem.pas
+++ b/packager/packagesystem.pas
@@ -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;