diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-15 12:52:26 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-15 12:52:26 +0100 |
| commit | d9937d1b3ee90bab59ddc15be59bee877e09778e (patch) | |
| tree | 857708f517fb5703144f500fb4f2d0525d106128 /gcc/ada/rtsfind.ads | |
| parent | 887d102a5e91157b45f7eec96c6230f5227fb0ef (diff) | |
| download | gcc-d9937d1b3ee90bab59ddc15be59bee877e09778e.zip gcc-d9937d1b3ee90bab59ddc15be59bee877e09778e.tar.gz gcc-d9937d1b3ee90bab59ddc15be59bee877e09778e.tar.bz2 | |
[multiple changes]
2011-12-15 Javier Miranda <miranda@adacore.com>
* exp_attr.adb (Expand_N_Attribute_Reference): For 'alignment
applied to a class-wide type under VM targets generate code which
invokes the function Get_Alignment to retrieve the value of the
alignment from the TSD.
* rtsfind.ads (RE_Get_Alignment): New entity.
2011-12-15 Robert Dewar <dewar@adacore.com>
* g-comlin.adb: Fix header.
From-SVN: r182365
Diffstat (limited to 'gcc/ada/rtsfind.ads')
| -rw-r--r-- | gcc/ada/rtsfind.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index e6ae088..8cd7771 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -588,6 +588,7 @@ package Rtsfind is RE_External_Tag, -- Ada.Tags RO_TA_External_Tag, -- Ada.Tags RE_Get_Access_Level, -- Ada.Tags + RE_Get_Alignment, -- Ada.Tags RE_Get_Entry_Index, -- Ada.Tags RE_Get_Offset_Index, -- Ada.Tags RE_Get_Prim_Op_Kind, -- Ada.Tags @@ -1787,6 +1788,7 @@ package Rtsfind is RE_External_Tag => Ada_Tags, RO_TA_External_Tag => Ada_Tags, RE_Get_Access_Level => Ada_Tags, + RE_Get_Alignment => Ada_Tags, RE_Get_Entry_Index => Ada_Tags, RE_Get_Offset_Index => Ada_Tags, RE_Get_Prim_Op_Kind => Ada_Tags, |