compiler:

  - allow turning some messages off by default by prefixing verbosity type with '-' sign (in error.msg)
  - interpret -vm- as a switch which changes message verbosity to *on* by default
  * appropriate error.msg file changes will come later

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@19570 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 9 deletions

diff --git a/compiler/verbose.pas b/compiler/verbose.pas
index a049e4fbd3..f3de36ebd4 100644
--- a/compiler/verbose.pas
+++ b/compiler/verbose.pas
@@ -227,13 +227,6 @@ implementation
         result:=true;
       end;
 
-    { This function is only used for command line argument -vmXXX }
-    { thus the message needs to be cleared globally }
-    function ClearMessageVerbosity(s: string; var i: integer): boolean;
-      begin
-        ClearMessageVerbosity:=ChangeMessageVerbosity(s,i,ms_off_global);
-      end;
-
     function SetMessageVerbosity(v:longint;state:tmsgstate):boolean;
       begin
         result:=msg^.setverbosity(v,state);
@@ -246,6 +239,8 @@ implementation
 
 
     function SetVerbosity(const s:string):boolean;
+      const
+        message_verbosity:array[boolean] of tmsgstate=(ms_off_global,ms_on_global);
       var
         m : Longint;
         i : Integer;
@@ -283,8 +278,7 @@ implementation
                           else
                             status.print_source_path:=true;
                        end;
-                 'M' : if inverse or
-                         not ClearMessageVerbosity(s, i) then
+                 'M' : if not ChangeMessageVerbosity(s,i,message_verbosity[inverse]) then
                          begin
                            result:=false;
                            exit