aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ChangeLog6
-rw-r--r--gcc/varpool.c8
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);
}