diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/par-ch3.adb | 21 |
1 files changed, 3 insertions, 18 deletions
diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 9924291..08ffd7b 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -2788,12 +2788,7 @@ package body Ch3 is else P_Index_Subtype_Def_With_Fixed_Lower_Bound (Subtype_Mark_Node); - if not Extensions_Allowed then - Error_Msg_N - ("fixed-lower-bound array is an extension feature; " - & "use -gnatX", - Token_Node); - end if; + Error_Msg_GNAT_Extension ("fixed-lower-bound array"); end if; exit when Token = Tok_Right_Paren or else Token = Tok_Of; @@ -2862,12 +2857,7 @@ package body Ch3 is P_Index_Subtype_Def_With_Fixed_Lower_Bound (Subtype_Mark_Node); - if not Extensions_Allowed then - Error_Msg_N - ("fixed-lower-bound array is an extension feature; " - & "use -gnatX", - Token_Node); - end if; + Error_Msg_GNAT_Extension ("fixed-lower-bound array"); end if; exit when Token = Tok_Right_Paren or else Token = Tok_Of; @@ -3369,12 +3359,7 @@ package body Ch3 is -- later during analysis), and scan to the next token. if Token = Tok_Box then - if not Extensions_Allowed then - Error_Msg_N - ("fixed-lower-bound array is an extension feature; " - & "use -gnatX", - Expr_Node); - end if; + Error_Msg_GNAT_Extension ("fixed-lower-bound array"); Expr_Node := Empty; Scan; |