Skip to content

R
riscv-gcc-1
Commit 59e5fbe0 by Robert Dewar Committed by Arnaud Charlet
Options

re PR ada/10671 (improve error message for named notation used in pragma) 

2005-06-14  Robert Dewar  <dewar@adacore.com>
	    Ed Schonberg  <schonberg@adacore.com>

	PR ada/10671

	* sem_prag.adb: Implement pragma Persistent_BSS
	Remove obsolete pragma Persistent_Data, Persistent_Object
	Set Ada_Version_Explicit, for implementation of AI-362
	Test Ada_Version_Explicit for Preelaborate_05 and Pure_05
	Add processing for pragma Pure_05 and Preelaborate_05
	Add processing for Assertion_Policy pragma
	Add pragma identifiers for Assert
	(Analyze_Pragma, case Assert): Check number of arguments
	(Process_Inline): Additional guard against an illegal program, where the
	argument of the pragma is undefined, and warnings on redundant
	constructs are enabled.
	(Analyze_Pragma, case Obsolescent): Allow an optional second argument
	Ada_05 to this pragma, specifying that the pragma is only active in
	Ada_05 mode.
	(Check_Arg_Order): New procedure
	Add appropriate calls to this procedure throughout
	Also throughout, check entity name before doing any other checks

	* snames.h snames.ads, snames.adb: Add pragma Persistent_BSS
	Remove obsolete pragma Persistent_Data, Persistent_Object
	Add entries for pragma Pure_05 and Preelaborate_05
	Add entries for Assertion_Policy pragma and associated names
	Add some names for pragma argument processing

	* tbuild.ads, tbuild.adb: (Make_Linker_Section_Pragma): New function

