Selaa lähdekoodia

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 -

pierre 13 vuotta sitten
vanhempi
commit
2d0f01e0dd
1 muutettua tiedostoa jossa 16 lisäystä ja 3 poistoa
  1. 16 3
      compiler/verbose.pas

+ 16 - 3
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;