Steve Chamberlain
34 years ago
5 changed files with 423 additions and 0 deletions
@ -0,0 +1,208 @@ |
|||
/* BFD library support routines for the H8/500 architecture.
|
|||
Copyright (C) 1993 Free Software Foundation, Inc. |
|||
Hacked by Steve Chamberlain of Cygnus Support. |
|||
|
|||
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" |
|||
#include "libbfd.h" |
|||
|
|||
#if 0 |
|||
|
|||
/*
|
|||
Relocations for the Z8K |
|||
|
|||
*/ |
|||
static bfd_reloc_status_type |
|||
DEFUN(howto16_callback,(abfd, reloc_entry, symbol_in, data, |
|||
ignore_input_section, ignore_bfd), |
|||
bfd *abfd AND |
|||
arelent *reloc_entry AND |
|||
struct symbol_cache_entry *symbol_in AND |
|||
PTR data AND |
|||
asection *ignore_input_section AND |
|||
bfd *ignore_bfd) |
|||
{ |
|||
long relocation = 0; |
|||
bfd_vma addr = reloc_entry->address; |
|||
long x = bfd_get_16(abfd, (bfd_byte *)data + addr); |
|||
|
|||
HOWTO_PREPARE(relocation, symbol_in); |
|||
|
|||
x = (x + relocation + reloc_entry->addend); |
|||
|
|||
bfd_put_16(abfd, x, (bfd_byte *)data + addr); |
|||
return bfd_reloc_ok; |
|||
} |
|||
|
|||
|
|||
static bfd_reloc_status_type |
|||
DEFUN(howto8_callback,(abfd, reloc_entry, symbol_in, data, |
|||
ignore_input_section, ignore_bfd), |
|||
bfd *abfd AND |
|||
arelent *reloc_entry AND |
|||
struct symbol_cache_entry *symbol_in AND |
|||
PTR data AND |
|||
asection *ignore_input_section AND |
|||
bfd *ignore_bfd) |
|||
{ |
|||
long relocation = 0; |
|||
bfd_vma addr = reloc_entry->address; |
|||
long x = bfd_get_8(abfd, (bfd_byte *)data + addr); |
|||
|
|||
HOWTO_PREPARE(relocation, symbol_in); |
|||
|
|||
x = (x + relocation + reloc_entry->addend); |
|||
|
|||
bfd_put_8(abfd, x, (bfd_byte *)data + addr); |
|||
return bfd_reloc_ok; |
|||
} |
|||
|
|||
|
|||
static bfd_reloc_status_type |
|||
DEFUN(howto8_FFnn_callback,(abfd, reloc_entry, symbol_in, data, |
|||
ignore_input_section, ignore_bfd), |
|||
bfd *abfd AND |
|||
arelent *reloc_entry AND |
|||
struct symbol_cache_entry *symbol_in AND |
|||
PTR data AND |
|||
asection *ignore_input_section AND |
|||
bfd *ignore_bfd) |
|||
{ |
|||
long relocation = 0; |
|||
bfd_vma addr = reloc_entry->address; |
|||
|
|||
long x = bfd_get_8(abfd, (bfd_byte *)data + addr); |
|||
abort(); |
|||
HOWTO_PREPARE(relocation, symbol_in); |
|||
|
|||
x = (x + relocation + reloc_entry->addend); |
|||
|
|||
bfd_put_8(abfd, x, (bfd_byte *)data + addr); |
|||
return bfd_reloc_ok; |
|||
} |
|||
|
|||
static bfd_reloc_status_type |
|||
DEFUN(howto8_pcrel_callback,(abfd, reloc_entry, symbol_in, data, |
|||
ignore_input_section, ignore_bfd), |
|||
bfd *abfd AND |
|||
arelent *reloc_entry AND |
|||
struct symbol_cache_entry *symbol_in AND |
|||
PTR data AND |
|||
asection *ignore_input_section AND |
|||
bfd *ignore_bfd) |
|||
{ |
|||
long relocation = 0; |
|||
bfd_vma addr = reloc_entry->address; |
|||
long x = bfd_get_8(abfd, (bfd_byte *)data + addr); |
|||
abort(); |
|||
HOWTO_PREPARE(relocation, symbol_in); |
|||
|
|||
x = (x + relocation + reloc_entry->addend); |
|||
|
|||
bfd_put_8(abfd, x, (bfd_byte *)data + addr); |
|||
return bfd_reloc_ok; |
|||
} |
|||
|
|||
|
|||
|
|||
static reloc_howto_type howto_16 |
|||
= NEWHOWTO(howto16_callback,"abs16",1,false,false); |
|||
static reloc_howto_type howto_8 |
|||
= NEWHOWTO(howto8_callback,"abs8",0,false,false); |
|||
|
|||
static reloc_howto_type howto_8_FFnn |
|||
= NEWHOWTO(howto8_FFnn_callback,"ff00+abs8",0,false,false); |
|||
|
|||
static reloc_howto_type howto_8_pcrel |
|||
= NEWHOWTO(howto8_pcrel_callback,"pcrel8",0,false,true); |
|||
|
|||
|
|||
static CONST struct reloc_howto_struct * |
|||
DEFUN(local_bfd_reloc_type_lookup,(arch, code), |
|||
CONST struct bfd_arch_info *arch AND |
|||
bfd_reloc_code_real_type code) |
|||
{ |
|||
switch (code) { |
|||
case BFD_RELOC_16: |
|||
return &howto_16; |
|||
case BFD_RELOC_8_FFnn: |
|||
return &howto_8_FFnn; |
|||
case BFD_RELOC_8: |
|||
return &howto_8; |
|||
case BFD_RELOC_8_PCREL: |
|||
return &howto_8_pcrel; |
|||
} |
|||
return (reloc_howto_type *)NULL; |
|||
} |
|||
#endif |
|||
|
|||
int bfd_default_scan_num_mach(); |
|||
|
|||
static boolean |
|||
DEFUN(scan_mach,(info, string), |
|||
CONST struct bfd_arch_info *info AND |
|||
CONST char *string) |
|||
{ |
|||
if (strcmp(string,"h8/500") == 0) return true; |
|||
if (strcmp(string,"H8/500") == 0) return true; |
|||
if (strcmp(string,"h8500") == 0) return true; |
|||
if (strcmp(string,"H8500") == 0) return true; |
|||
} |
|||
|
|||
|
|||
/* This routine is provided two arch_infos and returns whether
|
|||
they'd be compatible */ |
|||
|
|||
static CONST bfd_arch_info_type * |
|||
DEFUN(compatible,(a,b), |
|||
CONST bfd_arch_info_type *a AND |
|||
CONST bfd_arch_info_type *b) |
|||
{ |
|||
if (a->arch != b->arch || a->mach != b->mach) |
|||
return NULL; |
|||
return a; |
|||
} |
|||
|
|||
|
|||
static bfd_arch_info_type arch_info_struct[] = |
|||
{ |
|||
16, /* 16 bits in a word */ |
|||
24, /* 24 bits in an address */ |
|||
8, /* 8 bits in a byte */ |
|||
bfd_arch_h8500, |
|||
0, /* only 1 machine */ |
|||
"H8/500", /* arch_name */ |
|||
"H8/500", /* printable name */ |
|||
1, |
|||
true, /* the default machine */ |
|||
bfd_default_compatible, |
|||
scan_mach, |
|||
0, |
|||
0, |
|||
}; |
|||
|
|||
|
|||
|
|||
void |
|||
DEFUN_VOID(bfd_h8500_arch) |
|||
{ |
|||
bfd_arch_linkin(&arch_info_struct[0]); |
|||
} |
|||
|
|||
|
|||
@ -0,0 +1,206 @@ |
|||
/*** coff information for Hitachi H8/500 */ |
|||
|
|||
/********************** FILE HEADER **********************/ |
|||
|
|||
struct external_filehdr { |
|||
char f_magic[2]; /* magic number */ |
|||
char f_nscns[2]; /* number of sections */ |
|||
char f_timdat[4]; /* time & date stamp */ |
|||
char f_symptr[4]; /* file pointer to symtab */ |
|||
char f_nsyms[4]; /* number of symtab entries */ |
|||
char f_opthdr[2]; /* sizeof(optional hdr) */ |
|||
char f_flags[2]; /* flags */ |
|||
}; |
|||
|
|||
|
|||
|
|||
#define H8500MAGIC 0x8500 |
|||
|
|||
|
|||
#define H8500BADMAG(x) (((x).f_magic!=H8500MAGIC)) |
|||
|
|||
#define FILHDR struct external_filehdr |
|||
#define FILHSZ sizeof(FILHDR) |
|||
|
|||
|
|||
/********************** AOUT "OPTIONAL HEADER" **********************/ |
|||
|
|||
|
|||
typedef struct |
|||
{ |
|||
char magic[2]; /* type of file */ |
|||
char vstamp[2]; /* version stamp */ |
|||
char tsize[4]; /* text size in bytes, padded to FW bdry*/ |
|||
char dsize[4]; /* initialized data " " */ |
|||
char bsize[4]; /* uninitialized data " " */ |
|||
char entry[4]; /* entry pt. */ |
|||
char text_start[4]; /* base of text used for this file */ |
|||
char data_start[4]; /* base of data used for this file */ |
|||
} |
|||
AOUTHDR; |
|||
|
|||
|
|||
#define AOUTHDRSZ (sizeof(AOUTHDR)) |
|||
#define AOUTSZ (sizeof(AOUTHDR)) |
|||
|
|||
|
|||
|
|||
|
|||
/********************** SECTION HEADER **********************/ |
|||
|
|||
|
|||
struct external_scnhdr { |
|||
char s_name[8]; /* section name */ |
|||
char s_paddr[4]; /* physical address, aliased s_nlib */ |
|||
char s_vaddr[4]; /* virtual address */ |
|||
char s_size[4]; /* section size */ |
|||
char s_scnptr[4]; /* file ptr to raw data for section */ |
|||
char s_relptr[4]; /* file ptr to relocation */ |
|||
char s_lnnoptr[4]; /* file ptr to line numbers */ |
|||
char s_nreloc[2]; /* number of relocation entries */ |
|||
char s_nlnno[2]; /* number of line number entries*/ |
|||
char s_flags[4]; /* flags */ |
|||
}; |
|||
|
|||
/*
|
|||
* names of "special" sections |
|||
*/ |
|||
#define _TEXT ".text" |
|||
#define _DATA ".data" |
|||
#define _BSS ".bss" |
|||
|
|||
|
|||
#define SCNHDR struct external_scnhdr |
|||
#define SCNHSZ sizeof(SCNHDR) |
|||
|
|||
|
|||
/********************** LINE NUMBERS **********************/ |
|||
|
|||
/* 1 line number entry for every "breakpointable" source line in a section.
|
|||
* Line numbers are grouped on a per function basis; first entry in a function |
|||
* grouping will have l_lnno = 0 and in place of physical address will be the |
|||
* symbol table index of the function name. |
|||
*/ |
|||
struct external_lineno { |
|||
union { |
|||
char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ |
|||
char l_paddr[4]; /* (physical) address of line number */ |
|||
} l_addr; |
|||
char l_lnno[4]; /* line number */ |
|||
}; |
|||
|
|||
#define GET_LINENO_LNNO(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) (ext->l_lnno)); |
|||
#define PUT_LINENO_LNNO(abfd,val, ext) bfd_h_put_32(abfd,val, (bfd_byte *) (ext->l_lnno)); |
|||
|
|||
#define LINENO struct external_lineno |
|||
#define LINESZ sizeof(LINENO) |
|||
|
|||
|
|||
/********************** SYMBOLS **********************/ |
|||
|
|||
#define E_SYMNMLEN 8 /* # characters in a symbol name */ |
|||
#define E_FILNMLEN 14 /* # characters in a file name */ |
|||
#define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ |
|||
|
|||
struct external_syment |
|||
{ |
|||
union { |
|||
char e_name[E_SYMNMLEN]; |
|||
struct { |
|||
char e_zeroes[4]; |
|||
char e_offset[4]; |
|||
} e; |
|||
} e; |
|||
char e_value[4]; |
|||
char e_scnum[2]; |
|||
char e_type[2]; |
|||
char e_sclass[1]; |
|||
char e_numaux[1]; |
|||
}; |
|||
|
|||
|
|||
|
|||
#define N_BTMASK (017) |
|||
#define N_TMASK (060) |
|||
#define N_BTSHFT (4) |
|||
#define N_TSHIFT (2) |
|||
|
|||
|
|||
union external_auxent { |
|||
struct { |
|||
char x_tagndx[4]; /* str, un, or enum tag indx */ |
|||
union { |
|||
struct { |
|||
char x_lnno[2]; /* declaration line number */ |
|||
char x_size[2]; /* str/union/array size */ |
|||
} x_lnsz; |
|||
char x_fsize[4]; /* size of function */ |
|||
} x_misc; |
|||
union { |
|||
struct { /* if ISFCN, tag, or .bb */ |
|||
char x_lnnoptr[4]; /* ptr to fcn line # */ |
|||
char x_endndx[4]; /* entry ndx past block end */ |
|||
} x_fcn; |
|||
struct { /* if ISARY, up to 4 dimen. */ |
|||
char x_dimen[E_DIMNUM][2]; |
|||
} x_ary; |
|||
} x_fcnary; |
|||
char x_tvndx[2]; /* tv index */ |
|||
} x_sym; |
|||
|
|||
union { |
|||
char x_fname[E_FILNMLEN]; |
|||
struct { |
|||
char x_zeroes[4]; |
|||
char x_offset[4]; |
|||
} x_n; |
|||
} x_file; |
|||
|
|||
struct { |
|||
char x_scnlen[4]; /* section length */ |
|||
char x_nreloc[2]; /* # relocation entries */ |
|||
char x_nlinno[2]; /* # line numbers */ |
|||
} x_scn; |
|||
|
|||
struct { |
|||
char x_tvfill[4]; /* tv fill value */ |
|||
char x_tvlen[2]; /* length of .tv */ |
|||
char x_tvran[2][2]; /* tv range */ |
|||
} x_tv; /* info about .tv section (in auxent of symbol .tv)) */ |
|||
|
|||
|
|||
}; |
|||
|
|||
#define SYMENT struct external_syment |
|||
#define SYMESZ 18 |
|||
#define AUXENT union external_auxent |
|||
#define AUXESZ 18 |
|||
|
|||
|
|||
|
|||
/********************** RELOCATION DIRECTIVES **********************/ |
|||
|
|||
/* The external reloc has an offset field, because some of the reloc
|
|||
types on the h8 don't have room in the instruction for the entire |
|||
offset - eg the strange jump and high page addressing modes */ |
|||
|
|||
struct external_reloc { |
|||
char r_vaddr[4]; |
|||
char r_symndx[4]; |
|||
char r_offset[4]; |
|||
char r_type[2]; |
|||
char r_stuff[2]; |
|||
}; |
|||
|
|||
|
|||
#define RELOC struct external_reloc |
|||
#define RELSZ 16 |
|||
|
|||
#define DEFAULT_DATA_SECTION_ALIGNMENT 4 |
|||
#define DEFAULT_BSS_SECTION_ALIGNMENT 4 |
|||
#define DEFAULT_TEXT_SECTION_ALIGNMENT 4 |
|||
/* For new sections we havn't heard of before */ |
|||
#define DEFAULT_SECTION_ALIGNMENT 4 |
|||
|
|||
|
|||
|
|||
Loading…
Reference in new issue