From-SVN: r101060
parent 6eaf4095
Showing with 126 additions and 87 deletions
gcc/ada/snames.adb
......@@ -169,6 +169,7 @@ package body Snames is
"ada_83#" &
"ada_95#" &
"ada_05#" &
"assertion_policy#" &
"c_pass_by_copy#" &
"compile_time_warning#" &
"component_alignment#" &
......@@ -191,8 +192,7 @@ package body Snames is
"no_strict_aliasing#" &
"normalize_scalars#" &
"polling#" &
"persistent_data#" &
"persistent_object#" &
"persistent_bss#" &
"profile#" &
"profile_warnings#" &
"propagate_exceptions#" &
......@@ -277,9 +277,11 @@ package body Snames is
"page#" &
"passive#" &
"preelaborate#" &
"preelaborate_05#" &
"priority#" &
"psect_object#" &
"pure#" &
"pure_05#" &
"pure_function#" &
"remote_call_interface#" &
"remote_types#" &
......@@ -320,9 +322,12 @@ package body Snames is
"default#" &
"dll#" &
"win32#" &
"alias#" &
"as_is#" &
"attribute_name#" &
"body_file_name#" &
"boolean_entry_barriers#" &
"check#" &
"casing#" &
"code#" &
"component#" &
......@@ -333,6 +338,7 @@ package body Snames is
"dot_replacement#" &
"dynamic#" &
"entity#" &
"entry_count#" &
"external_name#" &
"first_optional_parameter#" &
"form#" &
......@@ -341,6 +347,8 @@ package body Snames is
"gnat#" &
"gpl#" &
"ieee_float#" &
"ignore#" &
"info#" &
"internal#" &
"link_name#" &
"lowercase#" &
......@@ -348,6 +356,7 @@ package body Snames is
"max_entry_queue_length#" &
"max_size#" &
"mechanism#" &
"message#" &
"mixedcase#" &
"modified_gpl#" &
"name#" &
......@@ -373,6 +382,7 @@ package body Snames is
"semaphore#" &
"simple_barriers#" &
"spec_file_name#" &
"state#" &
"static#" &
"stack_size#" &
"subunit_file_name#" &
......@@ -390,6 +400,7 @@ package body Snames is
"user#" &
"vax_float#" &
"vms#" &
"vtable_ptr#" &
"working_storage#" &
"abort_signal#" &
"access#" &
......
gcc/ada/snames.h
......@@ -25,7 +25,7 @@
****************************************************************************/
/* This is the C file that corresponds to the Ada package specification
Snames. It was created manually from the file snames.ads. */
Snames. It was created automatically from the file snames.ads. */
/* Name_Id values */
......@@ -151,7 +151,6 @@ extern unsigned char Get_Attribute_Id (int);
#define Attr_Wide_Width 103
#define Attr_Width 104
#define Attr_Word_Size 105
#define Attr_Adjacent 106
#define Attr_Ceiling 107
#define Attr_Copy_Sign 108
......@@ -173,18 +172,30 @@ extern unsigned char Get_Attribute_Id (int);
#define Attr_Wide_Wide_Image 124
#define Attr_Wide_Value 125
#define Attr_Wide_Wide_Value 126
#define Attr_Output 127
#define Attr_Read 128
#define Attr_Write 129
#define Attr_Elab_Body 130
#define Attr_Elab_Spec 131
#define Attr_Storage_Pool 132
#define Attr_Base 133
#define Attr_Class 134
/* Define the numeric values for the conventions. */
#define Convention_Ada 0
#define Convention_Intrinsic 1
#define Convention_Entry 2
#define Convention_Protected 3
#define Convention_Assembler 4
#define Convention_C 5
#define Convention_COBOL 6
#define Convention_CPP 7
#define Convention_Fortran 8
#define Convention_Java 9
#define Convention_Stdcall 10
#define Convention_Stubbed 11
/* Define the function to check if a Name_Id value is a valid pragma */
#define Is_Pragma_Name snames__is_pragma_name
......@@ -200,35 +211,33 @@ extern unsigned char Get_Pragma_Id (int);
/* Define the numeric values for the pragmas. */
/* Configuration pragmas first */
#define Pragma_Ada_83 0
#define Pragma_Ada_95 1
#define Pragma_Ada_05 2
#define Pragma_C_Pass_By_Copy 3
#define Pragma_Compile_Time_Warning 4
#define Pragma_Component_Alignment 5
#define Pragma_Convention_Identifier 6
#define Pragma_Detect_Blocking 7
#define Pragma_Discard_Names 8
#define Pragma_Elaboration_Checking 9
#define Pragma_Eliminate 10
#define Pragma_Explicit_Overriding 11
#define Pragma_Extend_System 12
#define Pragma_Extensions_Allowed 13
#define Pragma_External_Name_Casing 14
#define Pragma_Float_Representation 15
#define Pragma_Initialize_Scalars 16
#define Pragma_Interrupt_State 17
#define Pragma_License 18
#define Pragma_Locking_Policy 19
#define Pragma_Long_Float 20
#define Pragma_No_Run_Time 21
#define Pragma_No_Strict_Aliasing 22
#define Pragma_Normalize_Scalars 23
#define Pragma_Polling 24
#define Pragma_Persistent_Data 25
#define Pragma_Persistent_Object 26
#define Pragma_Assertion_Policy 3
#define Pragma_C_Pass_By_Copy 4
#define Pragma_Compile_Time_Warning 5
#define Pragma_Component_Alignment 6
#define Pragma_Convention_Identifier 7
#define Pragma_Detect_Blocking 8
#define Pragma_Discard_Names 9
#define Pragma_Elaboration_Checks 10
#define Pragma_Eliminate 11
#define Pragma_Explicit_Overriding 12
#define Pragma_Extend_System 13
#define Pragma_Extensions_Allowed 14
#define Pragma_External_Name_Casing 15
#define Pragma_Float_Representation 16
#define Pragma_Initialize_Scalars 17
#define Pragma_Interrupt_State 18
#define Pragma_License 19
#define Pragma_Locking_Policy 20
#define Pragma_Long_Float 21
#define Pragma_No_Run_Time 22
#define Pragma_No_Strict_Aliasing 23
#define Pragma_Normalize_Scalars 24
#define Pragma_Polling 25
#define Pragma_Persistent_BSS 26
#define Pragma_Profile 27
#define Pragma_Profile_Warnings 28
#define Pragma_Propagate_Exceptions 29
......@@ -249,9 +258,6 @@ extern unsigned char Get_Pragma_Id (int);
#define Pragma_Use_VADS_Size 44
#define Pragma_Validity_Checks 45
#define Pragma_Warnings 46
/* Remaining pragmas */
#define Pragma_Abort_Defer 47
#define Pragma_All_Calls_Remote 48
#define Pragma_Annotate 49
......@@ -316,56 +322,40 @@ extern unsigned char Get_Pragma_Id (int);
#define Pragma_Page 108
#define Pragma_Passive 109
#define Pragma_Preelaborate 110
#define Pragma_Priority 111
#define Pragma_Psect_Object 112
#define Pragma_Pure 113
#define Pragma_Pure_Function 114
#define Pragma_Remote_Call_Interface 115
#define Pragma_Remote_Types 116
#define Pragma_Share_Generic 117
#define Pragma_Shared 118
#define Pragma_Shared_Passive 119
#define Pragma_Source_Reference 120
#define Pragma_Stream_Convert 121
#define Pragma_Subtitle 122
#define Pragma_Suppress_All 123
#define Pragma_Suppress_Debug_Info 124
#define Pragma_Suppress_Initialization 125
#define Pragma_System_Name 126
#define Pragma_Task_Info 127
#define Pragma_Task_Name 128
#define Pragma_Task_Storage 129
#define Pragma_Thread_Body 130
#define Pragma_Time_Slice 131
#define Pragma_Title 132
#define Pragma_Unchecked_Union 133
#define Pragma_Unimplemented_Unit 134
#define Pragma_Unreferenced 135
#define Pragma_Unreserve_All_Interrupts 136
#define Pragma_Volatile 137
#define Pragma_Volatile_Components 138
#define Pragma_Weak_External 139
/* The following are deliberately out of alphabetical order, see Snames */
#define Pragma_AST_Entry 140
#define Pragma_Interface 141
#define Pragma_Storage_Size 142
#define Pragma_Storage_Unit 143
/* Define the numeric values for the conventions. */
#define Convention_Ada 0
#define Convention_Intrinsic 1
#define Convention_Entry 2
#define Convention_Protected 3
#define Convention_Assembler 4
#define Convention_C 5
#define Convention_COBOL 6
#define Convention_CPP 7
#define Convention_Fortran 8
#define Convention_Java 9
#define Convention_Stdcall 10
#define Convention_Stubbed 11
#define Pragma_Preelaborate_05 111
#define Pragma_Priority 112
#define Pragma_Psect_Object 113
#define Pragma_Pure 114
#define Pragma_Pure_05 115
#define Pragma_Pure_Function 116
#define Pragma_Remote_Call_Interface 117
#define Pragma_Remote_Types 118
#define Pragma_Share_Generic 119
#define Pragma_Shared 120
#define Pragma_Shared_Passive 121
#define Pragma_Source_Reference 122
#define Pragma_Stream_Convert 123
#define Pragma_Subtitle 124
#define Pragma_Suppress_All 125
#define Pragma_Suppress_Debug_Info 126
#define Pragma_Suppress_Initialization 127
#define Pragma_System_Name 128
#define Pragma_Task_Info 129
#define Pragma_Task_Name 130
#define Pragma_Task_Storage 131
#define Pragma_Thread_Body 132
#define Pragma_Time_Slice 133
#define Pragma_Title 134
#define Pragma_Unchecked_Union 135
#define Pragma_Unimplemented_Unit 136
#define Pragma_Unreferenced 137
#define Pragma_Unreserve_All_Interrupts 138
#define Pragma_Volatile 139
#define Pragma_Volatile_Components 140
#define Pragma_Weak_External 141
#define Pragma_AST_Entry 142
#define Pragma_Interface 143
#define Pragma_Storage_Size 144
#define Pragma_Storage_Unit 145
/* End of snames.h (C version of Snames package spec) */
gcc/ada/tbuild.adb
......@@ -256,6 +256,37 @@ package body Tbuild is
return Make_Integer_Literal (Loc, UI_From_Int (Intval));
end Make_Integer_Literal;
--------------------------------
-- Make_Linker_Section_Pragma --
--------------------------------
function Make_Linker_Section_Pragma
(Ent : Entity_Id;
Loc : Source_Ptr;
Sec : String) return Node_Id
is
LS : Node_Id;
begin
LS :=
Make_Pragma
(Loc,
Name_Linker_Section,
New_List
(Make_Pragma_Argument_Association
(Sloc => Loc,
Expression => New_Occurrence_Of (Ent, Loc)),
Make_Pragma_Argument_Association
(Sloc => Loc,
Expression =>
Make_String_Literal
(Sloc => Loc,
Strval => Sec))));
Set_Has_Gigi_Rep_Item (Ent);
return LS;
end Make_Linker_Section_Pragma;
---------------------------------
-- Make_Raise_Constraint_Error --
---------------------------------
......
gcc/ada/tbuild.ads
......@@ -118,6 +118,13 @@ package Tbuild is
pragma Inline (Make_Integer_Literal);
-- A convenient form of Make_Integer_Literal taking Int instead of Uint
function Make_Linker_Section_Pragma
(Ent : Entity_Id;
Loc : Source_Ptr;
Sec : String) return Node_Id;
-- Construct a Linker_Section pragma for entity Ent, using string Sec as
-- the section name. Loc is the Sloc value to use in building the pragma.
function Make_Raise_Constraint_Error
(Sloc : Source_Ptr;
Condition : Node_Id := Empty;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment