Commit e10dab7f by Javier Miranda Committed by Arnaud Charlet

exp_attr.adb (N_Pragma): Chars field removed.

2008-03-26  Javier Miranda  <miranda@adacore.com>
	    Robert Dewar  <dewar@adacore.com>

	* exp_attr.adb (N_Pragma): Chars field removed.
	(Expand_N_Attribute_Reference): If the designated type associated with
	attribute 'Unrestricted_Access is a subprogram entity then replace it
	by an E_Subprogram_Type itype.
	Implement attribute Old

	* sem_attr.ads (Attribute_Class_Array): Move to snames.ads

	* sem_attr.adb (Build_Access_Subprogram_Itype): Add documentation.
	Replace call to
	New_Internal_Entity by call to Create_Itype to centralize calls
	building itypes, ad propagate the convention of the designated
	subprogram. In addition, disable the machinery cleaning constant
	indications from all entities in current scope when 'Unrestricted_Access
	corresponds with a node initializing a dispatch table slot.
	(Analyze_Attribute): Parameterless attributes returning a string or a
	type will not be called with improper arguments, so we can remove junk
	code that was dealing with this case.
	Implement attribute Old

	* snames.ads, snames.h, snames.adb: Add entries for attribute Old
	Add entry for pragma Optimize_Alignment
	New standard names Sync and Synchronize

From-SVN: r133559
parent acf63f8c
...@@ -206,6 +206,7 @@ package body Snames is ...@@ -206,6 +206,7 @@ package body Snames is
"no_run_time#" & "no_run_time#" &
"no_strict_aliasing#" & "no_strict_aliasing#" &
"normalize_scalars#" & "normalize_scalars#" &
"optimize_alignment#" &
"polling#" & "polling#" &
"persistent_bss#" & "persistent_bss#" &
"priority_specific_dispatching#" & "priority_specific_dispatching#" &
...@@ -495,6 +496,7 @@ package body Snames is ...@@ -495,6 +496,7 @@ package body Snames is
"modulus#" & "modulus#" &
"null_parameter#" & "null_parameter#" &
"object_size#" & "object_size#" &
"old#" &
"partition_id#" & "partition_id#" &
"passed_by_reference#" & "passed_by_reference#" &
"pool_address#" & "pool_address#" &
...@@ -778,6 +780,8 @@ package body Snames is ...@@ -778,6 +780,8 @@ package body Snames is
"stack#" & "stack#" &
"switches#" & "switches#" &
"symbolic_link_supported#" & "symbolic_link_supported#" &
"sync#" &
"synchronize#" &
"toolchain_description#" & "toolchain_description#" &
"toolchain_version#" & "toolchain_version#" &
"runtime_library_dir#" & "runtime_library_dir#" &
......
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