1 /* BFD backend for hp-ux 9000/300
2 Copyright (C) 1990, 1991, 1994 Free Software Foundation, Inc.
3 Written by Glenn Engel.
5 This file is part of BFD, the Binary File Descriptor library.
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 2 of the License, or
10 (at your option) any later version.
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.
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., 675 Mass Ave, Cambridge, MA 02139, USA. */
23 hpux native ------------> | |
24 | hp300hpux bfd | ----------> hpux w/gnu ext
25 hpux w/gnu extension ----> | |
28 Support for the 9000/[34]00 has several limitations.
29 1. Shared libraries are not supported.
30 2. The output format from this bfd is not usable by native tools.
32 The primary motivation for writing this bfd was to allow use of
33 gdb and gcc for host based debugging and not to mimic the hp-ux tools
34 in every detail. This leads to a significant simplification of the
35 code and a leap in performance. The decision to not output hp native
36 compatible objects was further strengthened by the fact that the richness
37 of the gcc compiled objects could not be represented without loss of
38 information. For example, while the hp format supports the concept of
39 secondary symbols, it does not support indirect symbols. Another
40 reason is to maintain backwards compatibility with older implementations
41 of gcc on hpux which used 'hpxt' to translate .a and .o files into a
42 format which could be readily understood by the gnu linker and gdb.
43 This allows reading hp secondary symbols and converting them into
44 indirect symbols but the reverse it not always possible.
46 Another example of differences is that the hp format stores symbol offsets
47 in the object code while the gnu utilities use a field in the
48 relocation record for this. To support the hp native format, the object
49 code would need to be patched with the offsets when producing .o files.
51 The basic technique taken in this implementation is to #include the code
52 from aoutx.h and aout-target.h with appropriate #defines to override
53 code where a unique implementation is needed:
56 #define a bunch of stuff
59 implement a bunch of functions
61 #include "aout-target.h"
64 The hp symbol table is a bit different than other a.out targets. Instead
65 of having an array of nlist items and an array of strings, hp's format
66 has them mixed together in one structure. In addition, the strings are
67 not null terminated. It looks something like this:
75 The whole symbol table is read as one chunk and then we march thru it
76 and convert it to canonical form. As we march thru the table, we copy
77 the nlist data into the internal form and we compact the strings and null
78 terminate them, using storage from the already allocated symbol table:
86 /* @@ Is this really so different from normal a.out that it needs to include
87 aoutx.h? We should go through this file sometime and see what can be made
88 more dependent on aout32.o and what might need to be broken off and accessed
89 through the backend_data field. Or, maybe we really do need such a
90 completely separate implementation. I don't have time to investigate this
91 much further right now. [raeburn:19930428.2124EST] */
92 /* @@ Also, note that there wind up being two versions of some routines, with
93 different names, only one of which actually gets used. For example:
98 get_symtab_upper_bound
101 This should also be fixed. */
104 #define TARGETNAME "a.out-hp300hpux"
105 #define MY(OP) CAT(hp300hpux_,OP)
107 #define external_exec hp300hpux_exec_bytes
108 #define external_nlist hp300hpux_nlist_bytes
110 #include "aout/hp300hpux.h"
112 /* define these so we can compile unused routines in aoutx.h */
113 #define e_strx e_shlib
114 #define e_other e_length
115 #define e_desc e_almod
117 #define AR_PAD_CHAR '/'
118 #define TARGET_IS_BIG_ENDIAN_P
119 #define DEFAULT_ARCH bfd_arch_m68k
121 #define MY_get_section_contents aout_32_get_section_contents
122 #define MY_slurp_armap bfd_slurp_bsd_armap_f2
124 /***********************************************/
125 /* provide overrides for routines in this file */
126 /***********************************************/
127 /* these don't use MY because that causes problems within JUMP_TABLE
128 (CAT winds up being expanded recursively, which ANSI C compilers
130 #define MY_get_symtab hp300hpux_get_symtab
131 #define MY_get_symtab_upper_bound hp300hpux_get_symtab_upper_bound
132 #define MY_canonicalize_reloc hp300hpux_canonicalize_reloc
133 #define MY_write_object_contents hp300hpux_write_object_contents
135 #define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
136 #define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols
137 #define MY_final_link_callback unused
138 #define MY_bfd_final_link _bfd_generic_final_link
140 /* Until and unless we convert the slurp_reloc and slurp_symtab
141 routines in this file, we can not use the default aout
142 free_cached_info routine which assumes that the relocs and symtabs
143 were allocated using malloc. */
144 #define MY_bfd_free_cached_info bfd_true
146 #define hp300hpux_write_syms aout_32_write_syms
148 #define MY_callback MY(callback)
150 #define MY_exec_hdr_flags 0x2
152 #define NAME_swap_exec_header_in NAME(hp300hpux_32_,swap_exec_header_in)
154 #define HP_SYMTYPE_UNDEFINED 0x00
155 #define HP_SYMTYPE_ABSOLUTE 0x01
156 #define HP_SYMTYPE_TEXT 0x02
157 #define HP_SYMTYPE_DATA 0x03
158 #define HP_SYMTYPE_BSS 0x04
159 #define HP_SYMTYPE_COMMON 0x05
161 #define HP_SYMTYPE_TYPE 0x0F
162 #define HP_SYMTYPE_FILENAME 0x1F
164 #define HP_SYMTYPE_ALIGN 0x10
165 #define HP_SYMTYPE_EXTERNAL 0x20
166 #define HP_SECONDARY_SYMBOL 0x40
168 /* RELOCATION DEFINITIONS */
169 #define HP_RSEGMENT_TEXT 0x00
170 #define HP_RSEGMENT_DATA 0x01
171 #define HP_RSEGMENT_BSS 0x02
172 #define HP_RSEGMENT_EXTERNAL 0x03
173 #define HP_RSEGMENT_PCREL 0x04
174 #define HP_RSEGMENT_RDLT 0x05
175 #define HP_RSEGMENT_RPLT 0x06
176 #define HP_RSEGMENT_NOOP 0x3F
178 #define HP_RLENGTH_BYTE 0x00
179 #define HP_RLENGTH_WORD 0x01
180 #define HP_RLENGTH_LONG 0x02
181 #define HP_RLENGTH_ALIGN 0x03
183 #define NAME(x,y) CAT3(hp300hpux,_32_,y)
186 /* aoutx.h requires definitions for BMAGIC and QMAGIC. */
192 /* Since the hpux symbol table has nlist elements interspersed with
193 strings and we need to insert som strings for secondary symbols, we
194 give ourselves a little extra padding up front to account for
195 this. Note that for each non-secondary symbol we process, we gain
196 9 bytes of space for the discarded nlist element (one byte used for
197 null). SYM_EXTRA_BYTES is the extra space. */
198 #define SYM_EXTRA_BYTES 1024
200 /* Set parameters about this a.out file that are machine-dependent.
201 This routine is called from some_aout_object_p just before it returns. */
206 struct internal_exec
*execp
= exec_hdr (abfd
);
208 /* Calculate the file positions of the parts of a newly read aout header */
209 obj_textsec (abfd
)->_raw_size
= N_TXTSIZE (*execp
);
211 /* The virtual memory addresses of the sections */
212 obj_textsec (abfd
)->vma
= N_TXTADDR (*execp
);
213 obj_datasec (abfd
)->vma
= N_DATADDR (*execp
);
214 obj_bsssec (abfd
)->vma
= N_BSSADDR (*execp
);
216 /* The file offsets of the sections */
217 obj_textsec (abfd
)->filepos
= N_TXTOFF (*execp
);
218 obj_datasec (abfd
)->filepos
= N_DATOFF (*execp
);
220 /* The file offsets of the relocation info */
221 obj_textsec (abfd
)->rel_filepos
= N_TRELOFF (*execp
);
222 obj_datasec (abfd
)->rel_filepos
= N_DRELOFF (*execp
);
224 /* The file offsets of the string table and symbol table. */
225 obj_sym_filepos (abfd
) = N_SYMOFF (*execp
);
226 obj_str_filepos (abfd
) = N_STROFF (*execp
);
228 /* Determine the architecture and machine type of the object file. */
230 SET_ARCH_MACH (abfd
, *execp
);
232 bfd_default_set_arch_mach (abfd
, DEFAULT_ARCH
, 0);
236 if (obj_aout_subformat (abfd
) == gnu_encap_format
)
238 /* The file offsets of the relocation info */
239 obj_textsec (abfd
)->rel_filepos
= N_GNU_TRELOFF (*execp
);
240 obj_datasec (abfd
)->rel_filepos
= N_GNU_DRELOFF (*execp
);
242 /* The file offsets of the string table and symbol table. */
243 obj_sym_filepos (abfd
) = N_GNU_SYMOFF (*execp
);
244 obj_str_filepos (abfd
) = (obj_sym_filepos (abfd
) + execp
->a_syms
);
246 abfd
->flags
|= HAS_LINENO
| HAS_DEBUG
| HAS_SYMS
| HAS_LOCALS
;
247 bfd_get_symcount (abfd
) = execp
->a_syms
/ 12;
248 obj_symbol_entry_size (abfd
) = 12;
249 obj_reloc_entry_size (abfd
) = RELOC_STD_SIZE
;
255 extern boolean aout_32_write_syms
PARAMS ((bfd
* abfd
));
258 MY (write_object_contents
) (abfd
)
261 struct external_exec exec_bytes
;
262 struct internal_exec
*execp
= exec_hdr (abfd
);
263 bfd_size_type text_size
; /* dummy vars */
266 memset (&exec_bytes
, 0, sizeof (exec_bytes
));
267 #if CHOOSE_RELOC_SIZE
268 CHOOSE_RELOC_SIZE (abfd
);
270 obj_reloc_entry_size (abfd
) = RELOC_STD_SIZE
;
273 if (adata (abfd
).magic
== undecided_magic
)
274 NAME (aout
,adjust_sizes_and_vmas
) (abfd
, &text_size
, &text_end
);
277 execp
->a_entry
= bfd_get_start_address (abfd
);
279 execp
->a_trsize
= ((obj_textsec (abfd
)->reloc_count
) *
280 obj_reloc_entry_size (abfd
));
281 execp
->a_drsize
= ((obj_datasec (abfd
)->reloc_count
) *
282 obj_reloc_entry_size (abfd
));
284 N_SET_MACHTYPE (*execp
, 0xc);
285 N_SET_FLAGS (*execp
, aout_backend_info (abfd
)->exec_hdr_flags
);
287 NAME (aout
,swap_exec_header_out
) (abfd
, execp
, &exec_bytes
);
289 /* update fields not covered by default swap_exec_header_out */
291 /* this is really the sym table size but we store it in drelocs */
292 bfd_h_put_32 (abfd
, bfd_get_symcount (abfd
) * 12, exec_bytes
.e_drelocs
);
294 if (bfd_seek (abfd
, 0L, false) != 0
295 || (bfd_write ((PTR
) & exec_bytes
, 1, EXEC_BYTES_SIZE
, abfd
)
299 /* Write out the symbols, and then the relocs. We must write out
300 the symbols first so that we know the symbol indices. */
302 if (bfd_get_symcount (abfd
) != 0)
304 /* Skip the relocs to where we want to put the symbols. */
305 if (bfd_seek (abfd
, (file_ptr
) N_DRELOFF (*execp
) + execp
->a_drsize
,
310 if (!MY (write_syms
) (abfd
))
313 if (bfd_get_symcount (abfd
) != 0)
315 if (bfd_seek (abfd
, (long) (N_TRELOFF (*execp
)), false) != 0)
317 if (!NAME (aout
,squirt_out_relocs
) (abfd
, obj_textsec (abfd
)))
319 if (bfd_seek (abfd
, (long) (N_DRELOFF (*execp
)), false) != 0)
321 if (!NAME (aout
,squirt_out_relocs
) (abfd
, obj_datasec (abfd
)))
328 /* convert the hp symbol type to be the same as aout64.h usage so we */
329 /* can piggyback routines in aoutx.h. */
332 convert_sym_type (sym_pointer
, cache_ptr
, abfd
)
333 struct external_nlist
*sym_pointer
;
334 aout_symbol_type
*cache_ptr
;
340 name_type
= (cache_ptr
->type
);
343 if ((name_type
& HP_SYMTYPE_ALIGN
) != 0)
345 /* iou_error ("aligned symbol encountered: %s", name);*/
349 if (name_type
== HP_SYMTYPE_FILENAME
)
353 switch (name_type
& HP_SYMTYPE_TYPE
)
355 case HP_SYMTYPE_UNDEFINED
:
359 case HP_SYMTYPE_ABSOLUTE
:
363 case HP_SYMTYPE_TEXT
:
367 case HP_SYMTYPE_DATA
:
375 case HP_SYMTYPE_COMMON
:
380 fprintf (stderr
, "unknown symbol type encountered: %x", name_type
);
382 if (name_type
& HP_SYMTYPE_EXTERNAL
)
385 if (name_type
& HP_SECONDARY_SYMBOL
)
386 new_type
= (new_type
& ~N_TYPE
) | N_INDR
;
388 cache_ptr
->type
= new_type
;
395 Swaps the information in an executable header taken from a raw
396 byte stream memory image, into the internal exec_header
401 NAME (aout
,swap_exec_header_in
) (abfd
, raw_bytes
, execp
)
403 struct external_exec
*raw_bytes
;
404 struct internal_exec
*execp
;
406 struct external_exec
*bytes
= (struct external_exec
*) raw_bytes
;
408 /* The internal_exec structure has some fields that are unused in this
409 configuration (IE for i960), so ensure that all such uninitialized
410 fields are zero'd out. There are places where two of these structs
411 are memcmp'd, and thus the contents do matter. */
412 memset (execp
, 0, sizeof (struct internal_exec
));
413 /* Now fill in fields in the execp, from the bytes in the raw data. */
414 execp
->a_info
= bfd_h_get_32 (abfd
, bytes
->e_info
);
415 execp
->a_text
= GET_WORD (abfd
, bytes
->e_text
);
416 execp
->a_data
= GET_WORD (abfd
, bytes
->e_data
);
417 execp
->a_bss
= GET_WORD (abfd
, bytes
->e_bss
);
418 execp
->a_syms
= GET_WORD (abfd
, bytes
->e_syms
);
419 execp
->a_entry
= GET_WORD (abfd
, bytes
->e_entry
);
420 execp
->a_trsize
= GET_WORD (abfd
, bytes
->e_trsize
);
421 execp
->a_drsize
= GET_WORD (abfd
, bytes
->e_drsize
);
423 /***************************************************************/
424 /* check the header to see if it was generated by a bfd output */
425 /* this is detected rather bizarely by requiring a bunch of */
426 /* header fields to be zero and an old unused field (now used) */
428 /***************************************************************/
432 struct aout_data_struct
*rawptr
;
433 if (bfd_h_get_32 (abfd
, bytes
->e_passize
) != 0)
435 if (bfd_h_get_32 (abfd
, bytes
->e_syms
) != 0)
437 if (bfd_h_get_32 (abfd
, bytes
->e_supsize
) != 0)
440 syms
= bfd_h_get_32 (abfd
, bytes
->e_drelocs
);
444 /* OK, we've passed the test as best as we can determine */
445 execp
->a_syms
= syms
;
447 /* allocate storage for where we will store this result */
448 rawptr
= (struct aout_data_struct
*) bfd_zalloc (abfd
, sizeof (*rawptr
));
452 bfd_set_error (bfd_error_no_memory
);
455 abfd
->tdata
.aout_data
= rawptr
;
456 obj_aout_subformat (abfd
) = gnu_encap_format
;
462 /* The hp symbol table is a bit different than other a.out targets. Instead
463 of having an array of nlist items and an array of strings, hp's format
464 has them mixed together in one structure. In addition, the strings are
465 not null terminated. It looks something like this:
473 The whole symbol table is read as one chunk and then we march thru it
474 and convert it to canonical form. As we march thru the table, we copy
475 the nlist data into the internal form and we compact the strings and null
476 terminate them, using storage from the already allocated symbol table:
486 MY (slurp_symbol_table
) (abfd
)
489 bfd_size_type symbol_bytes
;
490 struct external_nlist
*syms
;
491 struct external_nlist
*sym_pointer
;
492 struct external_nlist
*sym_end
;
494 aout_symbol_type
*cached
;
495 unsigned num_syms
= 0;
496 unsigned num_secondary
= 0;
498 /* If there's no work to be done, don't do any */
499 if (obj_aout_symbols (abfd
) != (aout_symbol_type
*) NULL
)
501 symbol_bytes
= exec_hdr (abfd
)->a_syms
;
502 if (symbol_bytes
== 0)
504 bfd_set_error (bfd_error_no_symbols
);
508 strings
= (char *) bfd_alloc (abfd
,
509 symbol_bytes
+ SYM_EXTRA_BYTES
);
512 bfd_set_error (bfd_error_no_memory
);
515 syms
= (struct external_nlist
*) (strings
+ SYM_EXTRA_BYTES
);
516 if (bfd_seek (abfd
, obj_sym_filepos (abfd
), SEEK_SET
) != 0
517 || bfd_read ((PTR
) syms
, symbol_bytes
, 1, abfd
) != symbol_bytes
)
519 bfd_release (abfd
, syms
);
524 sym_end
= (struct external_nlist
*) (((char *) syms
) + symbol_bytes
);
526 /* first, march thru the table and figure out how many symbols there are */
527 for (sym_pointer
= syms
; sym_pointer
< sym_end
; sym_pointer
++, num_syms
++)
529 if (bfd_get_8 (abfd
, sym_pointer
->e_type
) & HP_SECONDARY_SYMBOL
)
531 /* skip over the embedded symbol. */
532 sym_pointer
= (struct external_nlist
*) (((char *) sym_pointer
) +
533 sym_pointer
->e_length
[0]);
536 /* now that we know the symbol count, update the bfd header */
537 bfd_get_symcount (abfd
) = num_syms
+ num_secondary
;
539 cached
= (aout_symbol_type
*)
540 bfd_zalloc (abfd
, (bfd_size_type
) (bfd_get_symcount (abfd
) *
541 sizeof (aout_symbol_type
)));
544 bfd_set_error (bfd_error_no_memory
);
548 /* as we march thru the hp symbol table, convert it into a list of
549 null terminated strings to hold the symbol names. Make sure any
550 assignment to the strings pointer is done after we're thru using
551 the nlist so we don't overwrite anything important. */
554 /* OK, now walk the new symtable, cacheing symbol properties */
556 aout_symbol_type
*cache_ptr
= cached
;
557 aout_symbol_type cache_save
;
558 /* Run through table and copy values */
559 for (sym_pointer
= syms
, cache_ptr
= cached
;
560 sym_pointer
< sym_end
; sym_pointer
++, cache_ptr
++)
563 cache_ptr
->symbol
.the_bfd
= abfd
;
564 cache_ptr
->symbol
.value
= GET_SWORD (abfd
, sym_pointer
->e_value
);
565 cache_ptr
->desc
= bfd_get_16 (abfd
, sym_pointer
->e_almod
);
566 cache_ptr
->type
= bfd_get_8 (abfd
, sym_pointer
->e_type
);
567 cache_ptr
->symbol
.udata
= 0;
568 length
= bfd_get_8 (abfd
, sym_pointer
->e_length
);
569 cache_ptr
->other
= length
; /* other not used, save length here */
571 cache_save
= *cache_ptr
;
572 convert_sym_type (sym_pointer
, cache_ptr
, abfd
);
573 if (!translate_from_native_sym_flags (abfd
, cache_ptr
))
576 /********************************************************/
577 /* for hpux, the 'lenght' value indicates the length of */
578 /* the symbol name which follows the nlist entry. */
579 /********************************************************/
582 /**************************************************************/
583 /* the hp string is not null terminated so we create a new one*/
584 /* by copying the string to overlap the just vacated nlist */
585 /* structure before it in memory. */
586 /**************************************************************/
587 cache_ptr
->symbol
.name
= strings
;
588 memcpy (strings
, sym_pointer
+ 1, length
);
589 strings
[length
] = '\0';
590 strings
+= length
+ 1;
593 cache_ptr
->symbol
.name
= (char *) NULL
;
595 /**********************************************************/
596 /* this is a bit of a kludge, but a secondary hp symbol */
597 /* gets translated into a gnu indirect symbol. When this */
598 /* happens, we need to create a "dummy" record to which */
599 /* we can point the indirect symbol to. */
600 /**********************************************************/
601 if ((cache_ptr
->type
| N_EXT
) == (N_INDR
| N_EXT
))
603 aout_symbol_type
*cache_ptr2
= cached
+ num_syms
+ num_secondary
;
607 /* aoutx.h assumes the "next" value is the indirect sym */
608 /* since we don't want to disturb the order by inserting */
609 /* a new symbol, we tack on the created secondary syms */
611 cache_ptr
->symbol
.value
= (bfd_vma
) (cache_ptr2
);
612 *cache_ptr2
= cache_save
;
613 cache_ptr2
->symbol
.name
= strings
;
614 memcpy (strings
, cache_ptr
->symbol
.name
, length
);
615 strcpy (strings
+ length
, ":secondry"); /* 9 max chars + null */
616 strings
+= length
+ 10;
617 cache_ptr2
->type
&= ~HP_SECONDARY_SYMBOL
; /* clear secondary */
618 convert_sym_type (sym_pointer
, cache_ptr2
, abfd
);
619 if (!translate_from_native_sym_flags (abfd
, cache_ptr2
))
623 /* skip over the embedded symbol. */
624 sym_pointer
= (struct external_nlist
*) (((char *) sym_pointer
) +
629 obj_aout_symbols (abfd
) = cached
;
637 MY (swap_std_reloc_in
) (abfd
, bytes
, cache_ptr
, symbols
)
639 struct hp300hpux_reloc
*bytes
;
645 unsigned int r_length
;
647 struct aoutdata
*su
= &(abfd
->tdata
.aout_data
->a
);
649 cache_ptr
->address
= bfd_h_get_32 (abfd
, bytes
->r_address
);
650 r_index
= bfd_h_get_16 (abfd
, bytes
->r_index
);
652 switch (bytes
->r_type
[0])
654 case HP_RSEGMENT_TEXT
:
657 case HP_RSEGMENT_DATA
:
660 case HP_RSEGMENT_BSS
:
663 case HP_RSEGMENT_EXTERNAL
:
666 case HP_RSEGMENT_PCREL
:
670 case HP_RSEGMENT_RDLT
:
672 case HP_RSEGMENT_RPLT
:
674 case HP_RSEGMENT_NOOP
:
677 fprintf (stderr
, "illegal relocation segment type: %x\n",
681 switch (bytes
->r_length
[0])
683 case HP_RLENGTH_BYTE
:
686 case HP_RLENGTH_WORD
:
689 case HP_RLENGTH_LONG
:
693 fprintf (stderr
, "illegal relocation length: %x\n", bytes
->r_length
[0]);
697 cache_ptr
->howto
= howto_table_std
+ r_length
+ 4 * r_pcrel
;
698 /* FIXME-soon: Roll baserel, jmptable, relative bits into howto setting */
700 /* This macro uses the r_index value computed above */
701 if (r_pcrel
&& r_extern
)
703 /* The GNU linker assumes any offset from beginning of section */
704 /* is already incorporated into the image while the HP linker */
705 /* adds this in later. Add it in now... */
706 MOVE_ADDRESS (-cache_ptr
->address
);
715 MY (slurp_reloc_table
) (abfd
, asect
, symbols
)
721 bfd_size_type reloc_size
;
723 arelent
*reloc_cache
;
725 struct hp300hpux_reloc
*rptr
;
726 unsigned int counter
;
729 if (asect
->relocation
)
732 if (asect
->flags
& SEC_CONSTRUCTOR
)
735 if (asect
== obj_datasec (abfd
))
737 reloc_size
= exec_hdr (abfd
)->a_drsize
;
741 if (asect
== obj_textsec (abfd
))
743 reloc_size
= exec_hdr (abfd
)->a_trsize
;
747 bfd_set_error (bfd_error_invalid_operation
);
751 if (bfd_seek (abfd
, asect
->rel_filepos
, SEEK_SET
) != 0)
753 each_size
= obj_reloc_entry_size (abfd
);
755 count
= reloc_size
/ each_size
;
758 reloc_cache
= (arelent
*) bfd_zalloc (abfd
, (size_t) (count
* sizeof
760 if (!reloc_cache
&& count
!= 0)
763 bfd_set_error (bfd_error_no_memory
);
767 relocs
= (PTR
) bfd_alloc (abfd
, reloc_size
);
768 if (!relocs
&& reloc_size
!= 0)
770 bfd_release (abfd
, reloc_cache
);
774 if (bfd_read (relocs
, 1, reloc_size
, abfd
) != reloc_size
)
776 bfd_release (abfd
, relocs
);
777 bfd_release (abfd
, reloc_cache
);
781 rptr
= (struct hp300hpux_reloc
*) relocs
;
783 cache_ptr
= reloc_cache
;
785 for (; counter
< count
; counter
++, rptr
++, cache_ptr
++)
787 MY (swap_std_reloc_in
) (abfd
, rptr
, cache_ptr
, symbols
);
791 bfd_release (abfd
, relocs
);
792 asect
->relocation
= reloc_cache
;
793 asect
->reloc_count
= count
;
798 /************************************************************************/
799 /* The following functions are identical to functions in aoutx.h except */
800 /* they refer to MY(func) rather than NAME(aout,func) and they also */
801 /* call aout_32 versions if the input file was generated by gcc */
802 /************************************************************************/
804 long aout_32_get_symtab
PARAMS ((bfd
* abfd
, asymbol
** location
));
805 long aout_32_get_symtab_upper_bound
PARAMS ((bfd
* abfd
));
807 long aout_32_canonicalize_reloc
PARAMS ((bfd
* abfd
, sec_ptr section
,
809 asymbol
** symbols
));
812 MY (get_symtab
) (abfd
, location
)
816 unsigned int counter
= 0;
817 aout_symbol_type
*symbase
;
819 if (obj_aout_subformat (abfd
) == gnu_encap_format
)
820 return aout_32_get_symtab (abfd
, location
);
822 if (!MY (slurp_symbol_table
) (abfd
))
825 for (symbase
= obj_aout_symbols (abfd
); counter
++ < bfd_get_symcount (abfd
);)
826 *(location
++) = (asymbol
*) (symbase
++);
828 return bfd_get_symcount (abfd
);
832 MY (get_symtab_upper_bound
) (abfd
)
835 if (obj_aout_subformat (abfd
) == gnu_encap_format
)
836 return aout_32_get_symtab_upper_bound (abfd
);
837 if (!MY (slurp_symbol_table
) (abfd
))
840 return (bfd_get_symcount (abfd
) + 1) * (sizeof (aout_symbol_type
*));
847 MY (canonicalize_reloc
) (abfd
, section
, relptr
, symbols
)
853 arelent
*tblptr
= section
->relocation
;
855 if (obj_aout_subformat (abfd
) == gnu_encap_format
)
856 return aout_32_canonicalize_reloc (abfd
, section
, relptr
, symbols
);
858 if (!(tblptr
|| MY (slurp_reloc_table
) (abfd
, section
, symbols
)))
861 if (section
->flags
& SEC_CONSTRUCTOR
)
863 arelent_chain
*chain
= section
->constructor_chain
;
864 for (count
= 0; count
< section
->reloc_count
; count
++)
866 *relptr
++ = &chain
->relent
;
872 tblptr
= section
->relocation
;
874 for (count
= 0; count
++ < section
->reloc_count
;)
876 *relptr
++ = tblptr
++;
881 return section
->reloc_count
;
885 #include "aout-target.h"