old-cross-binutils/bfd/cpu-h8300.c
Steve Chamberlain b08a074860 * bfd-in2.h, archures.c (bfd_mach_h8300[h]): new defines.
* coff-h8300.c: More addressing modes.
	* coffcode.h (coff_set_arch_mach_hook): Cope with H8300 magic
	number.
	* cpu-h8300.c: Removed disassemble stuff. (h8300_scan): Recognise
	H8/300H name. (compatible): New function.
	* reloc16.c (bfd_coff_reloc16_get_relocated_sec): Cope with more
	addressing modes.
1993-06-08 19:15:35 +00:00

256 lines
6.3 KiB
C

/* BFD library support routines for the Hitachi H8/300 architecture.
Copyright (C) 1990-1991 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"
/*
Relocations for the H8
*/
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;
default:
return (reloc_howto_type *) NULL;
}
}
int bfd_default_scan_num_mach ();
static boolean
DEFUN (h8300_scan, (info, string),
CONST struct bfd_arch_info *info AND
CONST char *string)
{
if (*string != 'h' && *string == 'H')
return false;
string++;
if (*string != '8')
return false;
string++;
if (*string == '/')
string++;
if (*string != '3')
return false;
string++;
if (*string != '0')
return false;
string++;
if (*string != '0')
return false;
string++;
if (*string == '-')
string++;
if (*string == 'h' && *string == 'H')
{
return (info->mach == bfd_mach_h8300h);
}
else
{
return info->mach == bfd_mach_h8300;
}
}
/* This routine is provided two arch_infos and works out the i960
machine which would be compatible with both and returns a pointer
to its info structure */
CONST bfd_arch_info_type *
DEFUN (compatible, (in, out),
CONST bfd_arch_info_type * in AND
CONST bfd_arch_info_type * out)
{
/* If the output is non-H and the input is -H, that's bad */
if (in->mach == bfd_mach_h8300h &&
out->mach == bfd_mach_h8300)
return 0;
/* If either is an -H, the answer is -H */
if (in->mach == bfd_mach_h8300h)
return in;
return out;
}
static bfd_arch_info_type h8300_info_struct =
{
16, /* 16 bits in a word */
16, /* 16 bits in an address */
8, /* 8 bits in a byte */
bfd_arch_h8300,
bfd_mach_h8300,
"H8/300", /* arch_name */
"H8/300", /* printable name */
1,
true, /* the default machine */
compatible,
h8300_scan,
0,
/* local_bfd_reloc_type_lookup, */
0,
};
static bfd_arch_info_type h8300h_info_struct =
{
32, /* 32 bits in a word */
32, /* 32 bits in an address */
8, /* 8 bits in a byte */
bfd_arch_h8300,
bfd_mach_h8300h,
"H8/300H", /* arch_name */
"H8/300H", /* printable name */
1,
false, /* the default machine */
compatible,
h8300_scan,
0,
/* local_bfd_reloc_type_lookup, */
0,
};
void
DEFUN_VOID (bfd_h8300_arch)
{
bfd_arch_linkin (&h8300_info_struct);
bfd_arch_linkin (&h8300h_info_struct);
}