1 /* Darwin support for GDB, the GNU debugger.
2 Copyright (C) 2008-2019 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/>. */
30 #include "aout/stab_gnu.h"
33 #include "complaints.h"
38 /* If non-zero displays debugging message. */
39 static unsigned int mach_o_debug_level = 0;
41 /* Dwarf debugging information are never in the final executable. They stay
42 in object files and the executable contains the list of object files read
44 Each time an oso (other source) is found in the executable, the reader
45 creates such a structure. They are read after the processing of the
50 oso_el (asymbol **oso_sym_, asymbol **end_sym_, unsigned int nbr_syms_)
51 : name((*oso_sym_)->name),
52 mtime((*oso_sym_)->value),
59 /* Object file name. Can also be a member name. */
62 /* Associated time stamp. */
65 /* Stab symbols range for this OSO. */
69 /* Number of interesting stabs in the range. */
70 unsigned int nbr_syms;
74 macho_new_init (struct objfile *objfile)
79 macho_symfile_init (struct objfile *objfile)
81 objfile->flags |= OBJF_REORDERED;
84 /* Add symbol SYM to the minimal symbol table of OBJFILE. */
87 macho_symtab_add_minsym (minimal_symbol_reader &reader,
88 struct objfile *objfile, const asymbol *sym)
90 if (sym->name == NULL || *sym->name == '\0')
92 /* Skip names that don't exist (shouldn't happen), or names
93 that are null strings (may happen). */
97 if (sym->flags & (BSF_GLOBAL | BSF_LOCAL | BSF_WEAK))
100 enum minimal_symbol_type ms_type;
102 /* Bfd symbols are section relative. */
103 symaddr = sym->value + sym->section->vma;
105 if (sym->section == bfd_abs_section_ptr)
107 else if (sym->section->flags & SEC_CODE)
109 if (sym->flags & (BSF_GLOBAL | BSF_WEAK))
112 ms_type = mst_file_text;
114 else if (sym->section->flags & SEC_ALLOC)
116 if (sym->flags & (BSF_GLOBAL | BSF_WEAK))
118 if (sym->section->flags & SEC_LOAD)
123 else if (sym->flags & BSF_LOCAL)
125 /* Not a special stabs-in-elf symbol, do regular
126 symbol processing. */
127 if (sym->section->flags & SEC_LOAD)
128 ms_type = mst_file_data;
130 ms_type = mst_file_bss;
133 ms_type = mst_unknown;
136 return; /* Skip this symbol. */
138 reader.record_with_info (sym->name, symaddr, ms_type,
139 gdb_bfd_section_index (objfile->obfd,
144 /* Build the minimal symbol table from SYMBOL_TABLE of length
145 NUMBER_OF_SYMBOLS for OBJFILE. Registers OSO filenames found. */
148 macho_symtab_read (minimal_symbol_reader &reader,
149 struct objfile *objfile,
150 long number_of_symbols, asymbol **symbol_table,
151 std::vector<oso_el> *oso_vector_ptr)
154 const asymbol *file_so = NULL;
155 asymbol **oso_file = NULL;
156 unsigned int nbr_syms = 0;
158 /* Current state while reading stabs. */
161 /* Not within an SO part. Only non-debugging symbols should be present,
162 and will be added to the minimal symbols table. */
165 /* First SO read. Introduce an SO section, and may be followed by a second
166 SO. The SO section should contain onl debugging symbols. */
169 /* Second non-null SO found, just after the first one. Means that the first
170 is in fact a directory name. */
173 /* Non-null OSO found. Debugging info are DWARF in this OSO file. */
179 for (i = 0; i < number_of_symbols; i++)
181 const asymbol *sym = symbol_table[i];
182 bfd_mach_o_asymbol *mach_o_sym = (bfd_mach_o_asymbol *)sym;
187 if (mach_o_sym->n_type == N_SO)
189 /* Start of object stab. */
190 if (sym->name == NULL || sym->name[0] == 0)
192 /* Unexpected empty N_SO. */
193 complaint (_("Unexpected empty N_SO stab"));
201 else if (sym->flags & BSF_DEBUGGING)
203 if (mach_o_sym->n_type == N_OPT)
205 /* No complaint for OPT. */
209 /* Debugging symbols are not expected here. */
210 complaint (_("%s: Unexpected debug stab outside SO markers"),
211 objfile_name (objfile));
215 /* Non-debugging symbols go to the minimal symbol table. */
216 macho_symtab_add_minsym (reader, objfile, sym);
222 if (mach_o_sym->n_type == N_SO)
224 if (sym->name == NULL || sym->name[0] == 0)
226 /* Unexpected empty N_SO. */
227 complaint (_("Empty SO section"));
230 else if (state == S_FIRST_SO)
232 /* Second SO stab for the file name. */
237 complaint (_("Three SO in a raw"));
239 else if (mach_o_sym->n_type == N_OSO)
241 if (sym->name == NULL || sym->name[0] == 0)
243 /* Empty OSO. Means that this file was compiled with
246 warning (_("stabs debugging not supported for %s"),
251 /* Non-empty OSO for a Dwarf file. */
252 oso_file = symbol_table + i;
254 state = S_DWARF_FILE;
258 complaint (_("Unexpected stab after SO"));
263 if (mach_o_sym->n_type == N_SO)
265 if (sym->name == NULL || sym->name[0] == 0)
268 if (state == S_DWARF_FILE)
269 oso_vector_ptr->emplace_back (oso_file, symbol_table + i,
275 complaint (_("Missing nul SO"));
280 else if (sym->flags & BSF_DEBUGGING)
282 if (state == S_STAB_FILE)
284 /* FIXME: to be implemented. */
288 switch (mach_o_sym->n_type)
291 if (sym->name == NULL || sym->name[0] == 0)
295 /* Interesting symbol. */
303 complaint (_("unhandled stab for dwarf OSO file"));
309 complaint (_("non-debugging symbol within SO"));
314 if (state != S_NO_SO)
315 complaint (_("missing nul SO"));
318 /* If NAME describes an archive member (ie: ARCHIVE '(' MEMBER ')'),
319 returns the length of the archive name.
320 Returns -1 otherwise. */
323 get_archive_prefix_len (const char *name)
326 int name_len = strlen (name);
328 if (name_len == 0 || name[name_len - 1] != ')')
331 lparen = strrchr (name, '(');
332 if (lparen == NULL || lparen == name)
334 return lparen - name;
337 /* Compare function to std::sort OSOs, so that members of a library
341 oso_el_compare_name (const oso_el &l, const oso_el &r)
343 return strcmp (l.name, r.name) < 0;
346 /* Hash table entry structure for the stabs symbols in the main object file.
347 This is used to speed up lookup for symbols in the OSO. */
349 struct macho_sym_hash_entry
351 struct bfd_hash_entry base;
355 /* Routine to create an entry in the hash table. */
357 static struct bfd_hash_entry *
358 macho_sym_hash_newfunc (struct bfd_hash_entry *entry,
359 struct bfd_hash_table *table,
362 struct macho_sym_hash_entry *ret = (struct macho_sym_hash_entry *) entry;
364 /* Allocate the structure if it has not already been allocated by a
367 ret = (struct macho_sym_hash_entry *) bfd_hash_allocate (table,
372 /* Call the allocation method of the superclass. */
373 ret = (struct macho_sym_hash_entry *)
374 bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string);
378 /* Initialize the local fields. */
382 return (struct bfd_hash_entry *) ret;
385 /* Get the value of SYM from the minimal symtab of MAIN_OBJFILE. This is used
386 to get the value of global and common symbols. */
389 macho_resolve_oso_sym_with_minsym (struct objfile *main_objfile, asymbol *sym)
391 /* For common symbol and global symbols, use the min symtab. */
392 struct bound_minimal_symbol msym;
393 const char *name = sym->name;
395 if (name[0] == bfd_get_symbol_leading_char (main_objfile->obfd))
397 msym = lookup_minimal_symbol (name, NULL, main_objfile);
398 if (msym.minsym == NULL)
400 warning (_("can't find symbol '%s' in minsymtab"), name);
404 return BMSYMBOL_VALUE_ADDRESS (msym);
407 /* Add oso file OSO/ABFD as a symbol file. */
410 macho_add_oso_symfile (oso_el *oso, const gdb_bfd_ref_ptr &abfd,
412 struct objfile *main_objfile,
413 symfile_add_flags symfile_flags)
417 asymbol **symbol_table;
419 struct bfd_hash_table table;
422 /* Per section flag to mark which section have been rebased. */
423 unsigned char *sections_rebased;
425 if (mach_o_debug_level > 0)
427 (_("Loading debugging symbols from oso: %s\n"), oso->name);
429 if (!bfd_check_format (abfd.get (), bfd_object))
431 warning (_("`%s': can't read symbols: %s."), oso->name,
432 bfd_errmsg (bfd_get_error ()));
436 if (abfd->my_archive == NULL && oso->mtime != bfd_get_mtime (abfd.get ()))
438 warning (_("`%s': file time stamp mismatch."), oso->name);
442 if (!bfd_hash_table_init_n (&table, macho_sym_hash_newfunc,
443 sizeof (struct macho_sym_hash_entry),
446 warning (_("`%s': can't create hash table"), oso->name);
450 bfd_set_cacheable (abfd.get (), 1);
452 /* Read symbols table. */
453 storage = bfd_get_symtab_upper_bound (abfd.get ());
454 symbol_table = (asymbol **) xmalloc (storage);
455 bfd_canonicalize_symtab (abfd.get (), symbol_table);
457 /* Init section flags. */
458 nbr_sections = bfd_count_sections (abfd.get ());
459 sections_rebased = (unsigned char *) alloca (nbr_sections);
460 for (i = 0; i < nbr_sections; i++)
461 sections_rebased[i] = 0;
463 /* Put symbols for the OSO file in the hash table. */
464 for (symp = oso->oso_sym; symp != oso->end_sym; symp++)
466 const asymbol *sym = *symp;
467 bfd_mach_o_asymbol *mach_o_sym = (bfd_mach_o_asymbol *)sym;
469 switch (mach_o_sym->n_type)
477 if (sym->name == NULL || sym->name[0] == 0)
488 struct macho_sym_hash_entry *ent;
490 ent = (struct macho_sym_hash_entry *)
491 bfd_hash_lookup (&table, sym->name, TRUE, FALSE);
492 if (ent->sym != NULL)
493 complaint (_("Duplicated symbol %s in symbol table"), sym->name);
496 if (mach_o_debug_level > 4)
498 struct gdbarch *arch = get_objfile_arch (main_objfile);
500 (_("Adding symbol %s (addr: %s)\n"),
501 sym->name, paddress (arch, sym->value));
508 /* Relocate symbols of the OSO. */
509 for (i = 0; symbol_table[i]; i++)
511 asymbol *sym = symbol_table[i];
512 bfd_mach_o_asymbol *mach_o_sym = (bfd_mach_o_asymbol *)sym;
514 if (mach_o_sym->n_type & BFD_MACH_O_N_STAB)
516 if ((mach_o_sym->n_type & BFD_MACH_O_N_TYPE) == BFD_MACH_O_N_UNDF
519 /* For common symbol use the min symtab and modify the OSO
523 res = macho_resolve_oso_sym_with_minsym (main_objfile, sym);
526 sym->section = bfd_com_section_ptr;
530 else if ((mach_o_sym->n_type & BFD_MACH_O_N_TYPE) == BFD_MACH_O_N_SECT)
533 asection *sec = sym->section;
534 bfd_mach_o_section *msec;
535 unsigned int sec_type;
537 /* Skip buggy ones. */
538 if (sec == NULL || sections_rebased[sec->index] != 0)
541 /* Only consider regular, non-debugging sections. */
542 msec = bfd_mach_o_get_mach_o_section (sec);
543 sec_type = msec->flags & BFD_MACH_O_SECTION_TYPE_MASK;
544 if ((sec_type == BFD_MACH_O_S_REGULAR
545 || sec_type == BFD_MACH_O_S_ZEROFILL)
546 && (msec->flags & BFD_MACH_O_S_ATTR_DEBUG) == 0)
550 if ((mach_o_sym->n_type & BFD_MACH_O_N_EXT) != 0)
552 /* Use the min symtab for global symbols. */
553 addr = macho_resolve_oso_sym_with_minsym (main_objfile, sym);
557 struct macho_sym_hash_entry *ent;
559 ent = (struct macho_sym_hash_entry *)
560 bfd_hash_lookup (&table, sym->name, FALSE, FALSE);
562 addr = bfd_asymbol_value (ent->sym);
565 /* Adjust the section. */
568 CORE_ADDR res = addr - sym->value;
570 if (mach_o_debug_level > 3)
572 struct gdbarch *arch = get_objfile_arch (main_objfile);
574 (_("resolve sect %s with %s (set to %s)\n"),
575 sec->name, sym->name,
576 paddress (arch, res));
578 bfd_set_section_vma (abfd.get (), sec, res);
579 sections_rebased[sec->index] = 1;
584 /* Mark the section as never rebased. */
585 sections_rebased[sec->index] = 2;
590 bfd_hash_table_free (&table);
592 /* We need to clear SYMFILE_MAINLINE to avoid interractive question
593 from symfile.c:symbol_file_add_with_addrs_or_offsets. */
594 symbol_file_add_from_bfd
595 (abfd.get (), name, symfile_flags & ~(SYMFILE_MAINLINE | SYMFILE_VERBOSE),
597 main_objfile->flags & (OBJF_REORDERED | OBJF_SHARED
598 | OBJF_READNOW | OBJF_USERLOADED),
602 /* Read symbols from the vector of oso files.
604 Note that this function sorts OSO_VECTOR_PTR. */
607 macho_symfile_read_all_oso (std::vector<oso_el> *oso_vector_ptr,
608 struct objfile *main_objfile,
609 symfile_add_flags symfile_flags)
614 /* Sort oso by name so that files from libraries are gathered. */
615 std::sort (oso_vector_ptr->begin (), oso_vector_ptr->end (),
616 oso_el_compare_name);
618 for (ix = 0; ix < oso_vector_ptr->size ();)
622 oso = &(*oso_vector_ptr)[ix];
624 /* Check if this is a library name. */
625 pfx_len = get_archive_prefix_len (oso->name);
632 std::string archive_name (oso->name, pfx_len);
634 /* Compute number of oso for this archive. */
635 for (last_ix = ix; last_ix < oso_vector_ptr->size (); last_ix++)
637 oso2 = &(*oso_vector_ptr)[last_ix];
638 if (strncmp (oso2->name, archive_name.c_str (), pfx_len) != 0)
642 /* Open the archive and check the format. */
643 gdb_bfd_ref_ptr archive_bfd (gdb_bfd_open (archive_name.c_str (),
645 if (archive_bfd == NULL)
647 warning (_("Could not open OSO archive file \"%s\""),
648 archive_name.c_str ());
652 if (!bfd_check_format (archive_bfd.get (), bfd_archive))
654 warning (_("OSO archive file \"%s\" not an archive."),
655 archive_name.c_str ());
660 gdb_bfd_ref_ptr member_bfd
661 (gdb_bfd_openr_next_archived_file (archive_bfd.get (), NULL));
663 if (member_bfd == NULL)
665 warning (_("Could not read archive members out of "
666 "OSO archive \"%s\""), archive_name.c_str ());
671 /* Load all oso in this library. */
672 while (member_bfd != NULL)
674 const char *member_name = member_bfd->filename;
675 int member_len = strlen (member_name);
677 /* If this member is referenced, add it as a symfile. */
678 for (ix2 = ix; ix2 < last_ix; ix2++)
680 oso2 = &(*oso_vector_ptr)[ix2];
683 && strlen (oso2->name) == pfx_len + member_len + 2
684 && !memcmp (member_name, oso2->name + pfx_len + 1,
687 macho_add_oso_symfile (oso2, member_bfd,
688 bfd_get_filename (member_bfd),
689 main_objfile, symfile_flags);
695 member_bfd = gdb_bfd_openr_next_archived_file (archive_bfd.get (),
698 for (ix2 = ix; ix2 < last_ix; ix2++)
700 oso2 = &(*oso_vector_ptr)[ix2];
702 if (oso2->name != NULL)
703 warning (_("Could not find specified archive member "
704 "for OSO name \"%s\""), oso->name);
710 gdb_bfd_ref_ptr abfd (gdb_bfd_open (oso->name, gnutarget, -1));
712 warning (_("`%s': can't open to read symbols: %s."), oso->name,
713 bfd_errmsg (bfd_get_error ()));
715 macho_add_oso_symfile (oso, abfd, oso->name, main_objfile,
723 /* DSYM (debug symbols) files contain the debug info of an executable.
724 This is a separate file created by dsymutil(1) and is similar to debug
726 DSYM files are located in a subdirectory. Append DSYM_SUFFIX to the
727 executable name and the executable base name to get the DSYM file name. */
728 #define DSYM_SUFFIX ".dSYM/Contents/Resources/DWARF/"
730 /* Check if a dsym file exists for OBJFILE. If so, returns a bfd for it
731 and return *FILENAMEP with its original filename.
732 Return NULL if no valid dsym file is found (FILENAMEP is not used in
735 static gdb_bfd_ref_ptr
736 macho_check_dsym (struct objfile *objfile, std::string *filenamep)
738 size_t name_len = strlen (objfile_name (objfile));
739 size_t dsym_len = strlen (DSYM_SUFFIX);
740 const char *base_name = lbasename (objfile_name (objfile));
741 size_t base_len = strlen (base_name);
742 char *dsym_filename = (char *) alloca (name_len + dsym_len + base_len + 1);
743 bfd_mach_o_load_command *main_uuid;
744 bfd_mach_o_load_command *dsym_uuid;
746 strcpy (dsym_filename, objfile_name (objfile));
747 strcpy (dsym_filename + name_len, DSYM_SUFFIX);
748 strcpy (dsym_filename + name_len + dsym_len, base_name);
750 if (access (dsym_filename, R_OK) != 0)
753 if (bfd_mach_o_lookup_command (objfile->obfd,
754 BFD_MACH_O_LC_UUID, &main_uuid) == 0)
756 warning (_("can't find UUID in %s"), objfile_name (objfile));
759 gdb_bfd_ref_ptr dsym_bfd (gdb_bfd_openr (dsym_filename, gnutarget));
760 if (dsym_bfd == NULL)
762 warning (_("can't open dsym file %s"), dsym_filename);
766 if (!bfd_check_format (dsym_bfd.get (), bfd_object))
768 warning (_("bad dsym file format: %s"), bfd_errmsg (bfd_get_error ()));
772 if (bfd_mach_o_lookup_command (dsym_bfd.get (),
773 BFD_MACH_O_LC_UUID, &dsym_uuid) == 0)
775 warning (_("can't find UUID in %s"), dsym_filename);
778 if (memcmp (dsym_uuid->command.uuid.uuid, main_uuid->command.uuid.uuid,
779 sizeof (main_uuid->command.uuid.uuid)))
781 warning (_("dsym file UUID doesn't match the one in %s"),
782 objfile_name (objfile));
785 *filenamep = std::string (dsym_filename);
790 macho_symfile_read (struct objfile *objfile, symfile_add_flags symfile_flags)
792 bfd *abfd = objfile->obfd;
794 std::vector<oso_el> oso_vector;
795 /* We have to hold on to the symbol table until the call to
796 macho_symfile_read_all_oso at the end of this function. */
797 gdb::def_vector<asymbol *> symbol_table;
799 /* Get symbols from the symbol table only if the file is an executable.
800 The symbol table of object files is not relocated and is expected to
801 be in the executable. */
802 if (bfd_get_file_flags (abfd) & (EXEC_P | DYNAMIC))
804 std::string dsym_filename;
806 /* Process the normal symbol table first. */
807 storage_needed = bfd_get_symtab_upper_bound (objfile->obfd);
808 if (storage_needed < 0)
809 error (_("Can't read symbols from %s: %s"),
810 bfd_get_filename (objfile->obfd),
811 bfd_errmsg (bfd_get_error ()));
813 if (storage_needed > 0)
817 symbol_table.resize (storage_needed / sizeof (asymbol *));
819 minimal_symbol_reader reader (objfile);
821 symcount = bfd_canonicalize_symtab (objfile->obfd,
822 symbol_table.data ());
825 error (_("Can't read symbols from %s: %s"),
826 bfd_get_filename (objfile->obfd),
827 bfd_errmsg (bfd_get_error ()));
829 macho_symtab_read (reader, objfile, symcount, symbol_table.data (),
835 /* Try to read .eh_frame / .debug_frame. */
836 /* First, locate these sections. We ignore the result status
837 as it only checks for debug info. */
838 dwarf2_has_info (objfile, NULL);
839 dwarf2_build_frame_info (objfile);
841 /* Check for DSYM file. */
842 gdb_bfd_ref_ptr dsym_bfd (macho_check_dsym (objfile, &dsym_filename));
843 if (dsym_bfd != NULL)
845 struct bfd_section *asect, *dsect;
847 if (mach_o_debug_level > 0)
848 printf_unfiltered (_("dsym file found\n"));
850 /* Set dsym section size. */
851 for (asect = objfile->obfd->sections, dsect = dsym_bfd->sections;
853 asect = asect->next, dsect = dsect->next)
855 if (strcmp (asect->name, dsect->name) != 0)
857 bfd_set_section_size (dsym_bfd.get (), dsect,
858 bfd_get_section_size (asect));
861 /* Add the dsym file as a separate file. */
862 symbol_file_add_separate (dsym_bfd.get (), dsym_filename.c_str (),
863 symfile_flags, objfile);
865 /* Don't try to read dwarf2 from main file or shared libraries. */
870 if (dwarf2_has_info (objfile, NULL))
872 /* DWARF 2 sections */
873 dwarf2_build_psymtabs (objfile);
877 if (!oso_vector.empty ())
878 macho_symfile_read_all_oso (&oso_vector, objfile, symfile_flags);
882 macho_symfile_relocate (struct objfile *objfile, asection *sectp,
885 bfd *abfd = objfile->obfd;
887 /* We're only interested in sections with relocation
889 if ((sectp->flags & SEC_RELOC) == 0)
892 if (mach_o_debug_level > 0)
893 printf_unfiltered (_("Relocate section '%s' of %s\n"),
894 sectp->name, objfile_name (objfile));
896 return bfd_simple_get_relocated_section_contents (abfd, sectp, buf, NULL);
900 macho_symfile_finish (struct objfile *objfile)
905 macho_symfile_offsets (struct objfile *objfile,
906 const section_addr_info &addrs)
909 struct obj_section *osect;
911 /* Allocate section_offsets. */
912 objfile->num_sections = bfd_count_sections (objfile->obfd);
913 objfile->section_offsets = (struct section_offsets *)
914 obstack_alloc (&objfile->objfile_obstack,
915 SIZEOF_N_SECTION_OFFSETS (objfile->num_sections));
916 memset (objfile->section_offsets, 0,
917 SIZEOF_N_SECTION_OFFSETS (objfile->num_sections));
919 /* This code is run when we first add the objfile with
920 symfile_add_with_addrs_or_offsets, when "addrs" not "offsets" are
921 passed in. The place in symfile.c where the addrs are applied
922 depends on the addrs having section names. But in the dyld code
923 we build an anonymous array of addrs, so that code is a no-op.
924 Because of that, we have to apply the addrs to the sections here.
925 N.B. if an objfile slides after we've already created it, then it
926 goes through objfile_relocate. */
928 for (i = 0; i < addrs.size (); i++)
930 ALL_OBJFILE_OSECTIONS (objfile, osect)
932 const char *bfd_sect_name = osect->the_bfd_section->name;
934 if (bfd_sect_name == addrs[i].name)
936 obj_section_offset (osect) = addrs[i].addr;
942 objfile->sect_index_text = 0;
944 ALL_OBJFILE_OSECTIONS (objfile, osect)
946 const char *bfd_sect_name = osect->the_bfd_section->name;
947 int sect_index = osect - objfile->sections;;
949 if (startswith (bfd_sect_name, "LC_SEGMENT."))
951 if (strcmp (bfd_sect_name, "__TEXT") == 0
952 || strcmp (bfd_sect_name, "__TEXT.__text") == 0)
953 objfile->sect_index_text = sect_index;
957 static const struct sym_fns macho_sym_fns = {
958 macho_new_init, /* init anything gbl to entire symtab */
959 macho_symfile_init, /* read initial info, setup for sym_read() */
960 macho_symfile_read, /* read a symbol file into symtab */
961 NULL, /* sym_read_psymbols */
962 macho_symfile_finish, /* finished with file, cleanup */
963 macho_symfile_offsets, /* xlate external to internal form */
964 default_symfile_segments, /* Get segment information from a file. */
966 macho_symfile_relocate, /* Relocate a debug section. */
967 NULL, /* sym_get_probes */
972 _initialize_machoread (void)
974 add_symtab_fns (bfd_target_mach_o_flavour, &macho_sym_fns);
976 add_setshow_zuinteger_cmd ("mach-o", class_obscure,
978 _("Set if printing Mach-O symbols processing."),
979 _("Show if printing Mach-O symbols processing."),
981 &setdebuglist, &showdebuglist);