From 40fbfbea4895951571325e3f83acb6d0251fde04 Mon Sep 17 00:00:00 2001
From: Michael Meissner <meissner@gcc.gnu.org>
Date: Fri, 8 Oct 1993 19:15:55 +0000
Subject: Make ROSE shared library profiling work; Use GOTOFF if possible for
 ELF.

From-SVN: r5684
---
 gcc/halfpic.c | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'gcc/halfpic.c')

diff --git a/gcc/halfpic.c b/gcc/halfpic.c
index 6447539..53ba12f 100644
--- a/gcc/halfpic.c
+++ b/gcc/halfpic.c
@@ -268,6 +268,30 @@ half_pic_declare (name)
 }
 
 
+/* Mark that an object is explicitly external.  */
+
+void
+half_pic_external (name)
+     char *name;
+{
+  struct all_refs *ptr;
+
+  if (!flag_half_pic)
+    return;
+
+  ptr = half_pic_hash (name, 0, TRUE);
+  if (!ptr)
+    return;
+
+  ptr->external_p = TRUE;
+
+#ifdef HALF_PIC_DEBUG
+  if (HALF_PIC_DEBUG)
+    fprintf (stderr, "\n========== Half_pic_external %s\n", name);
+#endif
+}
+
+
 /* Return whether an address is half-pic.  */
 
 int
-- 
cgit v1.1