darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

More patches from Jeff Law, plus a little cleanup of my own.

Browse source 
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 1993-08-28 00:10:54 +00:00
parent 78e1e6d95a
commit d9ad93bce5
5 changed files with 1880 additions and 582 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
bfd/configure.in
View file

@ -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
View file

File diff suppressed because it is too large Load diff

52
bfd/elf32-hppa.h
View file

@ -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
View file

@ -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 */

602
bfd/som.c Normal file
View file

@ -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 */