diff options
| -rw-r--r-- | gcc/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/varpool.c | 8 |
2 files changed, 8 insertions, 6 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 132112c..b6b84c7 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2012-12-07 Jakub Jelinek <jakub@redhat.com> + + PR fortran/55395 + * varpool.c (varpool_remove_node): Don't drop DECL_INITIAL + for -g for any kind of debug info. + 2012-12-07 Richard Biener <rguenther@suse.de> PR tree-optimization/54886 diff --git a/gcc/varpool.c b/gcc/varpool.c index 7f4cfe7..56e23a7 100644 --- a/gcc/varpool.c +++ b/gcc/varpool.c @@ -63,12 +63,8 @@ varpool_remove_node (struct varpool_node *node) && !DECL_IN_CONSTANT_POOL (node->symbol.decl) /* Keep vtables for BINFO folding. */ && !DECL_VIRTUAL_P (node->symbol.decl) - /* dbxout output constant initializers for readonly vars. */ - && (!host_integerp (DECL_INITIAL (node->symbol.decl), 0) - || !TREE_READONLY (node->symbol.decl)) - /* dwarf2out can use most of the initializers. */ - && write_symbols != DWARF2_DEBUG - && write_symbols != VMS_AND_DWARF2_DEBUG) + /* FIXME: http://gcc.gnu.org/PR55395 */ + && debug_info_level == DINFO_LEVEL_NONE) DECL_INITIAL (node->symbol.decl) = error_mark_node; ggc_free (node); } |