diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:38:16 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:38:16 +0000 |
| commit | 4c06b9d2320505d379392e32262dbcaa90c17da8 (patch) | |
| tree | d372641a25b1510d1a128e297a1fefd0e4146ab3 /gcc/ada/snames.adb | |
| parent | 65278bb305efd880b722b738730364a1813260dd (diff) | |
| download | gcc-4c06b9d2320505d379392e32262dbcaa90c17da8.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133559 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/snames.adb')
| -rw-r--r-- | gcc/ada/snames.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/snames.adb b/gcc/ada/snames.adb index 6b3e9eea763..95fc9b1e4f2 100644 --- a/gcc/ada/snames.adb +++ b/gcc/ada/snames.adb @@ -206,6 +206,7 @@ package body Snames is "no_run_time#" & "no_strict_aliasing#" & "normalize_scalars#" & + "optimize_alignment#" & "polling#" & "persistent_bss#" & "priority_specific_dispatching#" & @@ -495,6 +496,7 @@ package body Snames is "modulus#" & "null_parameter#" & "object_size#" & + "old#" & "partition_id#" & "passed_by_reference#" & "pool_address#" & @@ -778,6 +780,8 @@ package body Snames is "stack#" & "switches#" & "symbolic_link_supported#" & + "sync#" & + "synchronize#" & "toolchain_description#" & "toolchain_version#" & "runtime_library_dir#" & |