From 9807ebce926830323c21411cbaffdef520929edd Mon Sep 17 00:00:00 2001 From: aoliva Date: Fri, 10 Oct 2008 07:22:32 +0000 Subject: [PATCH] * fortran/trans-types.c (gfc_get_nodesc_array_type): Don't vary types depending on debug info. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141021 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ChangeLog | 5 +++++ gcc/fortran/trans-types.c | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index e53935627bf..340f30c7a92 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,10 @@ 2008-10-10 Alexandre Oliva + * fortran/trans-types.c (gfc_get_nodesc_array_type): Don't + vary types depending on debug info. + +2008-10-10 Alexandre Oliva + * c-gimplify.c (c_genericize): Don't refer to DECL_ASSEMBLER_NAME before ensuring it's already computed. diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index c3d2a918040..c4c83143777 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -1415,10 +1415,10 @@ gfc_get_nodesc_array_type (tree etype, gfc_array_spec * as, gfc_packed packed) mpz_clear (stride); mpz_clear (delta); - /* In debug info represent packed arrays as multi-dimensional - if they have rank > 1 and with proper bounds, instead of flat - arrays. */ - if (known_offset && write_symbols != NO_DEBUG) + /* Represent packed arrays as multi-dimensional if they have rank > + 1 and with proper bounds, instead of flat arrays. This makes for + better debug info. */ + if (known_offset) { tree gtype = etype, rtype, type_decl; -- 2.11.0