[deliverable/binutils-gdb.git] / gas / config / tc-fr30.c

/* tc-fr30.c -- Assembler for the Fujitsu FR30.
   Copyright (C) 1998-2016 Free Software Foundation, Inc.

   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 3, 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, 51 Franklin Street - Fifth Floor,
   Boston, MA 02110-1301, USA.  */

#include "as.h"
#include "safe-ctype.h"
#include "subsegs.h"
#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";
\f
#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 (int c ATTRIBUTE_UNUSED,
		 const char *arg ATTRIBUTE_UNUSED)
{
  switch (c)
    {
    default:
      return 0;
    }
  return 1;
}

void
md_show_usage (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 }
};

\f
void
md_begin (void)
{
  /* Initialize the `cgen' interface.  */

  /* 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
md_assemble (char *str)
{
  static int last_insn_had_delay_slot = 0;
  fr30_insn insn;
  char *errmsg;

  /* 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);

  if (!insn.insn)
    {
      as_bad ("%s", 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);

  /* 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.  */

void
md_operand (expressionS * expressionP)
{
  if (* input_line_pointer == '#')
    {
      input_line_pointer ++;
      expression (expressionP);
    }
}

valueT
md_section_align (segT segment, valueT size)
{
  int align = bfd_get_section_alignment (stdoutput, segment);

  return ((size + (1 << align) - 1) & -(1 << align));
}

symbolS *
md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
{
  return NULL;
}
\f
/* 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
md_estimate_size_before_relax (fragS * fragP, segT segment)
{
  /* 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)
		&& CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_RELAXED))
	      break;
	  }
	if (i == 4)
	  abort ();

	fragP->fr_cgen.insn = insn;
	return 2;
      }
    }

  /* Return the size of the variable part of the frag.  */
  return md_relax_table[fragP->fr_subtype].rlx_length;
}

/* *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 (bfd *abfd ATTRIBUTE_UNUSED,
		 segT sec ATTRIBUTE_UNUSED,
		 fragS *fragP ATTRIBUTE_UNUSED)
{
}
\f
/* Functions concerning relocs.  */

/* The location from which a PC relative jump should be calculated,
   given a PC relative reloc.  */

long
md_pcrel_from_section (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) & ~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
md_cgen_lookup_reloc (const CGEN_INSN *insn ATTRIBUTE_UNUSED,
		      const CGEN_OPERAND *operand,
		      fixS *fixP)
{
  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;
    default : /* Avoid -Wall warning.  */
      break;
    }

  return BFD_RELOC_NONE;
}
\f
/* Write a value out to the object file, using the appropriate endianness.  */

void
md_number_to_chars (char * buf, valueT val, int n)
{
  number_to_chars_bigendian (buf, val, n);
}

const char *
md_atof (int type, char * litP, int * sizeP)
{
  return ieee_md_atof (type, litP, sizeP, TRUE);
}

/* Worker function for fr30_is_colon_insn().  */
static int
restore_colon (char *next_i_l_p, char *nul_char)
{
  /* Restore the colon, and advance input_line_pointer to
     the end of the new symbol.  */
  *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;
}

