diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2020-04-20 09:41:08 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-18 05:08:24 -0400 |
| commit | 78689aa295f9b0e54807462d13d3125a5a83c64b (patch) | |
| tree | 70f7c01b42926dbd73c20404cad0d85b5bded9dc /gcc/ada/errout.ads | |
| parent | 668fb87d746afb36e22e48972fe379deb3a2184a (diff) | |
| download | gcc-78689aa295f9b0e54807462d13d3125a5a83c64b.zip gcc-78689aa295f9b0e54807462d13d3125a5a83c64b.tar.gz gcc-78689aa295f9b0e54807462d13d3125a5a83c64b.tar.bz2 | |
[Ada] Do not treat pragma Compile_Time_Warning as error even with -gnatwe
2020-06-18 Ghjuvan Lacambre <lacambre@adacore.com>
gcc/ada/
* erroutc.ads: Declare new Is_Compile_Time_Msg boolean,
add new Compile_Time_Pragma field to Error_Msg_Object type.
(Count_Compile_Time_Pragma_Warnings): New function.
* erroutc.adb (Count_Compile_Time_Pragma_Warnings): New
function.
(Compilation_Errors): Take Compile_Time warnings into account
when tallying Errors/Warnings.
* errout.ads (Error_Msg): New procedure.
* errout.adb (Error_Msg): New procedure.
(Error_Msg_Internal): Set new Compile_Time_Pragma field in
Error_Msg_Object.
* errutil.adb (Error_Msg): Set new Compile_Time_Pragma field in
Error_Msg_Object.
* sem_prag.adb (Validate_Compile_Time_Warning_Or_Error): Pass
True to new Error_Msg procedure.
* doc/gnat_rm/implementation_defined_pragmas.rst: Update doc for
the Compile_Time_Warning pragma.
* gnat_rm.texi: Regenerate.
* opt.ads: Update comment.
Diffstat (limited to 'gcc/ada/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index bce3b84..68fcdb9 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -700,6 +700,14 @@ package Errout is -- or the semantic analyzer. If N is set, points to the relevant node for -- this message. + procedure Error_Msg + (Msg : String; + Flag_Location : Source_Ptr; + Is_Compile_Time_Pragma : Boolean); + -- Same as Error_Msg (String, Source_Ptr) except Is_Compile_Time_Pragma + -- lets the caller specify whether the is a + -- Compile_Time_Warning/Compile_Time_Error pragma. + procedure Error_Msg_S (Msg : String); -- Output a message at current scan pointer location. This routine can be -- called only from the parser, since it references Scan_Ptr. |