From 3181cbfdd5fddf1d6e5daa2fb48f23e216c08820 Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Mon, 13 Sep 1993 18:13:56 +0000 Subject: [PATCH] (output_constructor): Handle index value in the TREE_PURPOSE, for array constructors. From-SVN: r5314 --- gcc/varasm.c | 20 ++++++++++++++++---- 1 file changed, 16 insertions(+), 4 deletions(-) diff --git a/gcc/varasm.c b/gcc/varasm.c index e11787665b3..ea3fbb2a211 100644 --- a/gcc/varasm.c +++ b/gcc/varasm.c @@ -3040,25 +3040,37 @@ output_constructor (exp, size) field = field ? TREE_CHAIN (field) : 0) { tree val = TREE_VALUE (link); + tree index = 0; + /* the element in a union constructor specifies the proper field. */ - if (TREE_PURPOSE (link) != 0) + + if (TREE_CODE (TREE_TYPE (exp)) == RECORD_TYPE + || TREE_CODE (TREE_TYPE (exp)) == UNION_TYPE) field = TREE_PURPOSE (link); + if (TREE_CODE (TREE_TYPE (exp)) == ARRAY_TYPE) + index = TREE_PURPOSE (link); + /* Eliminate the marker that makes a cast not be an lvalue. */ if (val != 0) STRIP_NOPS (val); if (field == 0 || !DECL_BIT_FIELD (field)) { + /* An element that is not a bit-field. */ + register int fieldsize; /* Since this structure is static, we know the positions are constant. */ int bitpos = (field ? (TREE_INT_CST_LOW (DECL_FIELD_BITPOS (field)) / BITS_PER_UNIT) : 0); + if (index != 0) + bitpos = (TREE_INT_CST_LOW (TYPE_SIZE (TREE_TYPE (val))) + / BITS_PER_UNIT + * TREE_INT_CST_LOW (index)); - /* An element that is not a bit-field. - Output any buffered-up bit-fields preceding it. */ + /* Output any buffered-up bit-fields preceding this element. */ if (byte_buffer_in_use) { ASM_OUTPUT_BYTE (asm_out_file, byte); @@ -3069,7 +3081,7 @@ output_constructor (exp, size) /* Advance to offset of this element. Note no alignment needed in an array, since that is guaranteed if each element has the proper size. */ - if (field != 0 && bitpos != total_bytes) + if ((field != 0 || index != 0) && bitpos != total_bytes) { assemble_zeros (bitpos - total_bytes); total_bytes = bitpos; -- 2.30.2