From 09775c40fd00101061a4f7599403b252a05910b6 Mon Sep 17 00:00:00 2001 From: Alexandre Oliva Date: Fri, 10 Oct 2008 07:22:32 +0000 Subject: [PATCH] trans-types.c (gfc_get_nodesc_array_type): Don't vary types depending on debug info. * fortran/trans-types.c (gfc_get_nodesc_array_type): Don't vary types depending on debug info. From-SVN: r141021 --- 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,3 +1,8 @@ +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 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;