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/par-ch11.adb | |
| 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/par-ch11.adb')
| -rw-r--r-- | gcc/ada/par-ch11.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/par-ch11.adb b/gcc/ada/par-ch11.adb index 468ba03a..63f0c6e 100644 --- a/gcc/ada/par-ch11.adb +++ b/gcc/ada/par-ch11.adb @@ -227,10 +227,7 @@ package body Ch11 is end if; if Token = Tok_With then - if Ada_Version < Ada_2005 then - Error_Msg_SC ("string expression in raise is Ada 2005 extension"); - Error_Msg_SC ("\unit must be compiled with -gnat05 switch"); - end if; + Error_Msg_Ada_2005_Extension ("string expression in raise"); Scan; -- past WITH Set_Expression (Raise_Node, P_Expression); |