/* 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
   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)
{
  char * i_l_p = input_line_pointer;

  if (*nul_char == '"')
    ++i_l_p;

  /* 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 const 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--;)
	    {
	      const 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 (i_l_p + 1, nul_char);
	    }
	}

      /* 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 (i_l_p + 2, nul_char);

  /* 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 (i_l_p + 3, nul_char);

  /* 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 (i_l_p + 3, nul_char);

  return 0;
}

bfd_boolean
fr30_fix_adjustable (fixS * fixP)
{
  /* We need the symbol name for the VTABLE entries.  */
  if (fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
      || fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
    return 0;

  return 1;
}
Commit	Line	Data
252b5132	1	/* tc-fr30.c -- Assembler for the Fujitsu FR30.
6f2750fe	2	Copyright (C) 1998-2016 Free Software Foundation, Inc.
252b5132 RH	3
	4	This file is part of GAS, the GNU Assembler.
	5
	6	GAS is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
ec2655a6	8	the Free Software Foundation; either version 3, or (at your option)
252b5132 RH	9	any later version.
	10
	11	GAS is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
	15
	16	You should have received a copy of the GNU General Public License
	17	along with GAS; see the file COPYING. If not, write to
4b4da160 NC	18	the Free Software Foundation, 51 Franklin Street - Fifth Floor,
4b4da160 NC	19	Boston, MA 02110-1301, USA. */
252b5132	20
252b5132	21	#include "as.h"
3882b010	22	#include "safe-ctype.h"
81d4177b	23	#include "subsegs.h"
252b5132 RH	24	#include "symcat.h"
	25	#include "opcodes/fr30-desc.h"
	26	#include "opcodes/fr30-opc.h"
	27	#include "cgen.h"
	28
	29	/* Structure to hold all of the different components describing
	30	an individual instruction. */
	31	typedef struct
	32	{
	33	const CGEN_INSN * insn;
	34	const CGEN_INSN * orig_insn;
	35	CGEN_FIELDS fields;
	36	#if CGEN_INT_INSN_P
	37	CGEN_INSN_INT buffer [1];
	38	#define INSN_VALUE(buf) (*(buf))
	39	#else
	40	unsigned char buffer [CGEN_MAX_INSN_SIZE];
	41	#define INSN_VALUE(buf) (buf)
	42	#endif
	43	char * addr;
	44	fragS * frag;
	45	int num_fixups;
	46	fixS * fixups [GAS_CGEN_MAX_FIXUPS];
	47	int indices [MAX_OPERAND_INSTANCES];
	48	}
	49	fr30_insn;
	50
	51	const char comment_chars[] = ";";
	52	const char line_comment_chars[] = "#";
	53	const char line_separator_chars[] = "\|";
	54	const char EXP_CHARS[] = "eE";
	55	const char FLT_CHARS[] = "dD";
	56	\f
	57	#define FR30_SHORTOPTS ""
	58	const char * md_shortopts = FR30_SHORTOPTS;
	59
	60	struct option md_longopts[] =
	61	{
	62	{NULL, no_argument, NULL, 0}
	63	};
	64	size_t md_longopts_size = sizeof (md_longopts);
	65
	66	int
ea1562b3	67	md_parse_option (int c ATTRIBUTE_UNUSED,
17b9d67d	68	const char *arg ATTRIBUTE_UNUSED)
252b5132 RH	69	{
	70	switch (c)
	71	{
	72	default:
	73	return 0;
	74	}
	75	return 1;
	76	}
	77
	78	void
ea1562b3	79	md_show_usage (FILE * stream)
252b5132 RH	80	{
252b5132 RH	81	fprintf (stream, _(" FR30 specific command line options:\n"));
81d4177b	82	}
252b5132 RH	83
	84	/* The target specific pseudo-ops which we support. */
	85	const pseudo_typeS md_pseudo_table[] =
	86	{
	87	{ "word", cons, 4 },
	88	{ NULL, NULL, 0 }
	89	};
	90
	91	\f
	92	void
ea1562b3	93	md_begin (void)
252b5132	94	{
252b5132	95	/* Initialize the `cgen' interface. */
81d4177b	96
252b5132 RH	97	/* Set the machine number and endian. */
	98	gas_cgen_cpu_desc = fr30_cgen_cpu_open (CGEN_CPU_OPEN_MACHS, 0,
	99	CGEN_CPU_OPEN_ENDIAN,
	100	CGEN_ENDIAN_BIG,
	101	CGEN_CPU_OPEN_END);
	102	fr30_cgen_init_asm (gas_cgen_cpu_desc);
	103
	104	/* This is a callback from cgen to gas to parse operands. */
	105	cgen_set_parse_operand_fn (gas_cgen_cpu_desc, gas_cgen_parse_operand);
	106	}
	107
	108	void
ea1562b3	109	md_assemble (char *str)
252b5132 RH	110	{
	111	static int last_insn_had_delay_slot = 0;
	112	fr30_insn insn;
33b5881a	113	char *errmsg;
252b5132 RH	114
	115	/* Initialize GAS's cgen interface for a new instruction. */
	116	gas_cgen_init_parse ();
	117
	118	insn.insn = fr30_cgen_assemble_insn
	119	(gas_cgen_cpu_desc, str, & insn.fields, insn.buffer, & errmsg);
81d4177b	120
252b5132 RH	121	if (!insn.insn)
252b5132 RH	122	{
20203fb9	123	as_bad ("%s", errmsg);
252b5132 RH	124	return;
	125	}
	126
	127	/* Doesn't really matter what we pass for RELAX_P here. */
	128	gas_cgen_finish_insn (insn.insn, insn.buffer,
	129	CGEN_FIELDS_BITSIZE (& insn.fields), 1, NULL);
	130
	131	/* Warn about invalid insns in delay slots. */
	132	if (last_insn_had_delay_slot
	133	&& CGEN_INSN_ATTR_VALUE (insn.insn, CGEN_INSN_NOT_IN_DELAY_SLOT))
	134	as_warn (_("Instruction %s not allowed in a delay slot."),
	135	CGEN_INSN_NAME (insn.insn));
	136
	137	last_insn_had_delay_slot
	138	= CGEN_INSN_ATTR_VALUE (insn.insn, CGEN_INSN_DELAY_SLOT);
	139	}
	140
	141	/* The syntax in the manual says constants begin with '#'.
	142	We just ignore it. */
	143
