Mercurial > emacs
changeset 14054:103a1b22fcd8
(unexec) [SOLARIS2]: Undo relocations performed by the
runtime linker.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 08 Jan 1996 22:29:48 +0000 |
parents | c8c5b83d9691 |
children | df451c7f6820 |
files | src/unexelf.c |
diffstat | 1 files changed, 34 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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);