From ff975a2c4c623ab8ae3e66c6a91e3bdb75424924 Mon Sep 17 00:00:00 2001 From: Steve Chamberlain Date: Thu, 4 Feb 1993 20:59:55 +0000 Subject: [PATCH] H8/500 support --- bfd/.Sanitize | 2 + bfd/ChangeLog | 6 ++ bfd/cpu-h8500.c | 208 +++++++++++++++++++++++++++++++++++++++++++++++++ include/coff/.Sanitize | 1 + include/coff/h8500.h | 206 ++++++++++++++++++++++++++++++++++++++++++++++++ 5 files changed, 423 insertions(+) create mode 100644 bfd/cpu-h8500.c create mode 100644 include/coff/h8500.h diff --git a/bfd/.Sanitize b/bfd/.Sanitize index 8935289..759a629 100644 --- a/bfd/.Sanitize +++ b/bfd/.Sanitize @@ -48,6 +48,7 @@ cache.c ctor.c coff-a29k.c coff-h8300.c +coff-h8500.c coff-i386.c coff-i960.c coff-m68k.c @@ -85,6 +86,7 @@ cpu-m68k.c cpu-mips.c cpu-vax.c cpu-h8300.c +cpu-h8500.c cpu-hppa.c cpu-i960.c cpu-m88k.c diff --git a/bfd/ChangeLog b/bfd/ChangeLog index 66e005d..2d32785 100644 --- a/bfd/ChangeLog +++ b/bfd/ChangeLog @@ -1,3 +1,9 @@ +Thu Feb 4 12:52:40 1993 Steve Chamberlain (sac@thepub.cygnus.com) + + Add support for the H8/500 + + * coff-h8500.c, cpu-h8500.c, archures.c, coffcode.h, targets.c + Thu Feb 4 12:35:02 1993 Ian Lance Taylor (ian@cygnus.com) * libecoff.h: New file. Defines ECOFF backend data for gdb. diff --git a/bfd/cpu-h8500.c b/bfd/cpu-h8500.c new file mode 100644 index 0000000..9506216 --- /dev/null +++ b/bfd/cpu-h8500.c @@ -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]); +} + + diff --git a/include/coff/.Sanitize b/include/coff/.Sanitize index 93905684..2de59e2 100644 --- a/include/coff/.Sanitize +++ b/include/coff/.Sanitize @@ -27,6 +27,7 @@ ChangeLog a29k.h ecoff-ext.h h8300.h +h8500.h i386.h i960.h internal.h diff --git a/include/coff/h8500.h b/include/coff/h8500.h new file mode 100644 index 0000000..5f4d584 --- /dev/null +++ b/include/coff/h8500.h @@ -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 + + + -- 2.7.4