1999-05-03 09:29:11 +02:00
|
|
|
|
/* tc-fr30.c -- Assembler for the Fujitsu FR30.
|
2019-01-01 11:31:27 +01:00
|
|
|
|
Copyright (C) 1998-2019 Free Software Foundation, Inc.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
This file is part of GAS, the GNU Assembler.
|
|
|
|
|
|
|
|
|
|
GAS is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-03 13:01:12 +02:00
|
|
|
|
the Free Software Foundation; either version 3, or (at your option)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GAS 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 GAS; see the file COPYING. If not, write to
|
2005-05-05 11:13:19 +02:00
|
|
|
|
the Free Software Foundation, 51 Franklin Street - Fifth Floor,
|
|
|
|
|
Boston, MA 02110-1301, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#include "as.h"
|
2001-09-19 07:33:36 +02:00
|
|
|
|
#include "safe-ctype.h"
|
2000-09-26 09:09:19 +02:00
|
|
|
|
#include "subsegs.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#include "symcat.h"
|
|
|
|
|
#include "opcodes/fr30-desc.h"
|
|
|
|
|
#include "opcodes/fr30-opc.h"
|
|
|
|
|
#include "cgen.h"
|
|
|
|
|
|
|
|
|
|
/* Structure to hold all of the different components describing
|
|
|
|
|
an individual instruction. */
|
|
|
|
|
typedef struct
|
|
|
|
|
{
|
|
|
|
|
const CGEN_INSN * insn;
|
|
|
|
|
const CGEN_INSN * orig_insn;
|
|
|
|
|
CGEN_FIELDS fields;
|
|
|
|
|
#if CGEN_INT_INSN_P
|
|
|
|
|
CGEN_INSN_INT buffer [1];
|
|
|
|
|
#define INSN_VALUE(buf) (*(buf))
|
|
|
|
|
#else
|
|
|
|
|
unsigned char buffer [CGEN_MAX_INSN_SIZE];
|
|
|
|
|
#define INSN_VALUE(buf) (buf)
|
|
|
|
|
#endif
|
|
|
|
|
char * addr;
|
|
|
|
|
fragS * frag;
|
|
|
|
|
int num_fixups;
|
|
|
|
|
fixS * fixups [GAS_CGEN_MAX_FIXUPS];
|
|
|
|
|
int indices [MAX_OPERAND_INSTANCES];
|
|
|
|
|
}
|
|
|
|
|
fr30_insn;
|
|
|
|
|
|
|
|
|
|
const char comment_chars[] = ";";
|
|
|
|
|
const char line_comment_chars[] = "#";
|
|
|
|
|
const char line_separator_chars[] = "|";
|
|
|
|
|
const char EXP_CHARS[] = "eE";
|
|
|
|
|
const char FLT_CHARS[] = "dD";
|
|
|
|
|
|
|
|
|
|
#define FR30_SHORTOPTS ""
|
|
|
|
|
const char * md_shortopts = FR30_SHORTOPTS;
|
|
|
|
|
|
|
|
|
|
struct option md_longopts[] =
|
|
|
|
|
{
|
|
|
|
|
{NULL, no_argument, NULL, 0}
|
|
|
|
|
};
|
|
|
|
|
size_t md_longopts_size = sizeof (md_longopts);
|
|
|
|
|
|
|
|
|
|
int
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_parse_option (int c ATTRIBUTE_UNUSED,
|
2016-02-27 15:35:32 +01:00
|
|
|
|
const char *arg ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
default:
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_show_usage (FILE * stream)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
fprintf (stream, _(" FR30 specific command line options:\n"));
|
2000-09-26 09:09:19 +02:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* The target specific pseudo-ops which we support. */
|
|
|
|
|
const pseudo_typeS md_pseudo_table[] =
|
|
|
|
|
{
|
|
|
|
|
{ "word", cons, 4 },
|
|
|
|
|
{ NULL, NULL, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_begin (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* Initialize the `cgen' interface. */
|
2000-09-26 09:09:19 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Set the machine number and endian. */
|
|
|
|
|
gas_cgen_cpu_desc = fr30_cgen_cpu_open (CGEN_CPU_OPEN_MACHS, 0,
|
|
|
|
|
CGEN_CPU_OPEN_ENDIAN,
|
|
|
|
|
CGEN_ENDIAN_BIG,
|
|
|
|
|
CGEN_CPU_OPEN_END);
|
|
|
|
|
fr30_cgen_init_asm (gas_cgen_cpu_desc);
|
|
|
|
|
|
|
|
|
|
/* This is a callback from cgen to gas to parse operands. */
|
|
|
|
|
cgen_set_parse_operand_fn (gas_cgen_cpu_desc, gas_cgen_parse_operand);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_assemble (char *str)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
static int last_insn_had_delay_slot = 0;
|
|
|
|
|
fr30_insn insn;
|
2002-12-12 23:39:40 +01:00
|
|
|
|
char *errmsg;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Initialize GAS's cgen interface for a new instruction. */
|
|
|
|
|
gas_cgen_init_parse ();
|
|
|
|
|
|
|
|
|
|
insn.insn = fr30_cgen_assemble_insn
|
|
|
|
|
(gas_cgen_cpu_desc, str, & insn.fields, insn.buffer, & errmsg);
|
2000-09-26 09:09:19 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (!insn.insn)
|
|
|
|
|
{
|
2009-07-24 13:45:01 +02:00
|
|
|
|
as_bad ("%s", errmsg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Doesn't really matter what we pass for RELAX_P here. */
|
|
|
|
|
gas_cgen_finish_insn (insn.insn, insn.buffer,
|
|
|
|
|
CGEN_FIELDS_BITSIZE (& insn.fields), 1, NULL);
|
|
|
|
|
|
|
|
|
|
/* Warn about invalid insns in delay slots. */
|
|
|
|
|
if (last_insn_had_delay_slot
|
|
|
|
|
&& CGEN_INSN_ATTR_VALUE (insn.insn, CGEN_INSN_NOT_IN_DELAY_SLOT))
|
|
|
|
|
as_warn (_("Instruction %s not allowed in a delay slot."),
|
|
|
|
|
CGEN_INSN_NAME (insn.insn));
|
|
|
|
|
|
|
|
|
|
last_insn_had_delay_slot
|
|
|
|
|
= CGEN_INSN_ATTR_VALUE (insn.insn, CGEN_INSN_DELAY_SLOT);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The syntax in the manual says constants begin with '#'.
|
|
|
|
|
We just ignore it. */
|
|
|
|
|
|
2000-09-26 09:09:19 +02:00
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_operand (expressionS * expressionP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (* input_line_pointer == '#')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer ++;
|
|
|
|
|
expression (expressionP);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
valueT
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_section_align (segT segment, valueT size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
bfd_section_* macros
This large patch removes the unnecessary bfd parameter from various
bfd section macros and functions. The bfd is hardly ever used and if
needed for the bfd_set_section_* or bfd_rename_section functions can
be found via section->owner except for the com, und, abs, and ind
std_section special sections. Those sections shouldn't be modified
anyway.
The patch also removes various bfd_get_section_<field> macros,
replacing their use with bfd_section_<field>, and adds
bfd_set_section_lma. I've also fixed a minor bug in gas where
compressed section renaming was done directly rather than calling
bfd_rename_section. This would have broken bfd_get_section_by_name
and similar functions, but that hardly mattered at such a late stage
in gas processing.
bfd/
* bfd-in.h (bfd_get_section_name, bfd_get_section_vma),
(bfd_get_section_lma, bfd_get_section_alignment),
(bfd_get_section_size, bfd_get_section_flags),
(bfd_get_section_userdata): Delete.
(bfd_section_name, bfd_section_size, bfd_section_vma),
(bfd_section_lma, bfd_section_alignment): Lose bfd parameter.
(bfd_section_flags, bfd_section_userdata): New.
(bfd_is_com_section): Rename parameter.
* section.c (bfd_set_section_userdata, bfd_set_section_vma),
(bfd_set_section_alignment, bfd_set_section_flags, bfd_rename_section),
(bfd_set_section_size): Delete bfd parameter, rename section parameter.
(bfd_set_section_lma): New.
* bfd-in2.h: Regenerate.
* mach-o.c (bfd_mach_o_init_section_from_mach_o): Delete bfd param,
update callers.
* aoutx.h, * bfd.c, * coff-alpha.c, * coff-arm.c, * coff-mips.c,
* coff64-rs6000.c, * coffcode.h, * coffgen.c, * cofflink.c,
* compress.c, * ecoff.c, * elf-eh-frame.c, * elf-hppa.h,
* elf-ifunc.c, * elf-m10200.c, * elf-m10300.c, * elf-properties.c,
* elf-s390-common.c, * elf-vxworks.c, * elf.c, * elf32-arc.c,
* elf32-arm.c, * elf32-avr.c, * elf32-bfin.c, * elf32-cr16.c,
* elf32-cr16c.c, * elf32-cris.c, * elf32-crx.c, * elf32-csky.c,
* elf32-d10v.c, * elf32-epiphany.c, * elf32-fr30.c, * elf32-frv.c,
* elf32-ft32.c, * elf32-h8300.c, * elf32-hppa.c, * elf32-i386.c,
* elf32-ip2k.c, * elf32-iq2000.c, * elf32-lm32.c, * elf32-m32c.c,
* elf32-m32r.c, * elf32-m68hc1x.c, * elf32-m68k.c, * elf32-mcore.c,
* elf32-mep.c, * elf32-metag.c, * elf32-microblaze.c,
* elf32-moxie.c, * elf32-msp430.c, * elf32-mt.c, * elf32-nds32.c,
* elf32-nios2.c, * elf32-or1k.c, * elf32-ppc.c, * elf32-pru.c,
* elf32-rl78.c, * elf32-rx.c, * elf32-s390.c, * elf32-score.c,
* elf32-score7.c, * elf32-sh.c, * elf32-spu.c, * elf32-tic6x.c,
* elf32-tilepro.c, * elf32-v850.c, * elf32-vax.c, * elf32-visium.c,
* elf32-xstormy16.c, * elf32-xtensa.c, * elf64-alpha.c,
* elf64-bpf.c, * elf64-hppa.c, * elf64-ia64-vms.c, * elf64-mmix.c,
* elf64-ppc.c, * elf64-s390.c, * elf64-sparc.c, * elf64-x86-64.c,
* elflink.c, * elfnn-aarch64.c, * elfnn-ia64.c, * elfnn-riscv.c,
* elfxx-aarch64.c, * elfxx-mips.c, * elfxx-sparc.c,
* elfxx-tilegx.c, * elfxx-x86.c, * i386msdos.c, * linker.c,
* mach-o.c, * mmo.c, * opncls.c, * pdp11.c, * pei-x86_64.c,
* peicode.h, * reloc.c, * section.c, * syms.c, * vms-alpha.c,
* xcofflink.c: Update throughout for bfd section macro and function
changes.
binutils/
* addr2line.c, * bucomm.c, * coffgrok.c, * dlltool.c, * nm.c,
* objcopy.c, * objdump.c, * od-elf32_avr.c, * od-macho.c,
* od-xcoff.c, * prdbg.c, * rdcoff.c, * rddbg.c, * rescoff.c,
* resres.c, * size.c, * srconv.c, * strings.c, * windmc.c: Update
throughout for bfd section macro and function changes.
gas/
* as.c, * as.h, * dw2gencfi.c, * dwarf2dbg.c, * ecoff.c,
* read.c, * stabs.c, * subsegs.c, * subsegs.h, * write.c,
* config/obj-coff-seh.c, * config/obj-coff.c, * config/obj-ecoff.c,
* config/obj-elf.c, * config/obj-macho.c, * config/obj-som.c,
* config/tc-aarch64.c, * config/tc-alpha.c, * config/tc-arc.c,
* config/tc-arm.c, * config/tc-avr.c, * config/tc-bfin.c,
* config/tc-bpf.c, * config/tc-d10v.c, * config/tc-d30v.c,
* config/tc-epiphany.c, * config/tc-fr30.c, * config/tc-frv.c,
* config/tc-h8300.c, * config/tc-hppa.c, * config/tc-i386.c,
* config/tc-ia64.c, * config/tc-ip2k.c, * config/tc-iq2000.c,
* config/tc-lm32.c, * config/tc-m32c.c, * config/tc-m32r.c,
* config/tc-m68hc11.c, * config/tc-mep.c, * config/tc-microblaze.c,
* config/tc-mips.c, * config/tc-mmix.c, * config/tc-mn10200.c,
* config/tc-mn10300.c, * config/tc-msp430.c, * config/tc-mt.c,
* config/tc-nds32.c, * config/tc-or1k.c, * config/tc-ppc.c,
* config/tc-pru.c, * config/tc-rl78.c, * config/tc-rx.c,
* config/tc-s12z.c, * config/tc-s390.c, * config/tc-score.c,
* config/tc-score7.c, * config/tc-sh.c, * config/tc-sparc.c,
* config/tc-spu.c, * config/tc-tic4x.c, * config/tc-tic54x.c,
* config/tc-tic6x.c, * config/tc-tilegx.c, * config/tc-tilepro.c,
* config/tc-v850.c, * config/tc-visium.c, * config/tc-wasm32.c,
* config/tc-xc16x.c, * config/tc-xgate.c, * config/tc-xstormy16.c,
* config/tc-xtensa.c, * config/tc-z8k.c: Update throughout for
bfd section macro and function changes.
* write.c (compress_debug): Use bfd_rename_section.
gdb/
* aarch64-linux-tdep.c, * arm-tdep.c, * auto-load.c,
* coff-pe-read.c, * coffread.c, * corelow.c, * dbxread.c,
* dicos-tdep.c, * dwarf2-frame.c, * dwarf2read.c, * elfread.c,
* exec.c, * fbsd-tdep.c, * gcore.c, * gdb_bfd.c, * gdb_bfd.h,
* hppa-tdep.c, * i386-cygwin-tdep.c, * i386-fbsd-tdep.c,
* i386-linux-tdep.c, * jit.c, * linux-tdep.c, * machoread.c,
* maint.c, * mdebugread.c, * minidebug.c, * mips-linux-tdep.c,
* mips-sde-tdep.c, * mips-tdep.c, * mipsread.c, * nto-tdep.c,
* objfiles.c, * objfiles.h, * osabi.c, * ppc-linux-tdep.c,
* ppc64-tdep.c, * record-btrace.c, * record-full.c, * remote.c,
* rs6000-aix-tdep.c, * rs6000-tdep.c, * s390-linux-tdep.c,
* s390-tdep.c, * solib-aix.c, * solib-dsbt.c, * solib-frv.c,
* solib-spu.c, * solib-svr4.c, * solib-target.c,
* spu-linux-nat.c, * spu-tdep.c, * symfile-mem.c, * symfile.c,
* symmisc.c, * symtab.c, * target.c, * windows-nat.c,
* xcoffread.c, * cli/cli-dump.c, * compile/compile-object-load.c,
* mi/mi-interp.c: Update throughout for bfd section macro and
function changes.
* gcore (gcore_create_callback): Use bfd_set_section_lma.
* spu-tdep.c (spu_overlay_new_objfile): Likewise.
gprof/
* corefile.c, * symtab.c: Update throughout for bfd section
macro and function changes.
ld/
* ldcref.c, * ldctor.c, * ldelf.c, * ldlang.c, * pe-dll.c,
* emultempl/aarch64elf.em, * emultempl/aix.em,
* emultempl/armcoff.em, * emultempl/armelf.em,
* emultempl/cr16elf.em, * emultempl/cskyelf.em,
* emultempl/m68hc1xelf.em, * emultempl/m68kelf.em,
* emultempl/mipself.em, * emultempl/mmix-elfnmmo.em,
* emultempl/mmo.em, * emultempl/msp430.em,
* emultempl/nios2elf.em, * emultempl/pe.em, * emultempl/pep.em,
* emultempl/ppc64elf.em, * emultempl/xtensaelf.em: Update
throughout for bfd section macro and function changes.
libctf/
* ctf-open-bfd.c: Update throughout for bfd section macro changes.
opcodes/
* arc-ext.c: Update throughout for bfd section macro changes.
sim/
* common/sim-load.c, * common/sim-utils.c, * cris/sim-if.c,
* erc32/func.c, * lm32/sim-if.c, * m32c/load.c, * m32c/trace.c,
* m68hc11/interp.c, * ppc/hw_htab.c, * ppc/hw_init.c,
* rl78/load.c, * rl78/trace.c, * rx/gdb-if.c, * rx/load.c,
* rx/trace.c: Update throughout for bfd section macro changes.
2019-09-16 12:55:17 +02:00
|
|
|
|
int align = bfd_section_alignment (segment);
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
2015-11-09 17:12:57 +01:00
|
|
|
|
return ((size + (1 << align) - 1) & -(1 << align));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
symbolS *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
return NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Interface to relax_segment. */
|
|
|
|
|
|
|
|
|
|
/* FIXME: Build table by hand, get it working, then machine generate. */
|
|
|
|
|
|
|
|
|
|
const relax_typeS md_relax_table[] =
|
|
|
|
|
{
|
|
|
|
|
/* The fields are:
|
|
|
|
|
1) most positive reach of this state,
|
|
|
|
|
2) most negative reach of this state,
|
|
|
|
|
3) how many bytes this mode will add to the size of the current frag
|
|
|
|
|
4) which index into the table to try if we can't fit into this one. */
|
|
|
|
|
|
|
|
|
|
/* The first entry must be unused because an `rlx_more' value of zero ends
|
|
|
|
|
each list. */
|
|
|
|
|
{1, 1, 0, 0},
|
|
|
|
|
|
|
|
|
|
/* The displacement used by GAS is from the end of the 2 byte insn,
|
|
|
|
|
so we subtract 2 from the following. */
|
|
|
|
|
/* 16 bit insn, 8 bit disp -> 10 bit range.
|
|
|
|
|
This doesn't handle a branch in the right slot at the border:
|
|
|
|
|
the "& -4" isn't taken into account. It's not important enough to
|
|
|
|
|
complicate things over it, so we subtract an extra 2 (or + 2 in -ve
|
|
|
|
|
case). */
|
|
|
|
|
{511 - 2 - 2, -512 - 2 + 2, 0, 2 },
|
|
|
|
|
/* 32 bit insn, 24 bit disp -> 26 bit range. */
|
|
|
|
|
{0x2000000 - 1 - 2, -0x2000000 - 2, 2, 0 },
|
|
|
|
|
/* Same thing, but with leading nop for alignment. */
|
|
|
|
|
{0x2000000 - 1 - 2, -0x2000000 - 2, 4, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Return an initial guess of the length by which a fragment must grow to
|
|
|
|
|
hold a branch to reach its destination.
|
|
|
|
|
Also updates fr_type/fr_subtype as necessary.
|
|
|
|
|
|
|
|
|
|
Called just before doing relaxation.
|
|
|
|
|
Any symbol that is now undefined will not become defined.
|
|
|
|
|
The guess for fr_var is ACTUALLY the growth beyond fr_fix.
|
|
|
|
|
Whatever we do to grow fr_fix or fr_var contributes to our returned value.
|
|
|
|
|
Although it may not be explicit in the frag, pretend fr_var starts with a
|
|
|
|
|
0 value. */
|
|
|
|
|
|
|
|
|
|
int
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_estimate_size_before_relax (fragS * fragP, segT segment)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* The only thing we have to handle here are symbols outside of the
|
|
|
|
|
current segment. They may be undefined or in a different segment in
|
|
|
|
|
which case linker scripts may place them anywhere.
|
|
|
|
|
However, we can't finish the fragment here and emit the reloc as insn
|
|
|
|
|
alignment requirements may move the insn about. */
|
|
|
|
|
|
|
|
|
|
if (S_GET_SEGMENT (fragP->fr_symbol) != segment)
|
|
|
|
|
{
|
|
|
|
|
/* The symbol is undefined in this segment.
|
|
|
|
|
Change the relaxation subtype to the max allowable and leave
|
|
|
|
|
all further handling to md_convert_frag. */
|
|
|
|
|
fragP->fr_subtype = 2;
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
const CGEN_INSN * insn;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
/* Update the recorded insn.
|
|
|
|
|
Fortunately we don't have to look very far.
|
|
|
|
|
FIXME: Change this to record in the instruction the next higher
|
|
|
|
|
relaxable insn to use. */
|
|
|
|
|
for (i = 0, insn = fragP->fr_cgen.insn; i < 4; i++, insn++)
|
|
|
|
|
{
|
|
|
|
|
if ((strcmp (CGEN_INSN_MNEMONIC (insn),
|
|
|
|
|
CGEN_INSN_MNEMONIC (fragP->fr_cgen.insn))
|
|
|
|
|
== 0)
|
opcodes:
* cgen-asm.in (@arch@_cgen_assemble_insn): CGEN_INSN_RELAX renamed to
CGEN_INSN_RELAXED.
* fr30-asm.c,fr30-desc.c,fr30-desc.h: Regenerate.
* frv-asm.c,frv-desc.c,frv-desc.h: Regenerate.
* ip2k-asm.c,ip2k-desc.c,ip2k-desc.h: Regenerate.
* iq2000-asm.c,iq2000-desc.c,iq2000-desc.h: Regenerate.
* m32r-asm.c,m32r-desc.c,m32r-desc.h,m32r-opc.c: Regenerate.
* openrisc-asm.c,openrisc-desc.c,openrisc-desc.h: Regenerate.
* xstormy16-asm.c,xstormy16-desc.c,xstormy16-desc.h: Regenerate.
gas:
* cgen.c (gas_cgen_finish_insn): CGEN_INSN_RELAX renamed to
CGEN_INSN_RELAXED.
* config/tc-fr30.c (md_estimate_size_before_relax): Ditto.
* config/tc-m32r.c (md_estimate_size_before_relax): Ditto.
* config/tc-openrisc.c (md_estimate_size_before_relax): Ditto.
2003-06-11 00:08:45 +02:00
|
|
|
|
&& CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_RELAXED))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
if (i == 4)
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
fragP->fr_cgen.insn = insn;
|
|
|
|
|
return 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-10 13:32:52 +02:00
|
|
|
|
/* Return the size of the variable part of the frag. */
|
|
|
|
|
return md_relax_table[fragP->fr_subtype].rlx_length;
|
2000-09-26 09:09:19 +02:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* *fragP has been relaxed to its final size, and now needs to have
|
|
|
|
|
the bytes inside it modified to conform to the new size.
|
|
|
|
|
|
|
|
|
|
Called after relaxation is finished.
|
|
|
|
|
fragP->fr_type == rs_machine_dependent.
|
|
|
|
|
fragP->fr_subtype is the subtype of what the address relaxed to. */
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_convert_frag (bfd *abfd ATTRIBUTE_UNUSED,
|
|
|
|
|
segT sec ATTRIBUTE_UNUSED,
|
|
|
|
|
fragS *fragP ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Functions concerning relocs. */
|
|
|
|
|
|
|
|
|
|
/* The location from which a PC relative jump should be calculated,
|
|
|
|
|
given a PC relative reloc. */
|
|
|
|
|
|
|
|
|
|
long
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_pcrel_from_section (fixS * fixP, segT sec)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (fixP->fx_addsy != (symbolS *) NULL
|
|
|
|
|
&& (! S_IS_DEFINED (fixP->fx_addsy)
|
|
|
|
|
|| S_GET_SEGMENT (fixP->fx_addsy) != sec))
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* The symbol is undefined (or is defined but not in this section).
|
|
|
|
|
Let the linker figure it out. */
|
|
|
|
|
return 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return (fixP->fx_frag->fr_address + fixP->fx_where) & ~1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the bfd reloc type for OPERAND of INSN at fixup FIXP.
|
|
|
|
|
Returns BFD_RELOC_NONE if no reloc type can be found.
|
|
|
|
|
*FIXP may be modified if desired. */
|
|
|
|
|
|
|
|
|
|
bfd_reloc_code_real_type
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_cgen_lookup_reloc (const CGEN_INSN *insn ATTRIBUTE_UNUSED,
|
|
|
|
|
const CGEN_OPERAND *operand,
|
|
|
|
|
fixS *fixP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
switch (operand->type)
|
|
|
|
|
{
|
|
|
|
|
case FR30_OPERAND_LABEL9: fixP->fx_pcrel = 1; return BFD_RELOC_FR30_9_PCREL;
|
|
|
|
|
case FR30_OPERAND_LABEL12: fixP->fx_pcrel = 1; return BFD_RELOC_FR30_12_PCREL;
|
|
|
|
|
case FR30_OPERAND_DISP10: return BFD_RELOC_FR30_10_IN_8;
|
|
|
|
|
case FR30_OPERAND_DISP9: return BFD_RELOC_FR30_9_IN_8;
|
|
|
|
|
case FR30_OPERAND_DISP8: return BFD_RELOC_FR30_8_IN_8;
|
|
|
|
|
case FR30_OPERAND_UDISP6: return BFD_RELOC_FR30_6_IN_4;
|
|
|
|
|
case FR30_OPERAND_I8: return BFD_RELOC_8;
|
|
|
|
|
case FR30_OPERAND_I32: return BFD_RELOC_FR30_48;
|
|
|
|
|
case FR30_OPERAND_I20: return BFD_RELOC_FR30_20;
|
2005-03-24 21:40:28 +01:00
|
|
|
|
default : /* Avoid -Wall warning. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return BFD_RELOC_NONE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write a value out to the object file, using the appropriate endianness. */
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_number_to_chars (char * buf, valueT val, int n)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
number_to_chars_bigendian (buf, val, n);
|
|
|
|
|
}
|
|
|
|
|
|
2016-04-01 14:07:50 +02:00
|
|
|
|
const char *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_atof (int type, char * litP, int * sizeP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2007-10-17 18:45:56 +02:00
|
|
|
|
return ieee_md_atof (type, litP, sizeP, TRUE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Worker function for fr30_is_colon_insn(). */
|
2015-08-27 15:20:38 +02:00
|
|
|
|
static int
|
|
|
|
|
restore_colon (char *next_i_l_p, char *nul_char)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* Restore the colon, and advance input_line_pointer to
|
|
|
|
|
the end of the new symbol. */
|
2015-08-27 15:20:38 +02:00
|
|
|
|
*input_line_pointer = *nul_char;
|
|
|
|
|
input_line_pointer = next_i_l_p;
|
|
|
|
|
*nul_char = *next_i_l_p;
|
|
|
|
|
*next_i_l_p = 0;
|
|
|
|
|
return 1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Determines if the symbol starting at START and ending in
|
|
|
|
|
a colon that was at the location pointed to by INPUT_LINE_POINTER
|
|
|
|
|
(but which has now been replaced bu a NUL) is in fact an
|
|
|
|
|
LDI:8, LDI:20, LDI:32, CALL:D. JMP:D, RET:D or Bcc:D instruction.
|
|
|
|
|
If it is, then it restores the colon, advances INPUT_LINE_POINTER
|
2015-08-27 15:20:38 +02:00
|
|
|
|
to the real end of the instruction/symbol, saves the char there to
|
|
|
|
|
NUL_CHAR and pokes a NUL, and returns 1. Otherwise it returns 0. */
|
|
|
|
|
int
|
|
|
|
|
fr30_is_colon_insn (char *start, char *nul_char)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char * i_l_p = input_line_pointer;
|
|
|
|
|
|
2015-08-27 15:20:38 +02:00
|
|
|
|
if (*nul_char == '"')
|
|
|
|
|
++i_l_p;
|
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Check to see if the symbol parsed so far is 'ldi'. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if ( (start[0] != 'l' && start[0] != 'L')
|
|
|
|
|
|| (start[1] != 'd' && start[1] != 'D')
|
|
|
|
|
|| (start[2] != 'i' && start[2] != 'I')
|
|
|
|
|
|| start[3] != 0)
|
|
|
|
|
{
|
|
|
|
|
/* Nope - check to see a 'd' follows the colon. */
|
|
|
|
|
if ( (i_l_p[1] == 'd' || i_l_p[1] == 'D')
|
|
|
|
|
&& (i_l_p[2] == ' ' || i_l_p[2] == '\t' || i_l_p[2] == '\n'))
|
|
|
|
|
{
|
|
|
|
|
/* Yup - it might be delay slot instruction. */
|
|
|
|
|
int i;
|
2016-02-25 17:55:21 +01:00
|
|
|
|
static const char * delay_insns [] =
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
"call", "jmp", "ret", "bra", "bno",
|
|
|
|
|
"beq", "bne", "bc", "bnc", "bn",
|
|
|
|
|
"bp", "bv", "bnv", "blt", "bge",
|
|
|
|
|
"ble", "bgt", "bls", "bhi"
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
for (i = sizeof (delay_insns) / sizeof (delay_insns[0]); i--;)
|
|
|
|
|
{
|
2016-02-25 17:55:21 +01:00
|
|
|
|
const char * insn = delay_insns[i];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int len = strlen (insn);
|
|
|
|
|
|
|
|
|
|
if (start [len] != 0)
|
|
|
|
|
continue;
|
2000-09-26 09:09:19 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
while (len --)
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (TOLOWER (start [len]) != insn [len])
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
2000-09-26 09:09:19 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (len == -1)
|
2015-08-27 15:20:38 +02:00
|
|
|
|
return restore_colon (i_l_p + 1, nul_char);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Nope - it is a normal label. */
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Check to see if the text following the colon is '8'. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (i_l_p[1] == '8' && (i_l_p[2] == ' ' || i_l_p[2] == '\t'))
|
2015-08-27 15:20:38 +02:00
|
|
|
|
return restore_colon (i_l_p + 2, nul_char);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Check to see if the text following the colon is '20'. */
|
2015-08-27 15:20:38 +02:00
|
|
|
|
else if (i_l_p[1] == '2' && i_l_p[2] =='0'
|
|
|
|
|
&& (i_l_p[3] == ' ' || i_l_p[3] == '\t'))
|
|
|
|
|
return restore_colon (i_l_p + 3, nul_char);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Check to see if the text following the colon is '32'. */
|
2015-08-27 15:20:38 +02:00
|
|
|
|
else if (i_l_p[1] == '3' && i_l_p[2] =='2'
|
|
|
|
|
&& (i_l_p[3] == ' ' || i_l_p[3] == '\t'))
|
|
|
|
|
return restore_colon (i_l_p + 3, nul_char);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
bfd_boolean
|
2005-03-24 21:40:28 +01:00
|
|
|
|
fr30_fix_adjustable (fixS * fixP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* We need the symbol name for the VTABLE entries. */
|
2002-09-05 02:01:18 +02:00
|
|
|
|
if (fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|