Procházet zdrojové kódy

Disable substitution by environment variables in message comment related functions

Pierre Muller před 2 roky
rodič
revize
3770b55ce1
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      compiler/verbose.pas

+ 2 - 2
compiler/verbose.pas

@@ -622,7 +622,7 @@ implementation
       { Create status info }
         UpdateStatus;
       { Fix replacements }
-        DefaultReplacements(s);
+        DefaultReplacements(s,false);
       { show comment }
         if do_comment(l,s) or dostop then
           raise ECompilerAbort.Create;
@@ -754,7 +754,7 @@ implementation
       { fix status }
         UpdateStatus;
       { Fix replacements }
-        DefaultReplacements(s);
+        DefaultReplacements(s,false);
         if status.showmsgnrs and ((v and V_Normal)=0) then
           s:='('+tostr(w)+') '+s;
         if doqueue then