* ldctor.c (ldctor_build_sets): Handle bfd_link_hah_defweak.

* ldexp.c (fold_name): Likewise.
	* ldlang.c (print_one_symbol): Likewise.
	(lang_finish): Likewise.
	* ldmain.c (multiple_common): Likewise.
	* ldwrite.c (print_symbol): Likewise.  Also, bfd_link_hash_weak
	renamed to bfd_link_hash_undefweak.

ld/ChangeLog

@@ -1,5 +1,13 @@
 Mon Feb  6 12:17:24 1995  Ian Lance Taylor  <ian@cygnus.com>
 
+	* ldctor.c (ldctor_build_sets): Handle bfd_link_hah_defweak.
+	* ldexp.c (fold_name): Likewise.
+	* ldlang.c (print_one_symbol): Likewise.
+	(lang_finish): Likewise.
+	* ldmain.c (multiple_common): Likewise.
+	* ldwrite.c (print_symbol): Likewise.  Also, bfd_link_hash_weak
+	renamed to bfd_link_hash_undefweak.
+
 	* scripttempl/alpha.sc: Set address of .data section correctly
 	when -n or -N is used.  Patch from Chris G Demetriou
 	<Chris_G_Demetriou@LAGAVULIN.PDL.CS.CMU.EDU>.

ld/ldlang.c

@@ -1280,7 +1280,8 @@ PTR ptr;
 {
   asection * sec = (asection *)ptr;
 
-  if (hash_entry->type == bfd_link_hash_defined) 
+  if (hash_entry->type == bfd_link_hash_defined
+      || hash_entry->type == bfd_link_hash_defweak)
     {
       if (sec == hash_entry->u.def.section) {
 	print_section ("");
@@ -2149,7 +2150,8 @@ lang_finish ()
 
   h = bfd_link_hash_lookup (link_info.hash, entry_symbol, false, false, true);
   if (h != (struct bfd_link_hash_entry *) NULL
-      && h->type == bfd_link_hash_defined)
+      && (h->type == bfd_link_hash_defined
+	  || h->type == bfd_link_hash_defweak))
     {
       bfd_vma val;
 

ld/ldmain.c

@@ -201,12 +201,20 @@ main (argc, argv)
 	einfo ("%P%F: -relax and -r may not be used together\n");
       if (config.dynamic_link)
 	einfo ("%P%F: -r and -call_shared may not be used together\n");
-      if (link_info.strip == strip_all)
-	einfo ("%P%F: -r and -s may not be used together\n");
       if (link_info.shared)
 	einfo ("%P%F: -r and -shared may not be used together\n");
     }
 
+  /* Treat ld -r -s as ld -r -S -x (i.e., strip all local symbols).  I
+     don't see how else this can be handled, since in this case we
+     must preserve all externally visible symbols.  */
+  if (link_info.relocateable && link_info.strip == strip_all)
+    {
+      link_info.strip = strip_debugger;
+      if (link_info.discard == discard_none)
+	link_info.discard = discard_all;
+    }
+
   /* This essentially adds another -L directory so this must be done after
      the -L's in argv have been processed.  */
   set_scripts_dir ();
@@ -629,19 +637,25 @@ multiple_common (info, name, obfd, otype, osize, nbfd, ntype, nsize)
   if (! config.warn_common)
     return true;
 
-  if (ntype == bfd_link_hash_defined)
+  if (ntype == bfd_link_hash_defined
+      || ntype == bfd_link_hash_defweak
+      || ntype == bfd_link_hash_indirect)
     {
       ASSERT (otype == bfd_link_hash_common);
       einfo ("%B: warning: definition of `%T' overriding common\n",
 	     nbfd, name);
-      einfo ("%B: warning: common is here\n", obfd);
+      if (obfd != NULL)
+	einfo ("%B: warning: common is here\n", obfd);
     }
-  else if (otype == bfd_link_hash_defined)
+  else if (otype == bfd_link_hash_defined
+	   || otype == bfd_link_hash_defweak
+	   || otype == bfd_link_hash_indirect)
     {
       ASSERT (ntype == bfd_link_hash_common);
       einfo ("%B: warning: common of `%T' overridden by definition\n",
 	     nbfd, name);
-      einfo ("%B: warning: defined here\n", obfd);
+      if (obfd != NULL)
+	einfo ("%B: warning: defined here\n", obfd);
     }
   else
     {
@@ -650,18 +664,21 @@ multiple_common (info, name, obfd, otype, osize, nbfd, ntype, nsize)
 	{
 	  einfo ("%B: warning: common of `%T' overridden by larger common\n",
 		 nbfd, name);
-	  einfo ("%B: warning: larger common is here\n", obfd);
+	  if (obfd != NULL)
+	    einfo ("%B: warning: larger common is here\n", obfd);
 	}
       else if (nsize > osize)
 	{
 	  einfo ("%B: warning: common of `%T' overriding smaller common\n",
 		 nbfd, name);
-	  einfo ("%B: warning: smaller common is here\n", obfd);
+	  if (obfd != NULL)
+	    einfo ("%B: warning: smaller common is here\n", obfd);
 	}
       else
 	{
 	  einfo ("%B: warning: multiple common of `%T'\n", nbfd, name);
-	  einfo ("%B: warning: previous common is here\n", obfd);
+	  if (obfd != NULL)
+	    einfo ("%B: warning: previous common is here\n", obfd);
 	}
     }