paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 17:47:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid double definition of V_XXX constants by moving them to globals unit

Browse Source 
Add new V_Parallel constant
This commit is contained in:
Pierre Muller 2023-09-09 06:52:06 +00:00
parent cf4d02ef92
commit 63f91a768c
3 changed files with 28 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/comphook.pas
View File

@ -34,31 +34,6 @@ uses
globtype,
finput;
Const
{ Levels }
V_None = $0;
V_Fatal = $1;
V_Error = $2;
V_Normal = $4; { doesn't show a text like Error: }
V_Warning = $8;
V_Note = $10;
V_Hint = $20;
V_LineInfoMask = $fff;
{ From here by default no line info }
V_Info = $1000;
V_Status = $2000;
V_Used = $4000;
V_Tried = $8000;
V_Conditional = $10000;
V_Debug = $20000;
V_Executable = $40000;
V_TimeStamps = $80000;
V_LevelMask = $fffffff;
V_All = V_LevelMask;
V_Default = V_Fatal + V_Error + V_Normal;
{ Flags }
V_LineInfo = $10000000;
const
{ RHIDE expect gcc like error output }
fatalstr : string[6] = 'Fatal:';
@ -69,6 +44,7 @@ const
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

27
compiler/globals.pas
View File

@ -124,6 +124,33 @@ interface
nroftrashvalues = 4;
trashintvalues: array[0..nroftrashvalues-1] of int64 = ($5555555555555555,$AAAAAAAAAAAAAAAA,$EFEFEFEFEFEFEFEF,0);
{ Verbosity constants }
Const
{ Levels }
V_None = $0;
V_Fatal = $1;
V_Error = $2;
V_Normal = $4; { doesn't show a text like Error: }
V_Warning = $8;
V_Note = $10;
V_Hint = $20;
V_LineInfoMask = $fff;
{ From here by default no line info }
V_Info = $1000;
V_Status = $2000;
V_Used = $4000;
V_Tried = $8000;
V_Conditional = $10000;
V_Debug = $20000;
V_Executable = $40000;
V_TimeStamps = $80000;
V_Parallel = $100000;
V_LevelMask = $fffffff;
V_All = V_LevelMask;
V_Default = V_Fatal + V_Error + V_Normal;
{ Flags }
V_LineInfo = $10000000;
type
{ this is written to ppus during token recording for generics,

24
compiler/verbose.pas
View File

@ -41,30 +41,6 @@ interface
{$i msgidx.inc}
Const
{ Levels }
V_None = $0;
V_Fatal = $1;
V_Error = $2;
V_Normal = $4; { doesn't show a text like Error: }
V_Warning = $8;
V_Note = $10;
V_Hint = $20;
V_LineInfoMask = $fff;
{ From here by default no line info }
V_Info = $1000;
V_Status = $2000;
V_Used = $4000;
V_Tried = $8000;
V_Conditional = $10000;
V_Debug = $20000;
V_Executable = $40000;
V_LevelMask = $fffffff;
V_All = V_LevelMask;
V_Default = V_Fatal + V_Error + V_Normal;
{ Flags }
V_LineInfo = $10000000;
var
msg : pmessage;