/* tc-fr30.c -- Assembler for the Fujitsu FR30.
- Copyright (C) 1998 Free Software Foundation.
+ Copyright (C) 1998-2017 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 2, or (at your option)
+ 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,
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. */
+ the Free Software Foundation, 51 Franklin Street - Fifth Floor,
+ Boston, MA 02110-1301, USA. */
-
-/*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- This file is work in progress and was copied from m32r/tc-m32r.c in
- order to all gas/configure to run with the target fr30-unknown-elf.
- Other than changing all occurances for m32r to fr30, this file has not
- been customized for fr30 in any way.
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*/
-
-#include <stdio.h>
-#include <ctype.h>
#include "as.h"
-#include "subsegs.h"
+#include "safe-ctype.h"
+#include "subsegs.h"
#include "symcat.h"
-#include "cgen-opc.h"
+#include "opcodes/fr30-desc.h"
+#include "opcodes/fr30-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 *)0;
-
/* Structure to hold all of the different components describing
an individual instruction. */
typedef struct
int num_fixups;
fixS * fixups [GAS_CGEN_MAX_FIXUPS];
int indices [MAX_OPERAND_INSTANCES];
- sym_linkS *debug_sym_link;
}
fr30_insn;
-/* prev_insn.insn is non-null if last insn was a 16 bit insn on a 32 bit
- boundary (i.e. was the first of two 16 bit insns). */
-static fr30_insn prev_insn;
-
-/* Non-zero if we've seen a relaxable insn since the last 32 bit
- alignment request. */
-static int seen_relaxable_p = 0;
-
-/* Non-zero if -relax specified, in which case sufficient relocs are output
- for the linker to do relaxing.
- We do simple forms of relaxing internally, but they are always done.
- This flag does not apply to them. */
-static int fr30_relax;
-
-#if 0 /* not supported yet */
-/* If non-NULL, pointer to cpu description file to read.
- This allows runtime additions to the assembler. */
-static const char * fr30_cpu_desc;
-#endif
-
-/* Non-zero if warn when a high/shigh reloc has no matching low reloc.
- Each high/shigh reloc must be paired with it's low cousin in order to
- properly calculate the addend in a relocatable link (since there is a
- potential carry from the low to the high/shigh).
- This option is off by default though for user-written assembler code it
- might make sense to make the default be on (i.e. have gcc pass a flag
- to turn it off). This warning must not be on for GCC created code as
- optimization may delete the low but not the high/shigh (at least we
- shouldn't assume or require it to). */
-static int warn_unmatched_high = 0;
-
-/* stuff for .scomm symbols. */
-static segT sbss_section;
-static asection scom_section;
-static asymbol scom_symbol;
-
const char comment_chars[] = ";";
const char line_comment_chars[] = "#";
-const char line_separator_chars[] = "";
+const char line_separator_chars[] = "|";
const char EXP_CHARS[] = "eE";
const char FLT_CHARS[] = "dD";
-
-/* Relocations against symbols are done in two
- parts, with a HI relocation and a LO relocation. Each relocation
- has only 16 bits of space to store an addend. This means that in
- order for the linker to handle carries correctly, it must be able
- to locate both the HI and the LO relocation. This means that the
- relocations must appear in order in the relocation table.
-
- In order to implement this, we keep track of each unmatched HI
- relocation. We then sort them so that they immediately precede the
- corresponding LO relocation. */
-
-struct fr30_hi_fixup
-{
- struct fr30_hi_fixup * next; /* Next HI fixup. */
- fixS * fixp; /* This fixup. */
- segT seg; /* The section this fixup is in. */
-
-};
-
-/* The list of unmatched HI relocs. */
-
-static struct fr30_hi_fixup * fr30_hi_fixup_list;
-
\f
#define FR30_SHORTOPTS ""
const char * md_shortopts = FR30_SHORTOPTS;
struct option md_longopts[] =
{
- /* Sigh. I guess all warnings must now have both variants. */
-#define OPTION_WARN_UNMATCHED (OPTION_MD_BASE + 4)
- {"warn-unmatched-high", OPTION_WARN_UNMATCHED},
- {"Wuh", OPTION_WARN_UNMATCHED},
-#define OPTION_NO_WARN_UNMATCHED (OPTION_MD_BASE + 5)
- {"no-warn-unmatched-high", OPTION_WARN_UNMATCHED},
- {"Wnuh", OPTION_WARN_UNMATCHED},
-
-#if 0 /* not supported yet */
-#define OPTION_RELAX (OPTION_MD_BASE + 6)
- {"relax", no_argument, NULL, OPTION_RELAX},
-#define OPTION_CPU_DESC (OPTION_MD_BASE + 7)
- {"cpu-desc", required_argument, NULL, OPTION_CPU_DESC},
-#endif
-
{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,
+ const char *arg ATTRIBUTE_UNUSED)
{
switch (c)
{
- case OPTION_WARN_UNMATCHED:
- warn_unmatched_high = 1;
- break;
-
- case OPTION_NO_WARN_UNMATCHED:
- warn_unmatched_high = 0;
- break;
-
-#if 0 /* not supported yet */
- case OPTION_RELAX:
- fr30_relax = 1;
- break;
- case OPTION_CPU_DESC:
- fr30_cpu_desc = arg;
- break;
-#endif
-
default:
return 0;
}
}
void
-md_show_usage (stream)
- FILE * stream;
+md_show_usage (FILE * stream)
{
fprintf (stream, _(" FR30 specific command line options:\n"));
-
- fprintf (stream, _("\
- -warn-unmatched-high warn when an (s)high reloc has no matching low reloc\n"));
- fprintf (stream, _("\
- -no-warn-unmatched-high do not warn about missing low relocs\n"));
- fprintf (stream, _("\
- -Wuh synonym for -warn-unmatched-high\n"));
- fprintf (stream, _("\
- -Wnuh synonym for -no-warn-unmatched-high\n"));
-
-#if 0
- fprintf (stream, _("\
- -relax create linker relaxable code\n"));
- fprintf (stream, _("\
- -cpu-desc provide runtime cpu description file\n"));
-#endif
-}
-
-static void fill_insn PARAMS ((int));
-static void fr30_scomm PARAMS ((int));
-static void debug_sym PARAMS ((int));
-static void expand_debug_syms PARAMS ((sym_linkS *, int));
-
-/* Set by md_assemble for use by fr30_fill_insn. */
-static subsegT prev_subseg;
-static segT prev_seg;
+}
/* The target specific pseudo-ops which we support. */
const pseudo_typeS md_pseudo_table[] =
{
{ "word", cons, 4 },
- { "fillinsn", fill_insn, 0 },
- { "scomm", fr30_scomm, 0 },
- { "debugsym", debug_sym, 0 },
- { NULL, NULL, 0 }
+ { NULL, NULL, 0 }
};
-/* FIXME: Should be machine generated. */
-#define NOP_INSN 0x7000
-#define PAR_NOP_INSN 0xf000 /* can only be used in 2nd slot */
-
-/* When we align the .text section, insert the correct NOP pattern.
- N is the power of 2 alignment. LEN is the length of pattern FILL.
- MAX is the maximum number of characters to skip when doing the alignment,
- or 0 if there is no maximum. */
-
-int
-fr30_do_align (n, fill, len, max)
- int n;
- const char * fill;
- int len;
- int max;
-{
- /* Only do this if the fill pattern wasn't specified. */
- if (fill == NULL
- && (now_seg->flags & SEC_CODE) != 0
- /* Only do this special handling if aligning to at least a
- 4 byte boundary. */
- && n > 1
- /* Only do this special handling if we're allowed to emit at
- least two bytes. */
- && (max == 0 || max > 1))
- {
- static const unsigned char nop_pattern[] = { 0xf0, 0x00 };
-
-#if 0
- /* First align to a 2 byte boundary, in case there is an odd .byte. */
- /* FIXME: How much memory will cause gas to use when assembling a big
- program? Perhaps we can avoid the frag_align call? */
- frag_align (1, 0, 0);
-#endif
- /* Next align to a 4 byte boundary (we know n >= 2) using a parallel
- nop. */
- frag_align_pattern (2, nop_pattern, sizeof nop_pattern, 0);
- /* If doing larger alignments use a repeating sequence of appropriate
- nops. */
- if (n > 2)
- {
- static const unsigned char multi_nop_pattern[] =
- { 0x70, 0x00, 0xf0, 0x00 };
- frag_align_pattern (n, multi_nop_pattern, sizeof multi_nop_pattern,
- max ? max - 2 : 0);
- }
-
- prev_insn.insn = NULL;
- return 1;
- }
-
- return 0;
-}
-
-/* If the last instruction was the first of 2 16 bit insns,
- output a nop to move the PC to a 32 bit boundary.
-
- This is done via an alignment specification since branch relaxing
- may make it unnecessary.
-
- Internally, we need to output one of these each time a 32 bit insn is
- seen after an insn that is relaxable. */
-
-static void
-fill_insn (ignore)
- int ignore;
-{
- (void) fr30_do_align (2, NULL, 0, 0);
- prev_insn.insn = NULL;
- seen_relaxable_p = 0;
-}
-
-/* Record the symbol so that when we output the insn, we can create
- a symbol that is at the start of the instruction. This is used
- to emit the label for the start of a breakpoint without causing
- the assembler to emit a NOP if the previous instruction was a
- 16 bit instruction. */
-
-static void
-debug_sym (ignore)
- int ignore;
-{
- register char *name;
- register char delim;
- register char *end_name;
- register symbolS *symbolP;
- register sym_linkS *link;
-
- name = input_line_pointer;
- delim = get_symbol_end ();
- end_name = input_line_pointer;
-
- if ((symbolP = symbol_find (name)) == NULL
- && (symbolP = md_undefined_symbol (name)) == NULL)
- {
- symbolP = symbol_new (name, undefined_section, 0, &zero_address_frag);
- }
-
- symbol_table_insert (symbolP);
- if (S_IS_DEFINED (symbolP) && S_GET_SEGMENT (symbolP) != reg_section)
- /* xgettext:c-format */
- as_bad (_("symbol `%s' already defined"), S_GET_NAME (symbolP));
-
- else
- {
- link = (sym_linkS *) xmalloc (sizeof (sym_linkS));
- link->symbol = symbolP;
- link->next = debug_sym_link;
- debug_sym_link = link;
- symbolP->local = 1;
- }
-
- *end_name = delim;
- demand_empty_rest_of_line ();
-}
-
-/* Second pass to expanding the debug symbols, go through linked
- list of symbols and reassign the address. */
-
-static void
-expand_debug_syms (syms, align)
- sym_linkS *syms;
- int align;
-{
- char *save_input_line = input_line_pointer;
- sym_linkS *next_syms;
-
- if (!syms)
- return;
-
- (void) fr30_do_align (align, NULL, 0, 0);
- for (; syms != (sym_linkS *)0; syms = next_syms)
- {
- symbolS *symbolP = syms->symbol;
- next_syms = syms->next;
- input_line_pointer = ".\n";
- pseudo_set (symbolP);
- free ((char *)syms);
- }
-
- input_line_pointer = save_input_line;
-}
-
-/* Cover function to fill_insn called after a label and at end of assembly.
- The result is always 1: we're called in a conditional to see if the
- current line is a label. */
-
-int
-fr30_fill_insn (done)
- int done;
-{
- if (prev_seg != NULL)
- {
- segT seg = now_seg;
- subsegT subseg = now_subseg;
-
- subseg_set (prev_seg, prev_subseg);
-
- fill_insn (0);
-
- subseg_set (seg, subseg);
- }
-
- if (done && debug_sym_link)
- {
- expand_debug_syms (debug_sym_link, 1);
- debug_sym_link = (sym_linkS *)0;
- }
-
- return 1;
-}
\f
void
-md_begin ()
+md_begin (void)
{
- flagword applicable;
- segT seg;
- subsegT subseg;
-
/* Initialize the `cgen' interface. */
-
+
/* Set the machine number and endian. */
- gas_cgen_opcode_desc = fr30_cgen_opcode_open (0 /* mach number */,
- target_big_endian ?
- CGEN_ENDIAN_BIG
- : CGEN_ENDIAN_LITTLE);
- fr30_cgen_init_asm (gas_cgen_opcode_desc);
+ 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_opcode_desc, gas_cgen_parse_operand);
-
-#if 0 /* not supported yet */
- /* If a runtime cpu description file was provided, parse it. */
- if (fr30_cpu_desc != NULL)
- {
- const char * errmsg;
-
- errmsg = cgen_read_cpu_file (gas_cgen_opcode_desc, fr30_cpu_desc);
- if (errmsg != NULL)
- as_bad ("%s: %s", fr30_cpu_desc, errmsg);
- }
-#endif
-
- /* Save the current subseg so we can restore it [it's the default one and
- we don't want the initial section to be .sbss]. */
- seg = now_seg;
- subseg = now_subseg;
-
- /* The sbss section is for local .scomm symbols. */
- sbss_section = subseg_new (".sbss", 0);
-
- /* This is copied from perform_an_assembly_pass. */
- applicable = bfd_applicable_section_flags (stdoutput);
- bfd_set_section_flags (stdoutput, sbss_section, applicable & SEC_ALLOC);
-
-#if 0 /* What does this do? [see perform_an_assembly_pass] */
- seg_info (bss_section)->bss = 1;
-#endif
-
- subseg_set (seg, subseg);
-
- /* We must construct a fake section similar to bfd_com_section
- but with the name .scommon. */
- scom_section = bfd_com_section;
- scom_section.name = ".scommon";
- scom_section.output_section = & scom_section;
- scom_section.symbol = & scom_symbol;
- scom_section.symbol_ptr_ptr = & scom_section.symbol;
- scom_symbol = * bfd_com_section.symbol;
- scom_symbol.name = ".scommon";
- scom_symbol.section = & scom_section;
+ cgen_set_parse_operand_fn (gas_cgen_cpu_desc, gas_cgen_parse_operand);
}
void
-md_assemble (str)
- char * str;
+md_assemble (char *str)
{
-#if 0
+ static int last_insn_had_delay_slot = 0;
fr30_insn insn;
- char * errmsg;
- char * str2 = NULL;
+ char *errmsg;
/* 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);
-
+ (gas_cgen_cpu_desc, str, & insn.fields, insn.buffer, & errmsg);
+
if (!insn.insn)
{
- as_bad (errmsg);
+ as_bad ("%s", errmsg);
return;
}
- if (CGEN_INSN_BITSIZE (insn.insn) == 32)
- {
- /* 32 bit insns must live on 32 bit boundaries. */
- if (prev_insn.insn || seen_relaxable_p)
- {
- /* ??? If calling fill_insn too many times turns us into a memory
- pig, can we call a fn to assemble a nop instead of
- !seen_relaxable_p? */
- fill_insn (0);
- }
-
- expand_debug_syms (insn.debug_sym_link, 2);
-
- /* 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);
- }
- else
- {
- int on_32bit_boundary_p;
-
- if (CGEN_INSN_BITSIZE (insn.insn) != 16)
- abort();
-
- insn.orig_insn = insn.insn;
-
- /* Compute whether we're on a 32 bit boundary or not.
- prev_insn.insn is NULL when we're on a 32 bit boundary. */
- on_32bit_boundary_p = prev_insn.insn == NULL;
+ /* 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);
- expand_debug_syms (insn.debug_sym_link, 1);
+ /* 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));
- {
- int i;
- finished_insnS fi;
-
- /* Ensure each pair of 16 bit insns is in the same frag. */
- frag_grow (4);
-
- gas_cgen_finish_insn (insn.orig_insn, insn.buffer,
- CGEN_FIELDS_BITSIZE (& insn.fields),
- 1 /*relax_p*/, &fi);
- insn.addr = fi.addr;
- insn.frag = fi.frag;
- insn.num_fixups = fi.num_fixups;
- for (i = 0; i < fi.num_fixups; ++i)
- insn.fixups[i] = fi.fixups[i];
- }
-
- /* Keep track of whether we've seen a pair of 16 bit insns.
- prev_insn.insn is NULL when we're on a 32 bit boundary. */
- if (on_32bit_boundary_p)
- prev_insn = insn;
- else
- prev_insn.insn = NULL;
-
- /* If the insn needs the following one to be on a 32 bit boundary
- (e.g. subroutine calls), fill this insn's slot. */
- if (on_32bit_boundary_p
- && CGEN_INSN_ATTR (insn.orig_insn, CGEN_INSN_FILL_SLOT) != 0)
- fill_insn (0);
-
- /* If this is a relaxable insn (can be replaced with a larger version)
- mark the fact so that we can emit an alignment directive for a
- following 32 bit insn if we see one. */
- if (CGEN_INSN_ATTR (insn.orig_insn, CGEN_INSN_RELAXABLE) != 0)
- seen_relaxable_p = 1;
- }
-
- /* Set these so fr30_fill_insn can use them. */
- prev_seg = now_seg;
- prev_subseg = now_subseg;
-#endif
+ 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 (expressionP)
- expressionS * expressionP;
+void
+md_operand (expressionS * expressionP)
{
if (* input_line_pointer == '#')
{
}
valueT
-md_section_align (segment, size)
- segT segment;
- valueT size;
+md_section_align (segT segment, valueT size)
{
int align = bfd_get_section_alignment (stdoutput, segment);
- return ((size + (1 << align) - 1) & (-1 << align));
+
+ return ((size + (1 << align) - 1) & -(1 << align));
}
symbolS *
-md_undefined_symbol (name)
- char * name;
+md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
{
- return 0;
-}
-\f
-/* .scomm pseudo-op handler.
-
- This is a new pseudo-op to handle putting objects in .scommon.
- By doing this the linker won't need to do any work and more importantly
- it removes the implicit -G arg necessary to correctly link the object file.
-*/
-
-static void
-fr30_scomm (ignore)
- int ignore;
-{
- register char * name;
- register char c;
- register char * p;
- offsetT size;
- register symbolS * symbolP;
- offsetT align;
- int align2;
-
- name = input_line_pointer;
- c = get_symbol_end ();
-
- /* just after name is now '\0' */
- p = input_line_pointer;
- * p = c;
- SKIP_WHITESPACE ();
- if (* input_line_pointer != ',')
- {
- as_bad (_("Expected comma after symbol-name: rest of line ignored."));
- ignore_rest_of_line ();
- return;
- }
-
- input_line_pointer ++; /* skip ',' */
- if ((size = get_absolute_expression ()) < 0)
- {
- /* xgettext:c-format */
- as_warn (_(".SCOMMon length (%ld.) <0! Ignored."), (long) size);
- ignore_rest_of_line ();
- return;
- }
-
- /* The third argument to .scomm is the alignment. */
- if (* input_line_pointer != ',')
- align = 8;
- else
- {
- ++ input_line_pointer;
- align = get_absolute_expression ();
- if (align <= 0)
- {
- as_warn (_("ignoring bad alignment"));
- align = 8;
- }
- }
- /* Convert to a power of 2 alignment. */
- if (align)
- {
- for (align2 = 0; (align & 1) == 0; align >>= 1, ++ align2)
- continue;
- if (align != 1)
- {
- as_bad (_("Common alignment not a power of 2"));
- ignore_rest_of_line ();
- return;
- }
- }
- else
- align2 = 0;
-
- * p = 0;
- symbolP = symbol_find_or_make (name);
- * p = c;
-
- if (S_IS_DEFINED (symbolP))
- {
- /* xgettext:c-format */
- as_bad (_("Ignoring attempt to re-define symbol `%s'."),
- S_GET_NAME (symbolP));
- ignore_rest_of_line ();
- return;
- }
-
- if (S_GET_VALUE (symbolP) && S_GET_VALUE (symbolP) != (valueT) size)
- {
- /* xgettext:c-format */
- as_bad (_("Length of .scomm \"%s\" is already %ld. Not changed to %ld."),
- S_GET_NAME (symbolP),
- (long) S_GET_VALUE (symbolP),
- (long) size);
-
- ignore_rest_of_line ();
- return;
- }
-
- if (symbolP->local)
- {
- segT old_sec = now_seg;
- int old_subsec = now_subseg;
- char * pfrag;
-
- record_alignment (sbss_section, align2);
- subseg_set (sbss_section, 0);
-
- if (align2)
- frag_align (align2, 0, 0);
-
- if (S_GET_SEGMENT (symbolP) == sbss_section)
- symbolP->sy_frag->fr_symbol = 0;
-
- symbolP->sy_frag = frag_now;
-
- pfrag = frag_var (rs_org, 1, 1, (relax_substateT) 0, symbolP, size,
- (char *) 0);
- * pfrag = 0;
- S_SET_SIZE (symbolP, size);
- S_SET_SEGMENT (symbolP, sbss_section);
- S_CLEAR_EXTERNAL (symbolP);
- subseg_set (old_sec, old_subsec);
- }
- else
- {
- S_SET_VALUE (symbolP, (valueT) size);
- S_SET_ALIGN (symbolP, align2);
- S_SET_EXTERNAL (symbolP);
- S_SET_SEGMENT (symbolP, & scom_section);
- }
-
- demand_empty_rest_of_line ();
+ return NULL;
}
\f
/* Interface to relax_segment. */
{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.
0 value. */
int
-md_estimate_size_before_relax (fragP, segment)
- fragS * fragP;
- segT segment;
+md_estimate_size_before_relax (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.
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;
if ((strcmp (CGEN_INSN_MNEMONIC (insn),
CGEN_INSN_MNEMONIC (fragP->fr_cgen.insn))
== 0)
- && CGEN_INSN_ATTR (insn, CGEN_INSN_RELAX))
+ && CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_RELAXED))
break;
}
if (i == 4)
fragP->fr_cgen.insn = insn;
return 2;
}
-#endif
}
- return (fragP->fr_var + fragP->fr_fix - old_fr_fix);
-}
+ /* 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.
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;
+md_convert_frag (bfd *abfd ATTRIBUTE_UNUSED,
+ segT sec ATTRIBUTE_UNUSED,
+ fragS *fragP ATTRIBUTE_UNUSED)
{
-#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
}
\f
/* Functions concerning relocs. */
given a PC relative reloc. */
long
-md_pcrel_from_section (fixP, sec)
- fixS * fixP;
- segT sec;
+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;
- }
+ /* 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 (fixP->fx_frag->fr_address + fixP->fx_where) & ~1;
}
/* Return the bfd reloc type for OPERAND of INSN at fixup FIXP.
*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;
-{
-#if 0
- switch (CGEN_OPERAND_TYPE (operand))
- {
- case FR30_OPERAND_DISP8 : return BFD_RELOC_FR30_10_PCREL;
- case FR30_OPERAND_DISP16 : return BFD_RELOC_FR30_18_PCREL;
- case FR30_OPERAND_DISP24 : return BFD_RELOC_FR30_26_PCREL;
- case FR30_OPERAND_UIMM24 : return BFD_RELOC_FR30_24;
- case FR30_OPERAND_HI16 :
- case FR30_OPERAND_SLO16 :
- case FR30_OPERAND_ULO16 :
- /* If low/high/shigh/sda was used, it is recorded in `opinfo'. */
- if (fixP->tc_fix_data.opinfo != 0)
- return fixP->tc_fix_data.opinfo;
- break;
- default : /* avoid -Wall warning */
+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;
}
-#endif
+
return BFD_RELOC_NONE;
}
+\f
+/* Write a value out to the object file, using the appropriate endianness. */
-/* Record a HI16 reloc for later matching with its LO16 cousin. */
-
-static void
-fr30_record_hi16 (reloc_type, fixP, seg)
- int reloc_type;
- fixS * fixP;
- segT seg;
+void
+md_number_to_chars (char * buf, valueT val, int n)
{
- struct fr30_hi_fixup * hi_fixup;
-
- assert (reloc_type == BFD_RELOC_FR30_HI16_SLO
- || reloc_type == BFD_RELOC_FR30_HI16_ULO);
-
- hi_fixup = ((struct fr30_hi_fixup *)
- xmalloc (sizeof (struct fr30_hi_fixup)));
- hi_fixup->fixp = fixP;
- hi_fixup->seg = now_seg;
- hi_fixup->next = fr30_hi_fixup_list;
-
- fr30_hi_fixup_list = hi_fixup;
+ number_to_chars_bigendian (buf, val, n);
}
-/* Called while parsing an instruction to create a fixup.
- We need to check for HI16 relocs and queue them up for later sorting. */
-
-fixS *
-fr30_cgen_record_fixup_exp (frag, where, insn, length, operand, opinfo, exp)
- fragS * frag;
- int where;
- const CGEN_INSN * insn;
- int length;
- const CGEN_OPERAND * operand;
- int opinfo;
- expressionS * exp;
+const char *
+md_atof (int type, char * litP, int * sizeP)
{
-#if 0
- fixS * fixP = gas_cgen_record_fixup_exp (frag, where, insn, length,
- operand, opinfo, exp);
-
- switch (CGEN_OPERAND_TYPE (operand))
- {
- case FR30_OPERAND_HI16 :
- /* If low/high/shigh/sda was used, it is recorded in `opinfo'. */
- if (fixP->tc_fix_data.opinfo == BFD_RELOC_FR30_HI16_SLO
- || fixP->tc_fix_data.opinfo == BFD_RELOC_FR30_HI16_ULO)
- fr30_record_hi16 (fixP->tc_fix_data.opinfo, fixP, now_seg);
- break;
- default : /* avoid -Wall warning */
- break;
- }
-
- return fixP;
-#else
- return 0;
-#endif
+ return ieee_md_atof (type, litP, sizeP, TRUE);
}
-/* 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)
-
-/* Sort any unmatched HI16 relocs so that they immediately precede
- the corresponding LO16 reloc. This is called before md_apply_fix and
- tc_gen_reloc. */
+/* 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;
+}
-void
-fr30_frob_file ()
+/* 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)
{
- struct fr30_hi_fixup * l;
+ char * i_l_p = input_line_pointer;
- for (l = fr30_hi_fixup_list; l != NULL; l = l->next)
+ 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)
{
- segment_info_type * seginfo;
- int pass;
-
- assert (FX_OPINFO_R_TYPE (l->fixp) == BFD_RELOC_FR30_HI16_SLO
- || FX_OPINFO_R_TYPE (l->fixp) == BFD_RELOC_FR30_HI16_ULO);
-
- /* Check quickly whether the next fixup happens to be a matching low. */
- if (l->fixp->fx_next != NULL
- && FX_OPINFO_R_TYPE (l->fixp->fx_next) == BFD_RELOC_FR30_LO16
- && l->fixp->fx_addsy == l->fixp->fx_next->fx_addsy
- && l->fixp->fx_offset == l->fixp->fx_next->fx_offset)
- continue;
-
- /* Look through the fixups for this segment for a matching `low'.
- When we find one, move the high/shigh just in front of it. We do
- this in two passes. In the first pass, we try to find a
- unique `low'. In the second pass, we permit multiple high's
- relocs for a single `low'. */
- seginfo = seg_info (l->seg);
- for (pass = 0; pass < 2; pass++)
+ /* 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'))
{
- fixS * f;
- fixS * prev;
+ /* 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"
+ };
- prev = NULL;
- for (f = seginfo->fix_root; f != NULL; f = f->fx_next)
+ for (i = sizeof (delay_insns) / sizeof (delay_insns[0]); i--;)
{
- /* Check whether this is a `low' fixup which matches l->fixp. */
- if (FX_OPINFO_R_TYPE (f) == BFD_RELOC_FR30_LO16
- && f->fx_addsy == l->fixp->fx_addsy
- && f->fx_offset == l->fixp->fx_offset
- && (pass == 1
- || prev == NULL
- || (FX_OPINFO_R_TYPE (prev) != BFD_RELOC_FR30_HI16_SLO
- && FX_OPINFO_R_TYPE (prev) != BFD_RELOC_FR30_HI16_ULO)
- || prev->fx_addsy != f->fx_addsy
- || prev->fx_offset != f->fx_offset))
- {
- fixS ** pf;
-
- /* Move l->fixp before f. */
- for (pf = &seginfo->fix_root;
- * pf != l->fixp;
- pf = & (* pf)->fx_next)
- assert (* pf != NULL);
-
- * pf = l->fixp->fx_next;
-
- l->fixp->fx_next = f;
- if (prev == NULL)
- seginfo->fix_root = l->fixp;
- else
- prev->fx_next = l->fixp;
+ const char * insn = delay_insns[i];
+ int len = strlen (insn);
+ if (start [len] != 0)
+ continue;
+
+ while (len --)
+ if (TOLOWER (start [len]) != insn [len])
break;
- }
- prev = f;
+ if (len == -1)
+ return restore_colon (i_l_p + 1, nul_char);
}
-
- if (f != NULL)
- break;
-
- if (pass == 1
- && warn_unmatched_high)
- as_warn_where (l->fixp->fx_file, l->fixp->fx_line,
- _("Unmatched high/shigh reloc"));
}
- }
-}
-
-/* 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;
-
- if (! fr30_relax)
- return 0;
- return (fix->fx_pcrel
- || 0 /* ??? */);
-}
-\f
-/* 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;
-{
- if (target_big_endian)
- number_to_chars_bigendian (buf, val, n);
- else
- number_to_chars_littleendian (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;
+ /* Nope - it is a normal label. */
+ return 0;
+ }
- /* FIXME: Some targets allow other format chars for bigger sizes here. */
+ /* 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);
- default:
- * sizeP = 0;
- return _("Bad call to md_atof()");
- }
+ /* 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);
- t = atof_ieee (input_line_pointer, type, words);
- if (t)
- input_line_pointer = t;
- * sizeP = prec * sizeof (LITTLENUM_TYPE);
+ /* 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);
- if (target_big_endian)
- {
- for (i = 0; i < prec; i++)
- {
- md_number_to_chars (litP, (valueT) words[i],
- sizeof (LITTLENUM_TYPE));
- litP += sizeof (LITTLENUM_TYPE);
- }
- }
- else
- {
- for (i = prec - 1; i >= 0; i--)
- {
- md_number_to_chars (litP, (valueT) words[i],
- sizeof (LITTLENUM_TYPE));
- litP += sizeof (LITTLENUM_TYPE);
- }
- }
-
return 0;
}
-void
-fr30_elf_section_change_hook ()
-{
- /* If we have reached the end of a section and we have just emitted a
- 16 bit insn, then emit a nop to make sure that the section ends on
- a 32 bit boundary. */
-
- if (prev_insn.insn || seen_relaxable_p)
- (void) fr30_fill_insn (0);
-}
-
-boolean
-fr30_fix_adjustable (fixP)
- fixS *fixP;
+bfd_boolean
+fr30_fix_adjustable (fixS * fixP)
{
-
- if (fixP->fx_addsy == NULL)
- return 1;
-
- /* Prevent all adjustments to global symbols. */
- if (S_IS_EXTERN (fixP->fx_addsy))
- return 0;
- if (S_IS_WEAK (fixP->fx_addsy))
- return 0;
-
- /* We need the symbol name for the VTABLE entries */
+ /* 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;