- Name_Abort_Defer : constant Name_Id := N + 136; -- GNAT
- Name_All_Calls_Remote : constant Name_Id := N + 137;
- Name_Annotate : constant Name_Id := N + 138; -- GNAT
-
- -- Note: AST_Entry is not in this list because its name matches the
- -- name of the corresponding attribute. However, it is included in the
- -- definition of the type Attribute_Id, and the functions Get_Pragma_Id
- -- and Check_Pragma_Id correctly recognize and process Name_AST_Entry.
- -- AST_Entry is a VMS specific pragma.
-
- Name_Assert : constant Name_Id := N + 139; -- GNAT
- Name_Asynchronous : constant Name_Id := N + 140;
- Name_Atomic : constant Name_Id := N + 141;
- Name_Atomic_Components : constant Name_Id := N + 142;
- Name_Attach_Handler : constant Name_Id := N + 143;
- Name_Comment : constant Name_Id := N + 144; -- GNAT
- Name_Common_Object : constant Name_Id := N + 145; -- GNAT
- Name_Complex_Representation : constant Name_Id := N + 146; -- GNAT
- Name_Controlled : constant Name_Id := N + 147;
- Name_Convention : constant Name_Id := N + 148;
- Name_CPP_Class : constant Name_Id := N + 149; -- GNAT
- Name_CPP_Constructor : constant Name_Id := N + 150; -- GNAT
- Name_CPP_Virtual : constant Name_Id := N + 151; -- GNAT
- Name_CPP_Vtable : constant Name_Id := N + 152; -- GNAT
- Name_Debug : constant Name_Id := N + 153; -- GNAT
- Name_Elaborate : constant Name_Id := N + 154; -- Ada 83
- Name_Elaborate_All : constant Name_Id := N + 155;
- Name_Elaborate_Body : constant Name_Id := N + 156;
- Name_Export : constant Name_Id := N + 157;
- Name_Export_Exception : constant Name_Id := N + 158; -- VMS
- Name_Export_Function : constant Name_Id := N + 159; -- GNAT
- Name_Export_Object : constant Name_Id := N + 160; -- GNAT
- Name_Export_Procedure : constant Name_Id := N + 161; -- GNAT
- Name_Export_Value : constant Name_Id := N + 162; -- GNAT
- Name_Export_Valued_Procedure : constant Name_Id := N + 163; -- GNAT
- Name_External : constant Name_Id := N + 164; -- GNAT
- Name_Finalize_Storage_Only : constant Name_Id := N + 165; -- GNAT
- Name_Ident : constant Name_Id := N + 166; -- VMS
- Name_Import : constant Name_Id := N + 167;
- Name_Import_Exception : constant Name_Id := N + 168; -- VMS
- Name_Import_Function : constant Name_Id := N + 169; -- GNAT
- Name_Import_Object : constant Name_Id := N + 170; -- GNAT
- Name_Import_Procedure : constant Name_Id := N + 171; -- GNAT
- Name_Import_Valued_Procedure : constant Name_Id := N + 172; -- GNAT
- Name_Inline : constant Name_Id := N + 173;
- Name_Inline_Always : constant Name_Id := N + 174; -- GNAT
- Name_Inline_Generic : constant Name_Id := N + 175; -- GNAT
- Name_Inspection_Point : constant Name_Id := N + 176;
- Name_Interface : constant Name_Id := N + 177; -- Ada 83
- Name_Interface_Name : constant Name_Id := N + 178; -- GNAT
- Name_Interrupt_Handler : constant Name_Id := N + 179;
- Name_Interrupt_Priority : constant Name_Id := N + 180;
- Name_Java_Constructor : constant Name_Id := N + 181; -- GNAT
- Name_Java_Interface : constant Name_Id := N + 182; -- GNAT
- Name_Keep_Names : constant Name_Id := N + 183; -- GNAT
- Name_Link_With : constant Name_Id := N + 184; -- GNAT
- Name_Linker_Alias : constant Name_Id := N + 185; -- GNAT
- Name_Linker_Options : constant Name_Id := N + 186;
- Name_Linker_Section : constant Name_Id := N + 187; -- GNAT
- Name_List : constant Name_Id := N + 188;
- Name_Machine_Attribute : constant Name_Id := N + 189; -- GNAT
- Name_Main : constant Name_Id := N + 190; -- GNAT
- Name_Main_Storage : constant Name_Id := N + 191; -- GNAT
- Name_Memory_Size : constant Name_Id := N + 192; -- Ada 83
- Name_No_Return : constant Name_Id := N + 193; -- GNAT
- Name_Obsolescent : constant Name_Id := N + 194; -- GNAT
- Name_Optimize : constant Name_Id := N + 195;
- Name_Optional_Overriding : constant Name_Id := N + 196;
- Name_Overriding : constant Name_Id := N + 197;
- Name_Pack : constant Name_Id := N + 198;
- Name_Page : constant Name_Id := N + 199;
- Name_Passive : constant Name_Id := N + 200; -- GNAT
- Name_Preelaborate : constant Name_Id := N + 201;
- Name_Priority : constant Name_Id := N + 202;
- Name_Psect_Object : constant Name_Id := N + 203; -- VMS
- Name_Pure : constant Name_Id := N + 204;
- Name_Pure_Function : constant Name_Id := N + 205; -- GNAT
- Name_Remote_Call_Interface : constant Name_Id := N + 206;
- Name_Remote_Types : constant Name_Id := N + 207;
- Name_Share_Generic : constant Name_Id := N + 208; -- GNAT
- Name_Shared : constant Name_Id := N + 209; -- Ada 83
- Name_Shared_Passive : constant Name_Id := N + 210;
-
- -- Note: Storage_Size is not in this list because its name matches the
- -- name of the corresponding attribute. However, it is included in the
- -- definition of the type Attribute_Id, and the functions Get_Pragma_Id
- -- and Check_Pragma_Id correctly recognize and process Name_Storage_Size.
-
- -- Note: Storage_Unit is also omitted from the list because of a clash
- -- with an attribute name, and is treated similarly.
-
- Name_Source_Reference : constant Name_Id := N + 211; -- GNAT
- Name_Stream_Convert : constant Name_Id := N + 212; -- GNAT
- Name_Subtitle : constant Name_Id := N + 213; -- GNAT
- Name_Suppress_All : constant Name_Id := N + 214; -- GNAT
- Name_Suppress_Debug_Info : constant Name_Id := N + 215; -- GNAT
- Name_Suppress_Initialization : constant Name_Id := N + 216; -- GNAT
- Name_System_Name : constant Name_Id := N + 217; -- Ada 83
- Name_Task_Info : constant Name_Id := N + 218; -- GNAT
- Name_Task_Name : constant Name_Id := N + 219; -- GNAT
- Name_Task_Storage : constant Name_Id := N + 220; -- VMS
- Name_Thread_Body : constant Name_Id := N + 221; -- GNAT
- Name_Time_Slice : constant Name_Id := N + 222; -- GNAT
- Name_Title : constant Name_Id := N + 223; -- GNAT
- Name_Unchecked_Union : constant Name_Id := N + 224; -- GNAT
- Name_Unimplemented_Unit : constant Name_Id := N + 225; -- GNAT
- Name_Unreferenced : constant Name_Id := N + 226; -- GNAT
- Name_Unreserve_All_Interrupts : constant Name_Id := N + 227; -- GNAT
- Name_Volatile : constant Name_Id := N + 228;
- Name_Volatile_Components : constant Name_Id := N + 229;
- Name_Weak_External : constant Name_Id := N + 230; -- GNAT
- Last_Pragma_Name : constant Name_Id := N + 230;
+ Name_Abort_Defer : constant Name_Id := N + 174; -- GNAT
+ Name_All_Calls_Remote : constant Name_Id := N + 175;
+ Name_Annotate : constant Name_Id := N + 176; -- GNAT
+
+ -- Note: AST_Entry is not in this list because its name matches -- VMS
+ -- the name of the corresponding attribute. However, it is
+ -- included in the definition of the type Pragma_Id, and the
+ -- functions Get_Pragma_Id and Is_Pragma_Id correctly recognize
+ -- and process Name_AST_Entry.
+
+ Name_Assert : constant Name_Id := N + 177; -- Ada 05
+ Name_Asynchronous : constant Name_Id := N + 178;
+ Name_Atomic : constant Name_Id := N + 179;
+ Name_Atomic_Components : constant Name_Id := N + 180;
+ Name_Attach_Handler : constant Name_Id := N + 181;
+ Name_Check : constant Name_Id := N + 182; -- GNAT
+ Name_CIL_Constructor : constant Name_Id := N + 183; -- GNAT
+ Name_Comment : constant Name_Id := N + 184; -- GNAT
+ Name_Common_Object : constant Name_Id := N + 185; -- GNAT
+ Name_Complete_Representation : constant Name_Id := N + 186; -- GNAT
+ Name_Complex_Representation : constant Name_Id := N + 187; -- GNAT
+ Name_Controlled : constant Name_Id := N + 188;
+ Name_Convention : constant Name_Id := N + 189;
+ Name_CPP_Class : constant Name_Id := N + 190; -- GNAT
+ Name_CPP_Constructor : constant Name_Id := N + 191; -- GNAT
+ Name_CPP_Virtual : constant Name_Id := N + 192; -- GNAT
+ Name_CPP_Vtable : constant Name_Id := N + 193; -- GNAT
+ Name_Debug : constant Name_Id := N + 194; -- GNAT
+ Name_Elaborate : constant Name_Id := N + 195; -- Ada 83
+ Name_Elaborate_All : constant Name_Id := N + 196;
+ Name_Elaborate_Body : constant Name_Id := N + 197;
+ Name_Export : constant Name_Id := N + 198;
+ Name_Export_Exception : constant Name_Id := N + 199; -- VMS
+ Name_Export_Function : constant Name_Id := N + 200; -- GNAT
+ Name_Export_Object : constant Name_Id := N + 201; -- GNAT
+ Name_Export_Procedure : constant Name_Id := N + 202; -- GNAT
+ Name_Export_Value : constant Name_Id := N + 203; -- GNAT
+ Name_Export_Valued_Procedure : constant Name_Id := N + 204; -- GNAT
+ Name_External : constant Name_Id := N + 205; -- GNAT
+ Name_Finalize_Storage_Only : constant Name_Id := N + 206; -- GNAT
+ Name_Ident : constant Name_Id := N + 207; -- VMS
+ Name_Implemented_By_Entry : constant Name_Id := N + 208; -- Ada 05
+ Name_Import : constant Name_Id := N + 209;
+ Name_Import_Exception : constant Name_Id := N + 210; -- VMS
+ Name_Import_Function : constant Name_Id := N + 211; -- GNAT
+ Name_Import_Object : constant Name_Id := N + 212; -- GNAT
+ Name_Import_Procedure : constant Name_Id := N + 213; -- GNAT
+ Name_Import_Valued_Procedure : constant Name_Id := N + 214; -- GNAT
+ Name_Inline : constant Name_Id := N + 215;
+ Name_Inline_Always : constant Name_Id := N + 216; -- GNAT
+ Name_Inline_Generic : constant Name_Id := N + 217; -- GNAT
+ Name_Inspection_Point : constant Name_Id := N + 218;
+
+ -- Note: Interface is not in this list because its name matches -- GNAT
+ -- an Ada 2005 keyword. However it is included in the definition
+ -- of the type Attribute_Id, and the functions Get_Pragma_Id and
+ -- Is_Pragma_Id correctly recognize and process Name_Storage_Size.
+
+ Name_Interface_Name : constant Name_Id := N + 219; -- GNAT
+ Name_Interrupt_Handler : constant Name_Id := N + 220;
+ Name_Interrupt_Priority : constant Name_Id := N + 221;
+ Name_Java_Constructor : constant Name_Id := N + 222; -- GNAT
+ Name_Java_Interface : constant Name_Id := N + 223; -- GNAT
+ Name_Keep_Names : constant Name_Id := N + 224; -- GNAT
+ Name_Link_With : constant Name_Id := N + 225; -- GNAT
+ Name_Linker_Alias : constant Name_Id := N + 226; -- GNAT
+ Name_Linker_Constructor : constant Name_Id := N + 227; -- GNAT
+ Name_Linker_Destructor : constant Name_Id := N + 228; -- GNAT
+ Name_Linker_Options : constant Name_Id := N + 229;
+ Name_Linker_Section : constant Name_Id := N + 230; -- GNAT
+ Name_List : constant Name_Id := N + 231;
+ Name_Machine_Attribute : constant Name_Id := N + 232; -- GNAT
+ Name_Main : constant Name_Id := N + 233; -- GNAT
+ Name_Main_Storage : constant Name_Id := N + 234; -- GNAT
+ Name_Memory_Size : constant Name_Id := N + 235; -- Ada 83
+ Name_No_Body : constant Name_Id := N + 236; -- GNAT
+ Name_No_Return : constant Name_Id := N + 237; -- GNAT
+ Name_Obsolescent : constant Name_Id := N + 238; -- GNAT
+ Name_Optimize : constant Name_Id := N + 239;
+ Name_Pack : constant Name_Id := N + 240;
+ Name_Page : constant Name_Id := N + 241;
+ Name_Passive : constant Name_Id := N + 242; -- GNAT
+ Name_Postcondition : constant Name_Id := N + 243; -- GNAT
+ Name_Precondition : constant Name_Id := N + 244; -- GNAT
+ Name_Preelaborable_Initialization : constant Name_Id := N + 245; -- Ada 05
+ Name_Preelaborate : constant Name_Id := N + 246;
+ Name_Preelaborate_05 : constant Name_Id := N + 247; -- GNAT
+
+ -- Note: Priority is not in this list because its name matches
+ -- the name of the corresponding attribute. However, it is
+ -- included in the definition of the type Pragma_Id, and the
+ -- functions Get_Pragma_Id and Is_Pragma_Id correctly recognize
+ -- and process Priority. Priority is a standard Ada 95 pragma.
+
+ Name_Psect_Object : constant Name_Id := N + 248; -- VMS
+ Name_Pure : constant Name_Id := N + 249;
+ Name_Pure_05 : constant Name_Id := N + 250; -- GNAT
+ Name_Pure_Function : constant Name_Id := N + 251; -- GNAT
+ Name_Relative_Deadline : constant Name_Id := N + 252; -- Ada 05
+ Name_Remote_Call_Interface : constant Name_Id := N + 253;
+ Name_Remote_Types : constant Name_Id := N + 254;
+ Name_Share_Generic : constant Name_Id := N + 255; -- GNAT
+ Name_Shared : constant Name_Id := N + 256; -- Ada 83
+ Name_Shared_Passive : constant Name_Id := N + 257;
+
+ -- Note: Storage_Size is not in this list because its name
+ -- matches the name of the corresponding attribute. However,
+ -- it is included in the definition of the type Attribute_Id,
+ -- and the functions Get_Pragma_Id and Is_Pragma_Id correctly
+ -- recognize and process Name_Storage_Size.
+
+ -- Note: Storage_Unit is also omitted from the list because
+ -- of a clash with an attribute name, and is treated similarly.
+
+ Name_Source_Reference : constant Name_Id := N + 258; -- GNAT
+ Name_Static_Elaboration_Desired : constant Name_Id := N + 259; -- GNAT
+ Name_Stream_Convert : constant Name_Id := N + 260; -- GNAT
+ Name_Subtitle : constant Name_Id := N + 261; -- GNAT
+ Name_Suppress_All : constant Name_Id := N + 262; -- GNAT
+ Name_Suppress_Debug_Info : constant Name_Id := N + 263; -- GNAT
+ Name_Suppress_Initialization : constant Name_Id := N + 264; -- GNAT
+ Name_System_Name : constant Name_Id := N + 265; -- Ada 83
+ Name_Task_Info : constant Name_Id := N + 266; -- GNAT
+ Name_Task_Name : constant Name_Id := N + 267; -- GNAT
+ Name_Task_Storage : constant Name_Id := N + 268; -- VMS
+ Name_Thread_Local_Storage : constant Name_Id := N + 269; -- GNAT
+ Name_Time_Slice : constant Name_Id := N + 270; -- GNAT
+ Name_Title : constant Name_Id := N + 271; -- GNAT
+ Name_Unchecked_Union : constant Name_Id := N + 272; -- Ada 05
+ Name_Unimplemented_Unit : constant Name_Id := N + 273; -- GNAT
+ Name_Universal_Aliasing : constant Name_Id := N + 274; -- GNAT
+ Name_Unmodified : constant Name_Id := N + 275; -- GNAT
+ Name_Unreferenced : constant Name_Id := N + 276; -- GNAT
+ Name_Unreferenced_Objects : constant Name_Id := N + 277; -- GNAT
+ Name_Unreserve_All_Interrupts : constant Name_Id := N + 278; -- GNAT
+ Name_Volatile : constant Name_Id := N + 279;
+ Name_Volatile_Components : constant Name_Id := N + 280;
+ Name_Weak_External : constant Name_Id := N + 281; -- GNAT
+ Last_Pragma_Name : constant Name_Id := N + 281;