Browse Source

* fixed skipping of character after number of errors to report in
parsing of -Se<xxx> string (mantis #10849)

git-svn-id: trunk@10362 -

Jonas Maebe 17 years ago
parent
commit
e9108ed51c
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/verbose.pas

+ 1 - 1
compiler/verbose.pas

@@ -436,7 +436,7 @@ implementation
                   if code<>0 then
                   if code<>0 then
                    l:=1;
                    l:=1;
                   status.maxerrorcount:=l;
                   status.maxerrorcount:=l;
-                  i:=j;
+                  i:=j-1;
                 end;
                 end;
               'w','W' :
               'w','W' :
                 status.errorwarning:=true;
                 status.errorwarning:=true;