diff options
Diffstat (limited to 'gcc/ada/par-ch2.adb')
| -rw-r--r-- | gcc/ada/par-ch2.adb | 29 |
1 files changed, 1 insertions, 28 deletions
diff --git a/gcc/ada/par-ch2.adb b/gcc/ada/par-ch2.adb index 02914422c2c..2cd54b7001c 100644 --- a/gcc/ada/par-ch2.adb +++ b/gcc/ada/par-ch2.adb @@ -62,34 +62,7 @@ package body Ch2 is -- Code duplication, see Par_Ch3.P_Defining_Identifier??? if Token = Tok_Identifier then - - -- Shouldn't the warnings below be emitted when in Ada 83 mode??? - - -- Ada 2005 (AI-284): If compiling in Ada 95 mode, we warn that - -- INTERFACE, OVERRIDING, and SYNCHRONIZED are new reserved words. - - if Ada_Version = Ada_95 - and then Warn_On_Ada_2005_Compatibility - then - if Token_Name = Name_Overriding - or else Token_Name = Name_Synchronized - or else (Token_Name = Name_Interface - and then Prev_Token /= Tok_Pragma) - then - Error_Msg_N ("& is a reserved word in Ada 2005?", Token_Node); - end if; - end if; - - -- Similarly, warn about Ada 2012 reserved words - - if Ada_Version in Ada_95 .. Ada_2005 - and then Warn_On_Ada_2012_Compatibility - then - if Token_Name = Name_Some then - Error_Msg_N ("& is a reserved word in Ada 2012?", Token_Node); - end if; - end if; - + Check_Future_Keyword; Ident_Node := Token_Node; Scan; -- past Identifier return Ident_Node; |