update to 25.0.92
This commit is contained in:
parent
e76854c18d
commit
90456874e2
@ -1,69 +0,0 @@
|
|||||||
From 0a97fb1992c8cc3612a2358f576f774ea1f36777 Mon Sep 17 00:00:00 2001
|
|
||||||
From: Alan Modra <amodra@gmail.com>
|
|
||||||
Date: Sun, 8 Nov 2015 09:28:59 -0800
|
|
||||||
Subject: ELF unexec: Correct section header index
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [1/10]:
|
|
||||||
|
|
||||||
ELF unexec: Correct section header index
|
|
||||||
|
|
||||||
First a small fix. The code incorrectly uses "NEW_SECTION_H (n)" when
|
|
||||||
it should have been using "NEW_SECTION_H (nn)" to find the name of the
|
|
||||||
section currently being processed. Of course, before the bss
|
|
||||||
sections, n and nn have the same value, so this doesn't matter except
|
|
||||||
in the case of .sbss. For .sbss this probably meant .bss (most likely
|
|
||||||
the next section) was copied from memory. A later patch removes the
|
|
||||||
bogus .sbss handling anyway.
|
|
||||||
|
|
||||||
* unexelf.c (unexec): Use correct index to look up names.
|
|
||||||
|
|
||||||
Origin: upstream, commit: 0bcd08ef052bca9b8d08696068c2a0c387d0dd56
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 16 ++++++++--------
|
|
||||||
1 file changed, 8 insertions(+), 8 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -1016,12 +1016,12 @@ temacs:
|
|
||||||
/* Write out the sections. .data and .data1 (and data2, called
|
|
||||||
".data" in the strings table) get copied from the current process
|
|
||||||
instead of the old file. */
|
|
||||||
- if (!strcmp (old_section_names + NEW_SECTION_H (n).sh_name, ".data")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name),
|
|
||||||
+ if (!strcmp (old_section_names + NEW_SECTION_H (nn).sh_name, ".data")
|
|
||||||
+ || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
".sdata")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name),
|
|
||||||
+ || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
".lit4")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name),
|
|
||||||
+ || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
".lit8")
|
|
||||||
/* The conditional bit below was in Oliva's original code
|
|
||||||
(1999-08-25) and seems to have been dropped by mistake
|
|
||||||
@@ -1044,14 +1044,14 @@ temacs:
|
|
||||||
loader, but I never got anywhere with an SGI support call
|
|
||||||
seeking clues. -- fx 2002-11-29. */
|
|
||||||
#ifdef IRIX6_5
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name),
|
|
||||||
+ || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
".got")
|
|
||||||
#endif
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name),
|
|
||||||
+ || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
".sdata1")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name),
|
|
||||||
+ || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
".data1")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (n).sh_name),
|
|
||||||
+ || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
".sbss"))
|
|
||||||
src = (caddr_t) OLD_SECTION_H (n).sh_addr;
|
|
||||||
else
|
|
@ -1,422 +0,0 @@
|
|||||||
From 9fa97f0c2c1afae39b6662a836910deb1e0130ad Mon Sep 17 00:00:00 2001
|
|
||||||
From: Alan Modra <amodra@gmail.com>
|
|
||||||
Date: Sun, 8 Nov 2015 09:28:59 -0800
|
|
||||||
Subject: ELF unexec: Tidy code
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [2/10]:
|
|
||||||
|
|
||||||
ELF unexec: Tidy code
|
|
||||||
|
|
||||||
Separate out some of the more mechanical changes so following patches
|
|
||||||
are smaller.
|
|
||||||
|
|
||||||
* unexelf.c (unexec): Rearrange initialisation of program
|
|
||||||
header vars. Use pointer vars in loops rather than indexing
|
|
||||||
section header array via macros. Simplify _OBJC_ sym code
|
|
||||||
and reloc handling code.
|
|
||||||
|
|
||||||
Origin: upstream, commit: 856f4eaba8a76953e0bbcfc7ebb0ca4f2e3cf351
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 210 ++++++++++++++++++++++++++--------------------------------
|
|
||||||
1 file changed, 96 insertions(+), 114 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -813,20 +813,11 @@ unexec (const char *new_name, const char
|
|
||||||
if (new_base == MAP_FAILED)
|
|
||||||
fatal ("Can't allocate buffer for %s: %s", old_name, strerror (errno));
|
|
||||||
|
|
||||||
- new_file_h = (ElfW (Ehdr) *) new_base;
|
|
||||||
- new_program_h = (ElfW (Phdr) *) ((byte *) new_base + old_file_h->e_phoff);
|
|
||||||
- new_section_h = (ElfW (Shdr) *)
|
|
||||||
- ((byte *) new_base + old_file_h->e_shoff + new_data2_incr);
|
|
||||||
-
|
|
||||||
/* Make our new file, program and section headers as copies of the
|
|
||||||
originals. */
|
|
||||||
|
|
||||||
+ new_file_h = (ElfW (Ehdr) *) new_base;
|
|
||||||
memcpy (new_file_h, old_file_h, old_file_h->e_ehsize);
|
|
||||||
- memcpy (new_program_h, old_program_h,
|
|
||||||
- old_file_h->e_phnum * old_file_h->e_phentsize);
|
|
||||||
-
|
|
||||||
- /* Modify the e_shstrndx if necessary. */
|
|
||||||
- PATCH_INDEX (new_file_h->e_shstrndx);
|
|
||||||
|
|
||||||
/* Fix up file header. We'll add one section. Section header is
|
|
||||||
further away now. */
|
|
||||||
@@ -834,6 +825,16 @@ unexec (const char *new_name, const char
|
|
||||||
new_file_h->e_shoff += new_data2_incr;
|
|
||||||
new_file_h->e_shnum += 1;
|
|
||||||
|
|
||||||
+ /* Modify the e_shstrndx if necessary. */
|
|
||||||
+ PATCH_INDEX (new_file_h->e_shstrndx);
|
|
||||||
+
|
|
||||||
+ new_program_h = (ElfW (Phdr) *) ((byte *) new_base + old_file_h->e_phoff);
|
|
||||||
+ new_section_h = (ElfW (Shdr) *)
|
|
||||||
+ ((byte *) new_base + old_file_h->e_shoff + new_data2_incr);
|
|
||||||
+
|
|
||||||
+ memcpy (new_program_h, old_program_h,
|
|
||||||
+ old_file_h->e_phnum * old_file_h->e_phentsize);
|
|
||||||
+
|
|
||||||
#ifdef UNEXELF_DEBUG
|
|
||||||
DEBUG_LOG (old_file_h->e_shoff);
|
|
||||||
fprintf (stderr, "Old section count %td\n", (ptrdiff_t) old_file_h->e_shnum);
|
|
||||||
@@ -906,32 +907,35 @@ unexec (const char *new_name, const char
|
|
||||||
for (n = 1, nn = 1; n < old_file_h->e_shnum; n++, nn++)
|
|
||||||
{
|
|
||||||
caddr_t src;
|
|
||||||
+ ElfW (Shdr) *old_shdr = &OLD_SECTION_H (n);
|
|
||||||
+ ElfW (Shdr) *new_shdr = &NEW_SECTION_H (nn);
|
|
||||||
+
|
|
||||||
/* If it is (s)bss section, insert the new data2 section before it. */
|
|
||||||
/* new_data2_index is the index of either old_sbss or old_bss, that was
|
|
||||||
chosen as a section for new_data2. */
|
|
||||||
if (n == new_data2_index)
|
|
||||||
{
|
|
||||||
/* Steal the data section header for this data2 section. */
|
|
||||||
- memcpy (&NEW_SECTION_H (nn), &OLD_SECTION_H (old_data_index),
|
|
||||||
+ memcpy (new_shdr, &OLD_SECTION_H (old_data_index),
|
|
||||||
new_file_h->e_shentsize);
|
|
||||||
|
|
||||||
- NEW_SECTION_H (nn).sh_addr = new_data2_addr;
|
|
||||||
- NEW_SECTION_H (nn).sh_offset = new_data2_offset;
|
|
||||||
- NEW_SECTION_H (nn).sh_size = new_data2_size;
|
|
||||||
+ new_shdr->sh_addr = new_data2_addr;
|
|
||||||
+ new_shdr->sh_offset = new_data2_offset;
|
|
||||||
+ new_shdr->sh_size = new_data2_size;
|
|
||||||
/* Use the bss section's alignment. This will assure that the
|
|
||||||
new data2 section always be placed in the same spot as the old
|
|
||||||
bss section by any other application. */
|
|
||||||
- NEW_SECTION_H (nn).sh_addralign = OLD_SECTION_H (n).sh_addralign;
|
|
||||||
+ new_shdr->sh_addralign = old_shdr->sh_addralign;
|
|
||||||
|
|
||||||
/* Now copy over what we have in the memory now. */
|
|
||||||
- memcpy (NEW_SECTION_H (nn).sh_offset + new_base,
|
|
||||||
- (caddr_t) OLD_SECTION_H (n).sh_addr,
|
|
||||||
+ memcpy (new_shdr->sh_offset + new_base,
|
|
||||||
+ (caddr_t) old_shdr->sh_addr,
|
|
||||||
new_data2_size);
|
|
||||||
nn++;
|
|
||||||
+ new_shdr++;
|
|
||||||
}
|
|
||||||
|
|
||||||
- memcpy (&NEW_SECTION_H (nn), &OLD_SECTION_H (n),
|
|
||||||
- old_file_h->e_shentsize);
|
|
||||||
+ memcpy (new_shdr, old_shdr, old_file_h->e_shentsize);
|
|
||||||
|
|
||||||
if (n == old_bss_index
|
|
||||||
/* The new bss and sbss section's size is zero, and its file offset
|
|
||||||
@@ -940,13 +944,13 @@ unexec (const char *new_name, const char
|
|
||||||
)
|
|
||||||
{
|
|
||||||
/* NN should be `old_s?bss_index + 1' at this point. */
|
|
||||||
- NEW_SECTION_H (nn).sh_offset = new_data2_offset + new_data2_size;
|
|
||||||
- NEW_SECTION_H (nn).sh_addr = new_data2_addr + new_data2_size;
|
|
||||||
+ new_shdr->sh_offset = new_data2_offset + new_data2_size;
|
|
||||||
+ new_shdr->sh_addr = new_data2_addr + new_data2_size;
|
|
||||||
/* Let the new bss section address alignment be the same as the
|
|
||||||
section address alignment followed the old bss section, so
|
|
||||||
this section will be placed in exactly the same place. */
|
|
||||||
- NEW_SECTION_H (nn).sh_addralign = OLD_SECTION_H (nn).sh_addralign;
|
|
||||||
- NEW_SECTION_H (nn).sh_size = 0;
|
|
||||||
+ new_shdr->sh_addralign = OLD_SECTION_H (nn).sh_addralign;
|
|
||||||
+ new_shdr->sh_size = 0;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
@@ -976,53 +980,50 @@ temacs:
|
|
||||||
25 1709 0x4 0x10
|
|
||||||
*/
|
|
||||||
|
|
||||||
- if (NEW_SECTION_H (nn).sh_offset >= old_bss_offset
|
|
||||||
- || (NEW_SECTION_H (nn).sh_offset + NEW_SECTION_H (nn).sh_size
|
|
||||||
+ if (new_shdr->sh_offset >= old_bss_offset
|
|
||||||
+ || (new_shdr->sh_offset + new_shdr->sh_size
|
|
||||||
> new_data2_offset))
|
|
||||||
- NEW_SECTION_H (nn).sh_offset += new_data2_incr;
|
|
||||||
+ new_shdr->sh_offset += new_data2_incr;
|
|
||||||
|
|
||||||
/* Any section that was originally placed after the section
|
|
||||||
header table should now be off by the size of one section
|
|
||||||
header table entry. */
|
|
||||||
- if (NEW_SECTION_H (nn).sh_offset > new_file_h->e_shoff)
|
|
||||||
- NEW_SECTION_H (nn).sh_offset += new_file_h->e_shentsize;
|
|
||||||
+ if (new_shdr->sh_offset > new_file_h->e_shoff)
|
|
||||||
+ new_shdr->sh_offset += new_file_h->e_shentsize;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* If any section hdr refers to the section after the new .data
|
|
||||||
section, make it refer to next one because we have inserted
|
|
||||||
a new section in between. */
|
|
||||||
|
|
||||||
- PATCH_INDEX (NEW_SECTION_H (nn).sh_link);
|
|
||||||
+ PATCH_INDEX (new_shdr->sh_link);
|
|
||||||
/* For symbol tables, info is a symbol table index,
|
|
||||||
so don't change it. */
|
|
||||||
- if (NEW_SECTION_H (nn).sh_type != SHT_SYMTAB
|
|
||||||
- && NEW_SECTION_H (nn).sh_type != SHT_DYNSYM)
|
|
||||||
- PATCH_INDEX (NEW_SECTION_H (nn).sh_info);
|
|
||||||
+ if (new_shdr->sh_type != SHT_SYMTAB
|
|
||||||
+ && new_shdr->sh_type != SHT_DYNSYM)
|
|
||||||
+ PATCH_INDEX (new_shdr->sh_info);
|
|
||||||
|
|
||||||
if (old_sbss_index != -1)
|
|
||||||
- if (!strcmp (old_section_names + NEW_SECTION_H (nn).sh_name, ".sbss"))
|
|
||||||
+ if (!strcmp (old_section_names + new_shdr->sh_name, ".sbss"))
|
|
||||||
{
|
|
||||||
- NEW_SECTION_H (nn).sh_offset =
|
|
||||||
- round_up (NEW_SECTION_H (nn).sh_offset,
|
|
||||||
- NEW_SECTION_H (nn).sh_addralign);
|
|
||||||
- NEW_SECTION_H (nn).sh_type = SHT_PROGBITS;
|
|
||||||
+ new_shdr->sh_offset =
|
|
||||||
+ round_up (new_shdr->sh_offset,
|
|
||||||
+ new_shdr->sh_addralign);
|
|
||||||
+ new_shdr->sh_type = SHT_PROGBITS;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Now, start to copy the content of sections. */
|
|
||||||
- if (NEW_SECTION_H (nn).sh_type == SHT_NULL
|
|
||||||
- || NEW_SECTION_H (nn).sh_type == SHT_NOBITS)
|
|
||||||
+ if (new_shdr->sh_type == SHT_NULL
|
|
||||||
+ || new_shdr->sh_type == SHT_NOBITS)
|
|
||||||
continue;
|
|
||||||
|
|
||||||
/* Write out the sections. .data and .data1 (and data2, called
|
|
||||||
".data" in the strings table) get copied from the current process
|
|
||||||
instead of the old file. */
|
|
||||||
- if (!strcmp (old_section_names + NEW_SECTION_H (nn).sh_name, ".data")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".sdata")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".lit4")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".lit8")
|
|
||||||
+ if (!strcmp (old_section_names + new_shdr->sh_name, ".data")
|
|
||||||
+ || !strcmp (old_section_names + new_shdr->sh_name, ".sdata")
|
|
||||||
+ || !strcmp (old_section_names + new_shdr->sh_name, ".lit4")
|
|
||||||
+ || !strcmp (old_section_names + new_shdr->sh_name, ".lit8")
|
|
||||||
/* The conditional bit below was in Oliva's original code
|
|
||||||
(1999-08-25) and seems to have been dropped by mistake
|
|
||||||
subsequently. It prevents a crash at startup under X in
|
|
||||||
@@ -1044,28 +1045,22 @@ temacs:
|
|
||||||
loader, but I never got anywhere with an SGI support call
|
|
||||||
seeking clues. -- fx 2002-11-29. */
|
|
||||||
#ifdef IRIX6_5
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".got")
|
|
||||||
+ || !strcmp (old_section_names + new_shdr->sh_name, ".got")
|
|
||||||
#endif
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".sdata1")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".data1")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".sbss"))
|
|
||||||
- src = (caddr_t) OLD_SECTION_H (n).sh_addr;
|
|
||||||
+ || !strcmp (old_section_names + new_shdr->sh_name, ".sdata1")
|
|
||||||
+ || !strcmp (old_section_names + new_shdr->sh_name, ".data1")
|
|
||||||
+ || !strcmp (old_section_names + new_shdr->sh_name, ".sbss"))
|
|
||||||
+ src = (caddr_t) old_shdr->sh_addr;
|
|
||||||
else
|
|
||||||
- src = old_base + OLD_SECTION_H (n).sh_offset;
|
|
||||||
+ src = old_base + old_shdr->sh_offset;
|
|
||||||
|
|
||||||
- memcpy (NEW_SECTION_H (nn).sh_offset + new_base, src,
|
|
||||||
- NEW_SECTION_H (nn).sh_size);
|
|
||||||
+ memcpy (new_shdr->sh_offset + new_base, src, new_shdr->sh_size);
|
|
||||||
|
|
||||||
#if defined __alpha__ && !defined __OpenBSD__
|
|
||||||
/* Update Alpha COFF symbol table: */
|
|
||||||
- if (strcmp (old_section_names + OLD_SECTION_H (n).sh_name, ".mdebug")
|
|
||||||
- == 0)
|
|
||||||
+ if (strcmp (old_section_names + old_shdr->sh_name, ".mdebug") == 0)
|
|
||||||
{
|
|
||||||
- pHDRR symhdr = (pHDRR) (NEW_SECTION_H (nn).sh_offset + new_base);
|
|
||||||
+ pHDRR symhdr = (pHDRR) (new_shdr->sh_offset + new_base);
|
|
||||||
|
|
||||||
symhdr->cbLineOffset += new_data2_size;
|
|
||||||
symhdr->cbDnOffset += new_data2_size;
|
|
||||||
@@ -1082,13 +1077,13 @@ temacs:
|
|
||||||
#endif /* __alpha__ && !__OpenBSD__ */
|
|
||||||
|
|
||||||
#if defined (_SYSTYPE_SYSV)
|
|
||||||
- if (NEW_SECTION_H (nn).sh_type == SHT_MIPS_DEBUG
|
|
||||||
+ if (new_shdr->sh_type == SHT_MIPS_DEBUG
|
|
||||||
&& old_mdebug_index != -1)
|
|
||||||
{
|
|
||||||
- ptrdiff_t new_offset = NEW_SECTION_H (nn).sh_offset;
|
|
||||||
+ ptrdiff_t new_offset = new_shdr->sh_offset;
|
|
||||||
ptrdiff_t old_offset = OLD_SECTION_H (old_mdebug_index).sh_offset;
|
|
||||||
ptrdiff_t diff = new_offset - old_offset;
|
|
||||||
- HDRR *phdr = (HDRR *)(NEW_SECTION_H (nn).sh_offset + new_base);
|
|
||||||
+ HDRR *phdr = (HDRR *) (new_shdr->sh_offset + new_base);
|
|
||||||
|
|
||||||
if (diff)
|
|
||||||
{
|
|
||||||
@@ -1124,8 +1119,8 @@ temacs:
|
|
||||||
n_phdrr->__fileaddr += movement; \
|
|
||||||
}
|
|
||||||
|
|
||||||
- HDRR * o_phdrr = (HDRR *)((byte *)old_base + OLD_SECTION_H (n).sh_offset);
|
|
||||||
- HDRR * n_phdrr = (HDRR *)((byte *)new_base + NEW_SECTION_H (nn).sh_offset);
|
|
||||||
+ HDRR *o_phdrr = (HDRR *) ((byte *) old_base + old_shdr->sh_offset);
|
|
||||||
+ HDRR *n_phdrr = (HDRR *) ((byte *) new_base + new_shdr->sh_offset);
|
|
||||||
unsigned movement = new_data2_size;
|
|
||||||
|
|
||||||
MDEBUGADJUST (idnMax, cbDnOffset);
|
|
||||||
@@ -1142,8 +1137,8 @@ temacs:
|
|
||||||
requires special handling. */
|
|
||||||
if (n_phdrr->cbLine > 0)
|
|
||||||
{
|
|
||||||
- if (o_phdrr->cbLineOffset > (OLD_SECTION_H (n).sh_offset
|
|
||||||
- + OLD_SECTION_H (n).sh_size))
|
|
||||||
+ if (o_phdrr->cbLineOffset > (old_shdr->sh_offset
|
|
||||||
+ + old_shdr->sh_size))
|
|
||||||
{
|
|
||||||
/* line data is in a hole in elf. do special copy and adjust
|
|
||||||
for this ld mistake.
|
|
||||||
@@ -1163,13 +1158,11 @@ temacs:
|
|
||||||
#endif /* __sgi */
|
|
||||||
|
|
||||||
/* If it is the symbol table, its st_shndx field needs to be patched. */
|
|
||||||
- if (NEW_SECTION_H (nn).sh_type == SHT_SYMTAB
|
|
||||||
- || NEW_SECTION_H (nn).sh_type == SHT_DYNSYM)
|
|
||||||
+ if (new_shdr->sh_type == SHT_SYMTAB
|
|
||||||
+ || new_shdr->sh_type == SHT_DYNSYM)
|
|
||||||
{
|
|
||||||
- ElfW (Shdr) *spt = &NEW_SECTION_H (nn);
|
|
||||||
- ptrdiff_t num = spt->sh_size / spt->sh_entsize;
|
|
||||||
- ElfW (Sym) * sym = (ElfW (Sym) *) (NEW_SECTION_H (nn).sh_offset +
|
|
||||||
- new_base);
|
|
||||||
+ ptrdiff_t num = new_shdr->sh_size / new_shdr->sh_entsize;
|
|
||||||
+ ElfW (Sym) *sym = (ElfW (Sym) *) (new_shdr->sh_offset + new_base);
|
|
||||||
for (; num--; sym++)
|
|
||||||
{
|
|
||||||
if ((sym->st_shndx == SHN_UNDEF)
|
|
||||||
@@ -1187,15 +1180,16 @@ temacs:
|
|
||||||
{
|
|
||||||
byte *symnames;
|
|
||||||
ElfW (Sym) *symp, *symendp;
|
|
||||||
+ ElfW (Shdr) *sym_shdr = &NEW_SECTION_H (n);
|
|
||||||
|
|
||||||
- if (NEW_SECTION_H (n).sh_type != SHT_DYNSYM
|
|
||||||
- && NEW_SECTION_H (n).sh_type != SHT_SYMTAB)
|
|
||||||
+ if (sym_shdr->sh_type != SHT_DYNSYM
|
|
||||||
+ && sym_shdr->sh_type != SHT_SYMTAB)
|
|
||||||
continue;
|
|
||||||
|
|
||||||
symnames = ((byte *) new_base
|
|
||||||
- + NEW_SECTION_H (NEW_SECTION_H (n).sh_link).sh_offset);
|
|
||||||
- symp = (ElfW (Sym) *) (NEW_SECTION_H (n).sh_offset + new_base);
|
|
||||||
- symendp = (ElfW (Sym) *) ((byte *)symp + NEW_SECTION_H (n).sh_size);
|
|
||||||
+ + NEW_SECTION_H (sym_shdr->sh_link).sh_offset);
|
|
||||||
+ symp = (ElfW (Sym) *) (sym_shdr->sh_offset + new_base);
|
|
||||||
+ symendp = (ElfW (Sym) *) ((byte *) symp + sym_shdr->sh_size);
|
|
||||||
|
|
||||||
for (; symp < symendp; symp ++)
|
|
||||||
{
|
|
||||||
@@ -1219,22 +1213,21 @@ temacs:
|
|
||||||
if (strncmp ((char *) (symnames + symp->st_name),
|
|
||||||
"_OBJC_", sizeof ("_OBJC_") - 1) == 0)
|
|
||||||
{
|
|
||||||
- caddr_t old, new;
|
|
||||||
+ ElfW (Shdr) *new_shdr = &NEW_SECTION_H (symp->st_shndx);
|
|
||||||
+ ptrdiff_t reladdr = symp->st_value - new_shdr->sh_addr;
|
|
||||||
+ ptrdiff_t newoff = reladdr + new_shdr->sh_offset;
|
|
||||||
|
|
||||||
- new = ((symp->st_value - NEW_SECTION_H (symp->st_shndx).sh_addr)
|
|
||||||
- + NEW_SECTION_H (symp->st_shndx).sh_offset + new_base);
|
|
||||||
/* "Unpatch" index. */
|
|
||||||
nn = symp->st_shndx;
|
|
||||||
if (nn > old_bss_index)
|
|
||||||
nn--;
|
|
||||||
if (nn == old_bss_index)
|
|
||||||
- memset (new, 0, symp->st_size);
|
|
||||||
+ memset (new_base + newoff, 0, symp->st_size);
|
|
||||||
else
|
|
||||||
{
|
|
||||||
- old = ((symp->st_value
|
|
||||||
- - NEW_SECTION_H (symp->st_shndx).sh_addr)
|
|
||||||
- + OLD_SECTION_H (nn).sh_offset + old_base);
|
|
||||||
- memcpy (new, old, symp->st_size);
|
|
||||||
+ ElfW (Shdr) *old_shdr = &OLD_SECTION_H (nn);
|
|
||||||
+ ptrdiff_t oldoff = reladdr + old_shdr->sh_offset;
|
|
||||||
+ memcpy (new_base + newoff, old_base + oldoff, symp->st_size);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
@@ -1245,13 +1238,10 @@ temacs:
|
|
||||||
that it can undo relocations performed by the runtime linker. */
|
|
||||||
for (n = new_file_h->e_shnum; 0 < --n; )
|
|
||||||
{
|
|
||||||
- ElfW (Shdr) section = NEW_SECTION_H (n);
|
|
||||||
-
|
|
||||||
- /* Cause a compilation error if anyone uses n instead of nn below. */
|
|
||||||
- #define n ((void) 0);
|
|
||||||
- n /* Prevent 'macro "n" is not used' warnings. */
|
|
||||||
+ ElfW (Shdr) *rel_shdr = &NEW_SECTION_H (n);
|
|
||||||
+ ElfW (Shdr) *shdr;
|
|
||||||
|
|
||||||
- switch (section.sh_type)
|
|
||||||
+ switch (rel_shdr->sh_type)
|
|
||||||
{
|
|
||||||
default:
|
|
||||||
break;
|
|
||||||
@@ -1260,28 +1250,22 @@ temacs:
|
|
||||||
/* 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),
|
|
||||||
- ".sdata")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".lit4")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".lit8")
|
|
||||||
+ shdr = &NEW_SECTION_H (rel_shdr->sh_info);
|
|
||||||
+ if (!strcmp (old_section_names + shdr->sh_name, ".data")
|
|
||||||
+ || !strcmp (old_section_names + shdr->sh_name, ".sdata")
|
|
||||||
+ || !strcmp (old_section_names + shdr->sh_name, ".lit4")
|
|
||||||
+ || !strcmp (old_section_names + shdr->sh_name, ".lit8")
|
|
||||||
#ifdef IRIX6_5 /* see above */
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".got")
|
|
||||||
+ || !strcmp (old_section_names + shdr->sh_name, ".got")
|
|
||||||
#endif
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".sdata1")
|
|
||||||
- || !strcmp ((old_section_names + NEW_SECTION_H (nn).sh_name),
|
|
||||||
- ".data1"))
|
|
||||||
+ || !strcmp (old_section_names + shdr->sh_name, ".sdata1")
|
|
||||||
+ || !strcmp (old_section_names + shdr->sh_name, ".data1"))
|
|
||||||
{
|
|
||||||
- ElfW (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)
|
|
||||||
+ ElfW (Addr) offset = shdr->sh_addr - shdr->sh_offset;
|
|
||||||
+ caddr_t reloc = old_base + rel_shdr->sh_offset, end;
|
|
||||||
+ for (end = reloc + rel_shdr->sh_size;
|
|
||||||
+ reloc < end;
|
|
||||||
+ reloc += rel_shdr->sh_entsize)
|
|
||||||
{
|
|
||||||
ElfW (Addr) addr = ((ElfW (Rel) *) reloc)->r_offset - offset;
|
|
||||||
#ifdef __alpha__
|
|
||||||
@@ -1296,8 +1280,6 @@ temacs:
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
-
|
|
||||||
- #undef n
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Write out new_file, and free the buffers. */
|
|
@ -1,174 +0,0 @@
|
|||||||
From 2cb9075979e413e4cc31c85d3bd830f791cc574b Mon Sep 17 00:00:00 2001
|
|
||||||
From: Alan Modra <amodra@gmail.com>
|
|
||||||
Date: Sun, 8 Nov 2015 09:28:59 -0800
|
|
||||||
Subject: ELF unexec: Merge Alpha and MIPS COFF debug handling
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [3/10]:
|
|
||||||
|
|
||||||
ELF unexec: Merge Alpha and MIPS COFF debug handling
|
|
||||||
|
|
||||||
* unexelf.c (unexec): Merge Alpha and MIPS COFF debug handling.
|
|
||||||
Don't find .mdebug section index, find the section in the loop.
|
|
||||||
Allow for unlikely possibility that .mdebug is located at sh_offset
|
|
||||||
before bss segment, by calculating move from difference in
|
|
||||||
sh_offset rather than just assuming new_data2_size. Simplify
|
|
||||||
cbLineOffset handling.
|
|
||||||
|
|
||||||
Origin: upstream, commit: 47c6e3035b8182c6436de4673473de7824ad59f1
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 96 +++++++++++++++++-----------------------------------------
|
|
||||||
1 file changed, 29 insertions(+), 67 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -660,9 +660,6 @@ unexec (const char *new_name, const char
|
|
||||||
ptrdiff_t n, nn;
|
|
||||||
ptrdiff_t old_bss_index, old_sbss_index, old_plt_index;
|
|
||||||
ptrdiff_t old_data_index, new_data2_index;
|
|
||||||
-#if defined _SYSTYPE_SYSV || defined __sgi
|
|
||||||
- ptrdiff_t old_mdebug_index;
|
|
||||||
-#endif
|
|
||||||
struct stat stat_buf;
|
|
||||||
off_t old_file_size;
|
|
||||||
int mask;
|
|
||||||
@@ -707,13 +704,6 @@ unexec (const char *new_name, const char
|
|
||||||
old_section_names = (char *) old_base
|
|
||||||
+ OLD_SECTION_H (old_file_h->e_shstrndx).sh_offset;
|
|
||||||
|
|
||||||
- /* Find the mdebug section, if any. */
|
|
||||||
-
|
|
||||||
-#if defined _SYSTYPE_SYSV || defined __sgi
|
|
||||||
- old_mdebug_index = find_section (".mdebug", old_section_names,
|
|
||||||
- old_name, old_file_h, old_section_h, 1);
|
|
||||||
-#endif
|
|
||||||
-
|
|
||||||
/* Find the old .bss section. Figure out parameters of the new
|
|
||||||
data2 and bss sections. */
|
|
||||||
|
|
||||||
@@ -1056,51 +1046,31 @@ temacs:
|
|
||||||
|
|
||||||
memcpy (new_shdr->sh_offset + new_base, src, new_shdr->sh_size);
|
|
||||||
|
|
||||||
-#if defined __alpha__ && !defined __OpenBSD__
|
|
||||||
- /* Update Alpha COFF symbol table: */
|
|
||||||
- if (strcmp (old_section_names + old_shdr->sh_name, ".mdebug") == 0)
|
|
||||||
- {
|
|
||||||
- pHDRR symhdr = (pHDRR) (new_shdr->sh_offset + new_base);
|
|
||||||
-
|
|
||||||
- symhdr->cbLineOffset += new_data2_size;
|
|
||||||
- symhdr->cbDnOffset += new_data2_size;
|
|
||||||
- symhdr->cbPdOffset += new_data2_size;
|
|
||||||
- symhdr->cbSymOffset += new_data2_size;
|
|
||||||
- symhdr->cbOptOffset += new_data2_size;
|
|
||||||
- symhdr->cbAuxOffset += new_data2_size;
|
|
||||||
- symhdr->cbSsOffset += new_data2_size;
|
|
||||||
- symhdr->cbSsExtOffset += new_data2_size;
|
|
||||||
- symhdr->cbFdOffset += new_data2_size;
|
|
||||||
- symhdr->cbRfdOffset += new_data2_size;
|
|
||||||
- symhdr->cbExtOffset += new_data2_size;
|
|
||||||
- }
|
|
||||||
-#endif /* __alpha__ && !__OpenBSD__ */
|
|
||||||
-
|
|
||||||
-#if defined (_SYSTYPE_SYSV)
|
|
||||||
- if (new_shdr->sh_type == SHT_MIPS_DEBUG
|
|
||||||
- && old_mdebug_index != -1)
|
|
||||||
+#if (defined __alpha__ && !defined __OpenBSD__) || defined _SYSTYPE_SYSV
|
|
||||||
+ /* Update Alpha and MIPS COFF debug symbol table. */
|
|
||||||
+ if (strcmp (old_section_names + new_shdr->sh_name, ".mdebug") == 0
|
|
||||||
+ && new_shdr->sh_offset - old_shdr->sh_offset != 0
|
|
||||||
+#if defined _SYSTYPE_SYSV
|
|
||||||
+ && new_shdr->sh_type == SHT_MIPS_DEBUG
|
|
||||||
+#endif
|
|
||||||
+ )
|
|
||||||
{
|
|
||||||
- ptrdiff_t new_offset = new_shdr->sh_offset;
|
|
||||||
- ptrdiff_t old_offset = OLD_SECTION_H (old_mdebug_index).sh_offset;
|
|
||||||
- ptrdiff_t diff = new_offset - old_offset;
|
|
||||||
+ ptrdiff_t diff = new_shdr->sh_offset - old_shdr->sh_offset;
|
|
||||||
HDRR *phdr = (HDRR *) (new_shdr->sh_offset + new_base);
|
|
||||||
|
|
||||||
- if (diff)
|
|
||||||
- {
|
|
||||||
- phdr->cbLineOffset += diff;
|
|
||||||
- phdr->cbDnOffset += diff;
|
|
||||||
- phdr->cbPdOffset += diff;
|
|
||||||
- phdr->cbSymOffset += diff;
|
|
||||||
- phdr->cbOptOffset += diff;
|
|
||||||
- phdr->cbAuxOffset += diff;
|
|
||||||
- phdr->cbSsOffset += diff;
|
|
||||||
- phdr->cbSsExtOffset += diff;
|
|
||||||
- phdr->cbFdOffset += diff;
|
|
||||||
- phdr->cbRfdOffset += diff;
|
|
||||||
- phdr->cbExtOffset += diff;
|
|
||||||
- }
|
|
||||||
+ phdr->cbLineOffset += diff;
|
|
||||||
+ phdr->cbDnOffset += diff;
|
|
||||||
+ phdr->cbPdOffset += diff;
|
|
||||||
+ phdr->cbSymOffset += diff;
|
|
||||||
+ phdr->cbOptOffset += diff;
|
|
||||||
+ phdr->cbAuxOffset += diff;
|
|
||||||
+ phdr->cbSsOffset += diff;
|
|
||||||
+ phdr->cbSsExtOffset += diff;
|
|
||||||
+ phdr->cbFdOffset += diff;
|
|
||||||
+ phdr->cbRfdOffset += diff;
|
|
||||||
+ phdr->cbExtOffset += diff;
|
|
||||||
}
|
|
||||||
-#endif /* _SYSTYPE_SYSV */
|
|
||||||
+#endif /* __alpha__ || _SYSTYPE_SYSV */
|
|
||||||
|
|
||||||
#if __sgi
|
|
||||||
/* Adjust the HDRR offsets in .mdebug and copy the
|
|
||||||
@@ -1111,7 +1081,8 @@ temacs:
|
|
||||||
the ld bug that gets the line table in a hole in the
|
|
||||||
elf file rather than in the .mdebug section proper.
|
|
||||||
David Anderson. davea@sgi.com Jan 16,1994. */
|
|
||||||
- if (n == old_mdebug_index)
|
|
||||||
+ if (strcmp (old_section_names + new_shdr->sh_name, ".mdebug") == 0
|
|
||||||
+ && new_shdr->sh_offset - old_shdr->sh_offset != 0)
|
|
||||||
{
|
|
||||||
#define MDEBUGADJUST(__ct,__fileaddr) \
|
|
||||||
if (n_phdrr->__ct > 0) \
|
|
||||||
@@ -1121,7 +1092,7 @@ temacs:
|
|
||||||
|
|
||||||
HDRR *o_phdrr = (HDRR *) ((byte *) old_base + old_shdr->sh_offset);
|
|
||||||
HDRR *n_phdrr = (HDRR *) ((byte *) new_base + new_shdr->sh_offset);
|
|
||||||
- unsigned movement = new_data2_size;
|
|
||||||
+ ptrdiff_t movement = new_shdr->sh_offset - old_shdr->sh_offset;
|
|
||||||
|
|
||||||
MDEBUGADJUST (idnMax, cbDnOffset);
|
|
||||||
MDEBUGADJUST (ipdMax, cbPdOffset);
|
|
||||||
@@ -1137,22 +1108,13 @@ temacs:
|
|
||||||
requires special handling. */
|
|
||||||
if (n_phdrr->cbLine > 0)
|
|
||||||
{
|
|
||||||
+ n_phdrr->cbLineOffset += movement;
|
|
||||||
+
|
|
||||||
if (o_phdrr->cbLineOffset > (old_shdr->sh_offset
|
|
||||||
+ old_shdr->sh_size))
|
|
||||||
- {
|
|
||||||
- /* line data is in a hole in elf. do special copy and adjust
|
|
||||||
- for this ld mistake.
|
|
||||||
- */
|
|
||||||
- n_phdrr->cbLineOffset += movement;
|
|
||||||
-
|
|
||||||
- memcpy (n_phdrr->cbLineOffset + new_base,
|
|
||||||
- o_phdrr->cbLineOffset + old_base, n_phdrr->cbLine);
|
|
||||||
- }
|
|
||||||
- else
|
|
||||||
- {
|
|
||||||
- /* somehow line data is in .mdebug as it is supposed to be. */
|
|
||||||
- MDEBUGADJUST (cbLine, cbLineOffset);
|
|
||||||
- }
|
|
||||||
+ /* If not covered by section, it hasn't yet been copied. */
|
|
||||||
+ memcpy (n_phdrr->cbLineOffset + new_base,
|
|
||||||
+ o_phdrr->cbLineOffset + old_base, n_phdrr->cbLine);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
#endif /* __sgi */
|
|
@ -1,50 +0,0 @@
|
|||||||
From 2776e4ffe1f4cf965a6b99201097ca7d4ee2f95c Mon Sep 17 00:00:00 2001
|
|
||||||
From: Alan Modra <amodra@gmail.com>
|
|
||||||
Date: Sun, 8 Nov 2015 09:29:00 -0800
|
|
||||||
Subject: ELF unexec: Symbol table patching
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [4/10]:
|
|
||||||
|
|
||||||
ELF unexec: Symbol table patching
|
|
||||||
|
|
||||||
No st_shndx value larger than SHN_LORESERVE should be changed.
|
|
||||||
* unexelf.c (unexec): Don't adjust any st_shndx larger than
|
|
||||||
SHN_LORESERVE. Error on SHN_XINDEX.
|
|
||||||
|
|
||||||
Origin: upstream, commit: 190b968f189cb7d06223bb39045ec9055df67f68
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 9 +++++----
|
|
||||||
1 file changed, 5 insertions(+), 4 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -1119,7 +1119,7 @@ temacs:
|
|
||||||
}
|
|
||||||
#endif /* __sgi */
|
|
||||||
|
|
||||||
- /* If it is the symbol table, its st_shndx field needs to be patched. */
|
|
||||||
+ /* Patch st_shndx field of symbol table. */
|
|
||||||
if (new_shdr->sh_type == SHT_SYMTAB
|
|
||||||
|| new_shdr->sh_type == SHT_DYNSYM)
|
|
||||||
{
|
|
||||||
@@ -1127,9 +1127,10 @@ temacs:
|
|
||||||
ElfW (Sym) *sym = (ElfW (Sym) *) (new_shdr->sh_offset + new_base);
|
|
||||||
for (; num--; sym++)
|
|
||||||
{
|
|
||||||
- if ((sym->st_shndx == SHN_UNDEF)
|
|
||||||
- || (sym->st_shndx == SHN_ABS)
|
|
||||||
- || (sym->st_shndx == SHN_COMMON))
|
|
||||||
+ if (sym->st_shndx == SHN_XINDEX)
|
|
||||||
+ fatal ("SHT_SYMTAB_SHNDX unsupported");
|
|
||||||
+ if (sym->st_shndx == SHN_UNDEF
|
|
||||||
+ || sym->st_shndx >= SHN_LORESERVE)
|
|
||||||
continue;
|
|
||||||
|
|
||||||
PATCH_INDEX (sym->st_shndx);
|
|
@ -1,70 +0,0 @@
|
|||||||
From af11708e83ab826202593ab1b9c22601c46a5056 Mon Sep 17 00:00:00 2001
|
|
||||||
From: Alan Modra <amodra@gmail.com>
|
|
||||||
Date: Sun, 8 Nov 2015 09:29:00 -0800
|
|
||||||
Subject: ELF unexec: _OBJC_ symbols in bss sections
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [5/10]:
|
|
||||||
|
|
||||||
ELF unexec: _OBJC_ symbols in bss sections
|
|
||||||
|
|
||||||
This code assumed that there was only one bss section. Rather than
|
|
||||||
checking for a particular index, check the section type. Also, handle
|
|
||||||
the possibility that the section was SHT_NOBITS originally and is
|
|
||||||
unchanged, in which case no clearing is needed (and sh_offset isn't
|
|
||||||
necessarily valid, which can lead to a wild memset).
|
|
||||||
|
|
||||||
* unexelf.c (unexec): Properly handle _OBJC_ symbols in bss sections.
|
|
||||||
|
|
||||||
Origin: upstream, commit: 3ff9fc0e8d738be5004c65c3be314af9aca68148
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 31 ++++++++++++++++++-------------
|
|
||||||
1 file changed, 18 insertions(+), 13 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -1177,20 +1177,25 @@ temacs:
|
|
||||||
"_OBJC_", sizeof ("_OBJC_") - 1) == 0)
|
|
||||||
{
|
|
||||||
ElfW (Shdr) *new_shdr = &NEW_SECTION_H (symp->st_shndx);
|
|
||||||
- ptrdiff_t reladdr = symp->st_value - new_shdr->sh_addr;
|
|
||||||
- ptrdiff_t newoff = reladdr + new_shdr->sh_offset;
|
|
||||||
-
|
|
||||||
- /* "Unpatch" index. */
|
|
||||||
- nn = symp->st_shndx;
|
|
||||||
- if (nn > old_bss_index)
|
|
||||||
- nn--;
|
|
||||||
- if (nn == old_bss_index)
|
|
||||||
- memset (new_base + newoff, 0, symp->st_size);
|
|
||||||
- else
|
|
||||||
+ if (new_shdr->sh_type != SHT_NOBITS)
|
|
||||||
{
|
|
||||||
- ElfW (Shdr) *old_shdr = &OLD_SECTION_H (nn);
|
|
||||||
- ptrdiff_t oldoff = reladdr + old_shdr->sh_offset;
|
|
||||||
- memcpy (new_base + newoff, old_base + oldoff, symp->st_size);
|
|
||||||
+ ElfW (Shdr) *old_shdr;
|
|
||||||
+ ptrdiff_t reladdr = symp->st_value - new_shdr->sh_addr;
|
|
||||||
+ ptrdiff_t newoff = reladdr + new_shdr->sh_offset;
|
|
||||||
+
|
|
||||||
+ /* "Unpatch" index. */
|
|
||||||
+ nn = symp->st_shndx;
|
|
||||||
+ if (nn > old_bss_index)
|
|
||||||
+ nn--;
|
|
||||||
+ old_shdr = &OLD_SECTION_H (nn);
|
|
||||||
+ if (old_shdr->sh_type == SHT_NOBITS)
|
|
||||||
+ memset (new_base + newoff, 0, symp->st_size);
|
|
||||||
+ else
|
|
||||||
+ {
|
|
||||||
+ ptrdiff_t oldoff = reladdr + old_shdr->sh_offset;
|
|
||||||
+ memcpy (new_base + newoff, old_base + oldoff,
|
|
||||||
+ symp->st_size);
|
|
||||||
+ }
|
|
||||||
}
|
|
||||||
}
|
|
||||||
#endif
|
|
@ -1,58 +0,0 @@
|
|||||||
From f9d91515971443b754b9c9eaac45a293d0e620c1 Mon Sep 17 00:00:00 2001
|
|
||||||
From: Alan Modra <amodra@gmail.com>
|
|
||||||
Date: Sun, 8 Nov 2015 09:29:00 -0800
|
|
||||||
Subject: ELF unexec: R_*_NONE relocs
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [6/10]:
|
|
||||||
|
|
||||||
ELF unexec: R_*_NONE relocs
|
|
||||||
|
|
||||||
These should be ignored on all targets.
|
|
||||||
|
|
||||||
* unexelf.c (unexec): Ignore R_*_NONE relocs for any target,
|
|
||||||
not just Alpha. Comment on reloc size assumption.
|
|
||||||
|
|
||||||
Origin: upstream, commit: 8285c2ab8050de218c0c06182659ee0a7b23a0f6
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 14 +++++++-------
|
|
||||||
1 file changed, 7 insertions(+), 7 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -1203,7 +1203,7 @@ temacs:
|
|
||||||
}
|
|
||||||
|
|
||||||
/* This loop seeks out relocation sections for the data section, so
|
|
||||||
- that it can undo relocations performed by the runtime linker. */
|
|
||||||
+ that it can undo relocations performed by the runtime loader. */
|
|
||||||
for (n = new_file_h->e_shnum; 0 < --n; )
|
|
||||||
{
|
|
||||||
ElfW (Shdr) *rel_shdr = &NEW_SECTION_H (n);
|
|
||||||
@@ -1236,14 +1236,14 @@ temacs:
|
|
||||||
reloc += rel_shdr->sh_entsize)
|
|
||||||
{
|
|
||||||
ElfW (Addr) addr = ((ElfW (Rel) *) reloc)->r_offset - 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... */
|
|
||||||
+ /* Ignore R_*_NONE relocs. */
|
|
||||||
if (((ElfW (Rel) *) reloc)->r_offset == 0)
|
|
||||||
continue;
|
|
||||||
-#endif
|
|
||||||
- memcpy (new_base + addr, old_base + addr, sizeof (ElfW (Addr)));
|
|
||||||
+ /* Assume reloc applies to a word.
|
|
||||||
+ ??? This is not always true, eg. TLS module/index
|
|
||||||
+ pair in .got which occupies two words. */
|
|
||||||
+ memcpy (new_base + addr, old_base + addr,
|
|
||||||
+ sizeof (ElfW (Addr)));
|
|
||||||
}
|
|
||||||
}
|
|
||||||
break;
|
|
@ -1,481 +0,0 @@
|
|||||||
From 75dc7e12d73ad8c1bf9583515e41913980883dbe Mon Sep 17 00:00:00 2001
|
|
||||||
From: Alan Modra <amodra@gmail.com>
|
|
||||||
Date: Sun, 8 Nov 2015 09:29:00 -0800
|
|
||||||
Subject: ELF unexec: Drive from PT_LOAD header rather than sections
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [7/10]:
|
|
||||||
|
|
||||||
ELF unexec: Drive from PT_LOAD header rather than sections
|
|
||||||
|
|
||||||
This rewrites bss handling in the ELF unexec code. Finding bss
|
|
||||||
sections by name results in complicated code that
|
|
||||||
- does not account for all names of possible bss sections,
|
|
||||||
- assumes specific ordering of bss sections,
|
|
||||||
- can wrongly choose a SHT_NOBITS section not in the bss segment,
|
|
||||||
- incorrectly calculates bss size (no accounting for alignment gaps),
|
|
||||||
- assumes .data and .bss are in the same segment.
|
|
||||||
|
|
||||||
All of these problems and more are solved by finding the bss segment
|
|
||||||
in PT_LOAD headers, ie. the address range included in p_memsz but not
|
|
||||||
p_filesz of the last PT_LOAD header, then matching SHT_NOBITS sections
|
|
||||||
in that address range.
|
|
||||||
|
|
||||||
* unexelf.c: Delete old ppc comment.
|
|
||||||
(OLD_PROGRAM_H): Define.
|
|
||||||
(round_up): Delete.
|
|
||||||
(unexec): Don't search for bss style sections by name. Instead,
|
|
||||||
use the last PT_LOAD header address range covered by p_memsz
|
|
||||||
but not p_filesz and match any SHT_NOBITS section in that
|
|
||||||
address range. Simplify initialisation of section header vars.
|
|
||||||
Don't assume that section headers are above bss segment. Move
|
|
||||||
copying of bss area out of section loop. Align .data2 section
|
|
||||||
to 1, since it now covers the entire bss area. For SHT_NOBITS
|
|
||||||
sections in the bss segment, leave sh_addr and sh_addralign
|
|
||||||
unchanged, but correct sh_offset. Clear memory corresponding
|
|
||||||
to SHT_NOBITS .plt section. Delete comment and hacks for
|
|
||||||
sections partly overlapping bss range now that the full range
|
|
||||||
is properly calculated. Delete now dead .sbss code.
|
|
||||||
(Bug#20614)
|
|
||||||
|
|
||||||
Origin: upstream, commit: 0d6442265e5b709af5eebedf8f0d6b82974f4c31
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 292 +++++++++++++++-------------------------------------------
|
|
||||||
1 file changed, 78 insertions(+), 214 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -535,29 +535,6 @@ verify ((! TYPE_SIGNED (ElfW (Half))
|
|
||||||
/* Get the address of a particular section or program header entry,
|
|
||||||
* accounting for the size of the entries.
|
|
||||||
*/
|
|
||||||
-/*
|
|
||||||
- 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.
|
|
||||||
- Thus, we modify the test from
|
|
||||||
- if (NEW_SECTION_H (nn).sh_offset >= new_data2_offset)
|
|
||||||
- to
|
|
||||||
- if (NEW_SECTION_H (nn).sh_offset >=
|
|
||||||
- OLD_SECTION_H (old_bss_index-1).sh_offset)
|
|
||||||
- This is just a hack. We should put the new data section
|
|
||||||
- before the .plt section.
|
|
||||||
- And we should not have this routine at all but use
|
|
||||||
- the libelf library to read the old file and create the new
|
|
||||||
- file.
|
|
||||||
- The changed code is minimal and depends on prep set in m/prep.h
|
|
||||||
- Erik Deumens
|
|
||||||
- Quantum Theory Project
|
|
||||||
- University of Florida
|
|
||||||
- deumens@qtp.ufl.edu
|
|
||||||
- Apr 23, 1996
|
|
||||||
- */
|
|
||||||
|
|
||||||
static void *
|
|
||||||
entry_address (void *section_h, ptrdiff_t idx, ptrdiff_t entsize)
|
|
||||||
@@ -570,23 +547,14 @@ entry_address (void *section_h, ptrdiff_
|
|
||||||
(*(ElfW (Shdr) *) entry_address (old_section_h, n, old_file_h->e_shentsize))
|
|
||||||
#define NEW_SECTION_H(n) \
|
|
||||||
(*(ElfW (Shdr) *) entry_address (new_section_h, n, new_file_h->e_shentsize))
|
|
||||||
+#define OLD_PROGRAM_H(n) \
|
|
||||||
+ (*(ElfW (Phdr) *) entry_address (old_program_h, n, old_file_h->e_phentsize))
|
|
||||||
#define NEW_PROGRAM_H(n) \
|
|
||||||
(*(ElfW (Phdr) *) entry_address (new_program_h, n, new_file_h->e_phentsize))
|
|
||||||
|
|
||||||
#define PATCH_INDEX(n) ((n) += old_bss_index <= (n))
|
|
||||||
typedef unsigned char byte;
|
|
||||||
|
|
||||||
-/* Round X up to a multiple of Y. */
|
|
||||||
-
|
|
||||||
-static ElfW (Addr)
|
|
||||||
-round_up (ElfW (Addr) x, ElfW (Addr) y)
|
|
||||||
-{
|
|
||||||
- ElfW (Addr) rem = x % y;
|
|
||||||
- if (rem == 0)
|
|
||||||
- return x;
|
|
||||||
- return x - rem + y;
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
/* Return the index of the section named NAME.
|
|
||||||
SECTION_NAMES, FILE_NAME and FILE_H give information
|
|
||||||
about the file we are looking in.
|
|
||||||
@@ -650,16 +618,15 @@ unexec (const char *new_name, const char
|
|
||||||
/* Point to the section name table in the old file. */
|
|
||||||
char *old_section_names;
|
|
||||||
|
|
||||||
+ ElfW (Phdr) *old_bss_seg, *new_bss_seg;
|
|
||||||
ElfW (Addr) old_bss_addr, new_bss_addr;
|
|
||||||
ElfW (Word) old_bss_size, new_data2_size;
|
|
||||||
ElfW (Off) new_data2_offset;
|
|
||||||
ElfW (Addr) new_data2_addr;
|
|
||||||
ElfW (Off) old_bss_offset;
|
|
||||||
- ElfW (Word) new_data2_incr;
|
|
||||||
|
|
||||||
ptrdiff_t n, nn;
|
|
||||||
- ptrdiff_t old_bss_index, old_sbss_index, old_plt_index;
|
|
||||||
- ptrdiff_t old_data_index, new_data2_index;
|
|
||||||
+ ptrdiff_t old_bss_index, old_data_index;
|
|
||||||
struct stat stat_buf;
|
|
||||||
off_t old_file_size;
|
|
||||||
int mask;
|
|
||||||
@@ -704,54 +671,40 @@ unexec (const char *new_name, const char
|
|
||||||
old_section_names = (char *) old_base
|
|
||||||
+ OLD_SECTION_H (old_file_h->e_shstrndx).sh_offset;
|
|
||||||
|
|
||||||
- /* Find the old .bss section. Figure out parameters of the new
|
|
||||||
- data2 and bss sections. */
|
|
||||||
-
|
|
||||||
- old_bss_index = find_section (".bss", old_section_names,
|
|
||||||
- old_name, old_file_h, old_section_h, 0);
|
|
||||||
-
|
|
||||||
- old_sbss_index = find_section (".sbss", old_section_names,
|
|
||||||
- old_name, old_file_h, old_section_h, 1);
|
|
||||||
- if (old_sbss_index != -1)
|
|
||||||
- if (OLD_SECTION_H (old_sbss_index).sh_type != SHT_NOBITS)
|
|
||||||
- old_sbss_index = -1;
|
|
||||||
-
|
|
||||||
- /* PowerPC64 has .plt in the BSS section. */
|
|
||||||
- old_plt_index = find_section (".plt", old_section_names,
|
|
||||||
- old_name, old_file_h, old_section_h, 1);
|
|
||||||
- if (old_plt_index != -1)
|
|
||||||
- if (OLD_SECTION_H (old_plt_index).sh_type != SHT_NOBITS)
|
|
||||||
- old_plt_index = -1;
|
|
||||||
-
|
|
||||||
- if (old_sbss_index == -1 && old_plt_index == -1)
|
|
||||||
- {
|
|
||||||
- old_bss_addr = OLD_SECTION_H (old_bss_index).sh_addr;
|
|
||||||
- old_bss_size = OLD_SECTION_H (old_bss_index).sh_size;
|
|
||||||
- old_bss_offset = OLD_SECTION_H (old_bss_index).sh_offset;
|
|
||||||
- new_data2_index = old_bss_index;
|
|
||||||
- }
|
|
||||||
- else if (old_plt_index != -1
|
|
||||||
- && (old_sbss_index == -1
|
|
||||||
- || (OLD_SECTION_H (old_sbss_index).sh_addr
|
|
||||||
- > OLD_SECTION_H (old_plt_index).sh_addr)))
|
|
||||||
+ /* Find the PT_LOAD header covering the highest address. This
|
|
||||||
+ segment will be where bss sections are located, past p_filesz. */
|
|
||||||
+ old_bss_seg = 0;
|
|
||||||
+ for (n = old_file_h->e_phnum; --n >= 0; )
|
|
||||||
{
|
|
||||||
- old_bss_addr = OLD_SECTION_H (old_plt_index).sh_addr;
|
|
||||||
- old_bss_size = OLD_SECTION_H (old_bss_index).sh_size
|
|
||||||
- + OLD_SECTION_H (old_plt_index).sh_size;
|
|
||||||
- if (old_sbss_index != -1)
|
|
||||||
- old_bss_size += OLD_SECTION_H (old_sbss_index).sh_size;
|
|
||||||
- old_bss_offset = OLD_SECTION_H (old_plt_index).sh_offset;
|
|
||||||
- new_data2_index = old_plt_index;
|
|
||||||
+ ElfW (Phdr) *seg = &OLD_PROGRAM_H (n);
|
|
||||||
+ if (seg->p_type == PT_LOAD
|
|
||||||
+ && (old_bss_seg == 0
|
|
||||||
+ || seg->p_vaddr > old_bss_seg->p_vaddr))
|
|
||||||
+ old_bss_seg = seg;
|
|
||||||
}
|
|
||||||
- else
|
|
||||||
+
|
|
||||||
+ /* Note that old_bss_addr may be lower than the first bss section
|
|
||||||
+ address, since the section may need aligning. */
|
|
||||||
+ old_bss_addr = old_bss_seg->p_vaddr + old_bss_seg->p_filesz;
|
|
||||||
+ old_bss_offset = old_bss_seg->p_offset + old_bss_seg->p_filesz;
|
|
||||||
+ old_bss_size = old_bss_seg->p_memsz - old_bss_seg->p_filesz;
|
|
||||||
+
|
|
||||||
+ /* Find the first bss style section in the bss segment range. */
|
|
||||||
+ old_bss_index = -1;
|
|
||||||
+ for (n = old_file_h->e_shnum; --n > 0; )
|
|
||||||
{
|
|
||||||
- old_bss_addr = OLD_SECTION_H (old_sbss_index).sh_addr;
|
|
||||||
- old_bss_size = OLD_SECTION_H (old_bss_index).sh_size
|
|
||||||
- + OLD_SECTION_H (old_sbss_index).sh_size;
|
|
||||||
- old_bss_offset = OLD_SECTION_H (old_sbss_index).sh_offset;
|
|
||||||
- new_data2_index = old_sbss_index;
|
|
||||||
+ ElfW (Shdr) *shdr = &OLD_SECTION_H (n);
|
|
||||||
+ if (shdr->sh_type == SHT_NOBITS
|
|
||||||
+ && shdr->sh_addr >= old_bss_addr
|
|
||||||
+ && shdr->sh_addr + shdr->sh_size <= old_bss_addr + old_bss_size
|
|
||||||
+ && (old_bss_index == -1
|
|
||||||
+ || OLD_SECTION_H (old_bss_index).sh_addr > shdr->sh_addr))
|
|
||||||
+ old_bss_index = n;
|
|
||||||
}
|
|
||||||
|
|
||||||
+ if (old_bss_index == -1)
|
|
||||||
+ fatal ("no bss section found");
|
|
||||||
+
|
|
||||||
/* Find the old .data section. Figure out parameters of
|
|
||||||
the new data2 and bss sections. */
|
|
||||||
|
|
||||||
@@ -762,13 +715,7 @@ unexec (const char *new_name, const char
|
|
||||||
new_bss_addr = (ElfW (Addr)) new_break;
|
|
||||||
new_data2_addr = old_bss_addr;
|
|
||||||
new_data2_size = new_bss_addr - old_bss_addr;
|
|
||||||
- new_data2_offset = OLD_SECTION_H (old_data_index).sh_offset
|
|
||||||
- + (new_data2_addr - OLD_SECTION_H (old_data_index).sh_addr);
|
|
||||||
- /* This is the amount by which the sections following the bss sections
|
|
||||||
- must be shifted in the image. It can differ from new_data2_size if
|
|
||||||
- the end of the old .data section (and thus the offset of the .bss
|
|
||||||
- section) was unaligned. */
|
|
||||||
- new_data2_incr = new_data2_size + (new_data2_offset - old_bss_offset);
|
|
||||||
+ new_data2_offset = old_bss_offset;
|
|
||||||
|
|
||||||
#ifdef UNEXELF_DEBUG
|
|
||||||
fprintf (stderr, "old_bss_index %td\n", old_bss_index);
|
|
||||||
@@ -779,7 +726,6 @@ unexec (const char *new_name, const char
|
|
||||||
DEBUG_LOG (new_data2_addr);
|
|
||||||
DEBUG_LOG (new_data2_size);
|
|
||||||
DEBUG_LOG (new_data2_offset);
|
|
||||||
- DEBUG_LOG (new_data2_incr);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
if (new_bss_addr < old_bss_addr + old_bss_size)
|
|
||||||
@@ -793,7 +739,7 @@ unexec (const char *new_name, const char
|
|
||||||
if (new_file < 0)
|
|
||||||
fatal ("Can't creat (%s): %s", new_name, strerror (errno));
|
|
||||||
|
|
||||||
- new_file_size = old_file_size + old_file_h->e_shentsize + new_data2_incr;
|
|
||||||
+ new_file_size = old_file_size + old_file_h->e_shentsize + new_data2_size;
|
|
||||||
|
|
||||||
if (ftruncate (new_file, new_file_size))
|
|
||||||
fatal ("Can't ftruncate (%s): %s", new_name, strerror (errno));
|
|
||||||
@@ -812,15 +758,15 @@ unexec (const char *new_name, const char
|
|
||||||
/* Fix up file header. We'll add one section. Section header is
|
|
||||||
further away now. */
|
|
||||||
|
|
||||||
- new_file_h->e_shoff += new_data2_incr;
|
|
||||||
+ if (new_file_h->e_shoff >= old_bss_offset)
|
|
||||||
+ new_file_h->e_shoff += new_data2_size;
|
|
||||||
new_file_h->e_shnum += 1;
|
|
||||||
|
|
||||||
/* Modify the e_shstrndx if necessary. */
|
|
||||||
PATCH_INDEX (new_file_h->e_shstrndx);
|
|
||||||
|
|
||||||
- new_program_h = (ElfW (Phdr) *) ((byte *) new_base + old_file_h->e_phoff);
|
|
||||||
- new_section_h = (ElfW (Shdr) *)
|
|
||||||
- ((byte *) new_base + old_file_h->e_shoff + new_data2_incr);
|
|
||||||
+ new_program_h = (ElfW (Phdr) *) ((byte *) new_base + new_file_h->e_phoff);
|
|
||||||
+ new_section_h = (ElfW (Shdr) *) ((byte *) new_base + new_file_h->e_shoff);
|
|
||||||
|
|
||||||
memcpy (new_program_h, old_program_h,
|
|
||||||
old_file_h->e_phnum * old_file_h->e_phentsize);
|
|
||||||
@@ -832,65 +778,21 @@ unexec (const char *new_name, const char
|
|
||||||
fprintf (stderr, "New section count %td\n", (ptrdiff_t) new_file_h->e_shnum);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
- /* Fix up a new program header. Extend the writable data segment so
|
|
||||||
- that the bss area is covered too. Find that segment by looking
|
|
||||||
- for a segment that ends just before the .bss area. Make sure
|
|
||||||
- that no segments are above the new .data2. Put a loop at the end
|
|
||||||
- to adjust the offset and address of any segment that is above
|
|
||||||
- data2, just in case we decide to allow this later. */
|
|
||||||
+ /* Fix up program header. Extend the writable data segment so
|
|
||||||
+ that the bss area is covered too. */
|
|
||||||
|
|
||||||
- for (n = new_file_h->e_phnum; --n >= 0; )
|
|
||||||
- {
|
|
||||||
- /* Compute maximum of all requirements for alignment of section. */
|
|
||||||
- ElfW (Word) alignment = (NEW_PROGRAM_H (n)).p_align;
|
|
||||||
- if ((OLD_SECTION_H (old_bss_index)).sh_addralign > alignment)
|
|
||||||
- alignment = OLD_SECTION_H (old_bss_index).sh_addralign;
|
|
||||||
-
|
|
||||||
-#ifdef __sgi
|
|
||||||
- /* According to r02kar@x4u2.desy.de (Karsten Kuenne)
|
|
||||||
- and oliva@gnu.org (Alexandre Oliva), on IRIX 5.2, we
|
|
||||||
- always get "Program segment above .bss" when dumping
|
|
||||||
- when the executable doesn't have an sbss section. */
|
|
||||||
- if (old_sbss_index != -1)
|
|
||||||
-#endif /* __sgi */
|
|
||||||
- if (NEW_PROGRAM_H (n).p_vaddr + NEW_PROGRAM_H (n).p_filesz
|
|
||||||
- > (old_sbss_index == -1
|
|
||||||
- ? old_bss_addr
|
|
||||||
- : round_up (old_bss_addr, alignment)))
|
|
||||||
- fatal ("Program segment above .bss in %s", old_name);
|
|
||||||
-
|
|
||||||
- if (NEW_PROGRAM_H (n).p_type == PT_LOAD
|
|
||||||
- && (round_up ((NEW_PROGRAM_H (n)).p_vaddr
|
|
||||||
- + (NEW_PROGRAM_H (n)).p_filesz,
|
|
||||||
- alignment)
|
|
||||||
- == round_up (old_bss_addr, alignment)))
|
|
||||||
- break;
|
|
||||||
- }
|
|
||||||
- if (n < 0)
|
|
||||||
- fatal ("Couldn't find segment next to .bss in %s", old_name);
|
|
||||||
-
|
|
||||||
- /* Make sure that the size includes any padding before the old .bss
|
|
||||||
- section. */
|
|
||||||
- NEW_PROGRAM_H (n).p_filesz = new_bss_addr - NEW_PROGRAM_H (n).p_vaddr;
|
|
||||||
- NEW_PROGRAM_H (n).p_memsz = NEW_PROGRAM_H (n).p_filesz;
|
|
||||||
-
|
|
||||||
-#if 0 /* Maybe allow section after data2 - does this ever happen? */
|
|
||||||
- for (n = new_file_h->e_phnum; --n >= 0; )
|
|
||||||
- {
|
|
||||||
- if (NEW_PROGRAM_H (n).p_vaddr
|
|
||||||
- && NEW_PROGRAM_H (n).p_vaddr >= new_data2_addr)
|
|
||||||
- NEW_PROGRAM_H (n).p_vaddr += new_data2_size - old_bss_size;
|
|
||||||
+ new_bss_seg = new_program_h + (old_bss_seg - old_program_h);
|
|
||||||
+ new_bss_seg->p_filesz = new_bss_addr - new_bss_seg->p_vaddr;
|
|
||||||
+ new_bss_seg->p_memsz = new_bss_seg->p_filesz;
|
|
||||||
|
|
||||||
- if (NEW_PROGRAM_H (n).p_offset >= new_data2_offset)
|
|
||||||
- NEW_PROGRAM_H (n).p_offset += new_data2_incr;
|
|
||||||
- }
|
|
||||||
-#endif
|
|
||||||
+ /* Copy over what we have in memory now for the bss area. */
|
|
||||||
+ memcpy (new_base + new_data2_offset, (caddr_t) old_bss_addr, new_data2_size);
|
|
||||||
|
|
||||||
/* Fix up section headers based on new .data2 section. Any section
|
|
||||||
whose offset or virtual address is after the new .data2 section
|
|
||||||
- gets its value adjusted. .bss size becomes zero and new address
|
|
||||||
- is set. data2 section header gets added by copying the existing
|
|
||||||
- .data header and modifying the offset, address and size. */
|
|
||||||
+ gets its value adjusted. .bss size becomes zero. data2 section
|
|
||||||
+ header gets added by copying the existing .data header and
|
|
||||||
+ modifying the offset, address and size. */
|
|
||||||
|
|
||||||
/* Walk through all section headers, insert the new data2 section right
|
|
||||||
before the new bss section. */
|
|
||||||
@@ -901,9 +803,7 @@ unexec (const char *new_name, const char
|
|
||||||
ElfW (Shdr) *new_shdr = &NEW_SECTION_H (nn);
|
|
||||||
|
|
||||||
/* If it is (s)bss section, insert the new data2 section before it. */
|
|
||||||
- /* new_data2_index is the index of either old_sbss or old_bss, that was
|
|
||||||
- chosen as a section for new_data2. */
|
|
||||||
- if (n == new_data2_index)
|
|
||||||
+ if (n == old_bss_index)
|
|
||||||
{
|
|
||||||
/* Steal the data section header for this data2 section. */
|
|
||||||
memcpy (new_shdr, &OLD_SECTION_H (old_data_index),
|
|
||||||
@@ -912,68 +812,43 @@ unexec (const char *new_name, const char
|
|
||||||
new_shdr->sh_addr = new_data2_addr;
|
|
||||||
new_shdr->sh_offset = new_data2_offset;
|
|
||||||
new_shdr->sh_size = new_data2_size;
|
|
||||||
- /* Use the bss section's alignment. This will assure that the
|
|
||||||
- new data2 section always be placed in the same spot as the old
|
|
||||||
- bss section by any other application. */
|
|
||||||
- new_shdr->sh_addralign = old_shdr->sh_addralign;
|
|
||||||
-
|
|
||||||
- /* Now copy over what we have in the memory now. */
|
|
||||||
- memcpy (new_shdr->sh_offset + new_base,
|
|
||||||
- (caddr_t) old_shdr->sh_addr,
|
|
||||||
- new_data2_size);
|
|
||||||
+ new_shdr->sh_addralign = 1;
|
|
||||||
nn++;
|
|
||||||
new_shdr++;
|
|
||||||
}
|
|
||||||
|
|
||||||
memcpy (new_shdr, old_shdr, old_file_h->e_shentsize);
|
|
||||||
|
|
||||||
- if (n == old_bss_index
|
|
||||||
- /* The new bss and sbss section's size is zero, and its file offset
|
|
||||||
- and virtual address should be off by NEW_DATA2_SIZE. */
|
|
||||||
- || n == old_sbss_index || n == old_plt_index
|
|
||||||
- )
|
|
||||||
+ if (new_shdr->sh_type == SHT_NOBITS
|
|
||||||
+ && new_shdr->sh_addr >= old_bss_addr
|
|
||||||
+ && (new_shdr->sh_addr + new_shdr->sh_size
|
|
||||||
+ <= old_bss_addr + old_bss_size))
|
|
||||||
{
|
|
||||||
- /* NN should be `old_s?bss_index + 1' at this point. */
|
|
||||||
- new_shdr->sh_offset = new_data2_offset + new_data2_size;
|
|
||||||
- new_shdr->sh_addr = new_data2_addr + new_data2_size;
|
|
||||||
- /* Let the new bss section address alignment be the same as the
|
|
||||||
- section address alignment followed the old bss section, so
|
|
||||||
- this section will be placed in exactly the same place. */
|
|
||||||
- new_shdr->sh_addralign = OLD_SECTION_H (nn).sh_addralign;
|
|
||||||
+ /* SHT_NOBITS sections do not need a valid sh_offset, so it
|
|
||||||
+ might be incorrect. Write the correct value. */
|
|
||||||
+ new_shdr->sh_offset = (new_shdr->sh_addr - new_bss_seg->p_vaddr
|
|
||||||
+ + new_bss_seg->p_offset);
|
|
||||||
+
|
|
||||||
+ /* If this is was a SHT_NOBITS .plt section, then it is
|
|
||||||
+ probably a PowerPC PLT. If it is PowerPC64 ELFv1 then
|
|
||||||
+ glibc ld.so doesn't initialize the toc pointer word. A
|
|
||||||
+ non-zero toc pointer word can defeat Power7 thread safety
|
|
||||||
+ during lazy update of a PLT entry. This only matters if
|
|
||||||
+ emacs becomes multi-threaded. */
|
|
||||||
+ if (strcmp (old_section_names + new_shdr->sh_name, ".plt") == 0)
|
|
||||||
+ memset (new_shdr->sh_offset + new_base, 0, new_shdr->sh_size);
|
|
||||||
+
|
|
||||||
+ /* Set the new bss and sbss section's size to zero, because
|
|
||||||
+ we've already covered this address range by .data2. */
|
|
||||||
new_shdr->sh_size = 0;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
/* Any section that was originally placed after the .bss
|
|
||||||
- section should now be off by NEW_DATA2_INCR. If a
|
|
||||||
- section overlaps the .bss section, consider it to be
|
|
||||||
- placed after the .bss section. Overlap can occur if the
|
|
||||||
- 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.
|
|
||||||
-
|
|
||||||
-> dump -h temacs
|
|
||||||
-
|
|
||||||
-temacs:
|
|
||||||
-
|
|
||||||
- **** SECTION HEADER TABLE ****
|
|
||||||
-[No] Type Flags Addr Offset Size Name
|
|
||||||
- Link Info Adralgn Entsize
|
|
||||||
-
|
|
||||||
-[22] 1 3 0x335150 0x315150 0x4 .data.rel.local
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
-[23] 8 3 0x335158 0x315158 0x42720 .bss
|
|
||||||
- 0 0 0x8 0
|
|
||||||
-
|
|
||||||
-[24] 2 0 0 0x315154 0x1c9d0 .symtab
|
|
||||||
- 25 1709 0x4 0x10
|
|
||||||
- */
|
|
||||||
-
|
|
||||||
- if (new_shdr->sh_offset >= old_bss_offset
|
|
||||||
- || (new_shdr->sh_offset + new_shdr->sh_size
|
|
||||||
- > new_data2_offset))
|
|
||||||
- new_shdr->sh_offset += new_data2_incr;
|
|
||||||
+ section should now be off by NEW_DATA2_SIZE. */
|
|
||||||
+
|
|
||||||
+ if (new_shdr->sh_offset >= old_bss_offset)
|
|
||||||
+ new_shdr->sh_offset += new_data2_size;
|
|
||||||
|
|
||||||
/* Any section that was originally placed after the section
|
|
||||||
header table should now be off by the size of one section
|
|
||||||
@@ -993,23 +868,13 @@ temacs:
|
|
||||||
&& new_shdr->sh_type != SHT_DYNSYM)
|
|
||||||
PATCH_INDEX (new_shdr->sh_info);
|
|
||||||
|
|
||||||
- if (old_sbss_index != -1)
|
|
||||||
- if (!strcmp (old_section_names + new_shdr->sh_name, ".sbss"))
|
|
||||||
- {
|
|
||||||
- new_shdr->sh_offset =
|
|
||||||
- round_up (new_shdr->sh_offset,
|
|
||||||
- new_shdr->sh_addralign);
|
|
||||||
- new_shdr->sh_type = SHT_PROGBITS;
|
|
||||||
- }
|
|
||||||
-
|
|
||||||
/* Now, start to copy the content of sections. */
|
|
||||||
if (new_shdr->sh_type == SHT_NULL
|
|
||||||
|| new_shdr->sh_type == SHT_NOBITS)
|
|
||||||
continue;
|
|
||||||
|
|
||||||
- /* Write out the sections. .data and .data1 (and data2, called
|
|
||||||
- ".data" in the strings table) get copied from the current process
|
|
||||||
- instead of the old file. */
|
|
||||||
+ /* Some sections are copied from the current process instead of
|
|
||||||
+ the old file. */
|
|
||||||
if (!strcmp (old_section_names + new_shdr->sh_name, ".data")
|
|
||||||
|| !strcmp (old_section_names + new_shdr->sh_name, ".sdata")
|
|
||||||
|| !strcmp (old_section_names + new_shdr->sh_name, ".lit4")
|
|
||||||
@@ -1038,8 +903,7 @@ temacs:
|
|
||||||
|| !strcmp (old_section_names + new_shdr->sh_name, ".got")
|
|
||||||
#endif
|
|
||||||
|| !strcmp (old_section_names + new_shdr->sh_name, ".sdata1")
|
|
||||||
- || !strcmp (old_section_names + new_shdr->sh_name, ".data1")
|
|
||||||
- || !strcmp (old_section_names + new_shdr->sh_name, ".sbss"))
|
|
||||||
+ || !strcmp (old_section_names + new_shdr->sh_name, ".data1"))
|
|
||||||
src = (caddr_t) old_shdr->sh_addr;
|
|
||||||
else
|
|
||||||
src = old_base + old_shdr->sh_offset;
|
|
@ -1,706 +0,0 @@
|
|||||||
From ee3beb72e75cdffa08b99e2f9d4829665feccb18 Mon Sep 17 00:00:00 2001
|
|
||||||
From: Alan Modra <amodra@gmail.com>
|
|
||||||
Date: Sun, 8 Nov 2015 09:29:00 -0800
|
|
||||||
Subject: ELF unexec: Don't insert a new section
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [8/10]:
|
|
||||||
|
|
||||||
ELF unexec: Don't insert a new section
|
|
||||||
|
|
||||||
Reuse the .bss section instead, making it SHT_PROGBITS. This way we
|
|
||||||
don't need to mess with symbol st_shndx, or section sh_link and
|
|
||||||
sh_info.
|
|
||||||
|
|
||||||
This does lead to eu-elflint complaints about symbols defined in .bss
|
|
||||||
with a needed version, because normally it is undefined symbols that
|
|
||||||
have needed versions; Defined symbols have version definitions.
|
|
||||||
The exception is symbols defined by the linker in .dynbss for
|
|
||||||
variables copied from a shared library in order to avoid text
|
|
||||||
relocations, with copy relocs to copy their initial values from the
|
|
||||||
shared library. These symbols are both defined and have needed
|
|
||||||
versions, and eu-elflink only expects to see them in SHT_NOBITS
|
|
||||||
sections. Of course there is no real problem with having such symbols
|
|
||||||
in SHT_PROGBITS sections. glibc ld.so handles them fine.
|
|
||||||
|
|
||||||
* unexelf.c: Delete outdated comments.
|
|
||||||
(PATCH_INDEX): Delete.
|
|
||||||
(find_section): Delete.
|
|
||||||
(unexec): Don't add a new section. Instead reuse the last bss
|
|
||||||
section, extending it to cover dumped data. Make bss sections
|
|
||||||
SHT_PROGBITS. Remove all patching of sh_link, sh_info and
|
|
||||||
st_shndx. Rename bss sections.
|
|
||||||
|
|
||||||
Origin: upstream, commit: 3008c521740c5ad46a4eaf343b438b02c25e4de5
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 526 +++++-----------------------------------------------------
|
|
||||||
1 file changed, 51 insertions(+), 475 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -40,347 +40,6 @@ what you give them. Help stamp out sof
|
|
||||||
* On some machines, an existing old_name file is required.
|
|
||||||
*
|
|
||||||
*/
|
|
||||||
-
|
|
||||||
-/* Even more heavily modified by james@bigtex.cactus.org of Dell Computer Co.
|
|
||||||
- * ELF support added.
|
|
||||||
- *
|
|
||||||
- * Basic theory: the data space of the running process needs to be
|
|
||||||
- * dumped to the output file. Normally we would just enlarge the size
|
|
||||||
- * of .data, scooting everything down. But we can't do that in ELF,
|
|
||||||
- * because there is often something between the .data space and the
|
|
||||||
- * .bss space.
|
|
||||||
- *
|
|
||||||
- * In the temacs dump below, notice that the Global Offset Table
|
|
||||||
- * (.got) and the Dynamic link data (.dynamic) come between .data1 and
|
|
||||||
- * .bss. It does not work to overlap .data with these fields.
|
|
||||||
- *
|
|
||||||
- * The solution is to create a new .data segment. This segment is
|
|
||||||
- * filled with data from the current process. Since the contents of
|
|
||||||
- * various sections refer to sections by index, the new .data segment
|
|
||||||
- * is made the last in the table to avoid changing any existing index.
|
|
||||||
-
|
|
||||||
- * This is an example of how the section headers are changed. "Addr"
|
|
||||||
- * is a process virtual address. "Offset" is a file offset.
|
|
||||||
-
|
|
||||||
-raid:/nfs/raid/src/dist-18.56/src> dump -h temacs
|
|
||||||
-
|
|
||||||
-temacs:
|
|
||||||
-
|
|
||||||
- **** SECTION HEADER TABLE ****
|
|
||||||
- [No] Type Flags Addr Offset Size Name
|
|
||||||
- Link Info Adralgn Entsize
|
|
||||||
-
|
|
||||||
- [1] 1 2 0x80480d4 0xd4 0x13 .interp
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [2] 5 2 0x80480e8 0xe8 0x388 .hash
|
|
||||||
- 3 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [3] 11 2 0x8048470 0x470 0x7f0 .dynsym
|
|
||||||
- 4 1 0x4 0x10
|
|
||||||
-
|
|
||||||
- [4] 3 2 0x8048c60 0xc60 0x3ad .dynstr
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [5] 9 2 0x8049010 0x1010 0x338 .rel.plt
|
|
||||||
- 3 7 0x4 0x8
|
|
||||||
-
|
|
||||||
- [6] 1 6 0x8049348 0x1348 0x3 .init
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [7] 1 6 0x804934c 0x134c 0x680 .plt
|
|
||||||
- 0 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [8] 1 6 0x80499cc 0x19cc 0x3c56f .text
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [9] 1 6 0x8085f3c 0x3df3c 0x3 .fini
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [10] 1 2 0x8085f40 0x3df40 0x69c .rodata
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [11] 1 2 0x80865dc 0x3e5dc 0xd51 .rodata1
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [12] 1 3 0x8088330 0x3f330 0x20afc .data
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [13] 1 3 0x80a8e2c 0x5fe2c 0x89d .data1
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [14] 1 3 0x80a96cc 0x606cc 0x1a8 .got
|
|
||||||
- 0 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [15] 6 3 0x80a9874 0x60874 0x80 .dynamic
|
|
||||||
- 4 0 0x4 0x8
|
|
||||||
-
|
|
||||||
- [16] 8 3 0x80a98f4 0x608f4 0x449c .bss
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [17] 2 0 0 0x608f4 0x9b90 .symtab
|
|
||||||
- 18 371 0x4 0x10
|
|
||||||
-
|
|
||||||
- [18] 3 0 0 0x6a484 0x8526 .strtab
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [19] 3 0 0 0x729aa 0x93 .shstrtab
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [20] 1 0 0 0x72a3d 0x68b7 .comment
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- raid:/nfs/raid/src/dist-18.56/src> dump -h xemacs
|
|
||||||
-
|
|
||||||
- xemacs:
|
|
||||||
-
|
|
||||||
- **** SECTION HEADER TABLE ****
|
|
||||||
- [No] Type Flags Addr Offset Size Name
|
|
||||||
- Link Info Adralgn Entsize
|
|
||||||
-
|
|
||||||
- [1] 1 2 0x80480d4 0xd4 0x13 .interp
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [2] 5 2 0x80480e8 0xe8 0x388 .hash
|
|
||||||
- 3 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [3] 11 2 0x8048470 0x470 0x7f0 .dynsym
|
|
||||||
- 4 1 0x4 0x10
|
|
||||||
-
|
|
||||||
- [4] 3 2 0x8048c60 0xc60 0x3ad .dynstr
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [5] 9 2 0x8049010 0x1010 0x338 .rel.plt
|
|
||||||
- 3 7 0x4 0x8
|
|
||||||
-
|
|
||||||
- [6] 1 6 0x8049348 0x1348 0x3 .init
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [7] 1 6 0x804934c 0x134c 0x680 .plt
|
|
||||||
- 0 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [8] 1 6 0x80499cc 0x19cc 0x3c56f .text
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [9] 1 6 0x8085f3c 0x3df3c 0x3 .fini
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [10] 1 2 0x8085f40 0x3df40 0x69c .rodata
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [11] 1 2 0x80865dc 0x3e5dc 0xd51 .rodata1
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [12] 1 3 0x8088330 0x3f330 0x20afc .data
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [13] 1 3 0x80a8e2c 0x5fe2c 0x89d .data1
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [14] 1 3 0x80a96cc 0x606cc 0x1a8 .got
|
|
||||||
- 0 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [15] 6 3 0x80a9874 0x60874 0x80 .dynamic
|
|
||||||
- 4 0 0x4 0x8
|
|
||||||
-
|
|
||||||
- [16] 8 3 0x80c6800 0x7d800 0 .bss
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [17] 2 0 0 0x7d800 0x9b90 .symtab
|
|
||||||
- 18 371 0x4 0x10
|
|
||||||
-
|
|
||||||
- [18] 3 0 0 0x87390 0x8526 .strtab
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [19] 3 0 0 0x8f8b6 0x93 .shstrtab
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [20] 1 0 0 0x8f949 0x68b7 .comment
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [21] 1 3 0x80a98f4 0x608f4 0x1cf0c .data
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- * This is an example of how the file header is changed. "Shoff" is
|
|
||||||
- * the section header offset within the file. Since that table is
|
|
||||||
- * after the new .data section, it is moved. "Shnum" is the number of
|
|
||||||
- * sections, which we increment.
|
|
||||||
- *
|
|
||||||
- * "Phoff" is the file offset to the program header. "Phentsize" and
|
|
||||||
- * "Shentsz" are the program and section header entries sizes respectively.
|
|
||||||
- * These can be larger than the apparent struct sizes.
|
|
||||||
-
|
|
||||||
- raid:/nfs/raid/src/dist-18.56/src> dump -f temacs
|
|
||||||
-
|
|
||||||
- temacs:
|
|
||||||
-
|
|
||||||
- **** ELF HEADER ****
|
|
||||||
- Class Data Type Machine Version
|
|
||||||
- Entry Phoff Shoff Flags Ehsize
|
|
||||||
- Phentsize Phnum Shentsz Shnum Shstrndx
|
|
||||||
-
|
|
||||||
- 1 1 2 3 1
|
|
||||||
- 0x80499cc 0x34 0x792f4 0 0x34
|
|
||||||
- 0x20 5 0x28 21 19
|
|
||||||
-
|
|
||||||
- raid:/nfs/raid/src/dist-18.56/src> dump -f xemacs
|
|
||||||
-
|
|
||||||
- xemacs:
|
|
||||||
-
|
|
||||||
- **** ELF HEADER ****
|
|
||||||
- Class Data Type Machine Version
|
|
||||||
- Entry Phoff Shoff Flags Ehsize
|
|
||||||
- Phentsize Phnum Shentsz Shnum Shstrndx
|
|
||||||
-
|
|
||||||
- 1 1 2 3 1
|
|
||||||
- 0x80499cc 0x34 0x96200 0 0x34
|
|
||||||
- 0x20 5 0x28 22 19
|
|
||||||
-
|
|
||||||
- * These are the program headers. "Offset" is the file offset to the
|
|
||||||
- * segment. "Vaddr" is the memory load address. "Filesz" is the
|
|
||||||
- * segment size as it appears in the file, and "Memsz" is the size in
|
|
||||||
- * memory. Below, the third segment is the code and the fourth is the
|
|
||||||
- * data: the difference between Filesz and Memsz is .bss
|
|
||||||
-
|
|
||||||
- raid:/nfs/raid/src/dist-18.56/src> dump -o temacs
|
|
||||||
-
|
|
||||||
- temacs:
|
|
||||||
- ***** PROGRAM EXECUTION HEADER *****
|
|
||||||
- Type Offset Vaddr Paddr
|
|
||||||
- Filesz Memsz Flags Align
|
|
||||||
-
|
|
||||||
- 6 0x34 0x8048034 0
|
|
||||||
- 0xa0 0xa0 5 0
|
|
||||||
-
|
|
||||||
- 3 0xd4 0 0
|
|
||||||
- 0x13 0 4 0
|
|
||||||
-
|
|
||||||
- 1 0x34 0x8048034 0
|
|
||||||
- 0x3f2f9 0x3f2f9 5 0x1000
|
|
||||||
-
|
|
||||||
- 1 0x3f330 0x8088330 0
|
|
||||||
- 0x215c4 0x25a60 7 0x1000
|
|
||||||
-
|
|
||||||
- 2 0x60874 0x80a9874 0
|
|
||||||
- 0x80 0 7 0
|
|
||||||
-
|
|
||||||
- raid:/nfs/raid/src/dist-18.56/src> dump -o xemacs
|
|
||||||
-
|
|
||||||
- xemacs:
|
|
||||||
- ***** PROGRAM EXECUTION HEADER *****
|
|
||||||
- Type Offset Vaddr Paddr
|
|
||||||
- Filesz Memsz Flags Align
|
|
||||||
-
|
|
||||||
- 6 0x34 0x8048034 0
|
|
||||||
- 0xa0 0xa0 5 0
|
|
||||||
-
|
|
||||||
- 3 0xd4 0 0
|
|
||||||
- 0x13 0 4 0
|
|
||||||
-
|
|
||||||
- 1 0x34 0x8048034 0
|
|
||||||
- 0x3f2f9 0x3f2f9 5 0x1000
|
|
||||||
-
|
|
||||||
- 1 0x3f330 0x8088330 0
|
|
||||||
- 0x3e4d0 0x3e4d0 7 0x1000
|
|
||||||
-
|
|
||||||
- 2 0x60874 0x80a9874 0
|
|
||||||
- 0x80 0 7 0
|
|
||||||
-
|
|
||||||
-
|
|
||||||
- */
|
|
||||||
-
|
|
||||||
-/* Modified by wtien@urbana.mcd.mot.com of Motorola Inc.
|
|
||||||
- *
|
|
||||||
- * The above mechanism does not work if the unexeced ELF file is being
|
|
||||||
- * re-layout by other applications (such as `strip'). All the applications
|
|
||||||
- * that re-layout the internal of ELF will layout all sections in ascending
|
|
||||||
- * order of their file offsets. After the re-layout, the data2 section will
|
|
||||||
- * still be the LAST section in the section header vector, but its file offset
|
|
||||||
- * is now being pushed far away down, and causes part of it not to be mapped
|
|
||||||
- * in (ie. not covered by the load segment entry in PHDR vector), therefore
|
|
||||||
- * causes the new binary to fail.
|
|
||||||
- *
|
|
||||||
- * The solution is to modify the unexec algorithm to insert the new data2
|
|
||||||
- * section header right before the new bss section header, so their file
|
|
||||||
- * offsets will be in the ascending order. Since some of the section's (all
|
|
||||||
- * sections AFTER the bss section) indexes are now changed, we also need to
|
|
||||||
- * modify some fields to make them point to the right sections. This is done
|
|
||||||
- * by macro PATCH_INDEX. All the fields that need to be patched are:
|
|
||||||
- *
|
|
||||||
- * 1. ELF header e_shstrndx field.
|
|
||||||
- * 2. section header sh_link and sh_info field.
|
|
||||||
- * 3. symbol table entry st_shndx field.
|
|
||||||
- *
|
|
||||||
- * The above example now should look like:
|
|
||||||
-
|
|
||||||
- **** SECTION HEADER TABLE ****
|
|
||||||
- [No] Type Flags Addr Offset Size Name
|
|
||||||
- Link Info Adralgn Entsize
|
|
||||||
-
|
|
||||||
- [1] 1 2 0x80480d4 0xd4 0x13 .interp
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [2] 5 2 0x80480e8 0xe8 0x388 .hash
|
|
||||||
- 3 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [3] 11 2 0x8048470 0x470 0x7f0 .dynsym
|
|
||||||
- 4 1 0x4 0x10
|
|
||||||
-
|
|
||||||
- [4] 3 2 0x8048c60 0xc60 0x3ad .dynstr
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [5] 9 2 0x8049010 0x1010 0x338 .rel.plt
|
|
||||||
- 3 7 0x4 0x8
|
|
||||||
-
|
|
||||||
- [6] 1 6 0x8049348 0x1348 0x3 .init
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [7] 1 6 0x804934c 0x134c 0x680 .plt
|
|
||||||
- 0 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [8] 1 6 0x80499cc 0x19cc 0x3c56f .text
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [9] 1 6 0x8085f3c 0x3df3c 0x3 .fini
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [10] 1 2 0x8085f40 0x3df40 0x69c .rodata
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [11] 1 2 0x80865dc 0x3e5dc 0xd51 .rodata1
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [12] 1 3 0x8088330 0x3f330 0x20afc .data
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [13] 1 3 0x80a8e2c 0x5fe2c 0x89d .data1
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [14] 1 3 0x80a96cc 0x606cc 0x1a8 .got
|
|
||||||
- 0 0 0x4 0x4
|
|
||||||
-
|
|
||||||
- [15] 6 3 0x80a9874 0x60874 0x80 .dynamic
|
|
||||||
- 4 0 0x4 0x8
|
|
||||||
-
|
|
||||||
- [16] 1 3 0x80a98f4 0x608f4 0x1cf0c .data
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [17] 8 3 0x80c6800 0x7d800 0 .bss
|
|
||||||
- 0 0 0x4 0
|
|
||||||
-
|
|
||||||
- [18] 2 0 0 0x7d800 0x9b90 .symtab
|
|
||||||
- 19 371 0x4 0x10
|
|
||||||
-
|
|
||||||
- [19] 3 0 0 0x87390 0x8526 .strtab
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [20] 3 0 0 0x8f8b6 0x93 .shstrtab
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- [21] 1 0 0 0x8f949 0x68b7 .comment
|
|
||||||
- 0 0 0x1 0
|
|
||||||
-
|
|
||||||
- */
|
|
||||||
|
|
||||||
/* We do not use mmap because that fails with NFS.
|
|
||||||
Instead we read the whole file, modify it, and write it out. */
|
|
||||||
@@ -552,45 +211,15 @@ entry_address (void *section_h, ptrdiff_
|
|
||||||
#define NEW_PROGRAM_H(n) \
|
|
||||||
(*(ElfW (Phdr) *) entry_address (new_program_h, n, new_file_h->e_phentsize))
|
|
||||||
|
|
||||||
-#define PATCH_INDEX(n) ((n) += old_bss_index <= (n))
|
|
||||||
typedef unsigned char byte;
|
|
||||||
|
|
||||||
-/* Return the index of the section named NAME.
|
|
||||||
- SECTION_NAMES, FILE_NAME and FILE_H give information
|
|
||||||
- about the file we are looking in.
|
|
||||||
-
|
|
||||||
- If we don't find the section NAME, that is a fatal error
|
|
||||||
- if NOERROR is false; return -1 if NOERROR is true. */
|
|
||||||
-
|
|
||||||
-static ptrdiff_t
|
|
||||||
-find_section (const char *name, const char *section_names, const char *file_name,
|
|
||||||
- ElfW (Ehdr) *old_file_h, ElfW (Shdr) *old_section_h,
|
|
||||||
- bool noerror)
|
|
||||||
-{
|
|
||||||
- ptrdiff_t idx;
|
|
||||||
-
|
|
||||||
- for (idx = 1; idx < old_file_h->e_shnum; idx++)
|
|
||||||
- {
|
|
||||||
- char const *found_name = section_names + OLD_SECTION_H (idx).sh_name;
|
|
||||||
-#ifdef UNEXELF_DEBUG
|
|
||||||
- fprintf (stderr, "Looking for %s - found %s\n", name, found_name);
|
|
||||||
-#endif
|
|
||||||
- if (strcmp (name, found_name) == 0)
|
|
||||||
- return idx;
|
|
||||||
- }
|
|
||||||
-
|
|
||||||
- if (! noerror)
|
|
||||||
- fatal ("Can't find %s in %s", name, file_name);
|
|
||||||
- return -1;
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
/* ****************************************************************
|
|
||||||
* unexec
|
|
||||||
*
|
|
||||||
* driving logic.
|
|
||||||
*
|
|
||||||
- * In ELF, this works by replacing the old .bss section with a new
|
|
||||||
- * .data section, and inserting an empty .bss immediately afterwards.
|
|
||||||
+ * In ELF, this works by replacing the old bss SHT_NOBITS section with
|
|
||||||
+ * a new, larger, SHT_PROGBITS section.
|
|
||||||
*
|
|
||||||
*/
|
|
||||||
void
|
|
||||||
@@ -615,18 +244,16 @@ unexec (const char *new_name, const char
|
|
||||||
ElfW (Phdr) *old_program_h, *new_program_h;
|
|
||||||
ElfW (Shdr) *old_section_h, *new_section_h;
|
|
||||||
|
|
||||||
- /* Point to the section name table in the old file. */
|
|
||||||
- char *old_section_names;
|
|
||||||
+ /* Point to the section name table. */
|
|
||||||
+ char *old_section_names, *new_section_names;
|
|
||||||
|
|
||||||
ElfW (Phdr) *old_bss_seg, *new_bss_seg;
|
|
||||||
ElfW (Addr) old_bss_addr, new_bss_addr;
|
|
||||||
ElfW (Word) old_bss_size, new_data2_size;
|
|
||||||
- ElfW (Off) new_data2_offset;
|
|
||||||
- ElfW (Addr) new_data2_addr;
|
|
||||||
- ElfW (Off) old_bss_offset;
|
|
||||||
+ ElfW (Off) old_bss_offset, new_data2_offset;
|
|
||||||
|
|
||||||
- ptrdiff_t n, nn;
|
|
||||||
- ptrdiff_t old_bss_index, old_data_index;
|
|
||||||
+ ptrdiff_t n;
|
|
||||||
+ ptrdiff_t old_bss_index;
|
|
||||||
struct stat stat_buf;
|
|
||||||
off_t old_file_size;
|
|
||||||
int mask;
|
|
||||||
@@ -689,7 +316,7 @@ unexec (const char *new_name, const char
|
|
||||||
old_bss_offset = old_bss_seg->p_offset + old_bss_seg->p_filesz;
|
|
||||||
old_bss_size = old_bss_seg->p_memsz - old_bss_seg->p_filesz;
|
|
||||||
|
|
||||||
- /* Find the first bss style section in the bss segment range. */
|
|
||||||
+ /* Find the last bss style section in the bss segment range. */
|
|
||||||
old_bss_index = -1;
|
|
||||||
for (n = old_file_h->e_shnum; --n > 0; )
|
|
||||||
{
|
|
||||||
@@ -698,22 +325,15 @@ unexec (const char *new_name, const char
|
|
||||||
&& shdr->sh_addr >= old_bss_addr
|
|
||||||
&& shdr->sh_addr + shdr->sh_size <= old_bss_addr + old_bss_size
|
|
||||||
&& (old_bss_index == -1
|
|
||||||
- || OLD_SECTION_H (old_bss_index).sh_addr > shdr->sh_addr))
|
|
||||||
+ || OLD_SECTION_H (old_bss_index).sh_addr < shdr->sh_addr))
|
|
||||||
old_bss_index = n;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (old_bss_index == -1)
|
|
||||||
fatal ("no bss section found");
|
|
||||||
|
|
||||||
- /* Find the old .data section. Figure out parameters of
|
|
||||||
- the new data2 and bss sections. */
|
|
||||||
-
|
|
||||||
- old_data_index = find_section (".data", old_section_names,
|
|
||||||
- old_name, old_file_h, old_section_h, 0);
|
|
||||||
-
|
|
||||||
new_break = sbrk (0);
|
|
||||||
new_bss_addr = (ElfW (Addr)) new_break;
|
|
||||||
- new_data2_addr = old_bss_addr;
|
|
||||||
new_data2_size = new_bss_addr - old_bss_addr;
|
|
||||||
new_data2_offset = old_bss_offset;
|
|
||||||
|
|
||||||
@@ -723,7 +343,6 @@ unexec (const char *new_name, const char
|
|
||||||
DEBUG_LOG (old_bss_size);
|
|
||||||
DEBUG_LOG (old_bss_offset);
|
|
||||||
DEBUG_LOG (new_bss_addr);
|
|
||||||
- DEBUG_LOG (new_data2_addr);
|
|
||||||
DEBUG_LOG (new_data2_size);
|
|
||||||
DEBUG_LOG (new_data2_offset);
|
|
||||||
#endif
|
|
||||||
@@ -739,7 +358,7 @@ unexec (const char *new_name, const char
|
|
||||||
if (new_file < 0)
|
|
||||||
fatal ("Can't creat (%s): %s", new_name, strerror (errno));
|
|
||||||
|
|
||||||
- new_file_size = old_file_size + old_file_h->e_shentsize + new_data2_size;
|
|
||||||
+ new_file_size = old_file_size + new_data2_size;
|
|
||||||
|
|
||||||
if (ftruncate (new_file, new_file_size))
|
|
||||||
fatal ("Can't ftruncate (%s): %s", new_name, strerror (errno));
|
|
||||||
@@ -755,21 +374,18 @@ unexec (const char *new_name, const char
|
|
||||||
new_file_h = (ElfW (Ehdr) *) new_base;
|
|
||||||
memcpy (new_file_h, old_file_h, old_file_h->e_ehsize);
|
|
||||||
|
|
||||||
- /* Fix up file header. We'll add one section. Section header is
|
|
||||||
- further away now. */
|
|
||||||
+ /* Fix up file header. Section header is further away now. */
|
|
||||||
|
|
||||||
if (new_file_h->e_shoff >= old_bss_offset)
|
|
||||||
new_file_h->e_shoff += new_data2_size;
|
|
||||||
- new_file_h->e_shnum += 1;
|
|
||||||
-
|
|
||||||
- /* Modify the e_shstrndx if necessary. */
|
|
||||||
- PATCH_INDEX (new_file_h->e_shstrndx);
|
|
||||||
|
|
||||||
new_program_h = (ElfW (Phdr) *) ((byte *) new_base + new_file_h->e_phoff);
|
|
||||||
new_section_h = (ElfW (Shdr) *) ((byte *) new_base + new_file_h->e_shoff);
|
|
||||||
|
|
||||||
memcpy (new_program_h, old_program_h,
|
|
||||||
old_file_h->e_phnum * old_file_h->e_phentsize);
|
|
||||||
+ memcpy (new_section_h, old_section_h,
|
|
||||||
+ old_file_h->e_shnum * old_file_h->e_shentsize);
|
|
||||||
|
|
||||||
#ifdef UNEXELF_DEBUG
|
|
||||||
DEBUG_LOG (old_file_h->e_shoff);
|
|
||||||
@@ -788,42 +404,21 @@ unexec (const char *new_name, const char
|
|
||||||
/* Copy over what we have in memory now for the bss area. */
|
|
||||||
memcpy (new_base + new_data2_offset, (caddr_t) old_bss_addr, new_data2_size);
|
|
||||||
|
|
||||||
- /* Fix up section headers based on new .data2 section. Any section
|
|
||||||
- whose offset or virtual address is after the new .data2 section
|
|
||||||
- gets its value adjusted. .bss size becomes zero. data2 section
|
|
||||||
- header gets added by copying the existing .data header and
|
|
||||||
- modifying the offset, address and size. */
|
|
||||||
-
|
|
||||||
- /* Walk through all section headers, insert the new data2 section right
|
|
||||||
- before the new bss section. */
|
|
||||||
- for (n = 1, nn = 1; n < old_file_h->e_shnum; n++, nn++)
|
|
||||||
+ /* Walk through all section headers, copying data and updating. */
|
|
||||||
+ for (n = 1; n < old_file_h->e_shnum; n++)
|
|
||||||
{
|
|
||||||
caddr_t src;
|
|
||||||
ElfW (Shdr) *old_shdr = &OLD_SECTION_H (n);
|
|
||||||
- ElfW (Shdr) *new_shdr = &NEW_SECTION_H (nn);
|
|
||||||
-
|
|
||||||
- /* If it is (s)bss section, insert the new data2 section before it. */
|
|
||||||
- if (n == old_bss_index)
|
|
||||||
- {
|
|
||||||
- /* Steal the data section header for this data2 section. */
|
|
||||||
- memcpy (new_shdr, &OLD_SECTION_H (old_data_index),
|
|
||||||
- new_file_h->e_shentsize);
|
|
||||||
-
|
|
||||||
- new_shdr->sh_addr = new_data2_addr;
|
|
||||||
- new_shdr->sh_offset = new_data2_offset;
|
|
||||||
- new_shdr->sh_size = new_data2_size;
|
|
||||||
- new_shdr->sh_addralign = 1;
|
|
||||||
- nn++;
|
|
||||||
- new_shdr++;
|
|
||||||
- }
|
|
||||||
-
|
|
||||||
- memcpy (new_shdr, old_shdr, old_file_h->e_shentsize);
|
|
||||||
+ ElfW (Shdr) *new_shdr = &NEW_SECTION_H (n);
|
|
||||||
|
|
||||||
if (new_shdr->sh_type == SHT_NOBITS
|
|
||||||
&& new_shdr->sh_addr >= old_bss_addr
|
|
||||||
&& (new_shdr->sh_addr + new_shdr->sh_size
|
|
||||||
<= old_bss_addr + old_bss_size))
|
|
||||||
{
|
|
||||||
+ /* This section now has file backing. */
|
|
||||||
+ new_shdr->sh_type = SHT_PROGBITS;
|
|
||||||
+
|
|
||||||
/* SHT_NOBITS sections do not need a valid sh_offset, so it
|
|
||||||
might be incorrect. Write the correct value. */
|
|
||||||
new_shdr->sh_offset = (new_shdr->sh_addr - new_bss_seg->p_vaddr
|
|
||||||
@@ -838,35 +433,20 @@ unexec (const char *new_name, const char
|
|
||||||
if (strcmp (old_section_names + new_shdr->sh_name, ".plt") == 0)
|
|
||||||
memset (new_shdr->sh_offset + new_base, 0, new_shdr->sh_size);
|
|
||||||
|
|
||||||
- /* Set the new bss and sbss section's size to zero, because
|
|
||||||
- we've already covered this address range by .data2. */
|
|
||||||
- new_shdr->sh_size = 0;
|
|
||||||
- }
|
|
||||||
- else
|
|
||||||
- {
|
|
||||||
- /* Any section that was originally placed after the .bss
|
|
||||||
- section should now be off by NEW_DATA2_SIZE. */
|
|
||||||
-
|
|
||||||
- if (new_shdr->sh_offset >= old_bss_offset)
|
|
||||||
- new_shdr->sh_offset += new_data2_size;
|
|
||||||
-
|
|
||||||
- /* Any section that was originally placed after the section
|
|
||||||
- header table should now be off by the size of one section
|
|
||||||
- header table entry. */
|
|
||||||
- if (new_shdr->sh_offset > new_file_h->e_shoff)
|
|
||||||
- new_shdr->sh_offset += new_file_h->e_shentsize;
|
|
||||||
+ /* Extend the size of the last bss section to cover dumped
|
|
||||||
+ data. */
|
|
||||||
+ if (n == old_bss_index)
|
|
||||||
+ new_shdr->sh_size = new_bss_addr - new_shdr->sh_addr;
|
|
||||||
+
|
|
||||||
+ /* We have already copied this section from the current
|
|
||||||
+ process. */
|
|
||||||
+ continue;
|
|
||||||
}
|
|
||||||
|
|
||||||
- /* If any section hdr refers to the section after the new .data
|
|
||||||
- section, make it refer to next one because we have inserted
|
|
||||||
- a new section in between. */
|
|
||||||
-
|
|
||||||
- PATCH_INDEX (new_shdr->sh_link);
|
|
||||||
- /* For symbol tables, info is a symbol table index,
|
|
||||||
- so don't change it. */
|
|
||||||
- if (new_shdr->sh_type != SHT_SYMTAB
|
|
||||||
- && new_shdr->sh_type != SHT_DYNSYM)
|
|
||||||
- PATCH_INDEX (new_shdr->sh_info);
|
|
||||||
+ /* Any section that was originally placed after the .bss
|
|
||||||
+ section should now be offset by NEW_DATA2_SIZE. */
|
|
||||||
+ if (new_shdr->sh_offset >= old_bss_offset)
|
|
||||||
+ new_shdr->sh_offset += new_data2_size;
|
|
||||||
|
|
||||||
/* Now, start to copy the content of sections. */
|
|
||||||
if (new_shdr->sh_type == SHT_NULL
|
|
||||||
@@ -982,24 +562,6 @@ unexec (const char *new_name, const char
|
|
||||||
}
|
|
||||||
}
|
|
||||||
#endif /* __sgi */
|
|
||||||
-
|
|
||||||
- /* Patch st_shndx field of symbol table. */
|
|
||||||
- if (new_shdr->sh_type == SHT_SYMTAB
|
|
||||||
- || new_shdr->sh_type == SHT_DYNSYM)
|
|
||||||
- {
|
|
||||||
- ptrdiff_t num = new_shdr->sh_size / new_shdr->sh_entsize;
|
|
||||||
- ElfW (Sym) *sym = (ElfW (Sym) *) (new_shdr->sh_offset + new_base);
|
|
||||||
- for (; num--; sym++)
|
|
||||||
- {
|
|
||||||
- if (sym->st_shndx == SHN_XINDEX)
|
|
||||||
- fatal ("SHT_SYMTAB_SHNDX unsupported");
|
|
||||||
- if (sym->st_shndx == SHN_UNDEF
|
|
||||||
- || sym->st_shndx >= SHN_LORESERVE)
|
|
||||||
- continue;
|
|
||||||
-
|
|
||||||
- PATCH_INDEX (sym->st_shndx);
|
|
||||||
- }
|
|
||||||
- }
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Update the symbol values of _edata and _end. */
|
|
||||||
@@ -1043,15 +605,10 @@ unexec (const char *new_name, const char
|
|
||||||
ElfW (Shdr) *new_shdr = &NEW_SECTION_H (symp->st_shndx);
|
|
||||||
if (new_shdr->sh_type != SHT_NOBITS)
|
|
||||||
{
|
|
||||||
- ElfW (Shdr) *old_shdr;
|
|
||||||
+ ElfW (Shdr) *old_shdr = &OLD_SECTION_H (symp->st_shndx);
|
|
||||||
ptrdiff_t reladdr = symp->st_value - new_shdr->sh_addr;
|
|
||||||
ptrdiff_t newoff = reladdr + new_shdr->sh_offset;
|
|
||||||
|
|
||||||
- /* "Unpatch" index. */
|
|
||||||
- nn = symp->st_shndx;
|
|
||||||
- if (nn > old_bss_index)
|
|
||||||
- nn--;
|
|
||||||
- old_shdr = &OLD_SECTION_H (nn);
|
|
||||||
if (old_shdr->sh_type == SHT_NOBITS)
|
|
||||||
memset (new_base + newoff, 0, symp->st_size);
|
|
||||||
else
|
|
||||||
@@ -1066,6 +623,25 @@ unexec (const char *new_name, const char
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
+ /* Modify the names of sections we changed from SHT_NOBITS to
|
|
||||||
+ SHT_PROGBITS. This is really just cosmetic, but some tools that
|
|
||||||
+ (wrongly) operate on section names rather than types might be
|
|
||||||
+ confused by a SHT_PROGBITS .bss section. */
|
|
||||||
+ new_section_names = ((char *) new_base
|
|
||||||
+ + NEW_SECTION_H (new_file_h->e_shstrndx).sh_offset);
|
|
||||||
+ for (n = new_file_h->e_shnum; 0 < --n; )
|
|
||||||
+ {
|
|
||||||
+ ElfW (Shdr) *old_shdr = &OLD_SECTION_H (n);
|
|
||||||
+ ElfW (Shdr) *new_shdr = &NEW_SECTION_H (n);
|
|
||||||
+
|
|
||||||
+ /* Replace the leading '.' with ','. When .shstrtab is string
|
|
||||||
+ merged this will rename both .bss and .rela.bss to ,bss and
|
|
||||||
+ .rela,bss. */
|
|
||||||
+ if (old_shdr->sh_type == SHT_NOBITS
|
|
||||||
+ && new_shdr->sh_type == SHT_PROGBITS)
|
|
||||||
+ *(new_section_names + new_shdr->sh_name) = ',';
|
|
||||||
+ }
|
|
||||||
+
|
|
||||||
/* This loop seeks out relocation sections for the data section, so
|
|
||||||
that it can undo relocations performed by the runtime loader. */
|
|
||||||
for (n = new_file_h->e_shnum; 0 < --n; )
|
|
@ -1,41 +0,0 @@
|
|||||||
From 9b52726df50cc9b4fdfce2ed1dc114311dc60a93 Mon Sep 17 00:00:00 2001
|
|
||||||
From: Paul Eggert <eggert@cs.ucla.edu>
|
|
||||||
Date: Sun, 8 Nov 2015 09:36:14 -0800
|
|
||||||
Subject: * src/unexelf.c (NEW_PROGRAM_H): Remove unused macro (Bug#20614).
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [9/10]:
|
|
||||||
|
|
||||||
* src/unexelf.c (NEW_PROGRAM_H): Remove unused macro (Bug#20614).
|
|
||||||
|
|
||||||
Origin: upstream, commit: 2ce0c0674eba9179ba57c537e387bc3f7b0e5b63
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 4 +---
|
|
||||||
1 file changed, 1 insertion(+), 3 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -208,8 +208,6 @@ entry_address (void *section_h, ptrdiff_
|
|
||||||
(*(ElfW (Shdr) *) entry_address (new_section_h, n, new_file_h->e_shentsize))
|
|
||||||
#define OLD_PROGRAM_H(n) \
|
|
||||||
(*(ElfW (Phdr) *) entry_address (old_program_h, n, old_file_h->e_phentsize))
|
|
||||||
-#define NEW_PROGRAM_H(n) \
|
|
||||||
- (*(ElfW (Phdr) *) entry_address (new_program_h, n, new_file_h->e_phentsize))
|
|
||||||
|
|
||||||
typedef unsigned char byte;
|
|
||||||
|
|
||||||
@@ -250,7 +248,7 @@ unexec (const char *new_name, const char
|
|
||||||
ElfW (Phdr) *old_bss_seg, *new_bss_seg;
|
|
||||||
ElfW (Addr) old_bss_addr, new_bss_addr;
|
|
||||||
ElfW (Word) old_bss_size, new_data2_size;
|
|
||||||
- ElfW (Off) old_bss_offset, new_data2_offset;
|
|
||||||
+ ElfW (Off) old_bss_offset, new_data2_offset;
|
|
||||||
|
|
||||||
ptrdiff_t n;
|
|
||||||
ptrdiff_t old_bss_index;
|
|
@ -1,64 +0,0 @@
|
|||||||
From 0de7316751e94c29aeb4b75731ac6e8c9eba77e6 Mon Sep 17 00:00:00 2001
|
|
||||||
From: Paul Eggert <eggert@cs.ucla.edu>
|
|
||||||
Date: Mon, 16 Nov 2015 17:48:08 -0800
|
|
||||||
Subject: ELF unexec: align section header
|
|
||||||
MIME-Version: 1.0
|
|
||||||
Content-Type: text/plain; charset=UTF-8
|
|
||||||
Content-Transfer-Encoding: 8bit
|
|
||||||
|
|
||||||
Emacs should build on ppc64el. A problem with the bss has been fixed.
|
|
||||||
|
|
||||||
This upstream patch has been added [10/10]:
|
|
||||||
|
|
||||||
ELF unexec: align section header
|
|
||||||
|
|
||||||
This ports the recent unexelf.c changes to Fedora x86-64
|
|
||||||
when configured with GCC’s -fsanitize=undefined option.
|
|
||||||
* src/unexelf.c (unexec): Align new_data2_size to a multiple
|
|
||||||
of ElfW (Shdr)’s alignment, so that NEW_SECTION_H returns a
|
|
||||||
pointer aligned appropriately for its type.
|
|
||||||
|
|
||||||
Origin: upstream, commit: c9fd597a4cffcae873b25381ee8cc755f0debe95
|
|
||||||
Bug: http://debbugs.gnu.org/20614
|
|
||||||
Bug-Debian: http://bugs.debian.org/808347
|
|
||||||
Added-by: Rob Browning <rlb@defaultvalue.org>
|
|
||||||
---
|
|
||||||
src/unexelf.c | 11 ++++++++---
|
|
||||||
1 file changed, 8 insertions(+), 3 deletions(-)
|
|
||||||
|
|
||||||
Index: emacs-24.5/src/unexelf.c
|
|
||||||
===================================================================
|
|
||||||
--- emacs-24.5.orig/src/unexelf.c
|
|
||||||
+++ emacs-24.5/src/unexelf.c
|
|
||||||
@@ -247,7 +247,7 @@ unexec (const char *new_name, const char
|
|
||||||
|
|
||||||
ElfW (Phdr) *old_bss_seg, *new_bss_seg;
|
|
||||||
ElfW (Addr) old_bss_addr, new_bss_addr;
|
|
||||||
- ElfW (Word) old_bss_size, new_data2_size;
|
|
||||||
+ ElfW (Word) old_bss_size, bss_size_growth, new_data2_size;
|
|
||||||
ElfW (Off) old_bss_offset, new_data2_offset;
|
|
||||||
|
|
||||||
ptrdiff_t n;
|
|
||||||
@@ -332,7 +332,11 @@ unexec (const char *new_name, const char
|
|
||||||
|
|
||||||
new_break = sbrk (0);
|
|
||||||
new_bss_addr = (ElfW (Addr)) new_break;
|
|
||||||
- new_data2_size = new_bss_addr - old_bss_addr;
|
|
||||||
+ bss_size_growth = new_bss_addr - old_bss_addr;
|
|
||||||
+ new_data2_size = bss_size_growth;
|
|
||||||
+ new_data2_size += alignof (ElfW (Shdr)) - 1;
|
|
||||||
+ new_data2_size -= new_data2_size % alignof (ElfW (Shdr));
|
|
||||||
+
|
|
||||||
new_data2_offset = old_bss_offset;
|
|
||||||
|
|
||||||
#ifdef UNEXELF_DEBUG
|
|
||||||
@@ -400,7 +404,8 @@ unexec (const char *new_name, const char
|
|
||||||
new_bss_seg->p_memsz = new_bss_seg->p_filesz;
|
|
||||||
|
|
||||||
/* Copy over what we have in memory now for the bss area. */
|
|
||||||
- memcpy (new_base + new_data2_offset, (caddr_t) old_bss_addr, new_data2_size);
|
|
||||||
+ memcpy (new_base + new_data2_offset, (caddr_t) old_bss_addr,
|
|
||||||
+ bss_size_growth);
|
|
||||||
|
|
||||||
/* Walk through all section headers, copying data and updating. */
|
|
||||||
for (n = 1; n < old_file_h->e_shnum; n++)
|
|
@ -1,49 +0,0 @@
|
|||||||
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
|
|
||||||
index 0400e5b..582ecb5 100644
|
|
||||||
--- a/lisp/net/eudcb-bbdb.el
|
|
||||||
+++ b/lisp/net/eudcb-bbdb.el
|
|
||||||
@@ -41,6 +41,24 @@
|
|
||||||
(defvar eudc-bbdb-current-query nil)
|
|
||||||
(defvar eudc-bbdb-current-return-attributes nil)
|
|
||||||
|
|
||||||
+(defvar bbdb-version)
|
|
||||||
+
|
|
||||||
+(defun eudc-bbdb-field (field-symbol)
|
|
||||||
+ "Convert FIELD-SYMBOL so that it is recognized by the current BBDB version.
|
|
||||||
+BBDB < 3 used `net'; BBDB >= 3 uses `mail'."
|
|
||||||
+ ;; This just-in-time translation permits upgrading from BBDB 2 to
|
|
||||||
+ ;; BBDB 3 without restarting Emacs.
|
|
||||||
+ (if (and (eq field-symbol 'net)
|
|
||||||
+ (or
|
|
||||||
+ ;; MELPA versions of BBDB may have a bad package version,
|
|
||||||
+ ;; but they're all version 3 or later.
|
|
||||||
+ (equal bbdb-version "@PACKAGE_VERSION@")
|
|
||||||
+ ;; Development versions of BBDB can have the format "X.YZ
|
|
||||||
+ ;; devo". Split the string just in case.
|
|
||||||
+ (version<= "3" (car (split-string bbdb-version)))))
|
|
||||||
+ 'mail
|
|
||||||
+ field-symbol))
|
|
||||||
+
|
|
||||||
(defvar eudc-bbdb-attributes-translation-alist
|
|
||||||
'((name . lastname)
|
|
||||||
(email . net)
|
|
||||||
@@ -84,7 +102,9 @@
|
|
||||||
(progn
|
|
||||||
(setq bbdb-val
|
|
||||||
(eval (list (intern (concat "bbdb-record-"
|
|
||||||
- (symbol-name attr)))
|
|
||||||
+ (symbol-name
|
|
||||||
+ (eudc-bbdb-field
|
|
||||||
+ attr))))
|
|
||||||
'record)))
|
|
||||||
(if (listp bbdb-val)
|
|
||||||
(if eudc-bbdb-enable-substring-matches
|
|
||||||
@@ -167,7 +187,7 @@ The record is filtered according to `eudc-bbdb-current-return-attributes'"
|
|
||||||
(setq val (eval
|
|
||||||
(list (intern
|
|
||||||
(concat "bbdb-record-"
|
|
||||||
- (symbol-name attr)))
|
|
||||||
+ (symbol-name (eudc-bbdb-field attr))))
|
|
||||||
'record))))
|
|
||||||
(t
|
|
||||||
(error "Unknown BBDB attribute")))
|
|
@ -1,70 +0,0 @@
|
|||||||
--- emacs-24.5/lisp/progmodes/gdb-mi.el 2015-04-02 09:23:06.000000000 +0200
|
|
||||||
+++ emacs-24.5-new/lisp/progmodes/gdb-mi.el 2016-02-02 12:40:28.635711182 +0100
|
|
||||||
@@ -2305,10 +2305,67 @@ the end of the current result or async r
|
|
||||||
; list ==>
|
|
||||||
; "[]" | "[" value ( "," value )* "]" | "[" result ( "," result )* "]"
|
|
||||||
|
|
||||||
+(defcustom gdb-mi-decode-strings nil
|
|
||||||
+ "When non-nil, decode octal escapes in GDB output into non-ASCII text.
|
|
||||||
+
|
|
||||||
+If the value is a coding-system, use that coding-system to decode
|
|
||||||
+the bytes reconstructed from octal escapes. Any other non-nil value
|
|
||||||
+means to decode using the coding-system set for the GDB process.
|
|
||||||
+
|
|
||||||
+Warning: setting this non-nil might mangle strings reported by GDB
|
|
||||||
+that have literal substrings which match the \\nnn octal escape
|
|
||||||
+patterns, where nnn is an octal number between 200 and 377. So
|
|
||||||
+we only recommend to set this variable non-nil if the program you
|
|
||||||
+are debugging really reports non-ASCII text, or some of its source
|
|
||||||
+file names include non-ASCII characters."
|
|
||||||
+ :type '(choice
|
|
||||||
+ (const :tag "Don't decode" nil)
|
|
||||||
+ (const :tag "Decode using default coding-system" t)
|
|
||||||
+ (coding-system :tag "Decode using this coding-system"))
|
|
||||||
+ :group 'gdb
|
|
||||||
+ :version "25.1")
|
|
||||||
+
|
|
||||||
+;; The idea of the following function was suggested
|
|
||||||
+;; by Kenichi Handa <handa@gnu.org>.
|
|
||||||
+;;
|
|
||||||
+;; FIXME: This is fragile: it relies on the assumption that all the
|
|
||||||
+;; non-ASCII strings output by GDB, including names of the source
|
|
||||||
+;; files, values of string variables in the inferior, etc., are all
|
|
||||||
+;; encoded in the same encoding. It also assumes that the \nnn
|
|
||||||
+;; sequences are not split between chunks of output of the GDB process
|
|
||||||
+;; due to buffering, and arrive together. Finally, if some string
|
|
||||||
+;; included literal \nnn strings (as opposed to non-ASCII characters
|
|
||||||
+;; converted by by GDB/MI to octal escapes), this decoding will mangle
|
|
||||||
+;; those strings. When/if GDB acquires the ability to not
|
|
||||||
+;; escape-protect non-ASCII characters in its MI output, this kludge
|
|
||||||
+;; should be removed.
|
|
||||||
+(defun gdb-mi-decode (string)
|
|
||||||
+ "Decode octal escapes in MI output STRING into multibyte text."
|
|
||||||
+ (let ((coding
|
|
||||||
+ (if (coding-system-p gdb-mi-decode-strings)
|
|
||||||
+ gdb-mi-decode-strings
|
|
||||||
+ (with-current-buffer
|
|
||||||
+ (gdb-get-buffer-create 'gdb-partial-output-buffer)
|
|
||||||
+ buffer-file-coding-system))))
|
|
||||||
+ (with-temp-buffer
|
|
||||||
+ (set-buffer-multibyte nil)
|
|
||||||
+ (prin1 string (current-buffer))
|
|
||||||
+ (goto-char (point-min))
|
|
||||||
+ ;; prin1 quotes the octal escapes as well, which interferes with
|
|
||||||
+ ;; their interpretation by 'read' below. Remove the extra
|
|
||||||
+ ;; backslashes to countermand that.
|
|
||||||
+ (while (re-search-forward "\\\\\\(\\\\[2-3][0-7][0-7]\\)" nil t)
|
|
||||||
+ (replace-match "\\1" nil nil))
|
|
||||||
+ (goto-char (point-min))
|
|
||||||
+ (decode-coding-string (read (current-buffer)) coding))))
|
|
||||||
|
|
||||||
(defun gud-gdbmi-marker-filter (string)
|
|
||||||
"Filter GDB/MI output."
|
|
||||||
|
|
||||||
+ ;; If required, decode non-ASCII text encoded with octal escapes.
|
|
||||||
+ (or (null gdb-mi-decode-strings)
|
|
||||||
+ (setq string (gdb-mi-decode string)))
|
|
||||||
+
|
|
||||||
;; Record transactions if logging is enabled.
|
|
||||||
(when gdb-enable-debug
|
|
||||||
(push (cons 'recv string) gdb-debug-log)
|
|
@ -1,54 +0,0 @@
|
|||||||
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
|
|
||||||
index 9962945..763f906 100644
|
|
||||||
--- a/lisp/progmodes/grep.el
|
|
||||||
+++ b/lisp/progmodes/grep.el
|
|
||||||
@@ -77,11 +77,10 @@ in grep buffers, so if you have globally disabled font-lock-mode,
|
|
||||||
you will not get highlighting.
|
|
||||||
|
|
||||||
This option sets the environment variable GREP_COLORS to specify
|
|
||||||
-markers for highlighting and GREP_OPTIONS to add the --color
|
|
||||||
-option in front of any explicit grep options before starting
|
|
||||||
-the grep.
|
|
||||||
+markers for highlighting and adds the --color option in front of
|
|
||||||
+any explicit grep options before starting the grep.
|
|
||||||
|
|
||||||
-When this option is `auto', grep uses `--color=auto' to highlight
|
|
||||||
+When this option is `auto', grep uses `--color' to highlight
|
|
||||||
matches only when it outputs to a terminal (when `grep' is the last
|
|
||||||
command in the pipe), thus avoiding the use of any potentially-harmful
|
|
||||||
escape sequences when standard output goes to a file or pipe.
|
|
||||||
@@ -97,7 +96,7 @@ To change the default value, use Customize or call the function
|
|
||||||
:type '(choice (const :tag "Do not highlight matches with grep markers" nil)
|
|
||||||
(const :tag "Highlight matches with grep markers" t)
|
|
||||||
(const :tag "Use --color=always" always)
|
|
||||||
- (const :tag "Use --color=auto" auto)
|
|
||||||
+ (const :tag "Use --color" auto)
|
|
||||||
(other :tag "Not Set" auto-detect))
|
|
||||||
:set 'grep-apply-setting
|
|
||||||
:version "22.1"
|
|
||||||
@@ -467,10 +466,6 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'."
|
|
||||||
;; `setenv' modifies `process-environment' let-bound in `compilation-start'
|
|
||||||
;; Any TERM except "dumb" allows GNU grep to use `--color=auto'
|
|
||||||
(setenv "TERM" "emacs-grep")
|
|
||||||
- (setenv "GREP_OPTIONS"
|
|
||||||
- (concat (getenv "GREP_OPTIONS")
|
|
||||||
- " --color=" (if (eq grep-highlight-matches 'always)
|
|
||||||
- "always" "auto")))
|
|
||||||
;; GREP_COLOR is used in GNU grep 2.5.1, but deprecated in later versions
|
|
||||||
(setenv "GREP_COLOR" "01;31")
|
|
||||||
;; GREP_COLORS is used in GNU grep 2.5.2 and later versions
|
|
||||||
@@ -570,7 +565,13 @@ This function is called from `compilation-filter-hook'."
|
|
||||||
(unless (and grep-command grep-find-command
|
|
||||||
grep-template grep-find-template)
|
|
||||||
(let ((grep-options
|
|
||||||
- (concat (if grep-use-null-device "-n" "-nH")
|
|
||||||
+ (concat (and grep-highlight-matches
|
|
||||||
+ (grep-probe grep-program
|
|
||||||
+ `(nil nil nil "--color" "x" ,null-device)
|
|
||||||
+ nil 1)
|
|
||||||
+ (if (eq grep-highlight-matches 'always)
|
|
||||||
+ "--color=always " "--color "))
|
|
||||||
+ (if grep-use-null-device "-n" "-nH")
|
|
||||||
(if (grep-probe grep-program
|
|
||||||
`(nil nil nil "-e" "foo" ,null-device)
|
|
||||||
nil 1)
|
|
@ -1,22 +0,0 @@
|
|||||||
--- a/lisp/vc/vc-hg.el 2015-04-02 09:23:06.000000000 +0200
|
|
||||||
+++ b/lisp/vc/vc-hg.el 2016-02-02 10:53:23.248829159 +0100
|
|
||||||
@@ -627,10 +627,16 @@ REV is the revision to check out into WO
|
|
||||||
(vc-run-delayed
|
|
||||||
(vc-hg-after-dir-status update-function)))
|
|
||||||
|
|
||||||
-(defun vc-hg-dir-status-files (dir files _default-state update-function)
|
|
||||||
- (apply 'vc-hg-command (current-buffer) 'async dir "status" "-mardui" "-C" files)
|
|
||||||
+(defun vc-hg-dir-status-files (_dir files _default-state update-function)
|
|
||||||
+ ;; XXX: We can't pass DIR directly to 'hg status' because that
|
|
||||||
+ ;; returns all ignored files if FILES is non-nil (bug#22481).
|
|
||||||
+ ;; If honoring DIR ever becomes important, try using '-I DIR/'.
|
|
||||||
+ (vc-hg-command (current-buffer) 'async files
|
|
||||||
+ "status"
|
|
||||||
+ (concat "-mardu" (if files "i"))
|
|
||||||
+ "-C")
|
|
||||||
(vc-run-delayed
|
|
||||||
- (vc-hg-after-dir-status update-function)))
|
|
||||||
+ (vc-hg-after-dir-status update-function)))
|
|
||||||
|
|
||||||
(defun vc-hg-dir-extra-header (name &rest commands)
|
|
||||||
(concat (propertize name 'face 'font-lock-type-face)
|
|
@ -1,13 +1,10 @@
|
|||||||
diff --git a/src/gnutls.c b/src/gnutls.c
|
--- a/src/gnutls.c 2016-01-24 10:29:58.000000000 +0100
|
||||||
index d363fea..981f127 100644
|
+++ b/src/gnutls.c 2016-02-02 09:32:28.477274274 +0100
|
||||||
--- a/src/gnutls.c
|
@@ -1218,7 +1218,7 @@ one trustfile (usually a CA bundle). */
|
||||||
+++ b/src/gnutls.c
|
|
||||||
@@ -776,7 +776,7 @@ one trustfile (usually a CA bundle). */)
|
|
||||||
gnutls_certificate_credentials_t x509_cred = NULL;
|
gnutls_certificate_credentials_t x509_cred = NULL;
|
||||||
gnutls_anon_client_credentials_t anon_cred = NULL;
|
gnutls_anon_client_credentials_t anon_cred = NULL;
|
||||||
Lisp_Object global_init;
|
Lisp_Object global_init;
|
||||||
- char const *priority_string_ptr = "NORMAL"; /* default priority string. */
|
- char const *priority_string_ptr = "NORMAL"; /* default priority string. */
|
||||||
+ char const *priority_string_ptr = "@SYSTEM"; /* default priority string. */
|
+ char const *priority_string_ptr = "@SYSTEM"; /* default priority string. */
|
||||||
unsigned int peer_verification;
|
unsigned int peer_verification;
|
||||||
char* c_hostname;
|
char *c_hostname;
|
||||||
|
|
||||||
|
63
emacs.spec
63
emacs.spec
@ -4,8 +4,8 @@
|
|||||||
Summary: GNU Emacs text editor
|
Summary: GNU Emacs text editor
|
||||||
Name: emacs
|
Name: emacs
|
||||||
Epoch: 1
|
Epoch: 1
|
||||||
Version: 24.5
|
Version: 25.0.92
|
||||||
Release: 10%{?dist}
|
Release: 1%{?dist}
|
||||||
License: GPLv3+ and CC0-1.0
|
License: GPLv3+ and CC0-1.0
|
||||||
URL: http://www.gnu.org/software/emacs/
|
URL: http://www.gnu.org/software/emacs/
|
||||||
Group: Applications/Editors
|
Group: Applications/Editors
|
||||||
@ -24,25 +24,7 @@ Patch1: emacs-spellchecker.patch
|
|||||||
|
|
||||||
# Fix for default PDF viewer bug #971162
|
# Fix for default PDF viewer bug #971162
|
||||||
Patch2: emacs-pdf-default.patch
|
Patch2: emacs-pdf-default.patch
|
||||||
Patch3: emacs-grep-deprecated.patch
|
Patch3: emacs-system-crypto-policies.patch
|
||||||
Patch4: emacs-system-crypto-policies.patch
|
|
||||||
Patch5: emacs-bbdb.patch
|
|
||||||
# http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=06083cf41c473404d246de9b91a0116f38c5485f
|
|
||||||
Patch6: emacs-mercurial.patch
|
|
||||||
# http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=439f483be35a000e7a3bec6acf395ce4d54d6323
|
|
||||||
# http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=9c86325b69d75e9b17ff468f5a2220597979635f
|
|
||||||
Patch7: emacs-gdb-ascii.patch
|
|
||||||
# All upstreamed, see the patches for more info
|
|
||||||
Patch8: emacs-24-0010-ELF-unexec-Correct-section-header-index.patch
|
|
||||||
Patch9: emacs-24-0011-ELF-unexec-Tidy-code.patch
|
|
||||||
Patch10: emacs-24-0012-ELF-unexec-Merge-Alpha-and-MIPS-COFF-debug-handling.patch
|
|
||||||
Patch11: emacs-24-0013-ELF-unexec-Symbol-table-patching.patch
|
|
||||||
Patch12: emacs-24-0014-ELF-unexec-_OBJC_-symbols-in-bss-sections.patch
|
|
||||||
Patch13: emacs-24-0015-ELF-unexec-R_-_NONE-relocs.patch
|
|
||||||
Patch14: emacs-24-0016-ELF-unexec-Drive-from-PT_LOAD-header-rather-than-sec.patch
|
|
||||||
Patch15: emacs-24-0017-ELF-unexec-Don-t-insert-a-new-section.patch
|
|
||||||
Patch16: emacs-24-0018-src-unexelf.c-NEW_PROGRAM_H-Remove-unused-macro-Bug-.patch
|
|
||||||
Patch17: emacs-24-0019-ELF-unexec-align-section-header.patch
|
|
||||||
|
|
||||||
BuildRequires: atk-devel
|
BuildRequires: atk-devel
|
||||||
BuildRequires: cairo-devel
|
BuildRequires: cairo-devel
|
||||||
@ -183,21 +165,7 @@ packages that add functionality to Emacs.
|
|||||||
|
|
||||||
%patch1 -p1 -b .spellchecker
|
%patch1 -p1 -b .spellchecker
|
||||||
%patch2 -p1 -b .pdf-default.patch
|
%patch2 -p1 -b .pdf-default.patch
|
||||||
%patch3 -p1 -b .grep-deprecated
|
%patch3 -p1 -b .system-crypto-policies
|
||||||
%patch4 -p1 -b .system-crypto-policies
|
|
||||||
%patch5 -p1 -b .bbdb
|
|
||||||
%patch6 -p1
|
|
||||||
%patch7 -p1
|
|
||||||
%patch8 -p1
|
|
||||||
%patch9 -p1
|
|
||||||
%patch10 -p1
|
|
||||||
%patch11 -p1
|
|
||||||
%patch12 -p1
|
|
||||||
%patch13 -p1
|
|
||||||
%patch14 -p1
|
|
||||||
%patch15 -p1
|
|
||||||
%patch16 -p1
|
|
||||||
%patch17 -p1
|
|
||||||
autoconf
|
autoconf
|
||||||
|
|
||||||
# We prefer our emacs.desktop file
|
# We prefer our emacs.desktop file
|
||||||
@ -212,16 +180,6 @@ grep -v "pong.elc" lisp/Makefile.in > lisp/Makefile.in.new \
|
|||||||
rm -f lisp/play/tetris.el lisp/play/tetris.elc
|
rm -f lisp/play/tetris.el lisp/play/tetris.elc
|
||||||
rm -f lisp/play/pong.el lisp/play/pong.el
|
rm -f lisp/play/pong.el lisp/play/pong.el
|
||||||
|
|
||||||
%define info_files ada-mode auth autotype bovine calc ccmode cl dbus dired-x ebrowse ede ediff edt efaq-w32 efaq eieio eintr elisp emacs-gnutls emacs-mime emacs epa erc ert eshell eudc eww flymake forms gnus htmlfontify idlwave ido info mairix-el message mh-e newsticker nxml-mode octave-mode org pcl-cvs pgg rcirc reftex remember sasl sc semantic ses sieve smtpmail speedbar srecode todo-mode tramp url vip viper widget wisent woman
|
|
||||||
|
|
||||||
cd info
|
|
||||||
files=`echo $(ls *.info) | sed 's/\.info//'g | sort | tr -d '\n'`
|
|
||||||
if test "$files" != "%info_files"; then
|
|
||||||
echo Please update info_files >&2
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
cd ..
|
|
||||||
|
|
||||||
%ifarch %{ix86}
|
%ifarch %{ix86}
|
||||||
%define setarch setarch %{_arch} -R
|
%define setarch setarch %{_arch} -R
|
||||||
%else
|
%else
|
||||||
@ -239,12 +197,10 @@ export CFLAGS="-DMAIL_USE_LOCKF $RPM_OPT_FLAGS"
|
|||||||
mkdir build-gtk && cd build-gtk
|
mkdir build-gtk && cd build-gtk
|
||||||
ln -s ../configure .
|
ln -s ../configure .
|
||||||
|
|
||||||
%define toolkit gtk3
|
|
||||||
|
|
||||||
LDFLAGS=-Wl,-z,relro; export LDFLAGS;
|
LDFLAGS=-Wl,-z,relro; export LDFLAGS;
|
||||||
|
|
||||||
%configure --with-dbus --with-gif --with-jpeg --with-png --with-rsvg \
|
%configure --with-dbus --with-gif --with-jpeg --with-png --with-rsvg \
|
||||||
--with-tiff --with-xft --with-xpm --with-x-toolkit=%{toolkit} --with-gpm=no
|
--with-tiff --with-xft --with-xpm --with-x-toolkit=gtk3 --with-gpm=no
|
||||||
make bootstrap
|
make bootstrap
|
||||||
%{setarch} make %{?_smp_mflags}
|
%{setarch} make %{?_smp_mflags}
|
||||||
cd ..
|
cd ..
|
||||||
@ -374,6 +330,9 @@ sed -i -e "s|\.%{_prefix}|%{_prefix}|" *-files
|
|||||||
cat common-*-files > common-filelist
|
cat common-*-files > common-filelist
|
||||||
cat el-*-files common-lisp-dir-files > el-filelist
|
cat el-*-files common-lisp-dir-files > el-filelist
|
||||||
|
|
||||||
|
# Remove old icon
|
||||||
|
rm %{buildroot}%{_datadir}/icons/hicolor/scalable/mimetypes/emacs-document23.svg
|
||||||
|
|
||||||
%post
|
%post
|
||||||
update-desktop-database &> /dev/null || :
|
update-desktop-database &> /dev/null || :
|
||||||
touch --no-create %{_datadir}/icons/hicolor
|
touch --no-create %{_datadir}/icons/hicolor
|
||||||
@ -442,12 +401,11 @@ update-desktop-database &> /dev/null || :
|
|||||||
%files common -f common-filelist -f el-filelist
|
%files common -f common-filelist -f el-filelist
|
||||||
%config(noreplace) %{_sysconfdir}/skel/.emacs
|
%config(noreplace) %{_sysconfdir}/skel/.emacs
|
||||||
%{_rpmconfigdir}/macros.d/macros.emacs
|
%{_rpmconfigdir}/macros.d/macros.emacs
|
||||||
%doc doc/NEWS BUGS README doc/COPYING etc/COPYING
|
%doc doc/NEWS BUGS README etc/COPYING
|
||||||
%{_bindir}/ebrowse
|
%{_bindir}/ebrowse
|
||||||
%{_bindir}/emacsclient
|
%{_bindir}/emacsclient
|
||||||
%{_bindir}/etags.emacs
|
%{_bindir}/etags.emacs
|
||||||
%{_bindir}/gctags
|
%{_bindir}/gctags
|
||||||
%{_bindir}/grep-changelog
|
|
||||||
%{_mandir}/*/*
|
%{_mandir}/*/*
|
||||||
%{_infodir}/*
|
%{_infodir}/*
|
||||||
%dir %{_datadir}/emacs/%{version}
|
%dir %{_datadir}/emacs/%{version}
|
||||||
@ -469,6 +427,9 @@ update-desktop-database &> /dev/null || :
|
|||||||
%dir %{_datadir}/emacs/site-lisp/site-start.d
|
%dir %{_datadir}/emacs/site-lisp/site-start.d
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Fri Mar 4 2016 Jan Synáček <jsynacek@redhat.com> - 1:25.0.92
|
||||||
|
- update to 25.0.92
|
||||||
|
|
||||||
* Mon Feb 15 2016 Jan Synáček <jsynacek@redhat.com> - 1:24.5-10
|
* Mon Feb 15 2016 Jan Synáček <jsynacek@redhat.com> - 1:24.5-10
|
||||||
- fix build failure on ppc64le (#1306793)
|
- fix build failure on ppc64le (#1306793)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user