diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-04-17 12:45:53 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-04-17 12:45:53 +0000 |
| commit | 90d6701ef8efaf2371bfa87ca70aee9ea69a9604 (patch) | |
| tree | 8ad885a75002d1b5d7a2f81eda6351af2bba7848 /gcc/ada | |
| parent | e6477eaa4d5524e7d05975188e27e7b1a148df3b (diff) | |
| download | gcc-90d6701ef8efaf2371bfa87ca70aee9ea69a9604.zip gcc-90d6701ef8efaf2371bfa87ca70aee9ea69a9604.tar.gz gcc-90d6701ef8efaf2371bfa87ca70aee9ea69a9604.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Promote the alignment of objects by default.
* decl.c (gnat_to_gnu_entity) <object>: Promote the alignment of
objects by default.
* fe.h (Debug_Flag_Dot_A): Delete.
* debug.adb (-gnatd.a): Update documentation.
From-SVN: r134390
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/debug.adb | 8 | ||||
| -rw-r--r-- | gcc/ada/decl.c | 3 | ||||
| -rw-r--r-- | gcc/ada/fe.h | 3 |
4 files changed, 9 insertions, 12 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e02847f..6bffe2a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2008-04-17 Eric Botcazou <ebotcazou@adacore.com> + + * decl.c (gnat_to_gnu_entity) <object>: Promote the alignment of + objects by default. + * fe.h (Debug_Flag_Dot_A): Delete. + * debug.adb (-gnatd.a): Update documentation. + 2008-04-17 Samuel Tardieu <sam@rfc1149.net> * g-socket.ads, g-socket.adb (Get_Address): Make Stream a diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb index 94dc219..3a6be98 100644 --- a/gcc/ada/debug.adb +++ b/gcc/ada/debug.adb @@ -93,7 +93,7 @@ package body Debug is -- dY Enable configurable run-time mode -- dZ Generate listing showing the contents of the dispatch tables - -- d.a Enable alignment promotion for non-scalar stand-alone objects + -- d.a -- d.b -- d.c -- d.d @@ -500,12 +500,6 @@ package body Debug is -- - In case of abstract subprograms the text "is abstract" is -- added at the end of the line. - -- d.a Enable alignment promotion for non-VMS targets. On VMS, by default - -- (in Optimize_Alignment (Off) mode), the alignment of stand-alone - -- objects is increased in some cases to enable the generation of - -- better code. Use of this debug flag enables this transformation - -- on non-VMS targets. - -- d.f Suppress folding of static expressions. This of course results -- in seriously non-conforming behavior, but is useful sometimes -- when tracking down handling of complex expressions. diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 2b2ec68..d127ca7 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -680,8 +680,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) size, or to the biggest meaningful one, whichever is smaller. */ if (!gnu_size && align == 0 && (Is_Atomic (gnat_entity) - || (Debug_Flag_Dot_A - && !Optimize_Alignment_Space (gnat_entity) + || (!Optimize_Alignment_Space (gnat_entity) && kind == E_Variable && AGGREGATE_TYPE_P (gnu_type) && !const_flag && No (Renamed_Object (gnat_entity)) diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h index 2a038d5..2e21af5 100644 --- a/gcc/ada/fe.h +++ b/gcc/ada/fe.h @@ -47,10 +47,7 @@ extern char Fold_Lower[], Fold_Upper[]; /* debug: */ #define Debug_Flag_NN debug__debug_flag_nn -#define Debug_Flag_Dot_A debug__debug_flag_dot_a - extern Boolean Debug_Flag_NN; -extern Boolean Debug_Flag_Dot_A; /* einfo: We will be setting Esize for types, Component_Bit_Offset for fields, Alignment for types and objects, Component_Size for array types, and |