81d4177b	144	void
ea1562b3	145	md_operand (expressionS * expressionP)
252b5132 RH	146	{
	147	if (* input_line_pointer == '#')
	148	{
	149	input_line_pointer ++;
	150	expression (expressionP);
	151	}
	152	}
	153
	154	valueT
ea1562b3	155	md_section_align (segT segment, valueT size)
252b5132 RH	156	{
252b5132 RH	157	int align = bfd_get_section_alignment (stdoutput, segment);
ea1562b3	158
8d3842cd	159	return ((size + (1 << align) - 1) & -(1 << align));
252b5132 RH	160	}
	161
	162	symbolS *
ea1562b3	163	md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
252b5132	164	{
ea1562b3	165	return NULL;
252b5132 RH	166	}
	167	\f
	168	/* Interface to relax_segment. */
	169
	170	/* FIXME: Build table by hand, get it working, then machine generate. */
	171
	172	const relax_typeS md_relax_table[] =
	173	{
	174	/* The fields are:
	175	1) most positive reach of this state,
	176	2) most negative reach of this state,
	177	3) how many bytes this mode will add to the size of the current frag
	178	4) which index into the table to try if we can't fit into this one. */
	179
	180	/* The first entry must be unused because an `rlx_more' value of zero ends
	181	each list. */
	182	{1, 1, 0, 0},
	183
	184	/* The displacement used by GAS is from the end of the 2 byte insn,
	185	so we subtract 2 from the following. */
	186	/* 16 bit insn, 8 bit disp -> 10 bit range.
	187	This doesn't handle a branch in the right slot at the border:
	188	the "& -4" isn't taken into account. It's not important enough to
	189	complicate things over it, so we subtract an extra 2 (or + 2 in -ve
	190	case). */
	191	{511 - 2 - 2, -512 - 2 + 2, 0, 2 },
	192	/* 32 bit insn, 24 bit disp -> 26 bit range. */
	193	{0x2000000 - 1 - 2, -0x2000000 - 2, 2, 0 },
	194	/* Same thing, but with leading nop for alignment. */
	195	{0x2000000 - 1 - 2, -0x2000000 - 2, 4, 0 }
	196	};
	197
252b5132 RH	198	/* Return an initial guess of the length by which a fragment must grow to
	199	hold a branch to reach its destination.
	200	Also updates fr_type/fr_subtype as necessary.
	201
	202	Called just before doing relaxation.
	203	Any symbol that is now undefined will not become defined.
	204	The guess for fr_var is ACTUALLY the growth beyond fr_fix.
	205	Whatever we do to grow fr_fix or fr_var contributes to our returned value.
	206	Although it may not be explicit in the frag, pretend fr_var starts with a
	207	0 value. */
	208
	209	int
ea1562b3	210	md_estimate_size_before_relax (fragS * fragP, segT segment)
252b5132	211	{
252b5132 RH	212	/* The only thing we have to handle here are symbols outside of the
	213	current segment. They may be undefined or in a different segment in
	214	which case linker scripts may place them anywhere.
	215	However, we can't finish the fragment here and emit the reloc as insn
	216	alignment requirements may move the insn about. */
	217
	218	if (S_GET_SEGMENT (fragP->fr_symbol) != segment)
	219	{
	220	/* The symbol is undefined in this segment.
	221	Change the relaxation subtype to the max allowable and leave
	222	all further handling to md_convert_frag. */
	223	fragP->fr_subtype = 2;
	224
252b5132 RH	225	{
	226	const CGEN_INSN * insn;
	227	int i;
	228
	229	/* Update the recorded insn.
	230	Fortunately we don't have to look very far.
	231	FIXME: Change this to record in the instruction the next higher
	232	relaxable insn to use. */
	233	for (i = 0, insn = fragP->fr_cgen.insn; i < 4; i++, insn++)
	234	{
	235	if ((strcmp (CGEN_INSN_MNEMONIC (insn),
	236	CGEN_INSN_MNEMONIC (fragP->fr_cgen.insn))
	237	== 0)
b11dcf4e	238	&& CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_RELAXED))
252b5132 RH	239	break;
	240	}
	241	if (i == 4)
	242	abort ();
	243
	244	fragP->fr_cgen.insn = insn;
	245	return 2;
	246	}
252b5132 RH	247	}
252b5132 RH	248
606ab118 AM	249	/* Return the size of the variable part of the frag. */
606ab118 AM	250	return md_relax_table[fragP->fr_subtype].rlx_length;
81d4177b	251	}
252b5132 RH	252
	253	/* *fragP has been relaxed to its final size, and now needs to have
	254	the bytes inside it modified to conform to the new size.
	255
	256	Called after relaxation is finished.
	257	fragP->fr_type == rs_machine_dependent.
	258	fragP->fr_subtype is the subtype of what the address relaxed to. */
	259
	260	void
