Răsfoiți Sursa

+ be able to turn off warning -> error conversion on the command line (with -)

git-svn-id: trunk@21754 -
florian 13 ani în urmă
părinte
comite
3f14f2b61b
1 a modificat fișierele cu 27 adăugiri și 3 ștergeri
  1. 27 3
      compiler/verbose.pas

+ 27 - 3
compiler/verbose.pas

@@ -512,11 +512,35 @@ implementation
                   i:=j-1;
                 end;
               'w','W' :
-                status.errorwarning:=true;
+                begin
+                  if (i<length(s)) and (s[i+1]='-') then
+                    begin
+                      inc(i);
+                      status.errorwarning:=false;
+                    end
+                  else
+                    status.errorwarning:=true;
+                end;
               'n','N' :
-                status.errornote:=true;
+                begin
+                  if (i<length(s)) and (s[i+1]='-') then
+                    begin
+                      inc(i);
+                      status.errornote:=false;
+                    end
+                  else
+                    status.errornote:=true;
+                end;
               'h','H' :
-                status.errorhint:=true;
+                begin
+                  if (i<length(s)) and (s[i+1]='-') then
+                    begin
+                      inc(i);
+                      status.errorhint:=false;
+                    end
+                  else
+                    status.errorhint:=true;
+                end;
            end;
          end;
       end;