Преглед на файлове

* do not output error numbers for options

git-svn-id: trunk@48397 -
florian преди 4 години
родител
ревизия
225eb8ed12
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      compiler/verbose.pas

+ 1 - 1
compiler/verbose.pas

@@ -753,7 +753,7 @@ implementation
         UpdateStatus;
       { Fix replacements }
         DefaultReplacements(s);
-        if status.showmsgnrs then
+        if status.showmsgnrs and ((v and V_Normal)=0) then
           s:='('+tostr(w)+') '+s;
         if doqueue then
           begin