1/* BFD backend for hp-ux 9000/300 2 Copyright (C) 1990-2017 Free Software Foundation, Inc. 3 Written by Glenn Engel. 4 5 This file is part of BFD, the Binary File Descriptor library. 6 7 This program is free software; you can redistribute it and/or modify 8 it under the terms of the GNU General Public License as published by 9 the Free Software Foundation; either version 3 of the License, or 10 (at your option) any later version. 11 12 This program is distributed in the hope that it will be useful, 13 but WITHOUT ANY WARRANTY; without even the implied warranty of 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 GNU General Public License for more details. 16 17 You should have received a copy of the GNU General Public License 18 along with this program; if not, write to the Free Software 19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, 20 MA 02110-1301, USA. */ 21 22 23/* hpux native ------------> | | 24 | hp300hpux bfd | ----------> hpux w/gnu ext 25 hpux w/gnu extension ----> | | 26 27 Support for the 9000/[34]00 has several limitations. 28 1. Shared libraries are not supported. 29 2. The output format from this bfd is not usable by native tools. 30 31 The primary motivation for writing this bfd was to allow use of 32 gdb and gcc for host based debugging and not to mimic the hp-ux tools 33 in every detail. This leads to a significant simplification of the 34 code and a leap in performance. The decision to not output hp native 35 compatible objects was further strengthened by the fact that the richness 36 of the gcc compiled objects could not be represented without loss of 37 information. For example, while the hp format supports the concept of 38 secondary symbols, it does not support indirect symbols. Another 39 reason is to maintain backwards compatibility with older implementations 40 of gcc on hpux which used 'hpxt' to translate .a and .o files into a 41 format which could be readily understood by the gnu linker and gdb. 42 This allows reading hp secondary symbols and converting them into 43 indirect symbols but the reverse it not always possible. 44 45 Another example of differences is that the hp format stores symbol offsets 46 in the object code while the gnu utilities use a field in the 47 relocation record for this. To support the hp native format, the object 48 code would need to be patched with the offsets when producing .o files. 49 50 The basic technique taken in this implementation is to #include the code 51 from aoutx.h and aout-target.h with appropriate #defines to override 52 code where a unique implementation is needed: 53 54 { 55 #define a bunch of stuff 56 #include <aoutx.h> 57 58 implement a bunch of functions 59 60 #include "aout-target.h" 61 } 62 63 The hp symbol table is a bit different than other a.out targets. Instead 64 of having an array of nlist items and an array of strings, hp's format 65 has them mixed together in one structure. In addition, the strings are 66 not null terminated. It looks something like this: 67 68 nlist element 1 69 string1 70 nlist element 2 71 string2 72 ... 73 74 The whole symbol table is read as one chunk and then we march thru it 75 and convert it to canonical form. As we march thru the table, we copy 76 the nlist data into the internal form and we compact the strings and null 77 terminate them, using storage from the already allocated symbol table: 78 79 string1 80 null 81 string2 82 null 83 */ 84 85/* @@ Is this really so different from normal a.out that it needs to include 86 aoutx.h? We should go through this file sometime and see what can be made 87 more dependent on aout32.o and what might need to be broken off and accessed 88 through the backend_data field. Or, maybe we really do need such a 89 completely separate implementation. I don't have time to investigate this 90 much further right now. [raeburn:19930428.2124EST] */ 91/* @@ Also, note that there wind up being two versions of some routines, with 92 different names, only one of which actually gets used. For example: 93 slurp_symbol_table 94 swap_std_reloc_in 95 slurp_reloc_table 96 canonicalize_symtab 97 get_symtab_upper_bound 98 canonicalize_reloc 99 mkobject 100 This should also be fixed. */ 101 102#define TARGETNAME "a.out-hp300hpux" 103 104/* Do not "beautify" the CONCAT* macro args. Traditional C will not 105 remove whitespace added here, and thus will fail to concatenate 106 the tokens. */ 107#define MY(OP) CONCAT2 (m68k_aout_hp300hpux_,OP) 108 109#define external_exec hp300hpux_exec_bytes 110#define external_nlist hp300hpux_nlist_bytes 111 112#include "aout/hp300hpux.h" 113 114/* define these so we can compile unused routines in aoutx.h */ 115#define e_strx e_shlib 116#define e_other e_length 117#define e_desc e_almod 118 119#define AR_PAD_CHAR '/' 120#define TARGET_IS_BIG_ENDIAN_P 121#define DEFAULT_ARCH bfd_arch_m68k 122 123#define MY_get_section_contents aout_32_get_section_contents 124#define MY_slurp_armap bfd_slurp_bsd_armap_f2 125 126/***********************************************/ 127/* provide overrides for routines in this file */ 128/***********************************************/ 129/* these don't use MY because that causes problems within JUMP_TABLE 130 (CONCAT2 winds up being expanded recursively, which ANSI C compilers 131 will not do). */ 132#define MY_canonicalize_symtab m68k_aout_hp300hpux_canonicalize_symtab 133#define MY_get_symtab_upper_bound m68k_aout_hp300hpux_get_symtab_upper_bound 134#define MY_canonicalize_reloc m68k_aout_hp300hpux_canonicalize_reloc 135#define MY_write_object_contents m68k_aout_hp300hpux_write_object_contents 136 137#define MY_read_minisymbols _bfd_generic_read_minisymbols 138#define MY_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol 139 140#define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create 141#define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols 142#define MY_final_link_callback unused 143#define MY_bfd_final_link _bfd_generic_final_link 144 145/* Until and unless we convert the slurp_reloc and slurp_symtab 146 routines in this file, we can not use the default aout 147 free_cached_info routine which assumes that the relocs and symtabs 148 were allocated using malloc. */ 149#define MY_bfd_free_cached_info bfd_true 150 151#define m68k_aout_hp300hpux_write_syms aout_32_write_syms 152 153#define MY_callback MY(callback) 154 155#define MY_exec_hdr_flags 0x2 156 157#define NAME_swap_exec_header_in NAME(hp300hpux_32_,swap_exec_header_in) 158 159#define HP_SYMTYPE_UNDEFINED 0x00 160#define HP_SYMTYPE_ABSOLUTE 0x01 161#define HP_SYMTYPE_TEXT 0x02 162#define HP_SYMTYPE_DATA 0x03 163#define HP_SYMTYPE_BSS 0x04 164#define HP_SYMTYPE_COMMON 0x05 165 166#define HP_SYMTYPE_TYPE 0x0F 167#define HP_SYMTYPE_FILENAME 0x1F 168 169#define HP_SYMTYPE_ALIGN 0x10 170#define HP_SYMTYPE_EXTERNAL 0x20 171#define HP_SECONDARY_SYMBOL 0x40 172 173/* RELOCATION DEFINITIONS */ 174#define HP_RSEGMENT_TEXT 0x00 175#define HP_RSEGMENT_DATA 0x01 176#define HP_RSEGMENT_BSS 0x02 177#define HP_RSEGMENT_EXTERNAL 0x03 178#define HP_RSEGMENT_PCREL 0x04 179#define HP_RSEGMENT_RDLT 0x05 180#define HP_RSEGMENT_RPLT 0x06 181#define HP_RSEGMENT_NOOP 0x3F 182 183#define HP_RLENGTH_BYTE 0x00 184#define HP_RLENGTH_WORD 0x01 185#define HP_RLENGTH_LONG 0x02 186#define HP_RLENGTH_ALIGN 0x03 187 188#define NAME(x,y) CONCAT3 (hp300hpux,_32_,y) 189#define ARCH_SIZE 32 190 191/* aoutx.h requires definitions for BMAGIC and QMAGIC. */ 192#define BMAGIC HPUX_DOT_O_MAGIC 193#define QMAGIC 0314 194 195#include "aoutx.h" 196 197static const bfd_target * MY (callback) (bfd *); 198static bfd_boolean MY (write_object_contents) (bfd *); 199static void convert_sym_type 200 (struct external_nlist *, aout_symbol_type *, bfd *); 201 202bfd_boolean MY (slurp_symbol_table) (bfd *); 203void MY (swap_std_reloc_in) 204 (bfd *, struct hp300hpux_reloc *, arelent *, asymbol **, bfd_size_type); 205bfd_boolean MY (slurp_reloc_table) 206 (bfd *, sec_ptr, asymbol **); 207long MY (canonicalize_symtab) (bfd *, asymbol **); 208long MY (get_symtab_upper_bound) (bfd *); 209long MY (canonicalize_reloc) (bfd *, sec_ptr, arelent **, asymbol **); 210 211/* Since the hpux symbol table has nlist elements interspersed with 212 strings and we need to insert som strings for secondary symbols, we 213 give ourselves a little extra padding up front to account for 214 this. Note that for each non-secondary symbol we process, we gain 215 9 bytes of space for the discarded nlist element (one byte used for 216 null). SYM_EXTRA_BYTES is the extra space. */ 217#define SYM_EXTRA_BYTES 1024 218 219/* Set parameters about this a.out file that are machine-dependent. 220 This routine is called from some_aout_object_p just before it returns. */ 221static const bfd_target * 222MY (callback) (bfd *abfd) 223{ 224 struct internal_exec *execp = exec_hdr (abfd); 225 226 /* Calculate the file positions of the parts of a newly read aout header */ 227 obj_textsec (abfd)->size = N_TXTSIZE (execp); 228 229 /* The virtual memory addresses of the sections */ 230 obj_textsec (abfd)->vma = N_TXTADDR (execp); 231 obj_datasec (abfd)->vma = N_DATADDR (execp); 232 obj_bsssec (abfd)->vma = N_BSSADDR (execp); 233 234 obj_textsec (abfd)->lma = obj_textsec (abfd)->vma; 235 obj_datasec (abfd)->lma = obj_datasec (abfd)->vma; 236 obj_bsssec (abfd)->lma = obj_bsssec (abfd)->vma; 237 238 /* The file offsets of the sections */ 239 obj_textsec (abfd)->filepos = N_TXTOFF (execp); 240 obj_datasec (abfd)->filepos = N_DATOFF (execp); 241 242 /* The file offsets of the relocation info */ 243 obj_textsec (abfd)->rel_filepos = N_TRELOFF (execp); 244 obj_datasec (abfd)->rel_filepos = N_DRELOFF (execp); 245 246 /* The file offsets of the string table and symbol table. */ 247 obj_sym_filepos (abfd) = N_SYMOFF (execp); 248 obj_str_filepos (abfd) = N_STROFF (execp); 249 250 /* Determine the architecture and machine type of the object file. */ 251#ifdef SET_ARCH_MACH 252 SET_ARCH_MACH (abfd, execp); 253#else 254 bfd_default_set_arch_mach (abfd, DEFAULT_ARCH, 0); 255#endif 256 257 if (obj_aout_subformat (abfd) == gnu_encap_format) 258 { 259 /* The file offsets of the relocation info */ 260 obj_textsec (abfd)->rel_filepos = N_GNU_TRELOFF (execp); 261 obj_datasec (abfd)->rel_filepos = N_GNU_DRELOFF (execp); 262 263 /* The file offsets of the string table and symbol table. */ 264 obj_sym_filepos (abfd) = N_GNU_SYMOFF (execp); 265 obj_str_filepos (abfd) = (obj_sym_filepos (abfd) + execp->a_syms); 266 267 abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS; 268 bfd_get_symcount (abfd) = execp->a_syms / 12; 269 obj_symbol_entry_size (abfd) = 12; 270 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; 271 } 272 273 return abfd->xvec; 274} 275 276extern bfd_boolean aout_32_write_syms (bfd *); 277 278static bfd_boolean 279MY (write_object_contents) (bfd * abfd) 280{ 281 struct external_exec exec_bytes; 282 struct internal_exec *execp = exec_hdr (abfd); 283 284 memset (&exec_bytes, 0, sizeof (exec_bytes)); 285 286 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; 287 288 if (adata (abfd).magic == undecided_magic) 289 NAME (aout,adjust_sizes_and_vmas) (abfd); 290 execp->a_syms = 0; 291 292 execp->a_entry = bfd_get_start_address (abfd); 293 294 execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * 295 obj_reloc_entry_size (abfd)); 296 execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * 297 obj_reloc_entry_size (abfd)); 298 299 N_SET_MACHTYPE (execp, 0xc); 300 N_SET_FLAGS (execp, aout_backend_info (abfd)->exec_hdr_flags); 301 302 NAME (aout,swap_exec_header_out) (abfd, execp, &exec_bytes); 303 304 /* update fields not covered by default swap_exec_header_out */ 305 306 /* this is really the sym table size but we store it in drelocs */ 307 H_PUT_32 (abfd, (bfd_get_symcount (abfd) * 12), exec_bytes.e_drelocs); 308 309 if (bfd_seek (abfd, (file_ptr) 0, FALSE) != 0 310 || (bfd_bwrite (&exec_bytes, (bfd_size_type) EXEC_BYTES_SIZE, abfd) 311 != EXEC_BYTES_SIZE)) 312 return FALSE; 313 314 /* Write out the symbols, and then the relocs. We must write out 315 the symbols first so that we know the symbol indices. */ 316 317 if (bfd_get_symcount (abfd) != 0) 318 { 319 /* Skip the relocs to where we want to put the symbols. */ 320 if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (execp) + execp->a_drsize), 321 SEEK_SET) != 0) 322 return FALSE; 323 } 324 325 if (!MY (write_syms) (abfd)) 326 return FALSE; 327 328 if (bfd_get_symcount (abfd) != 0) 329 { 330 if (bfd_seek (abfd, (file_ptr) N_TRELOFF (execp), SEEK_CUR) != 0) 331 return FALSE; 332 if (!NAME (aout,squirt_out_relocs) (abfd, obj_textsec (abfd))) 333 return FALSE; 334 if (bfd_seek (abfd, (file_ptr) N_DRELOFF (execp), SEEK_CUR) != 0) 335 return FALSE; 336 if (!NAME (aout,squirt_out_relocs) (abfd, obj_datasec (abfd))) 337 return FALSE; 338 } 339 340 return TRUE; 341} 342 343/* Convert the hp symbol type to be the same as aout64.h usage so we 344 can piggyback routines in aoutx.h. */ 345 346static void 347convert_sym_type (struct external_nlist *sym_pointer ATTRIBUTE_UNUSED, 348 aout_symbol_type *cache_ptr, 349 bfd *abfd ATTRIBUTE_UNUSED) 350{ 351 int name_type; 352 int new_type; 353 354 name_type = (cache_ptr->type); 355 new_type = 0; 356 357 if ((name_type & HP_SYMTYPE_ALIGN) != 0) 358 { 359 /* iou_error ("aligned symbol encountered: %s", name);*/ 360 name_type = 0; 361 } 362 363 if (name_type == HP_SYMTYPE_FILENAME) 364 new_type = N_FN; 365 else 366 { 367 switch (name_type & HP_SYMTYPE_TYPE) 368 { 369 case HP_SYMTYPE_UNDEFINED: 370 new_type = N_UNDF; 371 break; 372 373 case HP_SYMTYPE_ABSOLUTE: 374 new_type = N_ABS; 375 break; 376 377 case HP_SYMTYPE_TEXT: 378 new_type = N_TEXT; 379 break; 380 381 case HP_SYMTYPE_DATA: 382 new_type = N_DATA; 383 break; 384 385 case HP_SYMTYPE_BSS: 386 new_type = N_BSS; 387 break; 388 389 case HP_SYMTYPE_COMMON: 390 new_type = N_COMM; 391 break; 392 393 default: 394 abort (); 395 break; 396 } 397 if (name_type & HP_SYMTYPE_EXTERNAL) 398 new_type |= N_EXT; 399 400 if (name_type & HP_SECONDARY_SYMBOL) 401 { 402 switch (new_type) 403 { 404 default: 405 abort (); 406 case N_UNDF | N_EXT: 407 /* If the value is nonzero, then just treat this as a 408 common symbol. I don't know if this is correct in 409 all cases, but it is more correct than treating it as 410 a weak undefined symbol. */ 411 if (cache_ptr->symbol.value == 0) 412 new_type = N_WEAKU; 413 break; 414 case N_ABS | N_EXT: 415 new_type = N_WEAKA; 416 break; 417 case N_TEXT | N_EXT: 418 new_type = N_WEAKT; 419 break; 420 case N_DATA | N_EXT: 421 new_type = N_WEAKD; 422 break; 423 case N_BSS | N_EXT: 424 new_type = N_WEAKB; 425 break; 426 } 427 } 428 } 429 cache_ptr->type = new_type; 430 431} 432 433/* 434DESCRIPTION 435 Swaps the information in an executable header taken from a raw 436 byte stream memory image, into the internal exec_header 437 structure. 438*/ 439 440void 441NAME (aout,swap_exec_header_in) (bfd *abfd, 442 struct external_exec *raw_bytes, 443 struct internal_exec *execp) 444{ 445 struct external_exec *bytes = (struct external_exec *) raw_bytes; 446 447 /* The internal_exec structure has some fields that are unused in this 448 configuration (IE for i960), so ensure that all such uninitialized 449 fields are zero'd out. There are places where two of these structs 450 are memcmp'd, and thus the contents do matter. */ 451 memset (execp, 0, sizeof (struct internal_exec)); 452 /* Now fill in fields in the execp, from the bytes in the raw data. */ 453 execp->a_info = H_GET_32 (abfd, bytes->e_info); 454 execp->a_text = GET_WORD (abfd, bytes->e_text); 455 execp->a_data = GET_WORD (abfd, bytes->e_data); 456 execp->a_bss = GET_WORD (abfd, bytes->e_bss); 457 execp->a_syms = GET_WORD (abfd, bytes->e_syms); 458 execp->a_entry = GET_WORD (abfd, bytes->e_entry); 459 execp->a_trsize = GET_WORD (abfd, bytes->e_trsize); 460 execp->a_drsize = GET_WORD (abfd, bytes->e_drsize); 461 462 /***************************************************************/ 463 /* check the header to see if it was generated by a bfd output */ 464 /* this is detected rather bizarrely by requiring a bunch of */ 465 /* header fields to be zero and an old unused field (now used) */ 466 /* to be set. */ 467 /***************************************************************/ 468 do 469 { 470 long syms; 471 struct aout_data_struct *rawptr; 472 bfd_size_type amt; 473 474 if (H_GET_32 (abfd, bytes->e_passize) != 0) 475 break; 476 if (H_GET_32 (abfd, bytes->e_syms) != 0) 477 break; 478 if (H_GET_32 (abfd, bytes->e_supsize) != 0) 479 break; 480 481 syms = H_GET_32 (abfd, bytes->e_drelocs); 482 if (syms == 0) 483 break; 484 485 /* OK, we've passed the test as best as we can determine */ 486 execp->a_syms = syms; 487 488 /* allocate storage for where we will store this result */ 489 amt = sizeof (*rawptr); 490 rawptr = (struct aout_data_struct *) bfd_zalloc (abfd, amt); 491 492 if (rawptr == NULL) 493 return; 494 abfd->tdata.aout_data = rawptr; 495 obj_aout_subformat (abfd) = gnu_encap_format; 496 } 497 while (0); 498} 499 500/* The hp symbol table is a bit different than other a.out targets. Instead 501 of having an array of nlist items and an array of strings, hp's format 502 has them mixed together in one structure. In addition, the strings are 503 not null terminated. It looks something like this: 504 505 nlist element 1 506 string1 507 nlist element 2 508 string2 509 ... 510 511 The whole symbol table is read as one chunk and then we march thru it 512 and convert it to canonical form. As we march thru the table, we copy 513 the nlist data into the internal form and we compact the strings and null 514 terminate them, using storage from the already allocated symbol table: 515 516 string1 517 null 518 string2 519 null 520 ... 521*/ 522 523bfd_boolean 524MY (slurp_symbol_table) (bfd *abfd) 525{ 526 bfd_size_type symbol_bytes; 527 struct external_nlist *syms; 528 struct external_nlist *sym_pointer; 529 struct external_nlist *sym_end; 530 char *strings; 531 aout_symbol_type *cached; 532 unsigned num_syms = 0; 533 bfd_size_type amt; 534 535 /* If there's no work to be done, don't do any */ 536 if (obj_aout_symbols (abfd) != (aout_symbol_type *) NULL) 537 return TRUE; 538 symbol_bytes = exec_hdr (abfd)->a_syms; 539 540 amt = symbol_bytes + SYM_EXTRA_BYTES; 541 strings = (char *) bfd_alloc (abfd, amt); 542 if (!strings) 543 return FALSE; 544 syms = (struct external_nlist *) (strings + SYM_EXTRA_BYTES); 545 if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0 546 || bfd_bread (syms, symbol_bytes, abfd) != symbol_bytes) 547 { 548 bfd_release (abfd, syms); 549 return FALSE; 550 } 551 552 sym_end = (struct external_nlist *) (((char *) syms) + symbol_bytes); 553 554 /* first, march thru the table and figure out how many symbols there are */ 555 for (sym_pointer = syms; sym_pointer < sym_end; sym_pointer++, num_syms++) 556 { 557 /* skip over the embedded symbol. */ 558 sym_pointer = (struct external_nlist *) (((char *) sym_pointer) + 559 sym_pointer->e_length[0]); 560 } 561 562 /* now that we know the symbol count, update the bfd header */ 563 bfd_get_symcount (abfd) = num_syms; 564 565 amt = num_syms; 566 amt *= sizeof (aout_symbol_type); 567 cached = (aout_symbol_type *) bfd_zalloc (abfd, amt); 568 if (cached == NULL && num_syms != 0) 569 return FALSE; 570 571 /* as we march thru the hp symbol table, convert it into a list of 572 null terminated strings to hold the symbol names. Make sure any 573 assignment to the strings pointer is done after we're thru using 574 the nlist so we don't overwrite anything important. */ 575 576 /* OK, now walk the new symtable, caching symbol properties */ 577 { 578 aout_symbol_type *cache_ptr = cached; 579 /* Run through table and copy values */ 580 for (sym_pointer = syms, cache_ptr = cached; 581 sym_pointer < sym_end; sym_pointer++, cache_ptr++) 582 { 583 unsigned int length; 584 cache_ptr->symbol.the_bfd = abfd; 585 cache_ptr->symbol.value = GET_SWORD (abfd, sym_pointer->e_value); 586 cache_ptr->desc = bfd_get_16 (abfd, sym_pointer->e_almod); 587 cache_ptr->type = bfd_get_8 (abfd, sym_pointer->e_type); 588 cache_ptr->symbol.udata.p = NULL; 589 length = bfd_get_8 (abfd, sym_pointer->e_length); 590 cache_ptr->other = length; /* other not used, save length here */ 591 592 convert_sym_type (sym_pointer, cache_ptr, abfd); 593 if (!translate_from_native_sym_flags (abfd, cache_ptr)) 594 return FALSE; 595 596 /********************************************************/ 597 /* for hpux, the 'length' value indicates the length of */ 598 /* the symbol name which follows the nlist entry. */ 599 /********************************************************/ 600 if (length) 601 { 602 /**************************************************************/ 603 /* the hp string is not null terminated so we create a new one*/ 604 /* by copying the string to overlap the just vacated nlist */ 605 /* structure before it in memory. */ 606 /**************************************************************/ 607 cache_ptr->symbol.name = strings; 608 memcpy (strings, sym_pointer + 1, length); 609 strings[length] = '\0'; 610 strings += length + 1; 611 } 612 else 613 cache_ptr->symbol.name = (char *) NULL; 614 615 /* skip over the embedded symbol. */ 616 sym_pointer = (struct external_nlist *) (((char *) sym_pointer) + 617 length); 618 } 619 } 620 621 obj_aout_symbols (abfd) = cached; 622 623 return TRUE; 624} 625 626void 627MY (swap_std_reloc_in) (bfd *abfd, 628 struct hp300hpux_reloc *bytes, 629 arelent *cache_ptr, 630 asymbol **symbols, 631 bfd_size_type symcount ATTRIBUTE_UNUSED) 632{ 633 int r_index; 634 int r_extern = 0; 635 unsigned int r_length; 636 int r_pcrel = 0; 637 struct aoutdata *su = &(abfd->tdata.aout_data->a); 638 639 cache_ptr->address = H_GET_32 (abfd, bytes->r_address); 640 r_index = H_GET_16 (abfd, bytes->r_index); 641 642 switch (bytes->r_type[0]) 643 { 644 case HP_RSEGMENT_TEXT: 645 r_index = N_TEXT; 646 break; 647 case HP_RSEGMENT_DATA: 648 r_index = N_DATA; 649 break; 650 case HP_RSEGMENT_BSS: 651 r_index = N_BSS; 652 break; 653 case HP_RSEGMENT_EXTERNAL: 654 r_extern = 1; 655 break; 656 case HP_RSEGMENT_PCREL: 657 r_extern = 1; 658 r_pcrel = 1; 659 break; 660 case HP_RSEGMENT_RDLT: 661 break; 662 case HP_RSEGMENT_RPLT: 663 break; 664 case HP_RSEGMENT_NOOP: 665 break; 666 default: 667 abort (); 668 break; 669 } 670 671 switch (bytes->r_length[0]) 672 { 673 case HP_RLENGTH_BYTE: 674 r_length = 0; 675 break; 676 case HP_RLENGTH_WORD: 677 r_length = 1; 678 break; 679 case HP_RLENGTH_LONG: 680 r_length = 2; 681 break; 682 default: 683 abort (); 684 break; 685 } 686 687 cache_ptr->howto = howto_table_std + r_length + 4 * r_pcrel; 688 /* FIXME-soon: Roll baserel, jmptable, relative bits into howto setting */ 689 690 /* This macro uses the r_index value computed above */ 691 if (r_pcrel && r_extern) 692 { 693 /* The GNU linker assumes any offset from beginning of section */ 694 /* is already incorporated into the image while the HP linker */ 695 /* adds this in later. Add it in now... */ 696 MOVE_ADDRESS (-cache_ptr->address); 697 } 698 else 699 { 700 MOVE_ADDRESS (0); 701 } 702} 703 704bfd_boolean 705MY (slurp_reloc_table) (bfd *abfd, sec_ptr asect, asymbol **symbols) 706{ 707 bfd_size_type count; 708 bfd_size_type reloc_size; 709 void * relocs; 710 arelent *reloc_cache; 711 size_t each_size; 712 struct hp300hpux_reloc *rptr; 713 unsigned int counter; 714 arelent *cache_ptr; 715 716 if (asect->relocation) 717 return TRUE; 718 719 if (asect->flags & SEC_CONSTRUCTOR) 720 return TRUE; 721 722 if (asect == obj_datasec (abfd)) 723 { 724 reloc_size = exec_hdr (abfd)->a_drsize; 725 goto doit; 726 } 727 728 if (asect == obj_textsec (abfd)) 729 { 730 reloc_size = exec_hdr (abfd)->a_trsize; 731 goto doit; 732 } 733 734 bfd_set_error (bfd_error_invalid_operation); 735 return FALSE; 736 737doit: 738 if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0) 739 return FALSE; 740 each_size = obj_reloc_entry_size (abfd); 741 742 count = reloc_size / each_size; 743 744 reloc_cache = (arelent *) bfd_zalloc (abfd, count * sizeof (arelent)); 745 if (!reloc_cache && count != 0) 746 return FALSE; 747 748 relocs = bfd_alloc (abfd, reloc_size); 749 if (!relocs && reloc_size != 0) 750 { 751 bfd_release (abfd, reloc_cache); 752 return FALSE; 753 } 754 755 if (bfd_bread (relocs, reloc_size, abfd) != reloc_size) 756 { 757 bfd_release (abfd, relocs); 758 bfd_release (abfd, reloc_cache); 759 return FALSE; 760 } 761 762 rptr = (struct hp300hpux_reloc *) relocs; 763 counter = 0; 764 cache_ptr = reloc_cache; 765 766 for (; counter < count; counter++, rptr++, cache_ptr++) 767 { 768 MY (swap_std_reloc_in) (abfd, rptr, cache_ptr, symbols, 769 (bfd_size_type) bfd_get_symcount (abfd)); 770 } 771 772 bfd_release (abfd, relocs); 773 asect->relocation = reloc_cache; 774 asect->reloc_count = count; 775 return TRUE; 776} 777 778/************************************************************************/ 779/* The following functions are identical to functions in aoutx.h except */ 780/* they refer to MY(func) rather than NAME(aout,func) and they also */ 781/* call aout_32 versions if the input file was generated by gcc */ 782/************************************************************************/ 783 784long aout_32_canonicalize_symtab (bfd *, asymbol **); 785long aout_32_get_symtab_upper_bound (bfd *); 786long aout_32_canonicalize_reloc (bfd *, sec_ptr, arelent **, asymbol **); 787 788long 789MY (canonicalize_symtab) (bfd *abfd, asymbol **location) 790{ 791 unsigned int counter = 0; 792 aout_symbol_type *symbase; 793 794 if (obj_aout_subformat (abfd) == gnu_encap_format) 795 return aout_32_canonicalize_symtab (abfd, location); 796 797 if (!MY (slurp_symbol_table) (abfd)) 798 return -1; 799 800 for (symbase = obj_aout_symbols (abfd); counter++ < bfd_get_symcount (abfd);) 801 *(location++) = (asymbol *) (symbase++); 802 *location++ = 0; 803 return bfd_get_symcount (abfd); 804} 805 806long 807MY (get_symtab_upper_bound) (bfd *abfd) 808{ 809 if (obj_aout_subformat (abfd) == gnu_encap_format) 810 return aout_32_get_symtab_upper_bound (abfd); 811 if (!MY (slurp_symbol_table) (abfd)) 812 return -1; 813 814 return (bfd_get_symcount (abfd) + 1) * (sizeof (aout_symbol_type *)); 815} 816 817long 818MY (canonicalize_reloc) (bfd *abfd, 819 sec_ptr section, 820 arelent **relptr, 821 asymbol **symbols) 822{ 823 arelent *tblptr = section->relocation; 824 unsigned int count; 825 826 if (obj_aout_subformat (abfd) == gnu_encap_format) 827 return aout_32_canonicalize_reloc (abfd, section, relptr, symbols); 828 829 if (!(tblptr || MY (slurp_reloc_table) (abfd, section, symbols))) 830 return -1; 831 832 if (section->flags & SEC_CONSTRUCTOR) 833 { 834 arelent_chain *chain = section->constructor_chain; 835 for (count = 0; count < section->reloc_count; count++) 836 { 837 *relptr++ = &chain->relent; 838 chain = chain->next; 839 } 840 } 841 else 842 { 843 tblptr = section->relocation; 844 845 for (count = 0; count++ < section->reloc_count;) 846 { 847 *relptr++ = tblptr++; 848 } 849 } 850 *relptr = 0; 851 852 return section->reloc_count; 853} 854 855#include "aout-target.h" 856