OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-types.c (gfc_get_nodesc_array_type): Don't vary types depending on debug info.

Browse Source 
* 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:
Alexandre Oliva 2008-10-10 07:22:32 +00:00 committed by Alexandre Oliva
parent fd9fffd1e9
commit 09775c40fd
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -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> 2008-10-10 Alexandre Oliva <aoliva@redhat.com>
* c-gimplify.c (c_genericize): Don't refer to DECL_ASSEMBLER_NAME * c-gimplify.c (c_genericize): Don't refer to DECL_ASSEMBLER_NAME

8
gcc/fortran/trans-types.c
View File

@ -1415,10 +1415,10 @@ gfc_get_nodesc_array_type (tree etype, gfc_array_spec * as, gfc_packed packed)
mpz_clear (stride); mpz_clear (stride);
mpz_clear (delta); mpz_clear (delta);
/* In debug info represent packed arrays as multi-dimensional /* Represent packed arrays as multi-dimensional if they have rank >
if they have rank > 1 and with proper bounds, instead of flat 1 and with proper bounds, instead of flat arrays. This makes for
arrays. */ better debug info. */
if (known_offset && write_symbols != NO_DEBUG) if (known_offset)
{ {
tree gtype = etype, rtype, type_decl; tree gtype = etype, rtype, type_decl;