* config/alpha/alpha.c (decl_has_samegp): True for !TREE_PUBLIC.

From-SVN: r61176

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 935a12c0d19398f312b33535880f42d95194fd8d..c4a95f023804d3b921562b8ef684929941730427 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-10  Richard Henderson  <rth@redhat.com>
+
+       * config/alpha/alpha.c (decl_has_samegp): True for !TREE_PUBLIC.
+
 2003-01-10  Geoffrey Keating  <geoffk@apple.com>
 
        * ggc-page.c (ggc_collect): Avoid overflow computing

diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index dbbf1103deadcbd44e4c86cd7dbdf3592d40f963..866c465fdc8908e2113c5aa87c4a5177aff6e437 100644 (file)
--- a/gcc/config/alpha/alpha.c
+++ b/gcc/config/alpha/alpha.c
@@ -1842,7 +1842,9 @@ decl_has_samegp (decl)
     return true;
 
   /* Functions that are not external are defined in this UoT.  */
-  return !DECL_EXTERNAL (decl);
+  /* ??? Irritatingly, static functions not yet emitted are still
+     marked "external".  Apply this to non-static functions only.  */
+  return !TREE_PUBLIC (decl) || !DECL_EXTERNAL (decl);
 }
 
 /* Return true if EXP should be placed in the small data section.  */