aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorJason Merrill <jason@gcc.gnu.org>2003-04-03 13:23:04 -0500
committerJason Merrill <jason@gcc.gnu.org>2003-04-03 13:23:04 -0500
commit78d55cc86ecc681c975581dd3e7e20bb5315b83a (patch)
tree48bd2ec66587d328da6da0a95a49e3ec358b2fea /gcc/ada
parentd10f5ecf5c750f3107cd6d38fb9fd13837caedfc (diff)
downloadgcc-78d55cc86ecc681c975581dd3e7e20bb5315b83a.zip
gcc-78d55cc86ecc681c975581dd3e7e20bb5315b83a.tar.gz
gcc-78d55cc86ecc681c975581dd3e7e20bb5315b83a.tar.bz2
stor-layout.c (do_type_align): New fn, split out from...
* stor-layout.c (do_type_align): New fn, split out from... (layout_decl): ...here. Do all alignment calculations for FIELD_DECLs here. (update_alignment_for_field): Not here. (start_record_layout, debug_rli): Remove unpadded_align. * tree.h (struct record_layout_info_s): Remove unpadded_align. * c-decl.c (finish_enum): Don't set DECL_SIZE, DECL_ALIGN or DECL_MODE on the CONST_DECLs. (finish_struct): Don't mess with DECL_ALIGN. * cp/class.c (build_vtable): Set DECL_ALIGN here. (get_vtable_decl): Not here. (layout_vtable_decl): Or here. (create_vtable_ptr): Or here. (layout_class_type): Or here. (check_bitfield_decl): Don't mess with field alignment. * ada/misc.c (gnat_adjust_rli): #if 0. From-SVN: r65207
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog8
-rw-r--r--gcc/ada/misc.c6
2 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5e98f50..2b8bf05 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-03 Jason Merrill <jason@redhat.com>
+
+ * misc.c (gnat_adjust_rli): #if 0.
+
2003-03-31 Geert Bosch <bosch@gnat.com>
PR ada/10020
@@ -19,8 +23,8 @@
2003-03-05 Olivier Hainque <hainque@gnat.com>
ada/9961
- * raise.c (__gnat_Unwind_RaiseException): Add prototype to avoid
- warning, and fix return type for the IN_RTS && !SJLJ case.
+ * raise.c (__gnat_Unwind_RaiseException): Add prototype to avoid
+ warning, and fix return type for the IN_RTS && !SJLJ case.
2003-03-04 Tom Tromey <tromey@redhat.com>
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c
index 1da50c3..1a5c9db 100644
--- a/gcc/ada/misc.c
+++ b/gcc/ada/misc.c
@@ -563,8 +563,11 @@ gnat_expand_expr (exp, target, tmode, modifier)
static void
gnat_adjust_rli (rli)
- record_layout_info rli;
+ record_layout_info rli ATTRIBUTE_UNUSED;
{
+#if 0
+ /* This code seems to have no actual effect; record_align should already
+ reflect the largest alignment desired by a field. jason 2003-04-01 */
unsigned int record_align = rli->unpadded_align;
tree field;
@@ -576,6 +579,7 @@ gnat_adjust_rli (rli)
if (TYPE_PACKED (rli->t))
rli->record_align = record_align;
+#endif
}
/* Make a TRANSFORM_EXPR to later expand GNAT_NODE into code. */