* 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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index e539356..340f30c 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,10 @@
 2008-10-10  Alexandre Oliva  <aoliva@redhat.com>
 
 2008-10-10  Alexandre Oliva  <aoliva@redhat.com>
 

+       * fortran/trans-types.c (gfc_get_nodesc_array_type): Don't
+       vary types depending on debug info.
+
+2008-10-10  Alexandre Oliva  <aoliva@redhat.com>
+

        * c-gimplify.c (c_genericize): Don't refer to DECL_ASSEMBLER_NAME
        before ensuring it's already computed.
 
        * 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 c3d2a91..c4c8314 100644 (file)
--- 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);
 
   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;
 
     {
       tree gtype = etype, rtype, type_decl;