From 35e530c58faddb546dcdcb83d626499c169b0320 Mon Sep 17 00:00:00 2001
From: Jason Merrill <merrill@gnu.org>
Date: Tue, 24 Jan 1995 02:52:44 +0000
Subject: [PATCH] Improve PA shlib support

From-SVN: r8792
---
 gcc/collect2.c     | 12 +++++++++---
 gcc/config/pa/pa.h |  2 ++
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/gcc/collect2.c b/gcc/collect2.c
index e46b9fa6c7b..be28cc64529 100644
--- a/gcc/collect2.c
+++ b/gcc/collect2.c
@@ -1182,16 +1182,18 @@ main (argc, argv)
 	p = q;
       }
 
-#ifdef LD_INIT_SWITCH
   /* Tell the linker that we have initializer and finalizer functions.  */
   if (shared_obj)
     {
+#ifdef LD_INIT_SWITCH
       *ld2++ = LD_INIT_SWITCH;
       *ld2++ = "_GLOBAL__DI";
+#endif
+#ifdef LD_FINI_SWITCH
       *ld2++ = LD_FINI_SWITCH;
       *ld2++ = "_GLOBAL__DD";
-    }
 #endif
+    }
 
   *c_ptr++ = c_file;
   *c_ptr = *ld1 = *ld2 = (char *)0;
@@ -1777,13 +1779,17 @@ scan_prog_file (prog_name, which_pass)
 	case 3:
 	  if (which_pass != PASS_LIB)
 	    fatal ("init function found in object %s", prog_name);
+#ifndef LD_INIT_SWITCH
 	  add_to_list (&constructors, name);
+#endif
 	  break;
 
 	case 4:
 	  if (which_pass != PASS_LIB)
-	    fatal ("init function found in object %s", prog_name);
+	    fatal ("fini function found in object %s", prog_name);
+#ifndef LD_FINI_SWITCH
 	  add_to_list (&destructors, name);
+#endif
 	  break;
 
 	default:		/* not a constructor or destructor */
diff --git a/gcc/config/pa/pa.h b/gcc/config/pa/pa.h
index 26a0ce7bebe..5ac0477ad22 100644
--- a/gcc/config/pa/pa.h
+++ b/gcc/config/pa/pa.h
@@ -252,6 +252,8 @@ do {								\
   else								\
     PTR = 0;							\
 } while (0)
+
+#define LD_INIT_SWITCH "+I"
 
 /* target machine storage layout */
 
-- 
2.30.2