PR fortran/55395

	* varpool.c (varpool_remove_node): Don't drop DECL_INITIAL
	for -g for any kind of debug info.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194304 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 132112c..b6b84c7 100644 (file)
--- 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 (file)
--- 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);
 }