mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-11-21 01:12:32 +08:00
641cf0e2c0
First of all make the declarations globally visible, such that producer and consumer actually share them. For the latter two simply add const (as PPC already had it,), while for the former achieve the effect by converting to an array: There's no need for the extra level of indirection.
412 lines
10 KiB
C
412 lines
10 KiB
C
/* tc-ip2k.c -- Assembler for the Scenix IP2xxx.
|
||
Copyright (C) 2000-2024 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 "subsegs.h"
|
||
#include "symcat.h"
|
||
#include "opcodes/ip2k-desc.h"
|
||
#include "opcodes/ip2k-opc.h"
|
||
#include "cgen.h"
|
||
#include "elf/common.h"
|
||
#include "elf/ip2k.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];
|
||
}
|
||
ip2k_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";
|
||
|
||
/* Flag to detect when switching to code section where insn alignment is
|
||
implied. */
|
||
static int force_code_align = 0;
|
||
|
||
/* Mach selected from command line. */
|
||
static int ip2k_mach = 0;
|
||
static unsigned ip2k_mach_bitmask = 0;
|
||
|
||
|
||
static void
|
||
ip2k_elf_section_rtn (int i)
|
||
{
|
||
obj_elf_section(i);
|
||
|
||
if (force_code_align)
|
||
{
|
||
do_align (1, NULL, 0, 0);
|
||
force_code_align = 0;
|
||
}
|
||
}
|
||
|
||
static void
|
||
ip2k_elf_section_text (int i)
|
||
{
|
||
obj_elf_text(i);
|
||
|
||
do_align (1, NULL, 0, 0);
|
||
force_code_align = 0;
|
||
}
|
||
|
||
/* The target specific pseudo-ops which we support. */
|
||
const pseudo_typeS md_pseudo_table[] =
|
||
{
|
||
{ "text", ip2k_elf_section_text, 0 },
|
||
{ "sect", ip2k_elf_section_rtn, 0 },
|
||
{ NULL, NULL, 0 }
|
||
};
|
||
|
||
|
||
|
||
enum options
|
||
{
|
||
OPTION_CPU_IP2022 = OPTION_MD_BASE,
|
||
OPTION_CPU_IP2022EXT
|
||
};
|
||
|
||
const struct option md_longopts[] =
|
||
{
|
||
{ "mip2022", no_argument, NULL, OPTION_CPU_IP2022 },
|
||
{ "mip2022ext", no_argument, NULL, OPTION_CPU_IP2022EXT },
|
||
{ NULL, no_argument, NULL, 0 },
|
||
};
|
||
const size_t md_longopts_size = sizeof (md_longopts);
|
||
|
||
const char md_shortopts[] = "";
|
||
|
||
int
|
||
md_parse_option (int c ATTRIBUTE_UNUSED, const char * arg ATTRIBUTE_UNUSED)
|
||
{
|
||
switch (c)
|
||
{
|
||
case OPTION_CPU_IP2022:
|
||
ip2k_mach = bfd_mach_ip2022;
|
||
ip2k_mach_bitmask = 1 << MACH_IP2022;
|
||
break;
|
||
|
||
case OPTION_CPU_IP2022EXT:
|
||
ip2k_mach = bfd_mach_ip2022ext;
|
||
ip2k_mach_bitmask = 1 << MACH_IP2022EXT;
|
||
break;
|
||
|
||
default:
|
||
return 0;
|
||
}
|
||
|
||
return 1;
|
||
}
|
||
|
||
void
|
||
md_show_usage (FILE * stream)
|
||
{
|
||
fprintf (stream, _("IP2K specific command line options:\n"));
|
||
fprintf (stream, _(" -mip2022 restrict to IP2022 insns \n"));
|
||
fprintf (stream, _(" -mip2022ext permit extended IP2022 insn\n"));
|
||
}
|
||
|
||
|
||
void
|
||
md_begin (void)
|
||
{
|
||
/* Initialize the `cgen' interface. */
|
||
|
||
/* Set the machine number and endian. */
|
||
gas_cgen_cpu_desc = ip2k_cgen_cpu_open (CGEN_CPU_OPEN_MACHS,
|
||
ip2k_mach_bitmask,
|
||
CGEN_CPU_OPEN_ENDIAN,
|
||
CGEN_ENDIAN_BIG,
|
||
CGEN_CPU_OPEN_END);
|
||
ip2k_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);
|
||
|
||
/* Set the machine type. */
|
||
bfd_default_set_arch_mach (stdoutput, bfd_arch_ip2k, ip2k_mach);
|
||
|
||
literal_prefix_dollar_hex = true;
|
||
}
|
||
|
||
|
||
void
|
||
md_assemble (char * str)
|
||
{
|
||
ip2k_insn insn;
|
||
char * errmsg;
|
||
|
||
/* Initialize GAS's cgen interface for a new instruction. */
|
||
gas_cgen_init_parse ();
|
||
|
||
insn.insn = ip2k_cgen_assemble_insn
|
||
(gas_cgen_cpu_desc, str, & insn.fields, insn.buffer, & errmsg);
|
||
|
||
if (!insn.insn)
|
||
{
|
||
as_bad ("%s", errmsg);
|
||
return;
|
||
}
|
||
|
||
/* Check for special relocation required by SKIP instructions. */
|
||
if (CGEN_INSN_ATTR_VALUE (insn.insn, CGEN_INSN_SKIPA))
|
||
/* Unconditional skip has a 1-bit relocation of the current pc, so
|
||
that we emit either sb pcl.0 or snb pcl.0 depending on whether
|
||
the PCL (pc + 2) >> 1 is odd or even. */
|
||
{
|
||
enum cgen_parse_operand_result result_type;
|
||
bfd_vma value;
|
||
const char *curpc_plus_2 = ".+2";
|
||
const char *err;
|
||
|
||
err = cgen_parse_address (gas_cgen_cpu_desc, & curpc_plus_2,
|
||
IP2K_OPERAND_ADDR16CJP,
|
||
BFD_RELOC_IP2K_PC_SKIP,
|
||
& result_type, & value);
|
||
if (err)
|
||
{
|
||
as_bad ("%s", err);
|
||
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);
|
||
}
|
||
|
||
valueT
|
||
md_section_align (segT segment, valueT size)
|
||
{
|
||
int align = bfd_section_alignment (segment);
|
||
|
||
return ((size + (1 << align) - 1) & -(1 << align));
|
||
}
|
||
|
||
|
||
symbolS *
|
||
md_undefined_symbol (char * name ATTRIBUTE_UNUSED)
|
||
{
|
||
return 0;
|
||
}
|
||
|
||
int
|
||
md_estimate_size_before_relax (fragS * fragP ATTRIBUTE_UNUSED,
|
||
segT segment ATTRIBUTE_UNUSED)
|
||
{
|
||
as_fatal (_("relaxation not supported\n"));
|
||
return 1;
|
||
}
|
||
|
||
|
||
/* *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)
|
||
{
|
||
}
|
||
|
||
|
||
/* Functions concerning relocs. */
|
||
|
||
long
|
||
md_pcrel_from (fixS *fixP ATTRIBUTE_UNUSED)
|
||
{
|
||
abort ();
|
||
}
|
||
|
||
|
||
/* 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 ATTRIBUTE_UNUSED)
|
||
{
|
||
bfd_reloc_code_real_type result;
|
||
|
||
result = BFD_RELOC_NONE;
|
||
|
||
switch (operand->type)
|
||
{
|
||
case IP2K_OPERAND_FR:
|
||
case IP2K_OPERAND_ADDR16L:
|
||
case IP2K_OPERAND_ADDR16H:
|
||
case IP2K_OPERAND_LIT8:
|
||
/* These may have been processed at parse time. */
|
||
if (fixP->fx_cgen.opinfo != 0)
|
||
result = fixP->fx_cgen.opinfo;
|
||
fixP->fx_no_overflow = 1;
|
||
break;
|
||
|
||
case IP2K_OPERAND_ADDR16CJP:
|
||
result = fixP->fx_cgen.opinfo;
|
||
if (result == 0 || result == BFD_RELOC_NONE)
|
||
result = BFD_RELOC_IP2K_ADDR16CJP;
|
||
fixP->fx_no_overflow = 1;
|
||
break;
|
||
|
||
case IP2K_OPERAND_ADDR16P:
|
||
result = BFD_RELOC_IP2K_PAGE3;
|
||
fixP->fx_no_overflow = 1;
|
||
break;
|
||
|
||
default:
|
||
result = BFD_RELOC_NONE;
|
||
break;
|
||
}
|
||
|
||
return result;
|
||
}
|
||
|
||
|
||
/* 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);
|
||
}
|
||
|
||
|
||
/* See whether we need to force a relocation into the output file.
|
||
Force most of them, since the linker's bfd relocation engine
|
||
understands range limits better than gas' cgen fixup engine.
|
||
Consider the case of a fixup intermediate value being larger than
|
||
the instruction it will be eventually encoded within. */
|
||
|
||
int
|
||
ip2k_force_relocation (fixS * fix)
|
||
{
|
||
switch (fix->fx_r_type)
|
||
{
|
||
case BFD_RELOC_IP2K_FR9:
|
||
case BFD_RELOC_IP2K_FR_OFFSET:
|
||
case BFD_RELOC_IP2K_BANK:
|
||
case BFD_RELOC_IP2K_ADDR16CJP:
|
||
case BFD_RELOC_IP2K_PAGE3:
|
||
case BFD_RELOC_IP2K_LO8DATA:
|
||
case BFD_RELOC_IP2K_HI8DATA:
|
||
case BFD_RELOC_IP2K_EX8DATA:
|
||
case BFD_RELOC_IP2K_LO8INSN:
|
||
case BFD_RELOC_IP2K_HI8INSN:
|
||
case BFD_RELOC_IP2K_PC_SKIP:
|
||
case BFD_RELOC_IP2K_TEXT:
|
||
return 1;
|
||
|
||
case BFD_RELOC_16:
|
||
if (fix->fx_subsy && S_IS_DEFINED (fix->fx_subsy)
|
||
&& fix->fx_addsy && S_IS_DEFINED (fix->fx_addsy)
|
||
&& (S_GET_SEGMENT (fix->fx_addsy)->flags & SEC_CODE))
|
||
{
|
||
fix->fx_r_type = BFD_RELOC_IP2K_TEXT;
|
||
return 0;
|
||
}
|
||
break;
|
||
|
||
default:
|
||
break;
|
||
}
|
||
|
||
return generic_force_reloc (fix);
|
||
}
|
||
|
||
void
|
||
ip2k_apply_fix (fixS *fixP, valueT *valueP, segT seg)
|
||
{
|
||
if (fixP->fx_r_type == BFD_RELOC_IP2K_TEXT
|
||
&& ! fixP->fx_addsy
|
||
&& ! fixP->fx_subsy)
|
||
{
|
||
*valueP = ((int)(* valueP)) / 2;
|
||
fixP->fx_r_type = BFD_RELOC_16;
|
||
}
|
||
else if (fixP->fx_r_type == BFD_RELOC_UNUSED + IP2K_OPERAND_FR)
|
||
{
|
||
/* Must be careful when we are fixing up an FR. We could be
|
||
fixing up an offset to (SP) or (DP) in which case we don't
|
||
want to step on the top 2 bits of the FR operand. The
|
||
gas_cgen_md_apply_fix doesn't know any better and overwrites
|
||
the entire operand. We counter this by adding the bits
|
||
to the new value. */
|
||
char *where = fixP->fx_frag->fr_literal + fixP->fx_where;
|
||
|
||
/* Canonical name, since used a lot. */
|
||
CGEN_CPU_DESC cd = gas_cgen_cpu_desc;
|
||
CGEN_INSN_INT insn_value
|
||
= cgen_get_insn_value (cd, (unsigned char *) where,
|
||
CGEN_INSN_BITSIZE (fixP->fx_cgen.insn),
|
||
gas_cgen_cpu_desc->insn_endian);
|
||
/* Preserve (DP) or (SP) specification. */
|
||
*valueP += (insn_value & 0x180);
|
||
}
|
||
|
||
gas_cgen_md_apply_fix (fixP, valueP, seg);
|
||
}
|
||
|
||
int
|
||
ip2k_elf_section_flags (flagword flags,
|
||
bfd_vma attr ATTRIBUTE_UNUSED,
|
||
int type ATTRIBUTE_UNUSED)
|
||
{
|
||
/* This is used to detect when the section changes to an executable section.
|
||
This function is called by the elf section processing. When we note an
|
||
executable section specifier we set an internal flag to denote when
|
||
word alignment should be forced. */
|
||
if (flags & SEC_CODE)
|
||
force_code_align = 1;
|
||
|
||
return flags;
|
||
}
|
||
|