浏览代码

Disable substitution by environment variables in message comment related functions

Pierre Muller 2 年之前
父节点
当前提交
3770b55ce1
共有 1 个文件被更改,包括 2 次插入2 次删除
  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