diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-12 12:54:30 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-12 12:54:30 +0100 |
| commit | 6bed26b5427ac521b5b1bea8d4f24f265980670d (patch) | |
| tree | e566c00a722d5b074112e751aaa53d7d1d10dfdd /gcc/ada/rtsfind.ads | |
| parent | fe58fea70b2614f36fb9e1fde78af892426ad8a6 (diff) | |
| download | gcc-6bed26b5427ac521b5b1bea8d4f24f265980670d.zip gcc-6bed26b5427ac521b5b1bea8d4f24f265980670d.tar.gz gcc-6bed26b5427ac521b5b1bea8d4f24f265980670d.tar.bz2 | |
[multiple changes]
2011-12-12 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (GNAT_Pragma): Check comes from source.
2011-12-12 Robert Dewar <dewar@adacore.com>
* gnatls.adb: Minor reformatting.
2011-12-12 Javier Miranda <miranda@adacore.com>
* a-tags.ads (Alignment): New TSD field.
(Max_Predef_Prims): Value lowered to 15 (or 9 in case of
configurable runtime) Update documentation of predefined
primitives since Alignment has been removed.
* exp_disp.ads Update documentation of slots of dispatching
primitives.
* exp_disp.adb (Default_Prim_Op_Position): Update slot
values since alignment is no longer a predefined primitive.
(Is_Predefined_Dispatch_Operation): Remove _alignment.
(Is_Predefined_Internal_Operation): Remove _alignment.
(Make_DT): Update static test on the value stored in a-tags.ads
for Max_Predef_Prims; store the value of 'alignment in the TSD.
* exp_atag.ads, exp_atag.adb (Build_Get_Alignment): New subprogram
that retrieves the alignment from the TSD
* exp_util.adb (Build_Allocated_Deallocate_Proc): For deallocation
of class-wide types obtain the value of alignment from the TSD.
* exp_attr.adb (Expand_N_Attribute_Reference): For 'alignment
applied to a class-wide type invoke Build_Get_Alignment to
generate code which retrieves the value of the alignment from
the TSD.
* rtsfind.ads (RE_Alignment): New Ada.Tags entity
* sem_ch13.adb (Analyze_Attribute_Definition_Clause): For tagged
types if the value of the alignment is bigger than the Maximum
alignment then set the value of the alignment to the Maximum
alignment and report a warning.
* exp_ch3.adb (Make_Predefined_Primitive_Specs): Do not generate
spec of _alignment.
(Predefined_Primitive_Bodies): Do not generate body of _alignment.
From-SVN: r182229
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 261365d..e6ae088 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -570,6 +570,7 @@ package Rtsfind is RE_Unbounded_String, -- Ada.Strings.Unbounded RE_Access_Level, -- Ada.Tags + RE_Alignment, -- Ada.Tags RE_Address_Array, -- Ada.Tags RE_Addr_Ptr, -- Ada.Tags RE_Base_Address, -- Ada.Tags @@ -1768,6 +1769,7 @@ package Rtsfind is RE_Unbounded_String => Ada_Strings_Unbounded, RE_Access_Level => Ada_Tags, + RE_Alignment => Ada_Tags, RE_Address_Array => Ada_Tags, RE_Addr_Ptr => Ada_Tags, RE_Base_Address => Ada_Tags, |