paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add 'treated as Error:' to compiler messages

Browse Source
This commit is contained in:
Pierre Muller 2021-09-06 12:54:22 +02:00 committed by FPK
parent b4df9dbe1d
commit 6b7df6d22e
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/comphook.pas
View File

@ -61,12 +61,14 @@ Const
const
{ RHIDE expect gcc like error output }
fatalstr : string[20] = 'Fatal:';
errorstr : string[20] = 'Error:';
warningstr : string[20] = 'Warning:';
notestr : string[20] = 'Note:';
hintstr : string[20] = 'Hint:';
fatalstr : string[6] = 'Fatal:';
errorstr : string[6] = 'Error:';
warningstr : string[8] = 'Warning:';
notestr : string[5] = 'Note:';
hintstr : string[5] = 'Hint:';
warningerrorstr : string[29] = 'Warning: (treated as Error:)';
noteerrorstr : string[27] = 'Note: (treated as Error:)';
hinterrorstr : string[27] = 'Hint: (treated as Error:)';
type
PCompilerStatus = ^TCompilerStatus;
TCompilerStatus = record
@ -314,11 +316,20 @@ begin
if not(status.use_gccoutput) then
begin
if (status.verbosity and Level)=V_Hint then
MsgTypeStr:=hintstr;
if status.errorhint then
MsgTypeStr:=hinterrorstr
else
MsgTypeStr:=hintstr;
if (status.verbosity and Level)=V_Note then
MsgTypeStr:=notestr;
if status.errornote then
MsgTypeStr:=noteerrorstr
else
MsgTypeStr:=notestr;
if (status.verbosity and Level)=V_Warning then
MsgTypeStr:=warningstr;
if status.errorwarning then
MsgTypeStr:=warningerrorstr
else
MsgTypeStr:=warningstr;
if (status.verbosity and Level)=V_Error then
MsgTypeStr:=errorstr;
if (status.verbosity and Level)=V_Fatal then