-/* tc-h8500.c -- Assemble code for the Hitachi H8/500
- Copyright 1993, 1994, 1995, 1998, 2000, 2001
+/* tc-h8500.c -- Assemble code for the Renesas H8/500
+ Copyright 1993, 1994, 1995, 1998, 2000, 2001, 2002, 2003, 2005
Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
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. */
+ Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
+ 02110-1301, USA. */
/* Written By Steve Chamberlain <sac@cygnus.com>. */
#define DEFINE_TABLE
#define ASSEMBLER_TABLE
#include "opcodes/h8500-opc.h"
-#include <ctype.h>
+#include "safe-ctype.h"
-const char comment_chars[] = "!";
+const char comment_chars[] = "!";
const char line_separator_chars[] = ";";
-const char line_comment_chars[] = "!#";
+const char line_comment_chars[] = "!#";
/* This table describes all the machine specific pseudo-ops the assembler
has to support. The fields are:
pseudo-op name without dot
function to call to execute this pseudo-op
- Integer arg to pass to the function
- */
-
-void cons ();
+ Integer arg to pass to the function. */
const pseudo_typeS md_pseudo_table[] =
{
const char EXP_CHARS[] = "eE";
-/* Chars that mean this number is a floating point constant */
-/* As in 0f12.456 */
-/* or 0d1.2345e12 */
+/* Chars that mean this number is a floating point constant.
+ As in 0f12.456
+ or 0d1.2345e12. */
const char FLT_CHARS[] = "rRsSfFdDxXpP";
-#define C(a,b) ENCODE_RELAX(a,b)
-#define ENCODE_RELAX(what,length) (((what) << 2) + (length))
+#define C(a,b) ENCODE_RELAX(a, b)
+#define ENCODE_RELAX(what, length) (((what) << 2) + (length))
-#define GET_WHAT(x) ((x>>2))
+#define GET_WHAT(x) ((x >> 2))
-#define BYTE_DISP 1
-#define WORD_DISP 2
+#define BYTE_DISP 1
+#define WORD_DISP 2
#define UNDEF_BYTE_DISP 0
#define UNDEF_WORD_DISP 3
-#define BRANCH 1
-#define SCB_F 2
-#define SCB_TST 3
-#define END 4
+#define BRANCH 1
+#define SCB_F 2
+#define SCB_TST 3
+#define END 4
-#define BYTE_F 127
-#define BYTE_B -126
-#define WORD_F 32767
-#define WORD_B 32768
+#define BYTE_F 127
+#define BYTE_B -126
+#define WORD_F 32767
+#define WORD_B 32768
-relax_typeS md_relax_table[C (END, 0)] = {
+relax_typeS md_relax_table[C (END, 0)] =
+{
{ 0, 0, 0, 0 },
{ 0, 0, 0, 0 },
{ 0, 0, 0, 0 },
};
-static struct hash_control *opcode_hash_control; /* Opcode mnemonics */
+static struct hash_control *opcode_hash_control; /* Opcode mnemonics. */
-/*
- This function is called once, at assembler startup time. This should
- set up all the tables, etc. that the MD part of the assembler needs
- */
+/* This function is called once, at assembler startup time. This should
+ set up all the tables, etc. that the MD part of the assembler needs. */
void
-md_begin ()
+md_begin (void)
{
- h8500_opcode_info *opcode;
+ const h8500_opcode_info *opcode;
char prev_buffer[100];
int idx = 0;
opcode_hash_control = hash_new ();
prev_buffer[0] = 0;
- /* Insert unique names into hash table */
+ /* Insert unique names into hash table. */
for (opcode = h8500_table; opcode->name; opcode++)
{
if (idx != opcode->idx)
}
}
-static int rn; /* register number used by RN */
-static int rs; /* register number used by RS */
-static int rd; /* register number used by RD */
-static int crb; /* byte size cr */
-static int crw; /* word sized cr */
-static int cr; /* unknown size cr */
-
-static expressionS displacement;/* displacement expression */
-static int displacement_size; /* and size if given */
+static int rn; /* Register number used by RN. */
+static int rs; /* Register number used by RS. */
+static int rd; /* Register number used by RD. */
+static int crb; /* Byte size cr. */
+static int crw; /* Word sized cr. */
+static int cr; /* Unknown size cr. */
+static expressionS displacement;/* Displacement expression. */
static int immediate_inpage;
-static expressionS immediate; /* immediate expression */
-static int immediate_size; /* and size if given */
-
-static expressionS absolute; /* absolute expression */
-static int absolute_size; /* and size if given */
+static expressionS immediate; /* Immediate expression. */
+static expressionS absolute; /* Absolute expression. */
typedef struct
{
int type;
- int reg;
+ unsigned int reg;
expressionS exp;
int page;
}
/* Try to parse a reg name. Return the number of chars consumed. */
+static int parse_reg (char *, int *, unsigned int *);
+
static int
-parse_reg (src, mode, reg)
- char *src;
- int *mode;
- int *reg;
+parse_reg (char *src, int *mode, unsigned int *reg)
{
char *end;
int len;
}
static char *
-parse_exp (s, op, page)
- char *s;
- expressionS *op;
- int *page;
+parse_exp (char *s, expressionS *op, int *page)
{
char *save;
char *new;
}
typedef enum
- {
- exp_signed, exp_unsigned, exp_sandu
- } sign_type;
+{
+ exp_signed, exp_unsigned, exp_sandu
+} sign_type;
static char *
-skip_colonthing (sign, ptr, exp, def, size8, size16, size24)
- sign_type sign;
- char *ptr;
- h8500_operand_info *exp;
- int def;
- int size8;
- int size16;
- int size24;
+skip_colonthing (sign_type sign,
+ char *ptr,
+ h8500_operand_info *exp,
+ int def,
+ int size8,
+ int size16,
+ int size24)
{
ptr = parse_exp (ptr, &exp->exp, &exp->page);
if (*ptr == ':')
ptr++;
exp->type = size8;
}
- else if (ptr[0] == '1' & ptr[1] == '6')
+ else if (ptr[0] == '1' && ptr[1] == '6')
{
ptr += 2;
exp->type = size16;
}
- else if (ptr[0] == '2' & ptr[1] == '4')
+ else if (ptr[0] == '2' && ptr[1] == '4')
{
if (!size24)
{
else
{
if (exp->page == 'p')
- {
- exp->type = IMM8;
- }
+ exp->type = IMM8;
else if (exp->page == 'h')
- {
- exp->type = IMM16;
- }
+ exp->type = IMM16;
else
{
- /* Let's work out the size from the context */
+ /* Let's work out the size from the context. */
int n = exp->exp.X_add_number;
+
if (size8
&& exp->exp.X_op == O_constant
&& ((sign == exp_signed && (n >= -128 && n <= 127))
|| (sign == exp_unsigned && (n >= 0 && (n <= 255)))
|| (sign == exp_sandu && (n >= -128 && (n <= 255)))))
- {
- exp->type = size8;
- }
+ exp->type = size8;
else
- {
- exp->type = def;
- }
+ exp->type = def;
}
}
return ptr;
}
static int
-parse_reglist (src, op)
- char *src;
- h8500_operand_info *op;
+parse_reglist (char *src, h8500_operand_info *op)
{
int mode;
- int rn;
+ unsigned int rn;
int mask = 0;
- int rm;
- int idx = 1; /* skip ( */
+ unsigned int rm;
+ int idx = 1;
+ /* Skip (. */
while (src[idx] && src[idx] != ')')
{
int done = parse_reg (src + idx, &mode, &rn);
as_bad (_("syntax error in reg list"));
return 0;
}
+
if (src[idx] == '-')
{
idx++;
}
}
else
- {
- as_bad (_("missing final register in range"));
- }
+ as_bad (_("missing final register in range"));
}
+
if (src[idx] == ',')
idx++;
}
op->exp.X_unsigned = 1;
op->type = IMM8;
return idx;
-
}
/* The many forms of operand:
@Rn+
@-Rn
@aa[:size] absolute
- #xx[:size] immediate data
-
- */
+ #xx[:size] immediate data. */
static void
-get_operand (ptr, op, ispage)
- char **ptr;
- h8500_operand_info *op;
- char ispage;
+get_operand (char **ptr,
+ h8500_operand_info *op,
+ char ispage)
{
char *src = *ptr;
int mode;
unsigned int num;
unsigned int len;
+
op->page = 0;
if (src[0] == '(' && src[1] == 'r')
{
return;
}
else
- {
- *ptr = skip_colonthing (exp_signed, src, op,
- ispage ? ABS24 : PCREL8, PCREL8, PCREL16, ABS24);
- }
+ *ptr = skip_colonthing (exp_signed, src, op,
+ ispage ? ABS24 : PCREL8, PCREL8, PCREL16, ABS24);
}
static char *
-get_operands (info, args, operand)
- h8500_opcode_info *info;
- char *args;
- h8500_operand_info *operand;
-
+get_operands (h8500_opcode_info *info,
+ char *args,
+ h8500_operand_info *operand)
{
char *ptr = args;
addressing modes, return the opcode which matches the opcodes
provided. */
-int pcrel8; /* Set when we've seen a pcrel operand */
+int pcrel8; /* Set when we've seen a pcrel operand. */
static h8500_opcode_info *
-get_specific (opcode, operands)
- h8500_opcode_info *opcode;
- h8500_operand_info *operands;
+get_specific (h8500_opcode_info *opcode,
+ h8500_operand_info *operands)
{
h8500_opcode_info *this_try = opcode;
int found = 0;
unsigned int noperands = opcode->nargs;
-
- unsigned int this_index = opcode->idx;
+ int this_index = opcode->idx;
while (this_index == opcode->idx && !found)
{
this_try = opcode++;
- /* look at both operands needed by the opcodes and provided by
- the user*/
+ /* Look at both operands needed by the opcodes and provided by
+ the user. */
for (i = 0; i < noperands; i++)
{
h8500_operand_info *user = operands + i;
switch (this_try->arg_type[i])
{
case FPIND_D8:
- /* Opcode needs (disp:8,fp) */
+ /* Opcode needs (disp:8,fp). */
if (user->type == RNIND_D8 && user->reg == 6)
{
displacement = user->exp;
case SPDEC:
if (user->type == RNDEC && user->reg == 7)
- {
- continue;
- }
+ continue;
break;
+
case SPINC:
if (user->type == RNINC && user->reg == 7)
- {
- continue;
- }
+ continue;
break;
+
case ABS16:
if (user->type == ABS16)
{
break;
case FP:
if (user->type == RN && user->reg == 6)
- {
- continue;
- }
+ continue;
break;
+
case PCREL16:
if (user->type == PCREL16)
{
case QIM:
if (user->type == IMM8
&& user->exp.X_op == O_constant
- &&
- (user->exp.X_add_number == -2
+ && (user->exp.X_add_number == -2
|| user->exp.X_add_number == -1
|| user->exp.X_add_number == 1
|| user->exp.X_add_number == 2))
case RNIND:
case RNDEC:
case RN:
-
if (user->type == this_try->arg_type[i])
{
rn = user->reg;
break;
case SP:
if (user->type == RN && user->reg == 7)
- {
- continue;
- }
+ continue;
break;
default:
printf (_("unhandled %d\n"), this_try->arg_type[i]);
break;
}
- /* If we get here this didn't work out */
+ /* If we get here this didn't work out. */
goto fail;
}
found = 1;
return 0;
}
-int
-check (operand, low, high)
- expressionS *operand;
- int low;
- int high;
+static int
+check (expressionS *operand,
+ int low,
+ int high)
{
if (operand->X_op != O_constant
|| operand->X_add_number < low
|| operand->X_add_number > high)
- {
- as_bad (_("operand must be absolute in range %d..%d"), low, high);
- }
+ as_bad (_("operand must be absolute in range %d..%d"), low, high);
+
return operand->X_add_number;
}
-
+
static void
-insert (output, index, exp, reloc, pcrel)
- char *output;
- int index;
- expressionS *exp;
- int reloc;
- int pcrel;
+insert (char *output, int index, expressionS *exp, int reloc, int pcrel)
{
fix_new_exp (frag_now,
output - frag_now->fr_literal + index,
- 4, /* always say size is 4, but we know better */
- exp,
- pcrel,
- reloc);
+ 4, /* Always say size is 4, but we know better. */
+ exp, pcrel, reloc);
}
-void
-build_relaxable_instruction (opcode, operand)
- h8500_opcode_info *opcode;
- h8500_operand_info *operand;
+static void
+build_relaxable_instruction (h8500_opcode_info *opcode,
+ h8500_operand_info *operand ATTRIBUTE_UNUSED)
{
/* All relaxable instructions start life as two bytes but can become
three bytes long if a lonely branch and up to 9 bytes if long
int type;
if (opcode->bytes[0].contents == 0x01)
- {
- type = SCB_F;
- }
+ type = SCB_F;
else if (opcode->bytes[0].contents == 0x06
|| opcode->bytes[0].contents == 0x07)
- {
- type = SCB_TST;
- }
+ type = SCB_TST;
else
- {
- type = BRANCH;
- }
+ type = BRANCH;
p = frag_var (rs_machine_dependent,
md_relax_table[C (type, WORD_DISP)].rlx_length,
p[0] = opcode->bytes[0].contents;
if (type != BRANCH)
- {
- p[1] = opcode->bytes[1].contents | rs;
- }
+ p[1] = opcode->bytes[1].contents | rs;
}
/* Now we know what sort of opcodes it is, let's build the bytes. */
static void
-build_bytes (opcode, operand)
- h8500_opcode_info *opcode;
- h8500_operand_info *operand;
-
+build_bytes (h8500_opcode_info *opcode, h8500_operand_info *operand)
{
int index;
the frags/bytes it assembles to. */
void
-md_assemble (str)
- char *str;
+md_assemble (char *str)
{
char *op_start;
char *op_end;
for (op_start = op_end = str;
!is_end_of_line[(unsigned char) *op_end] && *op_end != ' ';
op_end++)
- {
- if ( /**op_end != '.'
- && *op_end != ':'
- && */ nlen < 10)
- {
- name[nlen++] = *op_end;
- }
- }
+ if (nlen < 10)
+ name[nlen++] = *op_end;
+
name[nlen] = 0;
if (op_end == op_start)
if (opcode == 0)
{
- /* Couldn't find an opcode which matched the operands */
+ /* Couldn't find an opcode which matched the operands. */
char *where = frag_more (2);
where[0] = 0x0;
}
void
-tc_crawl_symbol_chain (headers)
- object_headers *headers;
+tc_crawl_symbol_chain (object_headers *headers ATTRIBUTE_UNUSED)
{
printf (_("call to tc_crawl_symbol_chain \n"));
}
symbolS *
-md_undefined_symbol (name)
- char *name;
+md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
{
- return 0;
+ return NULL;
}
void
-tc_headers_hook (headers)
- object_headers *headers;
+tc_headers_hook (object_headers *headers ATTRIBUTE_UNUSED)
{
printf (_("call to tc_headers_hook \n"));
}
returned, or NULL on OK. */
char *
-md_atof (type, litP, sizeP)
- char type;
- char *litP;
- int *sizeP;
+md_atof (int type, char *litP, int *sizeP)
{
int prec;
LITTLENUM_TYPE words[MAX_LITTLENUMS];
LITTLENUM_TYPE *wordP;
char *t;
- char *atof_ieee ();
switch (type)
{
return 0;
}
\f
-CONST char *md_shortopts = "";
-struct option md_longopts[] = {
+const char *md_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;
+md_parse_option (int c ATTRIBUTE_UNUSED, char *arg ATTRIBUTE_UNUSED)
{
return 0;
}
void
-md_show_usage (stream)
- FILE *stream;
+md_show_usage (FILE *stream ATTRIBUTE_UNUSED)
{
}
\f
-void
-tc_aout_fix_to_chars ()
-{
- printf (_("call to tc_aout_fix_to_chars \n"));
- abort ();
-}
-
static void
-wordify_scb (buffer, disp_size, inst_size)
- char *buffer;
- int *disp_size;
- int *inst_size;
+wordify_scb (char *buffer, int *disp_size, int *inst_size)
{
int rn = buffer[1] & 0x7;
are. */
void
-md_convert_frag (headers, seg, fragP)
- object_headers *headers;
- segT seg;
- fragS *fragP;
+md_convert_frag (object_headers *headers ATTRIBUTE_UNUSED,
+ segT seg ATTRIBUTE_UNUSED,
+ fragS *fragP)
{
int disp_size = 0;
int inst_size = 0;
}
if (inst_size)
{
- /* Get the address of the end of the instruction */
+ /* Get the address of the end of the instruction. */
int next_inst = fragP->fr_fix + fragP->fr_address + disp_size + inst_size;
int targ_addr = (S_GET_VALUE (fragP->fr_symbol) +
fragP->fr_offset);
}
valueT
-md_section_align (seg, size)
- segT seg ;
- valueT size;
+md_section_align (segT seg, valueT size)
{
return ((size + (1 << section_alignment[(int) seg]) - 1)
& (-1 << section_alignment[(int) seg]));
-
}
void
-md_apply_fix (fixP, val)
- fixS *fixP;
- long val;
+md_apply_fix (fixS *fixP, valueT * valP, segT seg ATTRIBUTE_UNUSED)
{
+ long val = * (long *) valP;
char *buf = fixP->fx_where + fixP->fx_frag->fr_literal;
if (fixP->fx_r_type == 0)
- {
- fixP->fx_r_type = fixP->fx_size == 4 ? R_H8500_IMM32 : R_H8500_IMM16;
- }
+ fixP->fx_r_type = fixP->fx_size == 4 ? R_H8500_IMM32 : R_H8500_IMM16;
switch (fixP->fx_r_type)
{
-
case R_H8500_IMM8:
case R_H8500_PCREL8:
*buf++ = val;
break;
default:
abort ();
-
}
+
+ if (fixP->fx_addsy == NULL && fixP->fx_pcrel == 0)
+ fixP->fx_done = 1;
}
-/*
-called just before address relaxation, return the length
-by which a fragment must grow to reach it's destination
-*/
+/* Called just before address relaxation, return the length
+ by which a fragment must grow to reach it's destination. */
+
int
-md_estimate_size_before_relax (fragP, segment_type)
- register fragS *fragP;
- register segT segment_type;
+md_estimate_size_before_relax (fragS *fragP, segT segment_type)
{
int what;
case C (SCB_F, UNDEF_BYTE_DISP):
case C (SCB_TST, UNDEF_BYTE_DISP):
what = GET_WHAT (fragP->fr_subtype);
- /* used to be a branch to somewhere which was unknown */
+ /* Used to be a branch to somewhere which was unknown. */
if (S_GET_SEGMENT (fragP->fr_symbol) == segment_type)
{
/* Got a symbol and it's defined in this segment, become byte
fragP->fr_subtype = C (what, BYTE_DISP);
}
else
- {
- /* Its got a segment, but its not ours, so it will always be
- long. */
- fragP->fr_subtype = C (what, UNDEF_WORD_DISP);
- }
+ /* Its got a segment, but its not ours, so it will always be
+ long. */
+ fragP->fr_subtype = C (what, UNDEF_WORD_DISP);
break;
case C (BRANCH, BYTE_DISP):
/* Put number into target byte order. */
void
-md_number_to_chars (ptr, use, nbytes)
- char *ptr;
- valueT use;
- int nbytes;
+md_number_to_chars (char *ptr, valueT use, int nbytes)
{
number_to_chars_bigendian (ptr, use, nbytes);
}
long
-md_pcrel_from (fixP)
- fixS *fixP;
+md_pcrel_from (fixS *fixP)
{
return fixP->fx_size + fixP->fx_where + fixP->fx_frag->fr_address;
}
void
-tc_coff_symbol_emit_hook (ignore)
- symbolS *ignore;
+tc_coff_symbol_emit_hook (symbolS *ignore ATTRIBUTE_UNUSED)
{
}
short
-tc_coff_fix2rtype (fix_ptr)
- fixS *fix_ptr;
+tc_coff_fix2rtype (fixS *fix_ptr)
{
if (fix_ptr->fx_r_type == RELOC_32)
{
- /* cons likes to create reloc32's whatever the size of the reloc..
- */
+ /* Cons likes to create reloc32's whatever the size of the reloc. */
switch (fix_ptr->fx_size)
{
case 2:
}
void
-tc_reloc_mangle (fix_ptr, intr, base)
- fixS *fix_ptr;
- struct internal_reloc *intr;
- bfd_vma base;
-
+tc_reloc_mangle (fixS *fix_ptr,
+ struct internal_reloc *intr,
+ bfd_vma base)
{
symbolS *symbol_ptr;
to output it */
if (fix_ptr->fx_r_type == RELOC_32)
{
- /* cons likes to create reloc32's whatever the size of the reloc..
- */
+ /* Cons likes to create reloc32's whatever the size of the reloc. */
switch (fix_ptr->fx_size)
{
case 2:
}
}
else
- {
- intr->r_type = fix_ptr->fx_r_type;
- }
+ intr->r_type = fix_ptr->fx_r_type;
intr->r_vaddr = fix_ptr->fx_frag->fr_address + fix_ptr->fx_where + base;
intr->r_offset = fix_ptr->fx_offset;
dot = segment_info[S_GET_SEGMENT (symbol_ptr)].dot;
if (dot)
{
-#if 0
- intr->r_offset -=
- segment_info[S_GET_SEGMENT (symbol_ptr)].scnhdr.s_paddr;
-#endif
intr->r_offset += S_GET_VALUE (symbol_ptr);
intr->r_symndx = dot->sy_number;
}
else
- {
- intr->r_symndx = symbol_ptr->sy_number;
- }
-
+ intr->r_symndx = symbol_ptr->sy_number;
}
else
- {
- intr->r_symndx = -1;
- }
-
+ intr->r_symndx = -1;
}
int
-start_label (ptr)
- char *ptr;
+start_label (char *ptr)
{
/* Check for :s.w */
- if (isalpha (ptr[1]) && ptr[2] == '.')
+ if (ISALPHA (ptr[1]) && ptr[2] == '.')
return 0;
/* Check for :s */
- if (isalpha (ptr[1]) && !isalpha (ptr[2]))
+ if (ISALPHA (ptr[1]) && !ISALPHA (ptr[2]))
return 0;
return 1;
}
int
-tc_coff_sizemachdep (frag)
- fragS *frag;
+tc_coff_sizemachdep (fragS *frag)
{
return md_relax_table[frag->fr_subtype].rlx_length;
}