diff options
author | aoliva <> | 2008-10-10 06:22:32 +0000 |
---|---|---|
committer | aoliva <> | 2008-10-10 06:22:32 +0000 |
commit | 4e62d4dbe15928e35f1cd6cb43869c0917c9ce86 (patch) | |
tree | 5b5a15e15103035096e0369237f632628710386b | |
parent | 25bcaba361235cacdf49b1bbb8f5a9e516063d8c (diff) |
* fortran/trans-types.c (gfc_get_nodesc_array_type): Don'tvar-tracking-assignments-branch-141024-trunk
vary types depending on debug info.
-rw-r--r-- | gcc/ChangeLog | 5 | ||||
-rw-r--r-- | 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,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. 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; |