diff options
| -rw-r--r-- | gcc/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/dwarf2out.c | 10 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g++.dg/debug/pr27657.C | 9 |
4 files changed, 28 insertions, 2 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 3c9d149c0a3..90c826f5a05 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,11 @@ 2007-01-30 Richard Guenther <rguenther@suse.de> + PR middle-end/27657 + * dwarf2out.c (reference_to_unused): Query varpool if the + variable was output. + +2007-01-30 Richard Guenther <rguenther@suse.de> + PR middle-end/30313 * passes.c (execute_one_pass): Reset in_gimple_form to not confuse non-unit-at-a-time mode. diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 6cd34355394..2968d3b3547 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -10045,8 +10045,14 @@ reference_to_unused (tree * tp, int * walk_subtrees, if (DECL_P (*tp) && ! TREE_PUBLIC (*tp) && ! TREE_USED (*tp) && ! TREE_ASM_WRITTEN (*tp)) return *tp; - else - return NULL_TREE; + else if (DECL_P (*tp) && TREE_CODE (*tp) != FUNCTION_DECL) + { + struct varpool_node *node = varpool_node (*tp); + if (!node->needed) + return *tp; + } + + return NULL_TREE; } /* Generate an RTL constant from a decl initializer INIT with decl type TYPE, diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a8ad0c5d622..be372cf48d8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2007-01-30 Richard Guenther <rguenther@suse.de> + PR middle-end/27657 + * g++.dg/debug/pr27657.C: New testcase. + +2007-01-30 Richard Guenther <rguenther@suse.de> + PR middle-end/30313 * gcc.dg/torture/pr30313.c: New testcase. diff --git a/gcc/testsuite/g++.dg/debug/pr27657.C b/gcc/testsuite/g++.dg/debug/pr27657.C new file mode 100644 index 00000000000..8351625bbf9 --- /dev/null +++ b/gcc/testsuite/g++.dg/debug/pr27657.C @@ -0,0 +1,9 @@ +/* { dg-do link } */ + +const char s[] = ""; +const char *const p = s; + +int main() +{ + return 0; +} |