浏览代码

Add main inputfilename for V_Parallel option to allow easier debugging of parallel compilation issues

Pierre Muller 1 年之前
父节点
当前提交
fd0f72303b
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/comphook.pas

+ 4 - 1
compiler/comphook.pas

@@ -310,8 +310,11 @@ begin
         MsgTypeStr:=errorstr;
         MsgTypeStr:=errorstr;
       if (status.verbosity and Level)=V_Fatal then
       if (status.verbosity and Level)=V_Fatal then
         MsgTypeStr:=fatalstr;
         MsgTypeStr:=fatalstr;
-      if (status.verbosity and Level)=V_Used then
+      if (status.verbosity and V_Parallel)=V_Parallel then
+        MsgTypeStr:=MsgTypeStr+'('+inputfilename+'/'+status.currentmodule+')'
+      else if (status.verbosity and Level)=V_Used then
         MsgTypeStr:=PadSpace('('+status.currentmodule+')',10);
         MsgTypeStr:=PadSpace('('+status.currentmodule+')',10);
+
     end
     end
   else
   else
     begin
     begin