OSDN Git Service

* fortran/trans-types.c (gfc_get_nodesc_array_type): Don't
authoraoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 10 Oct 2008 07:22:32 +0000 (07:22 +0000)
committeraoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 10 Oct 2008 07:22:32 +0000 (07:22 +0000)
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
gcc/fortran/trans-types.c

index e539356..340f30c 100644 (file)
@@ -1,5 +1,10 @@
 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.
 
index c3d2a91..c4c8314 100644 (file)
@@ -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;