ea1562b3 NC	261	md_convert_frag (bfd *abfd ATTRIBUTE_UNUSED,
	262	segT sec ATTRIBUTE_UNUSED,
	263	fragS *fragP ATTRIBUTE_UNUSED)
252b5132	264	{
252b5132 RH	265	}
	266	\f
	267	/* Functions concerning relocs. */
	268
	269	/* The location from which a PC relative jump should be calculated,
	270	given a PC relative reloc. */
	271
	272	long
ea1562b3	273	md_pcrel_from_section (fixS * fixP, segT sec)
252b5132 RH	274	{
	275	if (fixP->fx_addsy != (symbolS *) NULL
	276	&& (! S_IS_DEFINED (fixP->fx_addsy)
	277	\|\| S_GET_SEGMENT (fixP->fx_addsy) != sec))
ea1562b3 NC	278	/* The symbol is undefined (or is defined but not in this section).
	279	Let the linker figure it out. */
	280	return 0;
252b5132 RH	281
	282	return (fixP->fx_frag->fr_address + fixP->fx_where) & ~1;
	283	}
	284
	285	/* Return the bfd reloc type for OPERAND of INSN at fixup FIXP.
	286	Returns BFD_RELOC_NONE if no reloc type can be found.
	287	FIXP may be modified if desired. /
	288
	289	bfd_reloc_code_real_type
ea1562b3 NC	290	md_cgen_lookup_reloc (const CGEN_INSN *insn ATTRIBUTE_UNUSED,
	291	const CGEN_OPERAND *operand,
	292	fixS *fixP)
252b5132 RH	293	{
	294	switch (operand->type)
	295	{
	296	case FR30_OPERAND_LABEL9: fixP->fx_pcrel = 1; return BFD_RELOC_FR30_9_PCREL;
	297	case FR30_OPERAND_LABEL12: fixP->fx_pcrel = 1; return BFD_RELOC_FR30_12_PCREL;
	298	case FR30_OPERAND_DISP10: return BFD_RELOC_FR30_10_IN_8;
	299	case FR30_OPERAND_DISP9: return BFD_RELOC_FR30_9_IN_8;
	300	case FR30_OPERAND_DISP8: return BFD_RELOC_FR30_8_IN_8;
	301	case FR30_OPERAND_UDISP6: return BFD_RELOC_FR30_6_IN_4;
	302	case FR30_OPERAND_I8: return BFD_RELOC_8;
	303	case FR30_OPERAND_I32: return BFD_RELOC_FR30_48;
	304	case FR30_OPERAND_I20: return BFD_RELOC_FR30_20;
ea1562b3	305	default : /* Avoid -Wall warning. */
252b5132 RH	306	break;
	307	}
	308
	309	return BFD_RELOC_NONE;
	310	}
252b5132 RH	311	\f
	312	/* Write a value out to the object file, using the appropriate endianness. */
	313
	314	void
ea1562b3	315	md_number_to_chars (char * buf, valueT val, int n)
252b5132 RH	316	{
	317	number_to_chars_bigendian (buf, val, n);
	318	}
	319
6d4af3c2	320	const char *
ea1562b3	321	md_atof (int type, char * litP, int * sizeP)
252b5132	322	{
499ac353	323	return ieee_md_atof (type, litP, sizeP, TRUE);
252b5132 RH	324	}
	325
	326	/* Worker function for fr30_is_colon_insn(). */
