diff options
| author | Rafael Avila de Espindola <espindola@google.com> | 2009-10-28 20:44:47 +0000 |
|---|---|---|
| committer | Rafael Espindola <espindola@gcc.gnu.org> | 2009-10-28 20:44:47 +0000 |
| commit | 4d62b56ae81b7c0b86b35aeef05110bbbe4186cf (patch) | |
| tree | b9befde460bd5590ca8a9f5998d9ff8a8ad555b4 /gcc/dwarf2out.c | |
| parent | da18ea94d9c98c5a7d429e3615309fe80f8edbaf (diff) | |
| download | gcc-4d62b56ae81b7c0b86b35aeef05110bbbe4186cf.zip gcc-4d62b56ae81b7c0b86b35aeef05110bbbe4186cf.tar.gz gcc-4d62b56ae81b7c0b86b35aeef05110bbbe4186cf.tar.bz2 | |
trans-common.c (create_common): Set TREE_PUBLIC to false on fake variables.
2009-10-28 Rafael Avila de Espindola <espindola@google.com>
* trans-common.c (create_common): Set TREE_PUBLIC to false on
fake variables.
2009-10-28 Rafael Avila de Espindola <espindola@google.com>
* dbxout.c (dbxout_common_check): Accept non public trees.
* dwarf2out.c (fortran_common): Accept non public trees.
From-SVN: r153685
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 129ba7d..732b6a6 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -15621,12 +15621,11 @@ fortran_common (tree decl, HOST_WIDE_INT *value) tree offset; int volatilep = 0, unsignedp = 0; - /* If the decl isn't a VAR_DECL, or if it isn't public or static, or if + /* If the decl isn't a VAR_DECL, or if it isn't static, or if it does not have a value (the offset into the common area), or if it is thread local (as opposed to global) then it isn't common, and shouldn't be handled as such. */ if (TREE_CODE (decl) != VAR_DECL - || !TREE_PUBLIC (decl) || !TREE_STATIC (decl) || !DECL_HAS_VALUE_EXPR_P (decl) || !is_fortran ()) |