1 /* Discard section not used at runtime from object files.
2 Copyright (C) 2000-2011 Red Hat, Inc.
3 This file is part of Red Hat elfutils.
4 Written by Ulrich Drepper <drepper@redhat.com>, 2000.
6 Red Hat elfutils is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by the
8 Free Software Foundation; version 2 of the License.
10 Red Hat elfutils is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License along
16 with Red Hat elfutils; if not, write to the Free Software Foundation,
17 Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA.
19 Red Hat elfutils is an included package of the Open Invention Network.
20 An included package of the Open Invention Network is a package for which
21 Open Invention Network licensees cross-license their patents. No patent
22 license is granted, either expressly or impliedly, by designation as an
23 included package. Should you wish to participate in the Open Invention
24 Network licensing program, please visit www.openinventionnetwork.com
25 <http://www.openinventionnetwork.com>. */
44 #include <stdio_ext.h>
48 #include <sys/param.h>
52 #include <elf-knowledge.h>
56 typedef uint8_t GElf_Byte;
58 /* Name and version of program. */
59 static void print_version (FILE *stream, struct argp_state *state);
60 ARGP_PROGRAM_VERSION_HOOK_DEF = print_version;
62 /* Bug report address. */
63 ARGP_PROGRAM_BUG_ADDRESS_DEF = PACKAGE_BUGREPORT;
66 /* Values for the parameters which have no short form. */
67 #define OPT_REMOVE_COMMENT 0x100
68 #define OPT_PERMISSIVE 0x101
69 #define OPT_STRIP_SECTIONS 0x102
70 #define OPT_RELOC_DEBUG 0x103
73 /* Definitions of arguments for argp functions. */
74 static const struct argp_option options[] =
76 { NULL, 0, NULL, 0, N_("Output selection:"), 0 },
77 { "output", 'o', "FILE", 0, N_("Place stripped output into FILE"), 0 },
78 { NULL, 'f', "FILE", 0, N_("Extract the removed sections into FILE"), 0 },
79 { NULL, 'F', "FILE", 0, N_("Embed name FILE instead of -f argument"), 0 },
81 { NULL, 0, NULL, 0, N_("Output options:"), 0 },
82 { "strip-all", 's', NULL, OPTION_HIDDEN, NULL, 0 },
83 { "strip-debug", 'g', NULL, 0, N_("Remove all debugging symbols"), 0 },
84 { NULL, 'd', NULL, OPTION_ALIAS, NULL, 0 },
85 { NULL, 'S', NULL, OPTION_ALIAS, NULL, 0 },
86 { "strip-sections", OPT_STRIP_SECTIONS, NULL, 0,
87 N_("Remove section headers (not recommended)"), 0 },
88 { "preserve-dates", 'p', NULL, 0,
89 N_("Copy modified/access timestamps to the output"), 0 },
90 { "reloc-debug-sections", OPT_RELOC_DEBUG, NULL, 0,
91 N_("Resolve all trivial relocations between debug sections if the removed sections are placed in a debug file (only relevant for ET_REL files, operation is not reversable, needs -f)"), 0 },
92 { "remove-comment", OPT_REMOVE_COMMENT, NULL, 0,
93 N_("Remove .comment section"), 0 },
94 { "remove-section", 'R', "SECTION", OPTION_HIDDEN, NULL, 0 },
95 { "permissive", OPT_PERMISSIVE, NULL, 0,
96 N_("Relax a few rules to handle slightly broken ELF files"), 0 },
97 { NULL, 0, NULL, 0, NULL, 0 }
100 /* Short description of program. */
101 static const char doc[] = N_("Discard symbols from object files.");
103 /* Strings for arguments in help texts. */
104 static const char args_doc[] = N_("[FILE...]");
106 /* Prototype for option handler. */
107 static error_t parse_opt (int key, char *arg, struct argp_state *state);
109 /* Data structure to communicate with argp functions. */
110 static struct argp argp =
112 options, parse_opt, args_doc, doc, NULL, NULL, NULL
116 /* Print symbols in file named FNAME. */
117 static int process_file (const char *fname);
119 /* Handle one ELF file. */
120 static int handle_elf (int fd, Elf *elf, const char *prefix,
121 const char *fname, mode_t mode, struct timeval tvp[2]);
123 /* Handle all files contained in the archive. */
124 static int handle_ar (int fd, Elf *elf, const char *prefix, const char *fname,
125 struct timeval tvp[2]);
127 #define INTERNAL_ERROR(fname) \
128 error (EXIT_FAILURE, 0, gettext ("%s: INTERNAL ERROR %d (%s-%s): %s"), \
129 fname, __LINE__, PACKAGE_VERSION, __DATE__, elf_errmsg (-1))
132 /* Name of the output file. */
133 static const char *output_fname;
135 /* Name of the debug output file. */
136 static const char *debug_fname;
138 /* Name to pretend the debug output file has. */
139 static const char *debug_fname_embed;
141 /* If true output files shall have same date as the input file. */
142 static bool preserve_dates;
144 /* If true .comment sections will be removed. */
145 static bool remove_comment;
147 /* If true remove all debug sections. */
148 static bool remove_debug;
150 /* If true remove all section headers. */
151 static bool remove_shdrs;
153 /* If true relax some ELF rules for input files. */
154 static bool permissive;
156 /* If true perform relocations between debug sections. */
157 static bool reloc_debug;
161 main (int argc, char *argv[])
166 /* Make memory leak detection possible. */
169 /* We use no threads here which can interfere with handling a stream. */
170 __fsetlocking (stdin, FSETLOCKING_BYCALLER);
171 __fsetlocking (stdout, FSETLOCKING_BYCALLER);
172 __fsetlocking (stderr, FSETLOCKING_BYCALLER);
175 setlocale (LC_ALL, "");
177 /* Make sure the message catalog can be found. */
178 bindtextdomain (PACKAGE_TARNAME, LOCALEDIR);
180 /* Initialize the message catalog. */
181 textdomain (PACKAGE_TARNAME);
183 /* Parse and process arguments. */
184 if (argp_parse (&argp, argc, argv, 0, &remaining, NULL) != 0)
187 if (reloc_debug && debug_fname == NULL)
188 error (EXIT_FAILURE, 0,
189 gettext ("--reloc-debug-sections used without -f"));
191 /* Tell the library which version we are expecting. */
192 elf_version (EV_CURRENT);
194 if (remaining == argc)
195 /* The user didn't specify a name so we use a.out. */
196 result = process_file ("a.out");
199 /* If we have seen the '-o' or '-f' option there must be exactly one
201 if ((output_fname != NULL || debug_fname != NULL)
202 && remaining + 1 < argc)
203 error (EXIT_FAILURE, 0, gettext ("\
204 Only one input file allowed together with '-o' and '-f'"));
206 /* Process all the remaining files. */
208 result |= process_file (argv[remaining]);
209 while (++remaining < argc);
216 /* Print the version information. */
218 print_version (FILE *stream, struct argp_state *state __attribute__ ((unused)))
220 fprintf (stream, "strip (%s) %s\n", PACKAGE_NAME, PACKAGE_VERSION);
221 fprintf (stream, gettext ("\
222 Copyright (C) %s Red Hat, Inc.\n\
223 This is free software; see the source for copying conditions. There is NO\n\
224 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
226 fprintf (stream, gettext ("Written by %s.\n"), "Ulrich Drepper");
230 /* Handle program arguments. */
232 parse_opt (int key, char *arg, struct argp_state *state)
237 if (debug_fname != NULL)
239 error (0, 0, gettext ("-f option specified twice"));
246 if (debug_fname_embed != NULL)
248 error (0, 0, gettext ("-F option specified twice"));
251 debug_fname_embed = arg;
255 if (output_fname != NULL)
257 error (0, 0, gettext ("-o option specified twice"));
264 preserve_dates = true;
267 case OPT_RELOC_DEBUG:
271 case OPT_REMOVE_COMMENT:
272 remove_comment = true;
276 if (!strcmp (arg, ".comment"))
277 remove_comment = true;
281 gettext ("-R option supports only .comment section"));
292 case OPT_STRIP_SECTIONS:
300 case 's': /* Ignored for compatibility. */
304 return ARGP_ERR_UNKNOWN;
311 process_file (const char *fname)
313 /* If we have to preserve the modify and access timestamps get them
314 now. We cannot use fstat() after opening the file since the open
315 would change the access time. */
316 struct stat64 pre_st;
317 struct timeval tv[2];
321 if (stat64 (fname, &pre_st) != 0)
323 error (0, errno, gettext ("cannot stat input file '%s'"), fname);
327 /* If we have to preserve the timestamp, we need it in the
328 format utimes() understands. */
329 TIMESPEC_TO_TIMEVAL (&tv[0], &pre_st.st_atim);
330 TIMESPEC_TO_TIMEVAL (&tv[1], &pre_st.st_mtim);
334 int fd = open (fname, output_fname == NULL ? O_RDWR : O_RDONLY);
337 error (0, errno, gettext ("while opening '%s'"), fname);
341 /* We always use fstat() even if we called stat() before. This is
342 done to make sure the information returned by stat() is for the
345 if (fstat64 (fd, &st) != 0)
347 error (0, errno, gettext ("cannot stat input file '%s'"), fname);
350 /* Paranoid mode on. */
352 && (st.st_ino != pre_st.st_ino || st.st_dev != pre_st.st_dev))
354 /* We detected a race. Try again. */
359 /* Now get the ELF descriptor. */
360 Elf *elf = elf_begin (fd, output_fname == NULL ? ELF_C_RDWR : ELF_C_READ,
363 switch (elf_kind (elf))
366 result = handle_elf (fd, elf, NULL, fname, st.st_mode & ACCESSPERMS,
367 preserve_dates ? tv : NULL);
371 /* It is not possible to strip the content of an archive direct
372 the output to a specific file. */
373 if (unlikely (output_fname != NULL || debug_fname != NULL))
375 error (0, 0, gettext ("%s: cannot use -o or -f when stripping archive"),
380 result = handle_ar (fd, elf, NULL, fname, preserve_dates ? tv : NULL);
384 error (0, 0, gettext ("%s: File format not recognized"), fname);
389 if (unlikely (elf_end (elf) != 0))
390 INTERNAL_ERROR (fname);
398 /* Maximum size of array allocated on stack. */
399 #define MAX_STACK_ALLOC (400 * 1024)
402 handle_elf (int fd, Elf *elf, const char *prefix, const char *fname,
403 mode_t mode, struct timeval tvp[2])
405 size_t prefix_len = prefix == NULL ? 0 : strlen (prefix);
406 size_t fname_len = strlen (fname) + 1;
407 char *fullname = alloca (prefix_len + 1 + fname_len);
409 Elf *debugelf = NULL;
410 char *tmp_debug_fname = NULL;
419 Elf_Data *debug_data;
421 Elf32_Word idx; /* Index in new file. */
422 Elf32_Word old_sh_link; /* Original value of shdr.sh_link. */
423 Elf32_Word symtab_idx;
424 Elf32_Word version_idx;
425 Elf32_Word group_idx;
426 Elf32_Word group_cnt;
428 struct Ebl_Strent *se;
429 Elf32_Word *newsymidx;
435 GElf_Ehdr newehdr_mem;
437 GElf_Ehdr debugehdr_mem;
438 GElf_Ehdr *debugehdr;
439 struct Ebl_Strtab *shst = NULL;
440 Elf_Data debuglink_crc_data;
441 bool any_symtab_changes = false;
442 Elf_Data *shstrtab_data = NULL;
444 /* Create the full name of the file. */
447 cp = mempcpy (cp, prefix, prefix_len);
450 memcpy (cp, fname, fname_len);
452 /* If we are not replacing the input file open a new file here. */
453 if (output_fname != NULL)
455 fd = open (output_fname, O_RDWR | O_CREAT, mode);
456 if (unlikely (fd == -1))
458 error (0, errno, gettext ("cannot open '%s'"), output_fname);
465 /* Get the EBL handling. Removing all debugging symbols with the -g
466 option or resolving all relocations between debug sections with
467 the --reloc-debug-sections option are currently the only reasons
468 we need EBL so don't open the backend unless necessary. */
470 if (remove_debug || reloc_debug)
472 ebl = ebl_openbackend (elf);
475 error (0, errno, gettext ("cannot open EBL backend"));
481 /* Open the additional file the debug information will be stored in. */
482 if (debug_fname != NULL)
484 /* Create a temporary file name. We do not want to overwrite
485 the debug file if the file would not contain any
487 size_t debug_fname_len = strlen (debug_fname);
488 tmp_debug_fname = (char *) alloca (debug_fname_len + sizeof (".XXXXXX"));
489 strcpy (mempcpy (tmp_debug_fname, debug_fname, debug_fname_len),
492 debug_fd = mkstemp (tmp_debug_fname);
493 if (unlikely (debug_fd == -1))
495 error (0, errno, gettext ("cannot open '%s'"), debug_fname);
501 /* Get the information from the old file. */
503 GElf_Ehdr *ehdr = gelf_getehdr (elf, &ehdr_mem);
505 INTERNAL_ERROR (fname);
507 /* Get the section header string table index. */
508 if (unlikely (elf_getshdrstrndx (elf, &shstrndx) < 0))
509 error (EXIT_FAILURE, 0,
510 gettext ("cannot get section header string table index"));
512 /* We now create a new ELF descriptor for the same file. We
513 construct it almost exactly in the same way with some information
516 if (output_fname != NULL)
517 newelf = elf_begin (fd, ELF_C_WRITE_MMAP, NULL);
519 newelf = elf_clone (elf, ELF_C_EMPTY);
521 if (unlikely (gelf_newehdr (newelf, gelf_getclass (elf)) == 0)
522 || (ehdr->e_type != ET_REL
523 && unlikely (gelf_newphdr (newelf, ehdr->e_phnum) == 0)))
525 error (0, 0, gettext ("cannot create new file '%s': %s"),
526 output_fname, elf_errmsg (-1));
530 /* Copy over the old program header if needed. */
531 if (ehdr->e_type != ET_REL)
532 for (cnt = 0; cnt < ehdr->e_phnum; ++cnt)
535 GElf_Phdr *phdr = gelf_getphdr (elf, cnt, &phdr_mem);
537 || unlikely (gelf_update_phdr (newelf, cnt, phdr) == 0))
538 INTERNAL_ERROR (fname);
541 if (debug_fname != NULL)
543 /* Also create an ELF descriptor for the debug file */
544 debugelf = elf_begin (debug_fd, ELF_C_WRITE_MMAP, NULL);
545 if (unlikely (gelf_newehdr (debugelf, gelf_getclass (elf)) == 0)
546 || (ehdr->e_type != ET_REL
547 && unlikely (gelf_newphdr (debugelf, ehdr->e_phnum) == 0)))
549 error (0, 0, gettext ("cannot create new file '%s': %s"),
550 debug_fname, elf_errmsg (-1));
554 /* Copy over the old program header if needed. */
555 if (ehdr->e_type != ET_REL)
556 for (cnt = 0; cnt < ehdr->e_phnum; ++cnt)
559 GElf_Phdr *phdr = gelf_getphdr (elf, cnt, &phdr_mem);
561 || unlikely (gelf_update_phdr (debugelf, cnt, phdr) == 0))
562 INTERNAL_ERROR (fname);
566 /* Number of sections. */
568 if (unlikely (elf_getshdrnum (elf, &shnum) < 0))
570 error (0, 0, gettext ("cannot determine number of sections: %s"),
575 /* Storage for section information. We leave room for two more
576 entries since we unconditionally create a section header string
577 table. Maybe some weird tool created an ELF file without one.
578 The other one is used for the debug link section. */
579 if ((shnum + 2) * sizeof (struct shdr_info) > MAX_STACK_ALLOC)
580 shdr_info = (struct shdr_info *) xcalloc (shnum + 2,
581 sizeof (struct shdr_info));
584 shdr_info = (struct shdr_info *) alloca ((shnum + 2)
585 * sizeof (struct shdr_info));
586 memset (shdr_info, '\0', (shnum + 2) * sizeof (struct shdr_info));
589 /* Prepare section information data structure. */
592 while ((scn = elf_nextscn (elf, scn)) != NULL)
594 /* This should always be true (i.e., there should not be any
595 holes in the numbering). */
596 assert (elf_ndxscn (scn) == cnt);
598 shdr_info[cnt].scn = scn;
600 /* Get the header. */
601 if (gelf_getshdr (scn, &shdr_info[cnt].shdr) == NULL)
602 INTERNAL_ERROR (fname);
604 /* Get the name of the section. */
605 shdr_info[cnt].name = elf_strptr (elf, shstrndx,
606 shdr_info[cnt].shdr.sh_name);
607 if (shdr_info[cnt].name == NULL)
609 error (0, 0, gettext ("illformed file '%s'"), fname);
613 /* Mark them as present but not yet investigated. */
614 shdr_info[cnt].idx = 1;
616 /* Remember the shdr.sh_link value. */
617 shdr_info[cnt].old_sh_link = shdr_info[cnt].shdr.sh_link;
619 /* Sections in files other than relocatable object files which
620 are not loaded can be freely moved by us. In relocatable
621 object files everything can be moved. */
622 if (ehdr->e_type == ET_REL
623 || (shdr_info[cnt].shdr.sh_flags & SHF_ALLOC) == 0)
624 shdr_info[cnt].shdr.sh_offset = 0;
626 /* If this is an extended section index table store an
627 appropriate reference. */
628 if (unlikely (shdr_info[cnt].shdr.sh_type == SHT_SYMTAB_SHNDX))
630 assert (shdr_info[shdr_info[cnt].shdr.sh_link].symtab_idx == 0);
631 shdr_info[shdr_info[cnt].shdr.sh_link].symtab_idx = cnt;
633 else if (unlikely (shdr_info[cnt].shdr.sh_type == SHT_GROUP))
635 /* Cross-reference the sections contained in the section
637 shdr_info[cnt].data = elf_getdata (shdr_info[cnt].scn, NULL);
638 if (shdr_info[cnt].data == NULL)
639 INTERNAL_ERROR (fname);
641 /* XXX Fix for unaligned access. */
642 Elf32_Word *grpref = (Elf32_Word *) shdr_info[cnt].data->d_buf;
645 inner < shdr_info[cnt].data->d_size / sizeof (Elf32_Word);
647 shdr_info[grpref[inner]].group_idx = cnt;
649 if (inner == 1 || (inner == 2 && (grpref[0] & GRP_COMDAT) == 0))
650 /* If the section group contains only one element and this
651 is n COMDAT section we can drop it right away. */
652 shdr_info[cnt].idx = 0;
654 shdr_info[cnt].group_cnt = inner - 1;
656 else if (unlikely (shdr_info[cnt].shdr.sh_type == SHT_GNU_versym))
658 assert (shdr_info[shdr_info[cnt].shdr.sh_link].version_idx == 0);
659 shdr_info[shdr_info[cnt].shdr.sh_link].version_idx = cnt;
662 /* If this section is part of a group make sure it is not
663 discarded right away. */
664 if ((shdr_info[cnt].shdr.sh_flags & SHF_GROUP) != 0)
666 assert (shdr_info[cnt].group_idx != 0);
668 if (shdr_info[shdr_info[cnt].group_idx].idx == 0)
670 /* The section group section will be removed. */
671 shdr_info[cnt].group_idx = 0;
672 shdr_info[cnt].shdr.sh_flags &= ~SHF_GROUP;
676 /* Increment the counter. */
680 /* Now determine which sections can go away. The general rule is that
681 all sections which are not used at runtime are stripped out. But
682 there are a few exceptions:
684 - special sections named ".comment" and ".note" are kept
685 - OS or architecture specific sections are kept since we might not
686 know how to handle them
687 - if a section is referred to from a section which is not removed
688 in the sh_link or sh_info element it cannot be removed either
690 for (cnt = 1; cnt < shnum; ++cnt)
691 /* Check whether the section can be removed. */
692 if (remove_shdrs ? !(shdr_info[cnt].shdr.sh_flags & SHF_ALLOC)
693 : ebl_section_strip_p (ebl, ehdr, &shdr_info[cnt].shdr,
694 shdr_info[cnt].name, remove_comment,
697 /* For now assume this section will be removed. */
698 shdr_info[cnt].idx = 0;
700 idx = shdr_info[cnt].group_idx;
703 /* The section group data is already loaded. */
704 assert (shdr_info[idx].data != NULL);
706 /* If the references section group is a normal section
707 group and has one element remaining, or if it is an
708 empty COMDAT section group it is removed. */
709 bool is_comdat = (((Elf32_Word *) shdr_info[idx].data->d_buf)[0]
712 --shdr_info[idx].group_cnt;
713 if ((!is_comdat && shdr_info[idx].group_cnt == 1)
714 || (is_comdat && shdr_info[idx].group_cnt == 0))
716 shdr_info[idx].idx = 0;
717 /* Continue recursively. */
718 idx = shdr_info[idx].group_idx;
725 /* Mark the SHT_NULL section as handled. */
726 shdr_info[0].idx = 2;
729 /* Handle exceptions: section groups and cross-references. We might
730 have to repeat this a few times since the resetting of the flag
736 for (cnt = 1; cnt < shnum; ++cnt)
738 if (shdr_info[cnt].idx == 0)
740 /* If a relocation section is marked as being removed make
741 sure the section it is relocating is removed, too. */
742 if ((shdr_info[cnt].shdr.sh_type == SHT_REL
743 || shdr_info[cnt].shdr.sh_type == SHT_RELA)
744 && shdr_info[shdr_info[cnt].shdr.sh_info].idx != 0)
745 shdr_info[cnt].idx = 1;
747 /* If a group section is marked as being removed make
748 sure all the sections it contains are being removed, too. */
749 if (shdr_info[cnt].shdr.sh_type == SHT_GROUP)
752 grpref = (Elf32_Word *) shdr_info[cnt].data->d_buf;
754 in < shdr_info[cnt].data->d_size / sizeof (Elf32_Word);
756 if (shdr_info[grpref[in]].idx != 0)
758 shdr_info[cnt].idx = 1;
764 if (shdr_info[cnt].idx == 1)
766 /* The content of symbol tables we don't remove must not
767 reference any section which we do remove. Otherwise
768 we cannot remove the section. */
769 if (debug_fname != NULL
770 && shdr_info[cnt].debug_data == NULL
771 && (shdr_info[cnt].shdr.sh_type == SHT_DYNSYM
772 || shdr_info[cnt].shdr.sh_type == SHT_SYMTAB))
774 /* Make sure the data is loaded. */
775 if (shdr_info[cnt].data == NULL)
778 = elf_getdata (shdr_info[cnt].scn, NULL);
779 if (shdr_info[cnt].data == NULL)
780 INTERNAL_ERROR (fname);
782 Elf_Data *symdata = shdr_info[cnt].data;
784 /* If there is an extended section index table load it
786 if (shdr_info[cnt].symtab_idx != 0
787 && shdr_info[shdr_info[cnt].symtab_idx].data == NULL)
789 assert (shdr_info[cnt].shdr.sh_type == SHT_SYMTAB);
791 shdr_info[shdr_info[cnt].symtab_idx].data
792 = elf_getdata (shdr_info[shdr_info[cnt].symtab_idx].scn,
794 if (shdr_info[shdr_info[cnt].symtab_idx].data == NULL)
795 INTERNAL_ERROR (fname);
798 = shdr_info[shdr_info[cnt].symtab_idx].data;
800 /* Go through all symbols and make sure the section they
801 reference is not removed. */
802 size_t elsize = gelf_fsize (elf, ELF_T_SYM, 1,
805 for (size_t inner = 0;
806 inner < shdr_info[cnt].data->d_size / elsize;
811 GElf_Sym *sym = gelf_getsymshndx (symdata, xndxdata,
815 INTERNAL_ERROR (fname);
817 size_t scnidx = sym->st_shndx;
818 if (scnidx == SHN_UNDEF || scnidx >= shnum
819 || (scnidx >= SHN_LORESERVE
820 && scnidx <= SHN_HIRESERVE
821 && scnidx != SHN_XINDEX)
822 /* Don't count in the section symbols. */
823 || GELF_ST_TYPE (sym->st_info) == STT_SECTION)
824 /* This is no section index, leave it alone. */
826 else if (scnidx == SHN_XINDEX)
829 if (shdr_info[scnidx].idx == 0)
830 /* This symbol table has a real symbol in
831 a discarded section. So preserve the
832 original table in the debug file. */
833 shdr_info[cnt].debug_data = symdata;
837 /* Cross referencing happens:
838 - for the cases the ELF specification says. That are
839 + SHT_DYNAMIC in sh_link to string table
840 + SHT_HASH in sh_link to symbol table
841 + SHT_REL and SHT_RELA in sh_link to symbol table
842 + SHT_SYMTAB and SHT_DYNSYM in sh_link to string table
843 + SHT_GROUP in sh_link to symbol table
844 + SHT_SYMTAB_SHNDX in sh_link to symbol table
845 Other (OS or architecture-specific) sections might as
846 well use this field so we process it unconditionally.
847 - references inside section groups
848 - specially marked references in sh_info if the SHF_INFO_LINK
852 if (shdr_info[shdr_info[cnt].shdr.sh_link].idx == 0)
854 shdr_info[shdr_info[cnt].shdr.sh_link].idx = 1;
855 changes |= shdr_info[cnt].shdr.sh_link < cnt;
858 /* Handle references through sh_info. */
859 if (SH_INFO_LINK_P (&shdr_info[cnt].shdr)
860 && shdr_info[shdr_info[cnt].shdr.sh_info].idx == 0)
862 shdr_info[shdr_info[cnt].shdr.sh_info].idx = 1;
863 changes |= shdr_info[cnt].shdr.sh_info < cnt;
866 /* Mark the section as investigated. */
867 shdr_info[cnt].idx = 2;
870 if (debug_fname != NULL
871 && (shdr_info[cnt].idx == 0 || shdr_info[cnt].debug_data != NULL))
873 /* This section is being preserved in the debug file.
874 Sections it refers to must be preserved there too.
876 In this pass we mark sections to be preserved in both
877 files by setting the .debug_data pointer to the original
878 file's .data pointer. Below, we'll copy the section
881 inline void check_preserved (size_t i)
883 if (i != 0 && shdr_info[i].idx != 0
884 && shdr_info[i].debug_data == NULL)
886 if (shdr_info[i].data == NULL)
887 shdr_info[i].data = elf_getdata (shdr_info[i].scn, NULL);
888 if (shdr_info[i].data == NULL)
889 INTERNAL_ERROR (fname);
891 shdr_info[i].debug_data = shdr_info[i].data;
896 check_preserved (shdr_info[cnt].shdr.sh_link);
897 if (SH_INFO_LINK_P (&shdr_info[cnt].shdr))
898 check_preserved (shdr_info[cnt].shdr.sh_info);
904 /* Copy the removed sections to the debug output file.
905 The ones that are not removed in the stripped file are SHT_NOBITS. */
906 if (debug_fname != NULL)
908 for (cnt = 1; cnt < shnum; ++cnt)
910 scn = elf_newscn (debugelf);
912 error (EXIT_FAILURE, 0,
913 gettext ("while generating output file: %s"),
916 bool discard_section = (shdr_info[cnt].idx > 0
917 && shdr_info[cnt].debug_data == NULL
918 && shdr_info[cnt].shdr.sh_type != SHT_NOTE
919 && shdr_info[cnt].shdr.sh_type != SHT_GROUP
920 && cnt != ehdr->e_shstrndx);
922 /* Set the section header in the new file. */
923 GElf_Shdr debugshdr = shdr_info[cnt].shdr;
925 debugshdr.sh_type = SHT_NOBITS;
927 if (unlikely (gelf_update_shdr (scn, &debugshdr) == 0))
928 /* There cannot be any overflows. */
929 INTERNAL_ERROR (fname);
931 /* Get the data from the old file if necessary. */
932 if (shdr_info[cnt].data == NULL)
934 shdr_info[cnt].data = elf_getdata (shdr_info[cnt].scn, NULL);
935 if (shdr_info[cnt].data == NULL)
936 INTERNAL_ERROR (fname);
939 /* Set the data. This is done by copying from the old file. */
940 Elf_Data *debugdata = elf_newdata (scn);
941 if (debugdata == NULL)
942 INTERNAL_ERROR (fname);
944 /* Copy the structure. This data may be modified in place
945 before we write out the file. */
946 *debugdata = *shdr_info[cnt].data;
948 debugdata->d_buf = NULL;
949 else if (shdr_info[cnt].debug_data != NULL
950 || shdr_info[cnt].shdr.sh_type == SHT_GROUP)
952 /* Copy the original data before it gets modified. */
953 shdr_info[cnt].debug_data = debugdata;
954 debugdata->d_buf = memcpy (xmalloc (debugdata->d_size),
955 debugdata->d_buf, debugdata->d_size);
959 /* Finish the ELF header. Fill in the fields not handled by
960 libelf from the old file. */
961 debugehdr = gelf_getehdr (debugelf, &debugehdr_mem);
962 if (debugehdr == NULL)
963 INTERNAL_ERROR (fname);
965 memcpy (debugehdr->e_ident, ehdr->e_ident, EI_NIDENT);
966 debugehdr->e_type = ehdr->e_type;
967 debugehdr->e_machine = ehdr->e_machine;
968 debugehdr->e_version = ehdr->e_version;
969 debugehdr->e_entry = ehdr->e_entry;
970 debugehdr->e_flags = ehdr->e_flags;
971 debugehdr->e_shstrndx = ehdr->e_shstrndx;
973 if (unlikely (gelf_update_ehdr (debugelf, debugehdr) == 0))
975 error (0, 0, gettext ("%s: error while creating ELF header: %s"),
976 debug_fname, elf_errmsg (-1));
982 /* Mark the section header string table as unused, we will create
984 shdr_info[shstrndx].idx = 0;
986 /* We need a string table for the section headers. */
987 shst = ebl_strtabinit (true);
989 error (EXIT_FAILURE, errno, gettext ("while preparing output for '%s'"),
990 output_fname ?: fname);
992 /* Assign new section numbers. */
993 shdr_info[0].idx = 0;
994 for (cnt = idx = 1; cnt < shnum; ++cnt)
995 if (shdr_info[cnt].idx > 0)
997 shdr_info[cnt].idx = idx++;
999 /* Create a new section. */
1000 shdr_info[cnt].newscn = elf_newscn (newelf);
1001 if (shdr_info[cnt].newscn == NULL)
1002 error (EXIT_FAILURE, 0, gettext ("while generating output file: %s"),
1005 assert (elf_ndxscn (shdr_info[cnt].newscn) == shdr_info[cnt].idx);
1007 /* Add this name to the section header string table. */
1008 shdr_info[cnt].se = ebl_strtabadd (shst, shdr_info[cnt].name, 0);
1011 /* Test whether we are doing anything at all. */
1013 /* Nope, all removable sections are already gone. */
1016 /* Create the reference to the file with the debug info. */
1017 if (debug_fname != NULL && !remove_shdrs)
1019 /* Add the section header string table section name. */
1020 shdr_info[cnt].se = ebl_strtabadd (shst, ".gnu_debuglink", 15);
1021 shdr_info[cnt].idx = idx++;
1023 /* Create the section header. */
1024 shdr_info[cnt].shdr.sh_type = SHT_PROGBITS;
1025 shdr_info[cnt].shdr.sh_flags = 0;
1026 shdr_info[cnt].shdr.sh_addr = 0;
1027 shdr_info[cnt].shdr.sh_link = SHN_UNDEF;
1028 shdr_info[cnt].shdr.sh_info = SHN_UNDEF;
1029 shdr_info[cnt].shdr.sh_entsize = 0;
1030 shdr_info[cnt].shdr.sh_addralign = 4;
1031 /* We set the offset to zero here. Before we write the ELF file the
1032 field must have the correct value. This is done in the final
1033 loop over all section. Then we have all the information needed. */
1034 shdr_info[cnt].shdr.sh_offset = 0;
1036 /* Create the section. */
1037 shdr_info[cnt].newscn = elf_newscn (newelf);
1038 if (shdr_info[cnt].newscn == NULL)
1039 error (EXIT_FAILURE, 0,
1040 gettext ("while create section header section: %s"),
1042 assert (elf_ndxscn (shdr_info[cnt].newscn) == shdr_info[cnt].idx);
1044 shdr_info[cnt].data = elf_newdata (shdr_info[cnt].newscn);
1045 if (shdr_info[cnt].data == NULL)
1046 error (EXIT_FAILURE, 0, gettext ("cannot allocate section data: %s"),
1049 char *debug_basename = basename (debug_fname_embed ?: debug_fname);
1050 off_t crc_offset = strlen (debug_basename) + 1;
1051 /* Align to 4 byte boundary */
1052 crc_offset = ((crc_offset - 1) & ~3) + 4;
1054 shdr_info[cnt].data->d_align = 4;
1055 shdr_info[cnt].shdr.sh_size = shdr_info[cnt].data->d_size
1057 shdr_info[cnt].data->d_buf = xcalloc (1, shdr_info[cnt].data->d_size);
1059 strcpy (shdr_info[cnt].data->d_buf, debug_basename);
1061 /* Cache this Elf_Data describing the CRC32 word in the section.
1062 We'll fill this in when we have written the debug file. */
1063 debuglink_crc_data = *shdr_info[cnt].data;
1064 debuglink_crc_data.d_buf = ((char *) debuglink_crc_data.d_buf
1066 debuglink_crc_data.d_size = 4;
1068 /* One more section done. */
1072 /* Index of the section header table in the shdr_info array. */
1075 /* Add the section header string table section name. */
1076 shdr_info[cnt].se = ebl_strtabadd (shst, ".shstrtab", 10);
1077 shdr_info[cnt].idx = idx;
1079 /* Create the section header. */
1080 shdr_info[cnt].shdr.sh_type = SHT_STRTAB;
1081 shdr_info[cnt].shdr.sh_flags = 0;
1082 shdr_info[cnt].shdr.sh_addr = 0;
1083 shdr_info[cnt].shdr.sh_link = SHN_UNDEF;
1084 shdr_info[cnt].shdr.sh_info = SHN_UNDEF;
1085 shdr_info[cnt].shdr.sh_entsize = 0;
1086 /* We set the offset to zero here. Before we write the ELF file the
1087 field must have the correct value. This is done in the final
1088 loop over all section. Then we have all the information needed. */
1089 shdr_info[cnt].shdr.sh_offset = 0;
1090 shdr_info[cnt].shdr.sh_addralign = 1;
1092 /* Create the section. */
1093 shdr_info[cnt].newscn = elf_newscn (newelf);
1094 if (shdr_info[cnt].newscn == NULL)
1095 error (EXIT_FAILURE, 0,
1096 gettext ("while create section header section: %s"),
1098 assert (elf_ndxscn (shdr_info[cnt].newscn) == idx);
1100 /* Finalize the string table and fill in the correct indices in the
1102 shstrtab_data = elf_newdata (shdr_info[cnt].newscn);
1103 if (shstrtab_data == NULL)
1104 error (EXIT_FAILURE, 0,
1105 gettext ("while create section header string table: %s"),
1107 ebl_strtabfinalize (shst, shstrtab_data);
1109 /* We have to set the section size. */
1110 shdr_info[cnt].shdr.sh_size = shstrtab_data->d_size;
1112 /* Update the section information. */
1113 GElf_Off lastoffset = 0;
1114 for (cnt = 1; cnt <= shdridx; ++cnt)
1115 if (shdr_info[cnt].idx > 0)
1119 scn = elf_getscn (newelf, shdr_info[cnt].idx);
1120 assert (scn != NULL);
1122 /* Update the name. */
1123 shdr_info[cnt].shdr.sh_name = ebl_strtaboffset (shdr_info[cnt].se);
1125 /* Update the section header from the input file. Some fields
1126 might be section indeces which now have to be adjusted. */
1127 if (shdr_info[cnt].shdr.sh_link != 0)
1128 shdr_info[cnt].shdr.sh_link =
1129 shdr_info[shdr_info[cnt].shdr.sh_link].idx;
1131 if (shdr_info[cnt].shdr.sh_type == SHT_GROUP)
1133 assert (shdr_info[cnt].data != NULL);
1135 Elf32_Word *grpref = (Elf32_Word *) shdr_info[cnt].data->d_buf;
1136 for (size_t inner = 0;
1137 inner < shdr_info[cnt].data->d_size / sizeof (Elf32_Word);
1139 grpref[inner] = shdr_info[grpref[inner]].idx;
1142 /* Handle the SHT_REL, SHT_RELA, and SHF_INFO_LINK flag. */
1143 if (SH_INFO_LINK_P (&shdr_info[cnt].shdr))
1144 shdr_info[cnt].shdr.sh_info =
1145 shdr_info[shdr_info[cnt].shdr.sh_info].idx;
1147 /* Get the data from the old file if necessary. We already
1148 created the data for the section header string table. */
1151 if (shdr_info[cnt].data == NULL)
1153 shdr_info[cnt].data = elf_getdata (shdr_info[cnt].scn, NULL);
1154 if (shdr_info[cnt].data == NULL)
1155 INTERNAL_ERROR (fname);
1158 /* Set the data. This is done by copying from the old file. */
1159 newdata = elf_newdata (scn);
1160 if (newdata == NULL)
1161 INTERNAL_ERROR (fname);
1163 /* Copy the structure. */
1164 *newdata = *shdr_info[cnt].data;
1166 /* We know the size. */
1167 shdr_info[cnt].shdr.sh_size = shdr_info[cnt].data->d_size;
1169 /* We have to adjust symbol tables. The st_shndx member might
1170 have to be updated. */
1171 if (shdr_info[cnt].shdr.sh_type == SHT_DYNSYM
1172 || shdr_info[cnt].shdr.sh_type == SHT_SYMTAB)
1174 Elf_Data *versiondata = NULL;
1175 Elf_Data *shndxdata = NULL;
1177 size_t elsize = gelf_fsize (elf, ELF_T_SYM, 1,
1180 if (shdr_info[cnt].symtab_idx != 0)
1182 assert (shdr_info[cnt].shdr.sh_type == SHT_SYMTAB_SHNDX);
1183 /* This section has extended section information.
1184 We have to modify that information, too. */
1185 shndxdata = elf_getdata (shdr_info[shdr_info[cnt].symtab_idx].scn,
1188 assert ((versiondata->d_size / sizeof (Elf32_Word))
1189 >= shdr_info[cnt].data->d_size / elsize);
1192 if (shdr_info[cnt].version_idx != 0)
1194 assert (shdr_info[cnt].shdr.sh_type == SHT_DYNSYM);
1195 /* This section has associated version
1196 information. We have to modify that
1197 information, too. */
1198 versiondata = elf_getdata (shdr_info[shdr_info[cnt].version_idx].scn,
1201 assert ((versiondata->d_size / sizeof (GElf_Versym))
1202 >= shdr_info[cnt].data->d_size / elsize);
1205 shdr_info[cnt].newsymidx
1206 = (Elf32_Word *) xcalloc (shdr_info[cnt].data->d_size
1207 / elsize, sizeof (Elf32_Word));
1209 bool last_was_local = true;
1212 for (destidx = inner = 1;
1213 inner < shdr_info[cnt].data->d_size / elsize;
1219 GElf_Sym *sym = gelf_getsymshndx (shdr_info[cnt].data,
1223 INTERNAL_ERROR (fname);
1225 if (sym->st_shndx == SHN_UNDEF
1226 || (sym->st_shndx >= shnum
1227 && sym->st_shndx != SHN_XINDEX))
1229 /* This is no section index, leave it alone
1230 unless it is moved. */
1231 if (destidx != inner
1232 && gelf_update_symshndx (shdr_info[cnt].data,
1236 INTERNAL_ERROR (fname);
1238 shdr_info[cnt].newsymidx[inner] = destidx++;
1241 && GELF_ST_BIND (sym->st_info) != STB_LOCAL)
1243 last_was_local = false;
1244 shdr_info[cnt].shdr.sh_info = destidx - 1;
1250 /* Get the full section index, if necessary from the
1252 if (sym->st_shndx != SHN_XINDEX)
1253 sec = shdr_info[sym->st_shndx].idx;
1256 assert (shndxdata != NULL);
1258 sec = shdr_info[xshndx].idx;
1263 GElf_Section nshndx;
1266 if (sec < SHN_LORESERVE)
1273 nshndx = SHN_XINDEX;
1277 assert (sec < SHN_LORESERVE || shndxdata != NULL);
1279 if ((inner != destidx || nshndx != sym->st_shndx
1280 || (shndxdata != NULL && nxshndx != xshndx))
1281 && (sym->st_shndx = nshndx,
1282 gelf_update_symshndx (shdr_info[cnt].data,
1286 INTERNAL_ERROR (fname);
1288 shdr_info[cnt].newsymidx[inner] = destidx++;
1291 && GELF_ST_BIND (sym->st_info) != STB_LOCAL)
1293 last_was_local = false;
1294 shdr_info[cnt].shdr.sh_info = destidx - 1;
1297 else if (debug_fname == NULL
1298 || shdr_info[cnt].debug_data == NULL)
1299 /* This is a section or group signature symbol
1300 for a section which has been removed. */
1302 size_t sidx = (sym->st_shndx != SHN_XINDEX
1303 ? sym->st_shndx : xshndx);
1304 assert (GELF_ST_TYPE (sym->st_info) == STT_SECTION
1305 || (shdr_info[sidx].shdr.sh_type == SHT_GROUP
1306 && shdr_info[sidx].shdr.sh_info == inner));
1310 if (destidx != inner)
1312 /* The size of the symbol table changed. */
1313 shdr_info[cnt].shdr.sh_size = newdata->d_size
1315 any_symtab_changes = true;
1319 /* The symbol table didn't really change. */
1320 free (shdr_info[cnt].newsymidx);
1321 shdr_info[cnt].newsymidx = NULL;
1326 /* If we have to, compute the offset of the section. */
1327 if (shdr_info[cnt].shdr.sh_offset == 0)
1328 shdr_info[cnt].shdr.sh_offset
1329 = ((lastoffset + shdr_info[cnt].shdr.sh_addralign - 1)
1330 & ~((GElf_Off) (shdr_info[cnt].shdr.sh_addralign - 1)));
1332 /* Set the section header in the new file. */
1333 if (unlikely (gelf_update_shdr (scn, &shdr_info[cnt].shdr) == 0))
1334 /* There cannot be any overflows. */
1335 INTERNAL_ERROR (fname);
1337 /* Remember the last section written so far. */
1338 GElf_Off filesz = (shdr_info[cnt].shdr.sh_type != SHT_NOBITS
1339 ? shdr_info[cnt].shdr.sh_size : 0);
1340 if (lastoffset < shdr_info[cnt].shdr.sh_offset + filesz)
1341 lastoffset = shdr_info[cnt].shdr.sh_offset + filesz;
1344 /* Adjust symbol references if symbol tables changed. */
1345 if (any_symtab_changes)
1346 /* Find all relocation sections which use this symbol table. */
1347 for (cnt = 1; cnt <= shdridx; ++cnt)
1349 /* Update section headers when the data size has changed.
1350 We also update the SHT_NOBITS section in the debug
1351 file so that the section headers match in sh_size. */
1352 inline void update_section_size (const Elf_Data *newdata)
1355 GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
1356 shdr->sh_size = newdata->d_size;
1357 (void) gelf_update_shdr (scn, shdr);
1358 if (debugelf != NULL)
1360 /* libelf will use d_size to set sh_size. */
1361 Elf_Data *debugdata = elf_getdata (elf_getscn (debugelf,
1363 debugdata->d_size = newdata->d_size;
1367 if (shdr_info[cnt].idx == 0 && debug_fname == NULL)
1368 /* Ignore sections which are discarded. When we are saving a
1369 relocation section in a separate debug file, we must fix up
1370 the symbol table references. */
1373 const Elf32_Word symtabidx = shdr_info[cnt].old_sh_link;
1374 const Elf32_Word *const newsymidx = shdr_info[symtabidx].newsymidx;
1375 switch (shdr_info[cnt].shdr.sh_type)
1377 inline bool no_symtab_updates (void)
1379 /* If the symbol table hasn't changed, do not do anything. */
1380 if (shdr_info[symtabidx].newsymidx == NULL)
1383 /* If the symbol table is not discarded, but additionally
1384 duplicated in the separate debug file and this section
1385 is discarded, don't adjust anything. */
1386 return (shdr_info[cnt].idx == 0
1387 && shdr_info[symtabidx].debug_data != NULL);
1392 if (no_symtab_updates ())
1395 Elf_Data *d = elf_getdata (shdr_info[cnt].idx == 0
1396 ? elf_getscn (debugelf, cnt)
1397 : elf_getscn (newelf,
1398 shdr_info[cnt].idx),
1401 size_t nrels = (shdr_info[cnt].shdr.sh_size
1402 / shdr_info[cnt].shdr.sh_entsize);
1404 if (shdr_info[cnt].shdr.sh_type == SHT_REL)
1405 for (size_t relidx = 0; relidx < nrels; ++relidx)
1408 if (gelf_getrel (d, relidx, &rel_mem) == NULL)
1409 INTERNAL_ERROR (fname);
1411 size_t symidx = GELF_R_SYM (rel_mem.r_info);
1412 if (newsymidx[symidx] != symidx)
1415 = GELF_R_INFO (newsymidx[symidx],
1416 GELF_R_TYPE (rel_mem.r_info));
1418 if (gelf_update_rel (d, relidx, &rel_mem) == 0)
1419 INTERNAL_ERROR (fname);
1423 for (size_t relidx = 0; relidx < nrels; ++relidx)
1426 if (gelf_getrela (d, relidx, &rel_mem) == NULL)
1427 INTERNAL_ERROR (fname);
1429 size_t symidx = GELF_R_SYM (rel_mem.r_info);
1430 if (newsymidx[symidx] != symidx)
1433 = GELF_R_INFO (newsymidx[symidx],
1434 GELF_R_TYPE (rel_mem.r_info));
1436 if (gelf_update_rela (d, relidx, &rel_mem) == 0)
1437 INTERNAL_ERROR (fname);
1443 if (no_symtab_updates ())
1446 /* We have to recompute the hash table. */
1448 assert (shdr_info[cnt].idx > 0);
1450 /* The hash section in the new file. */
1451 scn = elf_getscn (newelf, shdr_info[cnt].idx);
1453 /* The symbol table data. */
1454 Elf_Data *symd = elf_getdata (elf_getscn (newelf,
1455 shdr_info[symtabidx].idx),
1457 assert (symd != NULL);
1459 /* The hash table data. */
1460 Elf_Data *hashd = elf_getdata (scn, NULL);
1461 assert (hashd != NULL);
1463 if (shdr_info[cnt].shdr.sh_entsize == sizeof (Elf32_Word))
1465 /* Sane arches first. */
1466 Elf32_Word *bucket = (Elf32_Word *) hashd->d_buf;
1468 size_t strshndx = shdr_info[symtabidx].old_sh_link;
1469 size_t elsize = gelf_fsize (elf, ELF_T_SYM, 1,
1472 /* Adjust the nchain value. The symbol table size
1473 changed. We keep the same size for the bucket array. */
1474 bucket[1] = symd->d_size / elsize;
1475 Elf32_Word nbucket = bucket[0];
1477 Elf32_Word *chain = bucket + nbucket;
1479 /* New size of the section. */
1480 hashd->d_size = ((2 + symd->d_size / elsize + nbucket)
1481 * sizeof (Elf32_Word));
1482 update_section_size (hashd);
1484 /* Clear the arrays. */
1485 memset (bucket, '\0',
1486 (symd->d_size / elsize + nbucket)
1487 * sizeof (Elf32_Word));
1489 for (size_t inner = shdr_info[symtabidx].shdr.sh_info;
1490 inner < symd->d_size / elsize; ++inner)
1493 GElf_Sym *sym = gelf_getsym (symd, inner, &sym_mem);
1494 assert (sym != NULL);
1496 const char *name = elf_strptr (elf, strshndx,
1498 assert (name != NULL);
1499 size_t hidx = elf_hash (name) % nbucket;
1501 if (bucket[hidx] == 0)
1502 bucket[hidx] = inner;
1505 hidx = bucket[hidx];
1507 while (chain[hidx] != 0)
1510 chain[hidx] = inner;
1516 /* Alpha and S390 64-bit use 64-bit SHT_HASH entries. */
1517 assert (shdr_info[cnt].shdr.sh_entsize
1518 == sizeof (Elf64_Xword));
1520 Elf64_Xword *bucket = (Elf64_Xword *) hashd->d_buf;
1522 size_t strshndx = shdr_info[symtabidx].old_sh_link;
1523 size_t elsize = gelf_fsize (elf, ELF_T_SYM, 1,
1526 /* Adjust the nchain value. The symbol table size
1527 changed. We keep the same size for the bucket array. */
1528 bucket[1] = symd->d_size / elsize;
1529 Elf64_Xword nbucket = bucket[0];
1531 Elf64_Xword *chain = bucket + nbucket;
1533 /* New size of the section. */
1534 hashd->d_size = ((2 + symd->d_size / elsize + nbucket)
1535 * sizeof (Elf64_Xword));
1536 update_section_size (hashd);
1538 /* Clear the arrays. */
1539 memset (bucket, '\0',
1540 (symd->d_size / elsize + nbucket)
1541 * sizeof (Elf64_Xword));
1543 for (size_t inner = shdr_info[symtabidx].shdr.sh_info;
1544 inner < symd->d_size / elsize; ++inner)
1547 GElf_Sym *sym = gelf_getsym (symd, inner, &sym_mem);
1548 assert (sym != NULL);
1550 const char *name = elf_strptr (elf, strshndx,
1552 assert (name != NULL);
1553 size_t hidx = elf_hash (name) % nbucket;
1555 if (bucket[hidx] == 0)
1556 bucket[hidx] = inner;
1559 hidx = bucket[hidx];
1561 while (chain[hidx] != 0)
1564 chain[hidx] = inner;
1570 case SHT_GNU_versym:
1571 /* If the symbol table changed we have to adjust the entries. */
1572 if (no_symtab_updates ())
1575 assert (shdr_info[cnt].idx > 0);
1577 /* The symbol version section in the new file. */
1578 scn = elf_getscn (newelf, shdr_info[cnt].idx);
1580 /* The symbol table data. */
1581 symd = elf_getdata (elf_getscn (newelf, shdr_info[symtabidx].idx),
1583 assert (symd != NULL);
1585 /* The version symbol data. */
1586 Elf_Data *verd = elf_getdata (scn, NULL);
1587 assert (verd != NULL);
1589 /* The symbol version array. */
1590 GElf_Half *verstab = (GElf_Half *) verd->d_buf;
1592 /* Walk through the list and */
1593 size_t elsize = gelf_fsize (elf, verd->d_type, 1,
1595 for (size_t inner = 1; inner < verd->d_size / elsize; ++inner)
1596 if (newsymidx[inner] != 0)
1597 /* Overwriting the same array works since the
1598 reordering can only move entries to lower indices
1600 verstab[newsymidx[inner]] = verstab[inner];
1602 /* New size of the section. */
1603 verd->d_size = gelf_fsize (newelf, verd->d_type,
1605 / gelf_fsize (elf, symd->d_type, 1,
1608 update_section_size (verd);
1612 if (no_symtab_updates ())
1615 /* Yes, the symbol table changed.
1616 Update the section header of the section group. */
1617 scn = elf_getscn (newelf, shdr_info[cnt].idx);
1619 GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
1620 assert (shdr != NULL);
1622 shdr->sh_info = newsymidx[shdr->sh_info];
1624 (void) gelf_update_shdr (scn, shdr);
1629 /* Remove any relocations between debug sections in ET_REL
1630 for the debug file when requested. These relocations are always
1631 zero based between the unallocated sections. */
1632 if (debug_fname != NULL && reloc_debug && ehdr->e_type == ET_REL)
1636 while ((scn = elf_nextscn (debugelf, scn)) != NULL)
1639 /* We need the actual section and header from the debugelf
1640 not just the cached original in shdr_info because we
1641 might want to change the size. */
1643 GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
1644 if (shdr->sh_type == SHT_REL || shdr->sh_type == SHT_RELA)
1646 /* Make sure that this relocation section points to a
1647 section to relocate with contents, that isn't
1648 allocated and that is a debug section. */
1649 Elf_Scn *tscn = elf_getscn (debugelf, shdr->sh_info);
1650 GElf_Shdr tshdr_mem;
1651 GElf_Shdr *tshdr = gelf_getshdr (tscn, &tshdr_mem);
1652 if (tshdr->sh_type == SHT_NOBITS
1653 || tshdr->sh_size == 0
1654 || (tshdr->sh_flags & SHF_ALLOC) != 0)
1657 const char *tname = elf_strptr (debugelf, shstrndx,
1659 if (! tname || ! ebl_debugscn_p (ebl, tname))
1662 /* OK, lets relocate all trivial cross debug section
1664 Elf_Data *reldata = elf_getdata (scn, NULL);
1665 /* We actually wanted the rawdata, but since we already
1666 accessed it earlier as elf_getdata () that won't
1667 work. But debug sections are all ELF_T_BYTE, so it
1668 doesn't really matter. */
1669 Elf_Data *tdata = elf_getdata (tscn, NULL);
1670 if (tdata->d_type != ELF_T_BYTE)
1671 INTERNAL_ERROR (fname);
1673 /* Pick up the symbol table and shndx table to
1674 resolve relocation symbol indexes. */
1675 Elf64_Word symt = shdr->sh_link;
1676 Elf_Data *symdata, *xndxdata;
1677 symdata = (shdr_info[symt].debug_data
1678 ?: shdr_info[symt].data);
1679 xndxdata = (shdr_info[shdr_info[symt].symtab_idx].debug_data
1680 ?: shdr_info[shdr_info[symt].symtab_idx].data);
1682 /* Apply one relocation. Returns true when trivial
1683 relocation actually done. */
1684 bool relocate (GElf_Addr offset, const GElf_Sxword addend,
1685 int rtype, int symndx)
1687 /* R_*_NONE relocs can always just be removed. */
1691 /* We only do simple absolute relocations. */
1692 Elf_Type type = ebl_reloc_simple_type (ebl, rtype);
1693 if (type == ELF_T_NUM)
1696 /* These are the types we can relocate. */
1697 #define TYPES DO_TYPE (BYTE, Byte); DO_TYPE (HALF, Half); \
1698 DO_TYPE (WORD, Word); DO_TYPE (SWORD, Sword); \
1699 DO_TYPE (XWORD, Xword); DO_TYPE (SXWORD, Sxword)
1701 /* And only for relocations against other debug sections. */
1704 GElf_Sym *sym = gelf_getsymshndx (symdata, xndxdata,
1707 if (GELF_ST_TYPE (sym->st_info) == STT_SECTION)
1709 Elf32_Word sec = (sym->st_shndx == SHN_XINDEX
1710 ? xndx : sym->st_shndx);
1711 if (ebl_debugscn_p (ebl, shdr_info[sec].name))
1716 #define DO_TYPE(NAME, Name) \
1717 case ELF_T_##NAME: \
1718 size = sizeof (GElf_##Name); \
1726 if (offset + size > tdata->d_size)
1727 error (0, 0, gettext ("bad relocation"));
1729 /* For SHT_REL sections this is all that needs
1730 to be checked. The addend is contained in
1731 the original data at the offset already.
1732 And the (section) symbol address is zero.
1733 So just remove the relocation, it isn't
1738 #define DO_TYPE(NAME, Name) GElf_##Name Name;
1739 union { TYPES; } tmpbuf;
1746 .d_version = EV_CURRENT,
1751 .d_buf = tdata->d_buf + offset,
1753 .d_version = EV_CURRENT,
1756 /* For SHT_RELA sections we just take the
1757 addend and put it into the relocation slot.
1758 The (section) symbol address can be
1759 ignored, since it is zero. */
1762 #define DO_TYPE(NAME, Name) \
1763 case ELF_T_##NAME: \
1764 tmpbuf.Name = addend; \
1772 Elf_Data *s = gelf_xlatetof (debugelf, &rdata,
1774 ehdr->e_ident[EI_DATA]);
1776 INTERNAL_ERROR (fname);
1777 assert (s == &rdata);
1785 size_t nrels = shdr->sh_size / shdr->sh_entsize;
1787 if (shdr->sh_type == SHT_REL)
1788 for (size_t relidx = 0; relidx < nrels; ++relidx)
1791 GElf_Rel *r = gelf_getrel (reldata, relidx, &rel_mem);
1792 if (! relocate (r->r_offset, 0,
1793 GELF_R_TYPE (r->r_info),
1794 GELF_R_SYM (r->r_info)))
1797 gelf_update_rel (reldata, next, r);
1802 for (size_t relidx = 0; relidx < nrels; ++relidx)
1805 GElf_Rela *r = gelf_getrela (reldata, relidx, &rela_mem);
1806 if (! relocate (r->r_offset, r->r_addend,
1807 GELF_R_TYPE (r->r_info),
1808 GELF_R_SYM (r->r_info)))
1811 gelf_update_rela (reldata, next, r);
1817 shdr->sh_size = reldata->d_size = nrels * shdr->sh_entsize;
1818 gelf_update_shdr (scn, shdr);
1823 /* Now that we have done all adjustments to the data,
1824 we can actually write out the debug file. */
1825 if (debug_fname != NULL)
1827 /* Finally write the file. */
1828 if (unlikely (elf_update (debugelf, ELF_C_WRITE) == -1))
1830 error (0, 0, gettext ("while writing '%s': %s"),
1831 debug_fname, elf_errmsg (-1));
1836 /* Create the real output file. First rename, then change the
1838 if (rename (tmp_debug_fname, debug_fname) != 0
1839 || fchmod (debug_fd, mode) != 0)
1841 error (0, errno, gettext ("while creating '%s'"), debug_fname);
1846 /* The temporary file does not exist anymore. */
1847 tmp_debug_fname = NULL;
1852 Elf_Data debug_crc_data =
1854 .d_type = ELF_T_WORD,
1855 .d_buf = &debug_crc,
1856 .d_size = sizeof (debug_crc),
1857 .d_version = EV_CURRENT
1860 /* Compute the checksum which we will add to the executable. */
1861 if (crc32_file (debug_fd, &debug_crc) != 0)
1863 error (0, errno, gettext ("\
1864 while computing checksum for debug information"));
1865 unlink (debug_fname);
1870 /* Store it in the debuglink section data. */
1871 if (unlikely (gelf_xlatetof (newelf, &debuglink_crc_data,
1872 &debug_crc_data, ehdr->e_ident[EI_DATA])
1873 != &debuglink_crc_data))
1874 INTERNAL_ERROR (fname);
1878 /* Finally finish the ELF header. Fill in the fields not handled by
1879 libelf from the old file. */
1880 newehdr = gelf_getehdr (newelf, &newehdr_mem);
1881 if (newehdr == NULL)
1882 INTERNAL_ERROR (fname);
1884 memcpy (newehdr->e_ident, ehdr->e_ident, EI_NIDENT);
1885 newehdr->e_type = ehdr->e_type;
1886 newehdr->e_machine = ehdr->e_machine;
1887 newehdr->e_version = ehdr->e_version;
1888 newehdr->e_entry = ehdr->e_entry;
1889 newehdr->e_flags = ehdr->e_flags;
1890 newehdr->e_phoff = ehdr->e_phoff;
1892 /* We need to position the section header table. */
1893 const size_t offsize = gelf_fsize (elf, ELF_T_OFF, 1, EV_CURRENT);
1894 newehdr->e_shoff = ((shdr_info[shdridx].shdr.sh_offset
1895 + shdr_info[shdridx].shdr.sh_size + offsize - 1)
1896 & ~((GElf_Off) (offsize - 1)));
1897 newehdr->e_shentsize = gelf_fsize (elf, ELF_T_SHDR, 1, EV_CURRENT);
1899 /* The new section header string table index. */
1900 if (likely (idx < SHN_HIRESERVE) && likely (idx != SHN_XINDEX))
1901 newehdr->e_shstrndx = idx;
1904 /* The index does not fit in the ELF header field. */
1905 shdr_info[0].scn = elf_getscn (elf, 0);
1907 if (gelf_getshdr (shdr_info[0].scn, &shdr_info[0].shdr) == NULL)
1908 INTERNAL_ERROR (fname);
1910 shdr_info[0].shdr.sh_link = idx;
1911 (void) gelf_update_shdr (shdr_info[0].scn, &shdr_info[0].shdr);
1913 newehdr->e_shstrndx = SHN_XINDEX;
1916 if (gelf_update_ehdr (newelf, newehdr) == 0)
1918 error (0, 0, gettext ("%s: error while creating ELF header: %s"),
1919 fname, elf_errmsg (-1));
1923 /* We have everything from the old file. */
1924 if (elf_cntl (elf, ELF_C_FDDONE) != 0)
1926 error (0, 0, gettext ("%s: error while reading the file: %s"),
1927 fname, elf_errmsg (-1));
1931 /* The ELF library better follows our layout when this is not a
1932 relocatable object file. */
1933 elf_flagelf (newelf, ELF_C_SET,
1934 (ehdr->e_type != ET_REL ? ELF_F_LAYOUT : 0)
1935 | (permissive ? ELF_F_PERMISSIVE : 0));
1937 /* Finally write the file. */
1938 if (elf_update (newelf, ELF_C_WRITE) == -1)
1940 error (0, 0, gettext ("while writing '%s': %s"),
1941 fname, elf_errmsg (-1));
1947 /* libelf can't cope without the section headers being properly intact.
1948 So we just let it write them normally, and then we nuke them later. */
1950 if (newehdr->e_ident[EI_CLASS] == ELFCLASS32)
1952 assert (offsetof (Elf32_Ehdr, e_shentsize) + sizeof (Elf32_Half)
1953 == offsetof (Elf32_Ehdr, e_shnum));
1954 assert (offsetof (Elf32_Ehdr, e_shnum) + sizeof (Elf32_Half)
1955 == offsetof (Elf32_Ehdr, e_shstrndx));
1956 const Elf32_Off zero_off = 0;
1957 const Elf32_Half zero[3] = { 0, 0, SHN_UNDEF };
1958 if (pwrite_retry (fd, &zero_off, sizeof zero_off,
1959 offsetof (Elf32_Ehdr, e_shoff)) != sizeof zero_off
1960 || (pwrite_retry (fd, zero, sizeof zero,
1961 offsetof (Elf32_Ehdr, e_shentsize))
1963 || ftruncate64 (fd, shdr_info[shdridx].shdr.sh_offset) < 0)
1965 error (0, errno, gettext ("while writing '%s'"),
1972 assert (offsetof (Elf64_Ehdr, e_shentsize) + sizeof (Elf64_Half)
1973 == offsetof (Elf64_Ehdr, e_shnum));
1974 assert (offsetof (Elf64_Ehdr, e_shnum) + sizeof (Elf64_Half)
1975 == offsetof (Elf64_Ehdr, e_shstrndx));
1976 const Elf64_Off zero_off = 0;
1977 const Elf64_Half zero[3] = { 0, 0, SHN_UNDEF };
1978 if (pwrite_retry (fd, &zero_off, sizeof zero_off,
1979 offsetof (Elf64_Ehdr, e_shoff)) != sizeof zero_off
1980 || (pwrite_retry (fd, zero, sizeof zero,
1981 offsetof (Elf64_Ehdr, e_shentsize))
1983 || ftruncate64 (fd, shdr_info[shdridx].shdr.sh_offset) < 0)
1985 error (0, errno, gettext ("while writing '%s'"),
1993 if (shdr_info != NULL)
1995 /* For some sections we might have created an table to map symbol
1997 if (any_symtab_changes)
1998 for (cnt = 1; cnt <= shdridx; ++cnt)
2000 free (shdr_info[cnt].newsymidx);
2001 if (shdr_info[cnt].debug_data != NULL)
2002 free (shdr_info[cnt].debug_data->d_buf);
2005 /* Free the memory. */
2006 if ((shnum + 2) * sizeof (struct shdr_info) > MAX_STACK_ALLOC)
2010 /* Free other resources. */
2011 if (shstrtab_data != NULL)
2012 free (shstrtab_data->d_buf);
2014 ebl_strtabfree (shst);
2016 /* That was it. Close the descriptors. */
2017 if (elf_end (newelf) != 0)
2019 error (0, 0, gettext ("error while finishing '%s': %s"), fname,
2024 if (debugelf != NULL && elf_end (debugelf) != 0)
2026 error (0, 0, gettext ("error while finishing '%s': %s"), debug_fname,
2032 /* Close the EBL backend. */
2034 ebl_closebackend (ebl);
2036 /* Close debug file descriptor, if opened */
2039 if (tmp_debug_fname != NULL)
2040 unlink (tmp_debug_fname);
2044 /* If requested, preserve the timestamp. */
2047 if (futimes (fd, tvp) != 0)
2049 error (0, errno, gettext ("\
2050 cannot set access and modification date of '%s'"),
2051 output_fname ?: fname);
2056 /* Close the file descriptor if we created a new file. */
2057 if (output_fname != NULL)
2065 handle_ar (int fd, Elf *elf, const char *prefix, const char *fname,
2066 struct timeval tvp[2])
2068 size_t prefix_len = prefix == NULL ? 0 : strlen (prefix);
2069 size_t fname_len = strlen (fname) + 1;
2070 char new_prefix[prefix_len + 1 + fname_len];
2071 char *cp = new_prefix;
2073 /* Create the full name of the file. */
2076 cp = mempcpy (cp, prefix, prefix_len);
2079 memcpy (cp, fname, fname_len);
2082 /* Process all the files contained in the archive. */
2084 Elf_Cmd cmd = ELF_C_RDWR;
2086 while ((subelf = elf_begin (fd, cmd, elf)) != NULL)
2088 /* The the header for this element. */
2089 Elf_Arhdr *arhdr = elf_getarhdr (subelf);
2091 if (elf_kind (subelf) == ELF_K_ELF)
2092 result |= handle_elf (fd, subelf, new_prefix, arhdr->ar_name, 0, NULL);
2093 else if (elf_kind (subelf) == ELF_K_AR)
2094 result |= handle_ar (fd, subelf, new_prefix, arhdr->ar_name, NULL);
2096 /* Get next archive element. */
2097 cmd = elf_next (subelf);
2098 if (unlikely (elf_end (subelf) != 0))
2099 INTERNAL_ERROR (fname);
2104 if (unlikely (futimes (fd, tvp) != 0))
2106 error (0, errno, gettext ("\
2107 cannot set access and modification date of '%s'"), fname);
2112 if (unlikely (close (fd) != 0))
2113 error (EXIT_FAILURE, errno, gettext ("while closing '%s'"), fname);
2119 #include "debugpred.h"