diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-25 22:02:29 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-15 06:41:56 -0500 |
| commit | 3a6298d639333eb729a2cea441aeaffcff619227 (patch) | |
| tree | 6d45c402d9401d48866ba77704a95f06f341e14f /gcc/ada/errout.ads | |
| parent | 04974721aeee72da4dc497d371bad42a779ad89e (diff) | |
| download | gcc-3a6298d639333eb729a2cea441aeaffcff619227.zip gcc-3a6298d639333eb729a2cea441aeaffcff619227.tar.gz gcc-3a6298d639333eb729a2cea441aeaffcff619227.tar.bz2 | |
[Ada] Refactor repeated complains about missing -gnat2005 switch
gcc/ada/
* errout.ads (Error_Msg_Ada_2005_Extension): New routine (spec).
* errout.adb (Error_Msg_Ada_2005_Extension): New routine (body).
* par-ch10.adb: Reuse new routine; correct casing for "LIMITED
WITH".
* par-ch11.adb: Likewise.
* par-ch12.adb: Likewise.
* par-ch3.adb: Likewise.
* par-ch4.adb: Likewise; replace "box" with "<>".
* par-ch6.adb: Likewise.
* par-ch9.adb: Likewise; correct casing for "THEN ABORT".
Diffstat (limited to 'gcc/ada/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index b49b9a9..02cfdee 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -902,6 +902,11 @@ package Errout is -- overridden interface primitive Iface_Prim) indicating wrong mode of the -- first formal (RM 9.4(11.9/3)). + procedure Error_Msg_Ada_2005_Extension (Extension : String); + -- Analogous to Error_Msg_Ada_2012_Feature, but phrase the message using + -- "extension" and not "feature". This routine is only used in the parser, + -- so the error is always placed at the Token_Ptr. + procedure Error_Msg_Ada_2012_Feature (Feature : String; Loc : Source_Ptr); -- If not operating in Ada 2012 mode or higher, posts errors complaining -- that Feature is only supported in Ada 2012, with appropriate suggestions |