1 /* Darwin support for GDB, the GNU debugger.
2 Copyright (C) 2008-2013 Free Software Foundation, Inc.
4 Contributed by AdaCore.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>.
32 #include "gdb_assert.h"
33 #include "aout/stab_gnu.h"
36 #include "complaints.h"
41 /* If non-zero displays debugging message. */
42 static unsigned int mach_o_debug_level = 0;
44 /* Dwarf debugging information are never in the final executable. They stay
45 in object files and the executable contains the list of object files read
47 Each time an oso (other source) is found in the executable, the reader
48 creates such a structure. They are read after the processing of the
53 /* Object file name. Can also be a member name. */
56 /* Associated time stamp. */
59 /* Stab symbols range for this OSO. */
63 /* Number of interesting stabs in the range. */
64 unsigned int nbr_syms;
68 /* Vector of object files to be read after the executable. This is one
69 global variable but it's life-time is the one of macho_symfile_read. */
71 static VEC (oso_el) *oso_vector;
74 macho_new_init (struct objfile *objfile)
79 macho_symfile_init (struct objfile *objfile)
81 objfile->flags |= OBJF_REORDERED;
84 /* Add a new OSO to the vector of OSO to load. */
87 macho_register_oso (struct objfile *objfile,
88 asymbol **oso_sym, asymbol **end_sym,
89 unsigned int nbr_syms)
93 el.name = (*oso_sym)->name;
94 el.mtime = (*oso_sym)->value;
97 el.nbr_syms = nbr_syms;
98 VEC_safe_push (oso_el, oso_vector, &el);
101 /* Add symbol SYM to the minimal symbol table of OBJFILE. */
104 macho_symtab_add_minsym (struct objfile *objfile, const asymbol *sym)
106 if (sym->name == NULL || *sym->name == '\0')
108 /* Skip names that don't exist (shouldn't happen), or names
109 that are null strings (may happen). */
113 if (sym->flags & (BSF_GLOBAL | BSF_LOCAL | BSF_WEAK))
117 enum minimal_symbol_type ms_type;
119 offset = ANOFFSET (objfile->section_offsets,
120 gdb_bfd_section_index (objfile->obfd, sym->section));
122 /* Bfd symbols are section relative. */
123 symaddr = sym->value + sym->section->vma;
125 /* Select global/local/weak symbols. Note that bfd puts abs
126 symbols in their own section, so all symbols we are
127 interested in will have a section. */
128 /* Relocate all non-absolute and non-TLS symbols by the
130 if (sym->section != bfd_abs_section_ptr
131 && !(sym->section->flags & SEC_THREAD_LOCAL))
134 if (sym->section == bfd_abs_section_ptr)
136 else if (sym->section->flags & SEC_CODE)
138 if (sym->flags & (BSF_GLOBAL | BSF_WEAK))
141 ms_type = mst_file_text;
143 else if (sym->section->flags & SEC_ALLOC)
145 if (sym->flags & (BSF_GLOBAL | BSF_WEAK))
147 if (sym->section->flags & SEC_LOAD)
152 else if (sym->flags & BSF_LOCAL)
154 /* Not a special stabs-in-elf symbol, do regular
155 symbol processing. */
156 if (sym->section->flags & SEC_LOAD)
157 ms_type = mst_file_data;
159 ms_type = mst_file_bss;
162 ms_type = mst_unknown;
165 return; /* Skip this symbol. */
167 prim_record_minimal_symbol_and_info
168 (sym->name, symaddr, ms_type,
169 gdb_bfd_section_index (objfile->obfd, sym->section),
170 sym->section, objfile);
174 /* Build the minimal symbol table from SYMBOL_TABLE of length
175 NUMBER_OF_SYMBOLS for OBJFILE. Registers OSO filenames found. */
178 macho_symtab_read (struct objfile *objfile,
179 long number_of_symbols, asymbol **symbol_table)
182 const asymbol *dir_so = NULL;
183 const asymbol *file_so = NULL;
184 asymbol **oso_file = NULL;
185 unsigned int nbr_syms = 0;
187 /* Current state while reading stabs. */
190 /* Not within an SO part. Only non-debugging symbols should be present,
191 and will be added to the minimal symbols table. */
194 /* First SO read. Introduce an SO section, and may be followed by a second
195 SO. The SO section should contain onl debugging symbols. */
198 /* Second non-null SO found, just after the first one. Means that the first
199 is in fact a directory name. */
202 /* Non-null OSO found. Debugging info are DWARF in this OSO file. */
208 for (i = 0; i < number_of_symbols; i++)
210 const asymbol *sym = symbol_table[i];
211 bfd_mach_o_asymbol *mach_o_sym = (bfd_mach_o_asymbol *)sym;
216 if (mach_o_sym->n_type == N_SO)
218 /* Start of object stab. */
219 if (sym->name == NULL || sym->name[0] == 0)
221 /* Unexpected empty N_SO. */
222 complaint (&symfile_complaints,
223 _("Unexpected empty N_SO stab"));
232 else if (sym->flags & BSF_DEBUGGING)
234 if (mach_o_sym->n_type == N_OPT)
236 /* No complaint for OPT. */
240 /* Debugging symbols are not expected here. */
241 complaint (&symfile_complaints,
242 _("%s: Unexpected debug stab outside SO markers"),
247 /* Non-debugging symbols go to the minimal symbol table. */
248 macho_symtab_add_minsym (objfile, sym);
254 if (mach_o_sym->n_type == N_SO)
256 if (sym->name == NULL || sym->name[0] == 0)
258 /* Unexpected empty N_SO. */
259 complaint (&symfile_complaints, _("Empty SO section"));
262 else if (state == S_FIRST_SO)
264 /* Second SO stab for the file name. */
270 complaint (&symfile_complaints, _("Three SO in a raw"));
272 else if (mach_o_sym->n_type == N_OSO)
274 if (sym->name == NULL || sym->name[0] == 0)
276 /* Empty OSO. Means that this file was compiled with
279 warning (_("stabs debugging not supported for %s"),
284 /* Non-empty OSO for a Dwarf file. */
285 oso_file = symbol_table + i;
287 state = S_DWARF_FILE;
291 complaint (&symfile_complaints,
292 _("Unexpected stab after SO"));
297 if (mach_o_sym->n_type == N_SO)
299 if (sym->name == NULL || sym->name[0] == 0)
302 if (state == S_DWARF_FILE)
303 macho_register_oso (objfile, oso_file, symbol_table + i,
309 complaint (&symfile_complaints, _("Missing nul SO"));
315 else if (sym->flags & BSF_DEBUGGING)
317 if (state == S_STAB_FILE)
319 /* FIXME: to be implemented. */
323 switch (mach_o_sym->n_type)
326 if (sym->name == NULL || sym->name[0] == 0)
330 /* Interesting symbol. */
338 complaint (&symfile_complaints,
339 _("unhandled stab for dwarf OSO file"));
345 complaint (&symfile_complaints,
346 _("non-debugging symbol within SO"));
351 if (state != S_NO_SO)
352 complaint (&symfile_complaints, _("missing nul SO"));
355 /* If NAME describes an archive member (ie: ARCHIVE '(' MEMBER ')'),
356 returns the length of the archive name.
357 Returns -1 otherwise. */
360 get_archive_prefix_len (const char *name)
363 int name_len = strlen (name);
365 if (name_len == 0 || name[name_len - 1] != ')')
368 lparen = strrchr (name, '(');
369 if (lparen == NULL || lparen == name)
371 return lparen - name;
374 /* Compare function to qsort OSOs, so that members of a library are
378 oso_el_compare_name (const void *vl, const void *vr)
380 const oso_el *l = (const oso_el *)vl;
381 const oso_el *r = (const oso_el *)vr;
383 return strcmp (l->name, r->name);
386 /* Hash table entry structure for the stabs symbols in the main object file.
387 This is used to speed up lookup for symbols in the OSO. */
389 struct macho_sym_hash_entry
391 struct bfd_hash_entry base;
395 /* Routine to create an entry in the hash table. */
397 static struct bfd_hash_entry *
398 macho_sym_hash_newfunc (struct bfd_hash_entry *entry,
399 struct bfd_hash_table *table,
402 struct macho_sym_hash_entry *ret = (struct macho_sym_hash_entry *) entry;
404 /* Allocate the structure if it has not already been allocated by a
407 ret = (struct macho_sym_hash_entry *) bfd_hash_allocate (table,
412 /* Call the allocation method of the superclass. */
413 ret = (struct macho_sym_hash_entry *)
414 bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string);
418 /* Initialize the local fields. */
422 return (struct bfd_hash_entry *) ret;
425 /* Get the value of SYM from the minimal symtab of MAIN_OBJFILE. This is used
426 to get the value of global and common symbols. */
429 macho_resolve_oso_sym_with_minsym (struct objfile *main_objfile, asymbol *sym)
431 /* For common symbol and global symbols, use the min symtab. */
432 struct minimal_symbol *msym;
433 const char *name = sym->name;
435 if (name[0] == bfd_get_symbol_leading_char (main_objfile->obfd))
437 msym = lookup_minimal_symbol (name, NULL, main_objfile);
440 warning (_("can't find symbol '%s' in minsymtab"), name);
444 return SYMBOL_VALUE_ADDRESS (msym);
447 /* Add oso file OSO/ABFD as a symbol file. */
450 macho_add_oso_symfile (oso_el *oso, bfd *abfd,
451 struct objfile *main_objfile, int symfile_flags)
455 asymbol **symbol_table;
457 struct bfd_hash_table table;
459 struct cleanup *cleanup;
461 /* Per section flag to mark which section have been rebased. */
462 unsigned char *sections_rebased;
464 if (mach_o_debug_level > 0)
466 (_("Loading debugging symbols from oso: %s\n"), oso->name);
468 if (!bfd_check_format (abfd, bfd_object))
470 warning (_("`%s': can't read symbols: %s."), oso->name,
471 bfd_errmsg (bfd_get_error ()));
472 gdb_bfd_unref (abfd);
476 if (abfd->my_archive == NULL && oso->mtime != bfd_get_mtime (abfd))
478 warning (_("`%s': file time stamp mismatch."), oso->name);
479 gdb_bfd_unref (abfd);
483 if (!bfd_hash_table_init_n (&table, macho_sym_hash_newfunc,
484 sizeof (struct macho_sym_hash_entry),
487 warning (_("`%s': can't create hash table"), oso->name);
488 gdb_bfd_unref (abfd);
492 bfd_set_cacheable (abfd, 1);
494 /* Read symbols table. */
495 storage = bfd_get_symtab_upper_bound (abfd);
496 symbol_table = (asymbol **) xmalloc (storage);
497 bfd_canonicalize_symtab (abfd, symbol_table);
499 /* Init section flags. */
500 nbr_sections = bfd_count_sections (abfd);
501 sections_rebased = (unsigned char *) alloca (nbr_sections);
502 for (i = 0; i < nbr_sections; i++)
503 sections_rebased[i] = 0;
505 /* Put symbols for the OSO file in the hash table. */
506 for (symp = oso->oso_sym; symp != oso->end_sym; symp++)
508 const asymbol *sym = *symp;
509 bfd_mach_o_asymbol *mach_o_sym = (bfd_mach_o_asymbol *)sym;
511 switch (mach_o_sym->n_type)
519 if (sym->name == NULL || sym->name[0] == 0)
530 struct macho_sym_hash_entry *ent;
532 ent = (struct macho_sym_hash_entry *)
533 bfd_hash_lookup (&table, sym->name, TRUE, FALSE);
534 if (ent->sym != NULL)
535 complaint (&symfile_complaints,
536 _("Duplicated symbol %s in symbol table"), sym->name);
539 if (mach_o_debug_level > 4)
541 struct gdbarch *arch = get_objfile_arch (main_objfile);
543 (_("Adding symbol %s (addr: %s)\n"),
544 sym->name, paddress (arch, sym->value));
551 /* Relocate symbols of the OSO. */
552 for (i = 0; symbol_table[i]; i++)
554 asymbol *sym = symbol_table[i];
555 bfd_mach_o_asymbol *mach_o_sym = (bfd_mach_o_asymbol *)sym;
557 if (mach_o_sym->n_type & BFD_MACH_O_N_STAB)
559 if ((mach_o_sym->n_type & BFD_MACH_O_N_TYPE) == BFD_MACH_O_N_UNDF
562 /* For common symbol use the min symtab and modify the OSO
566 res = macho_resolve_oso_sym_with_minsym (main_objfile, sym);
569 sym->section = bfd_com_section_ptr;
573 else if ((mach_o_sym->n_type & BFD_MACH_O_N_TYPE) == BFD_MACH_O_N_SECT)
576 asection *sec = sym->section;
577 bfd_mach_o_section *msec;
578 unsigned int sec_type;
580 /* Skip buggy ones. */
581 if (sec == NULL || sections_rebased[sec->index] != 0)
584 /* Only consider regular, non-debugging sections. */
585 msec = bfd_mach_o_get_mach_o_section (sec);
586 sec_type = msec->flags & BFD_MACH_O_SECTION_TYPE_MASK;
587 if ((sec_type == BFD_MACH_O_S_REGULAR
588 || sec_type == BFD_MACH_O_S_ZEROFILL)
589 && (msec->flags & BFD_MACH_O_S_ATTR_DEBUG) == 0)
593 if ((mach_o_sym->n_type & BFD_MACH_O_N_EXT) != 0)
595 /* Use the min symtab for global symbols. */
596 addr = macho_resolve_oso_sym_with_minsym (main_objfile, sym);
600 struct macho_sym_hash_entry *ent;
602 ent = (struct macho_sym_hash_entry *)
603 bfd_hash_lookup (&table, sym->name, FALSE, FALSE);
605 addr = bfd_asymbol_value (ent->sym);
608 /* Adjust the section. */
611 CORE_ADDR res = addr - sym->value;
613 if (mach_o_debug_level > 3)
615 struct gdbarch *arch = get_objfile_arch (main_objfile);
617 (_("resolve sect %s with %s (set to %s)\n"),
618 sec->name, sym->name,
619 paddress (arch, res));
621 bfd_set_section_vma (abfd, sec, res);
622 sections_rebased[sec->index] = 1;
627 /* Mark the section as never rebased. */
628 sections_rebased[sec->index] = 2;
633 bfd_hash_table_free (&table);
635 /* We need to clear SYMFILE_MAINLINE to avoid interractive question
636 from symfile.c:symbol_file_add_with_addrs_or_offsets. */
637 cleanup = make_cleanup_bfd_unref (abfd);
638 symbol_file_add_from_bfd
639 (abfd, symfile_flags & ~(SYMFILE_MAINLINE | SYMFILE_VERBOSE), NULL,
640 main_objfile->flags & (OBJF_REORDERED | OBJF_SHARED
641 | OBJF_READNOW | OBJF_USERLOADED),
643 do_cleanups (cleanup);
646 /* Read symbols from the vector of oso files. */
649 macho_symfile_read_all_oso (struct objfile *main_objfile, int symfile_flags)
654 struct cleanup *cleanup = make_cleanup (null_cleanup, NULL);
659 /* Sort oso by name so that files from libraries are gathered. */
660 qsort (VEC_address (oso_el, vec), VEC_length (oso_el, vec),
661 sizeof (oso_el), oso_el_compare_name);
663 for (ix = 0; VEC_iterate (oso_el, vec, ix, oso);)
667 /* Check if this is a library name. */
668 pfx_len = get_archive_prefix_len (oso->name);
673 char *archive_name = XNEWVEC (char, pfx_len + 1);
678 memcpy (archive_name, oso->name, pfx_len);
679 archive_name[pfx_len] = '\0';
681 make_cleanup (xfree, archive_name);
683 /* Compute number of oso for this archive. */
685 VEC_iterate (oso_el, vec, last_ix, oso2); last_ix++)
687 if (strncmp (oso2->name, archive_name, pfx_len) != 0)
691 /* Open the archive and check the format. */
692 archive_bfd = gdb_bfd_open (archive_name, gnutarget, -1);
693 if (archive_bfd == NULL)
695 warning (_("Could not open OSO archive file \"%s\""),
700 if (!bfd_check_format (archive_bfd, bfd_archive))
702 warning (_("OSO archive file \"%s\" not an archive."),
704 gdb_bfd_unref (archive_bfd);
709 member_bfd = gdb_bfd_openr_next_archived_file (archive_bfd, NULL);
711 if (member_bfd == NULL)
713 warning (_("Could not read archive members out of "
714 "OSO archive \"%s\""), archive_name);
715 gdb_bfd_unref (archive_bfd);
720 /* Load all oso in this library. */
721 while (member_bfd != NULL)
724 const char *member_name = member_bfd->filename;
725 int member_len = strlen (member_name);
727 /* If this member is referenced, add it as a symfile. */
728 for (ix2 = ix; ix2 < last_ix; ix2++)
730 oso2 = VEC_index (oso_el, vec, ix2);
733 && strlen (oso2->name) == pfx_len + member_len + 2
734 && !memcmp (member_name, oso2->name + pfx_len + 1,
737 macho_add_oso_symfile (oso2, member_bfd,
738 main_objfile, symfile_flags);
745 member_bfd = gdb_bfd_openr_next_archived_file (archive_bfd,
748 /* Free previous member if not referenced by an oso. */
750 gdb_bfd_unref (prev);
752 for (ix2 = ix; ix2 < last_ix; ix2++)
754 oso_el *oso2 = VEC_index (oso_el, vec, ix2);
756 if (oso2->name != NULL)
757 warning (_("Could not find specified archive member "
758 "for OSO name \"%s\""), oso->name);
766 abfd = gdb_bfd_open (oso->name, gnutarget, -1);
768 warning (_("`%s': can't open to read symbols: %s."), oso->name,
769 bfd_errmsg (bfd_get_error ()));
771 macho_add_oso_symfile (oso, abfd, main_objfile, symfile_flags);
777 VEC_free (oso_el, vec);
778 do_cleanups (cleanup);
781 /* DSYM (debug symbols) files contain the debug info of an executable.
782 This is a separate file created by dsymutil(1) and is similar to debug
784 DSYM files are located in a subdirectory. Append DSYM_SUFFIX to the
785 executable name and the executable base name to get the DSYM file name. */
786 #define DSYM_SUFFIX ".dSYM/Contents/Resources/DWARF/"
788 /* Check if a dsym file exists for OBJFILE. If so, returns a bfd for it.
789 Return NULL if no valid dsym file is found. */
792 macho_check_dsym (struct objfile *objfile)
794 size_t name_len = strlen (objfile->name);
795 size_t dsym_len = strlen (DSYM_SUFFIX);
796 const char *base_name = lbasename (objfile->name);
797 size_t base_len = strlen (base_name);
798 char *dsym_filename = alloca (name_len + dsym_len + base_len + 1);
800 bfd_mach_o_load_command *main_uuid;
801 bfd_mach_o_load_command *dsym_uuid;
803 strcpy (dsym_filename, objfile->name);
804 strcpy (dsym_filename + name_len, DSYM_SUFFIX);
805 strcpy (dsym_filename + name_len + dsym_len, base_name);
807 if (access (dsym_filename, R_OK) != 0)
810 if (bfd_mach_o_lookup_command (objfile->obfd,
811 BFD_MACH_O_LC_UUID, &main_uuid) == 0)
813 warning (_("can't find UUID in %s"), objfile->name);
816 dsym_bfd = gdb_bfd_openr (dsym_filename, gnutarget);
817 if (dsym_bfd == NULL)
819 warning (_("can't open dsym file %s"), dsym_filename);
823 if (!bfd_check_format (dsym_bfd, bfd_object))
825 gdb_bfd_unref (dsym_bfd);
826 warning (_("bad dsym file format: %s"), bfd_errmsg (bfd_get_error ()));
830 if (bfd_mach_o_lookup_command (dsym_bfd,
831 BFD_MACH_O_LC_UUID, &dsym_uuid) == 0)
833 warning (_("can't find UUID in %s"), dsym_filename);
834 gdb_bfd_unref (dsym_bfd);
837 if (memcmp (dsym_uuid->command.uuid.uuid, main_uuid->command.uuid.uuid,
838 sizeof (main_uuid->command.uuid.uuid)))
840 warning (_("dsym file UUID doesn't match the one in %s"), objfile->name);
841 gdb_bfd_unref (dsym_bfd);
848 macho_symfile_read (struct objfile *objfile, int symfile_flags)
850 bfd *abfd = objfile->obfd;
855 /* Get symbols from the symbol table only if the file is an executable.
856 The symbol table of object files is not relocated and is expected to
857 be in the executable. */
858 if (bfd_get_file_flags (abfd) & (EXEC_P | DYNAMIC))
860 /* Process the normal symbol table first. */
861 storage_needed = bfd_get_symtab_upper_bound (objfile->obfd);
862 if (storage_needed < 0)
863 error (_("Can't read symbols from %s: %s"),
864 bfd_get_filename (objfile->obfd),
865 bfd_errmsg (bfd_get_error ()));
867 if (storage_needed > 0)
869 asymbol **symbol_table;
871 struct cleanup *back_to;
873 symbol_table = (asymbol **) xmalloc (storage_needed);
874 make_cleanup (xfree, symbol_table);
876 init_minimal_symbol_collection ();
877 back_to = make_cleanup_discard_minimal_symbols ();
879 symcount = bfd_canonicalize_symtab (objfile->obfd, symbol_table);
882 error (_("Can't read symbols from %s: %s"),
883 bfd_get_filename (objfile->obfd),
884 bfd_errmsg (bfd_get_error ()));
886 macho_symtab_read (objfile, symcount, symbol_table);
888 install_minimal_symbols (objfile);
889 do_cleanups (back_to);
892 /* Try to read .eh_frame / .debug_frame. */
893 /* First, locate these sections. We ignore the result status
894 as it only checks for debug info. */
895 dwarf2_has_info (objfile, NULL);
896 dwarf2_build_frame_info (objfile);
898 /* Check for DSYM file. */
899 dsym_bfd = macho_check_dsym (objfile);
900 if (dsym_bfd != NULL)
904 struct bfd_section *asect, *dsect;
905 struct cleanup *cleanup;
907 if (mach_o_debug_level > 0)
908 printf_unfiltered (_("dsym file found\n"));
910 /* Remove oso. They won't be used. */
911 VEC_free (oso_el, oso_vector);
914 /* Set dsym section size. */
915 for (asect = objfile->obfd->sections, dsect = dsym_bfd->sections;
917 asect = asect->next, dsect = dsect->next)
919 if (strcmp (asect->name, dsect->name) != 0)
921 bfd_set_section_size (dsym_bfd, dsect,
922 bfd_get_section_size (asect));
925 /* Add the dsym file as a separate file. */
926 cleanup = make_cleanup_bfd_unref (dsym_bfd);
927 symbol_file_add_separate (dsym_bfd, symfile_flags, objfile);
928 do_cleanups (cleanup);
930 /* Don't try to read dwarf2 from main file or shared libraries. */
935 if (dwarf2_has_info (objfile, NULL))
937 /* DWARF 2 sections */
938 dwarf2_build_psymtabs (objfile);
942 if (oso_vector != NULL)
943 macho_symfile_read_all_oso (objfile, symfile_flags);
947 macho_symfile_relocate (struct objfile *objfile, asection *sectp,
950 bfd *abfd = objfile->obfd;
952 /* We're only interested in sections with relocation
954 if ((sectp->flags & SEC_RELOC) == 0)
957 if (mach_o_debug_level > 0)
958 printf_unfiltered (_("Relocate section '%s' of %s\n"),
959 sectp->name, objfile->name);
961 return bfd_simple_get_relocated_section_contents (abfd, sectp, buf, NULL);
965 macho_symfile_finish (struct objfile *objfile)
970 macho_symfile_offsets (struct objfile *objfile,
971 struct section_addr_info *addrs)
974 unsigned int num_sections;
975 struct obj_section *osect;
977 /* Allocate section_offsets. */
978 objfile->num_sections = bfd_count_sections (objfile->obfd);
979 objfile->section_offsets = (struct section_offsets *)
980 obstack_alloc (&objfile->objfile_obstack,
981 SIZEOF_N_SECTION_OFFSETS (objfile->num_sections));
982 memset (objfile->section_offsets, 0,
983 SIZEOF_N_SECTION_OFFSETS (objfile->num_sections));
985 /* This code is run when we first add the objfile with
986 symfile_add_with_addrs_or_offsets, when "addrs" not "offsets" are
987 passed in. The place in symfile.c where the addrs are applied
988 depends on the addrs having section names. But in the dyld code
989 we build an anonymous array of addrs, so that code is a no-op.
990 Because of that, we have to apply the addrs to the sections here.
991 N.B. if an objfile slides after we've already created it, then it
992 goes through objfile_relocate. */
994 for (i = 0; i < addrs->num_sections; i++)
996 ALL_OBJFILE_OSECTIONS (objfile, osect)
998 const char *bfd_sect_name = osect->the_bfd_section->name;
1000 if (strcmp (bfd_sect_name, addrs->other[i].name) == 0)
1002 obj_section_offset (osect) = addrs->other[i].addr;
1008 objfile->sect_index_text = 0;
1010 ALL_OBJFILE_OSECTIONS (objfile, osect)
1012 const char *bfd_sect_name = osect->the_bfd_section->name;
1013 int sect_index = osect - objfile->sections;;
1015 if (strncmp (bfd_sect_name, "LC_SEGMENT.", 11) == 0)
1016 bfd_sect_name += 11;
1017 if (strcmp (bfd_sect_name, "__TEXT") == 0
1018 || strcmp (bfd_sect_name, "__TEXT.__text") == 0)
1019 objfile->sect_index_text = sect_index;
1023 static const struct sym_fns macho_sym_fns = {
1024 bfd_target_mach_o_flavour,
1026 macho_new_init, /* init anything gbl to entire symtab */
1027 macho_symfile_init, /* read initial info, setup for sym_read() */
1028 macho_symfile_read, /* read a symbol file into symtab */
1029 NULL, /* sym_read_psymbols */
1030 macho_symfile_finish, /* finished with file, cleanup */
1031 macho_symfile_offsets, /* xlate external to internal form */
1032 default_symfile_segments, /* Get segment information from a file. */
1034 macho_symfile_relocate, /* Relocate a debug section. */
1035 NULL, /* sym_get_probes */
1039 /* -Wmissing-prototypes */
1040 extern initialize_file_ftype _initialize_machoread;
1043 _initialize_machoread ()
1045 add_symtab_fns (&macho_sym_fns);
1047 add_setshow_zuinteger_cmd ("mach-o", class_obscure,
1048 &mach_o_debug_level,
1049 _("Set if printing Mach-O symbols processing."),
1050 _("Show if printing Mach-O symbols processing."),
1052 &setdebuglist, &showdebuglist);