diff options
Diffstat (limited to 'gcc/ada/snames.ads-tmpl')
| -rw-r--r-- | gcc/ada/snames.ads-tmpl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl index 95ece32..272e10b 100644 --- a/gcc/ada/snames.ads-tmpl +++ b/gcc/ada/snames.ads-tmpl @@ -147,9 +147,11 @@ package Snames is -- Names of aspects for which there are no matching pragmas or attributes -- so that they need to be included for aspect specification use. + Name_Constructor : constant Name_Id := N + $; Name_Default_Value : constant Name_Id := N + $; Name_Default_Component_Value : constant Name_Id := N + $; Name_Designated_Storage_Model : constant Name_Id := N + $; + Name_Destructor : constant Name_Id := N + $; Name_Dimension : constant Name_Id := N + $; Name_Dimension_System : constant Name_Id := N + $; Name_Disable_Controlled : constant Name_Id := N + $; @@ -163,6 +165,7 @@ package Snames is Name_Local_Restrictions : constant Name_Id := N + $; Name_No_Controlled_Parts : constant Name_Id := N + $; Name_No_Task_Parts : constant Name_Id := N + $; + Name_Potentially_Invalid : constant Name_Id := N + $; Name_Real_Literal : constant Name_Id := N + $; Name_Relaxed_Initialization : constant Name_Id := N + $; Name_Stable_Properties : constant Name_Id := N + $; @@ -659,6 +662,7 @@ package Snames is -- correctly recognize and process Priority. Priority is a standard Ada 95 -- pragma. + Name_Program_Exit : constant Name_Id := N + $; -- GNAT Name_Provide_Shift_Operators : constant Name_Id := N + $; -- GNAT Name_Psect_Object : constant Name_Id := N + $; -- GNAT Name_Pure : constant Name_Id := N + $; @@ -1080,6 +1084,7 @@ package Snames is Name_Img : constant Name_Id := N + $; -- GNAT Name_Input : constant Name_Id := N + $; Name_Machine : constant Name_Id := N + $; + Name_Make : constant Name_Id := N + $; -- GNAT Name_Max : constant Name_Id := N + $; Name_Min : constant Name_Id := N + $; Name_Model : constant Name_Id := N + $; @@ -1388,6 +1393,7 @@ package Snames is -- e.g. Name_UP_RESULT maps to "RESULT". Name_Synchronous_Task_Control : constant Name_Id := N + $; + Name_Continue : constant Name_Id := N + $; -- Names used to implement iterators over predefined containers @@ -1614,6 +1620,7 @@ package Snames is Attribute_Img, Attribute_Input, Attribute_Machine, + Attribute_Make, Attribute_Max, Attribute_Min, Attribute_Model, @@ -1952,6 +1959,7 @@ package Snames is Pragma_Predicate_Failure, Pragma_Preelaborate, Pragma_Pre_Class, + Pragma_Program_Exit, Pragma_Provide_Shift_Operators, Pragma_Psect_Object, Pragma_Pure, |