# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 821140188 0
# Node ID 103a1b22fcd8ed70a221d0f33fdce6272e41dbcc
# Parent  c8c5b83d9691a3b31b6384383bb826a2f81853cf
(unexec) [SOLARIS2]: Undo relocations performed by the
runtime linker.

diff -r c8c5b83d9691 -r 103a1b22fcd8 src/unexelf.c
--- a/src/unexelf.c	Mon Jan 08 22:24:05 1996 +0000
+++ b/src/unexelf.c	Mon Jan 08 22:29:48 1996 +0000
@@ -807,6 +807,40 @@
 	  memcpy (&symp->st_value, &new_bss_addr, sizeof (new_bss_addr));
     }
 
+#ifdef SOLARIS2
+  /* This loop seeks out relocation sections for the data section, so
+     that it can undo relocations performed by the runtime linker.  */
+  for (n = new_file_h->e_shnum - 1; n; n--)
+    {
+      Elf32_Shdr section = NEW_SECTION_H (n);
+      switch (section.sh_type) {
+      default:
+	break;
+      case SHT_REL:
+      case SHT_RELA:
+	/* This code handles two different size structs, but there
+            should be no harm in that provided that r_offset is always
+            the first member.  */
+	nn = section.sh_info;
+	if (!strcmp (old_section_names + NEW_SECTION_H (nn).sh_name, ".data")
+	    || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
+			".data1"))
+	  {
+	    Elf32_Addr offset = NEW_SECTION_H (nn).sh_addr -
+	      NEW_SECTION_H (nn).sh_offset;
+	    caddr_t reloc = old_base + section.sh_offset, end;
+	    for (end = reloc + section.sh_size; reloc < end;
+		 reloc += section.sh_entsize)
+	      {
+		Elf32_Addr addr = ((Elf32_Rel *) reloc)->r_offset - offset;
+		memcpy (new_base + addr, old_base + addr, 4);
+	      }
+	  }
+	break;
+      }
+    }
+#endif
+
 #ifdef UNEXEC_USE_MAP_PRIVATE
   if (lseek (new_file, 0, SEEK_SET) == -1)
     fatal ("Can't rewind (%s): errno %d\n", new_name, errno);