From 0d3c880062c47315ef250bbf80291004a0eb0cb8 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Mon, 14 Apr 2003 21:36:35 +0000 Subject: [PATCH] stor-layout.c (layout_type, [...]): Add missing code to handle "superflat arrays" in Ada. * stor-layout.c (layout_type, case ARRAY_TYPE): Add missing code to handle "superflat arrays" in Ada. From-SVN: r65595 --- gcc/ChangeLog | 3 +++ gcc/stor-layout.c | 9 +++++++++ 2 files changed, 12 insertions(+) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 8b0dafc18f9..daec31200df 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,8 @@ 2003-04-14 Richard Kenner + * stor-layout.c (layout_type, case ARRAY_TYPE): Add missing code to + handle "superflat arrays" in Ada. + * integrate.c (expand_inline_function): Don't inline if would lose /u on a BLKmode TARGET. diff --git a/gcc/stor-layout.c b/gcc/stor-layout.c index c592fa4e401..7ebdda845d1 100644 --- a/gcc/stor-layout.c +++ b/gcc/stor-layout.c @@ -1740,6 +1740,15 @@ layout_type (type) element_size = integer_one_node; } + /* If neither bound is a constant and sizetype is signed, make + sure the size is never negative. We should really do this + if *either* bound is non-constant, but this is the best + compromise between C and Ada. */ + if (! TREE_UNSIGNED (sizetype) + && TREE_CODE (TYPE_MIN_VALUE (index)) != INTEGER_CST + && TREE_CODE (TYPE_MAX_VALUE (index)) != INTEGER_CST) + length = size_binop (MAX_EXPR, length, size_zero_node); + TYPE_SIZE (type) = size_binop (MULT_EXPR, element_size, convert (bitsizetype, length)); -- 2.30.2