647 lines
17 KiB
C
647 lines
17 KiB
C
/* tc-fr30.c -- Assembler for the Fujitsu FR30.
|
||
Copyright (C) 1998 Free Software Foundation.
|
||
|
||
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
|
||
the Free Software Foundation; either version 2, or (at your option)
|
||
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
|
||
the Free Software Foundation, 59 Temple Place - Suite 330,
|
||
Boston, MA 02111-1307, USA. */
|
||
|
||
#include <stdio.h>
|
||
#include <ctype.h>
|
||
#include "as.h"
|
||
#include "subsegs.h"
|
||
#include "symcat.h"
|
||
#include "cgen-opc.h"
|
||
#include "cgen.h"
|
||
|
||
/* Linked list of symbols that are debugging symbols to be
|
||
defined as the beginning of the current instruction. */
|
||
typedef struct sym_link
|
||
{
|
||
struct sym_link * next;
|
||
symbolS * symbol;
|
||
} sym_linkS;
|
||
|
||
static sym_linkS * debug_sym_link = (sym_linkS *) NULL;
|
||
|
||
/* 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];
|
||
sym_linkS * debug_sym_link;
|
||
}
|
||
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
|
||
md_parse_option (c, arg)
|
||
int c;
|
||
char * arg;
|
||
{
|
||
switch (c)
|
||
{
|
||
default:
|
||
return 0;
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
void
|
||
md_show_usage (stream)
|
||
FILE * stream;
|
||
{
|
||
fprintf (stream, _(" FR30 specific command line options:\n"));
|
||
}
|
||
|
||
/* The target specific pseudo-ops which we support. */
|
||
const pseudo_typeS md_pseudo_table[] =
|
||
{
|
||
{ "word", cons, 4 },
|
||
{ NULL, NULL, 0 }
|
||
};
|
||
|
||
|
||
void
|
||
md_begin ()
|
||
{
|
||
flagword applicable;
|
||
segT seg;
|
||
subsegT subseg;
|
||
|
||
/* Initialize the `cgen' interface. */
|
||
|
||
/* Set the machine number and endian. */
|
||
gas_cgen_opcode_desc = fr30_cgen_opcode_open (bfd_mach_fr30, CGEN_ENDIAN_BIG);
|
||
fr30_cgen_init_asm (gas_cgen_opcode_desc);
|
||
|
||
/* This is a callback from cgen to gas to parse operands. */
|
||
cgen_set_parse_operand_fn (gas_cgen_opcode_desc, gas_cgen_parse_operand);
|
||
}
|
||
|
||
void
|
||
md_assemble (str)
|
||
char * str;
|
||
{
|
||
fr30_insn insn;
|
||
char * errmsg;
|
||
char * str2 = NULL;
|
||
|
||
/* Initialize GAS's cgen interface for a new instruction. */
|
||
gas_cgen_init_parse ();
|
||
|
||
insn.debug_sym_link = debug_sym_link;
|
||
debug_sym_link = (sym_linkS *)0;
|
||
|
||
insn.insn = fr30_cgen_assemble_insn
|
||
(gas_cgen_opcode_desc, str, & insn.fields, insn.buffer, & errmsg);
|
||
|
||
if (!insn.insn)
|
||
{
|
||
as_bad (errmsg);
|
||
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);
|
||
}
|
||
|
||
/* The syntax in the manual says constants begin with '#'.
|
||
We just ignore it. */
|
||
|
||
void
|
||
md_operand (expressionP)
|
||
expressionS * expressionP;
|
||
{
|
||
if (* input_line_pointer == '#')
|
||
{
|
||
input_line_pointer ++;
|
||
expression (expressionP);
|
||
}
|
||
}
|
||
|
||
valueT
|
||
md_section_align (segment, size)
|
||
segT segment;
|
||
valueT size;
|
||
{
|
||
int align = bfd_get_section_alignment (stdoutput, segment);
|
||
return ((size + (1 << align) - 1) & (-1 << align));
|
||
}
|
||
|
||
symbolS *
|
||
md_undefined_symbol (name)
|
||
char * name;
|
||
{
|
||
return 0;
|
||
}
|
||
|
||
/* 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 }
|
||
};
|
||
|
||
long
|
||
fr30_relax_frag (fragP, stretch)
|
||
fragS * fragP;
|
||
long stretch;
|
||
{
|
||
/* Address of branch insn. */
|
||
long address = fragP->fr_address + fragP->fr_fix - 2;
|
||
long growth = 0;
|
||
|
||
/* Keep 32 bit insns aligned on 32 bit boundaries. */
|
||
if (fragP->fr_subtype == 2)
|
||
{
|
||
if ((address & 3) != 0)
|
||
{
|
||
fragP->fr_subtype = 3;
|
||
growth = 2;
|
||
}
|
||
}
|
||
else if (fragP->fr_subtype == 3)
|
||
{
|
||
if ((address & 3) == 0)
|
||
{
|
||
fragP->fr_subtype = 2;
|
||
growth = -2;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
growth = relax_frag (fragP, stretch);
|
||
|
||
/* Long jump on odd halfword boundary? */
|
||
if (fragP->fr_subtype == 2 && (address & 3) != 0)
|
||
{
|
||
fragP->fr_subtype = 3;
|
||
growth += 2;
|
||
}
|
||
}
|
||
|
||
return growth;
|
||
}
|
||
|
||
/* 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
|
||
md_estimate_size_before_relax (fragP, segment)
|
||
fragS * fragP;
|
||
segT segment;
|
||
{
|
||
int old_fr_fix = fragP->fr_fix;
|
||
|
||
/* 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;
|
||
|
||
#if 0 /* Can't use this, but leave in for illustration. */
|
||
/* Change 16 bit insn to 32 bit insn. */
|
||
fragP->fr_opcode[0] |= 0x80;
|
||
|
||
/* Increase known (fixed) size of fragment. */
|
||
fragP->fr_fix += 2;
|
||
|
||
/* Create a relocation for it. */
|
||
fix_new (fragP, old_fr_fix, 4,
|
||
fragP->fr_symbol,
|
||
fragP->fr_offset, 1 /* pcrel */,
|
||
/* FIXME: Can't use a real BFD reloc here.
|
||
gas_cgen_md_apply_fix3 can't handle it. */
|
||
BFD_RELOC_FR30_26_PCREL);
|
||
|
||
/* Mark this fragment as finished. */
|
||
frag_wane (fragP);
|
||
#else
|
||
{
|
||
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)
|
||
&& CGEN_INSN_ATTR (insn, CGEN_INSN_RELAX))
|
||
break;
|
||
}
|
||
if (i == 4)
|
||
abort ();
|
||
|
||
fragP->fr_cgen.insn = insn;
|
||
return 2;
|
||
}
|
||
#endif
|
||
}
|
||
|
||
return (fragP->fr_var + fragP->fr_fix - old_fr_fix);
|
||
}
|
||
|
||
/* *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
|
||
md_convert_frag (abfd, sec, fragP)
|
||
bfd * abfd;
|
||
segT sec;
|
||
fragS * fragP;
|
||
{
|
||
#if 0
|
||
char * opcode;
|
||
char * displacement;
|
||
int target_address;
|
||
int opcode_address;
|
||
int extension;
|
||
int addend;
|
||
|
||
opcode = fragP->fr_opcode;
|
||
|
||
/* Address opcode resides at in file space. */
|
||
opcode_address = fragP->fr_address + fragP->fr_fix - 2;
|
||
|
||
switch (fragP->fr_subtype)
|
||
{
|
||
case 1 :
|
||
extension = 0;
|
||
displacement = & opcode[1];
|
||
break;
|
||
case 2 :
|
||
opcode[0] |= 0x80;
|
||
extension = 2;
|
||
displacement = & opcode[1];
|
||
break;
|
||
case 3 :
|
||
opcode[2] = opcode[0] | 0x80;
|
||
md_number_to_chars (opcode, PAR_NOP_INSN, 2);
|
||
opcode_address += 2;
|
||
extension = 4;
|
||
displacement = & opcode[3];
|
||
break;
|
||
default :
|
||
abort ();
|
||
}
|
||
|
||
if (S_GET_SEGMENT (fragP->fr_symbol) != sec)
|
||
{
|
||
/* symbol must be resolved by linker */
|
||
if (fragP->fr_offset & 3)
|
||
as_warn (_("Addend to unresolved symbol not on word boundary."));
|
||
addend = fragP->fr_offset >> 2;
|
||
}
|
||
else
|
||
{
|
||
/* Address we want to reach in file space. */
|
||
target_address = S_GET_VALUE (fragP->fr_symbol) + fragP->fr_offset;
|
||
target_address += fragP->fr_symbol->sy_frag->fr_address;
|
||
addend = (target_address - (opcode_address & -4)) >> 2;
|
||
}
|
||
|
||
/* Create a relocation for symbols that must be resolved by the linker.
|
||
Otherwise output the completed insn. */
|
||
|
||
if (S_GET_SEGMENT (fragP->fr_symbol) != sec)
|
||
{
|
||
assert (fragP->fr_subtype != 1);
|
||
assert (fragP->fr_cgen.insn != 0);
|
||
gas_cgen_record_fixup (fragP,
|
||
/* Offset of branch insn in frag. */
|
||
fragP->fr_fix + extension - 4,
|
||
fragP->fr_cgen.insn,
|
||
4 /*length*/,
|
||
/* FIXME: quick hack */
|
||
#if 0
|
||
CGEN_OPERAND_ENTRY (fragP->fr_cgen.opindex),
|
||
#else
|
||
CGEN_OPERAND_ENTRY (FR30_OPERAND_DISP24),
|
||
#endif
|
||
fragP->fr_cgen.opinfo,
|
||
fragP->fr_symbol, fragP->fr_offset);
|
||
}
|
||
|
||
#define SIZE_FROM_RELAX_STATE(n) ((n) == 1 ? 1 : 3)
|
||
|
||
md_number_to_chars (displacement, (valueT) addend,
|
||
SIZE_FROM_RELAX_STATE (fragP->fr_subtype));
|
||
|
||
fragP->fr_fix += extension;
|
||
#endif
|
||
}
|
||
|
||
/* Functions concerning relocs. */
|
||
|
||
/* The location from which a PC relative jump should be calculated,
|
||
given a PC relative reloc. */
|
||
|
||
long
|
||
md_pcrel_from_section (fixP, sec)
|
||
fixS * fixP;
|
||
segT sec;
|
||
{
|
||
if (fixP->fx_addsy != (symbolS *) NULL
|
||
&& (! S_IS_DEFINED (fixP->fx_addsy)
|
||
|| S_GET_SEGMENT (fixP->fx_addsy) != sec))
|
||
{
|
||
/* The symbol is undefined (or is defined but not in this section).
|
||
Let the linker figure it out. */
|
||
return 0;
|
||
}
|
||
|
||
return (fixP->fx_frag->fr_address + fixP->fx_where) & -4L;
|
||
}
|
||
|
||
/* 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
|
||
md_cgen_lookup_reloc (insn, operand, fixP)
|
||
const CGEN_INSN * insn;
|
||
const CGEN_OPERAND * operand;
|
||
fixS * fixP;
|
||
{
|
||
switch (CGEN_OPERAND_TYPE (operand))
|
||
{
|
||
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;
|
||
/* waiting for these to be defined by Dave....
|
||
case FR30_OPERAND_I20: return BFD_RELOC_FR30_20;
|
||
case FR30_OPERAND_I30: return BFD_RELOC_32;
|
||
*/
|
||
default : /* avoid -Wall warning */
|
||
break;
|
||
}
|
||
|
||
return BFD_RELOC_NONE;
|
||
}
|
||
|
||
|
||
/* Return BFD reloc type from opinfo field in a fixS.
|
||
It's tricky using fx_r_type in fr30_frob_file because the values
|
||
are BFD_RELOC_UNUSED + operand number. */
|
||
#define FX_OPINFO_R_TYPE(f) ((f)->tc_fix_data.opinfo)
|
||
|
||
/* See whether we need to force a relocation into the output file.
|
||
This is used to force out switch and PC relative relocations when
|
||
relaxing. */
|
||
|
||
int
|
||
fr30_force_relocation (fix)
|
||
fixS * fix;
|
||
{
|
||
if (fix->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
||
|| fix->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
||
return 1;
|
||
|
||
return fix->fx_pcrel;
|
||
}
|
||
|
||
/* Write a value out to the object file, using the appropriate endianness. */
|
||
|
||
void
|
||
md_number_to_chars (buf, val, n)
|
||
char * buf;
|
||
valueT val;
|
||
int n;
|
||
{
|
||
number_to_chars_bigendian (buf, val, n);
|
||
}
|
||
|
||
/* Turn a string in input_line_pointer into a floating point constant of type
|
||
type, and store the appropriate bytes in *litP. The number of LITTLENUMS
|
||
emitted is stored in *sizeP . An error message is returned, or NULL on OK.
|
||
*/
|
||
|
||
/* Equal to MAX_PRECISION in atof-ieee.c */
|
||
#define MAX_LITTLENUMS 6
|
||
|
||
char *
|
||
md_atof (type, litP, sizeP)
|
||
char type;
|
||
char * litP;
|
||
int * sizeP;
|
||
{
|
||
int i;
|
||
int prec;
|
||
LITTLENUM_TYPE words [MAX_LITTLENUMS];
|
||
char * t;
|
||
char * atof_ieee ();
|
||
|
||
switch (type)
|
||
{
|
||
case 'f':
|
||
case 'F':
|
||
case 's':
|
||
case 'S':
|
||
prec = 2;
|
||
break;
|
||
|
||
case 'd':
|
||
case 'D':
|
||
case 'r':
|
||
case 'R':
|
||
prec = 4;
|
||
break;
|
||
|
||
/* FIXME: Some targets allow other format chars for bigger sizes here. */
|
||
|
||
default:
|
||
* sizeP = 0;
|
||
return _("Bad call to md_atof()");
|
||
}
|
||
|
||
t = atof_ieee (input_line_pointer, type, words);
|
||
if (t)
|
||
input_line_pointer = t;
|
||
* sizeP = prec * sizeof (LITTLENUM_TYPE);
|
||
|
||
for (i = 0; i < prec; i++)
|
||
{
|
||
md_number_to_chars (litP, (valueT) words[i],
|
||
sizeof (LITTLENUM_TYPE));
|
||
litP += sizeof (LITTLENUM_TYPE);
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
static char
|
||
restore_colon (advance_i_l_p_by)
|
||
int advance_i_l_p_by;
|
||
{
|
||
char c;
|
||
|
||
/* Restore the colon, and advance input_line_pointer to
|
||
the end of the new symbol. */
|
||
* input_line_pointer = ':';
|
||
input_line_pointer += advance_i_l_p_by;
|
||
c = * input_line_pointer;
|
||
* input_line_pointer = 0;
|
||
|
||
return c;
|
||
}
|
||
|
||
/* 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, adbvances INPUT_LINE_POINTER
|
||
to the real end of the instruction/symbol, and returns the character
|
||
that really terminated the symbol. Otherwise it returns 0. */
|
||
char
|
||
fr30_is_colon_insn (start)
|
||
char * start;
|
||
{
|
||
char * i_l_p = input_line_pointer;
|
||
|
||
/* Check to see if the symbol parsed so far is 'ldi' */
|
||
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;
|
||
static char * delay_insns [] =
|
||
{
|
||
"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--;)
|
||
{
|
||
char * insn = delay_insns[i];
|
||
int len = strlen (insn);
|
||
|
||
if (start [len] != 0)
|
||
continue;
|
||
|
||
while (len --)
|
||
if (tolower (start [len]) != insn [len])
|
||
break;
|
||
|
||
if (len == -1)
|
||
return restore_colon (1);
|
||
}
|
||
}
|
||
|
||
/* Nope - it is a normal label. */
|
||
return 0;
|
||
}
|
||
|
||
/* Check to see if the text following the colon is '8' */
|
||
if (i_l_p[1] == '8' && (i_l_p[2] == ' ' || i_l_p[2] == '\t'))
|
||
return restore_colon (2);
|
||
|
||
/* Check to see if the text following the colon is '20' */
|
||
else if (i_l_p[1] == '2' && i_l_p[2] =='0' && (i_l_p[3] == ' ' || i_l_p[3] == '\t'))
|
||
return restore_colon (3);
|
||
|
||
/* Check to see if the text following the colon is '32' */
|
||
else if (i_l_p[1] == '3' && i_l_p[2] =='2' && (i_l_p[3] == ' ' || i_l_p[3] == '\t'))
|
||
return restore_colon (3);
|
||
|
||
return 0;
|
||
}
|