Explorar el Código

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

git-svn-id: trunk@21754 -
florian hace 13 años
padre
commit
3f14f2b61b
Se han modificado 1 ficheros con 27 adiciones y 3 borrados
  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;