From 8ba776817544782564c5bc710d6ddb2e3b32a0fd Mon Sep 17 00:00:00 2001 From: Franz Sirl Date: Tue, 28 Mar 2000 20:37:45 +0000 Subject: [PATCH] com.c (ffecom_decl_field): Use DECL_ALIGN for a FIELD_DECL. * com.c (ffecom_decl_field): Use DECL_ALIGN for a FIELD_DECL. (ffecom_init_0): Likewise. From-SVN: r32790 --- gcc/f/ChangeLog | 5 +++++ gcc/f/com.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 42b1085b060..0aa1ed176ef 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2000-03-28 Franz Sirl + + * com.c (ffecom_decl_field): Use DECL_ALIGN for a FIELD_DECL. + (ffecom_init_0): Likewise. + Sat Mar 25 09:12:10 2000 Richard Kenner * com.c (ffecom_tree_canonize_ptr_): Use bitsize_zero_node. diff --git a/gcc/f/com.c b/gcc/f/com.c index 5ab3d15f218..5fd24823012 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -11000,7 +11000,7 @@ ffecom_decl_field (tree context, tree prevfield, field = build_decl (FIELD_DECL, get_identifier (name), type); DECL_CONTEXT (field) = context; - DECL_FRAME_SIZE (field) = 0; + DECL_ALIGN (field) = 0; if (prevfield != NULL_TREE) TREE_CHAIN (prevfield) = field; @@ -12056,7 +12056,7 @@ ffecom_init_0 () ffecom_tree_type[i][j]); DECL_CONTEXT (ffecom_multi_fields_[i][j]) = ffecom_multi_type_node_; - DECL_FRAME_SIZE (ffecom_multi_fields_[i][j]) = 0; + DECL_ALIGN (ffecom_multi_fields_[i][j]) = 0; TREE_CHAIN (ffecom_multi_fields_[i][j]) = field; field = ffecom_multi_fields_[i][j]; }