paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Pierre Muller 2023-09-08 10:38:23 +00:00
parent 63f91a768c
commit fd0f72303b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/comphook.pas
View File

@ -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