From 2d0f01e0dde54a638c3c4693af0ec22de9a7d6b2 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 13 Sep 2012 07:34:23 +0000
Subject: [PATCH]  Enable writing of Warnings/Notes/hints if they are
 considered as errors using -SeX option  to avoid getting a compiler failure
 without any error printed out

git-svn-id: trunk@22378 -
---
 compiler/verbose.pas | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/compiler/verbose.pas b/compiler/verbose.pas
index a3ebef5e91..9fb233e797 100644
--- a/compiler/verbose.pas
+++ b/compiler/verbose.pas
@@ -519,7 +519,11 @@ implementation
                       status.errorwarning:=false;
                     end
                   else
-                    status.errorwarning:=true;
+                    begin
+                      status.errorwarning:=true;
+                      { Enable writing of warnings, to avoid getting errors without any message }
+                      status.verbosity:=status.verbosity or V_Warning;
+                    end;
                 end;
               'n','N' :
                 begin
@@ -529,7 +533,12 @@ implementation
                       status.errornote:=false;
                     end
                   else
-                    status.errornote:=true;
+                    begin
+                      status.errornote:=true;
+                      { Enable writing of notes, to avoid getting errors without any message }
+                      status.verbosity:=status.verbosity or V_Note;
+                    end;
+                   
                 end;
               'h','H' :
                 begin
@@ -539,7 +548,11 @@ implementation
                       status.errorhint:=false;
                     end
                   else
-                    status.errorhint:=true;
+                    begin
+                      status.errorhint:=true;
+                      { Enable writing of hints, to avoid getting errors without any message }
+                      status.verbosity:=status.verbosity or V_Hint;
+                    end;
                 end;
            end;
          end;