2e57ce7b AM	327	static int
2e57ce7b AM	328	restore_colon (char next_i_l_p, char nul_char)
252b5132	329	{
252b5132 RH	330	/* Restore the colon, and advance input_line_pointer to
252b5132 RH	331	the end of the new symbol. */
2e57ce7b AM	332	input_line_pointer = nul_char;
	333	input_line_pointer = next_i_l_p;
	334	nul_char = next_i_l_p;
	335	*next_i_l_p = 0;
	336	return 1;
252b5132 RH	337	}
	338
	339	/* Determines if the symbol starting at START and ending in
	340	a colon that was at the location pointed to by INPUT_LINE_POINTER
	341	(but which has now been replaced bu a NUL) is in fact an
	342	LDI:8, LDI:20, LDI:32, CALL:D. JMP:D, RET:D or Bcc:D instruction.
	343	If it is, then it restores the colon, advances INPUT_LINE_POINTER
2e57ce7b AM	344	to the real end of the instruction/symbol, saves the char there to
	345	NUL_CHAR and pokes a NUL, and returns 1. Otherwise it returns 0. */
	346	int
	347	fr30_is_colon_insn (char start, char nul_char)
252b5132 RH	348	{
	349	char * i_l_p = input_line_pointer;
	350
2e57ce7b AM	351	if (*nul_char == '"')
	352	++i_l_p;
	353
ea1562b3	354	/* Check to see if the symbol parsed so far is 'ldi'. */
252b5132 RH	355	if ( (start[0] != 'l' && start[0] != 'L')
	356	\|\| (start[1] != 'd' && start[1] != 'D')
	357	\|\| (start[2] != 'i' && start[2] != 'I')
	358	\|\| start[3] != 0)
	359	{
	360	/* Nope - check to see a 'd' follows the colon. */
	361	if ( (i_l_p[1] == 'd' \|\| i_l_p[1] == 'D')
	362	&& (i_l_p[2] == ' ' \|\| i_l_p[2] == '\t' \|\| i_l_p[2] == '\n'))
	363	{
	364	/* Yup - it might be delay slot instruction. */
	365	int i;
e0471c16	366	static const char * delay_insns [] =
252b5132 RH	367	{
	368	"call", "jmp", "ret", "bra", "bno",
	369	"beq", "bne", "bc", "bnc", "bn",
	370	"bp", "bv", "bnv", "blt", "bge",
	371	"ble", "bgt", "bls", "bhi"
	372	};
	373
	374	for (i = sizeof (delay_insns) / sizeof (delay_insns[0]); i--;)
	375	{
e0471c16	376	const char * insn = delay_insns[i];
252b5132 RH	377	int len = strlen (insn);
	378
	379	if (start [len] != 0)
	380	continue;
81d4177b	381
252b5132	382	while (len --)
3882b010	383	if (TOLOWER (start [len]) != insn [len])
252b5132	384	break;
81d4177b	385
252b5132	386	if (len == -1)
2e57ce7b	387	return restore_colon (i_l_p + 1, nul_char);
252b5132 RH	388	}
	389	}
	390
	391	/* Nope - it is a normal label. */
	392	return 0;
	393	}
	394
ea1562b3	395	/* Check to see if the text following the colon is '8'. */
252b5132	396	if (i_l_p[1] == '8' && (i_l_p[2] == ' ' \|\| i_l_p[2] == '\t'))
2e57ce7b	397	return restore_colon (i_l_p + 2, nul_char);
252b5132	398
ea1562b3	399	/* Check to see if the text following the colon is '20'. */
2e57ce7b AM	400	else if (i_l_p[1] == '2' && i_l_p[2] =='0'
	401	&& (i_l_p[3] == ' ' \|\| i_l_p[3] == '\t'))
	402	return restore_colon (i_l_p + 3, nul_char);
252b5132	403
ea1562b3	404	/* Check to see if the text following the colon is '32'. */
2e57ce7b AM	405	else if (i_l_p[1] == '3' && i_l_p[2] =='2'
	406	&& (i_l_p[3] == ' ' \|\| i_l_p[3] == '\t'))
	407	return restore_colon (i_l_p + 3, nul_char);
252b5132 RH	408
	409	return 0;
	410	}
	411
b34976b6	412	bfd_boolean
ea1562b3	413	fr30_fix_adjustable (fixS * fixP)
252b5132	414	{
ea1562b3	415	/* We need the symbol name for the VTABLE entries. */
a161fe53	416	if (fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
252b5132 RH	417	\|\| fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
	418	return 0;
	419
	420	return 1;
	421	}