diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 12:06:13 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 12:06:13 +0200 |
| commit | 17a3564142202cb76c9fede9cd489d9769f5560b (patch) | |
| tree | d7edba94051e2f05d3b33ffe825fe4650e50e863 /gcc/ada/layout.adb | |
| parent | 19634e40b7f905c8bb5ff7f1095829b91b718532 (diff) | |
| download | gcc-17a3564142202cb76c9fede9cd489d9769f5560b.zip gcc-17a3564142202cb76c9fede9cd489d9769f5560b.tar.gz gcc-17a3564142202cb76c9fede9cd489d9769f5560b.tar.bz2 | |
[multiple changes]
2014-06-13 Ben Brosgol <brosgol@adacore.com>
* gnat_rm.texi: Minor fixes.
* gnat_ugn.texi: Added a missing "@itemize".
2014-06-13 Robert Dewar <dewar@adacore.com>
* debug.adb: Remove -gnatd.1 flag documentation.
* layout.adb (Layout_Type): Remove special handling of size
for anonymous access type.
* sem_ch3.adb (Replace_Type): Remove special handling of size
for anonymous access type.
From-SVN: r211620
Diffstat (limited to 'gcc/ada/layout.adb')
| -rw-r--r-- | gcc/ada/layout.adb | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index 7b0cdc5..52c981e 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -2462,19 +2462,6 @@ package body Layout is Set_Size_Info (E, Base_Type (E)); Set_RM_Size (E, RM_Size (Base_Type (E))); - -- Anonymous access types are always thin, because otherwise we get - -- into strange conformance problems between two types, one of which - -- can see that something is unconstrained and one of which cannot. - - elsif Ekind (E) = E_Anonymous_Access_Type - - -- For now eneable this only if debug flag -gnatd.1 is set, since - -- we have some regressions in gnatcoll that need sorting out??? - - and then Debug_Flag_Dot_1 - then - Init_Size (E, System_Address_Size); - -- For other access types, we use either address size, or, if a fat -- pointer is used (pointer-to-unconstrained array case), twice the -- address size to accommodate a fat pointer. @@ -2483,6 +2470,9 @@ package body Layout is and then Is_Array_Type (Desig_Type) and then not Is_Constrained (Desig_Type) and then not Has_Completion_In_Body (Desig_Type) + + -- Debug Flag -gnatd6 says make all pointers to unconstrained thin + and then not Debug_Flag_6 then Init_Size (E, 2 * System_Address_Size); |