From c2cec3a8c0bd7102c52a8eeed6ccfbf738755924 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 25 Mar 2007 00:21:12 +0000
Subject: [PATCH]   * align Comment behaviour with Msg2Comment

git-svn-id: trunk@6991 -
---
 compiler/verbose.pas | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/compiler/verbose.pas b/compiler/verbose.pas
index e9d0be704a..ca99be06f3 100644
--- a/compiler/verbose.pas
+++ b/compiler/verbose.pas
@@ -482,10 +482,20 @@ var
       begin
         dostop:=((l and V_Fatal)<>0);
         if ((l and V_Error)<>0) or
+           ((l and V_Fatal)<>0) or
            (status.errorwarning and ((l and V_Warning)<>0)) or
            (status.errornote and ((l and V_Note)<>0)) or
            (status.errorhint and ((l and V_Hint)<>0)) then
-         inc(status.errorcount);
+         inc(status.errorcount)
+        else
+         if l and V_Warning <> 0 then
+          inc(status.countWarnings)
+         else
+          if l and V_Note <> 0 then
+           inc(status.countNotes)
+          else
+           if l and V_Hint <> 0 then
+            inc(status.countHints);
       { check verbosity level }
         if not CheckVerbosity(l) then
           exit;