| 1 | /* Read a symbol table in MIPS' format (Third-Eye). |
| 2 | Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996 |
| 3 | Free Software Foundation, Inc. |
| 4 | Contributed by Alessandro Forin (af@cs.cmu.edu) at CMU. Major work |
| 5 | by Per Bothner, John Gilmore and Ian Lance Taylor at Cygnus Support. |
| 6 | |
| 7 | This file is part of GDB. |
| 8 | |
| 9 | This program is free software; you can redistribute it and/or modify |
| 10 | it under the terms of the GNU General Public License as published by |
| 11 | the Free Software Foundation; either version 2 of the License, or |
| 12 | (at your option) any later version. |
| 13 | |
| 14 | This program is distributed in the hope that it will be useful, |
| 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 17 | GNU General Public License for more details. |
| 18 | |
| 19 | You should have received a copy of the GNU General Public License |
| 20 | along with this program; if not, write to the Free Software |
| 21 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
| 22 | |
| 23 | /* Read symbols from an ECOFF file. Most of the work is done in |
| 24 | mdebugread.c. */ |
| 25 | |
| 26 | #include "defs.h" |
| 27 | #include "gdb_string.h" |
| 28 | #include "bfd.h" |
| 29 | #include "symtab.h" |
| 30 | #include "symfile.h" |
| 31 | #include "objfiles.h" |
| 32 | #include "buildsym.h" |
| 33 | #include "stabsread.h" |
| 34 | #include "gdb-stabs.h" |
| 35 | |
| 36 | #include "coff/sym.h" |
| 37 | #include "coff/internal.h" |
| 38 | #include "coff/ecoff.h" |
| 39 | #include "libcoff.h" /* Private BFD COFF information. */ |
| 40 | #include "libecoff.h" /* Private BFD ECOFF information. */ |
| 41 | #include "elf/common.h" |
| 42 | #include "elf/mips.h" |
| 43 | |
| 44 | static void |
| 45 | mipscoff_new_init PARAMS ((struct objfile *)); |
| 46 | |
| 47 | static void |
| 48 | mipscoff_symfile_init PARAMS ((struct objfile *)); |
| 49 | |
| 50 | static void |
| 51 | mipscoff_symfile_read PARAMS ((struct objfile *, struct section_offsets *, |
| 52 | int)); |
| 53 | |
| 54 | static void |
| 55 | mipscoff_symfile_finish PARAMS ((struct objfile *)); |
| 56 | |
| 57 | static void |
| 58 | read_alphacoff_dynamic_symtab PARAMS ((struct section_offsets *, |
| 59 | struct objfile *objfile)); |
| 60 | |
| 61 | /* Initialize anything that needs initializing when a completely new |
| 62 | symbol file is specified (not just adding some symbols from another |
| 63 | file, e.g. a shared library). */ |
| 64 | |
| 65 | extern CORE_ADDR sigtramp_address; |
| 66 | |
| 67 | static void |
| 68 | mipscoff_new_init (ignore) |
| 69 | struct objfile *ignore; |
| 70 | { |
| 71 | sigtramp_address = 0; |
| 72 | stabsread_new_init (); |
| 73 | buildsym_new_init (); |
| 74 | } |
| 75 | |
| 76 | /* Initialize to read a symbol file (nothing to do). */ |
| 77 | |
| 78 | static void |
| 79 | mipscoff_symfile_init (objfile) |
| 80 | struct objfile *objfile; |
| 81 | { |
| 82 | } |
| 83 | |
| 84 | /* Read a symbol file from a file. */ |
| 85 | |
| 86 | static void |
| 87 | mipscoff_symfile_read (objfile, section_offsets, mainline) |
| 88 | struct objfile *objfile; |
| 89 | struct section_offsets *section_offsets; |
| 90 | int mainline; |
| 91 | { |
| 92 | bfd *abfd = objfile->obfd; |
| 93 | struct cleanup * back_to; |
| 94 | |
| 95 | init_minimal_symbol_collection (); |
| 96 | back_to = make_cleanup (discard_minimal_symbols, 0); |
| 97 | |
| 98 | /* Now that the executable file is positioned at symbol table, |
| 99 | process it and define symbols accordingly. */ |
| 100 | |
| 101 | if (!((*ecoff_backend (abfd)->debug_swap.read_debug_info) |
| 102 | (abfd, (asection *) NULL, &ecoff_data (abfd)->debug_info))) |
| 103 | error ("Error reading symbol table: %s", bfd_errmsg (bfd_get_error ())); |
| 104 | |
| 105 | mdebug_build_psymtabs (objfile, &ecoff_backend (abfd)->debug_swap, |
| 106 | &ecoff_data (abfd)->debug_info, section_offsets); |
| 107 | |
| 108 | /* Add alpha coff dynamic symbols. */ |
| 109 | |
| 110 | read_alphacoff_dynamic_symtab (section_offsets, objfile); |
| 111 | |
| 112 | /* Install any minimal symbols that have been collected as the current |
| 113 | minimal symbols for this objfile. */ |
| 114 | |
| 115 | install_minimal_symbols (objfile); |
| 116 | |
| 117 | /* If the entry_file bounds are still unknown after processing the |
| 118 | partial symbols, then try to set them from the minimal symbols |
| 119 | surrounding the entry_point. */ |
| 120 | |
| 121 | if (mainline |
| 122 | && objfile->ei.entry_point != INVALID_ENTRY_POINT |
| 123 | && objfile->ei.entry_file_lowpc == INVALID_ENTRY_LOWPC) |
| 124 | { |
| 125 | struct minimal_symbol *m; |
| 126 | |
| 127 | m = lookup_minimal_symbol_by_pc (objfile->ei.entry_point); |
| 128 | if (m && SYMBOL_NAME (m + 1)) |
| 129 | { |
| 130 | objfile->ei.entry_file_lowpc = SYMBOL_VALUE_ADDRESS (m); |
| 131 | objfile->ei.entry_file_highpc = SYMBOL_VALUE_ADDRESS (m + 1); |
| 132 | } |
| 133 | } |
| 134 | |
| 135 | do_cleanups (back_to); |
| 136 | } |
| 137 | |
| 138 | /* Perform any local cleanups required when we are done with a |
| 139 | particular objfile. */ |
| 140 | |
| 141 | static void |
| 142 | mipscoff_symfile_finish (objfile) |
| 143 | struct objfile *objfile; |
| 144 | { |
| 145 | } |
| 146 | |
| 147 | /* Alpha OSF/1 encapsulates the dynamic symbols in ELF format in a |
| 148 | standard coff section. The ELF format for the symbols differs from |
| 149 | the format defined in elf/external.h. It seems that a normal ELF 32 bit |
| 150 | format is used, and the representation only changes because longs are |
| 151 | 64 bit on the alpha. In addition, the handling of text/data section |
| 152 | indices for symbols is different from the ELF ABI. |
| 153 | As the BFD linker currently does not support dynamic linking on the alpha, |
| 154 | there seems to be no reason to pollute BFD with another mixture of object |
| 155 | file formats for now. */ |
| 156 | |
| 157 | /* Format of an alpha external ELF symbol. */ |
| 158 | |
| 159 | typedef struct { |
| 160 | unsigned char st_name[4]; /* Symbol name, index in string tbl */ |
| 161 | unsigned char st_pad[4]; /* Pad to long word boundary */ |
| 162 | unsigned char st_value[8]; /* Value of the symbol */ |
| 163 | unsigned char st_size[4]; /* Associated symbol size */ |
| 164 | unsigned char st_info[1]; /* Type and binding attributes */ |
| 165 | unsigned char st_other[1]; /* No defined meaning, 0 */ |
| 166 | unsigned char st_shndx[2]; /* Associated section index */ |
| 167 | } Elfalpha_External_Sym; |
| 168 | |
| 169 | /* Format of an alpha external ELF dynamic info structure. */ |
| 170 | |
| 171 | typedef struct { |
| 172 | unsigned char d_tag[4]; /* Tag */ |
| 173 | unsigned char d_pad[4]; /* Pad to long word boundary */ |
| 174 | union { |
| 175 | unsigned char d_ptr[8]; /* Pointer value */ |
| 176 | unsigned char d_val[4]; /* Integer value */ |
| 177 | } d_un; |
| 178 | } Elfalpha_External_Dyn; |
| 179 | |
| 180 | /* Struct to obtain the section pointers for alpha dynamic symbol info. */ |
| 181 | |
| 182 | struct alphacoff_dynsecinfo { |
| 183 | asection *sym_sect; /* Section pointer for .dynsym section */ |
| 184 | asection *str_sect; /* Section pointer for .dynstr section */ |
| 185 | asection *dyninfo_sect; /* Section pointer for .dynamic section */ |
| 186 | asection *got_sect; /* Section pointer for .got section */ |
| 187 | }; |
| 188 | |
| 189 | static void |
| 190 | alphacoff_locate_sections PARAMS ((bfd *, asection *, void *)); |
| 191 | |
| 192 | /* We are called once per section from read_alphacoff_dynamic_symtab. |
| 193 | We need to examine each section we are passed, check to see |
| 194 | if it is something we are interested in processing, and |
| 195 | if so, stash away some access information for the section. */ |
| 196 | |
| 197 | static void |
| 198 | alphacoff_locate_sections (ignore_abfd, sectp, sip) |
| 199 | bfd *ignore_abfd; |
| 200 | asection *sectp; |
| 201 | PTR sip; |
| 202 | { |
| 203 | register struct alphacoff_dynsecinfo *si; |
| 204 | |
| 205 | si = (struct alphacoff_dynsecinfo *) sip; |
| 206 | |
| 207 | if (STREQ (sectp->name, ".dynsym")) |
| 208 | { |
| 209 | si->sym_sect = sectp; |
| 210 | } |
| 211 | else if (STREQ (sectp->name, ".dynstr")) |
| 212 | { |
| 213 | si->str_sect = sectp; |
| 214 | } |
| 215 | else if (STREQ (sectp->name, ".dynamic")) |
| 216 | { |
| 217 | si->dyninfo_sect = sectp; |
| 218 | } |
| 219 | else if (STREQ (sectp->name, ".got")) |
| 220 | { |
| 221 | si->got_sect = sectp; |
| 222 | } |
| 223 | } |
| 224 | |
| 225 | /* Scan an alpha dynamic symbol table for symbols of interest and |
| 226 | add them to the minimal symbol table. */ |
| 227 | |
| 228 | static void |
| 229 | read_alphacoff_dynamic_symtab (section_offsets, objfile) |
| 230 | struct section_offsets *section_offsets; |
| 231 | struct objfile *objfile; |
| 232 | { |
| 233 | bfd *abfd = objfile->obfd; |
| 234 | struct alphacoff_dynsecinfo si; |
| 235 | char *sym_secptr; |
| 236 | char *str_secptr; |
| 237 | char *dyninfo_secptr; |
| 238 | char *got_secptr; |
| 239 | bfd_size_type sym_secsize; |
| 240 | bfd_size_type str_secsize; |
| 241 | bfd_size_type dyninfo_secsize; |
| 242 | bfd_size_type got_secsize; |
| 243 | int sym_count; |
| 244 | int i; |
| 245 | int stripped; |
| 246 | Elfalpha_External_Sym *x_symp; |
| 247 | char *dyninfo_p; |
| 248 | char *dyninfo_end; |
| 249 | int got_entry_size = 8; |
| 250 | int dt_mips_local_gotno = -1; |
| 251 | int dt_mips_gotsym = -1; |
| 252 | |
| 253 | |
| 254 | /* We currently only know how to handle alpha dynamic symbols. */ |
| 255 | if (bfd_get_arch (abfd) != bfd_arch_alpha) |
| 256 | return; |
| 257 | |
| 258 | /* Locate the dynamic symbols sections and read them in. */ |
| 259 | memset ((char *) &si, 0, sizeof (si)); |
| 260 | bfd_map_over_sections (abfd, alphacoff_locate_sections, (PTR) &si); |
| 261 | if (si.sym_sect == NULL |
| 262 | || si.str_sect == NULL |
| 263 | || si.dyninfo_sect == NULL |
| 264 | || si.got_sect == NULL) |
| 265 | return; |
| 266 | |
| 267 | sym_secsize = bfd_get_section_size_before_reloc (si.sym_sect); |
| 268 | str_secsize = bfd_get_section_size_before_reloc (si.str_sect); |
| 269 | dyninfo_secsize = bfd_get_section_size_before_reloc (si.dyninfo_sect); |
| 270 | got_secsize = bfd_get_section_size_before_reloc (si.got_sect); |
| 271 | sym_secptr = alloca (sym_secsize); |
| 272 | str_secptr = alloca (str_secsize); |
| 273 | dyninfo_secptr = alloca (dyninfo_secsize); |
| 274 | got_secptr = alloca (got_secsize); |
| 275 | |
| 276 | if (!bfd_get_section_contents (abfd, si.sym_sect, sym_secptr, |
| 277 | (file_ptr)0, sym_secsize)) |
| 278 | return; |
| 279 | if (!bfd_get_section_contents (abfd, si.str_sect, str_secptr, |
| 280 | (file_ptr)0, str_secsize)) |
| 281 | return; |
| 282 | if (!bfd_get_section_contents (abfd, si.dyninfo_sect, dyninfo_secptr, |
| 283 | (file_ptr)0, dyninfo_secsize)) |
| 284 | return; |
| 285 | if (!bfd_get_section_contents (abfd, si.got_sect, got_secptr, |
| 286 | (file_ptr)0, got_secsize)) |
| 287 | return; |
| 288 | |
| 289 | /* Find the number of local GOT entries and the index for the |
| 290 | the first dynamic symbol in the GOT. */ |
| 291 | for (dyninfo_p = dyninfo_secptr, dyninfo_end = dyninfo_p + dyninfo_secsize; |
| 292 | dyninfo_p < dyninfo_end; |
| 293 | dyninfo_p += sizeof (Elfalpha_External_Dyn)) |
| 294 | { |
| 295 | Elfalpha_External_Dyn *x_dynp = (Elfalpha_External_Dyn *)dyninfo_p; |
| 296 | long dyn_tag; |
| 297 | |
| 298 | dyn_tag = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_tag); |
| 299 | if (dyn_tag == DT_NULL) |
| 300 | break; |
| 301 | else if (dyn_tag == DT_MIPS_LOCAL_GOTNO) |
| 302 | { |
| 303 | if (dt_mips_local_gotno < 0) |
| 304 | dt_mips_local_gotno |
| 305 | = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_un.d_val); |
| 306 | } |
| 307 | else if (dyn_tag == DT_MIPS_GOTSYM) |
| 308 | { |
| 309 | if (dt_mips_gotsym < 0) |
| 310 | dt_mips_gotsym |
| 311 | = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_un.d_val); |
| 312 | } |
| 313 | } |
| 314 | if (dt_mips_local_gotno < 0 || dt_mips_gotsym < 0) |
| 315 | return; |
| 316 | |
| 317 | /* Scan all dynamic symbols and enter them into the minimal symbol table |
| 318 | if appropriate. */ |
| 319 | sym_count = sym_secsize / sizeof (Elfalpha_External_Sym); |
| 320 | stripped = (bfd_get_symcount (abfd) == 0); |
| 321 | |
| 322 | /* Skip first symbol, which is a null dummy. */ |
| 323 | for (i = 1, x_symp = (Elfalpha_External_Sym *) sym_secptr + 1; |
| 324 | i < sym_count; |
| 325 | i++, x_symp++) |
| 326 | { |
| 327 | unsigned long strx; |
| 328 | char *name; |
| 329 | bfd_vma sym_value; |
| 330 | unsigned char sym_info; |
| 331 | unsigned int sym_shndx; |
| 332 | int isglobal; |
| 333 | enum minimal_symbol_type ms_type; |
| 334 | |
| 335 | strx = bfd_h_get_32 (abfd, (bfd_byte *) x_symp->st_name); |
| 336 | if (strx >= str_secsize) |
| 337 | continue; |
| 338 | name = str_secptr + strx; |
| 339 | if (*name == '\0' || *name == '.') |
| 340 | continue; |
| 341 | |
| 342 | sym_value = bfd_h_get_64 (abfd, (bfd_byte *) x_symp->st_value); |
| 343 | sym_info = bfd_h_get_8 (abfd, (bfd_byte *) x_symp->st_info); |
| 344 | sym_shndx = bfd_h_get_16 (abfd, (bfd_byte *) x_symp->st_shndx); |
| 345 | isglobal = (ELF_ST_BIND (sym_info) == STB_GLOBAL); |
| 346 | |
| 347 | if (sym_shndx == SHN_UNDEF) |
| 348 | { |
| 349 | /* Handle undefined functions which are defined in a shared |
| 350 | library. */ |
| 351 | if (ELF_ST_TYPE (sym_info) != STT_FUNC |
| 352 | || ELF_ST_BIND (sym_info) != STB_GLOBAL) |
| 353 | continue; |
| 354 | |
| 355 | ms_type = mst_solib_trampoline; |
| 356 | |
| 357 | /* If sym_value is nonzero, it points to the shared library |
| 358 | trampoline entry, which is what we are looking for. |
| 359 | |
| 360 | If sym_value is zero, then we have to get the GOT entry |
| 361 | for the symbol. |
| 362 | If the GOT entry is nonzero, it represents the quickstart |
| 363 | address of the function and we use that as the symbol value. |
| 364 | |
| 365 | If the GOT entry is zero, the function address has to be resolved |
| 366 | by the runtime loader before the executable is started. |
| 367 | We are unable to find any meaningful address for these |
| 368 | functions in the executable file, so we skip them. */ |
| 369 | if (sym_value == 0) |
| 370 | { |
| 371 | int got_entry_offset = |
| 372 | (i - dt_mips_gotsym + dt_mips_local_gotno) * got_entry_size; |
| 373 | |
| 374 | if (got_entry_offset < 0 || got_entry_offset >= got_secsize) |
| 375 | continue; |
| 376 | sym_value = |
| 377 | bfd_h_get_64 (abfd, |
| 378 | (bfd_byte *) (got_secptr + got_entry_offset)); |
| 379 | if (sym_value == 0) |
| 380 | continue; |
| 381 | } |
| 382 | } |
| 383 | else |
| 384 | { |
| 385 | /* Symbols defined in the executable itself. We only care about |
| 386 | them if this is a stripped executable, otherwise they have |
| 387 | been retrieved from the normal symbol table already. */ |
| 388 | if (!stripped) |
| 389 | continue; |
| 390 | |
| 391 | if (sym_shndx == SHN_MIPS_TEXT) |
| 392 | { |
| 393 | if (isglobal) |
| 394 | ms_type = mst_text; |
| 395 | else |
| 396 | ms_type = mst_file_text; |
| 397 | sym_value += ANOFFSET (section_offsets, SECT_OFF_TEXT); |
| 398 | } |
| 399 | else if (sym_shndx == SHN_MIPS_DATA) |
| 400 | { |
| 401 | if (isglobal) |
| 402 | ms_type = mst_data; |
| 403 | else |
| 404 | ms_type = mst_file_data; |
| 405 | sym_value += ANOFFSET (section_offsets, SECT_OFF_DATA); |
| 406 | } |
| 407 | else if (sym_shndx == SHN_MIPS_ACOMMON) |
| 408 | { |
| 409 | if (isglobal) |
| 410 | ms_type = mst_bss; |
| 411 | else |
| 412 | ms_type = mst_file_bss; |
| 413 | sym_value += ANOFFSET (section_offsets, SECT_OFF_BSS); |
| 414 | } |
| 415 | else if (sym_shndx == SHN_ABS) |
| 416 | { |
| 417 | ms_type = mst_abs; |
| 418 | } |
| 419 | else |
| 420 | { |
| 421 | continue; |
| 422 | } |
| 423 | } |
| 424 | |
| 425 | prim_record_minimal_symbol (obsavestring (name, |
| 426 | strlen (name), |
| 427 | &objfile -> symbol_obstack), |
| 428 | sym_value, |
| 429 | ms_type, |
| 430 | objfile); |
| 431 | } |
| 432 | } |
| 433 | |
| 434 | /* Initialization */ |
| 435 | |
| 436 | static struct sym_fns ecoff_sym_fns = |
| 437 | { |
| 438 | bfd_target_ecoff_flavour, |
| 439 | mipscoff_new_init, /* sym_new_init: init anything gbl to entire symtab */ |
| 440 | mipscoff_symfile_init, /* sym_init: read initial info, setup for sym_read() */ |
| 441 | mipscoff_symfile_read, /* sym_read: read a symbol file into symtab */ |
| 442 | mipscoff_symfile_finish, /* sym_finish: finished with file, cleanup */ |
| 443 | default_symfile_offsets, /* sym_offsets: dummy FIXME til implem sym reloc */ |
| 444 | NULL /* next: pointer to next struct sym_fns */ |
| 445 | }; |
| 446 | |
| 447 | void |
| 448 | _initialize_mipsread () |
| 449 | { |
| 450 | add_symtab_fns (&ecoff_sym_fns); |
| 451 | } |