diff options
| author | Alexandre Oliva <aoliva@redhat.com> | 2009-06-05 06:09:43 +0000 |
|---|---|---|
| committer | Alexandre Oliva <aoliva@gcc.gnu.org> | 2009-06-05 06:09:43 +0000 |
| commit | d560566ab0860d1111cde7f89362a88649bc7ed1 (patch) | |
| tree | c2fae2b03526763b221c2aace7b4c09f7e54f0ed /gcc/fortran/trans-decl.c | |
| parent | faef1e6d29245f7ab50c45d52a127e29aac6f208 (diff) | |
| download | gcc-d560566ab0860d1111cde7f89362a88649bc7ed1.zip gcc-d560566ab0860d1111cde7f89362a88649bc7ed1.tar.gz gcc-d560566ab0860d1111cde7f89362a88649bc7ed1.tar.bz2 | |
trans-decl.c (gfc_build_qualified_array): Don't skip generation of range types.
* trans-decl.c (gfc_build_qualified_array): Don't skip generation
of range types.
* trans.h (struct lang_type): Add base_decls.
(GFC_TYPE_ARRAY_BASE_DECL): New.
* trans-types.c (gfc_get_array_type_bounds): Initialize base decls
proactively and excessively.
(gfc_get_array_descr_info): Use existing base decls if available.
From-SVN: r148197
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index ef6172c..cbfff29 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -713,9 +713,6 @@ gfc_build_qualified_array (tree decl, gfc_symbol * sym) layout_type (type); } - if (write_symbols == NO_DEBUG) - return; - if (TYPE_NAME (type) != NULL_TREE && GFC_TYPE_ARRAY_UBOUND (type, sym->as->rank - 1) != NULL_TREE && TREE_CODE (GFC_TYPE_ARRAY_UBOUND (type, sym->as->rank - 1)) == VAR_DECL) |