Browse Source

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

Pierre Muller 1 year ago
parent
commit
fd0f72303b
1 changed files with 4 additions and 1 deletions
  1. 4 1
      compiler/comphook.pas

+ 4 - 1
compiler/comphook.pas

@@ -310,8 +310,11 @@ begin
         MsgTypeStr:=errorstr;
       if (status.verbosity and Level)=V_Fatal then
         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);
+
     end
   else
     begin