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
This commit is contained in:
parent
fd9fffd1e9
commit
09775c40fd
@ -1,3 +1,8 @@
|
||||
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
|
||||
|
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user