This file is part of GNU Emacs.
-GNU Emacs is free software; you can redistribute it and/or modify
+GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 3, or (at your option)
-any later version.
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
-along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-Boston, MA 02110-1301, USA.
+along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
+/*
In other words, you are welcome to use, share and improve this program.
You are forbidden to forbid anyone else to use, share and improve
what you give them. Help stamp out software-hoarding! */
#include <elf.h>
#endif
#include <sys/mman.h>
-#if defined (__sony_news) && defined (_SYSTYPE_SYSV)
+#if defined (_SYSTYPE_SYSV)
#include <sys/elf_mips.h>
#include <sym.h>
-#endif /* __sony_news && _SYSTYPE_SYSV */
+#endif /* _SYSTYPE_SYSV */
#if __sgi
#include <syms.h> /* for HDRR declaration */
#endif /* __sgi */
-#ifdef BROKEN_NOCOMBRELOC
-#include <assert.h>
-#endif
#ifndef MAP_ANON
#ifdef MAP_ANONYMOUS
int old_mdebug_index;
struct stat stat_buf;
int old_file_size;
-#ifdef BROKEN_NOCOMBRELOC
- int unreloc_sections[10], n_unreloc_sections;
-#endif
/* Open the old file, allocate a buffer of the right size, and read
in the file contents. */
section just before .bss has less-strict alignment; this
was observed between .symtab and .bss on Solaris 2.5.1
(sparc) with GCC snapshot 960602. */
-#ifdef SOLARIS_POWERPC
- /* On PPC Reference Platform running Solaris 2.5.1
- the plt section is also of type NOBI like the bss section.
- (not really stored) and therefore sections after the bss
- section start at the plt offset. The plt section is always
- the one just before the bss section.
- It would be better to put the new data section before
- the .plt section, or use libelf instead.
- Erik Deumens, deumens@qtp.ufl.edu. */
- if (NEW_SECTION_H (nn).sh_offset
- >= OLD_SECTION_H (old_bss_index-1).sh_offset)
- NEW_SECTION_H (nn).sh_offset += new_data2_size;
-#else
+
if (NEW_SECTION_H (nn).sh_offset + NEW_SECTION_H (nn).sh_size
> new_data2_offset)
NEW_SECTION_H (nn).sh_offset += new_data2_size;
-#endif
+
/* Any section that was originally placed after the section
header table should now be off by the size of one section
header table entry. */
}
#endif /* __alpha__ */
-#if defined (__sony_news) && defined (_SYSTYPE_SYSV)
+#if defined (_SYSTYPE_SYSV)
if (NEW_SECTION_H (nn).sh_type == SHT_MIPS_DEBUG
&& old_mdebug_index != -1)
{
phdr->cbExtOffset += diff;
}
}
-#endif /* __sony_news && _SYSTYPE_SYSV */
+#endif /* _SYSTYPE_SYSV */
#if __sgi
/* Adjust the HDRR offsets in .mdebug and copy the
/* This loop seeks out relocation sections for the data section, so
that it can undo relocations performed by the runtime linker. */
-#ifndef BROKEN_NOCOMBRELOC
for (n = new_file_h->e_shnum - 1; n; n--)
{
ElfW(Shdr) section = NEW_SECTION_H (n);
break;
}
}
-#else /* BROKEN_NOCOMBRELOC */
- for (n = 1, n_unreloc_sections = 0; n < new_file_h->e_shnum; n++)
- if (!strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".data")
- || !strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".sdata")
- || !strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".lit4")
- || !strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".lit8")
-#ifdef IRIX6_5 /* see above */
- || !strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".got")
-#endif
- || !strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".sdata1")
- || !strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".data1"))
- {
- assert (n_unreloc_sections
- < (sizeof (unreloc_sections) / sizeof (unreloc_sections[0])));
- unreloc_sections[n_unreloc_sections++] = n;
-#ifdef DEBUG
- fprintf (stderr, "section %d: %s\n", n,
- old_section_names + NEW_SECTION_H (n).sh_name);
-#endif
- }
-
- for (n = new_file_h->e_shnum - 1; n; n--)
- {
- ElfW(Shdr) section = NEW_SECTION_H (n);
- caddr_t reloc, end;
- ElfW(Addr) addr, offset;
- int target;
-
- 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. */
- for (reloc = old_base + section.sh_offset,
- end = reloc + section.sh_size;
- reloc < end;
- reloc += section.sh_entsize)
- {
- addr = ((ElfW(Rel) *) reloc)->r_offset;
-#ifdef __alpha__
- /* The Alpha ELF binutils currently have a bug that
- sometimes results in relocs that contain all
- zeroes. Work around this for now... */
- if (addr == 0)
- continue;
-#endif
- for (nn = 0; nn < n_unreloc_sections; nn++)
- {
- target = unreloc_sections[nn];
- if (NEW_SECTION_H (target).sh_addr <= addr
- && addr < (NEW_SECTION_H (target).sh_addr +
- NEW_SECTION_H (target).sh_size))
- {
- offset = (NEW_SECTION_H (target).sh_addr -
- NEW_SECTION_H (target).sh_offset);
- memcpy (new_base + addr - offset,
- old_base + addr - offset,
- sizeof (ElfW(Addr)));
-#ifdef DEBUG
- fprintf (stderr, "unrelocate: [%08lx] <= %08lx\n",
- (long) addr,
- (long) *((long *) (new_base + addr - offset)));
-#endif
- break;
- }
- }
- }
- break;
- }
- }
-#endif /* BROKEN_NOCOMBRELOC */
/* Write out new_file, and free the buffers. */
HCoop / bpt / emacs.git / blobdiff