More patches from Jeff Law, plus a little cleanup of my own.
These changes separate PA-SOM support from PA-ELF support. A sun4-x-hppaosf assembler can now be built. * elf32-hppa.c (elf_hppa_howto_table): Now static. (symext_rootP, symext_lastP, global_value, GOT_value, global_symbol, global_sym_defined, symextn_contents, symextn_contents_real_size, elf_hppa_stub_rootP, elf32_hppa_symextn_map, elf32_hppa_symextn_map_size): Rely on default initialization. (hppa_elf_gen_reloc_type): Macro "UNDEFINED" doesn't need a trailing semicolon. (hppa_look_for_stubs_in_section): Introduce temporaries to make code more readable in 80 columns. * libhppa.h (all functions): Now inline under GNU C. * elf32-hppa.c (AR_WARN): Give argument which caused the invalid argument relocation. (AR_UNIMP): Delete unused macro. (hppa_elf_set_section_contents): Always return a value. (elf32_hppa_backend_table_processing): Likewise. (elf32_hppa_backend_section_processing: Likewise. * som.c: New file containing SOM specific code extracted from hppa.c * som.h: New file containing SOM specific code extracted from libhppa.h * hppa.c: Deleted. * libhppa.h: Delete SOM specific code. Add generic PA code which can be shared by both SOM and ELF backends. * Makefile.in: Replace hppa.c with som.c. elf32-hppa.o depends on libhppa.h now. * configure.in (hppa_vec): Needs som.o module instead of hppa.o. * elf32-hppa.c: Include libhppa.h. Do not define BYTES_IN_WORD. * elf32-hppa.h (hppa_reloc_field_selector_type): Delete now lives in libhppa.h. (hppa_reloc_field_selector_type_alt): Likewise. * elf32-hppa.c (hppa_elf_relocate_unwind_table): Delete unused variables. (elf_hppa_reloc_type_lookup): Likewise. (elf_hppa_tc_make_sections): Likewise. (hppa_elf_arg_reloc_needed_p): Likewise. (hppa_elf_build_long_branch_stub): Likewise. (elf_reloc_map): Delete, no longer used. (elf_hppa_reloc_map): Likewise. (elf32_hppa_symextn_map_max_size): Likewise. (elf32_hppa_get_sym_extn): Abort if type is bogus. * elf32-hppa.c (elf32_hppa_backend_fake_sections): Add processing of the .hppa_unwind section.
This commit is contained in:
Ken Raeburn
parent
78e1e6d95a
commit
d9ad93bce5
|
|
@ -51,6 +51,10 @@ for targ in $target $canon_targets
|
|||
do
|
||||
bfd_target=`$srcdir/config.bfd $targ`
|
||||
|
||||
case "$targ" in
|
||||
netbsd386) bfd_target=i386-netbsd ;;
|
||||
esac
|
||||
|
||||
if [ "x$bfd_target" = "xall" ]; then
|
||||
all_targets=true
|
||||
else
|
||||
|
|
@ -171,9 +175,10 @@ if [ x${all_targets} = xfalse ]; then
|
|||
host_aout_vec) tb="$tb host-aout.o aout32.o stab-syms.o" ;;
|
||||
hp300bsd_vec) tb="$tb hp300bsd.o aout32.o stab-syms.o" ;;
|
||||
hp300hpux_vec) tb="$tb hp300hpux.o aout32.o stab-syms.o" ;;
|
||||
hppa_vec) tb="$tb hppa.o" ;;
|
||||
hppa_vec) tb="$tb som.o" ;;
|
||||
i386aout_vec) tb="$tb i386aout.o aout32.o stab-syms.o" ;;
|
||||
i386bsd_vec) tb="$tb i386bsd.o aout32.o stab-syms.o" ;;
|
||||
netbsd386_vec) tb="$tb netbsd386.o aout32.o stab-syms.o" ;;
|
||||
i386coff_vec) tb="$tb coff-i386.o" ;;
|
||||
i386linux_vec) tb="$tb i386linux.o aout32.o stab-syms.o" ;;
|
||||
i386lynx_vec) tb="$tb i386lynx.o aout32.o stab-syms.o" ;;
|
||||
|
|
|
|||
1315
bfd/elf32-hppa.c
1315
bfd/elf32-hppa.c
File diff suppressed because it is too large
Load Diff
|
|
@ -288,6 +288,7 @@ typedef enum
|
|||
R_HPPA_EXPR_14, /* pop - 14 */
|
||||
R_HPPA_EXPR_17, /* pop - 17 */
|
||||
R_HPPA_EXPR_12, /* pop - 12 */
|
||||
R_HPPA_STUB_CALL_17, /* Symbol + Addend 17 */
|
||||
R_HPPA_UNIMPLEMENTED /* N/A */
|
||||
} elf32_hppa_reloc_type;
|
||||
|
||||
|
|
@ -308,50 +309,6 @@ typedef enum
|
|||
#define R_HPPA_COMPLEX_ABS_CALL R_HPPA_PUSH_CONST + 2
|
||||
|
||||
|
||||
enum hppa_reloc_field_selector_type
|
||||
{
|
||||
R_HPPA_FSEL = 0x0,
|
||||
R_HPPA_LSSEL = 0x1,
|
||||
R_HPPA_RSSEL = 0x2,
|
||||
R_HPPA_LSEL = 0x3,
|
||||
R_HPPA_RSEL = 0x4,
|
||||
R_HPPA_LDSEL = 0x5,
|
||||
R_HPPA_RDSEL = 0x6,
|
||||
R_HPPA_LRSEL = 0x7,
|
||||
R_HPPA_RRSEL = 0x8,
|
||||
R_HPPA_PSEL = 0x9, /* P' : procedure address for shlib's */
|
||||
R_HPPA_LPSEL = 0xa, /* LP' : L' for procedure addresses */
|
||||
R_HPPA_RPSEL = 0xb, /* RP' : R' for procedure addresses */
|
||||
|
||||
R_HPPA_TSEL = 0xc, /* T' : DLT-relative offset for shlib's */
|
||||
R_HPPA_LTSEL = 0xd, /* LT' : L' for DLT-relative offsets */
|
||||
R_HPPA_RTSEL = 0xe /* RT' : R' for DLT-relative offsets */
|
||||
|
||||
};
|
||||
|
||||
#define N_HPPA_FIELD_SELECTORS 15
|
||||
|
||||
/* for compatibility */
|
||||
enum hppa_reloc_field_selector_type_alt
|
||||
{
|
||||
e_fsel = R_HPPA_FSEL,
|
||||
e_lssel = R_HPPA_LSSEL,
|
||||
e_rssel = R_HPPA_RSSEL,
|
||||
e_lsel = R_HPPA_LSEL,
|
||||
e_rsel = R_HPPA_RSEL,
|
||||
e_ldsel = R_HPPA_LDSEL,
|
||||
e_rdsel = R_HPPA_RDSEL,
|
||||
e_lrsel = R_HPPA_LRSEL,
|
||||
e_rrsel = R_HPPA_RRSEL,
|
||||
e_psel = R_HPPA_PSEL, /* P' : procedure address for shlib's */
|
||||
e_lpsel = R_HPPA_LPSEL, /* LP' : L' for procedure addresses */
|
||||
e_rpsel = R_HPPA_RPSEL, /* RP' : R' for procedure addresses */
|
||||
|
||||
e_tsel = R_HPPA_TSEL, /* T' : DLT-relative offset for shlib's */
|
||||
e_ltsel = R_HPPA_LTSEL, /* LT' : L' for DLT-relative offsets */
|
||||
e_rtsel = R_HPPA_RTSEL /* RT' : R' for DLT-relative offsets */
|
||||
};
|
||||
|
||||
/* PA-RISC OPCODES */
|
||||
|
||||
#define get_opcode(insn) ((insn) & 0xfc000000) >> 26
|
||||
|
|
@ -445,8 +402,8 @@ elf32_hppa_reloc_type **hppa_elf_gen_reloc_type ();
|
|||
#define ELF_TC_FAKE_SECTIONS 1 /* # of "hand_made" tc-specific sections */
|
||||
#define SYMEXTN_SECTION_NAME ".hppa_symextn"
|
||||
|
||||
extern void EXFUN (elf_hppa_tc_symbol, (bfd *, elf32_symbol_type *, int));
|
||||
extern void EXFUN (elf_hppa_tc_make_sections, (bfd *, PTR));
|
||||
extern void elf_hppa_tc_symbol PARAMS ((bfd *, elf32_symbol_type *, int));
|
||||
extern void elf_hppa_tc_make_sections PARAMS ((bfd *, PTR));
|
||||
|
||||
typedef Elf32_Word symext_entryS;
|
||||
|
||||
|
|
@ -458,7 +415,4 @@ struct symext_chain
|
|||
|
||||
typedef struct symext_chain symext_chainS;
|
||||
|
||||
extern symext_chainS *symext_rootP;
|
||||
extern symext_chainS *symext_lastP;
|
||||
|
||||
#endif /* _ELF32_HPPA_H */
|
||||
|
|
|
|||
486
bfd/libhppa.h
486
bfd/libhppa.h
|
|
@ -4,213 +4,319 @@
|
|||
Contributed by the Center for Software Science at the
|
||||
University of Utah (pa-gdb-bugs@cs.utah.edu).
|
||||
|
||||
This file is part of BFD, the Binary File Descriptor library.
|
||||
This file is part of BFD, the Binary File Descriptor library.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
|
||||
#ifndef _LIBHPPA_H
|
||||
#define _LIBHPPA_H
|
||||
|
||||
#include "../bfd/sysdep.h"
|
||||
|
||||
#ifdef HOST_HPPAHPUX
|
||||
|
||||
#include <sys/core.h>
|
||||
#include <sys/utsname.h>
|
||||
|
||||
#endif /* HOST_HPPAHPUX */
|
||||
|
||||
#ifdef HOST_HPPABSD
|
||||
|
||||
/* BSD uses a completely different scheme for object file identification.
|
||||
so for now, define _PA_RISC_ID to accept any random value for a model
|
||||
number. */
|
||||
|
||||
#include <a.out.h>
|
||||
|
||||
/* Not a very swift place to put it, but that's where the BSD port
|
||||
puts them. */
|
||||
#include "/hpux/usr/include/sys/core.h"
|
||||
#ifndef _PA_RISC_ID
|
||||
#define _PA_RISC_ID(__m_num) 1
|
||||
#endif
|
||||
|
||||
#endif /* HOST_HPPABSD */
|
||||
|
||||
/* Defining MAXCOMLEN avoids bringing in several (7 or 8) otherwise
|
||||
useless include files which tend to clutter up the namespace. */
|
||||
|
||||
#define MAXCOMLEN 16
|
||||
#ifndef _HPPA_H
|
||||
#define _HPPA_H
|
||||
|
||||
#define BYTES_IN_WORD 4
|
||||
|
||||
struct header;
|
||||
struct som_exec_auxhdr;
|
||||
struct subspace_dictionary;
|
||||
|
||||
#define FILE_HDR_SIZE sizeof(struct header)
|
||||
#define AUX_HDR_SIZE sizeof(struct som_exec_auxhdr)
|
||||
|
||||
typedef struct hppa_symbol
|
||||
{
|
||||
asymbol symbol;
|
||||
short desc;
|
||||
char other;
|
||||
unsigned char type;
|
||||
} hppa_symbol_type;
|
||||
|
||||
struct hppadata
|
||||
{
|
||||
struct header *file_hdr;
|
||||
struct som_exec_auxhdr *aux_hdr;
|
||||
hppa_symbol_type *symbols;
|
||||
|
||||
/* We remember these offsets so that after check_file_format, we have
|
||||
no dependencies on the particular format of the exec_hdr. */
|
||||
|
||||
file_ptr sym_filepos;
|
||||
file_ptr str_filepos;
|
||||
|
||||
unsigned stringtab_size;
|
||||
|
||||
/* Size of a symbol table entry in external form */
|
||||
unsigned hp_symbol_entry_size;
|
||||
};
|
||||
|
||||
struct hppa_data_struct {
|
||||
struct hppadata a;
|
||||
};
|
||||
|
||||
#define padata(bfd) ((bfd)->tdata.hppa_data->a)
|
||||
#define obj_file_hdr(bfd) (padata(bfd).file_hdr)
|
||||
#define obj_aux_hdr(bfd) (padata(bfd).aux_hdr)
|
||||
#define obj_pa_symbols(bfd) (padata(bfd).symbols)
|
||||
#define obj_sym_filepos(bfd) (padata(bfd).sym_filepos)
|
||||
#define obj_str_filepos(bfd) (padata(bfd).str_filepos)
|
||||
#define obj_stringtab_size(bfd) (padata(bfd).stringtab_size)
|
||||
|
||||
/* We take the address of the first element of an asymbol to ensure that the
|
||||
macro is only ever applied to an asymbol */
|
||||
#define hppa_symbol(asymbol) ((hppa_symbol_type *)(&(asymbol)->the_bfd))
|
||||
|
||||
|
||||
/* These are stored in the bfd's tdata */
|
||||
|
||||
struct hppa_core_struct
|
||||
{
|
||||
int sig;
|
||||
char cmd[MAXCOMLEN + 1];
|
||||
asection *data_section;
|
||||
asection *stack_section;
|
||||
asection *reg_section;
|
||||
};
|
||||
|
||||
#define core_hdr(bfd) ((bfd)->tdata.hppa_core_data)
|
||||
#define core_signal(bfd) (core_hdr(bfd)->sig)
|
||||
#define core_command(bfd) (core_hdr(bfd)->cmd)
|
||||
#define core_datasec(bfd) (core_hdr(bfd)->data_section)
|
||||
#define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
|
||||
#define core_regsec(bfd) (core_hdr(bfd)->reg_section)
|
||||
#ifndef INLINE
|
||||
#ifdef __GNUC__
|
||||
#define INLINE inline
|
||||
#else
|
||||
#define INLINE
|
||||
#endif /* GNU C? */
|
||||
#endif /* INLINE */
|
||||
|
||||
/* HP PA-RISC relocation types */
|
||||
|
||||
enum hppa_reloc_field_selector_type
|
||||
{
|
||||
R_HPPA_FSEL = 0x0,
|
||||
R_HPPA_LSSEL = 0x1,
|
||||
R_HPPA_RSSEL = 0x2,
|
||||
R_HPPA_LSEL = 0x3,
|
||||
R_HPPA_RSEL = 0x4,
|
||||
R_HPPA_LDSEL = 0x5,
|
||||
R_HPPA_RDSEL = 0x6,
|
||||
R_HPPA_LRSEL = 0x7,
|
||||
R_HPPA_RRSEL = 0x8,
|
||||
R_HPPA_PSEL = 0x9, /* P' : procedure address for shlib's */
|
||||
R_HPPA_LPSEL = 0xa, /* LP' : L' for procedure addresses */
|
||||
R_HPPA_RPSEL = 0xb, /* RP' : R' for procedure addresses */
|
||||
|
||||
R_HPPA_TSEL = 0xc, /* T' : DLT-relative offset for shlib's */
|
||||
R_HPPA_LTSEL = 0xd, /* LT' : L' for DLT-relative offsets */
|
||||
R_HPPA_RTSEL = 0xe /* RT' : R' for DLT-relative offsets */
|
||||
|
||||
};
|
||||
|
||||
/* Need to undefine things defined in <machine/som.h> */
|
||||
|
||||
#undef e_fsel
|
||||
#undef e_lssel
|
||||
#undef e_rssel
|
||||
#undef e_lsel
|
||||
#undef e_rsel
|
||||
#undef e_ldsel
|
||||
#undef e_rdsel
|
||||
#undef e_lrsel
|
||||
#undef e_rrsel
|
||||
#undef e_psel
|
||||
#undef e_lpsel
|
||||
#undef e_rpsel
|
||||
#undef e_tsel
|
||||
#undef e_ltsel
|
||||
#undef e_rtsel
|
||||
#undef e_one
|
||||
#undef e_two
|
||||
#undef e_pcrel
|
||||
#undef e_con
|
||||
#undef e_plabel
|
||||
#undef e_abs
|
||||
{
|
||||
R_HPPA_FSEL = 0x0,
|
||||
R_HPPA_LSSEL = 0x1,
|
||||
R_HPPA_RSSEL = 0x2,
|
||||
R_HPPA_LSEL = 0x3,
|
||||
R_HPPA_RSEL = 0x4,
|
||||
R_HPPA_LDSEL = 0x5,
|
||||
R_HPPA_RDSEL = 0x6,
|
||||
R_HPPA_LRSEL = 0x7,
|
||||
R_HPPA_RRSEL = 0x8,
|
||||
R_HPPA_PSEL = 0x9,
|
||||
R_HPPA_LPSEL = 0xa,
|
||||
R_HPPA_RPSEL = 0xb,
|
||||
R_HPPA_TSEL = 0xc,
|
||||
R_HPPA_LTSEL = 0xd,
|
||||
R_HPPA_RTSEL = 0xe
|
||||
};
|
||||
|
||||
/* for compatibility */
|
||||
enum hppa_reloc_field_selector_type_alt
|
||||
{
|
||||
e_fsel = R_HPPA_FSEL,
|
||||
e_lssel = R_HPPA_LSSEL,
|
||||
e_rssel = R_HPPA_RSSEL,
|
||||
e_lsel = R_HPPA_LSEL,
|
||||
e_rsel = R_HPPA_RSEL,
|
||||
e_ldsel = R_HPPA_LDSEL,
|
||||
e_rdsel = R_HPPA_RDSEL,
|
||||
e_lrsel = R_HPPA_LRSEL,
|
||||
e_rrsel = R_HPPA_RRSEL,
|
||||
e_psel = R_HPPA_PSEL, /* P' : procedure address for shlib's */
|
||||
e_lpsel = R_HPPA_LPSEL, /* LP' : L' for procedure addresses */
|
||||
e_rpsel = R_HPPA_RPSEL, /* RP' : R' for procedure addresses */
|
||||
|
||||
e_tsel = R_HPPA_TSEL, /* T' : DLT-relative offset for shlib's */
|
||||
e_ltsel = R_HPPA_LTSEL, /* LT' : L' for DLT-relative offsets */
|
||||
e_rtsel = R_HPPA_RTSEL /* RT' : R' for DLT-relative offsets */
|
||||
};
|
||||
{
|
||||
e_fsel = R_HPPA_FSEL,
|
||||
e_lssel = R_HPPA_LSSEL,
|
||||
e_rssel = R_HPPA_RSSEL,
|
||||
e_lsel = R_HPPA_LSEL,
|
||||
e_rsel = R_HPPA_RSEL,
|
||||
e_ldsel = R_HPPA_LDSEL,
|
||||
e_rdsel = R_HPPA_RDSEL,
|
||||
e_lrsel = R_HPPA_LRSEL,
|
||||
e_rrsel = R_HPPA_RRSEL,
|
||||
e_psel = R_HPPA_PSEL,
|
||||
e_lpsel = R_HPPA_LPSEL,
|
||||
e_rpsel = R_HPPA_RPSEL,
|
||||
e_tsel = R_HPPA_TSEL,
|
||||
e_ltsel = R_HPPA_LTSEL,
|
||||
e_rtsel = R_HPPA_RTSEL
|
||||
};
|
||||
|
||||
enum hppa_reloc_expr_type
|
||||
{
|
||||
R_HPPA_E_ONE = 0,
|
||||
R_HPPA_E_TWO = 1,
|
||||
R_HPPA_E_PCREL = 2,
|
||||
R_HPPA_E_CON = 3,
|
||||
R_HPPA_E_PLABEL = 7,
|
||||
R_HPPA_E_ABS = 18
|
||||
};
|
||||
{
|
||||
R_HPPA_E_ONE = 0,
|
||||
R_HPPA_E_TWO = 1,
|
||||
R_HPPA_E_PCREL = 2,
|
||||
R_HPPA_E_CON = 3,
|
||||
R_HPPA_E_PLABEL = 7,
|
||||
R_HPPA_E_ABS = 18
|
||||
};
|
||||
|
||||
/* for compatibility */
|
||||
enum hppa_reloc_expr_type_alt
|
||||
{
|
||||
e_one = R_HPPA_E_ONE,
|
||||
e_two = R_HPPA_E_TWO,
|
||||
e_pcrel = R_HPPA_E_PCREL,
|
||||
e_con = R_HPPA_E_CON,
|
||||
e_plabel = R_HPPA_E_PLABEL,
|
||||
e_abs = R_HPPA_E_ABS
|
||||
};
|
||||
{
|
||||
e_one = R_HPPA_E_ONE,
|
||||
e_two = R_HPPA_E_TWO,
|
||||
e_pcrel = R_HPPA_E_PCREL,
|
||||
e_con = R_HPPA_E_CON,
|
||||
e_plabel = R_HPPA_E_PLABEL,
|
||||
e_abs = R_HPPA_E_ABS
|
||||
};
|
||||
|
||||
#endif /* _LIBHPPA_H */
|
||||
|
||||
/* Some functions to manipulate PA instructions. */
|
||||
static INLINE unsigned int
|
||||
assemble_3 (x)
|
||||
unsigned int x;
|
||||
{
|
||||
return (((x & 1) << 2) | ((x & 6) >> 1)) & 7;
|
||||
}
|
||||
|
||||
static INLINE void
|
||||
dis_assemble_3 (x, r)
|
||||
unsigned int x;
|
||||
unsigned int *r;
|
||||
{
|
||||
*r = (((x & 4) >> 2) | ((x & 3) << 1)) & 7;
|
||||
}
|
||||
|
||||
static INLINE unsigned int
|
||||
assemble_12 (x, y)
|
||||
unsigned int x, y;
|
||||
{
|
||||
return (((y & 1) << 11) | ((x & 1) << 10) | ((x & 0x7fe) >> 1)) & 0xfff;
|
||||
}
|
||||
|
||||
static INLINE void
|
||||
dis_assemble_12 (as12, x, y)
|
||||
unsigned int as12;
|
||||
unsigned int *x, *y;
|
||||
{
|
||||
*y = (as12 & 0x800) >> 11;
|
||||
*x = ((as12 & 0x3ff) << 1) | ((as12 & 0x400) >> 10);
|
||||
}
|
||||
|
||||
static INLINE unsigned long
|
||||
assemble_17 (x, y, z)
|
||||
unsigned int x, y, z;
|
||||
{
|
||||
unsigned long temp;
|
||||
|
||||
temp = ((z & 1) << 16) |
|
||||
((x & 0x1f) << 11) |
|
||||
((y & 1) << 10) |
|
||||
((y & 0x7fe) >> 1);
|
||||
return temp & 0x1ffff;
|
||||
}
|
||||
|
||||
static INLINE void
|
||||
dis_assemble_17 (as17, x, y, z)
|
||||
unsigned int as17;
|
||||
unsigned int *x, *y, *z;
|
||||
{
|
||||
|
||||
*z = (as17 & 0x10000) >> 16;
|
||||
*x = (as17 & 0x0f800) >> 11;
|
||||
*y = (((as17 & 0x00400) >> 10) | ((as17 & 0x3ff) << 1)) & 0x7ff;
|
||||
}
|
||||
|
||||
static INLINE unsigned long
|
||||
assemble_21 (x)
|
||||
unsigned int x;
|
||||
{
|
||||
unsigned long temp;
|
||||
|
||||
temp = ((x & 1) << 20) |
|
||||
((x & 0xffe) << 8) |
|
||||
((x & 0xc000) >> 7) |
|
||||
((x & 0x1f0000) >> 14) |
|
||||
((x & 0x003000) >> 12);
|
||||
return temp & 0x1fffff;
|
||||
}
|
||||
|
||||
static INLINE void
|
||||
dis_assemble_21 (as21, x)
|
||||
unsigned int as21, *x;
|
||||
{
|
||||
unsigned long temp;
|
||||
|
||||
|
||||
temp = (as21 & 0x100000) >> 20;
|
||||
temp |= (as21 & 0x0ffe00) >> 8;
|
||||
temp |= (as21 & 0x000180) << 7;
|
||||
temp |= (as21 & 0x00007c) << 14;
|
||||
temp |= (as21 & 0x000003) << 12;
|
||||
*x = temp;
|
||||
}
|
||||
|
||||
static INLINE unsigned long
|
||||
sign_ext (x, len)
|
||||
unsigned int x, len;
|
||||
{
|
||||
return (x << (32 - len)) >> (32 - len);
|
||||
}
|
||||
|
||||
static INLINE unsigned int
|
||||
ones (n)
|
||||
int n;
|
||||
{
|
||||
unsigned int len_ones;
|
||||
int i;
|
||||
|
||||
i = 0;
|
||||
len_ones = 0;
|
||||
while (i < n)
|
||||
{
|
||||
len_ones = (len_ones << 1) | 1;
|
||||
i++;
|
||||
}
|
||||
|
||||
return len_ones;
|
||||
}
|
||||
|
||||
static INLINE void
|
||||
sign_unext (x, len, result)
|
||||
unsigned int x, len;
|
||||
unsigned int *result;
|
||||
{
|
||||
unsigned int len_ones;
|
||||
|
||||
len_ones = ones (len);
|
||||
|
||||
*result = x & len_ones;
|
||||
}
|
||||
|
||||
static INLINE unsigned long
|
||||
low_sign_ext (x, len)
|
||||
unsigned int x, len;
|
||||
{
|
||||
unsigned int temp1, temp2;
|
||||
unsigned int len_ones;
|
||||
|
||||
len_ones = ones (len);
|
||||
|
||||
temp1 = (x & 1) << (len - 1);
|
||||
temp2 = ((x & 0xfffffffe) & len_ones) >> 1;
|
||||
return sign_ext ((temp1 | temp2), len);
|
||||
}
|
||||
|
||||
static INLINE void
|
||||
low_sign_unext (x, len, result)
|
||||
unsigned int x, len;
|
||||
unsigned int *result;
|
||||
{
|
||||
unsigned int temp;
|
||||
unsigned int sign;
|
||||
unsigned int rest;
|
||||
unsigned int one_bit_at_len;
|
||||
unsigned int len_ones;
|
||||
|
||||
len_ones = ones (len);
|
||||
one_bit_at_len = 1 << (len - 1);
|
||||
|
||||
sign_unext (x, len, &temp);
|
||||
sign = temp & one_bit_at_len;
|
||||
sign >>= (len - 1);
|
||||
|
||||
rest = temp & (len_ones ^ one_bit_at_len);
|
||||
rest <<= 1;
|
||||
|
||||
*result = rest | sign;
|
||||
}
|
||||
|
||||
/* Handle field selectors for PA instructions. */
|
||||
|
||||
static INLINE unsigned long
|
||||
hppa_field_adjust (value, constant_value, r_field)
|
||||
unsigned long value;
|
||||
unsigned long constant_value;
|
||||
unsigned short r_field;
|
||||
{
|
||||
unsigned long init_value = value;
|
||||
value += constant_value;
|
||||
switch (r_field)
|
||||
{
|
||||
case e_fsel: /* F : no change */
|
||||
break;
|
||||
|
||||
case e_lssel: /* LS : if (bit 21) then add 0x800
|
||||
arithmetic shift right 11 bits */
|
||||
if (value & 0x00000400)
|
||||
value += 0x800;
|
||||
value = (value & 0xfffff800) >> 11;
|
||||
break;
|
||||
|
||||
case e_rssel: /* RS : Sign extend from bit 21 */
|
||||
if (value & 0x00000400)
|
||||
value |= 0xfffff800;
|
||||
else
|
||||
value &= 0x7ff;
|
||||
break;
|
||||
|
||||
case e_lsel: /* L : Arithmetic shift right 11 bits */
|
||||
value = (value & 0xfffff800) >> 11;
|
||||
break;
|
||||
|
||||
case e_rsel: /* R : Set bits 0-20 to zero */
|
||||
value = value & 0x7ff;
|
||||
break;
|
||||
|
||||
case e_ldsel: /* LD : Add 0x800, arithmetic shift
|
||||
right 11 bits */
|
||||
value += 0x800;
|
||||
value = (value & 0xfffff800) >> 11;
|
||||
break;
|
||||
|
||||
case e_rdsel: /* RD : Set bits 0-20 to one */
|
||||
value |= 0xfffff800;
|
||||
break;
|
||||
|
||||
case e_lrsel: /* LR : L with "rounded" constant */
|
||||
value = value + ((constant_value + 0x1000) & 0xffffe000);
|
||||
value = (value & 0xfffff800) >> 11;
|
||||
break;
|
||||
|
||||
case e_rrsel: /* RR : R with "rounded" constant */
|
||||
value = value + ((constant_value + 0x1000) & 0xffffe000);
|
||||
value = (value & 0x7ff) + constant_value - ((constant_value + 0x1000) & 0xffffe000);
|
||||
break;
|
||||
|
||||
default:
|
||||
abort ();
|
||||
}
|
||||
return value;
|
||||
|
||||
}
|
||||
#endif /* _HPPA_H */
|
||||
|
|
|
|||
|
|
@ -0,0 +1,602 @@
|
|||
/* bfd back-end for HP PA-RISC SOM objects.
|
||||
Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
|
||||
|
||||
Contributed by the Center for Software Science at the
|
||||
University of Utah (pa-gdb-bugs@cs.utah.edu).
|
||||
|
||||
This file is part of BFD, the Binary File Descriptor library.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
|
||||
#include "bfd.h"
|
||||
#include "sysdep.h"
|
||||
|
||||
/* @@FIXME This is not a reasonable set of conditions to permit
|
||||
cross-compilation, obviously. It also isn't enough to support hppa-elf
|
||||
targets either. Can we eliminate the HPUX or BSD dependencies, or
|
||||
at least get the conditionals more localized? */
|
||||
#if defined (HOST_HPPAHPUX) || defined (HOST_HPPABSD)
|
||||
|
||||
#include "libbfd.h"
|
||||
#include "som.h"
|
||||
|
||||
#include <stdio.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/param.h>
|
||||
#include <sys/dir.h>
|
||||
#include <signal.h>
|
||||
#include <machine/reg.h>
|
||||
#include <sys/user.h> /* After a.out.h */
|
||||
#include <sys/file.h>
|
||||
#include <errno.h>
|
||||
|
||||
/* Magic not defined in standard HP-UX header files until 8.0 */
|
||||
|
||||
#ifndef CPU_PA_RISC1_0
|
||||
#define CPU_PA_RISC1_0 0x20B
|
||||
#endif /* CPU_PA_RISC1_0 */
|
||||
|
||||
#ifndef CPU_PA_RISC1_1
|
||||
#define CPU_PA_RISC1_1 0x210
|
||||
#endif /* CPU_PA_RISC1_1 */
|
||||
|
||||
#ifndef _PA_RISC1_0_ID
|
||||
#define _PA_RISC1_0_ID CPU_PA_RISC1_0
|
||||
#endif /* _PA_RISC1_0_ID */
|
||||
|
||||
#ifndef _PA_RISC1_1_ID
|
||||
#define _PA_RISC1_1_ID CPU_PA_RISC1_1
|
||||
#endif /* _PA_RISC1_1_ID */
|
||||
|
||||
#ifndef _PA_RISC_MAXID
|
||||
#define _PA_RISC_MAXID 0x2FF
|
||||
#endif /* _PA_RISC_MAXID */
|
||||
|
||||
#ifndef _PA_RISC_ID
|
||||
#define _PA_RISC_ID(__m_num) \
|
||||
(((__m_num) == _PA_RISC1_0_ID) || \
|
||||
((__m_num) >= _PA_RISC1_1_ID && (__m_num) <= _PA_RISC_MAXID))
|
||||
#endif /* _PA_RISC_ID */
|
||||
|
||||
struct container
|
||||
{
|
||||
struct header f;
|
||||
struct som_exec_auxhdr e;
|
||||
};
|
||||
|
||||
static bfd_target *
|
||||
hppa_object_setup (abfd, file_hdrp, aux_hdrp)
|
||||
bfd *abfd;
|
||||
struct header *file_hdrp;
|
||||
struct som_exec_auxhdr *aux_hdrp;
|
||||
{
|
||||
struct container *rawptr;
|
||||
struct header *f;
|
||||
struct hppa_data_struct *rawptr1;
|
||||
asection *text, *data, *bss;
|
||||
|
||||
rawptr = (struct container *) bfd_zalloc (abfd, sizeof (struct container));
|
||||
if (rawptr == NULL)
|
||||
{
|
||||
bfd_error = no_memory;
|
||||
return 0;
|
||||
}
|
||||
|
||||
rawptr1 = (struct hppa_data_struct *) bfd_zalloc (abfd, sizeof (struct hppa_data_struct));
|
||||
if (rawptr1 == NULL)
|
||||
{
|
||||
bfd_error = no_memory;
|
||||
return 0;
|
||||
}
|
||||
|
||||
abfd->tdata.hppa_data = rawptr1;
|
||||
obj_file_hdr (abfd) = &rawptr->f;
|
||||
obj_aux_hdr (abfd) = &rawptr->e;
|
||||
*obj_file_hdr (abfd) = *file_hdrp;
|
||||
*obj_aux_hdr (abfd) = *aux_hdrp;
|
||||
|
||||
/* Set the file flags */
|
||||
abfd->flags = NO_FLAGS;
|
||||
if (file_hdrp->entry_offset)
|
||||
abfd->flags |= HAS_RELOC;
|
||||
if (file_hdrp->symbol_total)
|
||||
abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS;
|
||||
|
||||
bfd_get_start_address (abfd) = aux_hdrp->exec_entry;
|
||||
|
||||
obj_pa_symbols (abfd) = (hppa_symbol_type *) NULL;
|
||||
bfd_get_symcount (abfd) = file_hdrp->symbol_total;
|
||||
|
||||
bfd_default_set_arch_mach (abfd, bfd_arch_hppa, 0);
|
||||
|
||||
/* create the sections. This is raunchy, but bfd_close wants to reclaim
|
||||
them */
|
||||
|
||||
text = bfd_make_section (abfd, ".text");
|
||||
data = bfd_make_section (abfd, ".data");
|
||||
bss = bfd_make_section (abfd, ".bss");
|
||||
|
||||
text->_raw_size = aux_hdrp->exec_tsize;
|
||||
data->_raw_size = aux_hdrp->exec_dsize;
|
||||
bss->_raw_size = aux_hdrp->exec_bsize;
|
||||
|
||||
text->flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS);
|
||||
data->flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS);
|
||||
bss->flags = (SEC_ALLOC | SEC_IS_COMMON);
|
||||
|
||||
/* The virtual memory addresses of the sections */
|
||||
text->vma = aux_hdrp->exec_tmem;
|
||||
data->vma = aux_hdrp->exec_dmem;
|
||||
bss->vma = aux_hdrp->exec_bfill;
|
||||
|
||||
/* The file offsets of the sections */
|
||||
text->filepos = aux_hdrp->exec_tfile;
|
||||
data->filepos = aux_hdrp->exec_dfile;
|
||||
|
||||
/* The file offsets of the relocation info */
|
||||
text->rel_filepos = 0;
|
||||
data->rel_filepos = 0;
|
||||
|
||||
/* The file offsets of the string table and symbol table. */
|
||||
obj_sym_filepos (abfd) = file_hdrp->symbol_location;
|
||||
bfd_get_symcount (abfd) = file_hdrp->symbol_total;
|
||||
obj_str_filepos (abfd) = file_hdrp->symbol_strings_location;
|
||||
obj_stringtab_size (abfd) = file_hdrp->symbol_strings_size;
|
||||
|
||||
return abfd->xvec;
|
||||
}
|
||||
|
||||
/* Create a new BFD section for NAME. If NAME already exists, then create a
|
||||
new unique name, with NAME as the prefix. This exists because SOM .o files
|
||||
created by the native compiler can have a $CODE$ section for each
|
||||
subroutine.
|
||||
*/
|
||||
|
||||
static asection *
|
||||
make_unique_section (abfd, name, num)
|
||||
bfd *abfd;
|
||||
CONST char *name;
|
||||
int num;
|
||||
{
|
||||
asection *sect;
|
||||
char *newname;
|
||||
char altname[100];
|
||||
|
||||
sect = bfd_make_section (abfd, name);
|
||||
while (!sect)
|
||||
{
|
||||
sprintf (altname, "%s-%d", name, num++);
|
||||
sect = bfd_make_section (abfd, altname);
|
||||
}
|
||||
|
||||
newname = bfd_alloc (abfd, strlen (sect->name) + 1);
|
||||
strcpy (newname, sect->name);
|
||||
|
||||
sect->name = newname;
|
||||
return sect;
|
||||
}
|
||||
|
||||
/* Convert all of the space and subspace info into BFD sections. Each space
|
||||
contains a number of subspaces, which in turn describe the mapping between
|
||||
regions of the exec file, and the address space that the program runs in.
|
||||
BFD sections which correspond to spaces will overlap the sections for the
|
||||
associated subspaces. */
|
||||
|
||||
static int
|
||||
setup_sections (abfd, file_hdr)
|
||||
bfd *abfd;
|
||||
struct header *file_hdr;
|
||||
{
|
||||
char *space_strings;
|
||||
int space_index;
|
||||
|
||||
/* First, read in space names */
|
||||
|
||||
space_strings = alloca (file_hdr->space_strings_size);
|
||||
if (!space_strings)
|
||||
return 0;
|
||||
|
||||
if (bfd_seek (abfd, file_hdr->space_strings_location, SEEK_SET) < 0)
|
||||
return 0;
|
||||
if (bfd_read (space_strings, 1, file_hdr->space_strings_size, abfd)
|
||||
!= file_hdr->space_strings_size)
|
||||
return 0;
|
||||
|
||||
/* Loop over all of the space dictionaries, building up sections */
|
||||
|
||||
for (space_index = 0; space_index < file_hdr->space_total; space_index++)
|
||||
{
|
||||
struct space_dictionary_record space;
|
||||
struct subspace_dictionary_record subspace;
|
||||
int subspace_index, tmp;
|
||||
asection *space_asect;
|
||||
|
||||
/* Read the space dictionary element */
|
||||
if (bfd_seek (abfd, file_hdr->space_location
|
||||
+ space_index * sizeof space, SEEK_SET) < 0)
|
||||
return 0;
|
||||
if (bfd_read (&space, 1, sizeof space, abfd) != sizeof space)
|
||||
return 0;
|
||||
|
||||
/* Setup the space name string */
|
||||
space.name.n_name = space.name.n_strx + space_strings;
|
||||
|
||||
/* Make a section out of it */
|
||||
space_asect = make_unique_section (abfd, space.name.n_name, space_index);
|
||||
if (!space_asect)
|
||||
return 0;
|
||||
|
||||
/* Now, read in the first subspace for this space */
|
||||
if (bfd_seek (abfd, file_hdr->subspace_location
|
||||
+ space.subspace_index * sizeof subspace,
|
||||
SEEK_SET) < 0)
|
||||
return 0;
|
||||
if (bfd_read (&subspace, 1, sizeof subspace, abfd) != sizeof subspace)
|
||||
return 0;
|
||||
/* Seek back to the start of the subspaces for loop below */
|
||||
if (bfd_seek (abfd, file_hdr->subspace_location
|
||||
+ space.subspace_index * sizeof subspace,
|
||||
SEEK_SET) < 0)
|
||||
return 0;
|
||||
|
||||
/* Setup the section flags as appropriate (this is somewhat bogus, as
|
||||
there isn't a clear mapping between what's in the space record, and
|
||||
what BFD can describe here). */
|
||||
if (space.is_loadable)
|
||||
space_asect->flags |= SEC_ALLOC;
|
||||
if (space.is_defined)
|
||||
space_asect->flags |= SEC_LOAD;
|
||||
|
||||
/* Setup the start address and file loc from the first subspace record */
|
||||
space_asect->vma = subspace.subspace_start;
|
||||
space_asect->filepos = subspace.file_loc_init_value;
|
||||
space_asect->alignment_power = subspace.alignment;
|
||||
|
||||
/* Loop over the rest of the subspaces, building up more sections */
|
||||
for (subspace_index = 0; subspace_index < space.subspace_quantity;
|
||||
subspace_index++)
|
||||
{
|
||||
asection *subspace_asect;
|
||||
|
||||
/* Read in the next subspace */
|
||||
if (bfd_read (&subspace, 1, sizeof subspace, abfd)
|
||||
!= sizeof subspace)
|
||||
return 0;
|
||||
|
||||
/* Setup the subspace name string */
|
||||
subspace.name.n_name = subspace.name.n_strx + space_strings;
|
||||
|
||||
/* Make a section out of this subspace */
|
||||
subspace_asect = make_unique_section (abfd, subspace.name.n_name,
|
||||
space.subspace_index + subspace_index);
|
||||
|
||||
if (!subspace_asect)
|
||||
return 0;
|
||||
|
||||
if (subspace.is_loadable)
|
||||
subspace_asect->flags |= SEC_ALLOC | SEC_LOAD;
|
||||
if (subspace.code_only)
|
||||
subspace_asect->flags |= SEC_CODE;
|
||||
|
||||
subspace_asect->vma = subspace.subspace_start;
|
||||
subspace_asect->_cooked_size = subspace.subspace_length;
|
||||
subspace_asect->_raw_size = subspace.initialization_length;
|
||||
subspace_asect->alignment_power = subspace.alignment;
|
||||
subspace_asect->filepos = subspace.file_loc_init_value;
|
||||
|
||||
}
|
||||
/* Setup the sizes for the space section based upon the info in the
|
||||
last subspace of the space. */
|
||||
space_asect->_cooked_size = (subspace.subspace_start - space_asect->vma)
|
||||
+ subspace.subspace_length;
|
||||
space_asect->_raw_size = (subspace.file_loc_init_value
|
||||
- space_asect->filepos)
|
||||
+ subspace.initialization_length;
|
||||
}
|
||||
}
|
||||
|
||||
static bfd_target *
|
||||
hppa_object_p (abfd)
|
||||
bfd *abfd;
|
||||
{
|
||||
struct header file_hdr;
|
||||
struct som_exec_auxhdr aux_hdr;
|
||||
|
||||
if (bfd_read ((PTR) & file_hdr, 1, FILE_HDR_SIZE, abfd) != FILE_HDR_SIZE)
|
||||
return 0;
|
||||
|
||||
if (!_PA_RISC_ID (file_hdr.system_id))
|
||||
{
|
||||
bfd_error = wrong_format;
|
||||
return 0;
|
||||
}
|
||||
|
||||
switch (file_hdr.a_magic)
|
||||
{
|
||||
case RELOC_MAGIC: /* I'm not really sure about all of these types... */
|
||||
case EXEC_MAGIC:
|
||||
case SHARE_MAGIC:
|
||||
case DEMAND_MAGIC:
|
||||
#ifdef DL_MAGIC
|
||||
case DL_MAGIC:
|
||||
#endif
|
||||
#ifdef SHL_MAGIC
|
||||
case SHL_MAGIC:
|
||||
#endif
|
||||
break;
|
||||
default:
|
||||
bfd_error = wrong_format;
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (file_hdr.version_id != VERSION_ID
|
||||
&& file_hdr.version_id != NEW_VERSION_ID)
|
||||
{
|
||||
bfd_error = wrong_format;
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (bfd_read ((PTR) & aux_hdr, 1, AUX_HDR_SIZE, abfd) != AUX_HDR_SIZE)
|
||||
bfd_error = wrong_format;
|
||||
|
||||
if (!setup_sections (abfd, &file_hdr))
|
||||
return 0;
|
||||
|
||||
return hppa_object_setup (abfd, &file_hdr, &aux_hdr);
|
||||
}
|
||||
|
||||
static boolean
|
||||
hppa_mkobject (abfd)
|
||||
bfd *abfd;
|
||||
{
|
||||
fprintf (stderr, "hppa_mkobject unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
return (false);
|
||||
}
|
||||
|
||||
boolean
|
||||
hppa_write_object_contents(abfd)
|
||||
bfd *abfd;
|
||||
{
|
||||
fprintf (stderr, "hppa_write_object_contents unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
return (false);
|
||||
}
|
||||
|
||||
static unsigned int
|
||||
hppa_get_symtab_upper_bound (abfd)
|
||||
bfd *abfd;
|
||||
{
|
||||
fprintf (stderr, "hppa_get_symtab_upper_bound unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
return (0);
|
||||
}
|
||||
|
||||
static unsigned int
|
||||
hppa_get_reloc_upper_bound (abfd, asect)
|
||||
bfd *abfd;
|
||||
sec_ptr asect;
|
||||
{
|
||||
fprintf (stderr, "hppa_get_reloc_upper_bound unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
return (0);
|
||||
}
|
||||
|
||||
static unsigned int
|
||||
hppa_canonicalize_reloc (abfd, section, relptr, symbols)
|
||||
bfd *abfd;
|
||||
sec_ptr section;
|
||||
arelent **relptr;
|
||||
asymbol **symbols;
|
||||
{
|
||||
fprintf (stderr, "hppa_canonicalize_reloc unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
}
|
||||
|
||||
extern bfd_target hppa_vec;
|
||||
|
||||
static unsigned int
|
||||
hppa_get_symtab (abfd, location)
|
||||
bfd *abfd;
|
||||
asymbol **location;
|
||||
{
|
||||
fprintf (stderr, "hppa_get_symtab unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
return (0);
|
||||
}
|
||||
|
||||
static asymbol *
|
||||
hppa_make_empty_symbol (abfd)
|
||||
bfd *abfd;
|
||||
{
|
||||
hppa_symbol_type *new =
|
||||
(hppa_symbol_type *) bfd_zalloc (abfd, sizeof (hppa_symbol_type));
|
||||
new->symbol.the_bfd = abfd;
|
||||
|
||||
return &new->symbol;
|
||||
}
|
||||
|
||||
static void
|
||||
hppa_print_symbol (ignore_abfd, afile, symbol, how)
|
||||
bfd *ignore_abfd;
|
||||
PTR afile;
|
||||
asymbol *symbol;
|
||||
bfd_print_symbol_type how;
|
||||
{
|
||||
fprintf (stderr, "hppa_print_symbol unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
}
|
||||
|
||||
static boolean
|
||||
hppa_new_section_hook (abfd, newsect)
|
||||
bfd *abfd;
|
||||
asection *newsect;
|
||||
{
|
||||
newsect->alignment_power = 3;
|
||||
|
||||
/* We allow more than three sections internally */
|
||||
return true;
|
||||
}
|
||||
|
||||
static boolean
|
||||
hppa_set_section_contents (abfd, section, location, offset, count)
|
||||
bfd *abfd;
|
||||
sec_ptr section;
|
||||
PTR location;
|
||||
file_ptr offset;
|
||||
bfd_size_type count;
|
||||
{
|
||||
fprintf (stderr, "hppa_set_section_contents unimplimented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
return false;
|
||||
}
|
||||
|
||||
static boolean
|
||||
hppa_set_arch_mach (abfd, arch, machine)
|
||||
bfd *abfd;
|
||||
enum bfd_architecture arch;
|
||||
unsigned long machine;
|
||||
{
|
||||
fprintf (stderr, "hppa_set_arch_mach unimplemented\n");
|
||||
fflush (stderr);
|
||||
/* Allow any architecture to be supported by the hppa backend */
|
||||
return bfd_default_set_arch_mach (abfd, arch, machine);
|
||||
}
|
||||
|
||||
static boolean
|
||||
hppa_find_nearest_line (abfd, section, symbols, offset, filename_ptr,
|
||||
functionname_ptr, line_ptr)
|
||||
bfd *abfd;
|
||||
asection *section;
|
||||
asymbol **symbols;
|
||||
bfd_vma offset;
|
||||
CONST char **filename_ptr;
|
||||
CONST char **functionname_ptr;
|
||||
unsigned int *line_ptr;
|
||||
{
|
||||
fprintf (stderr, "hppa_find_nearest_line unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
return (false);
|
||||
}
|
||||
|
||||
static int
|
||||
hppa_sizeof_headers (abfd, reloc)
|
||||
bfd *abfd;
|
||||
boolean reloc;
|
||||
{
|
||||
fprintf (stderr, "hppa_sizeof_headers unimplemented\n");
|
||||
fflush (stderr);
|
||||
abort ();
|
||||
return (0);
|
||||
}
|
||||
|
||||
/* Return information about SOM symbol SYMBOL in RET. */
|
||||
|
||||
static void
|
||||
hppa_get_symbol_info (ignore_abfd, symbol, ret)
|
||||
bfd *ignore_abfd; /* Ignored. */
|
||||
asymbol *symbol;
|
||||
symbol_info *ret;
|
||||
{
|
||||
bfd_symbol_info (symbol, ret);
|
||||
}
|
||||
|
||||
/* End of miscellaneous support functions. */
|
||||
|
||||
#define hppa_bfd_debug_info_start bfd_void
|
||||
#define hppa_bfd_debug_info_end bfd_void
|
||||
#define hppa_bfd_debug_info_accumulate (PROTO(void,(*),(bfd*, struct sec *))) bfd_void
|
||||
|
||||
#define hppa_openr_next_archived_file bfd_generic_openr_next_archived_file
|
||||
#define hppa_generic_stat_arch_elt bfd_generic_stat_arch_elt
|
||||
#define hppa_slurp_armap bfd_false
|
||||
#define hppa_slurp_extended_name_table _bfd_slurp_extended_name_table
|
||||
#define hppa_truncate_arname (void (*)())bfd_nullvoidptr
|
||||
#define hppa_write_armap 0
|
||||
|
||||
#define hppa_get_lineno (struct lineno_cache_entry *(*)())bfd_nullvoidptr
|
||||
#define hppa_close_and_cleanup bfd_generic_close_and_cleanup
|
||||
#define hppa_get_section_contents bfd_generic_get_section_contents
|
||||
|
||||
#define hppa_bfd_get_relocated_section_contents \
|
||||
bfd_generic_get_relocated_section_contents
|
||||
#define hppa_bfd_relax_section bfd_generic_relax_section
|
||||
#define hppa_bfd_seclet_link bfd_generic_seclet_link
|
||||
#define hppa_bfd_reloc_type_lookup \
|
||||
((CONST struct reloc_howto_struct *(*) PARAMS ((bfd *, bfd_reloc_code_real_type))) bfd_nullvoidptr)
|
||||
#define hppa_bfd_make_debug_symbol \
|
||||
((asymbol *(*) PARAMS ((bfd *, void *, unsigned long))) bfd_nullvoidptr)
|
||||
|
||||
/* Core file support is in the hpux-core backend. */
|
||||
#define hppa_core_file_failing_command _bfd_dummy_core_file_failing_command
|
||||
#define hppa_core_file_failing_signal _bfd_dummy_core_file_failing_signal
|
||||
#define hppa_core_file_matches_executable_p _bfd_dummy_core_file_matches_executable_p
|
||||
|
||||
bfd_target hppa_vec =
|
||||
{
|
||||
"hppa", /* name */
|
||||
bfd_target_hppa_flavour,
|
||||
true, /* target byte order */
|
||||
true, /* target headers byte order */
|
||||
(HAS_RELOC | EXEC_P | /* object flags */
|
||||
HAS_LINENO | HAS_DEBUG |
|
||||
HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
|
||||
(SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS
|
||||
| SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
|
||||
|
||||
/* leading_symbol_char: is the first char of a user symbol
|
||||
predictable, and if so what is it */
|
||||
0,
|
||||
' ', /* ar_pad_char */
|
||||
16, /* ar_max_namelen */
|
||||
3, /* minimum alignment */
|
||||
_do_getb64, _do_getb_signed_64, _do_putb64,
|
||||
_do_getb32, _do_getb_signed_32, _do_putb32,
|
||||
_do_getb16, _do_getb_signed_16, _do_putb16, /* data */
|
||||
_do_getb64, _do_getb_signed_64, _do_putb64,
|
||||
_do_getb32, _do_getb_signed_32, _do_putb32,
|
||||
_do_getb16, _do_getb_signed_16, _do_putb16, /* hdrs */
|
||||
{_bfd_dummy_target,
|
||||
hppa_object_p, /* bfd_check_format */
|
||||
bfd_generic_archive_p,
|
||||
_bfd_dummy_target
|
||||
},
|
||||
{
|
||||
bfd_false,
|
||||
hppa_mkobject,
|
||||
_bfd_generic_mkarchive,
|
||||
bfd_false
|
||||
},
|
||||
{
|
||||
bfd_false,
|
||||
hppa_write_object_contents,
|
||||
_bfd_write_archive_contents,
|
||||
bfd_false,
|
||||
},
|
||||
#undef hppa
|
||||
JUMP_TABLE (hppa),
|
||||
(PTR) 0
|
||||
};
|
||||
|
||||
#endif /* HOST_HPPAHPUX || HOST_HPPABSD */
|
||||
Loading…
Reference in New Issue