1999-05-03 09:29:11 +02:00
|
|
|
|
/* tc-mips.c -- assemble code for a MIPS chip.
|
2001-03-09 00:24:26 +01:00
|
|
|
|
Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
|
2000-09-21 00:05:08 +02:00
|
|
|
|
Free Software Foundation, Inc.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
Contributed by the OSF and Ralph Campbell.
|
|
|
|
|
Written by Keith Knowles and Ralph Campbell, working independently.
|
|
|
|
|
Modified for ECOFF and R4000 support by Ian Lance Taylor of Cygnus
|
|
|
|
|
Support.
|
|
|
|
|
|
|
|
|
|
This file is part of GAS.
|
|
|
|
|
|
|
|
|
|
GAS is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GAS is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with GAS; see the file COPYING. If not, write to the Free
|
|
|
|
|
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|
|
|
|
02111-1307, USA. */
|
|
|
|
|
|
|
|
|
|
#include "as.h"
|
|
|
|
|
#include "config.h"
|
|
|
|
|
#include "subsegs.h"
|
2001-09-19 07:33:36 +02:00
|
|
|
|
#include "safe-ctype.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#ifdef USE_STDARG
|
|
|
|
|
#include <stdarg.h>
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef USE_VARARGS
|
|
|
|
|
#include <varargs.h>
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#include "opcode/mips.h"
|
|
|
|
|
#include "itbl-ops.h"
|
|
|
|
|
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
#define DBG(x) printf x
|
|
|
|
|
#else
|
|
|
|
|
#define DBG(x)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_MAYBE_ELF
|
|
|
|
|
/* Clean up namespace so we can include obj-elf.h too. */
|
|
|
|
|
static int mips_output_flavor PARAMS ((void));
|
|
|
|
|
static int mips_output_flavor () { return OUTPUT_FLAVOR; }
|
|
|
|
|
#undef OBJ_PROCESS_STAB
|
|
|
|
|
#undef OUTPUT_FLAVOR
|
|
|
|
|
#undef S_GET_ALIGN
|
|
|
|
|
#undef S_GET_SIZE
|
|
|
|
|
#undef S_SET_ALIGN
|
|
|
|
|
#undef S_SET_SIZE
|
|
|
|
|
#undef obj_frob_file
|
|
|
|
|
#undef obj_frob_file_after_relocs
|
|
|
|
|
#undef obj_frob_symbol
|
|
|
|
|
#undef obj_pop_insert
|
|
|
|
|
#undef obj_sec_sym_ok_for_reloc
|
|
|
|
|
#undef OBJ_COPY_SYMBOL_ATTRIBUTES
|
|
|
|
|
|
|
|
|
|
#include "obj-elf.h"
|
|
|
|
|
/* Fix any of them that we actually care about. */
|
|
|
|
|
#undef OUTPUT_FLAVOR
|
|
|
|
|
#define OUTPUT_FLAVOR mips_output_flavor()
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if defined (OBJ_ELF)
|
|
|
|
|
#include "elf/mips.h"
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef ECOFF_DEBUGGING
|
|
|
|
|
#define NO_ECOFF_DEBUGGING
|
|
|
|
|
#define ECOFF_DEBUGGING 0
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#include "ecoff.h"
|
|
|
|
|
|
|
|
|
|
#if defined (OBJ_ELF) || defined (OBJ_MAYBE_ELF)
|
|
|
|
|
static char *mips_regmask_frag;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#define AT 1
|
|
|
|
|
#define TREG 24
|
|
|
|
|
#define PIC_CALL_REG 25
|
|
|
|
|
#define KT0 26
|
|
|
|
|
#define KT1 27
|
|
|
|
|
#define GP 28
|
|
|
|
|
#define SP 29
|
|
|
|
|
#define FP 30
|
|
|
|
|
#define RA 31
|
|
|
|
|
|
|
|
|
|
#define ILLEGAL_REG (32)
|
|
|
|
|
|
|
|
|
|
/* Allow override of standard little-endian ECOFF format. */
|
|
|
|
|
|
|
|
|
|
#ifndef ECOFF_LITTLE_FORMAT
|
|
|
|
|
#define ECOFF_LITTLE_FORMAT "ecoff-littlemips"
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
extern int target_big_endian;
|
|
|
|
|
|
|
|
|
|
/* The name of the readonly data section. */
|
|
|
|
|
#define RDATA_SECTION_NAME (OUTPUT_FLAVOR == bfd_target_aout_flavour \
|
|
|
|
|
? ".data" \
|
|
|
|
|
: OUTPUT_FLAVOR == bfd_target_ecoff_flavour \
|
|
|
|
|
? ".rdata" \
|
2000-02-24 20:49:18 +01:00
|
|
|
|
: OUTPUT_FLAVOR == bfd_target_coff_flavour \
|
|
|
|
|
? ".rdata" \
|
1999-05-03 09:29:11 +02:00
|
|
|
|
: OUTPUT_FLAVOR == bfd_target_elf_flavour \
|
|
|
|
|
? ".rodata" \
|
|
|
|
|
: (abort (), ""))
|
|
|
|
|
|
2001-11-12 17:54:54 +01:00
|
|
|
|
/* The ABI to use. */
|
|
|
|
|
enum mips_abi_level
|
|
|
|
|
{
|
|
|
|
|
NO_ABI = 0,
|
|
|
|
|
O32_ABI,
|
|
|
|
|
O64_ABI,
|
|
|
|
|
N32_ABI,
|
|
|
|
|
N64_ABI,
|
|
|
|
|
EABI_ABI
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* MIPS ABI we are using for this output file. */
|
|
|
|
|
static enum mips_abi_level file_mips_abi = NO_ABI;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* This is the set of options which may be modified by the .set
|
|
|
|
|
pseudo-op. We use a struct so that .set push and .set pop are more
|
|
|
|
|
reliable. */
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
struct mips_set_options
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* MIPS ISA (Instruction Set Architecture) level. This is set to -1
|
|
|
|
|
if it has not been initialized. Changed by `.set mipsN', and the
|
|
|
|
|
-mipsN command line option, and the default CPU. */
|
|
|
|
|
int isa;
|
|
|
|
|
/* Whether we are assembling for the mips16 processor. 0 if we are
|
|
|
|
|
not, 1 if we are, and -1 if the value has not been initialized.
|
|
|
|
|
Changed by `.set mips16' and `.set nomips16', and the -mips16 and
|
|
|
|
|
-nomips16 command line options, and the default CPU. */
|
|
|
|
|
int mips16;
|
|
|
|
|
/* Non-zero if we should not reorder instructions. Changed by `.set
|
|
|
|
|
reorder' and `.set noreorder'. */
|
|
|
|
|
int noreorder;
|
|
|
|
|
/* Non-zero if we should not permit the $at ($1) register to be used
|
|
|
|
|
in instructions. Changed by `.set at' and `.set noat'. */
|
|
|
|
|
int noat;
|
|
|
|
|
/* Non-zero if we should warn when a macro instruction expands into
|
|
|
|
|
more than one machine instruction. Changed by `.set nomacro' and
|
|
|
|
|
`.set macro'. */
|
|
|
|
|
int warn_about_macros;
|
|
|
|
|
/* Non-zero if we should not move instructions. Changed by `.set
|
|
|
|
|
move', `.set volatile', `.set nomove', and `.set novolatile'. */
|
|
|
|
|
int nomove;
|
|
|
|
|
/* Non-zero if we should not optimize branches by moving the target
|
|
|
|
|
of the branch into the delay slot. Actually, we don't perform
|
|
|
|
|
this optimization anyhow. Changed by `.set bopt' and `.set
|
|
|
|
|
nobopt'. */
|
|
|
|
|
int nobopt;
|
|
|
|
|
/* Non-zero if we should not autoextend mips16 instructions.
|
|
|
|
|
Changed by `.set autoextend' and `.set noautoextend'. */
|
|
|
|
|
int noautoextend;
|
2001-11-12 17:54:54 +01:00
|
|
|
|
/* Restrict general purpose registers and floating point registers
|
|
|
|
|
to 32 bit. This is initially determined when -mgp32 or -mfp32
|
|
|
|
|
is passed but can changed if the assembler code uses .set mipsN. */
|
|
|
|
|
int gp32;
|
|
|
|
|
int fp32;
|
|
|
|
|
/* The ABI currently in use. This is changed by .set mipsN to loosen
|
|
|
|
|
restrictions and doesn't affect the whole file. */
|
|
|
|
|
enum mips_abi_level abi;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
};
|
|
|
|
|
|
2001-11-12 17:54:54 +01:00
|
|
|
|
/* True if -mgp32 was passed. */
|
2001-12-20 22:11:26 +01:00
|
|
|
|
static int file_mips_gp32 = -1;
|
2001-11-12 17:54:54 +01:00
|
|
|
|
|
|
|
|
|
/* True if -mfp32 was passed. */
|
2001-12-20 22:11:26 +01:00
|
|
|
|
static int file_mips_fp32 = -1;
|
2001-11-12 17:54:54 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* This is the struct we use to hold the current set of options. Note
|
2000-12-01 22:35:38 +01:00
|
|
|
|
that we must set the isa field to ISA_UNKNOWN and the mips16 field to
|
|
|
|
|
-1 to indicate that they have not been initialized. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
static struct mips_set_options mips_opts =
|
|
|
|
|
{
|
2001-11-12 17:54:54 +01:00
|
|
|
|
ISA_UNKNOWN, -1, 0, 0, 0, 0, 0, 0, 0, 0, NO_ABI
|
2000-12-01 22:35:38 +01:00
|
|
|
|
};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* These variables are filled in with the masks of registers used.
|
|
|
|
|
The object format code reads them and puts them in the appropriate
|
|
|
|
|
place. */
|
|
|
|
|
unsigned long mips_gprmask;
|
|
|
|
|
unsigned long mips_cprmask[4];
|
|
|
|
|
|
|
|
|
|
/* MIPS ISA we are using for this output file. */
|
2000-12-01 22:35:38 +01:00
|
|
|
|
static int file_mips_isa = ISA_UNKNOWN;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-06-29 23:27:43 +02:00
|
|
|
|
/* The argument of the -mcpu= flag. Historical for code generation. */
|
2000-12-01 22:35:38 +01:00
|
|
|
|
static int mips_cpu = CPU_UNKNOWN;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-06-29 23:27:43 +02:00
|
|
|
|
/* The argument of the -march= flag. The architecture we are assembling. */
|
|
|
|
|
static int mips_arch = CPU_UNKNOWN;
|
|
|
|
|
|
|
|
|
|
/* The argument of the -mtune= flag. The architecture for which we
|
|
|
|
|
are optimizing. */
|
|
|
|
|
static int mips_tune = CPU_UNKNOWN;
|
|
|
|
|
|
2001-07-25 22:34:39 +02:00
|
|
|
|
/* Whether we should mark the file EABI64 or EABI32. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static int mips_eabi64 = 0;
|
|
|
|
|
|
|
|
|
|
/* If they asked for mips1 or mips2 and a cpu that is
|
2000-09-07 14:45:56 +02:00
|
|
|
|
mips3 or greater, then mark the object file 32BITMODE. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static int mips_32bitmode = 0;
|
|
|
|
|
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
/* Some ISA's have delay slots for instructions which read or write
|
|
|
|
|
from a coprocessor (eg. mips1-mips3); some don't (eg mips4).
|
2000-09-07 14:45:56 +02:00
|
|
|
|
Return true if instructions marked INSN_LOAD_COPROC_DELAY,
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
INSN_COPROC_MOVE_DELAY, or INSN_WRITE_COND_CODE actually have a
|
|
|
|
|
delay slot in this ISA. The uses of this macro assume that any
|
|
|
|
|
ISA that has delay slots for one of these, has them for all. They
|
|
|
|
|
also assume that ISAs which don't have delays for these insns, don't
|
2000-09-07 14:45:56 +02:00
|
|
|
|
have delays for the INSN_LOAD_MEMORY_DELAY instructions either. */
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
#define ISA_HAS_COPROC_DELAYS(ISA) ( \
|
2000-12-01 22:35:38 +01:00
|
|
|
|
(ISA) == ISA_MIPS1 \
|
|
|
|
|
|| (ISA) == ISA_MIPS2 \
|
|
|
|
|
|| (ISA) == ISA_MIPS3 \
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
)
|
|
|
|
|
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Return true if ISA supports 64 bit gp register instructions. */
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
#define ISA_HAS_64BIT_REGS(ISA) ( \
|
2000-12-01 22:35:38 +01:00
|
|
|
|
(ISA) == ISA_MIPS3 \
|
|
|
|
|
|| (ISA) == ISA_MIPS4 \
|
2000-12-02 01:55:22 +01:00
|
|
|
|
|| (ISA) == ISA_MIPS5 \
|
2001-05-23 19:26:40 +02:00
|
|
|
|
|| (ISA) == ISA_MIPS64 \
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
)
|
|
|
|
|
|
2001-10-03 22:30:15 +02:00
|
|
|
|
#define HAVE_32BIT_GPRS \
|
2001-11-12 17:54:54 +01:00
|
|
|
|
(mips_opts.gp32 \
|
|
|
|
|
|| mips_opts.abi == O32_ABI \
|
2001-10-03 22:30:15 +02:00
|
|
|
|
|| ! ISA_HAS_64BIT_REGS (mips_opts.isa))
|
2001-08-02 12:15:24 +02:00
|
|
|
|
|
2001-10-03 22:30:15 +02:00
|
|
|
|
#define HAVE_32BIT_FPRS \
|
2001-11-12 17:54:54 +01:00
|
|
|
|
(mips_opts.fp32 \
|
|
|
|
|
|| mips_opts.abi == O32_ABI \
|
2001-10-03 22:30:15 +02:00
|
|
|
|
|| ! ISA_HAS_64BIT_REGS (mips_opts.isa))
|
2001-08-02 12:15:24 +02:00
|
|
|
|
|
|
|
|
|
#define HAVE_64BIT_GPRS (! HAVE_32BIT_GPRS)
|
|
|
|
|
#define HAVE_64BIT_FPRS (! HAVE_32BIT_FPRS)
|
|
|
|
|
|
2001-11-12 17:54:54 +01:00
|
|
|
|
#define HAVE_NEWABI (mips_opts.abi == N32_ABI || mips_opts.abi == N64_ABI)
|
2001-10-03 22:30:15 +02:00
|
|
|
|
|
2001-11-12 17:54:54 +01:00
|
|
|
|
#define HAVE_64BIT_OBJECTS (mips_opts.abi == N64_ABI)
|
2001-10-03 22:30:15 +02:00
|
|
|
|
|
|
|
|
|
/* We can only have 64bit addresses if the object file format
|
|
|
|
|
supports it. */
|
2001-11-01 02:33:47 +01:00
|
|
|
|
#define HAVE_32BIT_ADDRESSES \
|
|
|
|
|
(HAVE_32BIT_GPRS \
|
|
|
|
|
|| ((bfd_arch_bits_per_address (stdoutput) == 32 \
|
|
|
|
|
|| ! HAVE_64BIT_OBJECTS) \
|
|
|
|
|
&& mips_pic != EMBEDDED_PIC))
|
2001-10-03 22:30:15 +02:00
|
|
|
|
|
|
|
|
|
#define HAVE_64BIT_ADDRESSES (! HAVE_32BIT_ADDRESSES)
|
2001-08-02 12:15:24 +02:00
|
|
|
|
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Whether the processor uses hardware interlocks to protect
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reads from the HI and LO registers, and thus does not
|
2001-06-29 23:27:43 +02:00
|
|
|
|
require nops to be inserted. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-06-29 23:27:43 +02:00
|
|
|
|
#define hilo_interlocks (mips_arch == CPU_R4010 \
|
2001-10-24 23:08:34 +02:00
|
|
|
|
|| mips_arch == CPU_SB1 \
|
1999-05-03 09:29:11 +02:00
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
/* Whether the processor uses hardware interlocks to protect reads
|
|
|
|
|
from the GPRs, and thus does not require nops to be inserted. */
|
|
|
|
|
#define gpr_interlocks \
|
2000-12-01 22:35:38 +01:00
|
|
|
|
(mips_opts.isa != ISA_MIPS1 \
|
2001-06-29 23:27:43 +02:00
|
|
|
|
|| mips_arch == CPU_R3900)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* As with other "interlocks" this is used by hardware that has FP
|
|
|
|
|
(co-processor) interlocks. */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
2001-06-29 23:27:43 +02:00
|
|
|
|
#define cop_interlocks (mips_arch == CPU_R4300 \
|
2001-10-24 23:08:34 +02:00
|
|
|
|
|| mips_arch == CPU_SB1 \
|
1999-05-03 09:29:11 +02:00
|
|
|
|
)
|
|
|
|
|
|
2000-02-21 21:00:33 +01:00
|
|
|
|
/* Is this a mfhi or mflo instruction? */
|
|
|
|
|
#define MF_HILO_INSN(PINFO) \
|
|
|
|
|
((PINFO & INSN_READ_HI) || (PINFO & INSN_READ_LO))
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* MIPS PIC level. */
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
enum mips_pic_level
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Do not generate PIC code. */
|
|
|
|
|
NO_PIC,
|
|
|
|
|
|
|
|
|
|
/* Generate PIC code as in Irix 4. This is not implemented, and I'm
|
|
|
|
|
not sure what it is supposed to do. */
|
|
|
|
|
IRIX4_PIC,
|
|
|
|
|
|
|
|
|
|
/* Generate PIC code as in the SVR4 MIPS ABI. */
|
|
|
|
|
SVR4_PIC,
|
|
|
|
|
|
|
|
|
|
/* Generate PIC code without using a global offset table: the data
|
|
|
|
|
segment has a maximum size of 64K, all data references are off
|
|
|
|
|
the $gp register, and all text references are PC relative. This
|
|
|
|
|
is used on some embedded systems. */
|
|
|
|
|
EMBEDDED_PIC
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static enum mips_pic_level mips_pic;
|
|
|
|
|
|
2001-06-09 07:24:39 +02:00
|
|
|
|
/* Warn about all NOPS that the assembler generates. */
|
|
|
|
|
static int warn_nops = 0;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* 1 if we should generate 32 bit offsets from the GP register in
|
|
|
|
|
SVR4_PIC mode. Currently has no meaning in other modes. */
|
|
|
|
|
static int mips_big_got;
|
|
|
|
|
|
|
|
|
|
/* 1 if trap instructions should used for overflow rather than break
|
|
|
|
|
instructions. */
|
|
|
|
|
static int mips_trap;
|
|
|
|
|
|
2000-07-15 00:23:33 +02:00
|
|
|
|
/* 1 if double width floating point constants should not be constructed
|
2001-10-12 01:56:33 +02:00
|
|
|
|
by assembling two single width halves into two single width floating
|
2000-07-15 00:23:33 +02:00
|
|
|
|
point registers which just happen to alias the double width destination
|
|
|
|
|
register. On some architectures this aliasing can be disabled by a bit
|
2000-07-15 00:28:24 +02:00
|
|
|
|
in the status register, and the setting of this bit cannot be determined
|
2000-07-15 00:23:33 +02:00
|
|
|
|
automatically at assemble time. */
|
|
|
|
|
static int mips_disable_float_construction;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Non-zero if any .set noreorder directives were used. */
|
|
|
|
|
|
|
|
|
|
static int mips_any_noreorder;
|
|
|
|
|
|
2000-02-21 21:00:33 +01:00
|
|
|
|
/* Non-zero if nops should be inserted when the register referenced in
|
|
|
|
|
an mfhi/mflo instruction is read in the next two instructions. */
|
|
|
|
|
static int mips_7000_hilo_fix;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* The size of the small data section. */
|
2000-09-14 03:47:38 +02:00
|
|
|
|
static unsigned int g_switch_value = 8;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Whether the -G option was used. */
|
|
|
|
|
static int g_switch_seen = 0;
|
|
|
|
|
|
|
|
|
|
#define N_RMASK 0xc4
|
|
|
|
|
#define N_VFP 0xd4
|
|
|
|
|
|
|
|
|
|
/* If we can determine in advance that GP optimization won't be
|
|
|
|
|
possible, we can skip the relaxation stuff that tries to produce
|
|
|
|
|
GP-relative references. This makes delay slot optimization work
|
|
|
|
|
better.
|
|
|
|
|
|
|
|
|
|
This function can only provide a guess, but it seems to work for
|
1999-09-28 06:13:25 +02:00
|
|
|
|
gcc output. It needs to guess right for gcc, otherwise gcc
|
|
|
|
|
will put what it thinks is a GP-relative instruction in a branch
|
|
|
|
|
delay slot.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
I don't know if a fix is needed for the SVR4_PIC mode. I've only
|
|
|
|
|
fixed it for the non-PIC mode. KR 95/04/07 */
|
|
|
|
|
static int nopic_need_relax PARAMS ((symbolS *, int));
|
|
|
|
|
|
|
|
|
|
/* handle of the OPCODE hash table */
|
|
|
|
|
static struct hash_control *op_hash = NULL;
|
|
|
|
|
|
|
|
|
|
/* The opcode hash table we use for the mips16. */
|
|
|
|
|
static struct hash_control *mips16_op_hash = NULL;
|
|
|
|
|
|
|
|
|
|
/* This array holds the chars that always start a comment. If the
|
|
|
|
|
pre-processor is disabled, these aren't very useful */
|
|
|
|
|
const char comment_chars[] = "#";
|
|
|
|
|
|
|
|
|
|
/* This array holds the chars that only start a comment at the beginning of
|
|
|
|
|
a line. If the line seems to have the form '# 123 filename'
|
|
|
|
|
.line and .file directives will appear in the pre-processed output */
|
|
|
|
|
/* Note that input_file.c hand checks for '#' at the beginning of the
|
|
|
|
|
first line of the input file. This is because the compiler outputs
|
2000-09-07 14:45:56 +02:00
|
|
|
|
#NO_APP at the beginning of its output. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Also note that C style comments are always supported. */
|
|
|
|
|
const char line_comment_chars[] = "#";
|
|
|
|
|
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* This array holds machine specific line separator characters. */
|
2000-06-09 02:00:04 +02:00
|
|
|
|
const char line_separator_chars[] = ";";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Chars that can be used to separate mant from exp in floating point nums */
|
|
|
|
|
const char EXP_CHARS[] = "eE";
|
|
|
|
|
|
|
|
|
|
/* Chars that mean this number is a floating point constant */
|
|
|
|
|
/* As in 0f12.456 */
|
|
|
|
|
/* or 0d1.2345e12 */
|
|
|
|
|
const char FLT_CHARS[] = "rRsSfFdDxXpP";
|
|
|
|
|
|
|
|
|
|
/* Also be aware that MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT may have to be
|
|
|
|
|
changed in read.c . Ideally it shouldn't have to know about it at all,
|
|
|
|
|
but nothing is ideal around here.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static char *insn_error;
|
|
|
|
|
|
|
|
|
|
static int auto_align = 1;
|
|
|
|
|
|
|
|
|
|
/* When outputting SVR4 PIC code, the assembler needs to know the
|
|
|
|
|
offset in the stack frame from which to restore the $gp register.
|
|
|
|
|
This is set by the .cprestore pseudo-op, and saved in this
|
|
|
|
|
variable. */
|
|
|
|
|
static offsetT mips_cprestore_offset = -1;
|
|
|
|
|
|
2001-10-10 03:08:35 +02:00
|
|
|
|
/* Similiar for NewABI PIC code, where $gp is callee-saved. NewABI has some
|
|
|
|
|
more optimizations, it can use a register value instead of a memory-saved
|
2001-12-04 15:38:48 +01:00
|
|
|
|
offset and even an other register than $gp as global pointer. */
|
2001-10-10 03:08:35 +02:00
|
|
|
|
static offsetT mips_cpreturn_offset = -1;
|
|
|
|
|
static int mips_cpreturn_register = -1;
|
|
|
|
|
static int mips_gp_register = GP;
|
|
|
|
|
|
2002-01-05 20:06:52 +01:00
|
|
|
|
/* Whether mips_cprestore_offset has been set in the current function
|
|
|
|
|
(or whether it has already been warned about, if not). */
|
|
|
|
|
static int mips_cprestore_valid = 0;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* This is the register which holds the stack frame, as set by the
|
|
|
|
|
.frame pseudo-op. This is needed to implement .cprestore. */
|
|
|
|
|
static int mips_frame_reg = SP;
|
|
|
|
|
|
2002-01-05 20:06:52 +01:00
|
|
|
|
/* Whether mips_frame_reg has been set in the current function
|
|
|
|
|
(or whether it has already been warned about, if not). */
|
|
|
|
|
static int mips_frame_reg_valid = 0;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* To output NOP instructions correctly, we need to keep information
|
|
|
|
|
about the previous two instructions. */
|
|
|
|
|
|
|
|
|
|
/* Whether we are optimizing. The default value of 2 means to remove
|
|
|
|
|
unneeded NOPs and swap branch instructions when possible. A value
|
|
|
|
|
of 1 means to not swap branches. A value of 0 means to always
|
|
|
|
|
insert NOPs. */
|
|
|
|
|
static int mips_optimize = 2;
|
|
|
|
|
|
|
|
|
|
/* Debugging level. -g sets this to 2. -gN sets this to N. -g0 is
|
|
|
|
|
equivalent to seeing no -g option at all. */
|
|
|
|
|
static int mips_debug = 0;
|
|
|
|
|
|
|
|
|
|
/* The previous instruction. */
|
|
|
|
|
static struct mips_cl_insn prev_insn;
|
|
|
|
|
|
|
|
|
|
/* The instruction before prev_insn. */
|
|
|
|
|
static struct mips_cl_insn prev_prev_insn;
|
|
|
|
|
|
|
|
|
|
/* If we don't want information for prev_insn or prev_prev_insn, we
|
|
|
|
|
point the insn_mo field at this dummy integer. */
|
2000-05-30 00:05:27 +02:00
|
|
|
|
static const struct mips_opcode dummy_opcode = { NULL, NULL, 0, 0, 0, 0 };
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Non-zero if prev_insn is valid. */
|
|
|
|
|
static int prev_insn_valid;
|
|
|
|
|
|
|
|
|
|
/* The frag for the previous instruction. */
|
|
|
|
|
static struct frag *prev_insn_frag;
|
|
|
|
|
|
|
|
|
|
/* The offset into prev_insn_frag for the previous instruction. */
|
|
|
|
|
static long prev_insn_where;
|
|
|
|
|
|
|
|
|
|
/* The reloc type for the previous instruction, if any. */
|
2001-10-04 22:07:00 +02:00
|
|
|
|
static bfd_reloc_code_real_type prev_insn_reloc_type[3];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* The reloc for the previous instruction, if any. */
|
2001-10-04 22:07:00 +02:00
|
|
|
|
static fixS *prev_insn_fixp[3];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Non-zero if the previous instruction was in a delay slot. */
|
|
|
|
|
static int prev_insn_is_delay_slot;
|
|
|
|
|
|
|
|
|
|
/* Non-zero if the previous instruction was in a .set noreorder. */
|
|
|
|
|
static int prev_insn_unreordered;
|
|
|
|
|
|
|
|
|
|
/* Non-zero if the previous instruction uses an extend opcode (if
|
|
|
|
|
mips16). */
|
|
|
|
|
static int prev_insn_extended;
|
|
|
|
|
|
|
|
|
|
/* Non-zero if the previous previous instruction was in a .set
|
|
|
|
|
noreorder. */
|
|
|
|
|
static int prev_prev_insn_unreordered;
|
|
|
|
|
|
|
|
|
|
/* If this is set, it points to a frag holding nop instructions which
|
|
|
|
|
were inserted before the start of a noreorder section. If those
|
|
|
|
|
nops turn out to be unnecessary, the size of the frag can be
|
|
|
|
|
decreased. */
|
|
|
|
|
static fragS *prev_nop_frag;
|
|
|
|
|
|
|
|
|
|
/* The number of nop instructions we created in prev_nop_frag. */
|
|
|
|
|
static int prev_nop_frag_holds;
|
|
|
|
|
|
|
|
|
|
/* The number of nop instructions that we know we need in
|
2000-09-07 14:45:56 +02:00
|
|
|
|
prev_nop_frag. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static int prev_nop_frag_required;
|
|
|
|
|
|
|
|
|
|
/* The number of instructions we've seen since prev_nop_frag. */
|
|
|
|
|
static int prev_nop_frag_since;
|
|
|
|
|
|
|
|
|
|
/* For ECOFF and ELF, 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
|
2000-09-07 14:45:56 +02:00
|
|
|
|
corresponding LO relocation. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
struct mips_hi_fixup
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Next HI fixup. */
|
|
|
|
|
struct mips_hi_fixup *next;
|
|
|
|
|
/* This fixup. */
|
|
|
|
|
fixS *fixp;
|
|
|
|
|
/* The section this fixup is in. */
|
|
|
|
|
segT seg;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* The list of unmatched HI relocs. */
|
|
|
|
|
|
|
|
|
|
static struct mips_hi_fixup *mips_hi_fixup_list;
|
|
|
|
|
|
|
|
|
|
/* Map normal MIPS register numbers to mips16 register numbers. */
|
|
|
|
|
|
|
|
|
|
#define X ILLEGAL_REG
|
2000-12-12 20:29:24 +01:00
|
|
|
|
static const int mips32_to_16_reg_map[] =
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
X, X, 2, 3, 4, 5, 6, 7,
|
|
|
|
|
X, X, X, X, X, X, X, X,
|
|
|
|
|
0, 1, X, X, X, X, X, X,
|
|
|
|
|
X, X, X, X, X, X, X, X
|
|
|
|
|
};
|
|
|
|
|
#undef X
|
|
|
|
|
|
|
|
|
|
/* Map mips16 register numbers to normal MIPS register numbers. */
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
static const unsigned int mips16_to_32_reg_map[] =
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
16, 17, 2, 3, 4, 5, 6, 7
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Since the MIPS does not have multiple forms of PC relative
|
|
|
|
|
instructions, we do not have to do relaxing as is done on other
|
|
|
|
|
platforms. However, we do have to handle GP relative addressing
|
|
|
|
|
correctly, which turns out to be a similar problem.
|
|
|
|
|
|
|
|
|
|
Every macro that refers to a symbol can occur in (at least) two
|
|
|
|
|
forms, one with GP relative addressing and one without. For
|
|
|
|
|
example, loading a global variable into a register generally uses
|
|
|
|
|
a macro instruction like this:
|
|
|
|
|
lw $4,i
|
|
|
|
|
If i can be addressed off the GP register (this is true if it is in
|
|
|
|
|
the .sbss or .sdata section, or if it is known to be smaller than
|
|
|
|
|
the -G argument) this will generate the following instruction:
|
|
|
|
|
lw $4,i($gp)
|
|
|
|
|
This instruction will use a GPREL reloc. If i can not be addressed
|
|
|
|
|
off the GP register, the following instruction sequence will be used:
|
|
|
|
|
lui $at,i
|
|
|
|
|
lw $4,i($at)
|
|
|
|
|
In this case the first instruction will have a HI16 reloc, and the
|
|
|
|
|
second reloc will have a LO16 reloc. Both relocs will be against
|
|
|
|
|
the symbol i.
|
|
|
|
|
|
|
|
|
|
The issue here is that we may not know whether i is GP addressable
|
|
|
|
|
until after we see the instruction that uses it. Therefore, we
|
|
|
|
|
want to be able to choose the final instruction sequence only at
|
|
|
|
|
the end of the assembly. This is similar to the way other
|
|
|
|
|
platforms choose the size of a PC relative instruction only at the
|
|
|
|
|
end of assembly.
|
|
|
|
|
|
|
|
|
|
When generating position independent code we do not use GP
|
|
|
|
|
addressing in quite the same way, but the issue still arises as
|
|
|
|
|
external symbols and local symbols must be handled differently.
|
|
|
|
|
|
|
|
|
|
We handle these issues by actually generating both possible
|
|
|
|
|
instruction sequences. The longer one is put in a frag_var with
|
|
|
|
|
type rs_machine_dependent. We encode what to do with the frag in
|
|
|
|
|
the subtype field. We encode (1) the number of existing bytes to
|
|
|
|
|
replace, (2) the number of new bytes to use, (3) the offset from
|
|
|
|
|
the start of the existing bytes to the first reloc we must generate
|
|
|
|
|
(that is, the offset is applied from the start of the existing
|
|
|
|
|
bytes after they are replaced by the new bytes, if any), (4) the
|
|
|
|
|
offset from the start of the existing bytes to the second reloc,
|
|
|
|
|
(5) whether a third reloc is needed (the third reloc is always four
|
|
|
|
|
bytes after the second reloc), and (6) whether to warn if this
|
|
|
|
|
variant is used (this is sometimes needed if .set nomacro or .set
|
|
|
|
|
noat is in effect). All these numbers are reasonably small.
|
|
|
|
|
|
|
|
|
|
Generating two instruction sequences must be handled carefully to
|
|
|
|
|
ensure that delay slots are handled correctly. Fortunately, there
|
|
|
|
|
are a limited number of cases. When the second instruction
|
|
|
|
|
sequence is generated, append_insn is directed to maintain the
|
|
|
|
|
existing delay slot information, so it continues to apply to any
|
|
|
|
|
code after the second instruction sequence. This means that the
|
|
|
|
|
second instruction sequence must not impose any requirements not
|
|
|
|
|
required by the first instruction sequence.
|
|
|
|
|
|
|
|
|
|
These variant frags are then handled in functions called by the
|
|
|
|
|
machine independent code. md_estimate_size_before_relax returns
|
|
|
|
|
the final size of the frag. md_convert_frag sets up the final form
|
|
|
|
|
of the frag. tc_gen_reloc adjust the first reloc and adds a second
|
|
|
|
|
one if needed. */
|
|
|
|
|
#define RELAX_ENCODE(old, new, reloc1, reloc2, reloc3, warn) \
|
|
|
|
|
((relax_substateT) \
|
|
|
|
|
(((old) << 23) \
|
|
|
|
|
| ((new) << 16) \
|
|
|
|
|
| (((reloc1) + 64) << 9) \
|
|
|
|
|
| (((reloc2) + 64) << 2) \
|
|
|
|
|
| ((reloc3) ? (1 << 1) : 0) \
|
|
|
|
|
| ((warn) ? 1 : 0)))
|
|
|
|
|
#define RELAX_OLD(i) (((i) >> 23) & 0x7f)
|
|
|
|
|
#define RELAX_NEW(i) (((i) >> 16) & 0x7f)
|
2001-08-07 15:15:26 +02:00
|
|
|
|
#define RELAX_RELOC1(i) ((valueT) (((i) >> 9) & 0x7f) - 64)
|
|
|
|
|
#define RELAX_RELOC2(i) ((valueT) (((i) >> 2) & 0x7f) - 64)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#define RELAX_RELOC3(i) (((i) >> 1) & 1)
|
|
|
|
|
#define RELAX_WARN(i) ((i) & 1)
|
|
|
|
|
|
|
|
|
|
/* For mips16 code, we use an entirely different form of relaxation.
|
|
|
|
|
mips16 supports two versions of most instructions which take
|
|
|
|
|
immediate values: a small one which takes some small value, and a
|
|
|
|
|
larger one which takes a 16 bit value. Since branches also follow
|
|
|
|
|
this pattern, relaxing these values is required.
|
|
|
|
|
|
|
|
|
|
We can assemble both mips16 and normal MIPS code in a single
|
|
|
|
|
object. Therefore, we need to support this type of relaxation at
|
|
|
|
|
the same time that we support the relaxation described above. We
|
|
|
|
|
use the high bit of the subtype field to distinguish these cases.
|
|
|
|
|
|
|
|
|
|
The information we store for this type of relaxation is the
|
|
|
|
|
argument code found in the opcode file for this relocation, whether
|
|
|
|
|
the user explicitly requested a small or extended form, and whether
|
|
|
|
|
the relocation is in a jump or jal delay slot. That tells us the
|
|
|
|
|
size of the value, and how it should be stored. We also store
|
|
|
|
|
whether the fragment is considered to be extended or not. We also
|
|
|
|
|
store whether this is known to be a branch to a different section,
|
|
|
|
|
whether we have tried to relax this frag yet, and whether we have
|
|
|
|
|
ever extended a PC relative fragment because of a shift count. */
|
|
|
|
|
#define RELAX_MIPS16_ENCODE(type, small, ext, dslot, jal_dslot) \
|
|
|
|
|
(0x80000000 \
|
|
|
|
|
| ((type) & 0xff) \
|
|
|
|
|
| ((small) ? 0x100 : 0) \
|
|
|
|
|
| ((ext) ? 0x200 : 0) \
|
|
|
|
|
| ((dslot) ? 0x400 : 0) \
|
|
|
|
|
| ((jal_dslot) ? 0x800 : 0))
|
|
|
|
|
#define RELAX_MIPS16_P(i) (((i) & 0x80000000) != 0)
|
|
|
|
|
#define RELAX_MIPS16_TYPE(i) ((i) & 0xff)
|
|
|
|
|
#define RELAX_MIPS16_USER_SMALL(i) (((i) & 0x100) != 0)
|
|
|
|
|
#define RELAX_MIPS16_USER_EXT(i) (((i) & 0x200) != 0)
|
|
|
|
|
#define RELAX_MIPS16_DSLOT(i) (((i) & 0x400) != 0)
|
|
|
|
|
#define RELAX_MIPS16_JAL_DSLOT(i) (((i) & 0x800) != 0)
|
|
|
|
|
#define RELAX_MIPS16_EXTENDED(i) (((i) & 0x1000) != 0)
|
|
|
|
|
#define RELAX_MIPS16_MARK_EXTENDED(i) ((i) | 0x1000)
|
|
|
|
|
#define RELAX_MIPS16_CLEAR_EXTENDED(i) ((i) &~ 0x1000)
|
|
|
|
|
#define RELAX_MIPS16_LONG_BRANCH(i) (((i) & 0x2000) != 0)
|
|
|
|
|
#define RELAX_MIPS16_MARK_LONG_BRANCH(i) ((i) | 0x2000)
|
|
|
|
|
#define RELAX_MIPS16_CLEAR_LONG_BRANCH(i) ((i) &~ 0x2000)
|
|
|
|
|
|
|
|
|
|
/* Prototypes for static functions. */
|
|
|
|
|
|
|
|
|
|
#ifdef __STDC__
|
|
|
|
|
#define internalError() \
|
|
|
|
|
as_fatal (_("internal Error, line %d, %s"), __LINE__, __FILE__)
|
|
|
|
|
#else
|
|
|
|
|
#define internalError() as_fatal (_("MIPS internal Error"));
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
enum mips_regclass { MIPS_GR_REG, MIPS_FP_REG, MIPS16_REG };
|
|
|
|
|
|
|
|
|
|
static int insn_uses_reg PARAMS ((struct mips_cl_insn *ip,
|
|
|
|
|
unsigned int reg, enum mips_regclass class));
|
2000-09-14 03:47:38 +02:00
|
|
|
|
static int reg_needs_delay PARAMS ((unsigned int));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void mips16_mark_labels PARAMS ((void));
|
|
|
|
|
static void append_insn PARAMS ((char *place,
|
|
|
|
|
struct mips_cl_insn * ip,
|
|
|
|
|
expressionS * p,
|
2001-10-04 22:07:00 +02:00
|
|
|
|
bfd_reloc_code_real_type *r,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
boolean));
|
|
|
|
|
static void mips_no_prev_insn PARAMS ((int));
|
|
|
|
|
static void mips_emit_delays PARAMS ((boolean));
|
|
|
|
|
#ifdef USE_STDARG
|
|
|
|
|
static void macro_build PARAMS ((char *place, int *counter, expressionS * ep,
|
|
|
|
|
const char *name, const char *fmt,
|
|
|
|
|
...));
|
|
|
|
|
#else
|
|
|
|
|
static void macro_build ();
|
|
|
|
|
#endif
|
|
|
|
|
static void mips16_macro_build PARAMS ((char *, int *, expressionS *,
|
|
|
|
|
const char *, const char *,
|
|
|
|
|
va_list));
|
|
|
|
|
static void macro_build_lui PARAMS ((char *place, int *counter,
|
|
|
|
|
expressionS * ep, int regnum));
|
|
|
|
|
static void set_at PARAMS ((int *counter, int reg, int unsignedp));
|
|
|
|
|
static void check_absolute_expr PARAMS ((struct mips_cl_insn * ip,
|
|
|
|
|
expressionS *));
|
|
|
|
|
static void load_register PARAMS ((int *, int, expressionS *, int));
|
2001-10-10 02:43:36 +02:00
|
|
|
|
static void load_address PARAMS ((int *, int, expressionS *, int, int *));
|
2001-08-10 18:24:32 +02:00
|
|
|
|
static void move_register PARAMS ((int *, int, int));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void macro PARAMS ((struct mips_cl_insn * ip));
|
|
|
|
|
static void mips16_macro PARAMS ((struct mips_cl_insn * ip));
|
|
|
|
|
#ifdef LOSING_COMPILER
|
|
|
|
|
static void macro2 PARAMS ((struct mips_cl_insn * ip));
|
|
|
|
|
#endif
|
|
|
|
|
static void mips_ip PARAMS ((char *str, struct mips_cl_insn * ip));
|
|
|
|
|
static void mips16_ip PARAMS ((char *str, struct mips_cl_insn * ip));
|
|
|
|
|
static void mips16_immed PARAMS ((char *, unsigned int, int, offsetT, boolean,
|
|
|
|
|
boolean, boolean, unsigned long *,
|
|
|
|
|
boolean *, unsigned short *));
|
2002-01-16 22:30:47 +01:00
|
|
|
|
static int my_getPercentOp PARAMS ((char **, unsigned int *, int *));
|
2001-10-10 02:54:53 +02:00
|
|
|
|
static int my_getSmallParser PARAMS ((char **, unsigned int *, int *));
|
|
|
|
|
static int my_getSmallExpression PARAMS ((expressionS *, char *));
|
|
|
|
|
static void my_getExpression PARAMS ((expressionS *, char *));
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
2001-10-03 22:30:15 +02:00
|
|
|
|
static int support_64bit_objects PARAMS((void));
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static symbolS *get_symbol PARAMS ((void));
|
|
|
|
|
static void mips_align PARAMS ((int to, int fill, symbolS *label));
|
|
|
|
|
static void s_align PARAMS ((int));
|
|
|
|
|
static void s_change_sec PARAMS ((int));
|
|
|
|
|
static void s_cons PARAMS ((int));
|
|
|
|
|
static void s_float_cons PARAMS ((int));
|
|
|
|
|
static void s_mips_globl PARAMS ((int));
|
|
|
|
|
static void s_option PARAMS ((int));
|
|
|
|
|
static void s_mipsset PARAMS ((int));
|
|
|
|
|
static void s_abicalls PARAMS ((int));
|
|
|
|
|
static void s_cpload PARAMS ((int));
|
2001-10-10 03:08:35 +02:00
|
|
|
|
static void s_cpsetup PARAMS ((int));
|
|
|
|
|
static void s_cplocal PARAMS ((int));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void s_cprestore PARAMS ((int));
|
2001-10-10 03:08:35 +02:00
|
|
|
|
static void s_cpreturn PARAMS ((int));
|
|
|
|
|
static void s_gpvalue PARAMS ((int));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void s_gpword PARAMS ((int));
|
|
|
|
|
static void s_cpadd PARAMS ((int));
|
|
|
|
|
static void s_insn PARAMS ((int));
|
|
|
|
|
static void md_obj_begin PARAMS ((void));
|
|
|
|
|
static void md_obj_end PARAMS ((void));
|
|
|
|
|
static long get_number PARAMS ((void));
|
|
|
|
|
static void s_mips_ent PARAMS ((int));
|
|
|
|
|
static void s_mips_end PARAMS ((int));
|
|
|
|
|
static void s_mips_frame PARAMS ((int));
|
|
|
|
|
static void s_mips_mask PARAMS ((int));
|
|
|
|
|
static void s_mips_stab PARAMS ((int));
|
|
|
|
|
static void s_mips_weakext PARAMS ((int));
|
|
|
|
|
static void s_file PARAMS ((int));
|
|
|
|
|
static int mips16_extended_frag PARAMS ((fragS *, asection *, long));
|
2000-12-01 22:35:38 +01:00
|
|
|
|
static const char *mips_isa_to_str PARAMS ((int));
|
|
|
|
|
static const char *mips_cpu_to_str PARAMS ((int));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static int validate_mips_insn PARAMS ((const struct mips_opcode *));
|
2001-08-18 20:03:24 +02:00
|
|
|
|
static void show PARAMS ((FILE *, char *, int *, int *));
|
2001-11-21 12:24:13 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
static int mips_need_elf_addend_fixup PARAMS ((fixS *));
|
|
|
|
|
#endif
|
2000-12-01 22:35:38 +01:00
|
|
|
|
|
2001-10-10 02:54:53 +02:00
|
|
|
|
/* Return values of my_getSmallExpression(). */
|
2001-08-18 19:24:52 +02:00
|
|
|
|
|
2001-10-10 02:54:53 +02:00
|
|
|
|
enum small_ex_type
|
2001-08-18 19:24:52 +02:00
|
|
|
|
{
|
|
|
|
|
S_EX_NONE = 0,
|
2001-10-10 02:54:53 +02:00
|
|
|
|
S_EX_REGISTER,
|
|
|
|
|
|
|
|
|
|
/* Direct relocation creation by %percent_op(). */
|
|
|
|
|
S_EX_HALF,
|
2001-08-18 19:24:52 +02:00
|
|
|
|
S_EX_HI,
|
2001-10-10 02:54:53 +02:00
|
|
|
|
S_EX_LO,
|
|
|
|
|
S_EX_GP_REL,
|
|
|
|
|
S_EX_GOT,
|
|
|
|
|
S_EX_CALL16,
|
|
|
|
|
S_EX_GOT_DISP,
|
|
|
|
|
S_EX_GOT_PAGE,
|
|
|
|
|
S_EX_GOT_OFST,
|
|
|
|
|
S_EX_GOT_HI,
|
|
|
|
|
S_EX_GOT_LO,
|
|
|
|
|
S_EX_NEG,
|
2001-08-18 19:24:52 +02:00
|
|
|
|
S_EX_HIGHER,
|
|
|
|
|
S_EX_HIGHEST,
|
2001-10-10 02:54:53 +02:00
|
|
|
|
S_EX_CALL_HI,
|
|
|
|
|
S_EX_CALL_LO
|
2001-08-18 19:24:52 +02:00
|
|
|
|
};
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
/* Table and functions used to map between CPU/ISA names, and
|
|
|
|
|
ISA levels, and CPU numbers. */
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
struct mips_cpu_info
|
|
|
|
|
{
|
2000-12-01 22:35:38 +01:00
|
|
|
|
const char *name; /* CPU or ISA name. */
|
|
|
|
|
int is_isa; /* Is this an ISA? (If 0, a CPU.) */
|
|
|
|
|
int isa; /* ISA level. */
|
|
|
|
|
int cpu; /* CPU number (default CPU if ISA). */
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static const struct mips_cpu_info *mips_cpu_info_from_name PARAMS ((const char *));
|
|
|
|
|
static const struct mips_cpu_info *mips_cpu_info_from_isa PARAMS ((int));
|
|
|
|
|
static const struct mips_cpu_info *mips_cpu_info_from_cpu PARAMS ((int));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Pseudo-op table.
|
|
|
|
|
|
|
|
|
|
The following pseudo-ops from the Kane and Heinrich MIPS book
|
|
|
|
|
should be defined here, but are currently unsupported: .alias,
|
|
|
|
|
.galive, .gjaldef, .gjrlive, .livereg, .noalias.
|
|
|
|
|
|
|
|
|
|
The following pseudo-ops from the Kane and Heinrich MIPS book are
|
|
|
|
|
specific to the type of debugging information being generated, and
|
|
|
|
|
should be defined by the object format: .aent, .begin, .bend,
|
|
|
|
|
.bgnb, .end, .endb, .ent, .fmask, .frame, .loc, .mask, .verstamp,
|
|
|
|
|
.vreg.
|
|
|
|
|
|
|
|
|
|
The following pseudo-ops from the Kane and Heinrich MIPS book are
|
|
|
|
|
not MIPS CPU specific, but are also not specific to the object file
|
|
|
|
|
format. This file is probably the best place to define them, but
|
|
|
|
|
they are not currently supported: .asm0, .endr, .lab, .repeat,
|
|
|
|
|
.struct. */
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
static const pseudo_typeS mips_pseudo_table[] =
|
|
|
|
|
{
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* MIPS specific pseudo-ops. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"option", s_option, 0},
|
|
|
|
|
{"set", s_mipsset, 0},
|
|
|
|
|
{"rdata", s_change_sec, 'r'},
|
|
|
|
|
{"sdata", s_change_sec, 's'},
|
|
|
|
|
{"livereg", s_ignore, 0},
|
|
|
|
|
{"abicalls", s_abicalls, 0},
|
|
|
|
|
{"cpload", s_cpload, 0},
|
2001-10-10 03:08:35 +02:00
|
|
|
|
{"cpsetup", s_cpsetup, 0},
|
|
|
|
|
{"cplocal", s_cplocal, 0},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"cprestore", s_cprestore, 0},
|
2001-10-10 03:08:35 +02:00
|
|
|
|
{"cpreturn", s_cpreturn, 0},
|
|
|
|
|
{"gpvalue", s_gpvalue, 0},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"gpword", s_gpword, 0},
|
|
|
|
|
{"cpadd", s_cpadd, 0},
|
|
|
|
|
{"insn", s_insn, 0},
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Relatively generic pseudo-ops that happen to be used on MIPS
|
1999-05-03 09:29:11 +02:00
|
|
|
|
chips. */
|
|
|
|
|
{"asciiz", stringer, 1},
|
|
|
|
|
{"bss", s_change_sec, 'b'},
|
|
|
|
|
{"err", s_err, 0},
|
|
|
|
|
{"half", s_cons, 1},
|
|
|
|
|
{"dword", s_cons, 3},
|
|
|
|
|
{"weakext", s_mips_weakext, 0},
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* These pseudo-ops are defined in read.c, but must be overridden
|
1999-05-03 09:29:11 +02:00
|
|
|
|
here for one reason or another. */
|
|
|
|
|
{"align", s_align, 0},
|
|
|
|
|
{"byte", s_cons, 0},
|
|
|
|
|
{"data", s_change_sec, 'd'},
|
|
|
|
|
{"double", s_float_cons, 'd'},
|
|
|
|
|
{"float", s_float_cons, 'f'},
|
|
|
|
|
{"globl", s_mips_globl, 0},
|
|
|
|
|
{"global", s_mips_globl, 0},
|
|
|
|
|
{"hword", s_cons, 1},
|
|
|
|
|
{"int", s_cons, 2},
|
|
|
|
|
{"long", s_cons, 2},
|
|
|
|
|
{"octa", s_cons, 4},
|
|
|
|
|
{"quad", s_cons, 3},
|
|
|
|
|
{"short", s_cons, 1},
|
|
|
|
|
{"single", s_float_cons, 'f'},
|
|
|
|
|
{"stabn", s_mips_stab, 'n'},
|
|
|
|
|
{"text", s_change_sec, 't'},
|
|
|
|
|
{"word", s_cons, 2},
|
2001-06-07 18:52:19 +02:00
|
|
|
|
|
|
|
|
|
#ifdef MIPS_STABS_ELF
|
|
|
|
|
{ "extern", ecoff_directive_extern, 0},
|
|
|
|
|
#endif
|
|
|
|
|
|
2000-05-30 00:05:27 +02:00
|
|
|
|
{ NULL, NULL, 0 },
|
1999-05-03 09:29:11 +02:00
|
|
|
|
};
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
static const pseudo_typeS mips_nonecoff_pseudo_table[] =
|
|
|
|
|
{
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* These pseudo-ops should be defined by the object file format.
|
|
|
|
|
However, a.out doesn't support them, so we have versions here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"aent", s_mips_ent, 1},
|
|
|
|
|
{"bgnb", s_ignore, 0},
|
|
|
|
|
{"end", s_mips_end, 0},
|
|
|
|
|
{"endb", s_ignore, 0},
|
|
|
|
|
{"ent", s_mips_ent, 0},
|
|
|
|
|
{"file", s_file, 0},
|
|
|
|
|
{"fmask", s_mips_mask, 'F'},
|
|
|
|
|
{"frame", s_mips_frame, 0},
|
|
|
|
|
{"loc", s_ignore, 0},
|
|
|
|
|
{"mask", s_mips_mask, 'R'},
|
|
|
|
|
{"verstamp", s_ignore, 0},
|
2000-05-30 00:05:27 +02:00
|
|
|
|
{ NULL, NULL, 0 },
|
1999-05-03 09:29:11 +02:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
extern void pop_insert PARAMS ((const pseudo_typeS *));
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_pop_insert ()
|
|
|
|
|
{
|
|
|
|
|
pop_insert (mips_pseudo_table);
|
|
|
|
|
if (! ECOFF_DEBUGGING)
|
|
|
|
|
pop_insert (mips_nonecoff_pseudo_table);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Symbols labelling the current insn. */
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
struct insn_label_list
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
struct insn_label_list *next;
|
|
|
|
|
symbolS *label;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct insn_label_list *insn_labels;
|
|
|
|
|
static struct insn_label_list *free_insn_labels;
|
|
|
|
|
|
|
|
|
|
static void mips_clear_insn_labels PARAMS ((void));
|
|
|
|
|
|
|
|
|
|
static inline void
|
|
|
|
|
mips_clear_insn_labels ()
|
|
|
|
|
{
|
|
|
|
|
register struct insn_label_list **pl;
|
|
|
|
|
|
|
|
|
|
for (pl = &free_insn_labels; *pl != NULL; pl = &(*pl)->next)
|
|
|
|
|
;
|
|
|
|
|
*pl = insn_labels;
|
|
|
|
|
insn_labels = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *expr_end;
|
|
|
|
|
|
|
|
|
|
/* Expressions which appear in instructions. These are set by
|
|
|
|
|
mips_ip. */
|
|
|
|
|
|
|
|
|
|
static expressionS imm_expr;
|
|
|
|
|
static expressionS offset_expr;
|
|
|
|
|
|
|
|
|
|
/* Relocs associated with imm_expr and offset_expr. */
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
static bfd_reloc_code_real_type imm_reloc[3]
|
|
|
|
|
= {BFD_RELOC_UNUSED, BFD_RELOC_UNUSED, BFD_RELOC_UNUSED};
|
|
|
|
|
static bfd_reloc_code_real_type offset_reloc[3]
|
|
|
|
|
= {BFD_RELOC_UNUSED, BFD_RELOC_UNUSED, BFD_RELOC_UNUSED};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* This is set by mips_ip if imm_reloc is an unmatched HI16_S reloc. */
|
|
|
|
|
|
|
|
|
|
static boolean imm_unmatched_hi;
|
|
|
|
|
|
|
|
|
|
/* These are set by mips16_ip if an explicit extension is used. */
|
|
|
|
|
|
|
|
|
|
static boolean mips16_small, mips16_ext;
|
|
|
|
|
|
|
|
|
|
#ifdef MIPS_STABS_ELF
|
|
|
|
|
/* The pdr segment for per procedure frame/regmask info */
|
|
|
|
|
|
|
|
|
|
static segT pdr_seg;
|
|
|
|
|
#endif
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
static const char *
|
|
|
|
|
mips_isa_to_str (isa)
|
|
|
|
|
int isa;
|
|
|
|
|
{
|
|
|
|
|
const struct mips_cpu_info *ci;
|
|
|
|
|
static char s[20];
|
|
|
|
|
|
|
|
|
|
ci = mips_cpu_info_from_isa (isa);
|
|
|
|
|
if (ci != NULL)
|
|
|
|
|
return (ci->name);
|
|
|
|
|
|
|
|
|
|
sprintf (s, "ISA#%d", isa);
|
|
|
|
|
return s;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const char *
|
2000-09-14 03:47:38 +02:00
|
|
|
|
mips_cpu_to_str (cpu)
|
|
|
|
|
int cpu;
|
|
|
|
|
{
|
2000-12-01 22:35:38 +01:00
|
|
|
|
const struct mips_cpu_info *ci;
|
2000-09-14 03:47:38 +02:00
|
|
|
|
static char s[16];
|
2000-12-01 22:35:38 +01:00
|
|
|
|
|
|
|
|
|
ci = mips_cpu_info_from_cpu (cpu);
|
|
|
|
|
if (ci != NULL)
|
|
|
|
|
return (ci->name);
|
|
|
|
|
|
|
|
|
|
sprintf (s, "CPU#%d", cpu);
|
|
|
|
|
return s;
|
2000-09-14 03:47:38 +02:00
|
|
|
|
}
|
|
|
|
|
|
2001-10-03 22:30:15 +02:00
|
|
|
|
/* The default target format to use. */
|
|
|
|
|
|
|
|
|
|
const char *
|
|
|
|
|
mips_target_format ()
|
|
|
|
|
{
|
|
|
|
|
switch (OUTPUT_FLAVOR)
|
|
|
|
|
{
|
|
|
|
|
case bfd_target_aout_flavour:
|
|
|
|
|
return target_big_endian ? "a.out-mips-big" : "a.out-mips-little";
|
|
|
|
|
case bfd_target_ecoff_flavour:
|
|
|
|
|
return target_big_endian ? "ecoff-bigmips" : ECOFF_LITTLE_FORMAT;
|
|
|
|
|
case bfd_target_coff_flavour:
|
|
|
|
|
return "pe-mips";
|
|
|
|
|
case bfd_target_elf_flavour:
|
|
|
|
|
#ifdef TE_TMIPS
|
|
|
|
|
/* This is traditional mips */
|
|
|
|
|
return (target_big_endian
|
|
|
|
|
? (HAVE_64BIT_OBJECTS ? "elf64-tradbigmips"
|
|
|
|
|
: "elf32-tradbigmips")
|
|
|
|
|
: (HAVE_64BIT_OBJECTS ? "elf64-tradlittlemips"
|
|
|
|
|
: "elf32-tradlittlemips"));
|
|
|
|
|
#else
|
|
|
|
|
return (target_big_endian
|
|
|
|
|
? (HAVE_64BIT_OBJECTS ? "elf64-bigmips" : "elf32-bigmips")
|
|
|
|
|
: (HAVE_64BIT_OBJECTS ? "elf64-littlemips"
|
|
|
|
|
: "elf32-littlemips"));
|
|
|
|
|
#endif
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2000-09-14 03:47:38 +02:00
|
|
|
|
/* This function is called once, at assembler startup time. It should
|
|
|
|
|
set up all the tables, etc. that the MD part of the assembler will need. */
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
void
|
|
|
|
|
md_begin ()
|
|
|
|
|
{
|
|
|
|
|
register const char *retval = NULL;
|
2000-09-14 03:47:38 +02:00
|
|
|
|
int i = 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
const char *cpu;
|
|
|
|
|
char *a = NULL;
|
|
|
|
|
int broken = 0;
|
|
|
|
|
int mips_isa_from_cpu;
|
2000-12-01 22:35:38 +01:00
|
|
|
|
int target_cpu_had_mips16 = 0;
|
|
|
|
|
const struct mips_cpu_info *ci;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-02-24 20:49:18 +01:00
|
|
|
|
/* GP relative stuff not working for PE */
|
|
|
|
|
if (strncmp (TARGET_OS, "pe", 2) == 0
|
|
|
|
|
&& g_switch_value != 0)
|
|
|
|
|
{
|
|
|
|
|
if (g_switch_seen)
|
|
|
|
|
as_bad (_("-G not supported in this configuration."));
|
|
|
|
|
g_switch_value = 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
cpu = TARGET_CPU;
|
|
|
|
|
if (strcmp (cpu + (sizeof TARGET_CPU) - 3, "el") == 0)
|
|
|
|
|
{
|
|
|
|
|
a = xmalloc (sizeof TARGET_CPU);
|
|
|
|
|
strcpy (a, TARGET_CPU);
|
|
|
|
|
a[(sizeof TARGET_CPU) - 3] = '\0';
|
|
|
|
|
cpu = a;
|
|
|
|
|
}
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
if (strncmp (cpu, "mips16", sizeof "mips16" - 1) == 0)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2000-12-01 22:35:38 +01:00
|
|
|
|
target_cpu_had_mips16 = 1;
|
|
|
|
|
cpu += sizeof "mips16" - 1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
if (mips_opts.mips16 < 0)
|
|
|
|
|
mips_opts.mips16 = target_cpu_had_mips16;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-08-07 14:46:22 +02:00
|
|
|
|
/* Backward compatibility for historic -mcpu= option. Check for
|
|
|
|
|
incompatible options, warn if -mcpu is used. */
|
|
|
|
|
if (mips_cpu != CPU_UNKNOWN
|
|
|
|
|
&& mips_arch != CPU_UNKNOWN
|
|
|
|
|
&& mips_cpu != mips_arch)
|
|
|
|
|
{
|
|
|
|
|
as_fatal (_("The -mcpu option can't be used together with -march. "
|
|
|
|
|
"Use -mtune instead of -mcpu."));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (mips_cpu != CPU_UNKNOWN
|
|
|
|
|
&& mips_tune != CPU_UNKNOWN
|
|
|
|
|
&& mips_cpu != mips_tune)
|
|
|
|
|
{
|
|
|
|
|
as_fatal (_("The -mcpu option can't be used together with -mtune. "
|
|
|
|
|
"Use -march instead of -mcpu."));
|
|
|
|
|
}
|
|
|
|
|
|
2001-12-20 22:11:26 +01:00
|
|
|
|
#if 1
|
|
|
|
|
/* For backward compatibility, let -mipsN set various defaults. */
|
|
|
|
|
/* This code should go away, to be replaced with something rather more
|
|
|
|
|
draconian. Until GCC 3.1 has been released for some reasonable
|
|
|
|
|
amount of time, however, we need to support this. */
|
|
|
|
|
if (mips_opts.isa != ISA_UNKNOWN)
|
|
|
|
|
{
|
|
|
|
|
/* Translate -mipsN to the appropriate settings of file_mips_gp32
|
|
|
|
|
and file_mips_fp32. Tag binaries as using the mipsN ISA. */
|
|
|
|
|
if (file_mips_gp32 < 0)
|
|
|
|
|
{
|
|
|
|
|
if (ISA_HAS_64BIT_REGS (mips_opts.isa))
|
|
|
|
|
file_mips_gp32 = 0;
|
|
|
|
|
else
|
|
|
|
|
file_mips_gp32 = 1;
|
|
|
|
|
}
|
|
|
|
|
if (file_mips_fp32 < 0)
|
|
|
|
|
{
|
|
|
|
|
if (ISA_HAS_64BIT_REGS (mips_opts.isa))
|
|
|
|
|
file_mips_fp32 = 0;
|
|
|
|
|
else
|
|
|
|
|
file_mips_fp32 = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
ci = mips_cpu_info_from_isa (mips_opts.isa);
|
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
/* -mipsN has higher priority than -mcpu but lower than -march. */
|
|
|
|
|
if (mips_arch == CPU_UNKNOWN)
|
|
|
|
|
mips_arch = ci->cpu;
|
|
|
|
|
|
|
|
|
|
/* Default mips_abi. */
|
|
|
|
|
if (mips_opts.abi == NO_ABI)
|
|
|
|
|
{
|
|
|
|
|
if (mips_opts.isa == ISA_MIPS1 || mips_opts.isa == ISA_MIPS2)
|
|
|
|
|
mips_opts.abi = O32_ABI;
|
|
|
|
|
else if (mips_opts.isa == ISA_MIPS3 || mips_opts.isa == ISA_MIPS4)
|
|
|
|
|
mips_opts.abi = O64_ABI;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2001-08-07 14:46:22 +02:00
|
|
|
|
if (mips_arch == CPU_UNKNOWN && mips_cpu != CPU_UNKNOWN)
|
|
|
|
|
{
|
|
|
|
|
ci = mips_cpu_info_from_cpu (mips_cpu);
|
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
mips_arch = ci->cpu;
|
|
|
|
|
as_warn (_("The -mcpu option is deprecated. Please use -march and "
|
|
|
|
|
"-mtune instead."));
|
|
|
|
|
}
|
|
|
|
|
|
2001-12-20 22:11:26 +01:00
|
|
|
|
/* Set tune from -mcpu, not from -mipsN. */
|
|
|
|
|
if (mips_tune == CPU_UNKNOWN && mips_cpu != CPU_UNKNOWN)
|
|
|
|
|
{
|
|
|
|
|
ci = mips_cpu_info_from_cpu (mips_cpu);
|
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
mips_tune = ci->cpu;
|
|
|
|
|
}
|
|
|
|
|
|
2001-06-29 23:27:43 +02:00
|
|
|
|
/* At this point, mips_arch will either be CPU_UNKNOWN if no ARCH was
|
2000-12-01 22:35:38 +01:00
|
|
|
|
specified on the command line, or some other value if one was.
|
|
|
|
|
Similarly, mips_opts.isa will be ISA_UNKNOWN if not specified on
|
|
|
|
|
the command line, or will be set otherwise if one was. */
|
2001-12-20 22:11:26 +01:00
|
|
|
|
|
|
|
|
|
if (mips_arch != CPU_UNKNOWN && mips_opts.isa != ISA_UNKNOWN)
|
|
|
|
|
/* Handled above. */;
|
|
|
|
|
#else
|
|
|
|
|
if (mips_arch == CPU_UNKNOWN && mips_cpu != CPU_UNKNOWN)
|
|
|
|
|
{
|
|
|
|
|
ci = mips_cpu_info_from_cpu (mips_cpu);
|
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
mips_arch = ci->cpu;
|
|
|
|
|
as_warn (_("The -mcpu option is deprecated. Please use -march and "
|
|
|
|
|
"-mtune instead."));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* At this point, mips_arch will either be CPU_UNKNOWN if no ARCH was
|
|
|
|
|
specified on the command line, or some other value if one was.
|
|
|
|
|
Similarly, mips_opts.isa will be ISA_UNKNOWN if not specified on
|
|
|
|
|
the command line, or will be set otherwise if one was. */
|
|
|
|
|
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_arch != CPU_UNKNOWN && mips_opts.isa != ISA_UNKNOWN)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-08-21 03:13:05 +02:00
|
|
|
|
/* We have to check if the isa is the default isa of arch. Otherwise
|
|
|
|
|
we'll get invalid object file headers. */
|
|
|
|
|
ci = mips_cpu_info_from_cpu (mips_arch);
|
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
if (mips_opts.isa != ci->isa)
|
|
|
|
|
{
|
|
|
|
|
/* This really should be an error instead of a warning, but old
|
|
|
|
|
compilers only have -mcpu which sets both arch and tune. For
|
|
|
|
|
now, we discard arch and preserve tune. */
|
|
|
|
|
as_warn (_("The -march option is incompatible to -mipsN and "
|
|
|
|
|
"therefore ignored."));
|
|
|
|
|
if (mips_tune == CPU_UNKNOWN)
|
|
|
|
|
mips_tune = mips_arch;
|
|
|
|
|
ci = mips_cpu_info_from_isa (mips_opts.isa);
|
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
mips_arch = ci->cpu;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-12-20 22:11:26 +01:00
|
|
|
|
#endif
|
2001-06-29 23:27:43 +02:00
|
|
|
|
else if (mips_arch != CPU_UNKNOWN && mips_opts.isa == ISA_UNKNOWN)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-06-29 23:27:43 +02:00
|
|
|
|
/* We have ARCH, we need ISA. */
|
|
|
|
|
ci = mips_cpu_info_from_cpu (mips_arch);
|
2000-12-01 22:35:38 +01:00
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
mips_opts.isa = ci->isa;
|
|
|
|
|
}
|
2001-06-29 23:27:43 +02:00
|
|
|
|
else if (mips_arch == CPU_UNKNOWN && mips_opts.isa != ISA_UNKNOWN)
|
2000-12-01 22:35:38 +01:00
|
|
|
|
{
|
2001-06-29 23:27:43 +02:00
|
|
|
|
/* We have ISA, we need default ARCH. */
|
2000-12-01 22:35:38 +01:00
|
|
|
|
ci = mips_cpu_info_from_isa (mips_opts.isa);
|
|
|
|
|
assert (ci != NULL);
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_arch = ci->cpu;
|
|
|
|
|
}
|
2000-12-01 22:35:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
2001-06-29 23:27:43 +02:00
|
|
|
|
/* We need to set both ISA and ARCH from target cpu. */
|
2000-12-01 22:35:38 +01:00
|
|
|
|
ci = mips_cpu_info_from_name (cpu);
|
|
|
|
|
if (ci == NULL)
|
2000-12-05 19:51:08 +01:00
|
|
|
|
ci = mips_cpu_info_from_cpu (CPU_R3000);
|
2000-12-01 22:35:38 +01:00
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
mips_opts.isa = ci->isa;
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_arch = ci->cpu;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_tune == CPU_UNKNOWN)
|
|
|
|
|
mips_tune = mips_arch;
|
|
|
|
|
|
|
|
|
|
ci = mips_cpu_info_from_cpu (mips_arch);
|
2000-12-01 22:35:38 +01:00
|
|
|
|
assert (ci != NULL);
|
|
|
|
|
mips_isa_from_cpu = ci->isa;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* End of TARGET_CPU processing, get rid of malloced memory
|
2000-09-07 14:45:56 +02:00
|
|
|
|
if necessary. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
cpu = NULL;
|
|
|
|
|
if (a != NULL)
|
|
|
|
|
{
|
2000-09-14 03:47:38 +02:00
|
|
|
|
free (a);
|
|
|
|
|
a = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
if (mips_opts.isa == ISA_MIPS1 && mips_trap)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad (_("trap exception not supported at ISA 1"));
|
|
|
|
|
|
|
|
|
|
/* Set the EABI kind based on the ISA before the user gets
|
|
|
|
|
to change the ISA with directives. This isn't really
|
2000-09-07 14:45:56 +02:00
|
|
|
|
the best, but then neither is basing the abi on the isa. */
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
if (ISA_HAS_64BIT_REGS (mips_opts.isa)
|
2001-11-12 17:54:54 +01:00
|
|
|
|
&& mips_opts.abi == EABI_ABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
mips_eabi64 = 1;
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
/* If they asked for mips1 or mips2 and a cpu that is
|
|
|
|
|
mips3 or greater, then mark the object file 32BITMODE. */
|
|
|
|
|
if (mips_isa_from_cpu != ISA_UNKNOWN
|
|
|
|
|
&& ! ISA_HAS_64BIT_REGS (mips_opts.isa)
|
|
|
|
|
&& ISA_HAS_64BIT_REGS (mips_isa_from_cpu))
|
|
|
|
|
mips_32bitmode = 1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (! bfd_set_arch_mach (stdoutput, bfd_arch_mips, mips_arch))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_warn (_("Could not set architecture and machine"));
|
|
|
|
|
|
2001-12-20 22:11:26 +01:00
|
|
|
|
if (file_mips_gp32 < 0)
|
|
|
|
|
file_mips_gp32 = 0;
|
|
|
|
|
if (file_mips_fp32 < 0)
|
|
|
|
|
file_mips_fp32 = 0;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
file_mips_isa = mips_opts.isa;
|
2001-11-12 17:54:54 +01:00
|
|
|
|
file_mips_abi = mips_opts.abi;
|
|
|
|
|
mips_opts.gp32 = file_mips_gp32;
|
|
|
|
|
mips_opts.fp32 = file_mips_fp32;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
op_hash = hash_new ();
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < NUMOPCODES;)
|
|
|
|
|
{
|
|
|
|
|
const char *name = mips_opcodes[i].name;
|
|
|
|
|
|
|
|
|
|
retval = hash_insert (op_hash, name, (PTR) &mips_opcodes[i]);
|
|
|
|
|
if (retval != NULL)
|
|
|
|
|
{
|
|
|
|
|
fprintf (stderr, _("internal error: can't hash `%s': %s\n"),
|
|
|
|
|
mips_opcodes[i].name, retval);
|
|
|
|
|
/* Probably a memory allocation problem? Give up now. */
|
|
|
|
|
as_fatal (_("Broken assembler. No assembly attempted."));
|
|
|
|
|
}
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (mips_opcodes[i].pinfo != INSN_MACRO)
|
|
|
|
|
{
|
|
|
|
|
if (!validate_mips_insn (&mips_opcodes[i]))
|
|
|
|
|
broken = 1;
|
|
|
|
|
}
|
|
|
|
|
++i;
|
|
|
|
|
}
|
|
|
|
|
while ((i < NUMOPCODES) && !strcmp (mips_opcodes[i].name, name));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
mips16_op_hash = hash_new ();
|
|
|
|
|
|
|
|
|
|
i = 0;
|
|
|
|
|
while (i < bfd_mips16_num_opcodes)
|
|
|
|
|
{
|
|
|
|
|
const char *name = mips16_opcodes[i].name;
|
|
|
|
|
|
|
|
|
|
retval = hash_insert (mips16_op_hash, name, (PTR) &mips16_opcodes[i]);
|
|
|
|
|
if (retval != NULL)
|
|
|
|
|
as_fatal (_("internal: can't hash `%s': %s"),
|
|
|
|
|
mips16_opcodes[i].name, retval);
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (mips16_opcodes[i].pinfo != INSN_MACRO
|
|
|
|
|
&& ((mips16_opcodes[i].match & mips16_opcodes[i].mask)
|
|
|
|
|
!= mips16_opcodes[i].match))
|
|
|
|
|
{
|
|
|
|
|
fprintf (stderr, _("internal error: bad mips16 opcode: %s %s\n"),
|
|
|
|
|
mips16_opcodes[i].name, mips16_opcodes[i].args);
|
|
|
|
|
broken = 1;
|
|
|
|
|
}
|
|
|
|
|
++i;
|
|
|
|
|
}
|
|
|
|
|
while (i < bfd_mips16_num_opcodes
|
|
|
|
|
&& strcmp (mips16_opcodes[i].name, name) == 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (broken)
|
|
|
|
|
as_fatal (_("Broken assembler. No assembly attempted."));
|
|
|
|
|
|
|
|
|
|
/* We add all the general register names to the symbol table. This
|
|
|
|
|
helps us detect invalid uses of them. */
|
|
|
|
|
for (i = 0; i < 32; i++)
|
|
|
|
|
{
|
|
|
|
|
char buf[5];
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "$%d", i);
|
|
|
|
|
symbol_table_insert (symbol_new (buf, reg_section, i,
|
|
|
|
|
&zero_address_frag));
|
|
|
|
|
}
|
|
|
|
|
symbol_table_insert (symbol_new ("$fp", reg_section, FP,
|
|
|
|
|
&zero_address_frag));
|
|
|
|
|
symbol_table_insert (symbol_new ("$sp", reg_section, SP,
|
|
|
|
|
&zero_address_frag));
|
|
|
|
|
symbol_table_insert (symbol_new ("$gp", reg_section, GP,
|
|
|
|
|
&zero_address_frag));
|
|
|
|
|
symbol_table_insert (symbol_new ("$at", reg_section, AT,
|
|
|
|
|
&zero_address_frag));
|
|
|
|
|
symbol_table_insert (symbol_new ("$kt0", reg_section, KT0,
|
|
|
|
|
&zero_address_frag));
|
|
|
|
|
symbol_table_insert (symbol_new ("$kt1", reg_section, KT1,
|
|
|
|
|
&zero_address_frag));
|
|
|
|
|
symbol_table_insert (symbol_new ("$pc", reg_section, -1,
|
|
|
|
|
&zero_address_frag));
|
|
|
|
|
|
|
|
|
|
mips_no_prev_insn (false);
|
|
|
|
|
|
|
|
|
|
mips_gprmask = 0;
|
|
|
|
|
mips_cprmask[0] = 0;
|
|
|
|
|
mips_cprmask[1] = 0;
|
|
|
|
|
mips_cprmask[2] = 0;
|
|
|
|
|
mips_cprmask[3] = 0;
|
|
|
|
|
|
|
|
|
|
/* set the default alignment for the text section (2**2) */
|
|
|
|
|
record_alignment (text_section, 2);
|
|
|
|
|
|
|
|
|
|
if (USE_GLOBAL_POINTER_OPT)
|
|
|
|
|
bfd_set_gp_size (stdoutput, g_switch_value);
|
|
|
|
|
|
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
/* On a native system, sections must be aligned to 16 byte
|
|
|
|
|
boundaries. When configured for an embedded ELF target, we
|
|
|
|
|
don't bother. */
|
|
|
|
|
if (strcmp (TARGET_OS, "elf") != 0)
|
|
|
|
|
{
|
|
|
|
|
(void) bfd_set_section_alignment (stdoutput, text_section, 4);
|
|
|
|
|
(void) bfd_set_section_alignment (stdoutput, data_section, 4);
|
|
|
|
|
(void) bfd_set_section_alignment (stdoutput, bss_section, 4);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Create a .reginfo section for register masks and a .mdebug
|
|
|
|
|
section for debugging information. */
|
|
|
|
|
{
|
|
|
|
|
segT seg;
|
|
|
|
|
subsegT subseg;
|
|
|
|
|
flagword flags;
|
|
|
|
|
segT sec;
|
|
|
|
|
|
|
|
|
|
seg = now_seg;
|
|
|
|
|
subseg = now_subseg;
|
|
|
|
|
|
|
|
|
|
/* The ABI says this section should be loaded so that the
|
|
|
|
|
running program can access it. However, we don't load it
|
|
|
|
|
if we are configured for an embedded target */
|
|
|
|
|
flags = SEC_READONLY | SEC_DATA;
|
|
|
|
|
if (strcmp (TARGET_OS, "elf") != 0)
|
|
|
|
|
flags |= SEC_ALLOC | SEC_LOAD;
|
|
|
|
|
|
2001-10-03 22:30:15 +02:00
|
|
|
|
if (! HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
sec = subseg_new (".reginfo", (subsegT) 0);
|
|
|
|
|
|
|
|
|
|
(void) bfd_set_section_flags (stdoutput, sec, flags);
|
|
|
|
|
(void) bfd_set_section_alignment (stdoutput, sec, 2);
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
mips_regmask_frag = frag_more (sizeof (Elf32_External_RegInfo));
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* The 64-bit ABI uses a .MIPS.options section rather than
|
|
|
|
|
.reginfo section. */
|
|
|
|
|
sec = subseg_new (".MIPS.options", (subsegT) 0);
|
|
|
|
|
(void) bfd_set_section_flags (stdoutput, sec, flags);
|
|
|
|
|
(void) bfd_set_section_alignment (stdoutput, sec, 3);
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* Set up the option header. */
|
|
|
|
|
{
|
|
|
|
|
Elf_Internal_Options opthdr;
|
|
|
|
|
char *f;
|
|
|
|
|
|
|
|
|
|
opthdr.kind = ODK_REGINFO;
|
|
|
|
|
opthdr.size = (sizeof (Elf_External_Options)
|
|
|
|
|
+ sizeof (Elf64_External_RegInfo));
|
|
|
|
|
opthdr.section = 0;
|
|
|
|
|
opthdr.info = 0;
|
|
|
|
|
f = frag_more (sizeof (Elf_External_Options));
|
|
|
|
|
bfd_mips_elf_swap_options_out (stdoutput, &opthdr,
|
|
|
|
|
(Elf_External_Options *) f);
|
|
|
|
|
|
|
|
|
|
mips_regmask_frag = frag_more (sizeof (Elf64_External_RegInfo));
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (ECOFF_DEBUGGING)
|
|
|
|
|
{
|
|
|
|
|
sec = subseg_new (".mdebug", (subsegT) 0);
|
|
|
|
|
(void) bfd_set_section_flags (stdoutput, sec,
|
|
|
|
|
SEC_HAS_CONTENTS | SEC_READONLY);
|
|
|
|
|
(void) bfd_set_section_alignment (stdoutput, sec, 2);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef MIPS_STABS_ELF
|
|
|
|
|
pdr_seg = subseg_new (".pdr", (subsegT) 0);
|
|
|
|
|
(void) bfd_set_section_flags (stdoutput, pdr_seg,
|
|
|
|
|
SEC_READONLY | SEC_RELOC | SEC_DEBUGGING);
|
|
|
|
|
(void) bfd_set_section_alignment (stdoutput, pdr_seg, 2);
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
subseg_set (seg, subseg);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! ECOFF_DEBUGGING)
|
|
|
|
|
md_obj_begin ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_mips_end ()
|
|
|
|
|
{
|
|
|
|
|
if (! ECOFF_DEBUGGING)
|
|
|
|
|
md_obj_end ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_assemble (str)
|
|
|
|
|
char *str;
|
|
|
|
|
{
|
|
|
|
|
struct mips_cl_insn insn;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
bfd_reloc_code_real_type unused_reloc[3]
|
|
|
|
|
= {BFD_RELOC_UNUSED, BFD_RELOC_UNUSED, BFD_RELOC_UNUSED};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
imm_unmatched_hi = false;
|
|
|
|
|
offset_expr.X_op = O_absent;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
imm_reloc[0] = BFD_RELOC_UNUSED;
|
|
|
|
|
imm_reloc[1] = BFD_RELOC_UNUSED;
|
|
|
|
|
imm_reloc[2] = BFD_RELOC_UNUSED;
|
|
|
|
|
offset_reloc[0] = BFD_RELOC_UNUSED;
|
|
|
|
|
offset_reloc[1] = BFD_RELOC_UNUSED;
|
|
|
|
|
offset_reloc[2] = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (mips_opts.mips16)
|
|
|
|
|
mips16_ip (str, &insn);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
mips_ip (str, &insn);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
DBG ((_("returned from mips_ip(%s) insn_opcode = 0x%x\n"),
|
|
|
|
|
str, insn.insn_opcode));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (insn_error)
|
|
|
|
|
{
|
|
|
|
|
as_bad ("%s `%s'", insn_error, str);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (insn.insn_mo->pinfo == INSN_MACRO)
|
|
|
|
|
{
|
|
|
|
|
if (mips_opts.mips16)
|
|
|
|
|
mips16_macro (&insn);
|
|
|
|
|
else
|
|
|
|
|
macro (&insn);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (imm_expr.X_op != O_absent)
|
2001-11-12 23:19:30 +01:00
|
|
|
|
append_insn (NULL, &insn, &imm_expr, imm_reloc, imm_unmatched_hi);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (offset_expr.X_op != O_absent)
|
2001-11-12 23:19:30 +01:00
|
|
|
|
append_insn (NULL, &insn, &offset_expr, offset_reloc, false);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2001-11-12 23:19:30 +01:00
|
|
|
|
append_insn (NULL, &insn, NULL, unused_reloc, false);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* See whether instruction IP reads register REG. CLASS is the type
|
|
|
|
|
of register. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
insn_uses_reg (ip, reg, class)
|
|
|
|
|
struct mips_cl_insn *ip;
|
|
|
|
|
unsigned int reg;
|
|
|
|
|
enum mips_regclass class;
|
|
|
|
|
{
|
|
|
|
|
if (class == MIPS16_REG)
|
|
|
|
|
{
|
|
|
|
|
assert (mips_opts.mips16);
|
|
|
|
|
reg = mips16_to_32_reg_map[reg];
|
|
|
|
|
class = MIPS_GR_REG;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Don't report on general register 0, since it never changes. */
|
|
|
|
|
if (class == MIPS_GR_REG && reg == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
if (class == MIPS_FP_REG)
|
|
|
|
|
{
|
|
|
|
|
assert (! mips_opts.mips16);
|
|
|
|
|
/* If we are called with either $f0 or $f1, we must check $f0.
|
|
|
|
|
This is not optimal, because it will introduce an unnecessary
|
|
|
|
|
NOP between "lwc1 $f0" and "swc1 $f1". To fix this we would
|
|
|
|
|
need to distinguish reading both $f0 and $f1 or just one of
|
|
|
|
|
them. Note that we don't have to check the other way,
|
|
|
|
|
because there is no instruction that sets both $f0 and $f1
|
|
|
|
|
and requires a delay. */
|
|
|
|
|
if ((ip->insn_mo->pinfo & INSN_READ_FPR_S)
|
|
|
|
|
&& ((((ip->insn_opcode >> OP_SH_FS) & OP_MASK_FS) &~(unsigned)1)
|
|
|
|
|
== (reg &~ (unsigned) 1)))
|
|
|
|
|
return 1;
|
|
|
|
|
if ((ip->insn_mo->pinfo & INSN_READ_FPR_T)
|
|
|
|
|
&& ((((ip->insn_opcode >> OP_SH_FT) & OP_MASK_FT) &~(unsigned)1)
|
|
|
|
|
== (reg &~ (unsigned) 1)))
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
else if (! mips_opts.mips16)
|
|
|
|
|
{
|
|
|
|
|
if ((ip->insn_mo->pinfo & INSN_READ_GPR_S)
|
|
|
|
|
&& ((ip->insn_opcode >> OP_SH_RS) & OP_MASK_RS) == reg)
|
|
|
|
|
return 1;
|
|
|
|
|
if ((ip->insn_mo->pinfo & INSN_READ_GPR_T)
|
|
|
|
|
&& ((ip->insn_opcode >> OP_SH_RT) & OP_MASK_RT) == reg)
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if ((ip->insn_mo->pinfo & MIPS16_INSN_READ_X)
|
|
|
|
|
&& (mips16_to_32_reg_map[((ip->insn_opcode >> MIPS16OP_SH_RX)
|
|
|
|
|
& MIPS16OP_MASK_RX)]
|
|
|
|
|
== reg))
|
|
|
|
|
return 1;
|
|
|
|
|
if ((ip->insn_mo->pinfo & MIPS16_INSN_READ_Y)
|
|
|
|
|
&& (mips16_to_32_reg_map[((ip->insn_opcode >> MIPS16OP_SH_RY)
|
|
|
|
|
& MIPS16OP_MASK_RY)]
|
|
|
|
|
== reg))
|
|
|
|
|
return 1;
|
|
|
|
|
if ((ip->insn_mo->pinfo & MIPS16_INSN_READ_Z)
|
|
|
|
|
&& (mips16_to_32_reg_map[((ip->insn_opcode >> MIPS16OP_SH_MOVE32Z)
|
|
|
|
|
& MIPS16OP_MASK_MOVE32Z)]
|
|
|
|
|
== reg))
|
|
|
|
|
return 1;
|
|
|
|
|
if ((ip->insn_mo->pinfo & MIPS16_INSN_READ_T) && reg == TREG)
|
|
|
|
|
return 1;
|
|
|
|
|
if ((ip->insn_mo->pinfo & MIPS16_INSN_READ_SP) && reg == SP)
|
|
|
|
|
return 1;
|
|
|
|
|
if ((ip->insn_mo->pinfo & MIPS16_INSN_READ_31) && reg == RA)
|
|
|
|
|
return 1;
|
|
|
|
|
if ((ip->insn_mo->pinfo & MIPS16_INSN_READ_GPR_X)
|
|
|
|
|
&& ((ip->insn_opcode >> MIPS16OP_SH_REGR32)
|
|
|
|
|
& MIPS16OP_MASK_REGR32) == reg)
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This function returns true if modifying a register requires a
|
|
|
|
|
delay. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
reg_needs_delay (reg)
|
2000-09-14 03:47:38 +02:00
|
|
|
|
unsigned int reg;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
unsigned long prev_pinfo;
|
|
|
|
|
|
|
|
|
|
prev_pinfo = prev_insn.insn_mo->pinfo;
|
|
|
|
|
if (! mips_opts.noreorder
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& ((prev_pinfo & INSN_LOAD_COPROC_DELAY)
|
|
|
|
|
|| (! gpr_interlocks
|
|
|
|
|
&& (prev_pinfo & INSN_LOAD_MEMORY_DELAY))))
|
|
|
|
|
{
|
|
|
|
|
/* A load from a coprocessor or from memory. All load
|
|
|
|
|
delays delay the use of general register rt for one
|
|
|
|
|
instruction on the r3000. The r6000 and r4000 use
|
|
|
|
|
interlocks. */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
know (prev_pinfo & INSN_WRITE_GPR_T);
|
|
|
|
|
if (reg == ((prev_insn.insn_opcode >> OP_SH_RT) & OP_MASK_RT))
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Mark instruction labels in mips16 mode. This permits the linker to
|
|
|
|
|
handle them specially, such as generating jalx instructions when
|
|
|
|
|
needed. We also make them odd for the duration of the assembly, in
|
|
|
|
|
order to generate the right sort of code. We will make them even
|
|
|
|
|
in the adjust_symtab routine, while leaving them marked. This is
|
|
|
|
|
convenient for the debugger and the disassembler. The linker knows
|
|
|
|
|
to make them odd again. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips16_mark_labels ()
|
|
|
|
|
{
|
|
|
|
|
if (mips_opts.mips16)
|
|
|
|
|
{
|
|
|
|
|
struct insn_label_list *l;
|
2001-06-08 08:07:13 +02:00
|
|
|
|
valueT val;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
for (l = insn_labels; l != NULL; l = l->next)
|
|
|
|
|
{
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
|
|
|
|
S_SET_OTHER (l->label, STO_MIPS16);
|
|
|
|
|
#endif
|
2001-06-08 08:07:13 +02:00
|
|
|
|
val = S_GET_VALUE (l->label);
|
|
|
|
|
if ((val & 1) == 0)
|
|
|
|
|
S_SET_VALUE (l->label, val + 1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output an instruction. PLACE is where to put the instruction; if
|
|
|
|
|
it is NULL, this uses frag_more to get room. IP is the instruction
|
|
|
|
|
information. ADDRESS_EXPR is an operand of the instruction to be
|
|
|
|
|
used with RELOC_TYPE. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
append_insn (place, ip, address_expr, reloc_type, unmatched_hi)
|
|
|
|
|
char *place;
|
|
|
|
|
struct mips_cl_insn *ip;
|
|
|
|
|
expressionS *address_expr;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
bfd_reloc_code_real_type *reloc_type;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
boolean unmatched_hi;
|
|
|
|
|
{
|
|
|
|
|
register unsigned long prev_pinfo, pinfo;
|
|
|
|
|
char *f;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
fixS *fixp[3];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int nops = 0;
|
|
|
|
|
|
|
|
|
|
/* Mark instruction labels in mips16 mode. */
|
|
|
|
|
if (mips_opts.mips16)
|
|
|
|
|
mips16_mark_labels ();
|
|
|
|
|
|
|
|
|
|
prev_pinfo = prev_insn.insn_mo->pinfo;
|
|
|
|
|
pinfo = ip->insn_mo->pinfo;
|
|
|
|
|
|
|
|
|
|
if (place == NULL && (! mips_opts.noreorder || prev_nop_frag != NULL))
|
|
|
|
|
{
|
|
|
|
|
int prev_prev_nop;
|
|
|
|
|
|
|
|
|
|
/* If the previous insn required any delay slots, see if we need
|
|
|
|
|
to insert a NOP or two. There are eight kinds of possible
|
|
|
|
|
hazards, of which an instruction can have at most one type.
|
|
|
|
|
(1) a load from memory delay
|
|
|
|
|
(2) a load from a coprocessor delay
|
|
|
|
|
(3) an unconditional branch delay
|
|
|
|
|
(4) a conditional branch delay
|
|
|
|
|
(5) a move to coprocessor register delay
|
|
|
|
|
(6) a load coprocessor register from memory delay
|
|
|
|
|
(7) a coprocessor condition code delay
|
|
|
|
|
(8) a HI/LO special register delay
|
|
|
|
|
|
|
|
|
|
There are a lot of optimizations we could do that we don't.
|
|
|
|
|
In particular, we do not, in general, reorder instructions.
|
|
|
|
|
If you use gcc with optimization, it will reorder
|
|
|
|
|
instructions and generally do much more optimization then we
|
|
|
|
|
do here; repeating all that work in the assembler would only
|
|
|
|
|
benefit hand written assembly code, and does not seem worth
|
|
|
|
|
it. */
|
|
|
|
|
|
|
|
|
|
/* This is how a NOP is emitted. */
|
|
|
|
|
#define emit_nop() \
|
|
|
|
|
(mips_opts.mips16 \
|
|
|
|
|
? md_number_to_chars (frag_more (2), 0x6500, 2) \
|
|
|
|
|
: md_number_to_chars (frag_more (4), 0, 4))
|
|
|
|
|
|
|
|
|
|
/* The previous insn might require a delay slot, depending upon
|
|
|
|
|
the contents of the current insn. */
|
|
|
|
|
if (! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (((prev_pinfo & INSN_LOAD_COPROC_DELAY)
|
|
|
|
|
&& ! cop_interlocks)
|
|
|
|
|
|| (! gpr_interlocks
|
|
|
|
|
&& (prev_pinfo & INSN_LOAD_MEMORY_DELAY))))
|
|
|
|
|
{
|
|
|
|
|
/* A load from a coprocessor or from memory. All load
|
|
|
|
|
delays delay the use of general register rt for one
|
|
|
|
|
instruction on the r3000. The r6000 and r4000 use
|
|
|
|
|
interlocks. */
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
know (prev_pinfo & INSN_WRITE_GPR_T);
|
|
|
|
|
if (mips_optimize == 0
|
|
|
|
|
|| insn_uses_reg (ip,
|
|
|
|
|
((prev_insn.insn_opcode >> OP_SH_RT)
|
|
|
|
|
& OP_MASK_RT),
|
|
|
|
|
MIPS_GR_REG))
|
|
|
|
|
++nops;
|
|
|
|
|
}
|
|
|
|
|
else if (! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (((prev_pinfo & INSN_COPROC_MOVE_DELAY)
|
2000-12-05 19:51:08 +01:00
|
|
|
|
&& ! cop_interlocks)
|
2000-12-01 22:35:38 +01:00
|
|
|
|
|| (mips_opts.isa == ISA_MIPS1
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (prev_pinfo & INSN_COPROC_MEMORY_DELAY))))
|
|
|
|
|
{
|
|
|
|
|
/* A generic coprocessor delay. The previous instruction
|
|
|
|
|
modified a coprocessor general or control register. If
|
|
|
|
|
it modified a control register, we need to avoid any
|
|
|
|
|
coprocessor instruction (this is probably not always
|
|
|
|
|
required, but it sometimes is). If it modified a general
|
|
|
|
|
register, we avoid using that register.
|
|
|
|
|
|
|
|
|
|
On the r6000 and r4000 loading a coprocessor register
|
|
|
|
|
from memory is interlocked, and does not require a delay.
|
|
|
|
|
|
|
|
|
|
This case is not handled very well. There is no special
|
|
|
|
|
knowledge of CP0 handling, and the coprocessors other
|
|
|
|
|
than the floating point unit are not distinguished at
|
|
|
|
|
all. */
|
|
|
|
|
/* Itbl support may require additional care here. FIXME!
|
2000-09-07 14:45:56 +02:00
|
|
|
|
Need to modify this to include knowledge about
|
1999-05-03 09:29:11 +02:00
|
|
|
|
user specified delays! */
|
|
|
|
|
if (prev_pinfo & INSN_WRITE_FPR_T)
|
|
|
|
|
{
|
|
|
|
|
if (mips_optimize == 0
|
|
|
|
|
|| insn_uses_reg (ip,
|
|
|
|
|
((prev_insn.insn_opcode >> OP_SH_FT)
|
|
|
|
|
& OP_MASK_FT),
|
|
|
|
|
MIPS_FP_REG))
|
|
|
|
|
++nops;
|
|
|
|
|
}
|
|
|
|
|
else if (prev_pinfo & INSN_WRITE_FPR_S)
|
|
|
|
|
{
|
|
|
|
|
if (mips_optimize == 0
|
|
|
|
|
|| insn_uses_reg (ip,
|
|
|
|
|
((prev_insn.insn_opcode >> OP_SH_FS)
|
|
|
|
|
& OP_MASK_FS),
|
|
|
|
|
MIPS_FP_REG))
|
|
|
|
|
++nops;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* We don't know exactly what the previous instruction
|
|
|
|
|
does. If the current instruction uses a coprocessor
|
|
|
|
|
register, we must insert a NOP. If previous
|
|
|
|
|
instruction may set the condition codes, and the
|
|
|
|
|
current instruction uses them, we must insert two
|
|
|
|
|
NOPS. */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (mips_optimize == 0
|
|
|
|
|
|| ((prev_pinfo & INSN_WRITE_COND_CODE)
|
|
|
|
|
&& (pinfo & INSN_READ_COND_CODE)))
|
|
|
|
|
nops += 2;
|
|
|
|
|
else if (pinfo & INSN_COP)
|
|
|
|
|
++nops;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (prev_pinfo & INSN_WRITE_COND_CODE)
|
|
|
|
|
&& ! cop_interlocks)
|
|
|
|
|
{
|
|
|
|
|
/* The previous instruction sets the coprocessor condition
|
|
|
|
|
codes, but does not require a general coprocessor delay
|
|
|
|
|
(this means it is a floating point comparison
|
|
|
|
|
instruction). If this instruction uses the condition
|
|
|
|
|
codes, we need to insert a single NOP. */
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (mips_optimize == 0
|
|
|
|
|
|| (pinfo & INSN_READ_COND_CODE))
|
|
|
|
|
++nops;
|
|
|
|
|
}
|
2000-02-21 21:00:33 +01:00
|
|
|
|
|
|
|
|
|
/* If we're fixing up mfhi/mflo for the r7000 and the
|
|
|
|
|
previous insn was an mfhi/mflo and the current insn
|
|
|
|
|
reads the register that the mfhi/mflo wrote to, then
|
|
|
|
|
insert two nops. */
|
|
|
|
|
|
|
|
|
|
else if (mips_7000_hilo_fix
|
|
|
|
|
&& MF_HILO_INSN (prev_pinfo)
|
|
|
|
|
&& insn_uses_reg (ip, ((prev_insn.insn_opcode >> OP_SH_RD)
|
2000-12-05 19:51:08 +01:00
|
|
|
|
& OP_MASK_RD),
|
|
|
|
|
MIPS_GR_REG))
|
2000-02-21 21:00:33 +01:00
|
|
|
|
{
|
|
|
|
|
nops += 2;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If we're fixing up mfhi/mflo for the r7000 and the
|
|
|
|
|
2nd previous insn was an mfhi/mflo and the current insn
|
|
|
|
|
reads the register that the mfhi/mflo wrote to, then
|
|
|
|
|
insert one nop. */
|
|
|
|
|
|
|
|
|
|
else if (mips_7000_hilo_fix
|
|
|
|
|
&& MF_HILO_INSN (prev_prev_insn.insn_opcode)
|
|
|
|
|
&& insn_uses_reg (ip, ((prev_prev_insn.insn_opcode >> OP_SH_RD)
|
|
|
|
|
& OP_MASK_RD),
|
|
|
|
|
MIPS_GR_REG))
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
2000-02-21 21:00:33 +01:00
|
|
|
|
{
|
|
|
|
|
nops += 1;
|
|
|
|
|
}
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (prev_pinfo & INSN_READ_LO)
|
|
|
|
|
{
|
|
|
|
|
/* The previous instruction reads the LO register; if the
|
|
|
|
|
current instruction writes to the LO register, we must
|
2000-09-07 14:45:56 +02:00
|
|
|
|
insert two NOPS. Some newer processors have interlocks.
|
|
|
|
|
Also the tx39's multiply instructions can be exectuted
|
1999-05-03 09:29:11 +02:00
|
|
|
|
immediatly after a read from HI/LO (without the delay),
|
2000-09-07 14:45:56 +02:00
|
|
|
|
though the tx39's divide insns still do require the
|
|
|
|
|
delay. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! (hilo_interlocks
|
2001-06-29 23:27:43 +02:00
|
|
|
|
|| (mips_tune == CPU_R3900 && (pinfo & INSN_MULT)))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (mips_optimize == 0
|
|
|
|
|
|| (pinfo & INSN_WRITE_LO)))
|
|
|
|
|
nops += 2;
|
|
|
|
|
/* Most mips16 branch insns don't have a delay slot.
|
|
|
|
|
If a read from LO is immediately followed by a branch
|
|
|
|
|
to a write to LO we have a read followed by a write
|
|
|
|
|
less than 2 insns away. We assume the target of
|
|
|
|
|
a branch might be a write to LO, and insert a nop
|
2000-09-07 14:45:56 +02:00
|
|
|
|
between a read and an immediately following branch. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (mips_opts.mips16
|
|
|
|
|
&& (mips_optimize == 0
|
|
|
|
|
|| (pinfo & MIPS16_INSN_BRANCH)))
|
|
|
|
|
nops += 1;
|
|
|
|
|
}
|
|
|
|
|
else if (prev_insn.insn_mo->pinfo & INSN_READ_HI)
|
|
|
|
|
{
|
|
|
|
|
/* The previous instruction reads the HI register; if the
|
|
|
|
|
current instruction writes to the HI register, we must
|
|
|
|
|
insert a NOP. Some newer processors have interlocks.
|
2000-09-07 14:45:56 +02:00
|
|
|
|
Also the note tx39's multiply above. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! (hilo_interlocks
|
2001-06-29 23:27:43 +02:00
|
|
|
|
|| (mips_tune == CPU_R3900 && (pinfo & INSN_MULT)))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (mips_optimize == 0
|
|
|
|
|
|| (pinfo & INSN_WRITE_HI)))
|
|
|
|
|
nops += 2;
|
|
|
|
|
/* Most mips16 branch insns don't have a delay slot.
|
|
|
|
|
If a read from HI is immediately followed by a branch
|
|
|
|
|
to a write to HI we have a read followed by a write
|
|
|
|
|
less than 2 insns away. We assume the target of
|
|
|
|
|
a branch might be a write to HI, and insert a nop
|
2000-09-07 14:45:56 +02:00
|
|
|
|
between a read and an immediately following branch. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (mips_opts.mips16
|
|
|
|
|
&& (mips_optimize == 0
|
|
|
|
|
|| (pinfo & MIPS16_INSN_BRANCH)))
|
|
|
|
|
nops += 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If the previous instruction was in a noreorder section, then
|
|
|
|
|
we don't want to insert the nop after all. */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (prev_insn_unreordered)
|
|
|
|
|
nops = 0;
|
|
|
|
|
|
|
|
|
|
/* There are two cases which require two intervening
|
|
|
|
|
instructions: 1) setting the condition codes using a move to
|
|
|
|
|
coprocessor instruction which requires a general coprocessor
|
|
|
|
|
delay and then reading the condition codes 2) reading the HI
|
|
|
|
|
or LO register and then writing to it (except on processors
|
|
|
|
|
which have interlocks). If we are not already emitting a NOP
|
|
|
|
|
instruction, we must check for these cases compared to the
|
|
|
|
|
instruction previous to the previous instruction. */
|
|
|
|
|
if ((! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (prev_prev_insn.insn_mo->pinfo & INSN_COPROC_MOVE_DELAY)
|
|
|
|
|
&& (prev_prev_insn.insn_mo->pinfo & INSN_WRITE_COND_CODE)
|
|
|
|
|
&& (pinfo & INSN_READ_COND_CODE)
|
|
|
|
|
&& ! cop_interlocks)
|
|
|
|
|
|| ((prev_prev_insn.insn_mo->pinfo & INSN_READ_LO)
|
|
|
|
|
&& (pinfo & INSN_WRITE_LO)
|
|
|
|
|
&& ! (hilo_interlocks
|
2001-06-29 23:27:43 +02:00
|
|
|
|
|| (mips_tune == CPU_R3900 && (pinfo & INSN_MULT))))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| ((prev_prev_insn.insn_mo->pinfo & INSN_READ_HI)
|
|
|
|
|
&& (pinfo & INSN_WRITE_HI)
|
|
|
|
|
&& ! (hilo_interlocks
|
2001-06-29 23:27:43 +02:00
|
|
|
|
|| (mips_tune == CPU_R3900 && (pinfo & INSN_MULT)))))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
prev_prev_nop = 1;
|
|
|
|
|
else
|
|
|
|
|
prev_prev_nop = 0;
|
|
|
|
|
|
|
|
|
|
if (prev_prev_insn_unreordered)
|
|
|
|
|
prev_prev_nop = 0;
|
|
|
|
|
|
|
|
|
|
if (prev_prev_nop && nops == 0)
|
|
|
|
|
++nops;
|
|
|
|
|
|
|
|
|
|
/* If we are being given a nop instruction, don't bother with
|
|
|
|
|
one of the nops we would otherwise output. This will only
|
|
|
|
|
happen when a nop instruction is used with mips_optimize set
|
|
|
|
|
to 0. */
|
|
|
|
|
if (nops > 0
|
|
|
|
|
&& ! mips_opts.noreorder
|
2000-09-14 03:47:38 +02:00
|
|
|
|
&& ip->insn_opcode == (unsigned) (mips_opts.mips16 ? 0x6500 : 0))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
--nops;
|
|
|
|
|
|
|
|
|
|
/* Now emit the right number of NOP instructions. */
|
|
|
|
|
if (nops > 0 && ! mips_opts.noreorder)
|
|
|
|
|
{
|
|
|
|
|
fragS *old_frag;
|
|
|
|
|
unsigned long old_frag_offset;
|
|
|
|
|
int i;
|
|
|
|
|
struct insn_label_list *l;
|
|
|
|
|
|
|
|
|
|
old_frag = frag_now;
|
|
|
|
|
old_frag_offset = frag_now_fix ();
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < nops; i++)
|
|
|
|
|
emit_nop ();
|
|
|
|
|
|
|
|
|
|
if (listing)
|
|
|
|
|
{
|
|
|
|
|
listing_prev_line ();
|
|
|
|
|
/* We may be at the start of a variant frag. In case we
|
|
|
|
|
are, make sure there is enough space for the frag
|
|
|
|
|
after the frags created by listing_prev_line. The
|
|
|
|
|
argument to frag_grow here must be at least as large
|
|
|
|
|
as the argument to all other calls to frag_grow in
|
|
|
|
|
this file. We don't have to worry about being in the
|
|
|
|
|
middle of a variant frag, because the variants insert
|
|
|
|
|
all needed nop instructions themselves. */
|
|
|
|
|
frag_grow (40);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (l = insn_labels; l != NULL; l = l->next)
|
|
|
|
|
{
|
2001-06-08 08:07:13 +02:00
|
|
|
|
valueT val;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
assert (S_GET_SEGMENT (l->label) == now_seg);
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_set_frag (l->label, frag_now);
|
2001-06-08 08:07:13 +02:00
|
|
|
|
val = (valueT) frag_now_fix ();
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* mips16 text labels are stored as odd. */
|
|
|
|
|
if (mips_opts.mips16)
|
2001-06-08 08:07:13 +02:00
|
|
|
|
val += 1;
|
|
|
|
|
S_SET_VALUE (l->label, val);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifndef NO_ECOFF_DEBUGGING
|
|
|
|
|
if (ECOFF_DEBUGGING)
|
|
|
|
|
ecoff_fix_loc (old_frag, old_frag_offset);
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
else if (prev_nop_frag != NULL)
|
|
|
|
|
{
|
|
|
|
|
/* We have a frag holding nops we may be able to remove. If
|
|
|
|
|
we don't need any nops, we can decrease the size of
|
|
|
|
|
prev_nop_frag by the size of one instruction. If we do
|
2000-09-07 14:45:56 +02:00
|
|
|
|
need some nops, we count them in prev_nops_required. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (prev_nop_frag_since == 0)
|
|
|
|
|
{
|
|
|
|
|
if (nops == 0)
|
|
|
|
|
{
|
|
|
|
|
prev_nop_frag->fr_fix -= mips_opts.mips16 ? 2 : 4;
|
|
|
|
|
--prev_nop_frag_holds;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
prev_nop_frag_required += nops;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (prev_prev_nop == 0)
|
|
|
|
|
{
|
|
|
|
|
prev_nop_frag->fr_fix -= mips_opts.mips16 ? 2 : 4;
|
|
|
|
|
--prev_nop_frag_holds;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
++prev_nop_frag_required;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (prev_nop_frag_holds <= prev_nop_frag_required)
|
|
|
|
|
prev_nop_frag = NULL;
|
|
|
|
|
|
|
|
|
|
++prev_nop_frag_since;
|
|
|
|
|
|
|
|
|
|
/* Sanity check: by the time we reach the second instruction
|
|
|
|
|
after prev_nop_frag, we should have used up all the nops
|
|
|
|
|
one way or another. */
|
|
|
|
|
assert (prev_nop_frag_since <= 1 || prev_nop_frag == NULL);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
if (*reloc_type > BFD_RELOC_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* We need to set up a variant frag. */
|
|
|
|
|
assert (mips_opts.mips16 && address_expr != NULL);
|
|
|
|
|
f = frag_var (rs_machine_dependent, 4, 0,
|
2001-10-04 22:07:00 +02:00
|
|
|
|
RELAX_MIPS16_ENCODE (*reloc_type - BFD_RELOC_UNUSED,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
mips16_small, mips16_ext,
|
|
|
|
|
(prev_pinfo
|
|
|
|
|
& INSN_UNCOND_BRANCH_DELAY),
|
2001-10-04 22:07:00 +02:00
|
|
|
|
(*prev_insn_reloc_type
|
1999-05-03 09:29:11 +02:00
|
|
|
|
== BFD_RELOC_MIPS16_JMP)),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
make_expr_symbol (address_expr), 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (place != NULL)
|
|
|
|
|
f = place;
|
|
|
|
|
else if (mips_opts.mips16
|
|
|
|
|
&& ! ip->use_extend
|
2001-10-04 22:07:00 +02:00
|
|
|
|
&& *reloc_type != BFD_RELOC_MIPS16_JMP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* Make sure there is enough room to swap this instruction with
|
|
|
|
|
a following jump instruction. */
|
|
|
|
|
frag_grow (6);
|
|
|
|
|
f = frag_more (2);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (mips_opts.mips16
|
|
|
|
|
&& mips_opts.noreorder
|
|
|
|
|
&& (prev_pinfo & INSN_UNCOND_BRANCH_DELAY) != 0)
|
|
|
|
|
as_warn (_("extended instruction in delay slot"));
|
|
|
|
|
|
|
|
|
|
f = frag_more (4);
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
fixp[0] = fixp[1] = fixp[2] = NULL;
|
|
|
|
|
if (address_expr != NULL && *reloc_type < BFD_RELOC_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (address_expr->X_op == O_constant)
|
|
|
|
|
{
|
2001-10-04 22:07:00 +02:00
|
|
|
|
unsigned long tmp;
|
|
|
|
|
|
|
|
|
|
switch (*reloc_type)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_32:
|
|
|
|
|
ip->insn_opcode |= address_expr->X_add_number;
|
|
|
|
|
break;
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
case BFD_RELOC_MIPS_HIGHEST:
|
|
|
|
|
tmp = (address_expr->X_add_number + 0x800080008000) >> 16;
|
|
|
|
|
tmp >>= 16;
|
|
|
|
|
ip->insn_opcode |= (tmp >> 16) & 0xffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_MIPS_HIGHER:
|
|
|
|
|
tmp = (address_expr->X_add_number + 0x80008000) >> 16;
|
|
|
|
|
ip->insn_opcode |= (tmp >> 16) & 0xffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_HI16_S:
|
|
|
|
|
ip->insn_opcode |= ((address_expr->X_add_number + 0x8000)
|
|
|
|
|
>> 16) & 0xffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_HI16:
|
|
|
|
|
ip->insn_opcode |= (address_expr->X_add_number >> 16) & 0xffff;
|
|
|
|
|
break;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_LO16:
|
|
|
|
|
ip->insn_opcode |= address_expr->X_add_number & 0xffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_MIPS_JMP:
|
|
|
|
|
if ((address_expr->X_add_number & 3) != 0)
|
|
|
|
|
as_bad (_("jump to misaligned address (0x%lx)"),
|
|
|
|
|
(unsigned long) address_expr->X_add_number);
|
2001-12-04 15:05:54 +01:00
|
|
|
|
if (address_expr->X_add_number & ~0xfffffff
|
|
|
|
|
|| address_expr->X_add_number > 0x7fffffc)
|
|
|
|
|
as_bad (_("jump address range overflow (0x%lx)"),
|
|
|
|
|
(unsigned long) address_expr->X_add_number);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ip->insn_opcode |= (address_expr->X_add_number >> 2) & 0x3ffffff;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_MIPS16_JMP:
|
|
|
|
|
if ((address_expr->X_add_number & 3) != 0)
|
|
|
|
|
as_bad (_("jump to misaligned address (0x%lx)"),
|
|
|
|
|
(unsigned long) address_expr->X_add_number);
|
2001-12-04 15:05:54 +01:00
|
|
|
|
if (address_expr->X_add_number & ~0xfffffff
|
|
|
|
|
|| address_expr->X_add_number > 0x7fffffc)
|
|
|
|
|
as_bad (_("jump address range overflow (0x%lx)"),
|
|
|
|
|
(unsigned long) address_expr->X_add_number);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ip->insn_opcode |=
|
|
|
|
|
(((address_expr->X_add_number & 0x7c0000) << 3)
|
|
|
|
|
| ((address_expr->X_add_number & 0xf800000) >> 7)
|
|
|
|
|
| ((address_expr->X_add_number & 0x3fffc) >> 2));
|
|
|
|
|
break;
|
|
|
|
|
|
2001-09-07 07:00:37 +02:00
|
|
|
|
case BFD_RELOC_16_PCREL:
|
2001-09-12 23:19:37 +02:00
|
|
|
|
ip->insn_opcode |= address_expr->X_add_number & 0xffff;
|
2001-09-07 07:00:37 +02:00
|
|
|
|
break;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_16_PCREL_S2:
|
|
|
|
|
goto need_reloc;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
internalError ();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
need_reloc:
|
2001-10-04 22:07:00 +02:00
|
|
|
|
/* Don't generate a reloc if we are writing into a variant frag. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (place == NULL)
|
|
|
|
|
{
|
2001-10-04 22:07:00 +02:00
|
|
|
|
fixp[0] = fix_new_exp (frag_now, f - frag_now->fr_literal, 4,
|
|
|
|
|
address_expr,
|
|
|
|
|
(*reloc_type == BFD_RELOC_16_PCREL
|
|
|
|
|
|| *reloc_type == BFD_RELOC_16_PCREL_S2),
|
|
|
|
|
reloc_type[0]);
|
|
|
|
|
|
2001-10-12 01:56:33 +02:00
|
|
|
|
/* These relocations can have an addend that won't fit in
|
2001-10-04 22:07:00 +02:00
|
|
|
|
4 octets for 64bit assembly. */
|
|
|
|
|
if (HAVE_64BIT_GPRS &&
|
|
|
|
|
(*reloc_type == BFD_RELOC_16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_32
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_JMP
|
|
|
|
|
|| *reloc_type == BFD_RELOC_HI16_S
|
|
|
|
|
|| *reloc_type == BFD_RELOC_LO16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_GPREL16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_LITERAL
|
|
|
|
|
|| *reloc_type == BFD_RELOC_GPREL32
|
|
|
|
|
|| *reloc_type == BFD_RELOC_64
|
|
|
|
|
|| *reloc_type == BFD_RELOC_CTOR
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_SUB
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_HIGHEST
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_HIGHER
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_SCN_DISP
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_REL16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_RELGOT))
|
|
|
|
|
fixp[0]->fx_no_overflow = 1;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (unmatched_hi)
|
|
|
|
|
{
|
|
|
|
|
struct mips_hi_fixup *hi_fixup;
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
assert (*reloc_type == BFD_RELOC_HI16_S);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
hi_fixup = ((struct mips_hi_fixup *)
|
|
|
|
|
xmalloc (sizeof (struct mips_hi_fixup)));
|
2001-10-04 22:07:00 +02:00
|
|
|
|
hi_fixup->fixp = fixp[0];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
hi_fixup->seg = now_seg;
|
|
|
|
|
hi_fixup->next = mips_hi_fixup_list;
|
|
|
|
|
mips_hi_fixup_list = hi_fixup;
|
|
|
|
|
}
|
2001-10-04 22:07:00 +02:00
|
|
|
|
|
|
|
|
|
if (reloc_type[1] != BFD_RELOC_UNUSED)
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: This symbol can be one of
|
|
|
|
|
RSS_UNDEF, RSS_GP, RSS_GP0, RSS_LOC. */
|
|
|
|
|
address_expr->X_op = O_absent;
|
|
|
|
|
address_expr->X_add_symbol = 0;
|
|
|
|
|
address_expr->X_add_number = 0;
|
|
|
|
|
|
|
|
|
|
fixp[1] = fix_new_exp (frag_now, f - frag_now->fr_literal,
|
|
|
|
|
4, address_expr, false,
|
|
|
|
|
reloc_type[1]);
|
|
|
|
|
|
2001-10-12 01:56:33 +02:00
|
|
|
|
/* These relocations can have an addend that won't fit in
|
2001-10-04 22:07:00 +02:00
|
|
|
|
4 octets for 64bit assembly. */
|
|
|
|
|
if (HAVE_64BIT_GPRS &&
|
|
|
|
|
(*reloc_type == BFD_RELOC_16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_32
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_JMP
|
|
|
|
|
|| *reloc_type == BFD_RELOC_HI16_S
|
|
|
|
|
|| *reloc_type == BFD_RELOC_LO16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_GPREL16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_LITERAL
|
|
|
|
|
|| *reloc_type == BFD_RELOC_GPREL32
|
|
|
|
|
|| *reloc_type == BFD_RELOC_64
|
|
|
|
|
|| *reloc_type == BFD_RELOC_CTOR
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_SUB
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_HIGHEST
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_HIGHER
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_SCN_DISP
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_REL16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_RELGOT))
|
|
|
|
|
fixp[1]->fx_no_overflow = 1;
|
|
|
|
|
|
|
|
|
|
if (reloc_type[2] != BFD_RELOC_UNUSED)
|
|
|
|
|
{
|
|
|
|
|
address_expr->X_op = O_absent;
|
|
|
|
|
address_expr->X_add_symbol = 0;
|
|
|
|
|
address_expr->X_add_number = 0;
|
|
|
|
|
|
|
|
|
|
fixp[2] = fix_new_exp (frag_now,
|
|
|
|
|
f - frag_now->fr_literal, 4,
|
|
|
|
|
address_expr, false,
|
|
|
|
|
reloc_type[2]);
|
|
|
|
|
|
2001-10-12 01:56:33 +02:00
|
|
|
|
/* These relocations can have an addend that won't fit in
|
2001-10-04 22:07:00 +02:00
|
|
|
|
4 octets for 64bit assembly. */
|
|
|
|
|
if (HAVE_64BIT_GPRS &&
|
|
|
|
|
(*reloc_type == BFD_RELOC_16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_32
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_JMP
|
|
|
|
|
|| *reloc_type == BFD_RELOC_HI16_S
|
|
|
|
|
|| *reloc_type == BFD_RELOC_LO16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_GPREL16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_LITERAL
|
|
|
|
|
|| *reloc_type == BFD_RELOC_GPREL32
|
|
|
|
|
|| *reloc_type == BFD_RELOC_64
|
|
|
|
|
|| *reloc_type == BFD_RELOC_CTOR
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_SUB
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_HIGHEST
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_HIGHER
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_SCN_DISP
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_REL16
|
|
|
|
|
|| *reloc_type == BFD_RELOC_MIPS_RELGOT))
|
|
|
|
|
fixp[2]->fx_no_overflow = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! mips_opts.mips16)
|
|
|
|
|
md_number_to_chars (f, ip->insn_opcode, 4);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
else if (*reloc_type == BFD_RELOC_MIPS16_JMP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (f, ip->insn_opcode >> 16, 2);
|
|
|
|
|
md_number_to_chars (f + 2, ip->insn_opcode & 0xffff, 2);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (ip->use_extend)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (f, 0xf000 | ip->extend, 2);
|
|
|
|
|
f += 2;
|
|
|
|
|
}
|
|
|
|
|
md_number_to_chars (f, ip->insn_opcode, 2);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Update the register mask information. */
|
|
|
|
|
if (! mips_opts.mips16)
|
|
|
|
|
{
|
|
|
|
|
if (pinfo & INSN_WRITE_GPR_D)
|
|
|
|
|
mips_gprmask |= 1 << ((ip->insn_opcode >> OP_SH_RD) & OP_MASK_RD);
|
|
|
|
|
if ((pinfo & (INSN_WRITE_GPR_T | INSN_READ_GPR_T)) != 0)
|
|
|
|
|
mips_gprmask |= 1 << ((ip->insn_opcode >> OP_SH_RT) & OP_MASK_RT);
|
|
|
|
|
if (pinfo & INSN_READ_GPR_S)
|
|
|
|
|
mips_gprmask |= 1 << ((ip->insn_opcode >> OP_SH_RS) & OP_MASK_RS);
|
|
|
|
|
if (pinfo & INSN_WRITE_GPR_31)
|
|
|
|
|
mips_gprmask |= 1 << 31;
|
|
|
|
|
if (pinfo & INSN_WRITE_FPR_D)
|
|
|
|
|
mips_cprmask[1] |= 1 << ((ip->insn_opcode >> OP_SH_FD) & OP_MASK_FD);
|
|
|
|
|
if ((pinfo & (INSN_WRITE_FPR_S | INSN_READ_FPR_S)) != 0)
|
|
|
|
|
mips_cprmask[1] |= 1 << ((ip->insn_opcode >> OP_SH_FS) & OP_MASK_FS);
|
|
|
|
|
if ((pinfo & (INSN_WRITE_FPR_T | INSN_READ_FPR_T)) != 0)
|
|
|
|
|
mips_cprmask[1] |= 1 << ((ip->insn_opcode >> OP_SH_FT) & OP_MASK_FT);
|
|
|
|
|
if ((pinfo & INSN_READ_FPR_R) != 0)
|
|
|
|
|
mips_cprmask[1] |= 1 << ((ip->insn_opcode >> OP_SH_FR) & OP_MASK_FR);
|
|
|
|
|
if (pinfo & INSN_COP)
|
|
|
|
|
{
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* We don't keep enough information to sort these cases out.
|
|
|
|
|
The itbl support does keep this information however, although
|
|
|
|
|
we currently don't support itbl fprmats as part of the cop
|
|
|
|
|
instruction. May want to add this support in the future. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
/* Never set the bit for $0, which is always zero. */
|
2000-12-05 19:51:08 +01:00
|
|
|
|
mips_gprmask &= ~1 << 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (pinfo & (MIPS16_INSN_WRITE_X | MIPS16_INSN_READ_X))
|
|
|
|
|
mips_gprmask |= 1 << ((ip->insn_opcode >> MIPS16OP_SH_RX)
|
|
|
|
|
& MIPS16OP_MASK_RX);
|
|
|
|
|
if (pinfo & (MIPS16_INSN_WRITE_Y | MIPS16_INSN_READ_Y))
|
|
|
|
|
mips_gprmask |= 1 << ((ip->insn_opcode >> MIPS16OP_SH_RY)
|
|
|
|
|
& MIPS16OP_MASK_RY);
|
|
|
|
|
if (pinfo & MIPS16_INSN_WRITE_Z)
|
|
|
|
|
mips_gprmask |= 1 << ((ip->insn_opcode >> MIPS16OP_SH_RZ)
|
|
|
|
|
& MIPS16OP_MASK_RZ);
|
|
|
|
|
if (pinfo & (MIPS16_INSN_WRITE_T | MIPS16_INSN_READ_T))
|
|
|
|
|
mips_gprmask |= 1 << TREG;
|
|
|
|
|
if (pinfo & (MIPS16_INSN_WRITE_SP | MIPS16_INSN_READ_SP))
|
|
|
|
|
mips_gprmask |= 1 << SP;
|
|
|
|
|
if (pinfo & (MIPS16_INSN_WRITE_31 | MIPS16_INSN_READ_31))
|
|
|
|
|
mips_gprmask |= 1 << RA;
|
|
|
|
|
if (pinfo & MIPS16_INSN_WRITE_GPR_Y)
|
|
|
|
|
mips_gprmask |= 1 << MIPS16OP_EXTRACT_REG32R (ip->insn_opcode);
|
|
|
|
|
if (pinfo & MIPS16_INSN_READ_Z)
|
|
|
|
|
mips_gprmask |= 1 << ((ip->insn_opcode >> MIPS16OP_SH_MOVE32Z)
|
|
|
|
|
& MIPS16OP_MASK_MOVE32Z);
|
|
|
|
|
if (pinfo & MIPS16_INSN_READ_GPR_X)
|
|
|
|
|
mips_gprmask |= 1 << ((ip->insn_opcode >> MIPS16OP_SH_REGR32)
|
|
|
|
|
& MIPS16OP_MASK_REGR32);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (place == NULL && ! mips_opts.noreorder)
|
|
|
|
|
{
|
|
|
|
|
/* Filling the branch delay slot is more complex. We try to
|
|
|
|
|
switch the branch with the previous instruction, which we can
|
|
|
|
|
do if the previous instruction does not set up a condition
|
|
|
|
|
that the branch tests and if the branch is not itself the
|
|
|
|
|
target of any branch. */
|
|
|
|
|
if ((pinfo & INSN_UNCOND_BRANCH_DELAY)
|
|
|
|
|
|| (pinfo & INSN_COND_BRANCH_DELAY))
|
|
|
|
|
{
|
|
|
|
|
if (mips_optimize < 2
|
|
|
|
|
/* If we have seen .set volatile or .set nomove, don't
|
|
|
|
|
optimize. */
|
|
|
|
|
|| mips_opts.nomove != 0
|
|
|
|
|
/* If we had to emit any NOP instructions, then we
|
|
|
|
|
already know we can not swap. */
|
|
|
|
|
|| nops != 0
|
|
|
|
|
/* If we don't even know the previous insn, we can not
|
2000-09-07 14:45:56 +02:00
|
|
|
|
swap. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| ! prev_insn_valid
|
|
|
|
|
/* If the previous insn is already in a branch delay
|
|
|
|
|
slot, then we can not swap. */
|
|
|
|
|
|| prev_insn_is_delay_slot
|
|
|
|
|
/* If the previous previous insn was in a .set
|
|
|
|
|
noreorder, we can't swap. Actually, the MIPS
|
|
|
|
|
assembler will swap in this situation. However, gcc
|
|
|
|
|
configured -with-gnu-as will generate code like
|
|
|
|
|
.set noreorder
|
|
|
|
|
lw $4,XXX
|
|
|
|
|
.set reorder
|
|
|
|
|
INSN
|
|
|
|
|
bne $4,$0,foo
|
|
|
|
|
in which we can not swap the bne and INSN. If gcc is
|
|
|
|
|
not configured -with-gnu-as, it does not output the
|
|
|
|
|
.set pseudo-ops. We don't have to check
|
|
|
|
|
prev_insn_unreordered, because prev_insn_valid will
|
|
|
|
|
be 0 in that case. We don't want to use
|
|
|
|
|
prev_prev_insn_valid, because we do want to be able
|
|
|
|
|
to swap at the start of a function. */
|
|
|
|
|
|| prev_prev_insn_unreordered
|
|
|
|
|
/* If the branch is itself the target of a branch, we
|
|
|
|
|
can not swap. We cheat on this; all we check for is
|
|
|
|
|
whether there is a label on this instruction. If
|
|
|
|
|
there are any branches to anything other than a
|
|
|
|
|
label, users must use .set noreorder. */
|
|
|
|
|
|| insn_labels != NULL
|
|
|
|
|
/* If the previous instruction is in a variant frag, we
|
|
|
|
|
can not do the swap. This does not apply to the
|
|
|
|
|
mips16, which uses variant frags for different
|
|
|
|
|
purposes. */
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& prev_insn_frag->fr_type == rs_machine_dependent)
|
|
|
|
|
/* If the branch reads the condition codes, we don't
|
|
|
|
|
even try to swap, because in the sequence
|
|
|
|
|
ctc1 $X,$31
|
|
|
|
|
INSN
|
|
|
|
|
INSN
|
|
|
|
|
bc1t LABEL
|
|
|
|
|
we can not swap, and I don't feel like handling that
|
|
|
|
|
case. */
|
|
|
|
|
|| (! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (pinfo & INSN_READ_COND_CODE))
|
|
|
|
|
/* We can not swap with an instruction that requires a
|
|
|
|
|
delay slot, becase the target of the branch might
|
|
|
|
|
interfere with that instruction. */
|
|
|
|
|
|| (! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (prev_pinfo
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
& (INSN_LOAD_COPROC_DELAY
|
|
|
|
|
| INSN_COPROC_MOVE_DELAY
|
|
|
|
|
| INSN_WRITE_COND_CODE)))
|
|
|
|
|
|| (! (hilo_interlocks
|
2001-06-29 23:27:43 +02:00
|
|
|
|
|| (mips_tune == CPU_R3900 && (pinfo & INSN_MULT)))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (prev_pinfo
|
|
|
|
|
& (INSN_READ_LO
|
|
|
|
|
| INSN_READ_HI)))
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& ! gpr_interlocks
|
|
|
|
|
&& (prev_pinfo & INSN_LOAD_MEMORY_DELAY))
|
|
|
|
|
|| (! mips_opts.mips16
|
2000-12-01 22:35:38 +01:00
|
|
|
|
&& mips_opts.isa == ISA_MIPS1
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (prev_pinfo & INSN_COPROC_MEMORY_DELAY))
|
|
|
|
|
/* We can not swap with a branch instruction. */
|
|
|
|
|
|| (prev_pinfo
|
|
|
|
|
& (INSN_UNCOND_BRANCH_DELAY
|
|
|
|
|
| INSN_COND_BRANCH_DELAY
|
|
|
|
|
| INSN_COND_BRANCH_LIKELY))
|
|
|
|
|
/* We do not swap with a trap instruction, since it
|
|
|
|
|
complicates trap handlers to have the trap
|
|
|
|
|
instruction be in a delay slot. */
|
|
|
|
|
|| (prev_pinfo & INSN_TRAP)
|
|
|
|
|
/* If the branch reads a register that the previous
|
|
|
|
|
instruction sets, we can not swap. */
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& (prev_pinfo & INSN_WRITE_GPR_T)
|
|
|
|
|
&& insn_uses_reg (ip,
|
|
|
|
|
((prev_insn.insn_opcode >> OP_SH_RT)
|
|
|
|
|
& OP_MASK_RT),
|
|
|
|
|
MIPS_GR_REG))
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& (prev_pinfo & INSN_WRITE_GPR_D)
|
|
|
|
|
&& insn_uses_reg (ip,
|
|
|
|
|
((prev_insn.insn_opcode >> OP_SH_RD)
|
|
|
|
|
& OP_MASK_RD),
|
|
|
|
|
MIPS_GR_REG))
|
|
|
|
|
|| (mips_opts.mips16
|
|
|
|
|
&& (((prev_pinfo & MIPS16_INSN_WRITE_X)
|
|
|
|
|
&& insn_uses_reg (ip,
|
|
|
|
|
((prev_insn.insn_opcode
|
|
|
|
|
>> MIPS16OP_SH_RX)
|
|
|
|
|
& MIPS16OP_MASK_RX),
|
|
|
|
|
MIPS16_REG))
|
|
|
|
|
|| ((prev_pinfo & MIPS16_INSN_WRITE_Y)
|
|
|
|
|
&& insn_uses_reg (ip,
|
|
|
|
|
((prev_insn.insn_opcode
|
|
|
|
|
>> MIPS16OP_SH_RY)
|
|
|
|
|
& MIPS16OP_MASK_RY),
|
|
|
|
|
MIPS16_REG))
|
|
|
|
|
|| ((prev_pinfo & MIPS16_INSN_WRITE_Z)
|
|
|
|
|
&& insn_uses_reg (ip,
|
|
|
|
|
((prev_insn.insn_opcode
|
|
|
|
|
>> MIPS16OP_SH_RZ)
|
|
|
|
|
& MIPS16OP_MASK_RZ),
|
|
|
|
|
MIPS16_REG))
|
|
|
|
|
|| ((prev_pinfo & MIPS16_INSN_WRITE_T)
|
|
|
|
|
&& insn_uses_reg (ip, TREG, MIPS_GR_REG))
|
|
|
|
|
|| ((prev_pinfo & MIPS16_INSN_WRITE_31)
|
|
|
|
|
&& insn_uses_reg (ip, RA, MIPS_GR_REG))
|
|
|
|
|
|| ((prev_pinfo & MIPS16_INSN_WRITE_GPR_Y)
|
|
|
|
|
&& insn_uses_reg (ip,
|
|
|
|
|
MIPS16OP_EXTRACT_REG32R (prev_insn.
|
|
|
|
|
insn_opcode),
|
|
|
|
|
MIPS_GR_REG))))
|
|
|
|
|
/* If the branch writes a register that the previous
|
|
|
|
|
instruction sets, we can not swap (we know that
|
|
|
|
|
branches write only to RD or to $31). */
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& (prev_pinfo & INSN_WRITE_GPR_T)
|
|
|
|
|
&& (((pinfo & INSN_WRITE_GPR_D)
|
|
|
|
|
&& (((prev_insn.insn_opcode >> OP_SH_RT) & OP_MASK_RT)
|
|
|
|
|
== ((ip->insn_opcode >> OP_SH_RD) & OP_MASK_RD)))
|
|
|
|
|
|| ((pinfo & INSN_WRITE_GPR_31)
|
|
|
|
|
&& (((prev_insn.insn_opcode >> OP_SH_RT)
|
|
|
|
|
& OP_MASK_RT)
|
|
|
|
|
== 31))))
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& (prev_pinfo & INSN_WRITE_GPR_D)
|
|
|
|
|
&& (((pinfo & INSN_WRITE_GPR_D)
|
|
|
|
|
&& (((prev_insn.insn_opcode >> OP_SH_RD) & OP_MASK_RD)
|
|
|
|
|
== ((ip->insn_opcode >> OP_SH_RD) & OP_MASK_RD)))
|
|
|
|
|
|| ((pinfo & INSN_WRITE_GPR_31)
|
|
|
|
|
&& (((prev_insn.insn_opcode >> OP_SH_RD)
|
|
|
|
|
& OP_MASK_RD)
|
|
|
|
|
== 31))))
|
|
|
|
|
|| (mips_opts.mips16
|
|
|
|
|
&& (pinfo & MIPS16_INSN_WRITE_31)
|
|
|
|
|
&& ((prev_pinfo & MIPS16_INSN_WRITE_31)
|
|
|
|
|
|| ((prev_pinfo & MIPS16_INSN_WRITE_GPR_Y)
|
|
|
|
|
&& (MIPS16OP_EXTRACT_REG32R (prev_insn.insn_opcode)
|
|
|
|
|
== RA))))
|
|
|
|
|
/* If the branch writes a register that the previous
|
|
|
|
|
instruction reads, we can not swap (we know that
|
|
|
|
|
branches only write to RD or to $31). */
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& (pinfo & INSN_WRITE_GPR_D)
|
|
|
|
|
&& insn_uses_reg (&prev_insn,
|
|
|
|
|
((ip->insn_opcode >> OP_SH_RD)
|
|
|
|
|
& OP_MASK_RD),
|
|
|
|
|
MIPS_GR_REG))
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& (pinfo & INSN_WRITE_GPR_31)
|
|
|
|
|
&& insn_uses_reg (&prev_insn, 31, MIPS_GR_REG))
|
|
|
|
|
|| (mips_opts.mips16
|
|
|
|
|
&& (pinfo & MIPS16_INSN_WRITE_31)
|
|
|
|
|
&& insn_uses_reg (&prev_insn, RA, MIPS_GR_REG))
|
|
|
|
|
/* If we are generating embedded PIC code, the branch
|
|
|
|
|
might be expanded into a sequence which uses $at, so
|
|
|
|
|
we can't swap with an instruction which reads it. */
|
|
|
|
|
|| (mips_pic == EMBEDDED_PIC
|
|
|
|
|
&& insn_uses_reg (&prev_insn, AT, MIPS_GR_REG))
|
|
|
|
|
/* If the previous previous instruction has a load
|
|
|
|
|
delay, and sets a register that the branch reads, we
|
|
|
|
|
can not swap. */
|
|
|
|
|
|| (! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& ((prev_prev_insn.insn_mo->pinfo & INSN_LOAD_COPROC_DELAY)
|
|
|
|
|
|| (! gpr_interlocks
|
|
|
|
|
&& (prev_prev_insn.insn_mo->pinfo
|
|
|
|
|
& INSN_LOAD_MEMORY_DELAY)))
|
|
|
|
|
&& insn_uses_reg (ip,
|
|
|
|
|
((prev_prev_insn.insn_opcode >> OP_SH_RT)
|
|
|
|
|
& OP_MASK_RT),
|
|
|
|
|
MIPS_GR_REG))
|
|
|
|
|
/* If one instruction sets a condition code and the
|
|
|
|
|
other one uses a condition code, we can not swap. */
|
|
|
|
|
|| ((pinfo & INSN_READ_COND_CODE)
|
|
|
|
|
&& (prev_pinfo & INSN_WRITE_COND_CODE))
|
|
|
|
|
|| ((pinfo & INSN_WRITE_COND_CODE)
|
|
|
|
|
&& (prev_pinfo & INSN_READ_COND_CODE))
|
|
|
|
|
/* If the previous instruction uses the PC, we can not
|
|
|
|
|
swap. */
|
|
|
|
|
|| (mips_opts.mips16
|
|
|
|
|
&& (prev_pinfo & MIPS16_INSN_READ_PC))
|
|
|
|
|
/* If the previous instruction was extended, we can not
|
|
|
|
|
swap. */
|
|
|
|
|
|| (mips_opts.mips16 && prev_insn_extended)
|
|
|
|
|
/* If the previous instruction had a fixup in mips16
|
|
|
|
|
mode, we can not swap. This normally means that the
|
|
|
|
|
previous instruction was a 4 byte branch anyhow. */
|
2001-10-04 22:07:00 +02:00
|
|
|
|
|| (mips_opts.mips16 && prev_insn_fixp[0])
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* If the previous instruction is a sync, sync.l, or
|
|
|
|
|
sync.p, we can not swap. */
|
1999-08-03 17:22:38 +02:00
|
|
|
|
|| (prev_pinfo & INSN_SYNC))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* We could do even better for unconditional branches to
|
|
|
|
|
portions of this object file; we could pick up the
|
|
|
|
|
instruction at the destination, put it in the delay
|
|
|
|
|
slot, and bump the destination address. */
|
|
|
|
|
emit_nop ();
|
|
|
|
|
/* Update the previous insn information. */
|
|
|
|
|
prev_prev_insn = *ip;
|
|
|
|
|
prev_insn.insn_mo = &dummy_opcode;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* It looks like we can actually do the swap. */
|
|
|
|
|
if (! mips_opts.mips16)
|
|
|
|
|
{
|
|
|
|
|
char *prev_f;
|
|
|
|
|
char temp[4];
|
|
|
|
|
|
|
|
|
|
prev_f = prev_insn_frag->fr_literal + prev_insn_where;
|
|
|
|
|
memcpy (temp, prev_f, 4);
|
|
|
|
|
memcpy (prev_f, f, 4);
|
|
|
|
|
memcpy (f, temp, 4);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
if (prev_insn_fixp[0])
|
|
|
|
|
{
|
|
|
|
|
prev_insn_fixp[0]->fx_frag = frag_now;
|
|
|
|
|
prev_insn_fixp[0]->fx_where = f - frag_now->fr_literal;
|
|
|
|
|
}
|
|
|
|
|
if (prev_insn_fixp[1])
|
|
|
|
|
{
|
|
|
|
|
prev_insn_fixp[1]->fx_frag = frag_now;
|
|
|
|
|
prev_insn_fixp[1]->fx_where = f - frag_now->fr_literal;
|
|
|
|
|
}
|
|
|
|
|
if (prev_insn_fixp[2])
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-04 22:07:00 +02:00
|
|
|
|
prev_insn_fixp[2]->fx_frag = frag_now;
|
|
|
|
|
prev_insn_fixp[2]->fx_where = f - frag_now->fr_literal;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-10-04 22:07:00 +02:00
|
|
|
|
if (fixp[0])
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-04 22:07:00 +02:00
|
|
|
|
fixp[0]->fx_frag = prev_insn_frag;
|
|
|
|
|
fixp[0]->fx_where = prev_insn_where;
|
|
|
|
|
}
|
|
|
|
|
if (fixp[1])
|
|
|
|
|
{
|
|
|
|
|
fixp[1]->fx_frag = prev_insn_frag;
|
|
|
|
|
fixp[1]->fx_where = prev_insn_where;
|
|
|
|
|
}
|
|
|
|
|
if (fixp[2])
|
|
|
|
|
{
|
|
|
|
|
fixp[2]->fx_frag = prev_insn_frag;
|
|
|
|
|
fixp[2]->fx_where = prev_insn_where;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char *prev_f;
|
|
|
|
|
char temp[2];
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
assert (prev_insn_fixp[0] == NULL);
|
|
|
|
|
assert (prev_insn_fixp[1] == NULL);
|
|
|
|
|
assert (prev_insn_fixp[2] == NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
prev_f = prev_insn_frag->fr_literal + prev_insn_where;
|
|
|
|
|
memcpy (temp, prev_f, 2);
|
|
|
|
|
memcpy (prev_f, f, 2);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
if (*reloc_type != BFD_RELOC_MIPS16_JMP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-04 22:07:00 +02:00
|
|
|
|
assert (*reloc_type == BFD_RELOC_UNUSED);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
memcpy (f, temp, 2);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
memcpy (f, f + 2, 2);
|
|
|
|
|
memcpy (f + 2, temp, 2);
|
|
|
|
|
}
|
2001-10-04 22:07:00 +02:00
|
|
|
|
if (fixp[0])
|
|
|
|
|
{
|
|
|
|
|
fixp[0]->fx_frag = prev_insn_frag;
|
|
|
|
|
fixp[0]->fx_where = prev_insn_where;
|
|
|
|
|
}
|
|
|
|
|
if (fixp[1])
|
|
|
|
|
{
|
|
|
|
|
fixp[1]->fx_frag = prev_insn_frag;
|
|
|
|
|
fixp[1]->fx_where = prev_insn_where;
|
|
|
|
|
}
|
|
|
|
|
if (fixp[2])
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-04 22:07:00 +02:00
|
|
|
|
fixp[2]->fx_frag = prev_insn_frag;
|
|
|
|
|
fixp[2]->fx_where = prev_insn_where;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Update the previous insn information; leave prev_insn
|
|
|
|
|
unchanged. */
|
|
|
|
|
prev_prev_insn = *ip;
|
|
|
|
|
}
|
|
|
|
|
prev_insn_is_delay_slot = 1;
|
|
|
|
|
|
|
|
|
|
/* If that was an unconditional branch, forget the previous
|
|
|
|
|
insn information. */
|
|
|
|
|
if (pinfo & INSN_UNCOND_BRANCH_DELAY)
|
|
|
|
|
{
|
|
|
|
|
prev_prev_insn.insn_mo = &dummy_opcode;
|
|
|
|
|
prev_insn.insn_mo = &dummy_opcode;
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
prev_insn_fixp[0] = NULL;
|
|
|
|
|
prev_insn_fixp[1] = NULL;
|
|
|
|
|
prev_insn_fixp[2] = NULL;
|
|
|
|
|
prev_insn_reloc_type[0] = BFD_RELOC_UNUSED;
|
|
|
|
|
prev_insn_reloc_type[1] = BFD_RELOC_UNUSED;
|
|
|
|
|
prev_insn_reloc_type[2] = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
prev_insn_extended = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (pinfo & INSN_COND_BRANCH_LIKELY)
|
|
|
|
|
{
|
|
|
|
|
/* We don't yet optimize a branch likely. What we should do
|
|
|
|
|
is look at the target, copy the instruction found there
|
|
|
|
|
into the delay slot, and increment the branch to jump to
|
|
|
|
|
the next instruction. */
|
|
|
|
|
emit_nop ();
|
|
|
|
|
/* Update the previous insn information. */
|
|
|
|
|
prev_prev_insn = *ip;
|
|
|
|
|
prev_insn.insn_mo = &dummy_opcode;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
prev_insn_fixp[0] = NULL;
|
|
|
|
|
prev_insn_fixp[1] = NULL;
|
|
|
|
|
prev_insn_fixp[2] = NULL;
|
|
|
|
|
prev_insn_reloc_type[0] = BFD_RELOC_UNUSED;
|
|
|
|
|
prev_insn_reloc_type[1] = BFD_RELOC_UNUSED;
|
|
|
|
|
prev_insn_reloc_type[2] = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
prev_insn_extended = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Update the previous insn information. */
|
|
|
|
|
if (nops > 0)
|
|
|
|
|
prev_prev_insn.insn_mo = &dummy_opcode;
|
|
|
|
|
else
|
|
|
|
|
prev_prev_insn = prev_insn;
|
|
|
|
|
prev_insn = *ip;
|
|
|
|
|
|
|
|
|
|
/* Any time we see a branch, we always fill the delay slot
|
|
|
|
|
immediately; since this insn is not a branch, we know it
|
|
|
|
|
is not in a delay slot. */
|
|
|
|
|
prev_insn_is_delay_slot = 0;
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
prev_insn_fixp[0] = fixp[0];
|
|
|
|
|
prev_insn_fixp[1] = fixp[1];
|
|
|
|
|
prev_insn_fixp[2] = fixp[2];
|
|
|
|
|
prev_insn_reloc_type[0] = reloc_type[0];
|
|
|
|
|
prev_insn_reloc_type[1] = reloc_type[1];
|
|
|
|
|
prev_insn_reloc_type[2] = reloc_type[2];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (mips_opts.mips16)
|
|
|
|
|
prev_insn_extended = (ip->use_extend
|
2001-10-04 22:07:00 +02:00
|
|
|
|
|| *reloc_type > BFD_RELOC_UNUSED);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
prev_prev_insn_unreordered = prev_insn_unreordered;
|
|
|
|
|
prev_insn_unreordered = 0;
|
|
|
|
|
prev_insn_frag = frag_now;
|
|
|
|
|
prev_insn_where = f - frag_now->fr_literal;
|
|
|
|
|
prev_insn_valid = 1;
|
|
|
|
|
}
|
|
|
|
|
else if (place == NULL)
|
|
|
|
|
{
|
|
|
|
|
/* We need to record a bit of information even when we are not
|
|
|
|
|
reordering, in order to determine the base address for mips16
|
|
|
|
|
PC relative relocs. */
|
|
|
|
|
prev_prev_insn = prev_insn;
|
|
|
|
|
prev_insn = *ip;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
prev_insn_reloc_type[0] = reloc_type[0];
|
|
|
|
|
prev_insn_reloc_type[1] = reloc_type[1];
|
|
|
|
|
prev_insn_reloc_type[2] = reloc_type[2];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
prev_prev_insn_unreordered = prev_insn_unreordered;
|
|
|
|
|
prev_insn_unreordered = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We just output an insn, so the next one doesn't have a label. */
|
|
|
|
|
mips_clear_insn_labels ();
|
|
|
|
|
|
|
|
|
|
/* We must ensure that a fixup associated with an unmatched %hi
|
|
|
|
|
reloc does not become a variant frag. Otherwise, the
|
|
|
|
|
rearrangement of %hi relocs in frob_file may confuse
|
|
|
|
|
tc_gen_reloc. */
|
|
|
|
|
if (unmatched_hi)
|
|
|
|
|
{
|
|
|
|
|
frag_wane (frag_now);
|
|
|
|
|
frag_new (0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This function forgets that there was any previous instruction or
|
|
|
|
|
label. If PRESERVE is non-zero, it remembers enough information to
|
2000-09-07 14:45:56 +02:00
|
|
|
|
know whether nops are needed before a noreorder section. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips_no_prev_insn (preserve)
|
|
|
|
|
int preserve;
|
|
|
|
|
{
|
|
|
|
|
if (! preserve)
|
|
|
|
|
{
|
|
|
|
|
prev_insn.insn_mo = &dummy_opcode;
|
|
|
|
|
prev_prev_insn.insn_mo = &dummy_opcode;
|
|
|
|
|
prev_nop_frag = NULL;
|
|
|
|
|
prev_nop_frag_holds = 0;
|
|
|
|
|
prev_nop_frag_required = 0;
|
|
|
|
|
prev_nop_frag_since = 0;
|
|
|
|
|
}
|
|
|
|
|
prev_insn_valid = 0;
|
|
|
|
|
prev_insn_is_delay_slot = 0;
|
|
|
|
|
prev_insn_unreordered = 0;
|
|
|
|
|
prev_insn_extended = 0;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
prev_insn_reloc_type[0] = BFD_RELOC_UNUSED;
|
|
|
|
|
prev_insn_reloc_type[1] = BFD_RELOC_UNUSED;
|
|
|
|
|
prev_insn_reloc_type[2] = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
prev_prev_insn_unreordered = 0;
|
|
|
|
|
mips_clear_insn_labels ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This function must be called whenever we turn on noreorder or emit
|
|
|
|
|
something other than instructions. It inserts any NOPS which might
|
|
|
|
|
be needed by the previous instruction, and clears the information
|
|
|
|
|
kept for the previous instructions. The INSNS parameter is true if
|
2000-09-07 14:45:56 +02:00
|
|
|
|
instructions are to follow. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips_emit_delays (insns)
|
|
|
|
|
boolean insns;
|
|
|
|
|
{
|
|
|
|
|
if (! mips_opts.noreorder)
|
|
|
|
|
{
|
|
|
|
|
int nops;
|
|
|
|
|
|
|
|
|
|
nops = 0;
|
|
|
|
|
if ((! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (! cop_interlocks
|
|
|
|
|
&& (prev_insn.insn_mo->pinfo
|
|
|
|
|
& (INSN_LOAD_COPROC_DELAY
|
|
|
|
|
| INSN_COPROC_MOVE_DELAY
|
|
|
|
|
| INSN_WRITE_COND_CODE))))
|
|
|
|
|
|| (! hilo_interlocks
|
|
|
|
|
&& (prev_insn.insn_mo->pinfo
|
|
|
|
|
& (INSN_READ_LO
|
|
|
|
|
| INSN_READ_HI)))
|
|
|
|
|
|| (! mips_opts.mips16
|
|
|
|
|
&& ! gpr_interlocks
|
2000-09-07 14:45:56 +02:00
|
|
|
|
&& (prev_insn.insn_mo->pinfo
|
1999-05-03 09:29:11 +02:00
|
|
|
|
& INSN_LOAD_MEMORY_DELAY))
|
|
|
|
|
|| (! mips_opts.mips16
|
2000-12-01 22:35:38 +01:00
|
|
|
|
&& mips_opts.isa == ISA_MIPS1
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (prev_insn.insn_mo->pinfo
|
|
|
|
|
& INSN_COPROC_MEMORY_DELAY)))
|
|
|
|
|
{
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++nops;
|
|
|
|
|
if ((! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (! cop_interlocks
|
|
|
|
|
&& prev_insn.insn_mo->pinfo & INSN_WRITE_COND_CODE))
|
|
|
|
|
|| (! hilo_interlocks
|
|
|
|
|
&& ((prev_insn.insn_mo->pinfo & INSN_READ_HI)
|
|
|
|
|
|| (prev_insn.insn_mo->pinfo & INSN_READ_LO))))
|
|
|
|
|
++nops;
|
|
|
|
|
|
|
|
|
|
if (prev_insn_unreordered)
|
|
|
|
|
nops = 0;
|
|
|
|
|
}
|
|
|
|
|
else if ((! mips_opts.mips16
|
* config/tc-mips.c (ISA_HAS_COPROC_DELAYS) : New.
(ISA_HAS_64_BIT_REGS) New.
(gpr_interlocks,md_begin,reg_needs_delay,append_insn,
mips_emit_delays,macro_build,load_register,load_addresss,
macro,macro2,mips_ip,s_cprestore,s_cpadd): Simplify
and/or use new ISA_xxx macros in expressions involving
ISA, particularly mips_opts.isa.
1999-10-21 15:23:31 +02:00
|
|
|
|
&& ISA_HAS_COPROC_DELAYS (mips_opts.isa)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (! cop_interlocks
|
|
|
|
|
&& prev_prev_insn.insn_mo->pinfo & INSN_WRITE_COND_CODE))
|
|
|
|
|
|| (! hilo_interlocks
|
|
|
|
|
&& ((prev_prev_insn.insn_mo->pinfo & INSN_READ_HI)
|
|
|
|
|
|| (prev_prev_insn.insn_mo->pinfo & INSN_READ_LO))))
|
|
|
|
|
{
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! prev_prev_insn_unreordered)
|
|
|
|
|
++nops;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (nops > 0)
|
|
|
|
|
{
|
|
|
|
|
struct insn_label_list *l;
|
|
|
|
|
|
|
|
|
|
if (insns)
|
|
|
|
|
{
|
|
|
|
|
/* Record the frag which holds the nop instructions, so
|
|
|
|
|
that we can remove them if we don't need them. */
|
|
|
|
|
frag_grow (mips_opts.mips16 ? nops * 2 : nops * 4);
|
|
|
|
|
prev_nop_frag = frag_now;
|
|
|
|
|
prev_nop_frag_holds = nops;
|
|
|
|
|
prev_nop_frag_required = 0;
|
|
|
|
|
prev_nop_frag_since = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (; nops > 0; --nops)
|
|
|
|
|
emit_nop ();
|
|
|
|
|
|
|
|
|
|
if (insns)
|
|
|
|
|
{
|
|
|
|
|
/* Move on to a new frag, so that it is safe to simply
|
2000-09-07 14:45:56 +02:00
|
|
|
|
decrease the size of prev_nop_frag. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
frag_wane (frag_now);
|
|
|
|
|
frag_new (0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (l = insn_labels; l != NULL; l = l->next)
|
|
|
|
|
{
|
2001-06-08 08:07:13 +02:00
|
|
|
|
valueT val;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
assert (S_GET_SEGMENT (l->label) == now_seg);
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_set_frag (l->label, frag_now);
|
2001-06-08 08:07:13 +02:00
|
|
|
|
val = (valueT) frag_now_fix ();
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* mips16 text labels are stored as odd. */
|
|
|
|
|
if (mips_opts.mips16)
|
2001-06-08 08:07:13 +02:00
|
|
|
|
val += 1;
|
|
|
|
|
S_SET_VALUE (l->label, val);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Mark instruction labels in mips16 mode. */
|
|
|
|
|
if (mips_opts.mips16 && insns)
|
|
|
|
|
mips16_mark_labels ();
|
|
|
|
|
|
|
|
|
|
mips_no_prev_insn (insns);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Build an instruction created by a macro expansion. This is passed
|
|
|
|
|
a pointer to the count of instructions created so far, an
|
|
|
|
|
expression, the name of the instruction to build, an operand format
|
|
|
|
|
string, and corresponding arguments. */
|
|
|
|
|
|
|
|
|
|
#ifdef USE_STDARG
|
|
|
|
|
static void
|
|
|
|
|
macro_build (char *place,
|
|
|
|
|
int *counter,
|
|
|
|
|
expressionS * ep,
|
|
|
|
|
const char *name,
|
|
|
|
|
const char *fmt,
|
|
|
|
|
...)
|
|
|
|
|
#else
|
|
|
|
|
static void
|
|
|
|
|
macro_build (place, counter, ep, name, fmt, va_alist)
|
|
|
|
|
char *place;
|
|
|
|
|
int *counter;
|
|
|
|
|
expressionS *ep;
|
|
|
|
|
const char *name;
|
|
|
|
|
const char *fmt;
|
|
|
|
|
va_dcl
|
|
|
|
|
#endif
|
|
|
|
|
{
|
|
|
|
|
struct mips_cl_insn insn;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
bfd_reloc_code_real_type r[3];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
va_list args;
|
|
|
|
|
|
|
|
|
|
#ifdef USE_STDARG
|
|
|
|
|
va_start (args, fmt);
|
|
|
|
|
#else
|
|
|
|
|
va_start (args);
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* If the macro is about to expand into a second instruction,
|
|
|
|
|
* print a warning if needed. We need to pass ip as a parameter
|
|
|
|
|
* to generate a better warning message here...
|
|
|
|
|
*/
|
|
|
|
|
if (mips_opts.warn_about_macros && place == NULL && *counter == 1)
|
|
|
|
|
as_warn (_("Macro instruction expanded into multiple instructions"));
|
|
|
|
|
|
|
|
|
|
if (place == NULL)
|
|
|
|
|
*counter += 1; /* bump instruction counter */
|
|
|
|
|
|
|
|
|
|
if (mips_opts.mips16)
|
|
|
|
|
{
|
|
|
|
|
mips16_macro_build (place, counter, ep, name, fmt, args);
|
|
|
|
|
va_end (args);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
r[0] = BFD_RELOC_UNUSED;
|
|
|
|
|
r[1] = BFD_RELOC_UNUSED;
|
|
|
|
|
r[2] = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
insn.insn_mo = (struct mips_opcode *) hash_find (op_hash, name);
|
|
|
|
|
assert (insn.insn_mo);
|
|
|
|
|
assert (strcmp (name, insn.insn_mo->name) == 0);
|
|
|
|
|
|
|
|
|
|
/* Search until we get a match for NAME. */
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (fmt, insn.insn_mo->args) == 0
|
|
|
|
|
&& insn.insn_mo->pinfo != INSN_MACRO
|
2001-08-10 18:24:32 +02:00
|
|
|
|
&& OPCODE_IS_MEMBER (insn.insn_mo, mips_opts.isa, mips_arch)
|
2001-06-29 23:27:43 +02:00
|
|
|
|
&& (mips_arch != CPU_R4650 || (insn.insn_mo->pinfo & FP_D) == 0))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
++insn.insn_mo;
|
|
|
|
|
assert (insn.insn_mo->name);
|
|
|
|
|
assert (strcmp (name, insn.insn_mo->name) == 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
insn.insn_opcode = insn.insn_mo->match;
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
switch (*fmt++)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ',':
|
|
|
|
|
case '(':
|
|
|
|
|
case ')':
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 't':
|
|
|
|
|
case 'w':
|
|
|
|
|
case 'E':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_RT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'c':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_CODE;
|
|
|
|
|
continue;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'T':
|
|
|
|
|
case 'W':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_FT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'd':
|
|
|
|
|
case 'G':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_RD;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
2000-12-01 21:05:32 +01:00
|
|
|
|
case 'U':
|
|
|
|
|
{
|
|
|
|
|
int tmp = va_arg (args, int);
|
|
|
|
|
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= tmp << OP_SH_RT;
|
|
|
|
|
insn.insn_opcode |= tmp << OP_SH_RD;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
continue;
|
2000-12-01 21:05:32 +01:00
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'V':
|
|
|
|
|
case 'S':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_FS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'z':
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case '<':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_SHAMT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'D':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_FD;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'B':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_CODE20;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
2000-12-01 21:05:32 +01:00
|
|
|
|
case 'J':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_CODE19;
|
2000-12-01 21:05:32 +01:00
|
|
|
|
continue;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'q':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_CODE2;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'b':
|
|
|
|
|
case 's':
|
|
|
|
|
case 'r':
|
|
|
|
|
case 'v':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << OP_SH_RS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'i':
|
|
|
|
|
case 'j':
|
|
|
|
|
case 'o':
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = (bfd_reloc_code_real_type) va_arg (args, int);
|
2001-12-02 14:14:48 +01:00
|
|
|
|
assert (*r == BFD_RELOC_GPREL16
|
2001-10-04 22:07:00 +02:00
|
|
|
|
|| *r == BFD_RELOC_MIPS_LITERAL
|
|
|
|
|
|| *r == BFD_RELOC_MIPS_HIGHER
|
|
|
|
|
|| *r == BFD_RELOC_HI16_S
|
|
|
|
|
|| *r == BFD_RELOC_LO16
|
|
|
|
|
|| *r == BFD_RELOC_MIPS_GOT16
|
|
|
|
|
|| *r == BFD_RELOC_MIPS_CALL16
|
|
|
|
|
|| *r == BFD_RELOC_MIPS_GOT_LO16
|
|
|
|
|
|| *r == BFD_RELOC_MIPS_CALL_LO16
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| (ep->X_op == O_subtract
|
2001-10-04 22:07:00 +02:00
|
|
|
|
&& *r == BFD_RELOC_PCREL_LO16));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'u':
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = (bfd_reloc_code_real_type) va_arg (args, int);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
assert (ep != NULL
|
|
|
|
|
&& (ep->X_op == O_constant
|
|
|
|
|
|| (ep->X_op == O_symbol
|
2001-10-04 22:07:00 +02:00
|
|
|
|
&& (*r == BFD_RELOC_MIPS_HIGHEST
|
|
|
|
|
|| *r == BFD_RELOC_HI16_S
|
|
|
|
|
|| *r == BFD_RELOC_HI16
|
|
|
|
|
|| *r == BFD_RELOC_GPREL16
|
|
|
|
|
|| *r == BFD_RELOC_MIPS_GOT_HI16
|
|
|
|
|
|| *r == BFD_RELOC_MIPS_CALL_HI16))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| (ep->X_op == O_subtract
|
2001-10-04 22:07:00 +02:00
|
|
|
|
&& *r == BFD_RELOC_PCREL_HI16_S)));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'p':
|
|
|
|
|
assert (ep != NULL);
|
|
|
|
|
/*
|
|
|
|
|
* This allows macro() to pass an immediate expression for
|
|
|
|
|
* creating short branches without creating a symbol.
|
|
|
|
|
* Note that the expression still might come from the assembly
|
|
|
|
|
* input, in which case the value is not checked for range nor
|
|
|
|
|
* is a relocation entry generated (yuck).
|
|
|
|
|
*/
|
|
|
|
|
if (ep->X_op == O_constant)
|
|
|
|
|
{
|
|
|
|
|
insn.insn_opcode |= (ep->X_add_number >> 2) & 0xffff;
|
|
|
|
|
ep = NULL;
|
|
|
|
|
}
|
|
|
|
|
else
|
2001-09-07 07:00:37 +02:00
|
|
|
|
if (mips_pic == EMBEDDED_PIC)
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = BFD_RELOC_16_PCREL_S2;
|
2001-09-07 07:00:37 +02:00
|
|
|
|
else
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = BFD_RELOC_16_PCREL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'a':
|
|
|
|
|
assert (ep != NULL);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = BFD_RELOC_MIPS_JMP;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'C':
|
|
|
|
|
insn.insn_opcode |= va_arg (args, unsigned long);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
internalError ();
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
va_end (args);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
assert (*r == BFD_RELOC_UNUSED ? ep == NULL : ep != NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
append_insn (place, &insn, ep, r, false);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips16_macro_build (place, counter, ep, name, fmt, args)
|
|
|
|
|
char *place;
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int *counter ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expressionS *ep;
|
|
|
|
|
const char *name;
|
|
|
|
|
const char *fmt;
|
|
|
|
|
va_list args;
|
|
|
|
|
{
|
|
|
|
|
struct mips_cl_insn insn;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
bfd_reloc_code_real_type r[3]
|
|
|
|
|
= {BFD_RELOC_UNUSED, BFD_RELOC_UNUSED, BFD_RELOC_UNUSED};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
insn.insn_mo = (struct mips_opcode *) hash_find (mips16_op_hash, name);
|
|
|
|
|
assert (insn.insn_mo);
|
|
|
|
|
assert (strcmp (name, insn.insn_mo->name) == 0);
|
|
|
|
|
|
|
|
|
|
while (strcmp (fmt, insn.insn_mo->args) != 0
|
|
|
|
|
|| insn.insn_mo->pinfo == INSN_MACRO)
|
|
|
|
|
{
|
|
|
|
|
++insn.insn_mo;
|
|
|
|
|
assert (insn.insn_mo->name);
|
|
|
|
|
assert (strcmp (name, insn.insn_mo->name) == 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
insn.insn_opcode = insn.insn_mo->match;
|
|
|
|
|
insn.use_extend = false;
|
|
|
|
|
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
int c;
|
|
|
|
|
|
|
|
|
|
c = *fmt++;
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ',':
|
|
|
|
|
case '(':
|
|
|
|
|
case ')':
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'y':
|
|
|
|
|
case 'w':
|
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << MIPS16OP_SH_RY;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'x':
|
|
|
|
|
case 'v':
|
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << MIPS16OP_SH_RX;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'z':
|
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << MIPS16OP_SH_RZ;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'Z':
|
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << MIPS16OP_SH_MOVE32Z;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case '0':
|
|
|
|
|
case 'S':
|
|
|
|
|
case 'P':
|
|
|
|
|
case 'R':
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'X':
|
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << MIPS16OP_SH_REGR32;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'Y':
|
|
|
|
|
{
|
|
|
|
|
int regno;
|
|
|
|
|
|
|
|
|
|
regno = va_arg (args, int);
|
|
|
|
|
regno = ((regno & 7) << 2) | ((regno & 0x18) >> 3);
|
|
|
|
|
insn.insn_opcode |= regno << MIPS16OP_SH_REG32R;
|
|
|
|
|
}
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case '<':
|
|
|
|
|
case '>':
|
|
|
|
|
case '4':
|
|
|
|
|
case '5':
|
|
|
|
|
case 'H':
|
|
|
|
|
case 'W':
|
|
|
|
|
case 'D':
|
|
|
|
|
case 'j':
|
|
|
|
|
case '8':
|
|
|
|
|
case 'V':
|
|
|
|
|
case 'C':
|
|
|
|
|
case 'U':
|
|
|
|
|
case 'k':
|
|
|
|
|
case 'K':
|
|
|
|
|
case 'p':
|
|
|
|
|
case 'q':
|
|
|
|
|
{
|
|
|
|
|
assert (ep != NULL);
|
|
|
|
|
|
|
|
|
|
if (ep->X_op != O_constant)
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = BFD_RELOC_UNUSED + c;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2001-11-12 23:19:30 +01:00
|
|
|
|
mips16_immed (NULL, 0, c, ep->X_add_number, false, false,
|
|
|
|
|
false, &insn.insn_opcode, &insn.use_extend,
|
|
|
|
|
&insn.extend);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ep = NULL;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case '6':
|
|
|
|
|
insn.insn_opcode |= va_arg (args, int) << MIPS16OP_SH_IMM6;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
assert (*r == BFD_RELOC_UNUSED ? ep == NULL : ep != NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
append_insn (place, &insn, ep, r, false);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Generate a "lui" instruction.
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
macro_build_lui (place, counter, ep, regnum)
|
|
|
|
|
char *place;
|
|
|
|
|
int *counter;
|
|
|
|
|
expressionS *ep;
|
|
|
|
|
int regnum;
|
|
|
|
|
{
|
|
|
|
|
expressionS high_expr;
|
|
|
|
|
struct mips_cl_insn insn;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
bfd_reloc_code_real_type r[3]
|
|
|
|
|
= {BFD_RELOC_UNUSED, BFD_RELOC_UNUSED, BFD_RELOC_UNUSED};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
CONST char *name = "lui";
|
|
|
|
|
CONST char *fmt = "t,u";
|
|
|
|
|
|
|
|
|
|
assert (! mips_opts.mips16);
|
|
|
|
|
|
|
|
|
|
if (place == NULL)
|
|
|
|
|
high_expr = *ep;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
high_expr.X_op = O_constant;
|
|
|
|
|
high_expr.X_add_number = ep->X_add_number;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (high_expr.X_op == O_constant)
|
|
|
|
|
{
|
|
|
|
|
/* we can compute the instruction now without a relocation entry */
|
2001-08-26 12:42:12 +02:00
|
|
|
|
high_expr.X_add_number = ((high_expr.X_add_number + 0x8000)
|
|
|
|
|
>> 16) & 0xffff;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-10-04 22:07:00 +02:00
|
|
|
|
else if (! HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
assert (ep->X_op == O_symbol);
|
|
|
|
|
/* _gp_disp is a special case, used from s_cpload. */
|
|
|
|
|
assert (mips_pic == NO_PIC
|
|
|
|
|
|| strcmp (S_GET_NAME (ep->X_add_symbol), "_gp_disp") == 0);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*r = BFD_RELOC_HI16_S;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* If the macro is about to expand into a second instruction,
|
|
|
|
|
* print a warning if needed. We need to pass ip as a parameter
|
|
|
|
|
* to generate a better warning message here...
|
|
|
|
|
*/
|
|
|
|
|
if (mips_opts.warn_about_macros && place == NULL && *counter == 1)
|
|
|
|
|
as_warn (_("Macro instruction expanded into multiple instructions"));
|
|
|
|
|
|
|
|
|
|
if (place == NULL)
|
|
|
|
|
*counter += 1; /* bump instruction counter */
|
|
|
|
|
|
|
|
|
|
insn.insn_mo = (struct mips_opcode *) hash_find (op_hash, name);
|
|
|
|
|
assert (insn.insn_mo);
|
|
|
|
|
assert (strcmp (name, insn.insn_mo->name) == 0);
|
|
|
|
|
assert (strcmp (fmt, insn.insn_mo->args) == 0);
|
|
|
|
|
|
|
|
|
|
insn.insn_opcode = insn.insn_mo->match | (regnum << OP_SH_RT);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
if (*r == BFD_RELOC_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
insn.insn_opcode |= high_expr.X_add_number;
|
|
|
|
|
append_insn (place, &insn, NULL, r, false);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
append_insn (place, &insn, &high_expr, r, false);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* set_at()
|
|
|
|
|
* Generates code to set the $at register to true (one)
|
|
|
|
|
* if reg is less than the immediate expression.
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
set_at (counter, reg, unsignedp)
|
|
|
|
|
int *counter;
|
|
|
|
|
int reg;
|
|
|
|
|
int unsignedp;
|
|
|
|
|
{
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= -0x8000
|
|
|
|
|
&& imm_expr.X_add_number < 0x8000)
|
|
|
|
|
macro_build ((char *) NULL, counter, &imm_expr,
|
|
|
|
|
unsignedp ? "sltiu" : "slti",
|
|
|
|
|
"t,r,j", AT, reg, (int) BFD_RELOC_LO16);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
load_register (counter, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
unsignedp ? "sltu" : "slt",
|
|
|
|
|
"d,v,t", AT, reg, AT);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Warn if an expression is not a constant. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
check_absolute_expr (ip, ex)
|
|
|
|
|
struct mips_cl_insn *ip;
|
|
|
|
|
expressionS *ex;
|
|
|
|
|
{
|
|
|
|
|
if (ex->X_op == O_big)
|
|
|
|
|
as_bad (_("unsupported large constant"));
|
|
|
|
|
else if (ex->X_op != O_constant)
|
|
|
|
|
as_bad (_("Instruction %s requires absolute expression"), ip->insn_mo->name);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Count the leading zeroes by performing a binary chop. This is a
|
|
|
|
|
bulky bit of source, but performance is a LOT better for the
|
|
|
|
|
majority of values than a simple loop to count the bits:
|
|
|
|
|
for (lcnt = 0; (lcnt < 32); lcnt++)
|
|
|
|
|
if ((v) & (1 << (31 - lcnt)))
|
|
|
|
|
break;
|
|
|
|
|
However it is not code size friendly, and the gain will drop a bit
|
|
|
|
|
on certain cached systems.
|
|
|
|
|
*/
|
|
|
|
|
#define COUNT_TOP_ZEROES(v) \
|
|
|
|
|
(((v) & ~0xffff) == 0 \
|
|
|
|
|
? ((v) & ~0xff) == 0 \
|
|
|
|
|
? ((v) & ~0xf) == 0 \
|
|
|
|
|
? ((v) & ~0x3) == 0 \
|
|
|
|
|
? ((v) & ~0x1) == 0 \
|
|
|
|
|
? !(v) \
|
|
|
|
|
? 32 \
|
|
|
|
|
: 31 \
|
|
|
|
|
: 30 \
|
|
|
|
|
: ((v) & ~0x7) == 0 \
|
|
|
|
|
? 29 \
|
|
|
|
|
: 28 \
|
|
|
|
|
: ((v) & ~0x3f) == 0 \
|
|
|
|
|
? ((v) & ~0x1f) == 0 \
|
|
|
|
|
? 27 \
|
|
|
|
|
: 26 \
|
|
|
|
|
: ((v) & ~0x7f) == 0 \
|
|
|
|
|
? 25 \
|
|
|
|
|
: 24 \
|
|
|
|
|
: ((v) & ~0xfff) == 0 \
|
|
|
|
|
? ((v) & ~0x3ff) == 0 \
|
|
|
|
|
? ((v) & ~0x1ff) == 0 \
|
|
|
|
|
? 23 \
|
|
|
|
|
: 22 \
|
|
|
|
|
: ((v) & ~0x7ff) == 0 \
|
|
|
|
|
? 21 \
|
|
|
|
|
: 20 \
|
|
|
|
|
: ((v) & ~0x3fff) == 0 \
|
|
|
|
|
? ((v) & ~0x1fff) == 0 \
|
|
|
|
|
? 19 \
|
|
|
|
|
: 18 \
|
|
|
|
|
: ((v) & ~0x7fff) == 0 \
|
|
|
|
|
? 17 \
|
|
|
|
|
: 16 \
|
|
|
|
|
: ((v) & ~0xffffff) == 0 \
|
|
|
|
|
? ((v) & ~0xfffff) == 0 \
|
|
|
|
|
? ((v) & ~0x3ffff) == 0 \
|
|
|
|
|
? ((v) & ~0x1ffff) == 0 \
|
|
|
|
|
? 15 \
|
|
|
|
|
: 14 \
|
|
|
|
|
: ((v) & ~0x7ffff) == 0 \
|
|
|
|
|
? 13 \
|
|
|
|
|
: 12 \
|
|
|
|
|
: ((v) & ~0x3fffff) == 0 \
|
|
|
|
|
? ((v) & ~0x1fffff) == 0 \
|
|
|
|
|
? 11 \
|
|
|
|
|
: 10 \
|
|
|
|
|
: ((v) & ~0x7fffff) == 0 \
|
|
|
|
|
? 9 \
|
|
|
|
|
: 8 \
|
|
|
|
|
: ((v) & ~0xfffffff) == 0 \
|
|
|
|
|
? ((v) & ~0x3ffffff) == 0 \
|
|
|
|
|
? ((v) & ~0x1ffffff) == 0 \
|
|
|
|
|
? 7 \
|
|
|
|
|
: 6 \
|
|
|
|
|
: ((v) & ~0x7ffffff) == 0 \
|
|
|
|
|
? 5 \
|
|
|
|
|
: 4 \
|
|
|
|
|
: ((v) & ~0x3fffffff) == 0 \
|
|
|
|
|
? ((v) & ~0x1fffffff) == 0 \
|
|
|
|
|
? 3 \
|
|
|
|
|
: 2 \
|
|
|
|
|
: ((v) & ~0x7fffffff) == 0 \
|
|
|
|
|
? 1 \
|
|
|
|
|
: 0)
|
|
|
|
|
|
|
|
|
|
/* load_register()
|
|
|
|
|
* This routine generates the least number of instructions neccessary to load
|
|
|
|
|
* an absolute expression value into a register.
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
load_register (counter, reg, ep, dbl)
|
|
|
|
|
int *counter;
|
|
|
|
|
int reg;
|
|
|
|
|
expressionS *ep;
|
|
|
|
|
int dbl;
|
|
|
|
|
{
|
|
|
|
|
int freg;
|
|
|
|
|
expressionS hi32, lo32;
|
|
|
|
|
|
|
|
|
|
if (ep->X_op != O_big)
|
|
|
|
|
{
|
|
|
|
|
assert (ep->X_op == O_constant);
|
|
|
|
|
if (ep->X_add_number < 0x8000
|
|
|
|
|
&& (ep->X_add_number >= 0
|
|
|
|
|
|| (ep->X_add_number >= -0x8000
|
|
|
|
|
&& (! dbl
|
|
|
|
|
|| ! ep->X_unsigned
|
|
|
|
|
|| sizeof (ep->X_add_number) > 4))))
|
|
|
|
|
{
|
|
|
|
|
/* We can handle 16 bit signed values with an addiu to
|
|
|
|
|
$zero. No need to ever use daddiu here, since $zero and
|
|
|
|
|
the result are always correct in 32 bit mode. */
|
|
|
|
|
macro_build ((char *) NULL, counter, ep, "addiu", "t,r,j", reg, 0,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
else if (ep->X_add_number >= 0 && ep->X_add_number < 0x10000)
|
|
|
|
|
{
|
|
|
|
|
/* We can handle 16 bit unsigned values with an ori to
|
|
|
|
|
$zero. */
|
|
|
|
|
macro_build ((char *) NULL, counter, ep, "ori", "t,r,i", reg, 0,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
else if ((((ep->X_add_number &~ (offsetT) 0x7fffffff) == 0
|
|
|
|
|
|| ((ep->X_add_number &~ (offsetT) 0x7fffffff)
|
|
|
|
|
== ~ (offsetT) 0x7fffffff))
|
|
|
|
|
&& (! dbl
|
|
|
|
|
|| ! ep->X_unsigned
|
|
|
|
|
|| sizeof (ep->X_add_number) > 4
|
|
|
|
|
|| (ep->X_add_number & 0x80000000) == 0))
|
2001-08-02 12:15:24 +02:00
|
|
|
|
|| ((HAVE_32BIT_GPRS || ! dbl)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (ep->X_add_number &~ (offsetT) 0xffffffff) == 0)
|
2001-08-02 12:15:24 +02:00
|
|
|
|
|| (HAVE_32BIT_GPRS
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& ! dbl
|
|
|
|
|
&& ((ep->X_add_number &~ (offsetT) 0xffffffff)
|
|
|
|
|
== ~ (offsetT) 0xffffffff)))
|
|
|
|
|
{
|
|
|
|
|
/* 32 bit values require an lui. */
|
|
|
|
|
macro_build ((char *) NULL, counter, ep, "lui", "t,u", reg,
|
|
|
|
|
(int) BFD_RELOC_HI16);
|
|
|
|
|
if ((ep->X_add_number & 0xffff) != 0)
|
|
|
|
|
macro_build ((char *) NULL, counter, ep, "ori", "t,r,i", reg, reg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The value is larger than 32 bits. */
|
|
|
|
|
|
2001-08-02 12:15:24 +02:00
|
|
|
|
if (HAVE_32BIT_GPRS)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-12-04 15:38:48 +01:00
|
|
|
|
as_bad (_("Number (0x%lx) larger than 32 bits"),
|
|
|
|
|
(unsigned long) ep->X_add_number);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, counter, ep, "addiu", "t,r,j", reg, 0,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (ep->X_op != O_big)
|
|
|
|
|
{
|
|
|
|
|
hi32 = *ep;
|
|
|
|
|
hi32.X_add_number = (valueT) hi32.X_add_number >> 16;
|
|
|
|
|
hi32.X_add_number = (valueT) hi32.X_add_number >> 16;
|
|
|
|
|
hi32.X_add_number &= 0xffffffff;
|
|
|
|
|
lo32 = *ep;
|
|
|
|
|
lo32.X_add_number &= 0xffffffff;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
assert (ep->X_add_number > 2);
|
|
|
|
|
if (ep->X_add_number == 3)
|
|
|
|
|
generic_bignum[3] = 0;
|
|
|
|
|
else if (ep->X_add_number > 4)
|
|
|
|
|
as_bad (_("Number larger than 64 bits"));
|
|
|
|
|
lo32.X_op = O_constant;
|
|
|
|
|
lo32.X_add_number = generic_bignum[0] + (generic_bignum[1] << 16);
|
|
|
|
|
hi32.X_op = O_constant;
|
|
|
|
|
hi32.X_add_number = generic_bignum[2] + (generic_bignum[3] << 16);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (hi32.X_add_number == 0)
|
|
|
|
|
freg = 0;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int shift, bit;
|
|
|
|
|
unsigned long hi, lo;
|
|
|
|
|
|
2001-12-04 15:38:48 +01:00
|
|
|
|
if (hi32.X_add_number == (offsetT) 0xffffffff)
|
2000-12-05 19:51:08 +01:00
|
|
|
|
{
|
|
|
|
|
if ((lo32.X_add_number & 0xffff8000) == 0xffff8000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, counter, &lo32, "addiu", "t,r,j",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reg, 0, (int) BFD_RELOC_LO16);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (lo32.X_add_number & 0x80000000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, counter, &lo32, "lui", "t,u", reg,
|
|
|
|
|
(int) BFD_RELOC_HI16);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (lo32.X_add_number & 0xffff)
|
|
|
|
|
macro_build ((char *) NULL, counter, &lo32, "ori", "t,r,i",
|
|
|
|
|
reg, reg, (int) BFD_RELOC_LO16);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Check for 16bit shifted constant. We know that hi32 is
|
|
|
|
|
non-zero, so start the mask on the first bit of the hi32
|
|
|
|
|
value. */
|
|
|
|
|
shift = 17;
|
|
|
|
|
do
|
2000-12-05 19:51:08 +01:00
|
|
|
|
{
|
|
|
|
|
unsigned long himask, lomask;
|
|
|
|
|
|
|
|
|
|
if (shift < 32)
|
|
|
|
|
{
|
|
|
|
|
himask = 0xffff >> (32 - shift);
|
|
|
|
|
lomask = (0xffff << shift) & 0xffffffff;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
himask = 0xffff << (shift - 32);
|
|
|
|
|
lomask = 0;
|
|
|
|
|
}
|
|
|
|
|
if ((hi32.X_add_number & ~(offsetT) himask) == 0
|
|
|
|
|
&& (lo32.X_add_number & ~(offsetT) lomask) == 0)
|
|
|
|
|
{
|
|
|
|
|
expressionS tmp;
|
|
|
|
|
|
|
|
|
|
tmp.X_op = O_constant;
|
|
|
|
|
if (shift < 32)
|
|
|
|
|
tmp.X_add_number = ((hi32.X_add_number << (32 - shift))
|
|
|
|
|
| (lo32.X_add_number >> shift));
|
|
|
|
|
else
|
|
|
|
|
tmp.X_add_number = hi32.X_add_number >> (shift - 32);
|
|
|
|
|
macro_build ((char *) NULL, counter, &tmp,
|
|
|
|
|
"ori", "t,r,i", reg, 0,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL,
|
2000-12-05 19:51:08 +01:00
|
|
|
|
(shift >= 32) ? "dsll32" : "dsll",
|
|
|
|
|
"d,w,<", reg, reg,
|
|
|
|
|
(shift >= 32) ? shift - 32 : shift);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
shift++;
|
|
|
|
|
}
|
|
|
|
|
while (shift <= (64 - 16));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Find the bit number of the lowest one bit, and store the
|
|
|
|
|
shifted value in hi/lo. */
|
|
|
|
|
hi = (unsigned long) (hi32.X_add_number & 0xffffffff);
|
|
|
|
|
lo = (unsigned long) (lo32.X_add_number & 0xffffffff);
|
|
|
|
|
if (lo != 0)
|
|
|
|
|
{
|
|
|
|
|
bit = 0;
|
|
|
|
|
while ((lo & 1) == 0)
|
|
|
|
|
{
|
|
|
|
|
lo >>= 1;
|
|
|
|
|
++bit;
|
|
|
|
|
}
|
|
|
|
|
lo |= (hi & (((unsigned long) 1 << bit) - 1)) << (32 - bit);
|
|
|
|
|
hi >>= bit;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
bit = 32;
|
|
|
|
|
while ((hi & 1) == 0)
|
|
|
|
|
{
|
|
|
|
|
hi >>= 1;
|
|
|
|
|
++bit;
|
|
|
|
|
}
|
|
|
|
|
lo = hi;
|
|
|
|
|
hi = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Optimize if the shifted value is a (power of 2) - 1. */
|
|
|
|
|
if ((hi == 0 && ((lo + 1) & lo) == 0)
|
|
|
|
|
|| (lo == 0xffffffff && ((hi + 1) & hi) == 0))
|
2000-12-05 19:51:08 +01:00
|
|
|
|
{
|
|
|
|
|
shift = COUNT_TOP_ZEROES ((unsigned int) hi32.X_add_number);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (shift != 0)
|
2000-12-05 19:51:08 +01:00
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expressionS tmp;
|
|
|
|
|
|
|
|
|
|
/* This instruction will set the register to be all
|
|
|
|
|
ones. */
|
2000-12-05 19:51:08 +01:00
|
|
|
|
tmp.X_op = O_constant;
|
|
|
|
|
tmp.X_add_number = (offsetT) -1;
|
|
|
|
|
macro_build ((char *) NULL, counter, &tmp, "addiu", "t,r,j",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reg, 0, (int) BFD_RELOC_LO16);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
if (bit != 0)
|
|
|
|
|
{
|
|
|
|
|
bit += shift;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL,
|
2000-12-05 19:51:08 +01:00
|
|
|
|
(bit >= 32) ? "dsll32" : "dsll",
|
|
|
|
|
"d,w,<", reg, reg,
|
|
|
|
|
(bit >= 32) ? bit - 32 : bit);
|
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
(shift >= 32) ? "dsrl32" : "dsrl",
|
2000-12-05 19:51:08 +01:00
|
|
|
|
"d,w,<", reg, reg,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
(shift >= 32) ? shift - 32 : shift);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Sign extend hi32 before calling load_register, because we can
|
|
|
|
|
generally get better code when we load a sign extended value. */
|
|
|
|
|
if ((hi32.X_add_number & 0x80000000) != 0)
|
2000-12-05 19:51:08 +01:00
|
|
|
|
hi32.X_add_number |= ~(offsetT) 0xffffffff;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
load_register (counter, reg, &hi32, 0);
|
|
|
|
|
freg = reg;
|
|
|
|
|
}
|
|
|
|
|
if ((lo32.X_add_number & 0xffff0000) == 0)
|
|
|
|
|
{
|
|
|
|
|
if (freg != 0)
|
|
|
|
|
{
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL,
|
|
|
|
|
"dsll32", "d,w,<", reg, freg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
freg = reg;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expressionS mid16;
|
|
|
|
|
|
2001-12-04 15:38:48 +01:00
|
|
|
|
if ((freg == 0) && (lo32.X_add_number == (offsetT) 0xffffffff))
|
2000-12-05 19:51:08 +01:00
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, counter, &lo32, "lui", "t,u", reg,
|
|
|
|
|
(int) BFD_RELOC_HI16);
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL,
|
|
|
|
|
"dsrl32", "d,w,<", reg, reg, 0);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (freg != 0)
|
|
|
|
|
{
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL, "dsll",
|
|
|
|
|
"d,w,<", reg, freg, 16);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
freg = reg;
|
|
|
|
|
}
|
|
|
|
|
mid16 = lo32;
|
|
|
|
|
mid16.X_add_number >>= 16;
|
|
|
|
|
macro_build ((char *) NULL, counter, &mid16, "ori", "t,r,i", reg,
|
|
|
|
|
freg, (int) BFD_RELOC_LO16);
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL, "dsll",
|
|
|
|
|
"d,w,<", reg, reg, 16);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
freg = reg;
|
|
|
|
|
}
|
|
|
|
|
if ((lo32.X_add_number & 0xffff) != 0)
|
|
|
|
|
macro_build ((char *) NULL, counter, &lo32, "ori", "t,r,i", reg, freg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Load an address into a register. */
|
|
|
|
|
|
|
|
|
|
static void
|
2001-10-10 02:43:36 +02:00
|
|
|
|
load_address (counter, reg, ep, dbl, used_at)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int *counter;
|
|
|
|
|
int reg;
|
|
|
|
|
expressionS *ep;
|
2001-10-10 02:43:36 +02:00
|
|
|
|
int dbl;
|
|
|
|
|
int *used_at;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
if (ep->X_op != O_constant
|
|
|
|
|
&& ep->X_op != O_symbol)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("expression too complex"));
|
|
|
|
|
ep->X_op = O_constant;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (ep->X_op == O_constant)
|
|
|
|
|
{
|
2001-10-10 02:43:36 +02:00
|
|
|
|
load_register (counter, reg, ep, dbl);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (mips_pic == NO_PIC)
|
|
|
|
|
{
|
|
|
|
|
/* If this is a reference to a GP relative symbol, we want
|
2001-12-02 14:14:48 +01:00
|
|
|
|
addiu $reg,$gp,<sym> (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
Otherwise we want
|
|
|
|
|
lui $reg,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
addiu $reg,$reg,<sym> (BFD_RELOC_LO16)
|
2001-10-10 02:43:36 +02:00
|
|
|
|
If we have an addend, we always use the latter form.
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
2001-10-10 02:43:36 +02:00
|
|
|
|
With 64bit address space and a usable $at we want
|
|
|
|
|
lui $reg,<sym> (BFD_RELOC_MIPS_HIGHEST)
|
|
|
|
|
lui $at,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
daddiu $reg,<sym> (BFD_RELOC_MIPS_HIGHER)
|
|
|
|
|
daddiu $at,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
dsll32 $reg,0
|
|
|
|
|
dadd $reg,$reg,$at
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
2001-10-10 02:43:36 +02:00
|
|
|
|
If $at is already in use, we use an path which is suboptimal
|
|
|
|
|
on superscalar processors.
|
|
|
|
|
lui $reg,<sym> (BFD_RELOC_MIPS_HIGHEST)
|
|
|
|
|
daddiu $reg,<sym> (BFD_RELOC_MIPS_HIGHER)
|
|
|
|
|
dsll $reg,16
|
|
|
|
|
daddiu $reg,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
dsll $reg,16
|
|
|
|
|
daddiu $reg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
*/
|
2001-12-04 15:38:48 +01:00
|
|
|
|
if (dbl)
|
2001-10-10 02:43:36 +02:00
|
|
|
|
{
|
|
|
|
|
p = NULL;
|
|
|
|
|
|
|
|
|
|
/* We don't do GP optimization for now because RELAX_ENCODE can't
|
|
|
|
|
hold the data for such large chunks. */
|
|
|
|
|
|
|
|
|
|
if (*used_at == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, counter, ep, "lui", "t,u",
|
|
|
|
|
reg, (int) BFD_RELOC_MIPS_HIGHEST);
|
|
|
|
|
macro_build (p, counter, ep, "lui", "t,u",
|
|
|
|
|
AT, (int) BFD_RELOC_HI16_S);
|
|
|
|
|
macro_build (p, counter, ep, "daddiu", "t,r,j",
|
|
|
|
|
reg, reg, (int) BFD_RELOC_MIPS_HIGHER);
|
|
|
|
|
macro_build (p, counter, ep, "daddiu", "t,r,j",
|
|
|
|
|
AT, AT, (int) BFD_RELOC_LO16);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, counter, (expressionS *) NULL, "dsll32",
|
|
|
|
|
"d,w,<", reg, reg, 0);
|
|
|
|
|
macro_build (p, counter, (expressionS *) NULL, "dadd",
|
|
|
|
|
"d,v,t", reg, reg, AT);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
*used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, counter, ep, "lui", "t,u",
|
|
|
|
|
reg, (int) BFD_RELOC_MIPS_HIGHEST);
|
|
|
|
|
macro_build (p, counter, ep, "daddiu", "t,r,j",
|
|
|
|
|
reg, reg, (int) BFD_RELOC_MIPS_HIGHER);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, counter, (expressionS *) NULL, "dsll",
|
|
|
|
|
"d,w,<", reg, reg, 16);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
macro_build (p, counter, ep, "daddiu", "t,r,j",
|
|
|
|
|
reg, reg, (int) BFD_RELOC_HI16_S);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, counter, (expressionS *) NULL, "dsll",
|
|
|
|
|
"d,w,<", reg, reg, 16);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
macro_build (p, counter, ep, "daddiu", "t,r,j",
|
|
|
|
|
reg, reg, (int) BFD_RELOC_LO16);
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2001-10-10 02:43:36 +02:00
|
|
|
|
p = NULL;
|
|
|
|
|
if ((valueT) ep->X_add_number <= MAX_GPREL_OFFSET
|
|
|
|
|
&& ! nopic_need_relax (ep->X_add_symbol, 1))
|
|
|
|
|
{
|
|
|
|
|
frag_grow (20);
|
|
|
|
|
macro_build ((char *) NULL, counter, ep,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
dbl ? "daddiu" : "addiu", "t,r,j", reg, GP,
|
|
|
|
|
(int) BFD_RELOC_GPREL16);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
p = frag_var (rs_machine_dependent, 8, 0,
|
|
|
|
|
RELAX_ENCODE (4, 8, 0, 4, 0,
|
|
|
|
|
mips_opts.warn_about_macros),
|
2001-12-04 15:38:48 +01:00
|
|
|
|
ep->X_add_symbol, 0, NULL);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
}
|
|
|
|
|
macro_build_lui (p, counter, ep, reg);
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
p += 4;
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build (p, counter, ep, dbl ? "daddiu" : "addiu",
|
2001-10-10 02:43:36 +02:00
|
|
|
|
"t,r,j", reg, reg, (int) BFD_RELOC_LO16);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC && ! mips_big_got)
|
|
|
|
|
{
|
|
|
|
|
expressionS ex;
|
|
|
|
|
|
|
|
|
|
/* If this is a reference to an external symbol, we want
|
|
|
|
|
lw $reg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
Otherwise we want
|
|
|
|
|
lw $reg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $reg,$reg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
If there is a constant, it must be added in after. */
|
|
|
|
|
ex.X_add_number = ep->X_add_number;
|
|
|
|
|
ep->X_add_number = 0;
|
|
|
|
|
frag_grow (20);
|
|
|
|
|
macro_build ((char *) NULL, counter, ep,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", reg, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p = frag_var (rs_machine_dependent, 4, 0,
|
|
|
|
|
RELAX_ENCODE (0, 4, -8, 0, 0, mips_opts.warn_about_macros),
|
|
|
|
|
ep->X_add_symbol, (offsetT) 0, (char *) NULL);
|
|
|
|
|
macro_build (p, counter, ep,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", reg, reg, (int) BFD_RELOC_LO16);
|
|
|
|
|
if (ex.X_add_number != 0)
|
|
|
|
|
{
|
|
|
|
|
if (ex.X_add_number < -0x8000 || ex.X_add_number >= 0x8000)
|
|
|
|
|
as_bad (_("PIC code offset overflow (max 16 signed bits)"));
|
|
|
|
|
ex.X_op = O_constant;
|
|
|
|
|
macro_build ((char *) NULL, counter, &ex,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", reg, reg, (int) BFD_RELOC_LO16);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
expressionS ex;
|
|
|
|
|
int off;
|
|
|
|
|
|
|
|
|
|
/* This is the large GOT case. If this is a reference to an
|
|
|
|
|
external symbol, we want
|
|
|
|
|
lui $reg,<sym> (BFD_RELOC_MIPS_GOT_HI16)
|
|
|
|
|
addu $reg,$reg,$gp
|
|
|
|
|
lw $reg,<sym>($reg) (BFD_RELOC_MIPS_GOT_LO16)
|
|
|
|
|
Otherwise, for a reference to a local symbol, we want
|
|
|
|
|
lw $reg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $reg,$reg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
If there is a constant, it must be added in after. */
|
|
|
|
|
ex.X_add_number = ep->X_add_number;
|
|
|
|
|
ep->X_add_number = 0;
|
|
|
|
|
if (reg_needs_delay (GP))
|
|
|
|
|
off = 4;
|
|
|
|
|
else
|
|
|
|
|
off = 0;
|
|
|
|
|
frag_grow (32);
|
|
|
|
|
macro_build ((char *) NULL, counter, ep, "lui", "t,u", reg,
|
|
|
|
|
(int) BFD_RELOC_MIPS_GOT_HI16);
|
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL,
|
2001-12-04 15:38:48 +01:00
|
|
|
|
dbl ? "daddu" : "addu", "d,v,t", reg, reg, GP);
|
|
|
|
|
macro_build ((char *) NULL, counter, ep, dbl ? "ld" : "lw",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", reg, (int) BFD_RELOC_MIPS_GOT_LO16, reg);
|
|
|
|
|
p = frag_var (rs_machine_dependent, 12 + off, 0,
|
|
|
|
|
RELAX_ENCODE (12, 12 + off, off, 8 + off, 0,
|
|
|
|
|
mips_opts.warn_about_macros),
|
2001-12-04 15:38:48 +01:00
|
|
|
|
ep->X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (off > 0)
|
|
|
|
|
{
|
|
|
|
|
/* We need a nop before loading from $gp. This special
|
|
|
|
|
check is required because the lui which starts the main
|
|
|
|
|
instruction stream does not refer to $gp, and so will not
|
|
|
|
|
insert the nop which may be required. */
|
|
|
|
|
macro_build (p, counter, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build (p, counter, ep, dbl ? "ld" : "lw",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", reg, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, counter, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build (p, counter, ep, dbl ? "daddiu" : "addiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", reg, reg, (int) BFD_RELOC_LO16);
|
|
|
|
|
if (ex.X_add_number != 0)
|
|
|
|
|
{
|
|
|
|
|
if (ex.X_add_number < -0x8000 || ex.X_add_number >= 0x8000)
|
|
|
|
|
as_bad (_("PIC code offset overflow (max 16 signed bits)"));
|
|
|
|
|
ex.X_op = O_constant;
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, &ex, dbl ? "daddiu" : "addiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", reg, reg, (int) BFD_RELOC_LO16);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == EMBEDDED_PIC)
|
|
|
|
|
{
|
|
|
|
|
/* We always do
|
2001-12-02 14:14:48 +01:00
|
|
|
|
addiu $reg,$gp,<sym> (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
*/
|
2001-12-02 14:14:48 +01:00
|
|
|
|
macro_build ((char *) NULL, counter, ep, dbl ? "daddiu" : "addiu",
|
|
|
|
|
"t,r,j", reg, GP, (int) BFD_RELOC_GPREL16);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
2001-08-10 18:24:32 +02:00
|
|
|
|
/* Move the contents of register SOURCE into register DEST. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
move_register (counter, dest, source)
|
|
|
|
|
int *counter;
|
|
|
|
|
int dest;
|
|
|
|
|
int source;
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, counter, (expressionS *) NULL,
|
|
|
|
|
HAVE_32BIT_GPRS ? "addu" : "daddu",
|
|
|
|
|
"d,v,t", dest, source, 0);
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/*
|
|
|
|
|
* Build macros
|
|
|
|
|
* This routine implements the seemingly endless macro or synthesized
|
|
|
|
|
* instructions and addressing modes in the mips assembly language. Many
|
|
|
|
|
* of these macros are simple and are similar to each other. These could
|
|
|
|
|
* probably be handled by some kind of table or grammer aproach instead of
|
|
|
|
|
* this verbose method. Others are not simple macros but are more like
|
|
|
|
|
* optimizing code generation.
|
|
|
|
|
* One interesting optimization is when several store macros appear
|
|
|
|
|
* consecutivly that would load AT with the upper half of the same address.
|
|
|
|
|
* The ensuing load upper instructions are ommited. This implies some kind
|
|
|
|
|
* of global optimization. We currently only optimize within a single macro.
|
|
|
|
|
* For many of the load and store macros if the address is specified as a
|
|
|
|
|
* constant expression in the first 64k of memory (ie ld $2,0x4000c) we
|
|
|
|
|
* first load register 'at' with zero and use it as the base register. The
|
|
|
|
|
* mips assembler simply uses register $zero. Just one tiny optimization
|
|
|
|
|
* we're missing.
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
macro (ip)
|
|
|
|
|
struct mips_cl_insn *ip;
|
|
|
|
|
{
|
|
|
|
|
register int treg, sreg, dreg, breg;
|
|
|
|
|
int tempreg;
|
|
|
|
|
int mask;
|
|
|
|
|
int icnt = 0;
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int used_at = 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expressionS expr1;
|
|
|
|
|
const char *s;
|
|
|
|
|
const char *s2;
|
|
|
|
|
const char *fmt;
|
|
|
|
|
int likely = 0;
|
|
|
|
|
int dbl = 0;
|
|
|
|
|
int coproc = 0;
|
|
|
|
|
int lr = 0;
|
|
|
|
|
int imm = 0;
|
|
|
|
|
offsetT maxnum;
|
|
|
|
|
int off;
|
|
|
|
|
bfd_reloc_code_real_type r;
|
|
|
|
|
char *p;
|
|
|
|
|
int hold_mips_optimize;
|
|
|
|
|
|
|
|
|
|
assert (! mips_opts.mips16);
|
|
|
|
|
|
|
|
|
|
treg = (ip->insn_opcode >> 16) & 0x1f;
|
|
|
|
|
dreg = (ip->insn_opcode >> 11) & 0x1f;
|
|
|
|
|
sreg = breg = (ip->insn_opcode >> 21) & 0x1f;
|
|
|
|
|
mask = ip->insn_mo->mask;
|
|
|
|
|
|
|
|
|
|
expr1.X_op = O_constant;
|
|
|
|
|
expr1.X_op_symbol = NULL;
|
|
|
|
|
expr1.X_add_symbol = NULL;
|
|
|
|
|
expr1.X_add_number = 1;
|
|
|
|
|
|
|
|
|
|
switch (mask)
|
|
|
|
|
{
|
|
|
|
|
case M_DABS:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_ABS:
|
|
|
|
|
/* bgez $a0,.+12
|
|
|
|
|
move v0,$a0
|
|
|
|
|
sub v0,$zero,$a0
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
++mips_opts.noreorder;
|
|
|
|
|
mips_any_noreorder = 1;
|
|
|
|
|
|
|
|
|
|
expr1.X_add_number = 8;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "bgez", "s,p", sreg);
|
|
|
|
|
if (dreg == sreg)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "",
|
|
|
|
|
0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2001-08-10 18:24:32 +02:00
|
|
|
|
move_register (&icnt, dreg, sreg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "dsub" : "sub", "d,v,t", dreg, 0, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
--mips_opts.noreorder;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_ADD_I:
|
|
|
|
|
s = "addi";
|
|
|
|
|
s2 = "add";
|
|
|
|
|
goto do_addi;
|
|
|
|
|
case M_ADDU_I:
|
|
|
|
|
s = "addiu";
|
|
|
|
|
s2 = "addu";
|
|
|
|
|
goto do_addi;
|
|
|
|
|
case M_DADD_I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
s = "daddi";
|
|
|
|
|
s2 = "dadd";
|
|
|
|
|
goto do_addi;
|
|
|
|
|
case M_DADDU_I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
s = "daddiu";
|
|
|
|
|
s2 = "daddu";
|
|
|
|
|
do_addi:
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= -0x8000
|
|
|
|
|
&& imm_expr.X_add_number < 0x8000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, s, "t,r,j", treg, sreg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, dbl);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s2, "d,v,t",
|
|
|
|
|
treg, sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_AND_I:
|
|
|
|
|
s = "andi";
|
|
|
|
|
s2 = "and";
|
|
|
|
|
goto do_bit;
|
|
|
|
|
case M_OR_I:
|
|
|
|
|
s = "ori";
|
|
|
|
|
s2 = "or";
|
|
|
|
|
goto do_bit;
|
|
|
|
|
case M_NOR_I:
|
|
|
|
|
s = "";
|
|
|
|
|
s2 = "nor";
|
|
|
|
|
goto do_bit;
|
|
|
|
|
case M_XOR_I:
|
|
|
|
|
s = "xori";
|
|
|
|
|
s2 = "xor";
|
|
|
|
|
do_bit:
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= 0
|
|
|
|
|
&& imm_expr.X_add_number < 0x10000)
|
|
|
|
|
{
|
|
|
|
|
if (mask != M_NOR_I)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, s, "t,r,i", treg,
|
|
|
|
|
sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, "ori", "t,r,i",
|
|
|
|
|
treg, sreg, (int) BFD_RELOC_LO16);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nor",
|
|
|
|
|
"d,v,t", treg, treg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-10 02:43:36 +02:00
|
|
|
|
load_register (&icnt, AT, &imm_expr, HAVE_64BIT_GPRS);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s2, "d,v,t",
|
|
|
|
|
treg, sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BEQ_I:
|
|
|
|
|
s = "beq";
|
|
|
|
|
goto beq_i;
|
|
|
|
|
case M_BEQL_I:
|
|
|
|
|
s = "beql";
|
|
|
|
|
likely = 1;
|
|
|
|
|
goto beq_i;
|
|
|
|
|
case M_BNE_I:
|
|
|
|
|
s = "bne";
|
|
|
|
|
goto beq_i;
|
|
|
|
|
case M_BNEL_I:
|
|
|
|
|
s = "bnel";
|
|
|
|
|
likely = 1;
|
|
|
|
|
beq_i:
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, "s,t,p", sreg,
|
|
|
|
|
0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, "s,t,p", sreg, AT);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BGEL:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BGE:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-11-12 23:20:44 +01:00
|
|
|
|
likely ? "bgezl" : "bgez", "s,p", sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-11-12 23:20:44 +01:00
|
|
|
|
likely ? "blezl" : "blez", "s,p", treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "slt", "d,v,t",
|
|
|
|
|
AT, sreg, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "beql" : "beq", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BGTL_I:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BGT_I:
|
|
|
|
|
/* check for > max integer */
|
|
|
|
|
maxnum = 0x7fffffff;
|
2001-08-02 12:15:24 +02:00
|
|
|
|
if (HAVE_64BIT_GPRS && sizeof (maxnum) > 4)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
maxnum <<= 16;
|
|
|
|
|
maxnum |= 0xffff;
|
|
|
|
|
maxnum <<= 16;
|
|
|
|
|
maxnum |= 0xffff;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= maxnum
|
2001-08-02 12:15:24 +02:00
|
|
|
|
&& (HAVE_32BIT_GPRS || sizeof (maxnum) > 4))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
do_false:
|
|
|
|
|
/* result is always false */
|
|
|
|
|
if (! likely)
|
|
|
|
|
{
|
2001-06-09 07:24:39 +02:00
|
|
|
|
if (warn_nops)
|
|
|
|
|
as_warn (_("Branch %s is always false (nop)"),
|
|
|
|
|
ip->insn_mo->name);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop",
|
|
|
|
|
"", 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2001-06-09 07:24:39 +02:00
|
|
|
|
if (warn_nops)
|
|
|
|
|
as_warn (_("Branch likely %s is always false"),
|
|
|
|
|
ip->insn_mo->name);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "bnel",
|
|
|
|
|
"s,t,p", 0, 0);
|
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("Unsupported large constant"));
|
|
|
|
|
imm_expr.X_add_number++;
|
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
|
case M_BGE_I:
|
|
|
|
|
case M_BGEL_I:
|
|
|
|
|
if (mask == M_BGEL_I)
|
|
|
|
|
likely = 1;
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bgezl" : "bgez", "s,p", sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 1)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bgtzl" : "bgtz", "s,p", sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
maxnum = 0x7fffffff;
|
2001-08-02 12:15:24 +02:00
|
|
|
|
if (HAVE_64BIT_GPRS && sizeof (maxnum) > 4)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
maxnum <<= 16;
|
|
|
|
|
maxnum |= 0xffff;
|
|
|
|
|
maxnum <<= 16;
|
|
|
|
|
maxnum |= 0xffff;
|
|
|
|
|
}
|
|
|
|
|
maxnum = - maxnum - 1;
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number <= maxnum
|
2001-08-02 12:15:24 +02:00
|
|
|
|
&& (HAVE_32BIT_GPRS || sizeof (maxnum) > 4))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
do_true:
|
|
|
|
|
/* result is always true */
|
|
|
|
|
as_warn (_("Branch %s is always true"), ip->insn_mo->name);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "b", "p");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
set_at (&icnt, sreg, 0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "beql" : "beq", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BGEUL:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BGEU:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
goto do_true;
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "beql" : "beq", "s,t,p", 0, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", AT, sreg, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "beql" : "beq", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BGTUL_I:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BGTU_I:
|
|
|
|
|
if (sreg == 0
|
2001-08-02 12:15:24 +02:00
|
|
|
|
|| (HAVE_32BIT_GPRS
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& imm_expr.X_op == O_constant
|
2001-12-04 15:38:48 +01:00
|
|
|
|
&& imm_expr.X_add_number == (offsetT) 0xffffffff))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
goto do_false;
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("Unsupported large constant"));
|
|
|
|
|
imm_expr.X_add_number++;
|
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
|
case M_BGEU_I:
|
|
|
|
|
case M_BGEUL_I:
|
|
|
|
|
if (mask == M_BGEUL_I)
|
|
|
|
|
likely = 1;
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 0)
|
|
|
|
|
goto do_true;
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 1)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", sreg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
set_at (&icnt, sreg, 1);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "beql" : "beq", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BGTL:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BGT:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bgtzl" : "bgtz", "s,p", sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bltzl" : "bltz", "s,p", treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "slt", "d,v,t",
|
|
|
|
|
AT, treg, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BGTUL:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BGTU:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", sreg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
goto do_false;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", AT, treg, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BLEL:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BLE:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "blezl" : "blez", "s,p", sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bgezl" : "bgez", "s,p", treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "slt", "d,v,t",
|
|
|
|
|
AT, treg, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "beql" : "beq", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BLEL_I:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BLE_I:
|
|
|
|
|
maxnum = 0x7fffffff;
|
2001-08-02 12:15:24 +02:00
|
|
|
|
if (HAVE_64BIT_GPRS && sizeof (maxnum) > 4)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
maxnum <<= 16;
|
|
|
|
|
maxnum |= 0xffff;
|
|
|
|
|
maxnum <<= 16;
|
|
|
|
|
maxnum |= 0xffff;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= maxnum
|
2001-08-02 12:15:24 +02:00
|
|
|
|
&& (HAVE_32BIT_GPRS || sizeof (maxnum) > 4))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
goto do_true;
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("Unsupported large constant"));
|
|
|
|
|
imm_expr.X_add_number++;
|
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
|
case M_BLT_I:
|
|
|
|
|
case M_BLTL_I:
|
|
|
|
|
if (mask == M_BLTL_I)
|
|
|
|
|
likely = 1;
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bltzl" : "bltz", "s,p", sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 1)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "blezl" : "blez", "s,p", sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
set_at (&icnt, sreg, 0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BLEUL:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BLEU:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "beql" : "beq", "s,t,p", sreg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
goto do_true;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", AT, treg, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "beql" : "beq", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BLEUL_I:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BLEU_I:
|
|
|
|
|
if (sreg == 0
|
2001-08-02 12:15:24 +02:00
|
|
|
|
|| (HAVE_32BIT_GPRS
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& imm_expr.X_op == O_constant
|
2001-12-04 15:38:48 +01:00
|
|
|
|
&& imm_expr.X_add_number == (offsetT) 0xffffffff))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
goto do_true;
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("Unsupported large constant"));
|
|
|
|
|
imm_expr.X_add_number++;
|
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
|
case M_BLTU_I:
|
|
|
|
|
case M_BLTUL_I:
|
|
|
|
|
if (mask == M_BLTUL_I)
|
|
|
|
|
likely = 1;
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 0)
|
|
|
|
|
goto do_false;
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 1)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
|
|
|
|
likely ? "beql" : "beq",
|
|
|
|
|
"s,t,p", sreg, 0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
set_at (&icnt, sreg, 1);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BLTL:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BLT:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bltzl" : "bltz", "s,p", sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bgtzl" : "bgtz", "s,p", treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "slt", "d,v,t",
|
|
|
|
|
AT, sreg, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BLTUL:
|
|
|
|
|
likely = 1;
|
|
|
|
|
case M_BLTU:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
goto do_false;
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", 0, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", AT, sreg,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
treg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
likely ? "bnel" : "bne", "s,t,p", AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DDIV_3:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_DIV_3:
|
|
|
|
|
s = "mflo";
|
|
|
|
|
goto do_div3;
|
|
|
|
|
case M_DREM_3:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_REM_3:
|
|
|
|
|
s = "mfhi";
|
|
|
|
|
do_div3:
|
|
|
|
|
if (treg == 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Divide by zero."));
|
|
|
|
|
if (mips_trap)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "teq",
|
|
|
|
|
"s,t", 0, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break",
|
|
|
|
|
"c", 7);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
++mips_opts.noreorder;
|
|
|
|
|
mips_any_noreorder = 1;
|
|
|
|
|
if (mips_trap)
|
|
|
|
|
{
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "teq",
|
|
|
|
|
"s,t", treg, 0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "ddiv" : "div", "z,s,t", sreg, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr1.X_add_number = 8;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "bne", "s,t,p", treg, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "ddiv" : "div", "z,s,t", sreg, treg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break",
|
|
|
|
|
"c", 7);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
expr1.X_add_number = -1;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
|
|
|
|
dbl ? "daddiu" : "addiu",
|
|
|
|
|
"t,r,j", AT, 0, (int) BFD_RELOC_LO16);
|
|
|
|
|
expr1.X_add_number = mips_trap ? (dbl ? 12 : 8) : (dbl ? 20 : 16);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "bne", "s,t,p", treg, AT);
|
|
|
|
|
if (dbl)
|
|
|
|
|
{
|
|
|
|
|
expr1.X_add_number = 1;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "daddiu", "t,r,j", AT, 0,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "dsll32",
|
|
|
|
|
"d,w,<", AT, AT, 31);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr1.X_add_number = 0x80000000;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "lui", "t,u", AT,
|
|
|
|
|
(int) BFD_RELOC_HI16);
|
|
|
|
|
}
|
|
|
|
|
if (mips_trap)
|
|
|
|
|
{
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "teq",
|
|
|
|
|
"s,t", sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* We want to close the noreorder block as soon as possible, so
|
|
|
|
|
that later insns are available for delay slot filling. */
|
|
|
|
|
--mips_opts.noreorder;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr1.X_add_number = 8;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "bne", "s,t,p", sreg, AT);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "",
|
|
|
|
|
0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* We want to close the noreorder block as soon as possible, so
|
|
|
|
|
that later insns are available for delay slot filling. */
|
|
|
|
|
--mips_opts.noreorder;
|
|
|
|
|
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break",
|
|
|
|
|
"c", 6);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "d", dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DIV_3I:
|
|
|
|
|
s = "div";
|
|
|
|
|
s2 = "mflo";
|
|
|
|
|
goto do_divi;
|
|
|
|
|
case M_DIVU_3I:
|
|
|
|
|
s = "divu";
|
|
|
|
|
s2 = "mflo";
|
|
|
|
|
goto do_divi;
|
|
|
|
|
case M_REM_3I:
|
|
|
|
|
s = "div";
|
|
|
|
|
s2 = "mfhi";
|
|
|
|
|
goto do_divi;
|
|
|
|
|
case M_REMU_3I:
|
|
|
|
|
s = "divu";
|
|
|
|
|
s2 = "mfhi";
|
|
|
|
|
goto do_divi;
|
|
|
|
|
case M_DDIV_3I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
s = "ddiv";
|
|
|
|
|
s2 = "mflo";
|
|
|
|
|
goto do_divi;
|
|
|
|
|
case M_DDIVU_3I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
s = "ddivu";
|
|
|
|
|
s2 = "mflo";
|
|
|
|
|
goto do_divi;
|
|
|
|
|
case M_DREM_3I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
s = "ddiv";
|
|
|
|
|
s2 = "mfhi";
|
|
|
|
|
goto do_divi;
|
|
|
|
|
case M_DREMU_3I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
s = "ddivu";
|
|
|
|
|
s2 = "mfhi";
|
|
|
|
|
do_divi:
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Divide by zero."));
|
|
|
|
|
if (mips_trap)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "teq",
|
|
|
|
|
"s,t", 0, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break",
|
|
|
|
|
"c", 7);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 1)
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (s2, "mflo") == 0)
|
2001-08-10 18:24:32 +02:00
|
|
|
|
move_register (&icnt, dreg, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2001-08-10 18:24:32 +02:00
|
|
|
|
move_register (&icnt, dreg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number == -1
|
|
|
|
|
&& s[strlen (s) - 1] != 'u')
|
|
|
|
|
{
|
|
|
|
|
if (strcmp (s2, "mflo") == 0)
|
|
|
|
|
{
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
dbl ? "dneg" : "neg", "d,w", dreg, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
2001-08-10 18:24:32 +02:00
|
|
|
|
move_register (&icnt, dreg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, dbl);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "z,s,t",
|
|
|
|
|
sreg, AT);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s2, "d", dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DIVU_3:
|
|
|
|
|
s = "divu";
|
|
|
|
|
s2 = "mflo";
|
|
|
|
|
goto do_divu3;
|
|
|
|
|
case M_REMU_3:
|
|
|
|
|
s = "divu";
|
|
|
|
|
s2 = "mfhi";
|
|
|
|
|
goto do_divu3;
|
|
|
|
|
case M_DDIVU_3:
|
|
|
|
|
s = "ddivu";
|
|
|
|
|
s2 = "mflo";
|
|
|
|
|
goto do_divu3;
|
|
|
|
|
case M_DREMU_3:
|
|
|
|
|
s = "ddivu";
|
|
|
|
|
s2 = "mfhi";
|
|
|
|
|
do_divu3:
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
++mips_opts.noreorder;
|
|
|
|
|
mips_any_noreorder = 1;
|
|
|
|
|
if (mips_trap)
|
|
|
|
|
{
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "teq",
|
|
|
|
|
"s,t", treg, 0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "z,s,t",
|
|
|
|
|
sreg, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* We want to close the noreorder block as soon as possible, so
|
|
|
|
|
that later insns are available for delay slot filling. */
|
|
|
|
|
--mips_opts.noreorder;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr1.X_add_number = 8;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "bne", "s,t,p", treg, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "z,s,t",
|
|
|
|
|
sreg, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* We want to close the noreorder block as soon as possible, so
|
|
|
|
|
that later insns are available for delay slot filling. */
|
|
|
|
|
--mips_opts.noreorder;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break",
|
|
|
|
|
"c", 7);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s2, "d", dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_DLA_AB:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_LA_AB:
|
|
|
|
|
/* Load the address of a symbol into a register. If breg is not
|
|
|
|
|
zero, we then add a base register to it. */
|
|
|
|
|
|
2001-11-01 02:33:47 +01:00
|
|
|
|
if (treg == breg)
|
|
|
|
|
{
|
|
|
|
|
tempreg = AT;
|
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
tempreg = treg;
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* When generating embedded PIC code, we permit expressions of
|
|
|
|
|
the form
|
2001-11-01 02:33:47 +01:00
|
|
|
|
la $treg,foo-bar
|
|
|
|
|
la $treg,foo-bar($breg)
|
2000-03-11 03:16:25 +01:00
|
|
|
|
where bar is an address in the current section. These are used
|
1999-05-03 09:29:11 +02:00
|
|
|
|
when getting the addresses of functions. We don't permit
|
|
|
|
|
X_add_number to be non-zero, because if the symbol is
|
|
|
|
|
external the relaxing code needs to know that any addend is
|
|
|
|
|
purely the offset to X_op_symbol. */
|
|
|
|
|
if (mips_pic == EMBEDDED_PIC
|
|
|
|
|
&& offset_expr.X_op == O_subtract
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
&& (symbol_constant_p (offset_expr.X_op_symbol)
|
2000-03-11 03:16:25 +01:00
|
|
|
|
? S_GET_SEGMENT (offset_expr.X_op_symbol) == now_seg
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
: (symbol_equated_p (offset_expr.X_op_symbol)
|
|
|
|
|
&& (S_GET_SEGMENT
|
|
|
|
|
(symbol_get_value_expression (offset_expr.X_op_symbol)
|
|
|
|
|
->X_add_symbol)
|
2000-03-11 03:16:25 +01:00
|
|
|
|
== now_seg)))
|
|
|
|
|
&& (offset_expr.X_add_number == 0
|
|
|
|
|
|| OUTPUT_FLAVOR == bfd_target_elf_flavour))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-11-01 02:33:47 +01:00
|
|
|
|
if (breg == 0)
|
|
|
|
|
{
|
|
|
|
|
tempreg = treg;
|
|
|
|
|
used_at = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
tempreg, (int) BFD_RELOC_PCREL_HI16_S);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
tempreg, (int) BFD_RELOC_PCREL_HI16_S);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
|
|
|
|
"d,v,t", tempreg, tempreg, breg);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
2001-11-01 02:33:47 +01:00
|
|
|
|
"t,r,j", treg, tempreg, (int) BFD_RELOC_PCREL_LO16);
|
|
|
|
|
if (! used_at)
|
|
|
|
|
return;
|
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (offset_expr.X_op != O_symbol
|
|
|
|
|
&& offset_expr.X_op != O_constant)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("expression too complex"));
|
|
|
|
|
offset_expr.X_op = O_constant;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (offset_expr.X_op == O_constant)
|
|
|
|
|
load_register (&icnt, tempreg, &offset_expr, dbl);
|
|
|
|
|
else if (mips_pic == NO_PIC)
|
|
|
|
|
{
|
2001-10-10 02:43:36 +02:00
|
|
|
|
/* If this is a reference to a GP relative symbol, we want
|
2001-12-02 14:14:48 +01:00
|
|
|
|
addiu $tempreg,$gp,<sym> (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
Otherwise we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
addiu $tempreg,$tempreg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
If we have a constant, we need two instructions anyhow,
|
2001-10-10 02:43:36 +02:00
|
|
|
|
so we may as well always use the latter form.
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
2001-10-10 02:43:36 +02:00
|
|
|
|
With 64bit address space and a usable $at we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_HIGHEST)
|
|
|
|
|
lui $at,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_MIPS_HIGHER)
|
|
|
|
|
daddiu $at,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
dsll32 $tempreg,0
|
|
|
|
|
dadd $tempreg,$tempreg,$at
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
2001-10-10 02:43:36 +02:00
|
|
|
|
If $at is already in use, we use an path which is suboptimal
|
|
|
|
|
on superscalar processors.
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_HIGHEST)
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_MIPS_HIGHER)
|
|
|
|
|
dsll $tempreg,16
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
dsll $tempreg,16
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
*/
|
|
|
|
|
p = NULL;
|
|
|
|
|
if (HAVE_64BIT_ADDRESSES)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-10 02:43:36 +02:00
|
|
|
|
/* We don't do GP optimization for now because RELAX_ENCODE can't
|
|
|
|
|
hold the data for such large chunks. */
|
|
|
|
|
|
|
|
|
|
if (used_at == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
tempreg, (int) BFD_RELOC_MIPS_HIGHEST);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
AT, (int) BFD_RELOC_HI16_S);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "daddiu", "t,r,j",
|
|
|
|
|
tempreg, tempreg, (int) BFD_RELOC_MIPS_HIGHER);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "daddiu", "t,r,j",
|
|
|
|
|
AT, AT, (int) BFD_RELOC_LO16);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "dsll32",
|
|
|
|
|
"d,w,<", tempreg, tempreg, 0);
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "dadd", "d,v,t",
|
2001-10-10 02:43:36 +02:00
|
|
|
|
tempreg, tempreg, AT);
|
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
tempreg, (int) BFD_RELOC_MIPS_HIGHEST);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "daddiu", "t,r,j",
|
|
|
|
|
tempreg, tempreg, (int) BFD_RELOC_MIPS_HIGHER);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "dsll", "d,w,<",
|
2001-10-10 02:43:36 +02:00
|
|
|
|
tempreg, tempreg, 16);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "daddiu", "t,r,j",
|
|
|
|
|
tempreg, tempreg, (int) BFD_RELOC_HI16_S);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "dsll", "d,w,<",
|
2001-10-10 02:43:36 +02:00
|
|
|
|
tempreg, tempreg, 16);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "daddiu", "t,r,j",
|
|
|
|
|
tempreg, tempreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if ((valueT) offset_expr.X_add_number <= MAX_GPREL_OFFSET
|
|
|
|
|
&& ! nopic_need_relax (offset_expr.X_add_symbol, 1))
|
|
|
|
|
{
|
|
|
|
|
frag_grow (20);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
2001-12-02 14:14:48 +01:00
|
|
|
|
"t,r,j", tempreg, GP, (int) BFD_RELOC_GPREL16);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
p = frag_var (rs_machine_dependent, 8, 0,
|
|
|
|
|
RELAX_ENCODE (4, 8, 0, 4, 0,
|
|
|
|
|
mips_opts.warn_about_macros),
|
2001-12-04 15:38:48 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
}
|
|
|
|
|
macro_build_lui (p, &icnt, &offset_expr, tempreg);
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, &offset_expr,
|
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
|
|
|
|
"t,r,j", tempreg, tempreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC && ! mips_big_got)
|
|
|
|
|
{
|
2001-02-12 00:11:41 +01:00
|
|
|
|
int lw_reloc_type = (int) BFD_RELOC_MIPS_GOT16;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* If this is a reference to an external symbol, and there
|
|
|
|
|
is no constant, we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
2001-02-12 00:11:41 +01:00
|
|
|
|
or if tempreg is PIC_CALL_REG
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_CALL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
For a local symbol, we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $tempreg,$tempreg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
|
|
|
|
|
If we have a small constant, and this is a reference to
|
|
|
|
|
an external symbol, we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $tempreg,$tempreg,<constant>
|
|
|
|
|
For a local symbol, we want the same instruction
|
|
|
|
|
sequence, but we output a BFD_RELOC_LO16 reloc on the
|
|
|
|
|
addiu instruction.
|
|
|
|
|
|
|
|
|
|
If we have a large constant, and this is a reference to
|
|
|
|
|
an external symbol, we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
lui $at,<hiconstant>
|
|
|
|
|
addiu $at,$at,<loconstant>
|
|
|
|
|
addu $tempreg,$tempreg,$at
|
|
|
|
|
For a local symbol, we want the same instruction
|
|
|
|
|
sequence, but we output a BFD_RELOC_LO16 reloc on the
|
|
|
|
|
addiu instruction. */
|
|
|
|
|
expr1.X_add_number = offset_expr.X_add_number;
|
|
|
|
|
offset_expr.X_add_number = 0;
|
|
|
|
|
frag_grow (32);
|
2001-02-12 00:11:41 +01:00
|
|
|
|
if (expr1.X_add_number == 0 && tempreg == PIC_CALL_REG)
|
|
|
|
|
lw_reloc_type = (int) BFD_RELOC_MIPS_CALL16;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, dbl ? "ld" : "lw",
|
2001-02-12 00:11:41 +01:00
|
|
|
|
"t,o(b)", tempreg, lw_reloc_type, GP);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (expr1.X_add_number == 0)
|
|
|
|
|
{
|
|
|
|
|
int off;
|
|
|
|
|
|
|
|
|
|
if (breg == 0)
|
|
|
|
|
off = 0;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* We're going to put in an addu instruction using
|
|
|
|
|
tempreg, so we may as well insert the nop right
|
|
|
|
|
now. */
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"nop", "");
|
|
|
|
|
off = 4;
|
|
|
|
|
}
|
|
|
|
|
p = frag_var (rs_machine_dependent, 8 - off, 0,
|
|
|
|
|
RELAX_ENCODE (0, 8 - off, -4 - off, 4 - off, 0,
|
|
|
|
|
(breg == 0
|
|
|
|
|
? mips_opts.warn_about_macros
|
|
|
|
|
: 0)),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (breg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
|
|
|
|
macro_build (p, &icnt, &expr1,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", tempreg, tempreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
/* FIXME: If breg == 0, and the next instruction uses
|
|
|
|
|
$tempreg, then if this variant case is used an extra
|
|
|
|
|
nop will be generated. */
|
|
|
|
|
}
|
|
|
|
|
else if (expr1.X_add_number >= -0x8000
|
|
|
|
|
&& expr1.X_add_number < 0x8000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"nop", "");
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", tempreg, tempreg, (int) BFD_RELOC_LO16);
|
2001-11-12 23:19:30 +01:00
|
|
|
|
frag_var (rs_machine_dependent, 0, 0,
|
|
|
|
|
RELAX_ENCODE (0, 0, -12, -4, 0, 0),
|
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int off1;
|
|
|
|
|
|
|
|
|
|
/* If we are going to add in a base register, and the
|
|
|
|
|
target register and the base register are the same,
|
|
|
|
|
then we are using AT as a temporary register. Since
|
|
|
|
|
we want to load the constant into AT, we add our
|
|
|
|
|
current AT (from the global offset table) and the
|
|
|
|
|
register into the register now, and pretend we were
|
|
|
|
|
not using a base register. */
|
|
|
|
|
if (breg != treg)
|
|
|
|
|
off1 = 0;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"nop", "");
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", treg, AT, breg);
|
|
|
|
|
breg = 0;
|
|
|
|
|
tempreg = treg;
|
|
|
|
|
off1 = -8;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Set mips_optimize around the lui instruction to avoid
|
|
|
|
|
inserting an unnecessary nop after the lw. */
|
|
|
|
|
hold_mips_optimize = mips_optimize;
|
|
|
|
|
mips_optimize = 2;
|
2001-11-12 23:19:30 +01:00
|
|
|
|
macro_build_lui (NULL, &icnt, &expr1, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
mips_optimize = hold_mips_optimize;
|
|
|
|
|
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", AT, AT, (int) BFD_RELOC_LO16);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, tempreg, AT);
|
2001-11-12 23:19:30 +01:00
|
|
|
|
frag_var (rs_machine_dependent, 0, 0,
|
|
|
|
|
RELAX_ENCODE (0, 0, -16 + off1, -8, 0, 0),
|
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
int gpdel;
|
2001-02-12 00:11:41 +01:00
|
|
|
|
int lui_reloc_type = (int) BFD_RELOC_MIPS_GOT_HI16;
|
|
|
|
|
int lw_reloc_type = (int) BFD_RELOC_MIPS_GOT_LO16;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* This is the large GOT case. If this is a reference to an
|
|
|
|
|
external symbol, and there is no constant, we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_GOT_HI16)
|
|
|
|
|
addu $tempreg,$tempreg,$gp
|
|
|
|
|
lw $tempreg,<sym>($tempreg) (BFD_RELOC_MIPS_GOT_LO16)
|
2001-02-12 00:11:41 +01:00
|
|
|
|
or if tempreg is PIC_CALL_REG
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_CALL_HI16)
|
|
|
|
|
addu $tempreg,$tempreg,$gp
|
|
|
|
|
lw $tempreg,<sym>($tempreg) (BFD_RELOC_MIPS_CALL_LO16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
For a local symbol, we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $tempreg,$tempreg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
|
|
|
|
|
If we have a small constant, and this is a reference to
|
|
|
|
|
an external symbol, we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_GOT_HI16)
|
|
|
|
|
addu $tempreg,$tempreg,$gp
|
|
|
|
|
lw $tempreg,<sym>($tempreg) (BFD_RELOC_MIPS_GOT_LO16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $tempreg,$tempreg,<constant>
|
|
|
|
|
For a local symbol, we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $tempreg,$tempreg,<constant> (BFD_RELOC_LO16)
|
|
|
|
|
|
|
|
|
|
If we have a large constant, and this is a reference to
|
|
|
|
|
an external symbol, we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_GOT_HI16)
|
|
|
|
|
addu $tempreg,$tempreg,$gp
|
|
|
|
|
lw $tempreg,<sym>($tempreg) (BFD_RELOC_MIPS_GOT_LO16)
|
|
|
|
|
lui $at,<hiconstant>
|
|
|
|
|
addiu $at,$at,<loconstant>
|
|
|
|
|
addu $tempreg,$tempreg,$at
|
|
|
|
|
For a local symbol, we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
lui $at,<hiconstant>
|
|
|
|
|
addiu $at,$at,<loconstant> (BFD_RELOC_LO16)
|
|
|
|
|
addu $tempreg,$tempreg,$at
|
|
|
|
|
*/
|
|
|
|
|
expr1.X_add_number = offset_expr.X_add_number;
|
|
|
|
|
offset_expr.X_add_number = 0;
|
|
|
|
|
frag_grow (52);
|
|
|
|
|
if (reg_needs_delay (GP))
|
|
|
|
|
gpdel = 4;
|
|
|
|
|
else
|
|
|
|
|
gpdel = 0;
|
2001-02-12 00:11:41 +01:00
|
|
|
|
if (expr1.X_add_number == 0 && tempreg == PIC_CALL_REG)
|
|
|
|
|
{
|
|
|
|
|
lui_reloc_type = (int) BFD_RELOC_MIPS_CALL_HI16;
|
|
|
|
|
lw_reloc_type = (int) BFD_RELOC_MIPS_CALL_LO16;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lui", "t,u",
|
2001-02-12 00:11:41 +01:00
|
|
|
|
tempreg, lui_reloc_type);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, tempreg, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
|
|
|
|
dbl ? "ld" : "lw",
|
2001-02-12 00:11:41 +01:00
|
|
|
|
"t,o(b)", tempreg, lw_reloc_type, tempreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (expr1.X_add_number == 0)
|
|
|
|
|
{
|
|
|
|
|
int off;
|
|
|
|
|
|
|
|
|
|
if (breg == 0)
|
|
|
|
|
off = 0;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* We're going to put in an addu instruction using
|
|
|
|
|
tempreg, so we may as well insert the nop right
|
|
|
|
|
now. */
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"nop", "");
|
|
|
|
|
off = 4;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_machine_dependent, 12 + gpdel, 0,
|
|
|
|
|
RELAX_ENCODE (12 + off, 12 + gpdel, gpdel,
|
|
|
|
|
8 + gpdel, 0,
|
|
|
|
|
(breg == 0
|
|
|
|
|
? mips_opts.warn_about_macros
|
|
|
|
|
: 0)),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (expr1.X_add_number >= -0x8000
|
|
|
|
|
&& expr1.X_add_number < 0x8000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"nop", "");
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", tempreg, tempreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_machine_dependent, 12 + gpdel, 0,
|
|
|
|
|
RELAX_ENCODE (20, 12 + gpdel, gpdel, 8 + gpdel, 0,
|
|
|
|
|
(breg == 0
|
|
|
|
|
? mips_opts.warn_about_macros
|
|
|
|
|
: 0)),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int adj, dreg;
|
|
|
|
|
|
|
|
|
|
/* If we are going to add in a base register, and the
|
|
|
|
|
target register and the base register are the same,
|
|
|
|
|
then we are using AT as a temporary register. Since
|
|
|
|
|
we want to load the constant into AT, we add our
|
|
|
|
|
current AT (from the global offset table) and the
|
|
|
|
|
register into the register now, and pretend we were
|
|
|
|
|
not using a base register. */
|
|
|
|
|
if (breg != treg)
|
|
|
|
|
{
|
|
|
|
|
adj = 0;
|
|
|
|
|
dreg = tempreg;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
assert (tempreg == AT);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"nop", "");
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", treg, AT, breg);
|
|
|
|
|
dreg = treg;
|
|
|
|
|
adj = 8;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Set mips_optimize around the lui instruction to avoid
|
|
|
|
|
inserting an unnecessary nop after the lw. */
|
|
|
|
|
hold_mips_optimize = mips_optimize;
|
|
|
|
|
mips_optimize = 2;
|
2001-11-12 23:19:30 +01:00
|
|
|
|
macro_build_lui (NULL, &icnt, &expr1, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
mips_optimize = hold_mips_optimize;
|
|
|
|
|
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", AT, AT, (int) BFD_RELOC_LO16);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", dreg, dreg, AT);
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_machine_dependent, 16 + gpdel + adj, 0,
|
|
|
|
|
RELAX_ENCODE (24 + adj, 16 + gpdel + adj, gpdel,
|
|
|
|
|
8 + gpdel, 0,
|
|
|
|
|
(breg == 0
|
|
|
|
|
? mips_opts.warn_about_macros
|
|
|
|
|
: 0)),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (gpdel > 0)
|
|
|
|
|
{
|
|
|
|
|
/* This is needed because this instruction uses $gp, but
|
|
|
|
|
the first instruction on the main stream does not. */
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
|
|
|
|
macro_build (p, &icnt, &offset_expr,
|
|
|
|
|
dbl ? "ld" : "lw",
|
|
|
|
|
"t,o(b)", tempreg, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
p += 4;
|
|
|
|
|
if (expr1.X_add_number >= -0x8000
|
|
|
|
|
&& expr1.X_add_number < 0x8000)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, &expr1,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", tempreg, tempreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
/* FIXME: If add_number is 0, and there was no base
|
|
|
|
|
register, the external symbol case ended with a load,
|
|
|
|
|
so if the symbol turns out to not be external, and
|
|
|
|
|
the next instruction uses tempreg, an unnecessary nop
|
|
|
|
|
will be inserted. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (breg == treg)
|
|
|
|
|
{
|
|
|
|
|
/* We must add in the base register now, as in the
|
|
|
|
|
external symbol case. */
|
|
|
|
|
assert (tempreg == AT);
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", treg, AT, breg);
|
|
|
|
|
p += 4;
|
|
|
|
|
tempreg = treg;
|
|
|
|
|
/* We set breg to 0 because we have arranged to add
|
|
|
|
|
it in in both cases. */
|
|
|
|
|
breg = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
macro_build_lui (p, &icnt, &expr1, AT);
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, &expr1,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", AT, AT, (int) BFD_RELOC_LO16);
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, tempreg, AT);
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == EMBEDDED_PIC)
|
|
|
|
|
{
|
|
|
|
|
/* We use
|
2001-12-02 14:14:48 +01:00
|
|
|
|
addiu $tempreg,$gp,<sym> (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
*/
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
2001-12-02 14:14:48 +01:00
|
|
|
|
"t,r,j", tempreg, GP, (int) BFD_RELOC_GPREL16);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", treg, tempreg, breg);
|
|
|
|
|
|
|
|
|
|
if (! used_at)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_J_A:
|
|
|
|
|
/* The j instruction may not be used in PIC code, since it
|
|
|
|
|
requires an absolute address. We convert it to a b
|
|
|
|
|
instruction. */
|
|
|
|
|
if (mips_pic == NO_PIC)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "j", "a");
|
|
|
|
|
else
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "b", "p");
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/* The jal instructions must be handled as macros because when
|
|
|
|
|
generating PIC code they expand to multi-instruction
|
|
|
|
|
sequences. Normally they are simple instructions. */
|
|
|
|
|
case M_JAL_1:
|
|
|
|
|
dreg = RA;
|
|
|
|
|
/* Fall through. */
|
|
|
|
|
case M_JAL_2:
|
|
|
|
|
if (mips_pic == NO_PIC
|
|
|
|
|
|| mips_pic == EMBEDDED_PIC)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "jalr",
|
|
|
|
|
"d,s", dreg, sreg);
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
if (sreg != PIC_CALL_REG)
|
|
|
|
|
as_warn (_("MIPS PIC call to register other than $25"));
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "jalr",
|
|
|
|
|
"d,s", dreg, sreg);
|
2001-10-10 03:08:35 +02:00
|
|
|
|
if (! HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-10 03:08:35 +02:00
|
|
|
|
if (mips_cprestore_offset < 0)
|
|
|
|
|
as_warn (_("No .cprestore pseudo-op used in PIC code"));
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-01-05 20:06:52 +01:00
|
|
|
|
if (! mips_frame_reg_valid)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("No .frame pseudo-op used in PIC code"));
|
|
|
|
|
/* Quiet this warning. */
|
|
|
|
|
mips_frame_reg_valid = 1;
|
|
|
|
|
}
|
|
|
|
|
if (! mips_cprestore_valid)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("No .cprestore pseudo-op used in PIC code"));
|
|
|
|
|
/* Quiet this warning. */
|
|
|
|
|
mips_cprestore_valid = 1;
|
|
|
|
|
}
|
2001-10-10 03:08:35 +02:00
|
|
|
|
expr1.X_add_number = mips_cprestore_offset;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld", "t,o(b)",
|
|
|
|
|
GP, (int) BFD_RELOC_LO16, mips_frame_reg);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_JAL_A:
|
|
|
|
|
if (mips_pic == NO_PIC)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "jal", "a");
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
/* If this is a reference to an external symbol, and we are
|
|
|
|
|
using a small GOT, we want
|
|
|
|
|
lw $25,<sym>($gp) (BFD_RELOC_MIPS_CALL16)
|
|
|
|
|
nop
|
|
|
|
|
jalr $25
|
|
|
|
|
nop
|
|
|
|
|
lw $gp,cprestore($sp)
|
|
|
|
|
The cprestore value is set using the .cprestore
|
|
|
|
|
pseudo-op. If we are using a big GOT, we want
|
|
|
|
|
lui $25,<sym> (BFD_RELOC_MIPS_CALL_HI16)
|
|
|
|
|
addu $25,$25,$gp
|
|
|
|
|
lw $25,<sym>($25) (BFD_RELOC_MIPS_CALL_LO16)
|
|
|
|
|
nop
|
|
|
|
|
jalr $25
|
|
|
|
|
nop
|
|
|
|
|
lw $gp,cprestore($sp)
|
|
|
|
|
If the symbol is not external, we want
|
|
|
|
|
lw $25,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $25,$25,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
jalr $25
|
|
|
|
|
nop
|
|
|
|
|
lw $gp,cprestore($sp) */
|
|
|
|
|
frag_grow (40);
|
|
|
|
|
if (! mips_big_got)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", PIC_CALL_REG,
|
|
|
|
|
(int) BFD_RELOC_MIPS_CALL16, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"nop", "");
|
|
|
|
|
p = frag_var (rs_machine_dependent, 4, 0,
|
|
|
|
|
RELAX_ENCODE (0, 4, -8, 0, 0, 0),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int gpdel;
|
|
|
|
|
|
|
|
|
|
if (reg_needs_delay (GP))
|
|
|
|
|
gpdel = 4;
|
|
|
|
|
else
|
|
|
|
|
gpdel = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
PIC_CALL_REG, (int) BFD_RELOC_MIPS_CALL_HI16);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", PIC_CALL_REG, PIC_CALL_REG, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", PIC_CALL_REG,
|
|
|
|
|
(int) BFD_RELOC_MIPS_CALL_LO16, PIC_CALL_REG);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"nop", "");
|
|
|
|
|
p = frag_var (rs_machine_dependent, 12 + gpdel, 0,
|
|
|
|
|
RELAX_ENCODE (16, 12 + gpdel, gpdel, 8 + gpdel,
|
|
|
|
|
0, 0),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (gpdel > 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
|
|
|
|
macro_build (p, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", PIC_CALL_REG,
|
|
|
|
|
(int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build (p, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", PIC_CALL_REG, PIC_CALL_REG,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"jalr", "s", PIC_CALL_REG);
|
2001-10-10 03:08:35 +02:00
|
|
|
|
if (! HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-10 03:08:35 +02:00
|
|
|
|
if (mips_cprestore_offset < 0)
|
|
|
|
|
as_warn (_("No .cprestore pseudo-op used in PIC code"));
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-01-05 20:06:52 +01:00
|
|
|
|
if (! mips_frame_reg_valid)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("No .frame pseudo-op used in PIC code"));
|
|
|
|
|
/* Quiet this warning. */
|
|
|
|
|
mips_frame_reg_valid = 1;
|
|
|
|
|
}
|
|
|
|
|
if (! mips_cprestore_valid)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("No .cprestore pseudo-op used in PIC code"));
|
|
|
|
|
/* Quiet this warning. */
|
|
|
|
|
mips_cprestore_valid = 1;
|
|
|
|
|
}
|
2001-10-10 03:08:35 +02:00
|
|
|
|
if (mips_opts.noreorder)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"nop", "");
|
2001-10-10 03:08:35 +02:00
|
|
|
|
expr1.X_add_number = mips_cprestore_offset;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld", "t,o(b)",
|
|
|
|
|
GP, (int) BFD_RELOC_LO16, mips_frame_reg);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == EMBEDDED_PIC)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "bal", "p");
|
|
|
|
|
/* The linker may expand the call to a longer sequence which
|
|
|
|
|
uses $at, so we must break rather than return. */
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_LB_AB:
|
|
|
|
|
s = "lb";
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LBU_AB:
|
|
|
|
|
s = "lbu";
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LH_AB:
|
|
|
|
|
s = "lh";
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LHU_AB:
|
|
|
|
|
s = "lhu";
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LW_AB:
|
|
|
|
|
s = "lw";
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LWC0_AB:
|
|
|
|
|
s = "lwc0";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LWC1_AB:
|
|
|
|
|
s = "lwc1";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LWC2_AB:
|
|
|
|
|
s = "lwc2";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LWC3_AB:
|
|
|
|
|
s = "lwc3";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LWL_AB:
|
|
|
|
|
s = "lwl";
|
|
|
|
|
lr = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LWR_AB:
|
|
|
|
|
s = "lwr";
|
|
|
|
|
lr = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LDC1_AB:
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_arch == CPU_R4650)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("opcode not supported on this processor"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
s = "ldc1";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LDC2_AB:
|
|
|
|
|
s = "ldc2";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LDC3_AB:
|
|
|
|
|
s = "ldc3";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LDL_AB:
|
|
|
|
|
s = "ldl";
|
|
|
|
|
lr = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LDR_AB:
|
|
|
|
|
s = "ldr";
|
|
|
|
|
lr = 1;
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LL_AB:
|
|
|
|
|
s = "ll";
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LLD_AB:
|
|
|
|
|
s = "lld";
|
|
|
|
|
goto ld;
|
|
|
|
|
case M_LWU_AB:
|
|
|
|
|
s = "lwu";
|
|
|
|
|
ld:
|
|
|
|
|
if (breg == treg || coproc || lr)
|
|
|
|
|
{
|
|
|
|
|
tempreg = AT;
|
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
tempreg = treg;
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
goto ld_st;
|
|
|
|
|
case M_SB_AB:
|
|
|
|
|
s = "sb";
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SH_AB:
|
|
|
|
|
s = "sh";
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SW_AB:
|
|
|
|
|
s = "sw";
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SWC0_AB:
|
|
|
|
|
s = "swc0";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SWC1_AB:
|
|
|
|
|
s = "swc1";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SWC2_AB:
|
|
|
|
|
s = "swc2";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SWC3_AB:
|
|
|
|
|
s = "swc3";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SWL_AB:
|
|
|
|
|
s = "swl";
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SWR_AB:
|
|
|
|
|
s = "swr";
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SC_AB:
|
|
|
|
|
s = "sc";
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SCD_AB:
|
|
|
|
|
s = "scd";
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SDC1_AB:
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_arch == CPU_R4650)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("opcode not supported on this processor"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
s = "sdc1";
|
|
|
|
|
coproc = 1;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
goto st;
|
|
|
|
|
case M_SDC2_AB:
|
|
|
|
|
s = "sdc2";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SDC3_AB:
|
|
|
|
|
s = "sdc3";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SDL_AB:
|
|
|
|
|
s = "sdl";
|
|
|
|
|
goto st;
|
|
|
|
|
case M_SDR_AB:
|
|
|
|
|
s = "sdr";
|
|
|
|
|
st:
|
|
|
|
|
tempreg = AT;
|
|
|
|
|
used_at = 1;
|
|
|
|
|
ld_st:
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (mask == M_LWC1_AB
|
|
|
|
|
|| mask == M_SWC1_AB
|
|
|
|
|
|| mask == M_LDC1_AB
|
|
|
|
|
|| mask == M_SDC1_AB
|
|
|
|
|
|| mask == M_L_DAB
|
|
|
|
|
|| mask == M_S_DAB)
|
|
|
|
|
fmt = "T,o(b)";
|
|
|
|
|
else if (coproc)
|
|
|
|
|
fmt = "E,o(b)";
|
|
|
|
|
else
|
|
|
|
|
fmt = "t,o(b)";
|
|
|
|
|
|
2001-11-01 02:33:47 +01:00
|
|
|
|
/* For embedded PIC, we allow loads where the offset is calculated
|
|
|
|
|
by subtracting a symbol in the current segment from an unknown
|
|
|
|
|
symbol, relative to a base register, e.g.:
|
|
|
|
|
<op> $treg, <sym>-<localsym>($breg)
|
|
|
|
|
This is used by the compiler for switch statements. */
|
2001-11-06 22:39:09 +01:00
|
|
|
|
if (mips_pic == EMBEDDED_PIC
|
2001-11-01 02:33:47 +01:00
|
|
|
|
&& offset_expr.X_op == O_subtract
|
|
|
|
|
&& (symbol_constant_p (offset_expr.X_op_symbol)
|
|
|
|
|
? S_GET_SEGMENT (offset_expr.X_op_symbol) == now_seg
|
|
|
|
|
: (symbol_equated_p (offset_expr.X_op_symbol)
|
|
|
|
|
&& (S_GET_SEGMENT
|
|
|
|
|
(symbol_get_value_expression (offset_expr.X_op_symbol)
|
|
|
|
|
->X_add_symbol)
|
|
|
|
|
== now_seg)))
|
|
|
|
|
&& breg != 0
|
|
|
|
|
&& (offset_expr.X_add_number == 0
|
|
|
|
|
|| OUTPUT_FLAVOR == bfd_target_elf_flavour))
|
|
|
|
|
{
|
|
|
|
|
/* For this case, we output the instructions:
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_PCREL_HI16_S)
|
|
|
|
|
addiu $tempreg,$tempreg,$breg
|
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_PCREL_LO16)
|
|
|
|
|
If the relocation would fit entirely in 16 bits, it would be
|
|
|
|
|
nice to emit:
|
|
|
|
|
<op> $treg,<sym>($breg) (BFD_RELOC_PCREL_LO16)
|
|
|
|
|
instead, but that seems quite difficult. */
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
tempreg, (int) BFD_RELOC_PCREL_HI16_S);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
((bfd_arch_bits_per_address (stdoutput) == 32
|
|
|
|
|
|| ! ISA_HAS_64BIT_REGS (mips_opts.isa))
|
|
|
|
|
? "addu" : "daddu"),
|
|
|
|
|
"d,v,t", tempreg, tempreg, breg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt, treg,
|
|
|
|
|
(int) BFD_RELOC_PCREL_LO16, tempreg);
|
|
|
|
|
if (! used_at)
|
|
|
|
|
return;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (offset_expr.X_op != O_constant
|
|
|
|
|
&& offset_expr.X_op != O_symbol)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("expression too complex"));
|
|
|
|
|
offset_expr.X_op = O_constant;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* A constant expression in PIC code can be handled just as it
|
|
|
|
|
is in non PIC code. */
|
|
|
|
|
if (mips_pic == NO_PIC
|
|
|
|
|
|| offset_expr.X_op == O_constant)
|
|
|
|
|
{
|
|
|
|
|
/* If this is a reference to a GP relative symbol, and there
|
|
|
|
|
is no base register, we want
|
2001-12-02 14:14:48 +01:00
|
|
|
|
<op> $treg,<sym>($gp) (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
Otherwise, if there is no base register, we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_LO16)
|
|
|
|
|
If we have a constant, we need two instructions anyhow,
|
|
|
|
|
so we always use the latter form.
|
|
|
|
|
|
|
|
|
|
If we have a base register, and this is a reference to a
|
|
|
|
|
GP relative symbol, we want
|
|
|
|
|
addu $tempreg,$breg,$gp
|
2001-12-02 14:14:48 +01:00
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
Otherwise we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
addu $tempreg,$tempreg,$breg
|
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_LO16)
|
2001-10-10 02:43:36 +02:00
|
|
|
|
With a constant we always use the latter case.
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
2001-10-10 02:43:36 +02:00
|
|
|
|
With 64bit address space and no base register and $at usable,
|
|
|
|
|
we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_HIGHEST)
|
|
|
|
|
lui $at,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_MIPS_HIGHER)
|
|
|
|
|
dsll32 $tempreg,0
|
|
|
|
|
daddu $tempreg,$at
|
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_LO16)
|
|
|
|
|
If we have a base register, we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_HIGHEST)
|
|
|
|
|
lui $at,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_MIPS_HIGHER)
|
|
|
|
|
daddu $at,$breg
|
|
|
|
|
dsll32 $tempreg,0
|
|
|
|
|
daddu $tempreg,$at
|
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_LO16)
|
|
|
|
|
|
|
|
|
|
Without $at we can't generate the optimal path for superscalar
|
|
|
|
|
processors here since this would require two temporary registers.
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_HIGHEST)
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_MIPS_HIGHER)
|
|
|
|
|
dsll $tempreg,16
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
dsll $tempreg,16
|
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_LO16)
|
|
|
|
|
If we have a base register, we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_HIGHEST)
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_MIPS_HIGHER)
|
|
|
|
|
dsll $tempreg,16
|
|
|
|
|
daddiu $tempreg,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
dsll $tempreg,16
|
|
|
|
|
daddu $tempreg,$tempreg,$breg
|
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_LO16)
|
|
|
|
|
*/
|
|
|
|
|
if (HAVE_64BIT_ADDRESSES)
|
|
|
|
|
{
|
|
|
|
|
p = NULL;
|
|
|
|
|
|
|
|
|
|
/* We don't do GP optimization for now because RELAX_ENCODE can't
|
|
|
|
|
hold the data for such large chunks. */
|
|
|
|
|
|
|
|
|
|
if (used_at == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
tempreg, (int) BFD_RELOC_MIPS_HIGHEST);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
AT, (int) BFD_RELOC_HI16_S);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "daddiu", "t,r,j",
|
|
|
|
|
tempreg, tempreg, (int) BFD_RELOC_MIPS_HIGHER);
|
|
|
|
|
if (breg != 0)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "daddu",
|
|
|
|
|
"d,v,t", AT, AT, breg);
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "dsll32",
|
|
|
|
|
"d,w,<", tempreg, tempreg, 0);
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "daddu",
|
|
|
|
|
"d,v,t", tempreg, tempreg, AT);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
macro_build (p, &icnt, &offset_expr, s,
|
|
|
|
|
fmt, treg, (int) BFD_RELOC_LO16, tempreg);
|
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
tempreg, (int) BFD_RELOC_MIPS_HIGHEST);
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, "daddiu", "t,r,j",
|
|
|
|
|
tempreg, tempreg, (int) BFD_RELOC_MIPS_HIGHER);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "dsll",
|
|
|
|
|
"d,w,<", tempreg, tempreg, 16);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
macro_build (p, &icnt, &offset_expr, "daddiu", "t,r,j",
|
|
|
|
|
tempreg, tempreg, (int) BFD_RELOC_HI16_S);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "dsll",
|
|
|
|
|
"d,w,<", tempreg, tempreg, 16);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
if (breg != 0)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "daddu",
|
|
|
|
|
"d,v,t", tempreg, tempreg, breg);
|
2001-10-10 02:43:36 +02:00
|
|
|
|
macro_build (p, &icnt, &offset_expr, s,
|
|
|
|
|
fmt, treg, (int) BFD_RELOC_LO16, tempreg);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
}
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (breg == 0)
|
|
|
|
|
{
|
2001-08-26 12:42:12 +02:00
|
|
|
|
if ((valueT) offset_expr.X_add_number > MAX_GPREL_OFFSET
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| nopic_need_relax (offset_expr.X_add_symbol, 1))
|
|
|
|
|
p = NULL;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
frag_grow (20);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
treg, (int) BFD_RELOC_GPREL16, GP);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
p = frag_var (rs_machine_dependent, 8, 0,
|
|
|
|
|
RELAX_ENCODE (4, 8, 0, 4, 0,
|
|
|
|
|
(mips_opts.warn_about_macros
|
|
|
|
|
|| (used_at
|
|
|
|
|
&& mips_opts.noat))),
|
2001-12-04 15:38:48 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
macro_build_lui (p, &icnt, &offset_expr, tempreg);
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, s, fmt, treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, tempreg);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2001-08-26 12:42:12 +02:00
|
|
|
|
if ((valueT) offset_expr.X_add_number > MAX_GPREL_OFFSET
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| nopic_need_relax (offset_expr.X_add_symbol, 1))
|
|
|
|
|
p = NULL;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
frag_grow (28);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, breg, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
treg, (int) BFD_RELOC_GPREL16, tempreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
p = frag_var (rs_machine_dependent, 12, 0,
|
|
|
|
|
RELAX_ENCODE (8, 12, 0, 8, 0, 0),
|
2001-12-04 15:38:48 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
macro_build_lui (p, &icnt, &offset_expr, tempreg);
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, tempreg, breg);
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, &offset_expr, s, fmt, treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, tempreg);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC && ! mips_big_got)
|
|
|
|
|
{
|
|
|
|
|
/* If this is a reference to an external symbol, we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
<op> $treg,0($tempreg)
|
|
|
|
|
Otherwise we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $tempreg,$tempreg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
<op> $treg,0($tempreg)
|
|
|
|
|
If there is a base register, we add it to $tempreg before
|
|
|
|
|
the <op>. If there is a constant, we stick it in the
|
|
|
|
|
<op> instruction. We don't handle constants larger than
|
|
|
|
|
16 bits, because we have no way to load the upper 16 bits
|
|
|
|
|
(actually, we could handle them for the subset of cases
|
|
|
|
|
in which we are not using $at). */
|
|
|
|
|
assert (offset_expr.X_op == O_symbol);
|
|
|
|
|
expr1.X_add_number = offset_expr.X_add_number;
|
|
|
|
|
offset_expr.X_add_number = 0;
|
|
|
|
|
if (expr1.X_add_number < -0x8000
|
|
|
|
|
|| expr1.X_add_number >= 0x8000)
|
|
|
|
|
as_bad (_("PIC code offset overflow (max 16 signed bits)"));
|
|
|
|
|
frag_grow (20);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", tempreg, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "");
|
2000-09-07 14:45:56 +02:00
|
|
|
|
p = frag_var (rs_machine_dependent, 4, 0,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
RELAX_ENCODE (0, 4, -8, 0, 0, 0),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build (p, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", tempreg, tempreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, tempreg, breg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s, fmt, treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, tempreg);
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
int gpdel;
|
|
|
|
|
|
|
|
|
|
/* If this is a reference to an external symbol, we want
|
|
|
|
|
lui $tempreg,<sym> (BFD_RELOC_MIPS_GOT_HI16)
|
|
|
|
|
addu $tempreg,$tempreg,$gp
|
|
|
|
|
lw $tempreg,<sym>($tempreg) (BFD_RELOC_MIPS_GOT_LO16)
|
|
|
|
|
<op> $treg,0($tempreg)
|
|
|
|
|
Otherwise we want
|
|
|
|
|
lw $tempreg,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
addiu $tempreg,$tempreg,<sym> (BFD_RELOC_LO16)
|
|
|
|
|
<op> $treg,0($tempreg)
|
|
|
|
|
If there is a base register, we add it to $tempreg before
|
|
|
|
|
the <op>. If there is a constant, we stick it in the
|
|
|
|
|
<op> instruction. We don't handle constants larger than
|
|
|
|
|
16 bits, because we have no way to load the upper 16 bits
|
|
|
|
|
(actually, we could handle them for the subset of cases
|
|
|
|
|
in which we are not using $at). */
|
|
|
|
|
assert (offset_expr.X_op == O_symbol);
|
|
|
|
|
expr1.X_add_number = offset_expr.X_add_number;
|
|
|
|
|
offset_expr.X_add_number = 0;
|
|
|
|
|
if (expr1.X_add_number < -0x8000
|
|
|
|
|
|| expr1.X_add_number >= 0x8000)
|
|
|
|
|
as_bad (_("PIC code offset overflow (max 16 signed bits)"));
|
|
|
|
|
if (reg_needs_delay (GP))
|
|
|
|
|
gpdel = 4;
|
|
|
|
|
else
|
|
|
|
|
gpdel = 0;
|
|
|
|
|
frag_grow (36);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
tempreg, (int) BFD_RELOC_MIPS_GOT_HI16);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, tempreg, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", tempreg, (int) BFD_RELOC_MIPS_GOT_LO16,
|
|
|
|
|
tempreg);
|
|
|
|
|
p = frag_var (rs_machine_dependent, 12 + gpdel, 0,
|
|
|
|
|
RELAX_ENCODE (12, 12 + gpdel, gpdel, 8 + gpdel, 0, 0),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (gpdel > 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
|
|
|
|
macro_build (p, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", tempreg, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", tempreg, tempreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, tempreg, breg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s, fmt, treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, tempreg);
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == EMBEDDED_PIC)
|
|
|
|
|
{
|
|
|
|
|
/* If there is no base register, we want
|
2001-12-02 14:14:48 +01:00
|
|
|
|
<op> $treg,<sym>($gp) (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
If there is a base register, we want
|
|
|
|
|
addu $tempreg,$breg,$gp
|
2001-12-02 14:14:48 +01:00
|
|
|
|
<op> $treg,<sym>($tempreg) (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
*/
|
|
|
|
|
assert (offset_expr.X_op == O_symbol);
|
|
|
|
|
if (breg == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
treg, (int) BFD_RELOC_GPREL16, GP);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", tempreg, breg, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
treg, (int) BFD_RELOC_GPREL16, tempreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
if (! used_at)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_LI:
|
|
|
|
|
case M_LI_S:
|
|
|
|
|
load_register (&icnt, treg, &imm_expr, 0);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_DLI:
|
|
|
|
|
load_register (&icnt, treg, &imm_expr, 1);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_LI_SS:
|
|
|
|
|
if (imm_expr.X_op == O_constant)
|
|
|
|
|
{
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"mtc1", "t,G", AT, treg);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
assert (offset_expr.X_op == O_symbol
|
|
|
|
|
&& strcmp (segment_name (S_GET_SEGMENT
|
|
|
|
|
(offset_expr.X_add_symbol)),
|
|
|
|
|
".lit4") == 0
|
|
|
|
|
&& offset_expr.X_add_number == 0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lwc1", "T,o(b)",
|
|
|
|
|
treg, (int) BFD_RELOC_MIPS_LITERAL, GP);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case M_LI_D:
|
2001-08-02 12:15:24 +02:00
|
|
|
|
/* Check if we have a constant in IMM_EXPR. If the GPRs are 64 bits
|
|
|
|
|
wide, IMM_EXPR is the entire value. Otherwise IMM_EXPR is the high
|
|
|
|
|
order 32 bits of the value and the low order 32 bits are either
|
|
|
|
|
zero or in OFFSET_EXPR. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (imm_expr.X_op == O_constant || imm_expr.X_op == O_big)
|
|
|
|
|
{
|
2001-08-02 12:15:24 +02:00
|
|
|
|
if (HAVE_64BIT_GPRS)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
load_register (&icnt, treg, &imm_expr, 1);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int hreg, lreg;
|
|
|
|
|
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
hreg = treg;
|
|
|
|
|
lreg = treg + 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
hreg = treg + 1;
|
|
|
|
|
lreg = treg;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (hreg <= 31)
|
|
|
|
|
load_register (&icnt, hreg, &imm_expr, 0);
|
|
|
|
|
if (lreg <= 31)
|
|
|
|
|
{
|
|
|
|
|
if (offset_expr.X_op == O_absent)
|
2001-08-10 18:24:32 +02:00
|
|
|
|
move_register (&icnt, lreg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
assert (offset_expr.X_op == O_constant);
|
|
|
|
|
load_register (&icnt, lreg, &offset_expr, 0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We know that sym is in the .rdata section. First we get the
|
|
|
|
|
upper 16 bits of the address. */
|
|
|
|
|
if (mips_pic == NO_PIC)
|
|
|
|
|
{
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build_lui (NULL, &icnt, &offset_expr, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", AT, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == EMBEDDED_PIC)
|
|
|
|
|
{
|
|
|
|
|
/* For embedded PIC we pick up the entire address off $gp in
|
|
|
|
|
a single instruction. */
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addiu" : "daddiu",
|
2001-12-02 14:14:48 +01:00
|
|
|
|
"t,r,j", AT, GP, (int) BFD_RELOC_GPREL16);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
offset_expr.X_op = O_constant;
|
|
|
|
|
offset_expr.X_add_number = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Now we load the register(s). */
|
2001-08-02 12:15:24 +02:00
|
|
|
|
if (HAVE_64BIT_GPRS)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "ld", "t,o(b)",
|
|
|
|
|
treg, (int) BFD_RELOC_LO16, AT);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lw", "t,o(b)",
|
|
|
|
|
treg, (int) BFD_RELOC_LO16, AT);
|
|
|
|
|
if (treg != 31)
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: How in the world do we deal with the possible
|
|
|
|
|
overflow here? */
|
|
|
|
|
offset_expr.X_add_number += 4;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lw", "t,o(b)",
|
|
|
|
|
treg + 1, (int) BFD_RELOC_LO16, AT);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* To avoid confusion in tc_gen_reloc, we must ensure that this
|
|
|
|
|
does not become a variant frag. */
|
|
|
|
|
frag_wane (frag_now);
|
|
|
|
|
frag_new (0);
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_LI_DD:
|
2001-08-02 12:15:24 +02:00
|
|
|
|
/* Check if we have a constant in IMM_EXPR. If the FPRs are 64 bits
|
|
|
|
|
wide, IMM_EXPR is the entire value and the GPRs are known to be 64
|
|
|
|
|
bits wide as well. Otherwise IMM_EXPR is the high order 32 bits of
|
|
|
|
|
the value and the low order 32 bits are either zero or in
|
|
|
|
|
OFFSET_EXPR. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (imm_expr.X_op == O_constant || imm_expr.X_op == O_big)
|
|
|
|
|
{
|
2001-08-02 12:15:24 +02:00
|
|
|
|
load_register (&icnt, AT, &imm_expr, HAVE_64BIT_FPRS);
|
|
|
|
|
if (HAVE_64BIT_FPRS)
|
|
|
|
|
{
|
|
|
|
|
assert (HAVE_64BIT_GPRS);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"dmtc1", "t,S", AT, treg);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"mtc1", "t,G", AT, treg + 1);
|
|
|
|
|
if (offset_expr.X_op == O_absent)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"mtc1", "t,G", 0, treg);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
assert (offset_expr.X_op == O_constant);
|
|
|
|
|
load_register (&icnt, AT, &offset_expr, 0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"mtc1", "t,G", AT, treg);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
assert (offset_expr.X_op == O_symbol
|
|
|
|
|
&& offset_expr.X_add_number == 0);
|
|
|
|
|
s = segment_name (S_GET_SEGMENT (offset_expr.X_add_symbol));
|
|
|
|
|
if (strcmp (s, ".lit8") == 0)
|
|
|
|
|
{
|
2000-12-01 22:35:38 +01:00
|
|
|
|
if (mips_opts.isa != ISA_MIPS1)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "ldc1",
|
|
|
|
|
"T,o(b)", treg, (int) BFD_RELOC_MIPS_LITERAL, GP);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
breg = GP;
|
|
|
|
|
r = BFD_RELOC_MIPS_LITERAL;
|
|
|
|
|
goto dob;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
assert (strcmp (s, RDATA_SECTION_NAME) == 0);
|
|
|
|
|
if (mips_pic == SVR4_PIC)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", AT, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: This won't work for a 64 bit address. */
|
2001-12-04 15:38:48 +01:00
|
|
|
|
macro_build_lui (NULL, &icnt, &offset_expr, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
if (mips_opts.isa != ISA_MIPS1)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "ldc1",
|
|
|
|
|
"T,o(b)", treg, (int) BFD_RELOC_LO16, AT);
|
|
|
|
|
|
|
|
|
|
/* To avoid confusion in tc_gen_reloc, we must ensure
|
|
|
|
|
that this does not become a variant frag. */
|
|
|
|
|
frag_wane (frag_now);
|
|
|
|
|
frag_new (0);
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
breg = AT;
|
|
|
|
|
r = BFD_RELOC_LO16;
|
|
|
|
|
goto dob;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case M_L_DOB:
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_arch == CPU_R4650)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("opcode not supported on this processor"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
/* Even on a big endian machine $fn comes before $fn+1. We have
|
|
|
|
|
to adjust when loading from memory. */
|
|
|
|
|
r = BFD_RELOC_LO16;
|
|
|
|
|
dob:
|
2000-12-01 22:35:38 +01:00
|
|
|
|
assert (mips_opts.isa == ISA_MIPS1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lwc1", "T,o(b)",
|
|
|
|
|
target_big_endian ? treg + 1 : treg,
|
|
|
|
|
(int) r, breg);
|
|
|
|
|
/* FIXME: A possible overflow which I don't know how to deal
|
|
|
|
|
with. */
|
|
|
|
|
offset_expr.X_add_number += 4;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lwc1", "T,o(b)",
|
|
|
|
|
target_big_endian ? treg : treg + 1,
|
|
|
|
|
(int) r, breg);
|
|
|
|
|
|
|
|
|
|
/* To avoid confusion in tc_gen_reloc, we must ensure that this
|
|
|
|
|
does not become a variant frag. */
|
|
|
|
|
frag_wane (frag_now);
|
|
|
|
|
frag_new (0);
|
|
|
|
|
|
|
|
|
|
if (breg != AT)
|
|
|
|
|
return;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_L_DAB:
|
|
|
|
|
/*
|
|
|
|
|
* The MIPS assembler seems to check for X_add_number not
|
|
|
|
|
* being double aligned and generating:
|
|
|
|
|
* lui at,%hi(foo+1)
|
|
|
|
|
* addu at,at,v1
|
|
|
|
|
* addiu at,at,%lo(foo+1)
|
|
|
|
|
* lwc1 f2,0(at)
|
|
|
|
|
* lwc1 f3,4(at)
|
|
|
|
|
* But, the resulting address is the same after relocation so why
|
|
|
|
|
* generate the extra instruction?
|
|
|
|
|
*/
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_arch == CPU_R4650)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("opcode not supported on this processor"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
2000-12-01 22:35:38 +01:00
|
|
|
|
if (mips_opts.isa != ISA_MIPS1)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
s = "ldc1";
|
|
|
|
|
goto ld;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
s = "lwc1";
|
|
|
|
|
fmt = "T,o(b)";
|
|
|
|
|
goto ldd_std;
|
|
|
|
|
|
|
|
|
|
case M_S_DAB:
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_arch == CPU_R4650)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("opcode not supported on this processor"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
if (mips_opts.isa != ISA_MIPS1)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
s = "sdc1";
|
|
|
|
|
goto st;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
s = "swc1";
|
|
|
|
|
fmt = "T,o(b)";
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
coproc = 1;
|
|
|
|
|
goto ldd_std;
|
|
|
|
|
|
|
|
|
|
case M_LD_AB:
|
2001-08-02 12:15:24 +02:00
|
|
|
|
if (HAVE_64BIT_GPRS)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
s = "ld";
|
|
|
|
|
goto ld;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
s = "lw";
|
|
|
|
|
fmt = "t,o(b)";
|
|
|
|
|
goto ldd_std;
|
|
|
|
|
|
|
|
|
|
case M_SD_AB:
|
2001-08-02 12:15:24 +02:00
|
|
|
|
if (HAVE_64BIT_GPRS)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
s = "sd";
|
|
|
|
|
goto st;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
s = "sw";
|
|
|
|
|
fmt = "t,o(b)";
|
|
|
|
|
|
|
|
|
|
ldd_std:
|
2001-11-01 02:33:47 +01:00
|
|
|
|
/* We do _not_ bother to allow embedded PIC (symbol-local_symbol)
|
|
|
|
|
loads for the case of doing a pair of loads to simulate an 'ld'.
|
|
|
|
|
This is not currently done by the compiler, and assembly coders
|
|
|
|
|
writing embedded-pic code can cope. */
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (offset_expr.X_op != O_symbol
|
|
|
|
|
&& offset_expr.X_op != O_constant)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("expression too complex"));
|
|
|
|
|
offset_expr.X_op = O_constant;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Even on a big endian machine $fn comes before $fn+1. We have
|
|
|
|
|
to adjust when loading from memory. We set coproc if we must
|
|
|
|
|
load $fn+1 first. */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
coproc = 0;
|
|
|
|
|
|
|
|
|
|
if (mips_pic == NO_PIC
|
|
|
|
|
|| offset_expr.X_op == O_constant)
|
|
|
|
|
{
|
|
|
|
|
/* If this is a reference to a GP relative symbol, we want
|
2001-12-02 14:14:48 +01:00
|
|
|
|
<op> $treg,<sym>($gp) (BFD_RELOC_GPREL16)
|
|
|
|
|
<op> $treg+1,<sym>+4($gp) (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
If we have a base register, we use this
|
|
|
|
|
addu $at,$breg,$gp
|
2001-12-02 14:14:48 +01:00
|
|
|
|
<op> $treg,<sym>($at) (BFD_RELOC_GPREL16)
|
|
|
|
|
<op> $treg+1,<sym>+4($at) (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
If this is not a GP relative symbol, we want
|
|
|
|
|
lui $at,<sym> (BFD_RELOC_HI16_S)
|
|
|
|
|
<op> $treg,<sym>($at) (BFD_RELOC_LO16)
|
|
|
|
|
<op> $treg+1,<sym>+4($at) (BFD_RELOC_LO16)
|
|
|
|
|
If there is a base register, we add it to $at after the
|
|
|
|
|
lui instruction. If there is a constant, we always use
|
|
|
|
|
the last case. */
|
2001-08-26 12:42:12 +02:00
|
|
|
|
if ((valueT) offset_expr.X_add_number > MAX_GPREL_OFFSET
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| nopic_need_relax (offset_expr.X_add_symbol, 1))
|
|
|
|
|
{
|
|
|
|
|
p = NULL;
|
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int off;
|
|
|
|
|
|
|
|
|
|
if (breg == 0)
|
|
|
|
|
{
|
|
|
|
|
frag_grow (28);
|
|
|
|
|
tempreg = GP;
|
|
|
|
|
off = 0;
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
frag_grow (36);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, breg, GP);
|
|
|
|
|
tempreg = AT;
|
|
|
|
|
off = 4;
|
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt,
|
|
|
|
|
coproc ? treg + 1 : treg,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
(int) BFD_RELOC_GPREL16, tempreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
offset_expr.X_add_number += 4;
|
|
|
|
|
|
|
|
|
|
/* Set mips_optimize to 2 to avoid inserting an
|
|
|
|
|
undesired nop. */
|
|
|
|
|
hold_mips_optimize = mips_optimize;
|
|
|
|
|
mips_optimize = 2;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt,
|
|
|
|
|
coproc ? treg : treg + 1,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
(int) BFD_RELOC_GPREL16, tempreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
mips_optimize = hold_mips_optimize;
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_machine_dependent, 12 + off, 0,
|
|
|
|
|
RELAX_ENCODE (8 + off, 12 + off, 0, 4 + off, 1,
|
|
|
|
|
used_at && mips_opts.noat),
|
2001-12-04 15:38:48 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* We just generated two relocs. When tc_gen_reloc
|
|
|
|
|
handles this case, it will skip the first reloc and
|
|
|
|
|
handle the second. The second reloc already has an
|
|
|
|
|
extra addend of 4, which we added above. We must
|
|
|
|
|
subtract it out, and then subtract another 4 to make
|
|
|
|
|
the first reloc come out right. The second reloc
|
|
|
|
|
will come out right because we are going to add 4 to
|
|
|
|
|
offset_expr when we build its instruction below.
|
|
|
|
|
|
|
|
|
|
If we have a symbol, then we don't want to include
|
|
|
|
|
the offset, because it will wind up being included
|
|
|
|
|
when we generate the reloc. */
|
|
|
|
|
|
|
|
|
|
if (offset_expr.X_op == O_constant)
|
|
|
|
|
offset_expr.X_add_number -= 8;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
offset_expr.X_add_number = -4;
|
|
|
|
|
offset_expr.X_op = O_constant;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
macro_build_lui (p, &icnt, &offset_expr, AT);
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
p += 4;
|
|
|
|
|
if (breg != 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, breg, AT);
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build (p, &icnt, &offset_expr, s, fmt,
|
|
|
|
|
coproc ? treg + 1 : treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
p += 4;
|
|
|
|
|
/* FIXME: How do we handle overflow here? */
|
|
|
|
|
offset_expr.X_add_number += 4;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build (p, &icnt, &offset_expr, s, fmt,
|
|
|
|
|
coproc ? treg : treg + 1,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
2000-09-07 14:45:56 +02:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (mips_pic == SVR4_PIC && ! mips_big_got)
|
|
|
|
|
{
|
|
|
|
|
int off;
|
|
|
|
|
|
|
|
|
|
/* If this is a reference to an external symbol, we want
|
|
|
|
|
lw $at,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
<op> $treg,0($at)
|
|
|
|
|
<op> $treg+1,4($at)
|
|
|
|
|
Otherwise we want
|
|
|
|
|
lw $at,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
<op> $treg,<sym>($at) (BFD_RELOC_LO16)
|
|
|
|
|
<op> $treg+1,<sym>+4($at) (BFD_RELOC_LO16)
|
|
|
|
|
If there is a base register we add it to $at before the
|
|
|
|
|
lwc1 instructions. If there is a constant we include it
|
|
|
|
|
in the lwc1 instructions. */
|
|
|
|
|
used_at = 1;
|
|
|
|
|
expr1.X_add_number = offset_expr.X_add_number;
|
|
|
|
|
offset_expr.X_add_number = 0;
|
|
|
|
|
if (expr1.X_add_number < -0x8000
|
|
|
|
|
|| expr1.X_add_number >= 0x8000 - 4)
|
|
|
|
|
as_bad (_("PIC code offset overflow (max 16 signed bits)"));
|
|
|
|
|
if (breg == 0)
|
|
|
|
|
off = 0;
|
|
|
|
|
else
|
|
|
|
|
off = 4;
|
|
|
|
|
frag_grow (24 + off);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", AT, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, breg, AT);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s, fmt,
|
|
|
|
|
coproc ? treg + 1 : treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
expr1.X_add_number += 4;
|
|
|
|
|
|
|
|
|
|
/* Set mips_optimize to 2 to avoid inserting an undesired
|
|
|
|
|
nop. */
|
|
|
|
|
hold_mips_optimize = mips_optimize;
|
|
|
|
|
mips_optimize = 2;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s, fmt,
|
|
|
|
|
coproc ? treg : treg + 1,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
mips_optimize = hold_mips_optimize;
|
|
|
|
|
|
|
|
|
|
(void) frag_var (rs_machine_dependent, 0, 0,
|
|
|
|
|
RELAX_ENCODE (0, 0, -16 - off, -8, 1, 0),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
int gpdel, off;
|
|
|
|
|
|
|
|
|
|
/* If this is a reference to an external symbol, we want
|
|
|
|
|
lui $at,<sym> (BFD_RELOC_MIPS_GOT_HI16)
|
|
|
|
|
addu $at,$at,$gp
|
|
|
|
|
lw $at,<sym>($at) (BFD_RELOC_MIPS_GOT_LO16)
|
|
|
|
|
nop
|
|
|
|
|
<op> $treg,0($at)
|
|
|
|
|
<op> $treg+1,4($at)
|
|
|
|
|
Otherwise we want
|
|
|
|
|
lw $at,<sym>($gp) (BFD_RELOC_MIPS_GOT16)
|
|
|
|
|
nop
|
|
|
|
|
<op> $treg,<sym>($at) (BFD_RELOC_LO16)
|
|
|
|
|
<op> $treg+1,<sym>+4($at) (BFD_RELOC_LO16)
|
|
|
|
|
If there is a base register we add it to $at before the
|
|
|
|
|
lwc1 instructions. If there is a constant we include it
|
|
|
|
|
in the lwc1 instructions. */
|
|
|
|
|
used_at = 1;
|
|
|
|
|
expr1.X_add_number = offset_expr.X_add_number;
|
|
|
|
|
offset_expr.X_add_number = 0;
|
|
|
|
|
if (expr1.X_add_number < -0x8000
|
|
|
|
|
|| expr1.X_add_number >= 0x8000 - 4)
|
|
|
|
|
as_bad (_("PIC code offset overflow (max 16 signed bits)"));
|
|
|
|
|
if (reg_needs_delay (GP))
|
|
|
|
|
gpdel = 4;
|
|
|
|
|
else
|
|
|
|
|
gpdel = 0;
|
|
|
|
|
if (breg == 0)
|
|
|
|
|
off = 0;
|
|
|
|
|
else
|
|
|
|
|
off = 4;
|
|
|
|
|
frag_grow (56);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lui", "t,u",
|
|
|
|
|
AT, (int) BFD_RELOC_MIPS_GOT_HI16);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, AT, GP);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", AT, (int) BFD_RELOC_MIPS_GOT_LO16, AT);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, breg, AT);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s, fmt,
|
|
|
|
|
coproc ? treg + 1 : treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
expr1.X_add_number += 4;
|
|
|
|
|
|
|
|
|
|
/* Set mips_optimize to 2 to avoid inserting an undesired
|
|
|
|
|
nop. */
|
|
|
|
|
hold_mips_optimize = mips_optimize;
|
|
|
|
|
mips_optimize = 2;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s, fmt,
|
|
|
|
|
coproc ? treg : treg + 1,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
mips_optimize = hold_mips_optimize;
|
|
|
|
|
expr1.X_add_number -= 4;
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_machine_dependent, 16 + gpdel + off, 0,
|
|
|
|
|
RELAX_ENCODE (24 + off, 16 + gpdel + off, gpdel,
|
|
|
|
|
8 + gpdel + off, 1, 0),
|
2001-11-12 23:19:30 +01:00
|
|
|
|
offset_expr.X_add_symbol, 0, NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (gpdel > 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
|
|
|
|
macro_build (p, &icnt, &offset_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "lw" : "ld",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", AT, (int) BFD_RELOC_MIPS_GOT16, GP);
|
|
|
|
|
p += 4;
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
p += 4;
|
|
|
|
|
if (breg != 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build (p, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, breg, AT);
|
|
|
|
|
p += 4;
|
|
|
|
|
}
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build (p, &icnt, &expr1, s, fmt,
|
|
|
|
|
coproc ? treg + 1 : treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
p += 4;
|
|
|
|
|
expr1.X_add_number += 4;
|
|
|
|
|
|
|
|
|
|
/* Set mips_optimize to 2 to avoid inserting an undesired
|
|
|
|
|
nop. */
|
|
|
|
|
hold_mips_optimize = mips_optimize;
|
|
|
|
|
mips_optimize = 2;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build (p, &icnt, &expr1, s, fmt,
|
|
|
|
|
coproc ? treg : treg + 1,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
mips_optimize = hold_mips_optimize;
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == EMBEDDED_PIC)
|
|
|
|
|
{
|
|
|
|
|
/* If there is no base register, we use
|
2001-12-02 14:14:48 +01:00
|
|
|
|
<op> $treg,<sym>($gp) (BFD_RELOC_GPREL16)
|
|
|
|
|
<op> $treg+1,<sym>+4($gp) (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
If we have a base register, we use
|
|
|
|
|
addu $at,$breg,$gp
|
2001-12-02 14:14:48 +01:00
|
|
|
|
<op> $treg,<sym>($at) (BFD_RELOC_GPREL16)
|
|
|
|
|
<op> $treg+1,<sym>+4($at) (BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
*/
|
|
|
|
|
if (breg == 0)
|
|
|
|
|
{
|
|
|
|
|
tempreg = GP;
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, breg, GP);
|
|
|
|
|
tempreg = AT;
|
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt,
|
|
|
|
|
coproc ? treg + 1 : treg,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
(int) BFD_RELOC_GPREL16, tempreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
offset_expr.X_add_number += 4;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Itbl support may require additional care here. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, fmt,
|
|
|
|
|
coproc ? treg : treg + 1,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
(int) BFD_RELOC_GPREL16, tempreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
if (! used_at)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_LD_OB:
|
|
|
|
|
s = "lw";
|
|
|
|
|
goto sd_ob;
|
|
|
|
|
case M_SD_OB:
|
|
|
|
|
s = "sw";
|
|
|
|
|
sd_ob:
|
2001-08-02 12:15:24 +02:00
|
|
|
|
assert (HAVE_32BIT_ADDRESSES);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
offset_expr.X_add_number += 4;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, "t,o(b)", treg + 1,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/* New code added to support COPZ instructions.
|
|
|
|
|
This code builds table entries out of the macros in mip_opcodes.
|
|
|
|
|
R4000 uses interlocks to handle coproc delays.
|
|
|
|
|
Other chips (like the R3000) require nops to be inserted for delays.
|
|
|
|
|
|
2001-08-11 17:15:15 +02:00
|
|
|
|
FIXME: Currently, we require that the user handle delays.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
In order to fill delay slots for non-interlocked chips,
|
|
|
|
|
we must have a way to specify delays based on the coprocessor.
|
|
|
|
|
Eg. 4 cycles if load coproc reg from memory, 1 if in cache, etc.
|
|
|
|
|
What are the side-effects of the cop instruction?
|
|
|
|
|
What cache support might we have and what are its effects?
|
|
|
|
|
Both coprocessor & memory require delays. how long???
|
2000-09-07 14:45:56 +02:00
|
|
|
|
What registers are read/set/modified?
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
If an itbl is provided to interpret cop instructions,
|
2000-09-07 14:45:56 +02:00
|
|
|
|
this knowledge can be encoded in the itbl spec. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case M_COP0:
|
|
|
|
|
s = "c0";
|
|
|
|
|
goto copz;
|
|
|
|
|
case M_COP1:
|
|
|
|
|
s = "c1";
|
|
|
|
|
goto copz;
|
|
|
|
|
case M_COP2:
|
|
|
|
|
s = "c2";
|
|
|
|
|
goto copz;
|
|
|
|
|
case M_COP3:
|
|
|
|
|
s = "c3";
|
|
|
|
|
copz:
|
|
|
|
|
/* For now we just do C (same as Cz). The parameter will be
|
|
|
|
|
stored in insn_opcode by mips_ip. */
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "C",
|
|
|
|
|
ip->insn_opcode);
|
|
|
|
|
return;
|
|
|
|
|
|
2001-08-10 18:24:32 +02:00
|
|
|
|
case M_MOVE:
|
|
|
|
|
move_register (&icnt, dreg, sreg);
|
|
|
|
|
return;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#ifdef LOSING_COMPILER
|
|
|
|
|
default:
|
|
|
|
|
/* Try and see if this is a new itbl instruction.
|
|
|
|
|
This code builds table entries out of the macros in mip_opcodes.
|
|
|
|
|
FIXME: For now we just assemble the expression and pass it's
|
|
|
|
|
value along as a 32-bit immediate.
|
2000-09-07 14:45:56 +02:00
|
|
|
|
We may want to have the assembler assemble this value,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
so that we gain the assembler's knowledge of delay slots,
|
|
|
|
|
symbols, etc.
|
|
|
|
|
Would it be more efficient to use mask (id) here? */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
if (itbl_have_entries
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (immed_expr = itbl_assemble (ip->insn_mo->name, "")))
|
2000-12-05 19:51:08 +01:00
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = ip->insn_mo->name;
|
|
|
|
|
s2 = "cop3";
|
|
|
|
|
coproc = ITBL_DECODE_PNUM (immed_expr);;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &immed_expr, s, "C");
|
|
|
|
|
return;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro2 (ip);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (mips_opts.noat)
|
|
|
|
|
as_warn (_("Macro used $at after \".set noat\""));
|
|
|
|
|
}
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void
|
|
|
|
|
macro2 (ip)
|
|
|
|
|
struct mips_cl_insn *ip;
|
|
|
|
|
{
|
|
|
|
|
register int treg, sreg, dreg, breg;
|
|
|
|
|
int tempreg;
|
|
|
|
|
int mask;
|
|
|
|
|
int icnt = 0;
|
|
|
|
|
int used_at;
|
|
|
|
|
expressionS expr1;
|
|
|
|
|
const char *s;
|
|
|
|
|
const char *s2;
|
|
|
|
|
const char *fmt;
|
|
|
|
|
int likely = 0;
|
|
|
|
|
int dbl = 0;
|
|
|
|
|
int coproc = 0;
|
|
|
|
|
int lr = 0;
|
|
|
|
|
int imm = 0;
|
|
|
|
|
int off;
|
|
|
|
|
offsetT maxnum;
|
|
|
|
|
bfd_reloc_code_real_type r;
|
|
|
|
|
char *p;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
treg = (ip->insn_opcode >> 16) & 0x1f;
|
|
|
|
|
dreg = (ip->insn_opcode >> 11) & 0x1f;
|
|
|
|
|
sreg = breg = (ip->insn_opcode >> 21) & 0x1f;
|
|
|
|
|
mask = ip->insn_mo->mask;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expr1.X_op = O_constant;
|
|
|
|
|
expr1.X_op_symbol = NULL;
|
|
|
|
|
expr1.X_add_symbol = NULL;
|
|
|
|
|
expr1.X_add_number = 1;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
switch (mask)
|
|
|
|
|
{
|
|
|
|
|
#endif /* LOSING_COMPILER */
|
|
|
|
|
|
|
|
|
|
case M_DMUL:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_MUL:
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
dbl ? "dmultu" : "multu", "s,t", sreg, treg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "mflo", "d",
|
|
|
|
|
dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_DMUL_I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_MUL_I:
|
|
|
|
|
/* The MIPS assembler some times generates shifts and adds. I'm
|
|
|
|
|
not trying to be that fancy. GCC should do this for us
|
|
|
|
|
anyway. */
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, dbl);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "dmult" : "mult", "s,t", sreg, AT);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "mflo", "d",
|
|
|
|
|
dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DMULO_I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_MULO_I:
|
|
|
|
|
imm = 1;
|
|
|
|
|
goto do_mulo;
|
|
|
|
|
|
|
|
|
|
case M_DMULO:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_MULO:
|
|
|
|
|
do_mulo:
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
++mips_opts.noreorder;
|
|
|
|
|
mips_any_noreorder = 1;
|
|
|
|
|
if (imm)
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, dbl);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "dmult" : "mult", "s,t", sreg, imm ? AT : treg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "mflo", "d",
|
|
|
|
|
dreg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "dsra32" : "sra", "d,w,<", dreg, dreg, 31);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "mfhi", "d",
|
|
|
|
|
AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (mips_trap)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "tne", "s,t",
|
|
|
|
|
dreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr1.X_add_number = 8;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "beq", "s,t,p", dreg,
|
|
|
|
|
AT);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "",
|
|
|
|
|
0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break",
|
|
|
|
|
"c", 6);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
--mips_opts.noreorder;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "mflo", "d", dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DMULOU_I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_MULOU_I:
|
|
|
|
|
imm = 1;
|
|
|
|
|
goto do_mulou;
|
|
|
|
|
|
|
|
|
|
case M_DMULOU:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_MULOU:
|
|
|
|
|
do_mulou:
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
++mips_opts.noreorder;
|
|
|
|
|
mips_any_noreorder = 1;
|
|
|
|
|
if (imm)
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, dbl);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
dbl ? "dmultu" : "multu",
|
|
|
|
|
"s,t", sreg, imm ? AT : treg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "mfhi", "d",
|
|
|
|
|
AT);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "mflo", "d",
|
|
|
|
|
dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (mips_trap)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "tne", "s,t",
|
|
|
|
|
AT, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr1.X_add_number = 8;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "beq", "s,t,p", AT, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "",
|
|
|
|
|
0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break",
|
|
|
|
|
"c", 6);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
--mips_opts.noreorder;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_ROL:
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "subu",
|
|
|
|
|
"d,v,t", AT, 0, treg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "srlv",
|
|
|
|
|
"d,t,s", AT, sreg, AT);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sllv",
|
|
|
|
|
"d,t,s", dreg, sreg, treg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "or",
|
|
|
|
|
"d,v,t", dreg, dreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_ROL_I:
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("rotate count too large"));
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sll", "d,w,<",
|
|
|
|
|
AT, sreg, (int) (imm_expr.X_add_number & 0x1f));
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "srl", "d,w,<",
|
|
|
|
|
dreg, sreg, (int) ((0 - imm_expr.X_add_number) & 0x1f));
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "or", "d,v,t",
|
|
|
|
|
dreg, dreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_ROR:
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "subu",
|
|
|
|
|
"d,v,t", AT, 0, treg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sllv",
|
|
|
|
|
"d,t,s", AT, sreg, AT);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "srlv",
|
|
|
|
|
"d,t,s", dreg, sreg, treg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "or",
|
|
|
|
|
"d,v,t", dreg, dreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_ROR_I:
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("rotate count too large"));
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "srl", "d,w,<",
|
|
|
|
|
AT, sreg, (int) (imm_expr.X_add_number & 0x1f));
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sll", "d,w,<",
|
|
|
|
|
dreg, sreg, (int) ((0 - imm_expr.X_add_number) & 0x1f));
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "or", "d,v,t",
|
|
|
|
|
dreg, dreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_S_DOB:
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_arch == CPU_R4650)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_bad (_("opcode not supported on this processor"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
2000-12-01 22:35:38 +01:00
|
|
|
|
assert (mips_opts.isa == ISA_MIPS1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Even on a big endian machine $fn comes before $fn+1. We have
|
|
|
|
|
to adjust when storing to memory. */
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "swc1", "T,o(b)",
|
|
|
|
|
target_big_endian ? treg + 1 : treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
offset_expr.X_add_number += 4;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "swc1", "T,o(b)",
|
|
|
|
|
target_big_endian ? treg : treg + 1,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_SEQ:
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "sltiu", "t,r,j", dreg,
|
|
|
|
|
treg, (int) BFD_RELOC_LO16);
|
|
|
|
|
else if (treg == 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "sltiu", "t,r,j", dreg,
|
|
|
|
|
sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
else
|
|
|
|
|
{
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "xor",
|
|
|
|
|
"d,v,t", dreg, sreg, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "sltiu", "t,r,j", dreg,
|
|
|
|
|
dreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_SEQ_I:
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 0)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "sltiu", "t,r,j", dreg,
|
|
|
|
|
sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Instruction %s: result is always false"),
|
|
|
|
|
ip->insn_mo->name);
|
2001-08-10 18:24:32 +02:00
|
|
|
|
move_register (&icnt, dreg, 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= 0
|
|
|
|
|
&& imm_expr.X_add_number < 0x10000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, "xori", "t,r,i", dreg,
|
|
|
|
|
sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number > -0x8000
|
|
|
|
|
&& imm_expr.X_add_number < 0)
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_add_number = -imm_expr.X_add_number;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_GPRS ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", dreg, sreg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "xor",
|
|
|
|
|
"d,v,t", dreg, sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "sltiu", "t,r,j", dreg, dreg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
if (used_at)
|
|
|
|
|
break;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_SGE: /* sreg >= treg <==> not (sreg < treg) */
|
|
|
|
|
s = "slt";
|
|
|
|
|
goto sge;
|
|
|
|
|
case M_SGEU:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
sge:
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "d,v,t",
|
|
|
|
|
dreg, sreg, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "xori", "t,r,i", dreg, dreg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_SGE_I: /* sreg >= I <==> not (sreg < I) */
|
|
|
|
|
case M_SGEU_I:
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= -0x8000
|
|
|
|
|
&& imm_expr.X_add_number < 0x8000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr,
|
|
|
|
|
mask == M_SGE_I ? "slti" : "sltiu",
|
|
|
|
|
"t,r,j", dreg, sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
mask == M_SGE_I ? "slt" : "sltu", "d,v,t", dreg, sreg,
|
|
|
|
|
AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "xori", "t,r,i", dreg, dreg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
if (used_at)
|
|
|
|
|
break;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_SGT: /* sreg > treg <==> treg < sreg */
|
|
|
|
|
s = "slt";
|
|
|
|
|
goto sgt;
|
|
|
|
|
case M_SGTU:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
sgt:
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "d,v,t",
|
|
|
|
|
dreg, treg, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_SGT_I: /* sreg > I <==> I < sreg */
|
|
|
|
|
s = "slt";
|
|
|
|
|
goto sgti;
|
|
|
|
|
case M_SGTU_I:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
sgti:
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "d,v,t",
|
|
|
|
|
dreg, AT, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
2001-11-12 23:20:44 +01:00
|
|
|
|
case M_SLE: /* sreg <= treg <==> treg >= sreg <==> not (treg < sreg) */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = "slt";
|
|
|
|
|
goto sle;
|
|
|
|
|
case M_SLEU:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
sle:
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "d,v,t",
|
|
|
|
|
dreg, treg, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "xori", "t,r,i", dreg, dreg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
|
2001-11-12 23:20:44 +01:00
|
|
|
|
case M_SLE_I: /* sreg <= I <==> I >= sreg <==> not (I < sreg) */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = "slt";
|
|
|
|
|
goto slei;
|
|
|
|
|
case M_SLEU_I:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
slei:
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "d,v,t",
|
|
|
|
|
dreg, AT, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "xori", "t,r,i", dreg, dreg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_SLT_I:
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= -0x8000
|
|
|
|
|
&& imm_expr.X_add_number < 0x8000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, "slti", "t,r,j",
|
|
|
|
|
dreg, sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "slt", "d,v,t",
|
|
|
|
|
dreg, sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_SLTU_I:
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= -0x8000
|
|
|
|
|
&& imm_expr.X_add_number < 0x8000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, "sltiu", "t,r,j",
|
|
|
|
|
dreg, sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", dreg, sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_SNE:
|
|
|
|
|
if (sreg == 0)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", dreg, 0, treg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (treg == 0)
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", dreg, 0, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "xor",
|
|
|
|
|
"d,v,t", dreg, sreg, treg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", dreg, 0, dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_SNE_I:
|
|
|
|
|
if (imm_expr.X_op == O_constant && imm_expr.X_add_number == 0)
|
|
|
|
|
{
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", dreg, 0, sreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (sreg == 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Instruction %s: result is always true"),
|
|
|
|
|
ip->insn_mo->name);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_GPRS ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", dreg, 0, (int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number >= 0
|
|
|
|
|
&& imm_expr.X_add_number < 0x10000)
|
|
|
|
|
{
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, "xori", "t,r,i",
|
|
|
|
|
dreg, sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number > -0x8000
|
|
|
|
|
&& imm_expr.X_add_number < 0)
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_add_number = -imm_expr.X_add_number;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_GPRS ? "addiu" : "daddiu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,r,j", dreg, sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
used_at = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "xor",
|
|
|
|
|
"d,v,t", dreg, sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
used_at = 1;
|
|
|
|
|
}
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sltu",
|
|
|
|
|
"d,v,t", dreg, 0, dreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (used_at)
|
|
|
|
|
break;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_DSUB_I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_SUB_I:
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number > -0x8000
|
|
|
|
|
&& imm_expr.X_add_number <= 0x8000)
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_add_number = -imm_expr.X_add_number;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr,
|
|
|
|
|
dbl ? "daddi" : "addi",
|
|
|
|
|
"t,r,j", dreg, sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, dbl);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "dsub" : "sub", "d,v,t", dreg, sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DSUBU_I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_SUBU_I:
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& imm_expr.X_add_number > -0x8000
|
|
|
|
|
&& imm_expr.X_add_number <= 0x8000)
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_add_number = -imm_expr.X_add_number;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr,
|
|
|
|
|
dbl ? "daddiu" : "addiu",
|
|
|
|
|
"t,r,j", dreg, sreg, (int) BFD_RELOC_LO16);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, dbl);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "dsubu" : "subu", "d,v,t", dreg, sreg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_TEQ_I:
|
|
|
|
|
s = "teq";
|
|
|
|
|
goto trap;
|
|
|
|
|
case M_TGE_I:
|
|
|
|
|
s = "tge";
|
|
|
|
|
goto trap;
|
|
|
|
|
case M_TGEU_I:
|
|
|
|
|
s = "tgeu";
|
|
|
|
|
goto trap;
|
|
|
|
|
case M_TLT_I:
|
|
|
|
|
s = "tlt";
|
|
|
|
|
goto trap;
|
|
|
|
|
case M_TLTU_I:
|
|
|
|
|
s = "tltu";
|
|
|
|
|
goto trap;
|
|
|
|
|
case M_TNE_I:
|
|
|
|
|
s = "tne";
|
|
|
|
|
trap:
|
|
|
|
|
load_register (&icnt, AT, &imm_expr, 0);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "s,t", sreg,
|
|
|
|
|
AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_TRUNCWS:
|
2000-05-30 00:05:27 +02:00
|
|
|
|
case M_TRUNCWD:
|
2000-12-01 22:35:38 +01:00
|
|
|
|
assert (mips_opts.isa == ISA_MIPS1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
sreg = (ip->insn_opcode >> 11) & 0x1f; /* floating reg */
|
|
|
|
|
dreg = (ip->insn_opcode >> 06) & 0x1f; /* floating reg */
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Is the double cfc1 instruction a bug in the mips assembler;
|
|
|
|
|
* or is there a reason for it?
|
|
|
|
|
*/
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
++mips_opts.noreorder;
|
|
|
|
|
mips_any_noreorder = 1;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "cfc1", "t,G",
|
|
|
|
|
treg, 31);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "cfc1", "t,G",
|
|
|
|
|
treg, 31);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expr1.X_add_number = 3;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "ori", "t,r,i", AT, treg,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
expr1.X_add_number = 2;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "xori", "t,r,i", AT, AT,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "ctc1", "t,G",
|
|
|
|
|
AT, 31);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "");
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
mask == M_TRUNCWD ? "cvt.w.d" : "cvt.w.s", "D,S", dreg, sreg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "ctc1", "t,G",
|
|
|
|
|
treg, 31);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "nop", "");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
--mips_opts.noreorder;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_ULH:
|
|
|
|
|
s = "lb";
|
|
|
|
|
goto ulh;
|
|
|
|
|
case M_ULHU:
|
|
|
|
|
s = "lbu";
|
|
|
|
|
ulh:
|
|
|
|
|
if (offset_expr.X_add_number >= 0x7fff)
|
|
|
|
|
as_bad (_("operand overflow"));
|
|
|
|
|
/* avoid load delay */
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
offset_expr.X_add_number += 1;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
offset_expr.X_add_number -= 1;
|
|
|
|
|
else
|
|
|
|
|
offset_expr.X_add_number += 1;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "lbu", "t,o(b)", AT,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sll", "d,w,<",
|
|
|
|
|
treg, treg, 8);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "or", "d,v,t",
|
|
|
|
|
treg, treg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_ULD:
|
|
|
|
|
s = "ldl";
|
|
|
|
|
s2 = "ldr";
|
|
|
|
|
off = 7;
|
|
|
|
|
goto ulw;
|
|
|
|
|
case M_ULW:
|
|
|
|
|
s = "lwl";
|
|
|
|
|
s2 = "lwr";
|
|
|
|
|
off = 3;
|
|
|
|
|
ulw:
|
|
|
|
|
if (offset_expr.X_add_number >= 0x8000 - off)
|
|
|
|
|
as_bad (_("operand overflow"));
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
offset_expr.X_add_number += off;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
offset_expr.X_add_number -= off;
|
|
|
|
|
else
|
|
|
|
|
offset_expr.X_add_number += off;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s2, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_ULD_A:
|
|
|
|
|
s = "ldl";
|
|
|
|
|
s2 = "ldr";
|
|
|
|
|
off = 7;
|
|
|
|
|
goto ulwa;
|
|
|
|
|
case M_ULW_A:
|
|
|
|
|
s = "lwl";
|
|
|
|
|
s2 = "lwr";
|
|
|
|
|
off = 3;
|
|
|
|
|
ulwa:
|
2001-10-10 02:43:36 +02:00
|
|
|
|
used_at = 1;
|
|
|
|
|
load_address (&icnt, AT, &offset_expr, HAVE_64BIT_ADDRESSES, &used_at);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, AT, breg);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
expr1.X_add_number = off;
|
|
|
|
|
else
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
else
|
|
|
|
|
expr1.X_add_number = off;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s2, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_ULH_A:
|
|
|
|
|
case M_ULHU_A:
|
2001-10-10 02:43:36 +02:00
|
|
|
|
used_at = 1;
|
|
|
|
|
load_address (&icnt, AT, &offset_expr, HAVE_64BIT_ADDRESSES, &used_at);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, AT, breg);
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1,
|
|
|
|
|
mask == M_ULH_A ? "lb" : "lbu", "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
expr1.X_add_number = 1;
|
|
|
|
|
else
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "lbu", "t,o(b)", AT,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sll", "d,w,<",
|
|
|
|
|
treg, treg, 8);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "or", "d,v,t",
|
|
|
|
|
treg, treg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_USH:
|
|
|
|
|
if (offset_expr.X_add_number >= 0x7fff)
|
|
|
|
|
as_bad (_("operand overflow"));
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
offset_expr.X_add_number += 1;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "sb", "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "srl", "d,w,<",
|
|
|
|
|
AT, treg, 8);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (target_big_endian)
|
|
|
|
|
offset_expr.X_add_number -= 1;
|
|
|
|
|
else
|
|
|
|
|
offset_expr.X_add_number += 1;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, "sb", "t,o(b)", AT,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_USD:
|
|
|
|
|
s = "sdl";
|
|
|
|
|
s2 = "sdr";
|
|
|
|
|
off = 7;
|
|
|
|
|
goto usw;
|
|
|
|
|
case M_USW:
|
|
|
|
|
s = "swl";
|
|
|
|
|
s2 = "swr";
|
|
|
|
|
off = 3;
|
|
|
|
|
usw:
|
|
|
|
|
if (offset_expr.X_add_number >= 0x8000 - off)
|
|
|
|
|
as_bad (_("operand overflow"));
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
offset_expr.X_add_number += off;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
offset_expr.X_add_number -= off;
|
|
|
|
|
else
|
|
|
|
|
offset_expr.X_add_number += off;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s2, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, breg);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_USD_A:
|
|
|
|
|
s = "sdl";
|
|
|
|
|
s2 = "sdr";
|
|
|
|
|
off = 7;
|
|
|
|
|
goto uswa;
|
|
|
|
|
case M_USW_A:
|
|
|
|
|
s = "swl";
|
|
|
|
|
s2 = "swr";
|
|
|
|
|
off = 3;
|
|
|
|
|
uswa:
|
2001-10-10 02:43:36 +02:00
|
|
|
|
used_at = 1;
|
|
|
|
|
load_address (&icnt, AT, &offset_expr, HAVE_64BIT_ADDRESSES, &used_at);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, AT, breg);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
expr1.X_add_number = off;
|
|
|
|
|
else
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
else
|
|
|
|
|
expr1.X_add_number = off;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, s2, "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_USH_A:
|
2001-10-10 02:43:36 +02:00
|
|
|
|
used_at = 1;
|
|
|
|
|
load_address (&icnt, AT, &offset_expr, HAVE_64BIT_ADDRESSES, &used_at);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (breg != 0)
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", AT, AT, breg);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "sb", "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "srl", "d,w,<",
|
|
|
|
|
treg, treg, 8);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
expr1.X_add_number = 1;
|
|
|
|
|
else
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "sb", "t,o(b)", treg,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
else
|
|
|
|
|
expr1.X_add_number = 1;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "lbu", "t,o(b)", AT,
|
|
|
|
|
(int) BFD_RELOC_LO16, AT);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "sll", "d,w,<",
|
|
|
|
|
treg, treg, 8);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "or", "d,v,t",
|
|
|
|
|
treg, treg, AT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
/* FIXME: Check if this is one of the itbl macros, since they
|
2000-09-07 14:45:56 +02:00
|
|
|
|
are added dynamically. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad (_("Macro %s not implemented yet"), ip->insn_mo->name);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
if (mips_opts.noat)
|
|
|
|
|
as_warn (_("Macro used $at after \".set noat\""));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Implement macros in mips16 mode. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips16_macro (ip)
|
|
|
|
|
struct mips_cl_insn *ip;
|
|
|
|
|
{
|
|
|
|
|
int mask;
|
|
|
|
|
int xreg, yreg, zreg, tmp;
|
|
|
|
|
int icnt;
|
|
|
|
|
expressionS expr1;
|
|
|
|
|
int dbl;
|
|
|
|
|
const char *s, *s2, *s3;
|
|
|
|
|
|
|
|
|
|
mask = ip->insn_mo->mask;
|
|
|
|
|
|
|
|
|
|
xreg = (ip->insn_opcode >> MIPS16OP_SH_RX) & MIPS16OP_MASK_RX;
|
|
|
|
|
yreg = (ip->insn_opcode >> MIPS16OP_SH_RY) & MIPS16OP_MASK_RY;
|
|
|
|
|
zreg = (ip->insn_opcode >> MIPS16OP_SH_RZ) & MIPS16OP_MASK_RZ;
|
|
|
|
|
|
|
|
|
|
icnt = 0;
|
|
|
|
|
|
|
|
|
|
expr1.X_op = O_constant;
|
|
|
|
|
expr1.X_op_symbol = NULL;
|
|
|
|
|
expr1.X_add_symbol = NULL;
|
|
|
|
|
expr1.X_add_number = 1;
|
|
|
|
|
|
|
|
|
|
dbl = 0;
|
|
|
|
|
|
|
|
|
|
switch (mask)
|
|
|
|
|
{
|
|
|
|
|
default:
|
|
|
|
|
internalError ();
|
|
|
|
|
|
|
|
|
|
case M_DDIV_3:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_DIV_3:
|
|
|
|
|
s = "mflo";
|
|
|
|
|
goto do_div3;
|
|
|
|
|
case M_DREM_3:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_REM_3:
|
|
|
|
|
s = "mfhi";
|
|
|
|
|
do_div3:
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
++mips_opts.noreorder;
|
|
|
|
|
mips_any_noreorder = 1;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
dbl ? "ddiv" : "div",
|
|
|
|
|
"0,x,y", xreg, yreg);
|
|
|
|
|
expr1.X_add_number = 2;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "bnez", "x,p", yreg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break", "6",
|
|
|
|
|
7);
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* FIXME: The normal code checks for of -1 / -0x80000000 here,
|
|
|
|
|
since that causes an overflow. We should do that as well,
|
|
|
|
|
but I don't see how to do the comparisons without a temporary
|
|
|
|
|
register. */
|
|
|
|
|
--mips_opts.noreorder;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "x", zreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DIVU_3:
|
|
|
|
|
s = "divu";
|
|
|
|
|
s2 = "mflo";
|
|
|
|
|
goto do_divu3;
|
|
|
|
|
case M_REMU_3:
|
|
|
|
|
s = "divu";
|
|
|
|
|
s2 = "mfhi";
|
|
|
|
|
goto do_divu3;
|
|
|
|
|
case M_DDIVU_3:
|
|
|
|
|
s = "ddivu";
|
|
|
|
|
s2 = "mflo";
|
|
|
|
|
goto do_divu3;
|
|
|
|
|
case M_DREMU_3:
|
|
|
|
|
s = "ddivu";
|
|
|
|
|
s2 = "mfhi";
|
|
|
|
|
do_divu3:
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
++mips_opts.noreorder;
|
|
|
|
|
mips_any_noreorder = 1;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "0,x,y",
|
|
|
|
|
xreg, yreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expr1.X_add_number = 2;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "bnez", "x,p", yreg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "break",
|
|
|
|
|
"6", 7);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
--mips_opts.noreorder;
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s2, "x", zreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DMUL:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
case M_MUL:
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "dmultu" : "multu", "x,y", xreg, yreg);
|
2001-11-12 23:20:44 +01:00
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "mflo", "x",
|
|
|
|
|
zreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case M_DSUBU_I:
|
|
|
|
|
dbl = 1;
|
|
|
|
|
goto do_subu;
|
|
|
|
|
case M_SUBU_I:
|
|
|
|
|
do_subu:
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("Unsupported large constant"));
|
|
|
|
|
imm_expr.X_add_number = -imm_expr.X_add_number;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr,
|
2001-08-07 15:15:26 +02:00
|
|
|
|
dbl ? "daddiu" : "addiu", "y,x,4", yreg, xreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_SUBU_I_2:
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("Unsupported large constant"));
|
|
|
|
|
imm_expr.X_add_number = -imm_expr.X_add_number;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, "addiu",
|
|
|
|
|
"x,k", xreg);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_DSUBU_I_2:
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("Unsupported large constant"));
|
|
|
|
|
imm_expr.X_add_number = -imm_expr.X_add_number;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, "daddiu",
|
|
|
|
|
"y,j", yreg);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BEQ:
|
|
|
|
|
s = "cmp";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
goto do_branch;
|
|
|
|
|
case M_BNE:
|
|
|
|
|
s = "cmp";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
goto do_branch;
|
|
|
|
|
case M_BLT:
|
|
|
|
|
s = "slt";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
goto do_branch;
|
|
|
|
|
case M_BLTU:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
goto do_branch;
|
|
|
|
|
case M_BLE:
|
|
|
|
|
s = "slt";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
goto do_reverse_branch;
|
|
|
|
|
case M_BLEU:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
goto do_reverse_branch;
|
|
|
|
|
case M_BGE:
|
|
|
|
|
s = "slt";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
goto do_branch;
|
|
|
|
|
case M_BGEU:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
goto do_branch;
|
|
|
|
|
case M_BGT:
|
|
|
|
|
s = "slt";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
goto do_reverse_branch;
|
|
|
|
|
case M_BGTU:
|
|
|
|
|
s = "sltu";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
|
|
|
|
|
do_reverse_branch:
|
|
|
|
|
tmp = xreg;
|
|
|
|
|
xreg = yreg;
|
|
|
|
|
yreg = tmp;
|
|
|
|
|
|
|
|
|
|
do_branch:
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, s, "x,y",
|
|
|
|
|
xreg, yreg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s2, "p");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_BEQ_I:
|
|
|
|
|
s = "cmpi";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
s3 = "x,U";
|
|
|
|
|
goto do_branch_i;
|
|
|
|
|
case M_BNE_I:
|
|
|
|
|
s = "cmpi";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
s3 = "x,U";
|
|
|
|
|
goto do_branch_i;
|
|
|
|
|
case M_BLT_I:
|
|
|
|
|
s = "slti";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
s3 = "x,8";
|
|
|
|
|
goto do_branch_i;
|
|
|
|
|
case M_BLTU_I:
|
|
|
|
|
s = "sltiu";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
s3 = "x,8";
|
|
|
|
|
goto do_branch_i;
|
|
|
|
|
case M_BLE_I:
|
|
|
|
|
s = "slti";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
s3 = "x,8";
|
|
|
|
|
goto do_addone_branch_i;
|
|
|
|
|
case M_BLEU_I:
|
|
|
|
|
s = "sltiu";
|
|
|
|
|
s2 = "btnez";
|
|
|
|
|
s3 = "x,8";
|
|
|
|
|
goto do_addone_branch_i;
|
|
|
|
|
case M_BGE_I:
|
|
|
|
|
s = "slti";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
s3 = "x,8";
|
|
|
|
|
goto do_branch_i;
|
|
|
|
|
case M_BGEU_I:
|
|
|
|
|
s = "sltiu";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
s3 = "x,8";
|
|
|
|
|
goto do_branch_i;
|
|
|
|
|
case M_BGT_I:
|
|
|
|
|
s = "slti";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
s3 = "x,8";
|
|
|
|
|
goto do_addone_branch_i;
|
|
|
|
|
case M_BGTU_I:
|
|
|
|
|
s = "sltiu";
|
|
|
|
|
s2 = "bteqz";
|
|
|
|
|
s3 = "x,8";
|
|
|
|
|
|
|
|
|
|
do_addone_branch_i:
|
|
|
|
|
if (imm_expr.X_op != O_constant)
|
|
|
|
|
as_bad (_("Unsupported large constant"));
|
|
|
|
|
++imm_expr.X_add_number;
|
|
|
|
|
|
|
|
|
|
do_branch_i:
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &imm_expr, s, s3, xreg);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &offset_expr, s2, "p");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case M_ABS:
|
|
|
|
|
expr1.X_add_number = 0;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "slti", "x,8", yreg);
|
|
|
|
|
if (xreg != yreg)
|
2001-08-10 18:24:32 +02:00
|
|
|
|
move_register (&icnt, xreg, yreg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expr1.X_add_number = 2;
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &expr1, "bteqz", "p");
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
|
|
|
|
"neg", "x,w", xreg, xreg);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* For consistency checking, verify that all bits are specified either
|
|
|
|
|
by the match/mask part of the instruction definition, or by the
|
|
|
|
|
operand list. */
|
|
|
|
|
static int
|
|
|
|
|
validate_mips_insn (opc)
|
|
|
|
|
const struct mips_opcode *opc;
|
|
|
|
|
{
|
|
|
|
|
const char *p = opc->args;
|
|
|
|
|
char c;
|
|
|
|
|
unsigned long used_bits = opc->mask;
|
|
|
|
|
|
|
|
|
|
if ((used_bits & opc->match) != opc->match)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("internal: bad mips opcode (mask error): %s %s"),
|
|
|
|
|
opc->name, opc->args);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
#define USE_BITS(mask,shift) (used_bits |= ((mask) << (shift)))
|
|
|
|
|
while (*p)
|
|
|
|
|
switch (c = *p++)
|
|
|
|
|
{
|
|
|
|
|
case ',': break;
|
|
|
|
|
case '(': break;
|
|
|
|
|
case ')': break;
|
|
|
|
|
case '<': USE_BITS (OP_MASK_SHAMT, OP_SH_SHAMT); break;
|
|
|
|
|
case '>': USE_BITS (OP_MASK_SHAMT, OP_SH_SHAMT); break;
|
|
|
|
|
case 'A': break;
|
2000-12-01 21:05:32 +01:00
|
|
|
|
case 'B': USE_BITS (OP_MASK_CODE20, OP_SH_CODE20); break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'C': USE_BITS (OP_MASK_COPZ, OP_SH_COPZ); break;
|
|
|
|
|
case 'D': USE_BITS (OP_MASK_FD, OP_SH_FD); break;
|
|
|
|
|
case 'E': USE_BITS (OP_MASK_RT, OP_SH_RT); break;
|
|
|
|
|
case 'F': break;
|
|
|
|
|
case 'G': USE_BITS (OP_MASK_RD, OP_SH_RD); break;
|
2000-09-14 03:47:38 +02:00
|
|
|
|
case 'H': USE_BITS (OP_MASK_SEL, OP_SH_SEL); break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'I': break;
|
2000-12-12 20:29:24 +01:00
|
|
|
|
case 'J': USE_BITS (OP_MASK_CODE19, OP_SH_CODE19); break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'L': break;
|
|
|
|
|
case 'M': USE_BITS (OP_MASK_CCC, OP_SH_CCC); break;
|
|
|
|
|
case 'N': USE_BITS (OP_MASK_BCC, OP_SH_BCC); break;
|
|
|
|
|
case 'R': USE_BITS (OP_MASK_FR, OP_SH_FR); break;
|
|
|
|
|
case 'S': USE_BITS (OP_MASK_FS, OP_SH_FS); break;
|
|
|
|
|
case 'T': USE_BITS (OP_MASK_FT, OP_SH_FT); break;
|
|
|
|
|
case 'V': USE_BITS (OP_MASK_FS, OP_SH_FS); break;
|
|
|
|
|
case 'W': USE_BITS (OP_MASK_FT, OP_SH_FT); break;
|
|
|
|
|
case 'a': USE_BITS (OP_MASK_TARGET, OP_SH_TARGET); break;
|
|
|
|
|
case 'b': USE_BITS (OP_MASK_RS, OP_SH_RS); break;
|
|
|
|
|
case 'c': USE_BITS (OP_MASK_CODE, OP_SH_CODE); break;
|
|
|
|
|
case 'd': USE_BITS (OP_MASK_RD, OP_SH_RD); break;
|
|
|
|
|
case 'f': break;
|
|
|
|
|
case 'h': USE_BITS (OP_MASK_PREFX, OP_SH_PREFX); break;
|
|
|
|
|
case 'i': USE_BITS (OP_MASK_IMMEDIATE, OP_SH_IMMEDIATE); break;
|
|
|
|
|
case 'j': USE_BITS (OP_MASK_DELTA, OP_SH_DELTA); break;
|
|
|
|
|
case 'k': USE_BITS (OP_MASK_CACHE, OP_SH_CACHE); break;
|
|
|
|
|
case 'l': break;
|
|
|
|
|
case 'o': USE_BITS (OP_MASK_DELTA, OP_SH_DELTA); break;
|
|
|
|
|
case 'p': USE_BITS (OP_MASK_DELTA, OP_SH_DELTA); break;
|
|
|
|
|
case 'q': USE_BITS (OP_MASK_CODE2, OP_SH_CODE2); break;
|
|
|
|
|
case 'r': USE_BITS (OP_MASK_RS, OP_SH_RS); break;
|
|
|
|
|
case 's': USE_BITS (OP_MASK_RS, OP_SH_RS); break;
|
|
|
|
|
case 't': USE_BITS (OP_MASK_RT, OP_SH_RT); break;
|
|
|
|
|
case 'u': USE_BITS (OP_MASK_IMMEDIATE, OP_SH_IMMEDIATE); break;
|
|
|
|
|
case 'v': USE_BITS (OP_MASK_RS, OP_SH_RS); break;
|
|
|
|
|
case 'w': USE_BITS (OP_MASK_RT, OP_SH_RT); break;
|
|
|
|
|
case 'x': break;
|
|
|
|
|
case 'z': break;
|
|
|
|
|
case 'P': USE_BITS (OP_MASK_PERFREG, OP_SH_PERFREG); break;
|
2000-12-01 21:05:32 +01:00
|
|
|
|
case 'U': USE_BITS (OP_MASK_RD, OP_SH_RD);
|
|
|
|
|
USE_BITS (OP_MASK_RT, OP_SH_RT); break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
default:
|
|
|
|
|
as_bad (_("internal: bad mips opcode (unknown operand type `%c'): %s %s"),
|
|
|
|
|
c, opc->name, opc->args);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
#undef USE_BITS
|
|
|
|
|
if (used_bits != 0xffffffff)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("internal: bad mips opcode (bits 0x%lx undefined): %s %s"),
|
|
|
|
|
~used_bits & 0xffffffff, opc->name, opc->args);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This routine assembles an instruction into its binary format. As a
|
|
|
|
|
side effect, it sets one of the global variables imm_reloc or
|
|
|
|
|
offset_reloc to the type of relocation to do if one of the operands
|
|
|
|
|
is an address expression. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips_ip (str, ip)
|
|
|
|
|
char *str;
|
|
|
|
|
struct mips_cl_insn *ip;
|
|
|
|
|
{
|
|
|
|
|
char *s;
|
|
|
|
|
const char *args;
|
2000-05-30 00:05:27 +02:00
|
|
|
|
char c = 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
struct mips_opcode *insn;
|
|
|
|
|
char *argsStart;
|
|
|
|
|
unsigned int regno;
|
|
|
|
|
unsigned int lastregno = 0;
|
|
|
|
|
char *s_reset;
|
|
|
|
|
char save_c = 0;
|
|
|
|
|
int full_opcode_match = 1;
|
|
|
|
|
|
|
|
|
|
insn_error = NULL;
|
|
|
|
|
|
|
|
|
|
/* If the instruction contains a '.', we first try to match an instruction
|
|
|
|
|
including the '.'. Then we try again without the '.'. */
|
|
|
|
|
insn = NULL;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
for (s = str; *s != '\0' && !ISSPACE (*s); ++s)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
/* If we stopped on whitespace, then replace the whitespace with null for
|
|
|
|
|
the call to hash_find. Save the character we replaced just in case we
|
|
|
|
|
have to re-parse the instruction. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISSPACE (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
save_c = *s;
|
|
|
|
|
*s++ = '\0';
|
|
|
|
|
}
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
insn = (struct mips_opcode *) hash_find (op_hash, str);
|
|
|
|
|
|
|
|
|
|
/* If we didn't find the instruction in the opcode table, try again, but
|
|
|
|
|
this time with just the instruction up to, but not including the
|
|
|
|
|
first '.'. */
|
|
|
|
|
if (insn == NULL)
|
|
|
|
|
{
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Restore the character we overwrite above (if any). */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (save_c)
|
|
|
|
|
*(--s) = save_c;
|
|
|
|
|
|
|
|
|
|
/* Scan up to the first '.' or whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
for (s = str;
|
|
|
|
|
*s != '\0' && *s != '.' && !ISSPACE (*s);
|
|
|
|
|
++s)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
/* If we did not find a '.', then we can quit now. */
|
|
|
|
|
if (*s != '.')
|
|
|
|
|
{
|
|
|
|
|
insn_error = "unrecognized opcode";
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Lookup the instruction in the hash table. */
|
|
|
|
|
*s++ = '\0';
|
|
|
|
|
if ((insn = (struct mips_opcode *) hash_find (op_hash, str)) == NULL)
|
|
|
|
|
{
|
|
|
|
|
insn_error = "unrecognized opcode";
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
full_opcode_match = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
argsStart = s;
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
boolean ok;
|
|
|
|
|
|
|
|
|
|
assert (strcmp (insn->name, str) == 0);
|
|
|
|
|
|
2001-08-10 18:24:32 +02:00
|
|
|
|
if (OPCODE_IS_MEMBER (insn, mips_opts.isa, mips_arch))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ok = true;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
else
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ok = false;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (insn->pinfo != INSN_MACRO)
|
|
|
|
|
{
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (mips_arch == CPU_R4650 && (insn->pinfo & FP_D) != 0)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ok = false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! ok)
|
|
|
|
|
{
|
|
|
|
|
if (insn + 1 < &mips_opcodes[NUMOPCODES]
|
|
|
|
|
&& strcmp (insn->name, insn[1].name) == 0)
|
|
|
|
|
{
|
|
|
|
|
++insn;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else
|
2000-12-05 19:51:08 +01:00
|
|
|
|
{
|
2001-06-09 07:01:29 +02:00
|
|
|
|
if (!insn_error)
|
|
|
|
|
{
|
|
|
|
|
static char buf[100];
|
|
|
|
|
sprintf (buf,
|
|
|
|
|
_("opcode not supported on this processor: %s (%s)"),
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_cpu_to_str (mips_arch),
|
2001-06-09 07:01:29 +02:00
|
|
|
|
mips_isa_to_str (mips_opts.isa));
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
2001-06-09 07:01:29 +02:00
|
|
|
|
insn_error = buf;
|
|
|
|
|
}
|
|
|
|
|
if (save_c)
|
|
|
|
|
*(--s) = save_c;
|
1999-11-01 20:29:55 +01:00
|
|
|
|
return;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
ip->insn_mo = insn;
|
|
|
|
|
ip->insn_opcode = insn->match;
|
2001-06-09 07:01:29 +02:00
|
|
|
|
insn_error = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
for (args = insn->args;; ++args)
|
|
|
|
|
{
|
2001-10-10 02:54:53 +02:00
|
|
|
|
s += strspn (s, " \t");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
switch (*args)
|
|
|
|
|
{
|
|
|
|
|
case '\0': /* end of args */
|
|
|
|
|
if (*s == '\0')
|
|
|
|
|
return;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ',':
|
|
|
|
|
if (*s++ == *args)
|
|
|
|
|
continue;
|
|
|
|
|
s--;
|
|
|
|
|
switch (*++args)
|
|
|
|
|
{
|
|
|
|
|
case 'r':
|
|
|
|
|
case 'v':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= lastregno << OP_SH_RS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'w':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= lastregno << OP_SH_RT;
|
|
|
|
|
continue;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'W':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= lastregno << OP_SH_FT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'V':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= lastregno << OP_SH_FS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '(':
|
|
|
|
|
/* Handle optional base register.
|
|
|
|
|
Either the base register is omitted or
|
2000-09-07 14:45:56 +02:00
|
|
|
|
we must have a left paren. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* This is dependent on the next operand specifier
|
|
|
|
|
is a base register specification. */
|
|
|
|
|
assert (args[1] == 'b' || args[1] == '5'
|
|
|
|
|
|| args[1] == '-' || args[1] == '4');
|
|
|
|
|
if (*s == '\0')
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case ')': /* these must match exactly */
|
|
|
|
|
if (*s++ == *args)
|
|
|
|
|
continue;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '<': /* must be at least one digit */
|
|
|
|
|
/*
|
|
|
|
|
* According to the manual, if the shift amount is greater
|
2001-10-12 01:56:33 +02:00
|
|
|
|
* than 31 or less than 0, then the shift amount should be
|
|
|
|
|
* mod 32. In reality the mips assembler issues an error.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
* We issue a warning and mask out all but the low 5 bits.
|
|
|
|
|
*/
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
|
|
|
|
if ((unsigned long) imm_expr.X_add_number > 31)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Improper shift amount (%ld)"),
|
|
|
|
|
(long) imm_expr.X_add_number);
|
2001-08-07 15:22:46 +02:00
|
|
|
|
imm_expr.X_add_number &= OP_MASK_SHAMT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number << OP_SH_SHAMT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case '>': /* shift amount minus 32 */
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
|
|
|
|
if ((unsigned long) imm_expr.X_add_number < 32
|
|
|
|
|
|| (unsigned long) imm_expr.X_add_number > 63)
|
|
|
|
|
break;
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= (imm_expr.X_add_number - 32) << OP_SH_SHAMT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'k': /* cache code */
|
|
|
|
|
case 'h': /* prefx code */
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
|
|
|
|
if ((unsigned long) imm_expr.X_add_number > 31)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Invalid value for `%s' (%lu)"),
|
|
|
|
|
ip->insn_mo->name,
|
|
|
|
|
(unsigned long) imm_expr.X_add_number);
|
|
|
|
|
imm_expr.X_add_number &= 0x1f;
|
|
|
|
|
}
|
|
|
|
|
if (*args == 'k')
|
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number << OP_SH_CACHE;
|
|
|
|
|
else
|
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number << OP_SH_PREFX;
|
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'c': /* break code */
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
|
|
|
|
if ((unsigned) imm_expr.X_add_number > 1023)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Illegal break code (%ld)"),
|
|
|
|
|
(long) imm_expr.X_add_number);
|
2001-08-07 15:22:46 +02:00
|
|
|
|
imm_expr.X_add_number &= OP_MASK_CODE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number << OP_SH_CODE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'q': /* lower break code */
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
|
|
|
|
if ((unsigned) imm_expr.X_add_number > 1023)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Illegal lower break code (%ld)"),
|
|
|
|
|
(long) imm_expr.X_add_number);
|
2001-08-07 15:22:46 +02:00
|
|
|
|
imm_expr.X_add_number &= OP_MASK_CODE2;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number << OP_SH_CODE2;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
2000-12-01 21:05:32 +01:00
|
|
|
|
case 'B': /* 20-bit syscall/break code. */
|
2000-09-14 03:47:38 +02:00
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
2001-08-07 15:22:46 +02:00
|
|
|
|
if ((unsigned) imm_expr.X_add_number > OP_MASK_CODE20)
|
2000-12-01 21:05:32 +01:00
|
|
|
|
as_warn (_("Illegal 20-bit code (%ld)"),
|
1999-05-03 09:29:11 +02:00
|
|
|
|
(long) imm_expr.X_add_number);
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number << OP_SH_CODE20;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'C': /* Coprocessor code */
|
2000-12-05 19:51:08 +01:00
|
|
|
|
my_getExpression (&imm_expr, s);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
if ((unsigned long) imm_expr.X_add_number >= (1<<25))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2000-12-05 19:51:08 +01:00
|
|
|
|
as_warn (_("Coproccesor code > 25 bits (%ld)"),
|
1999-05-03 09:29:11 +02:00
|
|
|
|
(long) imm_expr.X_add_number);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
imm_expr.X_add_number &= ((1<<25) - 1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2000-12-05 19:51:08 +01:00
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number;
|
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-12-01 21:05:32 +01:00
|
|
|
|
case 'J': /* 19-bit wait code. */
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
2001-08-07 15:22:46 +02:00
|
|
|
|
if ((unsigned) imm_expr.X_add_number > OP_MASK_CODE19)
|
2000-12-01 21:05:32 +01:00
|
|
|
|
as_warn (_("Illegal 19-bit code (%ld)"),
|
|
|
|
|
(long) imm_expr.X_add_number);
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number << OP_SH_CODE19;
|
2000-12-01 21:05:32 +01:00
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'P': /* Performance register */
|
2000-12-05 19:51:08 +01:00
|
|
|
|
my_getExpression (&imm_expr, s);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
if (imm_expr.X_add_number != 0 && imm_expr.X_add_number != 1)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-08-07 15:22:46 +02:00
|
|
|
|
as_warn (_("Invalid performance register (%ld)"),
|
1999-05-03 09:29:11 +02:00
|
|
|
|
(long) imm_expr.X_add_number);
|
2001-08-07 15:22:46 +02:00
|
|
|
|
imm_expr.X_add_number &= OP_MASK_PERFREG;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= (imm_expr.X_add_number << OP_SH_PERFREG);
|
2000-12-05 19:51:08 +01:00
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case 'b': /* base register */
|
|
|
|
|
case 'd': /* destination register */
|
|
|
|
|
case 's': /* source register */
|
|
|
|
|
case 't': /* target register */
|
|
|
|
|
case 'r': /* both target and source */
|
|
|
|
|
case 'v': /* both dest and source */
|
|
|
|
|
case 'w': /* both dest and target */
|
|
|
|
|
case 'E': /* coprocessor target register */
|
|
|
|
|
case 'G': /* coprocessor destination register */
|
|
|
|
|
case 'x': /* ignore register name */
|
|
|
|
|
case 'z': /* must be zero register */
|
2000-12-01 21:05:32 +01:00
|
|
|
|
case 'U': /* destination register (clo/clz). */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s_reset = s;
|
|
|
|
|
if (s[0] == '$')
|
|
|
|
|
{
|
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISDIGIT (s[1]))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
regno = 0;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
regno *= 10;
|
|
|
|
|
regno += *s - '0';
|
|
|
|
|
++s;
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (regno > 31)
|
|
|
|
|
as_bad (_("Invalid register number (%d)"), regno);
|
|
|
|
|
}
|
|
|
|
|
else if (*args == 'E' || *args == 'G')
|
|
|
|
|
goto notreg;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (s[1] == 'f' && s[2] == 'p')
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
regno = FP;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 's' && s[2] == 'p')
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
regno = SP;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'g' && s[2] == 'p')
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
regno = GP;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'a' && s[2] == 't')
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
regno = AT;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'k' && s[2] == 't' && s[3] == '0')
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
regno = KT0;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'k' && s[2] == 't' && s[3] == '1')
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
regno = KT1;
|
|
|
|
|
}
|
|
|
|
|
else if (itbl_have_entries)
|
|
|
|
|
{
|
|
|
|
|
char *p, *n;
|
1999-06-10 22:35:50 +02:00
|
|
|
|
unsigned long r;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
1999-06-10 22:35:50 +02:00
|
|
|
|
p = s + 1; /* advance past '$' */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
n = itbl_get_field (&p); /* n is name */
|
|
|
|
|
|
1999-06-10 22:35:50 +02:00
|
|
|
|
/* See if this is a register defined in an
|
|
|
|
|
itbl entry. */
|
|
|
|
|
if (itbl_get_reg_val (n, &r))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* Get_field advances to the start of
|
|
|
|
|
the next field, so we need to back
|
1999-06-10 22:35:50 +02:00
|
|
|
|
rack to the end of the last field. */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
if (p)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = p - 1;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
else
|
1999-06-10 22:35:50 +02:00
|
|
|
|
s = strchr (s, '\0');
|
1999-05-03 09:29:11 +02:00
|
|
|
|
regno = r;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
goto notreg;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
goto notreg;
|
|
|
|
|
}
|
|
|
|
|
if (regno == AT
|
|
|
|
|
&& ! mips_opts.noat
|
|
|
|
|
&& *args != 'E'
|
|
|
|
|
&& *args != 'G')
|
|
|
|
|
as_warn (_("Used $at without \".set noat\""));
|
|
|
|
|
c = *args;
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
s++;
|
|
|
|
|
if (args[1] != *s)
|
|
|
|
|
{
|
|
|
|
|
if (c == 'r' || c == 'v' || c == 'w')
|
|
|
|
|
{
|
|
|
|
|
regno = lastregno;
|
|
|
|
|
s = s_reset;
|
|
|
|
|
args++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/* 'z' only matches $0. */
|
|
|
|
|
if (c == 'z' && regno != 0)
|
|
|
|
|
break;
|
|
|
|
|
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Now that we have assembled one operand, we use the args string
|
|
|
|
|
* to figure out where it goes in the instruction. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case 'r':
|
|
|
|
|
case 's':
|
|
|
|
|
case 'v':
|
|
|
|
|
case 'b':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= regno << OP_SH_RS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
case 'd':
|
|
|
|
|
case 'G':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= regno << OP_SH_RD;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
2000-12-01 21:05:32 +01:00
|
|
|
|
case 'U':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= regno << OP_SH_RD;
|
|
|
|
|
ip->insn_opcode |= regno << OP_SH_RT;
|
2000-12-01 21:05:32 +01:00
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'w':
|
|
|
|
|
case 't':
|
|
|
|
|
case 'E':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= regno << OP_SH_RT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
case 'x':
|
|
|
|
|
/* This case exists because on the r3000 trunc
|
|
|
|
|
expands into a macro which requires a gp
|
|
|
|
|
register. On the r6000 or r4000 it is
|
|
|
|
|
assembled into a single instruction which
|
|
|
|
|
ignores the register. Thus the insn version
|
|
|
|
|
is MIPS_ISA2 and uses 'x', and the macro
|
|
|
|
|
version is MIPS_ISA1 and uses 't'. */
|
|
|
|
|
break;
|
|
|
|
|
case 'z':
|
|
|
|
|
/* This case is for the div instruction, which
|
|
|
|
|
acts differently if the destination argument
|
|
|
|
|
is $0. This only matches $0, and is checked
|
|
|
|
|
outside the switch. */
|
|
|
|
|
break;
|
|
|
|
|
case 'D':
|
|
|
|
|
/* Itbl operand; not yet implemented. FIXME ?? */
|
|
|
|
|
break;
|
|
|
|
|
/* What about all other operands like 'i', which
|
|
|
|
|
can be specified in the opcode table? */
|
|
|
|
|
}
|
|
|
|
|
lastregno = regno;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
notreg:
|
|
|
|
|
switch (*args++)
|
|
|
|
|
{
|
|
|
|
|
case 'r':
|
|
|
|
|
case 'v':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= lastregno << OP_SH_RS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
case 'w':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= lastregno << OP_SH_RT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'D': /* floating point destination register */
|
|
|
|
|
case 'S': /* floating point source register */
|
|
|
|
|
case 'T': /* floating point target register */
|
|
|
|
|
case 'R': /* floating point source register */
|
|
|
|
|
case 'V':
|
|
|
|
|
case 'W':
|
|
|
|
|
s_reset = s;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (s[0] == '$' && s[1] == 'f'
|
|
|
|
|
&& ISDIGIT (s[2]))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
s += 2;
|
|
|
|
|
regno = 0;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
regno *= 10;
|
|
|
|
|
regno += *s - '0';
|
|
|
|
|
++s;
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (regno > 31)
|
|
|
|
|
as_bad (_("Invalid float register number (%d)"), regno);
|
|
|
|
|
|
|
|
|
|
if ((regno & 1) != 0
|
2001-08-02 12:15:24 +02:00
|
|
|
|
&& HAVE_32BIT_FPRS
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& ! (strcmp (str, "mtc1") == 0
|
|
|
|
|
|| strcmp (str, "mfc1") == 0
|
|
|
|
|
|| strcmp (str, "lwc1") == 0
|
|
|
|
|
|| strcmp (str, "swc1") == 0
|
|
|
|
|
|| strcmp (str, "l.s") == 0
|
|
|
|
|
|| strcmp (str, "s.s") == 0))
|
|
|
|
|
as_warn (_("Float register should be even, was %d"),
|
|
|
|
|
regno);
|
|
|
|
|
|
|
|
|
|
c = *args;
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
s++;
|
|
|
|
|
if (args[1] != *s)
|
|
|
|
|
{
|
|
|
|
|
if (c == 'V' || c == 'W')
|
|
|
|
|
{
|
|
|
|
|
regno = lastregno;
|
|
|
|
|
s = s_reset;
|
|
|
|
|
args++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case 'D':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= regno << OP_SH_FD;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
case 'V':
|
|
|
|
|
case 'S':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= regno << OP_SH_FS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
case 'W':
|
|
|
|
|
case 'T':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= regno << OP_SH_FT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
case 'R':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= regno << OP_SH_FR;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
lastregno = regno;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (*args++)
|
|
|
|
|
{
|
|
|
|
|
case 'V':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= lastregno << OP_SH_FS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
case 'W':
|
2001-08-07 15:22:46 +02:00
|
|
|
|
ip->insn_opcode |= lastregno << OP_SH_FT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'I':
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
if (imm_expr.X_op != O_big
|
|
|
|
|
&& imm_expr.X_op != O_constant)
|
|
|
|
|
insn_error = _("absolute expression required");
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'A':
|
|
|
|
|
my_getExpression (&offset_expr, s);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_32;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'F':
|
|
|
|
|
case 'L':
|
|
|
|
|
case 'f':
|
|
|
|
|
case 'l':
|
|
|
|
|
{
|
|
|
|
|
int f64;
|
2001-08-02 12:15:24 +02:00
|
|
|
|
int using_gprs;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
char *save_in;
|
|
|
|
|
char *err;
|
|
|
|
|
unsigned char temp[8];
|
|
|
|
|
int len;
|
|
|
|
|
unsigned int length;
|
|
|
|
|
segT seg;
|
|
|
|
|
subsegT subseg;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
/* These only appear as the last operand in an
|
|
|
|
|
instruction, and every instruction that accepts
|
|
|
|
|
them in any variant accepts them in all variants.
|
|
|
|
|
This means we don't have to worry about backing out
|
|
|
|
|
any changes if the instruction does not match.
|
|
|
|
|
|
|
|
|
|
The difference between them is the size of the
|
|
|
|
|
floating point constant and where it goes. For 'F'
|
|
|
|
|
and 'L' the constant is 64 bits; for 'f' and 'l' it
|
|
|
|
|
is 32 bits. Where the constant is placed is based
|
|
|
|
|
on how the MIPS assembler does things:
|
|
|
|
|
F -- .rdata
|
|
|
|
|
L -- .lit8
|
|
|
|
|
f -- immediate value
|
|
|
|
|
l -- .lit4
|
|
|
|
|
|
|
|
|
|
The .lit4 and .lit8 sections are only used if
|
|
|
|
|
permitted by the -G argument.
|
|
|
|
|
|
|
|
|
|
When generating embedded PIC code, we use the
|
|
|
|
|
.lit8 section but not the .lit4 section (we can do
|
|
|
|
|
.lit4 inline easily; we need to put .lit8
|
|
|
|
|
somewhere in the data segment, and using .lit8
|
|
|
|
|
permits the linker to eventually combine identical
|
2001-08-02 12:15:24 +02:00
|
|
|
|
.lit8 entries).
|
|
|
|
|
|
|
|
|
|
The code below needs to know whether the target register
|
|
|
|
|
is 32 or 64 bits wide. It relies on the fact 'f' and
|
|
|
|
|
'F' are used with GPR-based instructions and 'l' and
|
|
|
|
|
'L' are used with FPR-based instructions. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
f64 = *args == 'F' || *args == 'L';
|
2001-08-02 12:15:24 +02:00
|
|
|
|
using_gprs = *args == 'F' || *args == 'f';
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
save_in = input_line_pointer;
|
|
|
|
|
input_line_pointer = s;
|
|
|
|
|
err = md_atof (f64 ? 'd' : 'f', (char *) temp, &len);
|
|
|
|
|
length = len;
|
|
|
|
|
s = input_line_pointer;
|
|
|
|
|
input_line_pointer = save_in;
|
|
|
|
|
if (err != NULL && *err != '\0')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Bad floating point constant: %s"), err);
|
|
|
|
|
memset (temp, '\0', sizeof temp);
|
|
|
|
|
length = f64 ? 8 : 4;
|
|
|
|
|
}
|
|
|
|
|
|
2000-09-14 03:47:38 +02:00
|
|
|
|
assert (length == (unsigned) (f64 ? 8 : 4));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (*args == 'f'
|
|
|
|
|
|| (*args == 'l'
|
|
|
|
|
&& (! USE_GLOBAL_POINTER_OPT
|
|
|
|
|
|| mips_pic == EMBEDDED_PIC
|
|
|
|
|
|| g_switch_value < 4
|
|
|
|
|
|| (temp[0] == 0 && temp[1] == 0)
|
|
|
|
|
|| (temp[2] == 0 && temp[3] == 0))))
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_op = O_constant;
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
imm_expr.X_add_number = bfd_getl32 (temp);
|
|
|
|
|
else
|
|
|
|
|
imm_expr.X_add_number = bfd_getb32 (temp);
|
|
|
|
|
}
|
|
|
|
|
else if (length > 4
|
2000-07-15 00:23:33 +02:00
|
|
|
|
&& ! mips_disable_float_construction
|
2001-08-02 12:15:24 +02:00
|
|
|
|
/* Constants can only be constructed in GPRs and
|
|
|
|
|
copied to FPRs if the GPRs are at least as wide
|
|
|
|
|
as the FPRs. Force the constant into memory if
|
|
|
|
|
we are using 64-bit FPRs but the GPRs are only
|
|
|
|
|
32 bits wide. */
|
|
|
|
|
&& (using_gprs
|
|
|
|
|
|| ! (HAVE_64BIT_FPRS && HAVE_32BIT_GPRS))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& ((temp[0] == 0 && temp[1] == 0)
|
|
|
|
|
|| (temp[2] == 0 && temp[3] == 0))
|
|
|
|
|
&& ((temp[4] == 0 && temp[5] == 0)
|
|
|
|
|
|| (temp[6] == 0 && temp[7] == 0)))
|
|
|
|
|
{
|
2001-08-02 12:15:24 +02:00
|
|
|
|
/* The value is simple enough to load with a couple of
|
|
|
|
|
instructions. If using 32-bit registers, set
|
|
|
|
|
imm_expr to the high order 32 bits and offset_expr to
|
|
|
|
|
the low order 32 bits. Otherwise, set imm_expr to
|
|
|
|
|
the entire 64 bit constant. */
|
|
|
|
|
if (using_gprs ? HAVE_32BIT_GPRS : HAVE_32BIT_FPRS)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
imm_expr.X_op = O_constant;
|
|
|
|
|
offset_expr.X_op = O_constant;
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_add_number = bfd_getl32 (temp + 4);
|
|
|
|
|
offset_expr.X_add_number = bfd_getl32 (temp);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_add_number = bfd_getb32 (temp);
|
|
|
|
|
offset_expr.X_add_number = bfd_getb32 (temp + 4);
|
|
|
|
|
}
|
|
|
|
|
if (offset_expr.X_add_number == 0)
|
|
|
|
|
offset_expr.X_op = O_absent;
|
|
|
|
|
}
|
|
|
|
|
else if (sizeof (imm_expr.X_add_number) > 4)
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_op = O_constant;
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
imm_expr.X_add_number = bfd_getl64 (temp);
|
|
|
|
|
else
|
|
|
|
|
imm_expr.X_add_number = bfd_getb64 (temp);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
imm_expr.X_op = O_big;
|
|
|
|
|
imm_expr.X_add_number = 4;
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
generic_bignum[0] = bfd_getl16 (temp);
|
|
|
|
|
generic_bignum[1] = bfd_getl16 (temp + 2);
|
|
|
|
|
generic_bignum[2] = bfd_getl16 (temp + 4);
|
|
|
|
|
generic_bignum[3] = bfd_getl16 (temp + 6);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
generic_bignum[0] = bfd_getb16 (temp + 6);
|
|
|
|
|
generic_bignum[1] = bfd_getb16 (temp + 4);
|
|
|
|
|
generic_bignum[2] = bfd_getb16 (temp + 2);
|
|
|
|
|
generic_bignum[3] = bfd_getb16 (temp);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
const char *newname;
|
|
|
|
|
segT new_seg;
|
|
|
|
|
|
|
|
|
|
/* Switch to the right section. */
|
|
|
|
|
seg = now_seg;
|
|
|
|
|
subseg = now_subseg;
|
|
|
|
|
switch (*args)
|
|
|
|
|
{
|
|
|
|
|
default: /* unused default case avoids warnings. */
|
|
|
|
|
case 'L':
|
|
|
|
|
newname = RDATA_SECTION_NAME;
|
2000-03-11 03:16:25 +01:00
|
|
|
|
if ((USE_GLOBAL_POINTER_OPT && g_switch_value >= 8)
|
|
|
|
|
|| mips_pic == EMBEDDED_PIC)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
newname = ".lit8";
|
|
|
|
|
break;
|
|
|
|
|
case 'F':
|
2000-03-11 03:16:25 +01:00
|
|
|
|
if (mips_pic == EMBEDDED_PIC)
|
|
|
|
|
newname = ".lit8";
|
|
|
|
|
else
|
|
|
|
|
newname = RDATA_SECTION_NAME;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
case 'l':
|
|
|
|
|
assert (!USE_GLOBAL_POINTER_OPT
|
|
|
|
|
|| g_switch_value >= 4);
|
|
|
|
|
newname = ".lit4";
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
new_seg = subseg_new (newname, (subsegT) 0);
|
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
|
|
|
|
bfd_set_section_flags (stdoutput, new_seg,
|
|
|
|
|
(SEC_ALLOC
|
|
|
|
|
| SEC_LOAD
|
|
|
|
|
| SEC_READONLY
|
|
|
|
|
| SEC_DATA));
|
|
|
|
|
frag_align (*args == 'l' ? 2 : 3, 0, 0);
|
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour
|
|
|
|
|
&& strcmp (TARGET_OS, "elf") != 0)
|
|
|
|
|
record_alignment (new_seg, 4);
|
|
|
|
|
else
|
|
|
|
|
record_alignment (new_seg, *args == 'l' ? 2 : 3);
|
|
|
|
|
if (seg == now_seg)
|
|
|
|
|
as_bad (_("Can't use floating point insn in this section"));
|
|
|
|
|
|
|
|
|
|
/* Set the argument to the current address in the
|
|
|
|
|
section. */
|
|
|
|
|
offset_expr.X_op = O_symbol;
|
|
|
|
|
offset_expr.X_add_symbol =
|
|
|
|
|
symbol_new ("L0\001", now_seg,
|
|
|
|
|
(valueT) frag_now_fix (), frag_now);
|
|
|
|
|
offset_expr.X_add_number = 0;
|
|
|
|
|
|
|
|
|
|
/* Put the floating point number into the section. */
|
|
|
|
|
p = frag_more ((int) length);
|
|
|
|
|
memcpy (p, temp, length);
|
|
|
|
|
|
|
|
|
|
/* Switch back to the original section. */
|
|
|
|
|
subseg_set (seg, subseg);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'i': /* 16 bit unsigned immediate */
|
|
|
|
|
case 'j': /* 16 bit signed immediate */
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_LO16;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
c = my_getSmallExpression (&imm_expr, s);
|
2001-08-18 19:24:52 +02:00
|
|
|
|
if (c != S_EX_NONE)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-08-18 19:24:52 +02:00
|
|
|
|
if (c != S_EX_LO)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (imm_expr.X_op == O_constant)
|
|
|
|
|
imm_expr.X_add_number =
|
|
|
|
|
(imm_expr.X_add_number >> 16) & 0xffff;
|
2001-10-10 02:54:53 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
2001-08-18 19:24:52 +02:00
|
|
|
|
else if (c == S_EX_HIGHEST)
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_MIPS_HIGHEST;
|
2001-08-18 19:24:52 +02:00
|
|
|
|
else if (c == S_EX_HIGHER)
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_MIPS_HIGHER;
|
2001-10-10 02:54:53 +02:00
|
|
|
|
else if (c == S_EX_GP_REL)
|
|
|
|
|
{
|
|
|
|
|
/* This occurs in NewABI only. */
|
|
|
|
|
c = my_getSmallExpression (&imm_expr, s);
|
|
|
|
|
if (c != S_EX_NEG)
|
|
|
|
|
as_bad (_("bad composition of relocations"));
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
c = my_getSmallExpression (&imm_expr, s);
|
|
|
|
|
if (c != S_EX_LO)
|
|
|
|
|
as_bad (_("bad composition of relocations"));
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
imm_reloc[0] = BFD_RELOC_GPREL16;
|
|
|
|
|
imm_reloc[1] = BFD_RELOC_MIPS_SUB;
|
|
|
|
|
imm_reloc[2] = BFD_RELOC_LO16;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
2001-08-18 19:24:52 +02:00
|
|
|
|
else if (c == S_EX_HI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_HI16_S;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
imm_unmatched_hi = true;
|
|
|
|
|
}
|
|
|
|
|
else
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_HI16;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (imm_expr.X_op == O_constant)
|
|
|
|
|
imm_expr.X_add_number &= 0xffff;
|
|
|
|
|
}
|
|
|
|
|
if (*args == 'i')
|
|
|
|
|
{
|
2001-08-18 19:24:52 +02:00
|
|
|
|
if ((c == S_EX_NONE && imm_expr.X_op != O_constant)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| ((imm_expr.X_add_number < 0
|
2000-12-05 19:51:08 +01:00
|
|
|
|
|| imm_expr.X_add_number >= 0x10000)
|
|
|
|
|
&& imm_expr.X_op == O_constant))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (insn + 1 < &mips_opcodes[NUMOPCODES] &&
|
|
|
|
|
!strcmp (insn->name, insn[1].name))
|
|
|
|
|
break;
|
2000-06-28 21:06:25 +02:00
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
|| imm_expr.X_op == O_big)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad (_("16 bit expression not in range 0..65535"));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int more;
|
|
|
|
|
offsetT max;
|
|
|
|
|
|
|
|
|
|
/* The upper bound should be 0x8000, but
|
|
|
|
|
unfortunately the MIPS assembler accepts numbers
|
|
|
|
|
from 0x8000 to 0xffff and sign extends them, and
|
|
|
|
|
we want to be compatible. We only permit this
|
|
|
|
|
extended range for an instruction which does not
|
|
|
|
|
provide any further alternates, since those
|
|
|
|
|
alternates may handle other cases. People should
|
|
|
|
|
use the numbers they mean, rather than relying on
|
|
|
|
|
a mysterious sign extension. */
|
|
|
|
|
more = (insn + 1 < &mips_opcodes[NUMOPCODES] &&
|
|
|
|
|
strcmp (insn->name, insn[1].name) == 0);
|
|
|
|
|
if (more)
|
|
|
|
|
max = 0x8000;
|
|
|
|
|
else
|
|
|
|
|
max = 0x10000;
|
2001-08-18 19:24:52 +02:00
|
|
|
|
if ((c == S_EX_NONE && imm_expr.X_op != O_constant)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| ((imm_expr.X_add_number < -0x8000
|
2000-12-05 19:51:08 +01:00
|
|
|
|
|| imm_expr.X_add_number >= max)
|
|
|
|
|
&& imm_expr.X_op == O_constant)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| (more
|
|
|
|
|
&& imm_expr.X_add_number < 0
|
2001-08-02 12:15:24 +02:00
|
|
|
|
&& HAVE_64BIT_GPRS
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& imm_expr.X_unsigned
|
|
|
|
|
&& sizeof (imm_expr.X_add_number) <= 4))
|
|
|
|
|
{
|
|
|
|
|
if (more)
|
|
|
|
|
break;
|
2000-06-28 21:06:25 +02:00
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
|| imm_expr.X_op == O_big)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad (_("16 bit expression not in range -32768..32767"));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'o': /* 16 bit offset */
|
|
|
|
|
c = my_getSmallExpression (&offset_expr, s);
|
|
|
|
|
|
|
|
|
|
/* If this value won't fit into a 16 bit offset, then go
|
|
|
|
|
find a macro that will generate the 32 bit offset
|
2001-11-01 02:33:47 +01:00
|
|
|
|
code pattern. */
|
2001-08-18 19:24:52 +02:00
|
|
|
|
if (c == S_EX_NONE
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (offset_expr.X_op != O_constant
|
|
|
|
|
|| offset_expr.X_add_number >= 0x8000
|
2001-11-01 02:33:47 +01:00
|
|
|
|
|| offset_expr.X_add_number < -0x8000))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
2001-08-18 19:24:52 +02:00
|
|
|
|
if (c == S_EX_HI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (offset_expr.X_op != O_constant)
|
|
|
|
|
break;
|
|
|
|
|
offset_expr.X_add_number =
|
|
|
|
|
(offset_expr.X_add_number >> 16) & 0xffff;
|
|
|
|
|
}
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*offset_reloc = BFD_RELOC_LO16;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'p': /* pc relative offset */
|
2001-09-07 07:00:37 +02:00
|
|
|
|
if (mips_pic == EMBEDDED_PIC)
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*offset_reloc = BFD_RELOC_16_PCREL_S2;
|
2001-09-07 07:00:37 +02:00
|
|
|
|
else
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*offset_reloc = BFD_RELOC_16_PCREL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
my_getExpression (&offset_expr, s);
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'u': /* upper 16 bits */
|
|
|
|
|
c = my_getSmallExpression (&imm_expr, s);
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_LO16;
|
2001-08-26 12:42:12 +02:00
|
|
|
|
if (c != S_EX_NONE)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-08-18 19:24:52 +02:00
|
|
|
|
if (c != S_EX_LO)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (imm_expr.X_op == O_constant)
|
|
|
|
|
imm_expr.X_add_number =
|
|
|
|
|
(imm_expr.X_add_number >> 16) & 0xffff;
|
2001-08-18 19:24:52 +02:00
|
|
|
|
else if (c == S_EX_HI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_HI16_S;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
imm_unmatched_hi = true;
|
|
|
|
|
}
|
2001-11-15 10:50:00 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
else if (c == S_EX_HIGHEST)
|
|
|
|
|
*imm_reloc = BFD_RELOC_MIPS_HIGHEST;
|
2001-10-10 02:54:53 +02:00
|
|
|
|
else if (c == S_EX_GP_REL)
|
|
|
|
|
{
|
|
|
|
|
/* This occurs in NewABI only. */
|
|
|
|
|
c = my_getSmallExpression (&imm_expr, s);
|
|
|
|
|
if (c != S_EX_NEG)
|
|
|
|
|
as_bad (_("bad composition of relocations"));
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
c = my_getSmallExpression (&imm_expr, s);
|
|
|
|
|
if (c != S_EX_HI)
|
|
|
|
|
as_bad (_("bad composition of relocations"));
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
imm_reloc[0] = BFD_RELOC_GPREL16;
|
|
|
|
|
imm_reloc[1] = BFD_RELOC_MIPS_SUB;
|
|
|
|
|
imm_reloc[2] = BFD_RELOC_HI16_S;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_HI16;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (imm_expr.X_op == O_constant)
|
|
|
|
|
imm_expr.X_add_number &= 0xffff;
|
|
|
|
|
}
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
|
|
|
|
&& (imm_expr.X_add_number < 0
|
|
|
|
|
|| imm_expr.X_add_number >= 0x10000))
|
|
|
|
|
as_bad (_("lui expression not in range 0..65535"));
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'a': /* 26 bit address */
|
|
|
|
|
my_getExpression (&offset_expr, s);
|
|
|
|
|
s = expr_end;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*offset_reloc = BFD_RELOC_MIPS_JMP;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'N': /* 3 bit branch condition code */
|
|
|
|
|
case 'M': /* 3 bit compare condition code */
|
|
|
|
|
if (strncmp (s, "$fcc", 4) != 0)
|
|
|
|
|
break;
|
|
|
|
|
s += 4;
|
|
|
|
|
regno = 0;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
regno *= 10;
|
|
|
|
|
regno += *s - '0';
|
|
|
|
|
++s;
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (regno > 7)
|
|
|
|
|
as_bad (_("invalid condition code register $fcc%d"), regno);
|
|
|
|
|
if (*args == 'N')
|
|
|
|
|
ip->insn_opcode |= regno << OP_SH_BCC;
|
|
|
|
|
else
|
|
|
|
|
ip->insn_opcode |= regno << OP_SH_CCC;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
continue;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-09-14 03:47:38 +02:00
|
|
|
|
case 'H':
|
|
|
|
|
if (s[0] == '0' && (s[1] == 'x' || s[1] == 'X'))
|
|
|
|
|
s += 2;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISDIGIT (*s))
|
2000-09-14 03:47:38 +02:00
|
|
|
|
{
|
|
|
|
|
c = 0;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
c *= 10;
|
|
|
|
|
c += *s - '0';
|
|
|
|
|
++s;
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s));
|
2000-09-14 03:47:38 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
c = 8; /* Invalid sel value. */
|
|
|
|
|
|
|
|
|
|
if (c > 7)
|
|
|
|
|
as_bad (_("invalid coprocessor sub-selection value (0-7)"));
|
|
|
|
|
ip->insn_opcode |= c;
|
|
|
|
|
continue;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
default:
|
|
|
|
|
as_bad (_("bad char = '%c'\n"), *args);
|
|
|
|
|
internalError ();
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
/* Args don't match. */
|
|
|
|
|
if (insn + 1 < &mips_opcodes[NUMOPCODES] &&
|
|
|
|
|
!strcmp (insn->name, insn[1].name))
|
|
|
|
|
{
|
|
|
|
|
++insn;
|
|
|
|
|
s = argsStart;
|
2001-06-09 07:01:29 +02:00
|
|
|
|
insn_error = _("illegal operands");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
}
|
2001-06-09 07:01:29 +02:00
|
|
|
|
if (save_c)
|
|
|
|
|
*(--s) = save_c;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
insn_error = _("illegal operands");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This routine assembles an instruction into its binary format when
|
|
|
|
|
assembling for the mips16. As a side effect, it sets one of the
|
|
|
|
|
global variables imm_reloc or offset_reloc to the type of
|
|
|
|
|
relocation to do if one of the operands is an address expression.
|
|
|
|
|
It also sets mips16_small and mips16_ext if the user explicitly
|
|
|
|
|
requested a small or extended instruction. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips16_ip (str, ip)
|
|
|
|
|
char *str;
|
|
|
|
|
struct mips_cl_insn *ip;
|
|
|
|
|
{
|
|
|
|
|
char *s;
|
|
|
|
|
const char *args;
|
|
|
|
|
struct mips_opcode *insn;
|
|
|
|
|
char *argsstart;
|
|
|
|
|
unsigned int regno;
|
|
|
|
|
unsigned int lastregno = 0;
|
|
|
|
|
char *s_reset;
|
|
|
|
|
|
|
|
|
|
insn_error = NULL;
|
|
|
|
|
|
|
|
|
|
mips16_small = false;
|
|
|
|
|
mips16_ext = false;
|
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
for (s = str; ISLOWER (*s); ++s)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
;
|
|
|
|
|
switch (*s)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ' ':
|
|
|
|
|
*s++ = '\0';
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '.':
|
|
|
|
|
if (s[1] == 't' && s[2] == ' ')
|
|
|
|
|
{
|
|
|
|
|
*s = '\0';
|
|
|
|
|
mips16_small = true;
|
|
|
|
|
s += 3;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'e' && s[2] == ' ')
|
|
|
|
|
{
|
|
|
|
|
*s = '\0';
|
|
|
|
|
mips16_ext = true;
|
|
|
|
|
s += 3;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
/* Fall through. */
|
|
|
|
|
default:
|
|
|
|
|
insn_error = _("unknown opcode");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (mips_opts.noautoextend && ! mips16_ext)
|
|
|
|
|
mips16_small = true;
|
|
|
|
|
|
|
|
|
|
if ((insn = (struct mips_opcode *) hash_find (mips16_op_hash, str)) == NULL)
|
|
|
|
|
{
|
|
|
|
|
insn_error = _("unrecognized opcode");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
argsstart = s;
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
assert (strcmp (insn->name, str) == 0);
|
|
|
|
|
|
|
|
|
|
ip->insn_mo = insn;
|
|
|
|
|
ip->insn_opcode = insn->match;
|
|
|
|
|
ip->use_extend = false;
|
|
|
|
|
imm_expr.X_op = O_absent;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
imm_reloc[0] = BFD_RELOC_UNUSED;
|
|
|
|
|
imm_reloc[1] = BFD_RELOC_UNUSED;
|
|
|
|
|
imm_reloc[2] = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
offset_expr.X_op = O_absent;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
offset_reloc[0] = BFD_RELOC_UNUSED;
|
|
|
|
|
offset_reloc[1] = BFD_RELOC_UNUSED;
|
|
|
|
|
offset_reloc[2] = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
for (args = insn->args; 1; ++args)
|
|
|
|
|
{
|
|
|
|
|
int c;
|
|
|
|
|
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
++s;
|
|
|
|
|
|
|
|
|
|
/* In this switch statement we call break if we did not find
|
|
|
|
|
a match, continue if we did find a match, or return if we
|
|
|
|
|
are done. */
|
|
|
|
|
|
|
|
|
|
c = *args;
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
if (*s == '\0')
|
|
|
|
|
{
|
|
|
|
|
/* Stuff the immediate value in now, if we can. */
|
|
|
|
|
if (imm_expr.X_op == O_constant
|
2001-10-04 22:07:00 +02:00
|
|
|
|
&& *imm_reloc > BFD_RELOC_UNUSED
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& insn->pinfo != INSN_MACRO)
|
|
|
|
|
{
|
2001-11-12 23:19:30 +01:00
|
|
|
|
mips16_immed (NULL, 0, *imm_reloc - BFD_RELOC_UNUSED,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
imm_expr.X_add_number, true, mips16_small,
|
|
|
|
|
mips16_ext, &ip->insn_opcode,
|
|
|
|
|
&ip->use_extend, &ip->extend);
|
|
|
|
|
imm_expr.X_op = O_absent;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ',':
|
|
|
|
|
if (*s++ == c)
|
|
|
|
|
continue;
|
|
|
|
|
s--;
|
|
|
|
|
switch (*++args)
|
|
|
|
|
{
|
|
|
|
|
case 'v':
|
|
|
|
|
ip->insn_opcode |= lastregno << MIPS16OP_SH_RX;
|
|
|
|
|
continue;
|
|
|
|
|
case 'w':
|
|
|
|
|
ip->insn_opcode |= lastregno << MIPS16OP_SH_RY;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '(':
|
|
|
|
|
case ')':
|
|
|
|
|
if (*s++ == c)
|
|
|
|
|
continue;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'v':
|
|
|
|
|
case 'w':
|
|
|
|
|
if (s[0] != '$')
|
|
|
|
|
{
|
|
|
|
|
if (c == 'v')
|
|
|
|
|
ip->insn_opcode |= lastregno << MIPS16OP_SH_RX;
|
|
|
|
|
else
|
|
|
|
|
ip->insn_opcode |= lastregno << MIPS16OP_SH_RY;
|
|
|
|
|
++args;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
/* Fall through. */
|
|
|
|
|
case 'x':
|
|
|
|
|
case 'y':
|
|
|
|
|
case 'z':
|
|
|
|
|
case 'Z':
|
|
|
|
|
case '0':
|
|
|
|
|
case 'S':
|
|
|
|
|
case 'R':
|
|
|
|
|
case 'X':
|
|
|
|
|
case 'Y':
|
|
|
|
|
if (s[0] != '$')
|
|
|
|
|
break;
|
|
|
|
|
s_reset = s;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISDIGIT (s[1]))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
regno = 0;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
regno *= 10;
|
|
|
|
|
regno += *s - '0';
|
|
|
|
|
++s;
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (regno > 31)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("invalid register number (%d)"), regno);
|
|
|
|
|
regno = 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (s[1] == 'f' && s[2] == 'p')
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
regno = FP;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 's' && s[2] == 'p')
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
regno = SP;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'g' && s[2] == 'p')
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
regno = GP;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'a' && s[2] == 't')
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
regno = AT;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'k' && s[2] == 't' && s[3] == '0')
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
regno = KT0;
|
|
|
|
|
}
|
|
|
|
|
else if (s[1] == 'k' && s[2] == 't' && s[3] == '1')
|
|
|
|
|
{
|
|
|
|
|
s += 4;
|
|
|
|
|
regno = KT1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
++s;
|
|
|
|
|
if (args[1] != *s)
|
|
|
|
|
{
|
|
|
|
|
if (c == 'v' || c == 'w')
|
|
|
|
|
{
|
|
|
|
|
regno = mips16_to_32_reg_map[lastregno];
|
|
|
|
|
s = s_reset;
|
|
|
|
|
args++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case 'x':
|
|
|
|
|
case 'y':
|
|
|
|
|
case 'z':
|
|
|
|
|
case 'v':
|
|
|
|
|
case 'w':
|
|
|
|
|
case 'Z':
|
|
|
|
|
regno = mips32_to_16_reg_map[regno];
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '0':
|
|
|
|
|
if (regno != 0)
|
|
|
|
|
regno = ILLEGAL_REG;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'S':
|
|
|
|
|
if (regno != SP)
|
|
|
|
|
regno = ILLEGAL_REG;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'R':
|
|
|
|
|
if (regno != RA)
|
|
|
|
|
regno = ILLEGAL_REG;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'X':
|
|
|
|
|
case 'Y':
|
|
|
|
|
if (regno == AT && ! mips_opts.noat)
|
|
|
|
|
as_warn (_("used $at without \".set noat\""));
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
internalError ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (regno == ILLEGAL_REG)
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case 'x':
|
|
|
|
|
case 'v':
|
|
|
|
|
ip->insn_opcode |= regno << MIPS16OP_SH_RX;
|
|
|
|
|
break;
|
|
|
|
|
case 'y':
|
|
|
|
|
case 'w':
|
|
|
|
|
ip->insn_opcode |= regno << MIPS16OP_SH_RY;
|
|
|
|
|
break;
|
|
|
|
|
case 'z':
|
|
|
|
|
ip->insn_opcode |= regno << MIPS16OP_SH_RZ;
|
|
|
|
|
break;
|
|
|
|
|
case 'Z':
|
|
|
|
|
ip->insn_opcode |= regno << MIPS16OP_SH_MOVE32Z;
|
|
|
|
|
case '0':
|
|
|
|
|
case 'S':
|
|
|
|
|
case 'R':
|
|
|
|
|
break;
|
|
|
|
|
case 'X':
|
|
|
|
|
ip->insn_opcode |= regno << MIPS16OP_SH_REGR32;
|
|
|
|
|
break;
|
|
|
|
|
case 'Y':
|
|
|
|
|
regno = ((regno & 7) << 2) | ((regno & 0x18) >> 3);
|
|
|
|
|
ip->insn_opcode |= regno << MIPS16OP_SH_REG32R;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
internalError ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
lastregno = regno;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'P':
|
|
|
|
|
if (strncmp (s, "$pc", 3) == 0)
|
|
|
|
|
{
|
|
|
|
|
s += 3;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '<':
|
|
|
|
|
case '>':
|
|
|
|
|
case '[':
|
|
|
|
|
case ']':
|
|
|
|
|
case '4':
|
|
|
|
|
case '5':
|
|
|
|
|
case 'H':
|
|
|
|
|
case 'W':
|
|
|
|
|
case 'D':
|
|
|
|
|
case 'j':
|
|
|
|
|
case '8':
|
|
|
|
|
case 'V':
|
|
|
|
|
case 'C':
|
|
|
|
|
case 'U':
|
|
|
|
|
case 'k':
|
|
|
|
|
case 'K':
|
|
|
|
|
if (s[0] == '%'
|
|
|
|
|
&& strncmp (s + 1, "gprel(", sizeof "gprel(" - 1) == 0)
|
|
|
|
|
{
|
|
|
|
|
/* This is %gprel(SYMBOL). We need to read SYMBOL,
|
|
|
|
|
and generate the appropriate reloc. If the text
|
|
|
|
|
inside %gprel is not a symbol name with an
|
|
|
|
|
optional offset, then we generate a normal reloc
|
|
|
|
|
and will probably fail later. */
|
|
|
|
|
my_getExpression (&imm_expr, s + sizeof "%gprel" - 1);
|
|
|
|
|
if (imm_expr.X_op == O_symbol)
|
|
|
|
|
{
|
|
|
|
|
mips16_ext = true;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = BFD_RELOC_MIPS16_GPREL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = expr_end;
|
|
|
|
|
ip->use_extend = true;
|
|
|
|
|
ip->extend = 0;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Just pick up a normal expression. */
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (imm_expr.X_op == O_register)
|
|
|
|
|
{
|
|
|
|
|
/* What we thought was an expression turned out to
|
|
|
|
|
be a register. */
|
|
|
|
|
|
|
|
|
|
if (s[0] == '(' && args[1] == '(')
|
|
|
|
|
{
|
|
|
|
|
/* It looks like the expression was omitted
|
|
|
|
|
before a register indirection, which means
|
|
|
|
|
that the expression is implicitly zero. We
|
|
|
|
|
still set up imm_expr, so that we handle
|
|
|
|
|
explicit extensions correctly. */
|
|
|
|
|
imm_expr.X_op = O_constant;
|
|
|
|
|
imm_expr.X_add_number = 0;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = (int) BFD_RELOC_UNUSED + c;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We need to relax this instruction. */
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*imm_reloc = (int) BFD_RELOC_UNUSED + c;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'p':
|
|
|
|
|
case 'q':
|
|
|
|
|
case 'A':
|
|
|
|
|
case 'B':
|
|
|
|
|
case 'E':
|
|
|
|
|
/* We use offset_reloc rather than imm_reloc for the PC
|
|
|
|
|
relative operands. This lets macros with both
|
|
|
|
|
immediate and address operands work correctly. */
|
|
|
|
|
my_getExpression (&offset_expr, s);
|
|
|
|
|
|
|
|
|
|
if (offset_expr.X_op == O_register)
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
/* We need to relax this instruction. */
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*offset_reloc = (int) BFD_RELOC_UNUSED + c;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case '6': /* break code */
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
|
|
|
|
if ((unsigned long) imm_expr.X_add_number > 63)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Invalid value for `%s' (%lu)"),
|
|
|
|
|
ip->insn_mo->name,
|
|
|
|
|
(unsigned long) imm_expr.X_add_number);
|
|
|
|
|
imm_expr.X_add_number &= 0x3f;
|
|
|
|
|
}
|
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number << MIPS16OP_SH_IMM6;
|
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'a': /* 26 bit address */
|
|
|
|
|
my_getExpression (&offset_expr, s);
|
|
|
|
|
s = expr_end;
|
2001-10-04 22:07:00 +02:00
|
|
|
|
*offset_reloc = BFD_RELOC_MIPS16_JMP;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ip->insn_opcode <<= 16;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'l': /* register list for entry macro */
|
|
|
|
|
case 'L': /* register list for exit macro */
|
|
|
|
|
{
|
|
|
|
|
int mask;
|
|
|
|
|
|
|
|
|
|
if (c == 'l')
|
|
|
|
|
mask = 0;
|
|
|
|
|
else
|
|
|
|
|
mask = 7 << 3;
|
|
|
|
|
while (*s != '\0')
|
|
|
|
|
{
|
|
|
|
|
int freg, reg1, reg2;
|
|
|
|
|
|
|
|
|
|
while (*s == ' ' || *s == ',')
|
|
|
|
|
++s;
|
|
|
|
|
if (*s != '$')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("can't parse register list"));
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
++s;
|
|
|
|
|
if (*s != 'f')
|
|
|
|
|
freg = 0;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
freg = 1;
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
reg1 = 0;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
reg1 *= 10;
|
|
|
|
|
reg1 += *s - '0';
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
if (*s == ' ')
|
|
|
|
|
++s;
|
|
|
|
|
if (*s != '-')
|
|
|
|
|
reg2 = reg1;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
if (*s != '$')
|
|
|
|
|
break;
|
|
|
|
|
++s;
|
|
|
|
|
if (freg)
|
|
|
|
|
{
|
|
|
|
|
if (*s == 'f')
|
|
|
|
|
++s;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("invalid register list"));
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
reg2 = 0;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
reg2 *= 10;
|
|
|
|
|
reg2 += *s - '0';
|
|
|
|
|
++s;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (freg && reg1 == 0 && reg2 == 0 && c == 'L')
|
|
|
|
|
{
|
|
|
|
|
mask &= ~ (7 << 3);
|
|
|
|
|
mask |= 5 << 3;
|
|
|
|
|
}
|
|
|
|
|
else if (freg && reg1 == 0 && reg2 == 1 && c == 'L')
|
|
|
|
|
{
|
|
|
|
|
mask &= ~ (7 << 3);
|
|
|
|
|
mask |= 6 << 3;
|
|
|
|
|
}
|
|
|
|
|
else if (reg1 == 4 && reg2 >= 4 && reg2 <= 7 && c != 'L')
|
|
|
|
|
mask |= (reg2 - 3) << 3;
|
|
|
|
|
else if (reg1 == 16 && reg2 >= 16 && reg2 <= 17)
|
|
|
|
|
mask |= (reg2 - 15) << 1;
|
|
|
|
|
else if (reg1 == 31 && reg2 == 31)
|
|
|
|
|
mask |= 1;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("invalid register list"));
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/* The mask is filled in in the opcode table for the
|
|
|
|
|
benefit of the disassembler. We remove it before
|
|
|
|
|
applying the actual mask. */
|
|
|
|
|
ip->insn_opcode &= ~ ((7 << 3) << MIPS16OP_SH_IMM6);
|
|
|
|
|
ip->insn_opcode |= mask << MIPS16OP_SH_IMM6;
|
|
|
|
|
}
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'e': /* extend code */
|
|
|
|
|
my_getExpression (&imm_expr, s);
|
|
|
|
|
check_absolute_expr (ip, &imm_expr);
|
|
|
|
|
if ((unsigned long) imm_expr.X_add_number > 0x7ff)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Invalid value for `%s' (%lu)"),
|
|
|
|
|
ip->insn_mo->name,
|
|
|
|
|
(unsigned long) imm_expr.X_add_number);
|
|
|
|
|
imm_expr.X_add_number &= 0x7ff;
|
|
|
|
|
}
|
|
|
|
|
ip->insn_opcode |= imm_expr.X_add_number;
|
|
|
|
|
imm_expr.X_op = O_absent;
|
|
|
|
|
s = expr_end;
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
internalError ();
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Args don't match. */
|
|
|
|
|
if (insn + 1 < &mips16_opcodes[bfd_mips16_num_opcodes] &&
|
|
|
|
|
strcmp (insn->name, insn[1].name) == 0)
|
|
|
|
|
{
|
|
|
|
|
++insn;
|
|
|
|
|
s = argsstart;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
insn_error = _("illegal operands");
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This structure holds information we know about a mips16 immediate
|
|
|
|
|
argument type. */
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
struct mips16_immed_operand
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* The type code used in the argument string in the opcode table. */
|
|
|
|
|
int type;
|
|
|
|
|
/* The number of bits in the short form of the opcode. */
|
|
|
|
|
int nbits;
|
|
|
|
|
/* The number of bits in the extended form of the opcode. */
|
|
|
|
|
int extbits;
|
|
|
|
|
/* The amount by which the short form is shifted when it is used;
|
|
|
|
|
for example, the sw instruction has a shift count of 2. */
|
|
|
|
|
int shift;
|
|
|
|
|
/* The amount by which the short form is shifted when it is stored
|
|
|
|
|
into the instruction code. */
|
|
|
|
|
int op_shift;
|
|
|
|
|
/* Non-zero if the short form is unsigned. */
|
|
|
|
|
int unsp;
|
|
|
|
|
/* Non-zero if the extended form is unsigned. */
|
|
|
|
|
int extu;
|
|
|
|
|
/* Non-zero if the value is PC relative. */
|
|
|
|
|
int pcrel;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* The mips16 immediate operand types. */
|
|
|
|
|
|
|
|
|
|
static const struct mips16_immed_operand mips16_immed_operands[] =
|
|
|
|
|
{
|
|
|
|
|
{ '<', 3, 5, 0, MIPS16OP_SH_RZ, 1, 1, 0 },
|
|
|
|
|
{ '>', 3, 5, 0, MIPS16OP_SH_RX, 1, 1, 0 },
|
|
|
|
|
{ '[', 3, 6, 0, MIPS16OP_SH_RZ, 1, 1, 0 },
|
|
|
|
|
{ ']', 3, 6, 0, MIPS16OP_SH_RX, 1, 1, 0 },
|
|
|
|
|
{ '4', 4, 15, 0, MIPS16OP_SH_IMM4, 0, 0, 0 },
|
|
|
|
|
{ '5', 5, 16, 0, MIPS16OP_SH_IMM5, 1, 0, 0 },
|
|
|
|
|
{ 'H', 5, 16, 1, MIPS16OP_SH_IMM5, 1, 0, 0 },
|
|
|
|
|
{ 'W', 5, 16, 2, MIPS16OP_SH_IMM5, 1, 0, 0 },
|
|
|
|
|
{ 'D', 5, 16, 3, MIPS16OP_SH_IMM5, 1, 0, 0 },
|
|
|
|
|
{ 'j', 5, 16, 0, MIPS16OP_SH_IMM5, 0, 0, 0 },
|
|
|
|
|
{ '8', 8, 16, 0, MIPS16OP_SH_IMM8, 1, 0, 0 },
|
|
|
|
|
{ 'V', 8, 16, 2, MIPS16OP_SH_IMM8, 1, 0, 0 },
|
|
|
|
|
{ 'C', 8, 16, 3, MIPS16OP_SH_IMM8, 1, 0, 0 },
|
|
|
|
|
{ 'U', 8, 16, 0, MIPS16OP_SH_IMM8, 1, 1, 0 },
|
|
|
|
|
{ 'k', 8, 16, 0, MIPS16OP_SH_IMM8, 0, 0, 0 },
|
|
|
|
|
{ 'K', 8, 16, 3, MIPS16OP_SH_IMM8, 0, 0, 0 },
|
|
|
|
|
{ 'p', 8, 16, 0, MIPS16OP_SH_IMM8, 0, 0, 1 },
|
|
|
|
|
{ 'q', 11, 16, 0, MIPS16OP_SH_IMM8, 0, 0, 1 },
|
|
|
|
|
{ 'A', 8, 16, 2, MIPS16OP_SH_IMM8, 1, 0, 1 },
|
|
|
|
|
{ 'B', 5, 16, 3, MIPS16OP_SH_IMM5, 1, 0, 1 },
|
|
|
|
|
{ 'E', 5, 16, 2, MIPS16OP_SH_IMM5, 1, 0, 1 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
#define MIPS16_NUM_IMMED \
|
|
|
|
|
(sizeof mips16_immed_operands / sizeof mips16_immed_operands[0])
|
|
|
|
|
|
|
|
|
|
/* Handle a mips16 instruction with an immediate value. This or's the
|
|
|
|
|
small immediate value into *INSN. It sets *USE_EXTEND to indicate
|
|
|
|
|
whether an extended value is needed; if one is needed, it sets
|
|
|
|
|
*EXTEND to the value. The argument type is TYPE. The value is VAL.
|
|
|
|
|
If SMALL is true, an unextended opcode was explicitly requested.
|
|
|
|
|
If EXT is true, an extended opcode was explicitly requested. If
|
|
|
|
|
WARN is true, warn if EXT does not match reality. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips16_immed (file, line, type, val, warn, small, ext, insn, use_extend,
|
|
|
|
|
extend)
|
|
|
|
|
char *file;
|
|
|
|
|
unsigned int line;
|
|
|
|
|
int type;
|
|
|
|
|
offsetT val;
|
|
|
|
|
boolean warn;
|
|
|
|
|
boolean small;
|
|
|
|
|
boolean ext;
|
|
|
|
|
unsigned long *insn;
|
|
|
|
|
boolean *use_extend;
|
|
|
|
|
unsigned short *extend;
|
|
|
|
|
{
|
|
|
|
|
register const struct mips16_immed_operand *op;
|
|
|
|
|
int mintiny, maxtiny;
|
|
|
|
|
boolean needext;
|
|
|
|
|
|
|
|
|
|
op = mips16_immed_operands;
|
|
|
|
|
while (op->type != type)
|
|
|
|
|
{
|
|
|
|
|
++op;
|
|
|
|
|
assert (op < mips16_immed_operands + MIPS16_NUM_IMMED);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (op->unsp)
|
|
|
|
|
{
|
|
|
|
|
if (type == '<' || type == '>' || type == '[' || type == ']')
|
|
|
|
|
{
|
|
|
|
|
mintiny = 1;
|
|
|
|
|
maxtiny = 1 << op->nbits;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
mintiny = 0;
|
|
|
|
|
maxtiny = (1 << op->nbits) - 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
mintiny = - (1 << (op->nbits - 1));
|
|
|
|
|
maxtiny = (1 << (op->nbits - 1)) - 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Branch offsets have an implicit 0 in the lowest bit. */
|
|
|
|
|
if (type == 'p' || type == 'q')
|
|
|
|
|
val /= 2;
|
|
|
|
|
|
|
|
|
|
if ((val & ((1 << op->shift) - 1)) != 0
|
|
|
|
|
|| val < (mintiny << op->shift)
|
|
|
|
|
|| val > (maxtiny << op->shift))
|
|
|
|
|
needext = true;
|
|
|
|
|
else
|
|
|
|
|
needext = false;
|
|
|
|
|
|
|
|
|
|
if (warn && ext && ! needext)
|
2000-12-05 19:51:08 +01:00
|
|
|
|
as_warn_where (file, line,
|
|
|
|
|
_("extended operand requested but not required"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (small && needext)
|
|
|
|
|
as_bad_where (file, line, _("invalid unextended operand value"));
|
|
|
|
|
|
|
|
|
|
if (small || (! ext && ! needext))
|
|
|
|
|
{
|
|
|
|
|
int insnval;
|
|
|
|
|
|
|
|
|
|
*use_extend = false;
|
|
|
|
|
insnval = ((val >> op->shift) & ((1 << op->nbits) - 1));
|
|
|
|
|
insnval <<= op->op_shift;
|
|
|
|
|
*insn |= insnval;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
long minext, maxext;
|
|
|
|
|
int extval;
|
|
|
|
|
|
|
|
|
|
if (op->extu)
|
|
|
|
|
{
|
|
|
|
|
minext = 0;
|
|
|
|
|
maxext = (1 << op->extbits) - 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
minext = - (1 << (op->extbits - 1));
|
|
|
|
|
maxext = (1 << (op->extbits - 1)) - 1;
|
|
|
|
|
}
|
|
|
|
|
if (val < minext || val > maxext)
|
|
|
|
|
as_bad_where (file, line,
|
|
|
|
|
_("operand value out of range for instruction"));
|
|
|
|
|
|
|
|
|
|
*use_extend = true;
|
|
|
|
|
if (op->extbits == 16)
|
|
|
|
|
{
|
|
|
|
|
extval = ((val >> 11) & 0x1f) | (val & 0x7e0);
|
|
|
|
|
val &= 0x1f;
|
|
|
|
|
}
|
|
|
|
|
else if (op->extbits == 15)
|
|
|
|
|
{
|
|
|
|
|
extval = ((val >> 11) & 0xf) | (val & 0x7f0);
|
|
|
|
|
val &= 0xf;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
extval = ((val & 0x1f) << 6) | (val & 0x20);
|
|
|
|
|
val = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
*extend = (unsigned short) extval;
|
|
|
|
|
*insn |= val;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-10 02:54:53 +02:00
|
|
|
|
static struct percent_op_match
|
|
|
|
|
{
|
|
|
|
|
const char *str;
|
|
|
|
|
const enum small_ex_type type;
|
|
|
|
|
} percent_op[] =
|
|
|
|
|
{
|
|
|
|
|
{"%lo", S_EX_LO},
|
|
|
|
|
#ifdef OBJ_ELF
|
2002-01-16 22:30:47 +01:00
|
|
|
|
{"%call_hi", S_EX_CALL_HI},
|
|
|
|
|
{"%call_lo", S_EX_CALL_LO},
|
2001-10-10 02:54:53 +02:00
|
|
|
|
{"%call16", S_EX_CALL16},
|
|
|
|
|
{"%got_disp", S_EX_GOT_DISP},
|
|
|
|
|
{"%got_page", S_EX_GOT_PAGE},
|
|
|
|
|
{"%got_ofst", S_EX_GOT_OFST},
|
|
|
|
|
{"%got_hi", S_EX_GOT_HI},
|
|
|
|
|
{"%got_lo", S_EX_GOT_LO},
|
2002-01-16 22:30:47 +01:00
|
|
|
|
{"%got", S_EX_GOT},
|
|
|
|
|
{"%gp_rel", S_EX_GP_REL},
|
|
|
|
|
{"%half", S_EX_HALF},
|
2001-10-10 02:54:53 +02:00
|
|
|
|
{"%highest", S_EX_HIGHEST},
|
2002-01-16 22:30:47 +01:00
|
|
|
|
{"%higher", S_EX_HIGHER},
|
|
|
|
|
{"%neg", S_EX_NEG},
|
2001-10-10 02:54:53 +02:00
|
|
|
|
#endif
|
2002-01-16 22:30:47 +01:00
|
|
|
|
{"%hi", S_EX_HI}
|
2001-10-10 02:54:53 +02:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Parse small expression input. STR gets adjusted to eat up whitespace.
|
|
|
|
|
It detects valid "%percent_op(...)" and "($reg)" strings. Percent_op's
|
|
|
|
|
can be nested, this is handled by blanking the innermost, parsing the
|
|
|
|
|
rest by subsequent calls. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
static int
|
2001-10-10 02:54:53 +02:00
|
|
|
|
my_getSmallParser (str, len, nestlevel)
|
|
|
|
|
char **str;
|
|
|
|
|
unsigned int *len;
|
|
|
|
|
int *nestlevel;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-10 02:54:53 +02:00
|
|
|
|
*len = 0;
|
|
|
|
|
*str += strspn (*str, " \t");
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* Check for expression in parentheses. */
|
2001-10-10 02:54:53 +02:00
|
|
|
|
if (**str == '(')
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2001-10-10 02:54:53 +02:00
|
|
|
|
char *b = *str + 1 + strspn (*str + 1, " \t");
|
|
|
|
|
char *e;
|
|
|
|
|
|
|
|
|
|
/* Check for base register. */
|
|
|
|
|
if (b[0] == '$')
|
|
|
|
|
{
|
|
|
|
|
if (strchr (b, ')')
|
|
|
|
|
&& (e = b + strcspn (b, ") \t"))
|
|
|
|
|
&& e - b > 1 && e - b < 4)
|
|
|
|
|
{
|
|
|
|
|
if ((e - b == 3
|
|
|
|
|
&& ((b[1] == 'f' && b[2] == 'p')
|
|
|
|
|
|| (b[1] == 's' && b[2] == 'p')
|
|
|
|
|
|| (b[1] == 'g' && b[2] == 'p')
|
|
|
|
|
|| (b[1] == 'a' && b[2] == 't')
|
|
|
|
|
|| (ISDIGIT (b[1])
|
|
|
|
|
&& ISDIGIT (b[2]))))
|
|
|
|
|
|| (ISDIGIT (b[1])))
|
|
|
|
|
{
|
|
|
|
|
*len = strcspn (*str, ")") + 1;
|
|
|
|
|
return S_EX_REGISTER;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* Check for percent_op (in parentheses). */
|
2001-10-10 02:54:53 +02:00
|
|
|
|
else if (b[0] == '%')
|
|
|
|
|
{
|
|
|
|
|
*str = b;
|
2002-01-16 22:30:47 +01:00
|
|
|
|
return my_getPercentOp (str, len, nestlevel);
|
2001-10-10 02:54:53 +02:00
|
|
|
|
}
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* Some other expression in the parentheses, which can contain
|
|
|
|
|
parentheses itself. Attempt to find the matching one. */
|
|
|
|
|
{
|
|
|
|
|
int pcnt = 1;
|
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
|
|
*len = 1;
|
|
|
|
|
for (s = *str + 1; *s && pcnt; s++, (*len)++)
|
|
|
|
|
{
|
|
|
|
|
if (*s == '(')
|
|
|
|
|
pcnt++;
|
|
|
|
|
else if (*s == ')')
|
|
|
|
|
pcnt--;
|
|
|
|
|
}
|
|
|
|
|
}
|
2001-08-18 19:24:52 +02:00
|
|
|
|
}
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* Check for percent_op (outside of parentheses). */
|
2001-10-10 02:54:53 +02:00
|
|
|
|
else if (*str[0] == '%')
|
2002-01-16 22:30:47 +01:00
|
|
|
|
return my_getPercentOp (str, len, nestlevel);
|
|
|
|
|
|
|
|
|
|
/* Any other expression. */
|
|
|
|
|
return S_EX_NONE;
|
|
|
|
|
}
|
2001-10-10 02:54:53 +02:00
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
static int
|
|
|
|
|
my_getPercentOp (str, len, nestlevel)
|
|
|
|
|
char **str;
|
|
|
|
|
unsigned int *len;
|
|
|
|
|
int *nestlevel;
|
|
|
|
|
{
|
|
|
|
|
char *tmp = *str + 1;
|
|
|
|
|
unsigned int i = 0;
|
2001-10-10 02:54:53 +02:00
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
while (ISALPHA (*tmp) || *tmp == '_')
|
|
|
|
|
{
|
|
|
|
|
*tmp = TOLOWER (*tmp);
|
|
|
|
|
tmp++;
|
|
|
|
|
}
|
|
|
|
|
while (i < (sizeof (percent_op) / sizeof (struct percent_op_match)))
|
|
|
|
|
{
|
|
|
|
|
if (strncmp (*str, percent_op[i].str, strlen (percent_op[i].str)))
|
|
|
|
|
i++;
|
|
|
|
|
else
|
2001-10-10 02:54:53 +02:00
|
|
|
|
{
|
2002-01-16 22:30:47 +01:00
|
|
|
|
int type = percent_op[i].type;
|
2001-10-10 02:54:53 +02:00
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* Only %hi and %lo are allowed for OldABI. */
|
|
|
|
|
if (! HAVE_NEWABI && type != S_EX_HI && type != S_EX_LO)
|
|
|
|
|
return S_EX_NONE;
|
2001-10-10 02:54:53 +02:00
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
*len = strlen (percent_op[i].str);
|
|
|
|
|
(*nestlevel)++;
|
|
|
|
|
return type;
|
2001-10-10 02:54:53 +02:00
|
|
|
|
}
|
2001-08-18 19:24:52 +02:00
|
|
|
|
}
|
2001-10-10 02:54:53 +02:00
|
|
|
|
return S_EX_NONE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
my_getSmallExpression (ep, str)
|
|
|
|
|
expressionS *ep;
|
|
|
|
|
char *str;
|
|
|
|
|
{
|
|
|
|
|
static char *oldstr = NULL;
|
|
|
|
|
int c = S_EX_NONE;
|
|
|
|
|
int oldc;
|
2002-01-16 22:30:47 +01:00
|
|
|
|
int nestlevel = -1;
|
2001-10-10 02:54:53 +02:00
|
|
|
|
unsigned int len;
|
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* Don't update oldstr if the last call had nested percent_op's. We need
|
|
|
|
|
it to parse the outer ones later. */
|
2001-10-10 02:54:53 +02:00
|
|
|
|
if (! oldstr)
|
|
|
|
|
oldstr = str;
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
2001-10-10 02:54:53 +02:00
|
|
|
|
do
|
2001-08-18 19:24:52 +02:00
|
|
|
|
{
|
2001-10-10 02:54:53 +02:00
|
|
|
|
oldc = c;
|
2002-01-16 22:30:47 +01:00
|
|
|
|
c = my_getSmallParser (&str, &len, &nestlevel);
|
2001-10-10 02:54:53 +02:00
|
|
|
|
if (c != S_EX_NONE && c != S_EX_REGISTER)
|
|
|
|
|
str += len;
|
2001-08-18 19:24:52 +02:00
|
|
|
|
}
|
2001-10-10 02:54:53 +02:00
|
|
|
|
while (c != S_EX_NONE && c != S_EX_REGISTER);
|
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
if (nestlevel >= 0)
|
2001-08-18 19:24:52 +02:00
|
|
|
|
{
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* A percent_op was encountered. Don't try to get an expression if
|
|
|
|
|
it is already blanked out. */
|
2001-10-10 02:54:53 +02:00
|
|
|
|
if (*(str + strspn (str + 1, " )")) != ')')
|
|
|
|
|
{
|
|
|
|
|
char save;
|
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* Let my_getExpression() stop at the closing parenthesis. */
|
2001-10-10 02:54:53 +02:00
|
|
|
|
save = *(str + len);
|
|
|
|
|
*(str + len) = '\0';
|
|
|
|
|
my_getExpression (ep, str);
|
|
|
|
|
*(str + len) = save;
|
|
|
|
|
}
|
2002-01-16 22:30:47 +01:00
|
|
|
|
if (nestlevel > 0)
|
2001-10-10 02:54:53 +02:00
|
|
|
|
{
|
2002-01-16 22:30:47 +01:00
|
|
|
|
/* Blank out including the % sign and the proper matching
|
|
|
|
|
parenthesis. */
|
|
|
|
|
int pcnt = 1;
|
|
|
|
|
char *s = strrchr (oldstr, '%');
|
|
|
|
|
char *end;
|
|
|
|
|
|
|
|
|
|
for (end = strchr (s, '(') + 1; *end && pcnt; end++)
|
|
|
|
|
{
|
|
|
|
|
if (*end == '(')
|
|
|
|
|
pcnt++;
|
|
|
|
|
else if (*end == ')')
|
|
|
|
|
pcnt--;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
memset (s, ' ', end - s);
|
2001-10-10 02:54:53 +02:00
|
|
|
|
str = oldstr;
|
|
|
|
|
}
|
|
|
|
|
else
|
2002-01-16 22:30:47 +01:00
|
|
|
|
expr_end = str + len;
|
|
|
|
|
|
2001-10-10 02:54:53 +02:00
|
|
|
|
c = oldc;
|
2001-08-18 19:24:52 +02:00
|
|
|
|
}
|
2001-10-10 02:54:53 +02:00
|
|
|
|
else if (c == S_EX_NONE)
|
2001-08-18 19:24:52 +02:00
|
|
|
|
{
|
2001-10-10 02:54:53 +02:00
|
|
|
|
my_getExpression (ep, str);
|
2001-08-18 19:24:52 +02:00
|
|
|
|
}
|
2001-10-10 02:54:53 +02:00
|
|
|
|
else if (c == S_EX_REGISTER)
|
2001-08-18 19:24:52 +02:00
|
|
|
|
{
|
2001-10-10 02:54:53 +02:00
|
|
|
|
ep->X_op = O_constant;
|
|
|
|
|
expr_end = str;
|
|
|
|
|
ep->X_add_symbol = NULL;
|
|
|
|
|
ep->X_op_symbol = NULL;
|
|
|
|
|
ep->X_add_number = 0;
|
2001-08-18 19:24:52 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2001-10-10 02:54:53 +02:00
|
|
|
|
as_fatal(_("internal error"));
|
2001-08-18 19:24:52 +02:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2002-01-16 22:30:47 +01:00
|
|
|
|
if (nestlevel <= 0)
|
|
|
|
|
/* All percent_op's have been handled. */
|
2001-10-10 02:54:53 +02:00
|
|
|
|
oldstr = NULL;
|
2001-08-18 19:24:52 +02:00
|
|
|
|
|
|
|
|
|
return c;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
my_getExpression (ep, str)
|
|
|
|
|
expressionS *ep;
|
|
|
|
|
char *str;
|
|
|
|
|
{
|
|
|
|
|
char *save_in;
|
2001-06-08 08:07:13 +02:00
|
|
|
|
valueT val;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
save_in = input_line_pointer;
|
|
|
|
|
input_line_pointer = str;
|
|
|
|
|
expression (ep);
|
|
|
|
|
expr_end = input_line_pointer;
|
|
|
|
|
input_line_pointer = save_in;
|
|
|
|
|
|
|
|
|
|
/* If we are in mips16 mode, and this is an expression based on `.',
|
|
|
|
|
then we bump the value of the symbol by 1 since that is how other
|
|
|
|
|
text symbols are handled. We don't bother to handle complex
|
|
|
|
|
expressions, just `.' plus or minus a constant. */
|
|
|
|
|
if (mips_opts.mips16
|
|
|
|
|
&& ep->X_op == O_symbol
|
|
|
|
|
&& strcmp (S_GET_NAME (ep->X_add_symbol), FAKE_LABEL_NAME) == 0
|
|
|
|
|
&& S_GET_SEGMENT (ep->X_add_symbol) == now_seg
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
&& symbol_get_frag (ep->X_add_symbol) == frag_now
|
|
|
|
|
&& symbol_constant_p (ep->X_add_symbol)
|
2001-06-08 08:07:13 +02:00
|
|
|
|
&& (val = S_GET_VALUE (ep->X_add_symbol)) == frag_now_fix ())
|
|
|
|
|
S_SET_VALUE (ep->X_add_symbol, val + 1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Turn a string in input_line_pointer into a floating point constant
|
2000-07-07 18:58:25 +02:00
|
|
|
|
of type TYPE, and store the appropriate bytes in *LITP. The number
|
|
|
|
|
of LITTLENUMS emitted is stored in *SIZEP. An error message is
|
1999-05-03 09:29:11 +02:00
|
|
|
|
returned, or NULL on OK. */
|
|
|
|
|
|
|
|
|
|
char *
|
|
|
|
|
md_atof (type, litP, sizeP)
|
|
|
|
|
int type;
|
|
|
|
|
char *litP;
|
|
|
|
|
int *sizeP;
|
|
|
|
|
{
|
|
|
|
|
int prec;
|
|
|
|
|
LITTLENUM_TYPE words[4];
|
|
|
|
|
char *t;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
switch (type)
|
|
|
|
|
{
|
|
|
|
|
case 'f':
|
|
|
|
|
prec = 2;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'd':
|
|
|
|
|
prec = 4;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
*sizeP = 0;
|
|
|
|
|
return _("bad call to md_atof");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
t = atof_ieee (input_line_pointer, type, words);
|
|
|
|
|
if (t)
|
|
|
|
|
input_line_pointer = t;
|
|
|
|
|
|
|
|
|
|
*sizeP = prec * 2;
|
|
|
|
|
|
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
for (i = prec - 1; i >= 0; i--)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (litP, (valueT) words[i], 2);
|
|
|
|
|
litP += 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
for (i = 0; i < prec; i++)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (litP, (valueT) words[i], 2);
|
|
|
|
|
litP += 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
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);
|
|
|
|
|
}
|
|
|
|
|
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
2001-10-03 22:30:15 +02:00
|
|
|
|
static int support_64bit_objects(void)
|
|
|
|
|
{
|
|
|
|
|
const char **list, **l;
|
|
|
|
|
|
|
|
|
|
list = bfd_target_list ();
|
|
|
|
|
for (l = list; *l != NULL; l++)
|
|
|
|
|
#ifdef TE_TMIPS
|
|
|
|
|
/* This is traditional mips */
|
|
|
|
|
if (strcmp (*l, "elf64-tradbigmips") == 0
|
|
|
|
|
|| strcmp (*l, "elf64-tradlittlemips") == 0)
|
|
|
|
|
#else
|
|
|
|
|
if (strcmp (*l, "elf64-bigmips") == 0
|
|
|
|
|
|| strcmp (*l, "elf64-littlemips") == 0)
|
|
|
|
|
#endif
|
|
|
|
|
break;
|
|
|
|
|
free (list);
|
|
|
|
|
return (*l != NULL);
|
|
|
|
|
}
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#endif /* OBJ_ELF */
|
2001-10-03 22:30:15 +02:00
|
|
|
|
|
2001-06-09 07:24:39 +02:00
|
|
|
|
CONST char *md_shortopts = "nO::g::G:";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
struct option md_longopts[] =
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#define OPTION_MIPS1 (OPTION_MD_BASE + 1)
|
|
|
|
|
{"mips0", no_argument, NULL, OPTION_MIPS1},
|
|
|
|
|
{"mips1", no_argument, NULL, OPTION_MIPS1},
|
|
|
|
|
#define OPTION_MIPS2 (OPTION_MD_BASE + 2)
|
|
|
|
|
{"mips2", no_argument, NULL, OPTION_MIPS2},
|
|
|
|
|
#define OPTION_MIPS3 (OPTION_MD_BASE + 3)
|
|
|
|
|
{"mips3", no_argument, NULL, OPTION_MIPS3},
|
|
|
|
|
#define OPTION_MIPS4 (OPTION_MD_BASE + 4)
|
|
|
|
|
{"mips4", no_argument, NULL, OPTION_MIPS4},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_MIPS5 (OPTION_MD_BASE + 5)
|
|
|
|
|
{"mips5", no_argument, NULL, OPTION_MIPS5},
|
|
|
|
|
#define OPTION_MIPS32 (OPTION_MD_BASE + 6)
|
|
|
|
|
{"mips32", no_argument, NULL, OPTION_MIPS32},
|
|
|
|
|
#define OPTION_MIPS64 (OPTION_MD_BASE + 7)
|
|
|
|
|
{"mips64", no_argument, NULL, OPTION_MIPS64},
|
|
|
|
|
#define OPTION_MEMBEDDED_PIC (OPTION_MD_BASE + 8)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"membedded-pic", no_argument, NULL, OPTION_MEMBEDDED_PIC},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_TRAP (OPTION_MD_BASE + 9)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"trap", no_argument, NULL, OPTION_TRAP},
|
|
|
|
|
{"no-break", no_argument, NULL, OPTION_TRAP},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_BREAK (OPTION_MD_BASE + 10)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"break", no_argument, NULL, OPTION_BREAK},
|
|
|
|
|
{"no-trap", no_argument, NULL, OPTION_BREAK},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_EB (OPTION_MD_BASE + 11)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"EB", no_argument, NULL, OPTION_EB},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_EL (OPTION_MD_BASE + 12)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"EL", no_argument, NULL, OPTION_EL},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_MIPS16 (OPTION_MD_BASE + 13)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"mips16", no_argument, NULL, OPTION_MIPS16},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_NO_MIPS16 (OPTION_MD_BASE + 14)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{"no-mips16", no_argument, NULL, OPTION_NO_MIPS16},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_M7000_HILO_FIX (OPTION_MD_BASE + 15)
|
2000-02-21 21:00:33 +01:00
|
|
|
|
{"mfix7000", no_argument, NULL, OPTION_M7000_HILO_FIX},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_NO_M7000_HILO_FIX (OPTION_MD_BASE + 16)
|
2000-02-21 21:00:33 +01:00
|
|
|
|
{"no-fix-7000", no_argument, NULL, OPTION_NO_M7000_HILO_FIX},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_FP32 (OPTION_MD_BASE + 17)
|
|
|
|
|
{"mfp32", no_argument, NULL, OPTION_FP32},
|
|
|
|
|
#define OPTION_GP32 (OPTION_MD_BASE + 18)
|
2000-02-22 15:43:54 +01:00
|
|
|
|
{"mgp32", no_argument, NULL, OPTION_GP32},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_CONSTRUCT_FLOATS (OPTION_MD_BASE + 19)
|
2000-07-15 00:23:33 +02:00
|
|
|
|
{"construct-floats", no_argument, NULL, OPTION_CONSTRUCT_FLOATS},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_NO_CONSTRUCT_FLOATS (OPTION_MD_BASE + 20)
|
2000-07-15 00:23:33 +02:00
|
|
|
|
{"no-construct-floats", no_argument, NULL, OPTION_NO_CONSTRUCT_FLOATS},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_MARCH (OPTION_MD_BASE + 21)
|
2001-06-29 23:27:43 +02:00
|
|
|
|
{"march", required_argument, NULL, OPTION_MARCH},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_MTUNE (OPTION_MD_BASE + 22)
|
2001-06-29 23:27:43 +02:00
|
|
|
|
{"mtune", required_argument, NULL, OPTION_MTUNE},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_MCPU (OPTION_MD_BASE + 23)
|
|
|
|
|
{"mcpu", required_argument, NULL, OPTION_MCPU},
|
|
|
|
|
#define OPTION_M4650 (OPTION_MD_BASE + 24)
|
|
|
|
|
{"m4650", no_argument, NULL, OPTION_M4650},
|
|
|
|
|
#define OPTION_NO_M4650 (OPTION_MD_BASE + 25)
|
|
|
|
|
{"no-m4650", no_argument, NULL, OPTION_NO_M4650},
|
|
|
|
|
#define OPTION_M4010 (OPTION_MD_BASE + 26)
|
|
|
|
|
{"m4010", no_argument, NULL, OPTION_M4010},
|
|
|
|
|
#define OPTION_NO_M4010 (OPTION_MD_BASE + 27)
|
|
|
|
|
{"no-m4010", no_argument, NULL, OPTION_NO_M4010},
|
|
|
|
|
#define OPTION_M4100 (OPTION_MD_BASE + 28)
|
|
|
|
|
{"m4100", no_argument, NULL, OPTION_M4100},
|
|
|
|
|
#define OPTION_NO_M4100 (OPTION_MD_BASE + 29)
|
|
|
|
|
{"no-m4100", no_argument, NULL, OPTION_NO_M4100},
|
|
|
|
|
#define OPTION_M3900 (OPTION_MD_BASE + 30)
|
|
|
|
|
{"m3900", no_argument, NULL, OPTION_M3900},
|
|
|
|
|
#define OPTION_NO_M3900 (OPTION_MD_BASE + 31)
|
|
|
|
|
{"no-m3900", no_argument, NULL, OPTION_NO_M3900},
|
|
|
|
|
#define OPTION_GP64 (OPTION_MD_BASE + 32)
|
|
|
|
|
{"mgp64", no_argument, NULL, OPTION_GP64},
|
2000-09-14 03:47:38 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_ELF_BASE (OPTION_MD_BASE + 33)
|
2000-09-14 03:47:38 +02:00
|
|
|
|
#define OPTION_CALL_SHARED (OPTION_ELF_BASE + 0)
|
|
|
|
|
{"KPIC", no_argument, NULL, OPTION_CALL_SHARED},
|
|
|
|
|
{"call_shared", no_argument, NULL, OPTION_CALL_SHARED},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_NON_SHARED (OPTION_ELF_BASE + 1)
|
2000-09-14 03:47:38 +02:00
|
|
|
|
{"non_shared", no_argument, NULL, OPTION_NON_SHARED},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_XGOT (OPTION_ELF_BASE + 2)
|
2000-09-14 03:47:38 +02:00
|
|
|
|
{"xgot", no_argument, NULL, OPTION_XGOT},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_MABI (OPTION_ELF_BASE + 3)
|
|
|
|
|
{"mabi", required_argument, NULL, OPTION_MABI},
|
|
|
|
|
#define OPTION_32 (OPTION_ELF_BASE + 4)
|
2000-09-14 03:47:38 +02:00
|
|
|
|
{"32", no_argument, NULL, OPTION_32},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_N32 (OPTION_ELF_BASE + 5)
|
2001-10-03 22:30:15 +02:00
|
|
|
|
{"n32", no_argument, NULL, OPTION_N32},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#define OPTION_64 (OPTION_ELF_BASE + 6)
|
2000-09-14 03:47:38 +02:00
|
|
|
|
{"64", no_argument, NULL, OPTION_64},
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#endif /* OBJ_ELF */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{NULL, no_argument, NULL, 0}
|
|
|
|
|
};
|
2000-09-14 03:47:38 +02:00
|
|
|
|
size_t md_longopts_size = sizeof (md_longopts);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
md_parse_option (c, arg)
|
|
|
|
|
int c;
|
|
|
|
|
char *arg;
|
|
|
|
|
{
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
2000-07-15 00:23:33 +02:00
|
|
|
|
case OPTION_CONSTRUCT_FLOATS:
|
|
|
|
|
mips_disable_float_construction = 0;
|
|
|
|
|
break;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
2000-07-15 00:23:33 +02:00
|
|
|
|
case OPTION_NO_CONSTRUCT_FLOATS:
|
|
|
|
|
mips_disable_float_construction = 1;
|
|
|
|
|
break;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OPTION_TRAP:
|
|
|
|
|
mips_trap = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_BREAK:
|
|
|
|
|
mips_trap = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_EB:
|
|
|
|
|
target_big_endian = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_EL:
|
|
|
|
|
target_big_endian = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
2001-06-09 07:24:39 +02:00
|
|
|
|
case 'n':
|
|
|
|
|
warn_nops = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'O':
|
|
|
|
|
if (arg && arg[1] == '0')
|
|
|
|
|
mips_optimize = 1;
|
|
|
|
|
else
|
|
|
|
|
mips_optimize = 2;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'g':
|
|
|
|
|
if (arg == NULL)
|
|
|
|
|
mips_debug = 2;
|
|
|
|
|
else
|
|
|
|
|
mips_debug = atoi (arg);
|
|
|
|
|
/* When the MIPS assembler sees -g or -g2, it does not do
|
|
|
|
|
optimizations which limit full symbolic debugging. We take
|
|
|
|
|
that to be equivalent to -O0. */
|
|
|
|
|
if (mips_debug == 2)
|
|
|
|
|
mips_optimize = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_MIPS1:
|
2000-12-01 22:35:38 +01:00
|
|
|
|
mips_opts.isa = ISA_MIPS1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_MIPS2:
|
2000-12-01 22:35:38 +01:00
|
|
|
|
mips_opts.isa = ISA_MIPS2;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_MIPS3:
|
2000-12-01 22:35:38 +01:00
|
|
|
|
mips_opts.isa = ISA_MIPS3;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_MIPS4:
|
2000-12-01 22:35:38 +01:00
|
|
|
|
mips_opts.isa = ISA_MIPS4;
|
|
|
|
|
break;
|
|
|
|
|
|
2000-12-02 01:55:22 +01:00
|
|
|
|
case OPTION_MIPS5:
|
|
|
|
|
mips_opts.isa = ISA_MIPS5;
|
|
|
|
|
break;
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
case OPTION_MIPS32:
|
|
|
|
|
mips_opts.isa = ISA_MIPS32;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
2000-12-02 01:55:22 +01:00
|
|
|
|
case OPTION_MIPS64:
|
|
|
|
|
mips_opts.isa = ISA_MIPS64;
|
|
|
|
|
break;
|
|
|
|
|
|
2001-06-29 23:27:43 +02:00
|
|
|
|
case OPTION_MTUNE:
|
|
|
|
|
case OPTION_MARCH:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OPTION_MCPU:
|
|
|
|
|
{
|
2001-06-29 23:27:43 +02:00
|
|
|
|
int cpu = CPU_UNKNOWN;
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
/* Identify the processor type. */
|
2001-06-29 23:27:43 +02:00
|
|
|
|
if (strcasecmp (arg, "default") != 0)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2000-12-01 22:35:38 +01:00
|
|
|
|
const struct mips_cpu_info *ci;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
ci = mips_cpu_info_from_name (arg);
|
|
|
|
|
if (ci == NULL || ci->is_isa)
|
2001-06-29 23:27:43 +02:00
|
|
|
|
{
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case OPTION_MTUNE:
|
|
|
|
|
as_fatal (_("invalid architecture -mtune=%s"), arg);
|
|
|
|
|
break;
|
|
|
|
|
case OPTION_MARCH:
|
|
|
|
|
as_fatal (_("invalid architecture -march=%s"), arg);
|
|
|
|
|
break;
|
|
|
|
|
case OPTION_MCPU:
|
|
|
|
|
as_fatal (_("invalid architecture -mcpu=%s"), arg);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-12-01 22:35:38 +01:00
|
|
|
|
else
|
2001-06-29 23:27:43 +02:00
|
|
|
|
cpu = ci->cpu;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case OPTION_MTUNE:
|
2001-08-07 14:46:22 +02:00
|
|
|
|
if (mips_tune != CPU_UNKNOWN && mips_tune != cpu)
|
|
|
|
|
as_warn(_("A different -mtune= was already specified, is now "
|
|
|
|
|
"-mtune=%s"), arg);
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_tune = cpu;
|
|
|
|
|
break;
|
|
|
|
|
case OPTION_MARCH:
|
2001-08-07 14:46:22 +02:00
|
|
|
|
if (mips_arch != CPU_UNKNOWN && mips_arch != cpu)
|
|
|
|
|
as_warn(_("A different -march= was already specified, is now "
|
|
|
|
|
"-march=%s"), arg);
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_arch = cpu;
|
|
|
|
|
break;
|
|
|
|
|
case OPTION_MCPU:
|
2001-08-07 14:46:22 +02:00
|
|
|
|
if (mips_cpu != CPU_UNKNOWN && mips_cpu != cpu)
|
|
|
|
|
as_warn(_("A different -mcpu= was already specified, is now "
|
|
|
|
|
"-mcpu=%s"), arg);
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_cpu = cpu;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_M4650:
|
2001-08-07 14:46:22 +02:00
|
|
|
|
if ((mips_arch != CPU_UNKNOWN && mips_arch != CPU_R4650)
|
|
|
|
|
|| (mips_tune != CPU_UNKNOWN && mips_tune != CPU_R4650))
|
|
|
|
|
as_warn(_("A different -march= or -mtune= was already specified, "
|
|
|
|
|
"is now -m4650"));
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_arch = CPU_R4650;
|
|
|
|
|
mips_tune = CPU_R4650;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_NO_M4650:
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_M4010:
|
2001-08-07 14:46:22 +02:00
|
|
|
|
if ((mips_arch != CPU_UNKNOWN && mips_arch != CPU_R4010)
|
|
|
|
|
|| (mips_tune != CPU_UNKNOWN && mips_tune != CPU_R4010))
|
|
|
|
|
as_warn(_("A different -march= or -mtune= was already specified, "
|
|
|
|
|
"is now -m4010"));
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_arch = CPU_R4010;
|
|
|
|
|
mips_tune = CPU_R4010;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_NO_M4010:
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_M4100:
|
2001-08-07 14:46:22 +02:00
|
|
|
|
if ((mips_arch != CPU_UNKNOWN && mips_arch != CPU_VR4100)
|
|
|
|
|
|| (mips_tune != CPU_UNKNOWN && mips_tune != CPU_VR4100))
|
|
|
|
|
as_warn(_("A different -march= or -mtune= was already specified, "
|
|
|
|
|
"is now -m4100"));
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_arch = CPU_VR4100;
|
|
|
|
|
mips_tune = CPU_VR4100;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_NO_M4100:
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_M3900:
|
2001-08-07 14:46:22 +02:00
|
|
|
|
if ((mips_arch != CPU_UNKNOWN && mips_arch != CPU_R3900)
|
|
|
|
|
|| (mips_tune != CPU_UNKNOWN && mips_tune != CPU_R3900))
|
|
|
|
|
as_warn(_("A different -march= or -mtune= was already specified, "
|
|
|
|
|
"is now -m3900"));
|
2001-06-29 23:27:43 +02:00
|
|
|
|
mips_arch = CPU_R3900;
|
|
|
|
|
mips_tune = CPU_R3900;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OPTION_NO_M3900:
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_MIPS16:
|
|
|
|
|
mips_opts.mips16 = 1;
|
|
|
|
|
mips_no_prev_insn (false);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_NO_MIPS16:
|
|
|
|
|
mips_opts.mips16 = 0;
|
|
|
|
|
mips_no_prev_insn (false);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_MEMBEDDED_PIC:
|
|
|
|
|
mips_pic = EMBEDDED_PIC;
|
|
|
|
|
if (USE_GLOBAL_POINTER_OPT && g_switch_seen)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-G may not be used with embedded PIC code"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
g_switch_value = 0x7fffffff;
|
|
|
|
|
break;
|
|
|
|
|
|
2001-02-10 22:41:12 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* When generating ELF code, we permit -KPIC and -call_shared to
|
|
|
|
|
select SVR4_PIC, and -non_shared to select no PIC. This is
|
|
|
|
|
intended to be compatible with Irix 5. */
|
|
|
|
|
case OPTION_CALL_SHARED:
|
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-call_shared is supported only for ELF format"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
mips_pic = SVR4_PIC;
|
|
|
|
|
if (g_switch_seen && g_switch_value != 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-G may not be used with SVR4 PIC code"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
g_switch_value = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_NON_SHARED:
|
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-non_shared is supported only for ELF format"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
mips_pic = NO_PIC;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
/* The -xgot option tells the assembler to use 32 offsets when
|
|
|
|
|
accessing the got in SVR4_PIC mode. It is for Irix
|
|
|
|
|
compatibility. */
|
|
|
|
|
case OPTION_XGOT:
|
|
|
|
|
mips_big_got = 1;
|
|
|
|
|
break;
|
2001-02-10 22:41:12 +01:00
|
|
|
|
#endif /* OBJ_ELF */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
case 'G':
|
|
|
|
|
if (! USE_GLOBAL_POINTER_OPT)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-G is not supported for this configuration"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC || mips_pic == EMBEDDED_PIC)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-G may not be used with SVR4 or embedded PIC code"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
g_switch_value = atoi (arg);
|
|
|
|
|
g_switch_seen = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
2001-02-10 22:41:12 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
2001-12-04 14:27:56 +01:00
|
|
|
|
/* The -32, -n32 and -64 options are shortcuts for -mabi=32, -mabi=n32
|
|
|
|
|
and -mabi=64. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OPTION_32:
|
2001-12-04 14:27:56 +01:00
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-32 is supported for ELF format only"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = O32_ABI;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
2001-10-03 22:30:15 +02:00
|
|
|
|
case OPTION_N32:
|
2001-12-04 14:27:56 +01:00
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-n32 is supported for ELF format only"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = N32_ABI;
|
2001-10-03 22:30:15 +02:00
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-10-03 22:30:15 +02:00
|
|
|
|
case OPTION_64:
|
2001-12-04 14:27:56 +01:00
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-64 is supported for ELF format only"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = N64_ABI;
|
2001-10-03 22:30:15 +02:00
|
|
|
|
if (! support_64bit_objects())
|
|
|
|
|
as_fatal (_("No compiled in support for 64 bit object file format"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#endif /* OBJ_ELF */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-02-22 15:43:54 +01:00
|
|
|
|
case OPTION_GP32:
|
2001-11-12 17:54:54 +01:00
|
|
|
|
file_mips_gp32 = 1;
|
|
|
|
|
if (mips_opts.abi != O32_ABI)
|
|
|
|
|
mips_opts.abi = NO_ABI;
|
2000-02-22 15:43:54 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_GP64:
|
2001-11-12 17:54:54 +01:00
|
|
|
|
file_mips_gp32 = 0;
|
|
|
|
|
if (mips_opts.abi == O32_ABI)
|
|
|
|
|
mips_opts.abi = NO_ABI;
|
2000-02-22 15:43:54 +01:00
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-08-02 12:15:24 +02:00
|
|
|
|
case OPTION_FP32:
|
2001-11-12 17:54:54 +01:00
|
|
|
|
file_mips_fp32 = 1;
|
|
|
|
|
if (mips_opts.abi != O32_ABI)
|
|
|
|
|
mips_opts.abi = NO_ABI;
|
2001-08-02 12:15:24 +02:00
|
|
|
|
break;
|
|
|
|
|
|
2001-11-12 23:22:20 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OPTION_MABI:
|
2001-12-04 14:27:56 +01:00
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("-mabi is supported for ELF format only"));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
2001-10-03 22:30:15 +02:00
|
|
|
|
if (strcmp (arg, "32") == 0)
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = O32_ABI;
|
2001-10-03 22:30:15 +02:00
|
|
|
|
else if (strcmp (arg, "o64") == 0)
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = O64_ABI;
|
2001-10-03 22:30:15 +02:00
|
|
|
|
else if (strcmp (arg, "n32") == 0)
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = N32_ABI;
|
2001-10-03 22:30:15 +02:00
|
|
|
|
else if (strcmp (arg, "64") == 0)
|
|
|
|
|
{
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = N64_ABI;
|
2001-10-03 22:30:15 +02:00
|
|
|
|
if (! support_64bit_objects())
|
|
|
|
|
as_fatal (_("No compiled in support for 64 bit object file "
|
|
|
|
|
"format"));
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (arg, "eabi") == 0)
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = EABI_ABI;
|
2001-10-03 22:30:15 +02:00
|
|
|
|
else
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.abi = NO_ABI;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
2001-10-03 22:30:15 +02:00
|
|
|
|
#endif /* OBJ_ELF */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-02-21 21:00:33 +01:00
|
|
|
|
case OPTION_M7000_HILO_FIX:
|
|
|
|
|
mips_7000_hilo_fix = true;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case OPTION_NO_M7000_HILO_FIX:
|
|
|
|
|
mips_7000_hilo_fix = false;
|
|
|
|
|
break;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
default:
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
show (stream, string, col_p, first_p)
|
|
|
|
|
FILE *stream;
|
|
|
|
|
char *string;
|
|
|
|
|
int *col_p;
|
|
|
|
|
int *first_p;
|
|
|
|
|
{
|
|
|
|
|
if (*first_p)
|
|
|
|
|
{
|
|
|
|
|
fprintf (stream, "%24s", "");
|
|
|
|
|
*col_p = 24;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fprintf (stream, ", ");
|
|
|
|
|
*col_p += 2;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (*col_p + strlen (string) > 72)
|
|
|
|
|
{
|
|
|
|
|
fprintf (stream, "\n%24s", "");
|
|
|
|
|
*col_p = 24;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fprintf (stream, "%s", string);
|
|
|
|
|
*col_p += strlen (string);
|
|
|
|
|
|
|
|
|
|
*first_p = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_show_usage (stream)
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
int column, first;
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
fprintf (stream, _("\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
MIPS options:\n\
|
|
|
|
|
-membedded-pic generate embedded position independent code\n\
|
|
|
|
|
-EB generate big endian output\n\
|
|
|
|
|
-EL generate little endian output\n\
|
2001-08-07 15:15:26 +02:00
|
|
|
|
-g, -g2 do not remove unneeded NOPs or swap branches\n\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
-G NUM allow referencing objects up to NUM bytes\n\
|
|
|
|
|
implicitly with the gp register [default 8]\n"));
|
2000-12-05 19:51:08 +01:00
|
|
|
|
fprintf (stream, _("\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
-mips1 generate MIPS ISA I instructions\n\
|
|
|
|
|
-mips2 generate MIPS ISA II instructions\n\
|
|
|
|
|
-mips3 generate MIPS ISA III instructions\n\
|
|
|
|
|
-mips4 generate MIPS ISA IV instructions\n\
|
2000-12-02 01:55:22 +01:00
|
|
|
|
-mips5 generate MIPS ISA V instructions\n\
|
2000-12-01 22:35:38 +01:00
|
|
|
|
-mips32 generate MIPS32 ISA instructions\n\
|
2000-12-02 01:55:22 +01:00
|
|
|
|
-mips64 generate MIPS64 ISA instructions\n\
|
2001-06-29 23:27:43 +02:00
|
|
|
|
-march=CPU/-mtune=CPU generate code/schedule for CPU, where CPU is one of:\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
first = 1;
|
|
|
|
|
|
|
|
|
|
show (stream, "2000", &column, &first);
|
|
|
|
|
show (stream, "3000", &column, &first);
|
|
|
|
|
show (stream, "3900", &column, &first);
|
|
|
|
|
show (stream, "4000", &column, &first);
|
|
|
|
|
show (stream, "4010", &column, &first);
|
|
|
|
|
show (stream, "4100", &column, &first);
|
|
|
|
|
show (stream, "4111", &column, &first);
|
|
|
|
|
show (stream, "4300", &column, &first);
|
|
|
|
|
show (stream, "4400", &column, &first);
|
|
|
|
|
show (stream, "4600", &column, &first);
|
|
|
|
|
show (stream, "4650", &column, &first);
|
|
|
|
|
show (stream, "5000", &column, &first);
|
2001-07-04 14:32:07 +02:00
|
|
|
|
show (stream, "5200", &column, &first);
|
|
|
|
|
show (stream, "5230", &column, &first);
|
|
|
|
|
show (stream, "5231", &column, &first);
|
|
|
|
|
show (stream, "5261", &column, &first);
|
|
|
|
|
show (stream, "5721", &column, &first);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
show (stream, "6000", &column, &first);
|
|
|
|
|
show (stream, "8000", &column, &first);
|
|
|
|
|
show (stream, "10000", &column, &first);
|
2001-05-23 19:26:40 +02:00
|
|
|
|
show (stream, "12000", &column, &first);
|
2001-10-21 07:58:55 +02:00
|
|
|
|
show (stream, "sb1", &column, &first);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fputc ('\n', stream);
|
|
|
|
|
|
|
|
|
|
fprintf (stream, _("\
|
2001-06-29 23:27:43 +02:00
|
|
|
|
-mCPU equivalent to -march=CPU -mtune=CPU. Deprecated.\n\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
-no-mCPU don't generate code specific to CPU.\n\
|
|
|
|
|
For -mCPU and -no-mCPU, CPU must be one of:\n"));
|
|
|
|
|
|
|
|
|
|
first = 1;
|
|
|
|
|
|
|
|
|
|
show (stream, "3900", &column, &first);
|
|
|
|
|
show (stream, "4010", &column, &first);
|
|
|
|
|
show (stream, "4100", &column, &first);
|
|
|
|
|
show (stream, "4650", &column, &first);
|
|
|
|
|
fputc ('\n', stream);
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
fprintf (stream, _("\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
-mips16 generate mips16 instructions\n\
|
|
|
|
|
-no-mips16 do not generate mips16 instructions\n"));
|
2000-12-05 19:51:08 +01:00
|
|
|
|
fprintf (stream, _("\
|
2001-08-02 12:15:24 +02:00
|
|
|
|
-mgp32 use 32-bit GPRs, regardless of the chosen ISA\n\
|
|
|
|
|
-mfp32 use 32-bit FPRs, regardless of the chosen ISA\n\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
-O0 remove unneeded NOPs, do not swap branches\n\
|
|
|
|
|
-O remove unneeded NOPs and swap branches\n\
|
2001-06-11 22:40:36 +02:00
|
|
|
|
-n warn about NOPs generated from macros\n\
|
2000-07-15 00:23:33 +02:00
|
|
|
|
--[no-]construct-floats [dis]allow floating point values to be constructed\n\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
--trap, --no-break trap exception on div by 0 and mult overflow\n\
|
|
|
|
|
--break, --no-trap break exception on div by 0 and mult overflow\n"));
|
|
|
|
|
#ifdef OBJ_ELF
|
2000-12-05 19:51:08 +01:00
|
|
|
|
fprintf (stream, _("\
|
1999-05-03 09:29:11 +02:00
|
|
|
|
-KPIC, -call_shared generate SVR4 position independent code\n\
|
|
|
|
|
-non_shared do not generate position independent code\n\
|
|
|
|
|
-xgot assume a 32 bit GOT\n\
|
2001-12-04 14:27:56 +01:00
|
|
|
|
-mabi=ABI create ABI conformant object file for:\n"));
|
|
|
|
|
|
|
|
|
|
first = 1;
|
|
|
|
|
|
|
|
|
|
show (stream, "32", &column, &first);
|
|
|
|
|
show (stream, "o64", &column, &first);
|
|
|
|
|
show (stream, "n32", &column, &first);
|
|
|
|
|
show (stream, "64", &column, &first);
|
|
|
|
|
show (stream, "eabi", &column, &first);
|
|
|
|
|
|
|
|
|
|
fputc ('\n', stream);
|
|
|
|
|
|
|
|
|
|
fprintf (stream, _("\
|
2001-10-03 22:30:15 +02:00
|
|
|
|
-32 create o32 ABI object file (default)\n\
|
|
|
|
|
-n32 create n32 ABI object file\n\
|
|
|
|
|
-64 create 64 ABI object file\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_init_after_args ()
|
|
|
|
|
{
|
|
|
|
|
/* initialize opcodes */
|
|
|
|
|
bfd_mips_num_opcodes = bfd_mips_num_builtin_opcodes;
|
2000-12-05 19:51:08 +01:00
|
|
|
|
mips_opcodes = (struct mips_opcode *) mips_builtin_opcodes;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
long
|
|
|
|
|
md_pcrel_from (fixP)
|
|
|
|
|
fixS *fixP;
|
|
|
|
|
{
|
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_aout_flavour
|
|
|
|
|
&& fixP->fx_addsy != (symbolS *) NULL
|
|
|
|
|
&& ! S_IS_DEFINED (fixP->fx_addsy))
|
|
|
|
|
{
|
2001-10-10 03:08:35 +02:00
|
|
|
|
/* This makes a branch to an undefined symbol be a branch to the
|
|
|
|
|
current location. */
|
2001-09-07 07:00:37 +02:00
|
|
|
|
if (mips_pic == EMBEDDED_PIC)
|
2001-10-10 03:08:35 +02:00
|
|
|
|
return 4;
|
2001-09-07 07:00:37 +02:00
|
|
|
|
else
|
2001-10-10 03:08:35 +02:00
|
|
|
|
return 1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* return the address of the delay slot */
|
|
|
|
|
return fixP->fx_size + fixP->fx_where + fixP->fx_frag->fr_address;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This is called before the symbol table is processed. In order to
|
|
|
|
|
work with gcc when using mips-tfile, we must keep all local labels.
|
|
|
|
|
However, in other cases, we want to discard them. If we were
|
|
|
|
|
called with -g, but we didn't see any debugging information, it may
|
|
|
|
|
mean that gcc is smuggling debugging information through to
|
|
|
|
|
mips-tfile, in which case we must generate all local labels. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_frob_file_before_adjust ()
|
|
|
|
|
{
|
|
|
|
|
#ifndef NO_ECOFF_DEBUGGING
|
|
|
|
|
if (ECOFF_DEBUGGING
|
|
|
|
|
&& mips_debug != 0
|
|
|
|
|
&& ! ecoff_debugging_seen)
|
|
|
|
|
flag_keep_locals = 1;
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Sort any unmatched HI16_S relocs so that they immediately precede
|
2001-11-15 22:29:00 +01:00
|
|
|
|
the corresponding LO reloc. This is called before md_apply_fix3 and
|
1999-05-03 09:29:11 +02:00
|
|
|
|
tc_gen_reloc. Unmatched HI16_S relocs can only be generated by
|
|
|
|
|
explicit use of the %hi modifier. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_frob_file ()
|
|
|
|
|
{
|
|
|
|
|
struct mips_hi_fixup *l;
|
|
|
|
|
|
|
|
|
|
for (l = mips_hi_fixup_list; l != NULL; l = l->next)
|
|
|
|
|
{
|
|
|
|
|
segment_info_type *seginfo;
|
|
|
|
|
int pass;
|
|
|
|
|
|
|
|
|
|
assert (l->fixp->fx_r_type == BFD_RELOC_HI16_S);
|
|
|
|
|
|
|
|
|
|
/* Check quickly whether the next fixup happens to be a matching
|
|
|
|
|
%lo. */
|
|
|
|
|
if (l->fixp->fx_next != NULL
|
|
|
|
|
&& l->fixp->fx_next->fx_r_type == BFD_RELOC_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 %lo.
|
|
|
|
|
When we find one, move the %hi just in front of it. We do
|
|
|
|
|
this in two passes. In the first pass, we try to find a
|
|
|
|
|
unique %lo. In the second pass, we permit multiple %hi
|
|
|
|
|
relocs for a single %lo (this is a GNU extension). */
|
|
|
|
|
seginfo = seg_info (l->seg);
|
|
|
|
|
for (pass = 0; pass < 2; pass++)
|
|
|
|
|
{
|
|
|
|
|
fixS *f, *prev;
|
|
|
|
|
|
|
|
|
|
prev = NULL;
|
|
|
|
|
for (f = seginfo->fix_root; f != NULL; f = f->fx_next)
|
|
|
|
|
{
|
|
|
|
|
/* Check whether this is a %lo fixup which matches l->fixp. */
|
|
|
|
|
if (f->fx_r_type == BFD_RELOC_LO16
|
|
|
|
|
&& f->fx_addsy == l->fixp->fx_addsy
|
|
|
|
|
&& f->fx_offset == l->fixp->fx_offset
|
|
|
|
|
&& (pass == 1
|
|
|
|
|
|| prev == NULL
|
|
|
|
|
|| prev->fx_r_type != BFD_RELOC_HI16_S
|
|
|
|
|
|| 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;
|
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
prev = f;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (f != NULL)
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
#if 0 /* GCC code motion plus incomplete dead code elimination
|
|
|
|
|
can leave a %hi without a %lo. */
|
|
|
|
|
if (pass == 1)
|
|
|
|
|
as_warn_where (l->fixp->fx_file, l->fixp->fx_line,
|
|
|
|
|
_("Unmatched %%hi reloc"));
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* When generating embedded PIC code we need to use a special
|
|
|
|
|
relocation to represent the difference of two symbols in the .text
|
|
|
|
|
section (switch tables use a difference of this sort). See
|
|
|
|
|
include/coff/mips.h for details. This macro checks whether this
|
|
|
|
|
fixup requires the special reloc. */
|
|
|
|
|
#define SWITCH_TABLE(fixp) \
|
|
|
|
|
((fixp)->fx_r_type == BFD_RELOC_32 \
|
2000-03-11 03:16:25 +01:00
|
|
|
|
&& OUTPUT_FLAVOR != bfd_target_elf_flavour \
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& (fixp)->fx_addsy != NULL \
|
|
|
|
|
&& (fixp)->fx_subsy != NULL \
|
|
|
|
|
&& S_GET_SEGMENT ((fixp)->fx_addsy) == text_section \
|
|
|
|
|
&& S_GET_SEGMENT ((fixp)->fx_subsy) == text_section)
|
|
|
|
|
|
|
|
|
|
/* When generating embedded PIC code we must keep all PC relative
|
|
|
|
|
relocations, in case the linker has to relax a call. We also need
|
2001-10-04 22:07:00 +02:00
|
|
|
|
to keep relocations for switch table entries.
|
|
|
|
|
|
|
|
|
|
We may have combined relocations without symbols in the N32/N64 ABI.
|
|
|
|
|
We have to prevent gas from dropping them. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
mips_force_relocation (fixp)
|
|
|
|
|
fixS *fixp;
|
|
|
|
|
{
|
|
|
|
|
if (fixp->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
|
|
|
return 1;
|
|
|
|
|
|
2001-10-04 22:07:00 +02:00
|
|
|
|
if (HAVE_NEWABI
|
|
|
|
|
&& S_GET_SEGMENT (fixp->fx_addsy) == bfd_abs_section_ptr
|
|
|
|
|
&& (fixp->fx_r_type == BFD_RELOC_MIPS_SUB
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_HI16_S
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_LO16))
|
|
|
|
|
return 1;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return (mips_pic == EMBEDDED_PIC
|
|
|
|
|
&& (fixp->fx_pcrel
|
|
|
|
|
|| SWITCH_TABLE (fixp)
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_PCREL_HI16_S
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_PCREL_LO16));
|
|
|
|
|
}
|
|
|
|
|
|
2001-11-21 12:24:13 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
static int
|
|
|
|
|
mips_need_elf_addend_fixup (fixP)
|
|
|
|
|
fixS *fixP;
|
|
|
|
|
{
|
|
|
|
|
return (S_GET_OTHER (fixP->fx_addsy) == STO_MIPS16
|
|
|
|
|
|| ((S_IS_WEAK (fixP->fx_addsy)
|
|
|
|
|
|| S_IS_EXTERN (fixP->fx_addsy))
|
|
|
|
|
&& !S_IS_COMMON (fixP->fx_addsy))
|
|
|
|
|
|| (symbol_used_in_reloc_p (fixP->fx_addsy)
|
|
|
|
|
&& (((bfd_get_section_flags (stdoutput,
|
|
|
|
|
S_GET_SEGMENT (fixP->fx_addsy))
|
|
|
|
|
& SEC_LINK_ONCE) != 0)
|
|
|
|
|
|| !strncmp (segment_name (S_GET_SEGMENT (fixP->fx_addsy)),
|
|
|
|
|
".gnu.linkonce",
|
|
|
|
|
sizeof (".gnu.linkonce") - 1))));
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Apply a fixup to the object file. */
|
|
|
|
|
|
2001-11-15 22:29:00 +01:00
|
|
|
|
void
|
|
|
|
|
md_apply_fix3 (fixP, valP, seg)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fixS *fixP;
|
2001-11-15 22:29:00 +01:00
|
|
|
|
valueT * valP;
|
|
|
|
|
segT seg ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
unsigned char *buf;
|
2001-06-08 08:07:13 +02:00
|
|
|
|
long insn;
|
|
|
|
|
valueT value;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
assert (fixP->fx_size == 4
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_16
|
2001-10-04 22:07:00 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_32
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_MIPS_JMP
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_HI16_S
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_LO16
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_GPREL16
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_MIPS_LITERAL
|
2001-10-04 22:07:00 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_GPREL32
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_64
|
2001-10-04 22:07:00 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_CTOR
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_MIPS_SUB
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_MIPS_HIGHEST
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_MIPS_HIGHER
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_MIPS_SCN_DISP
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_MIPS_REL16
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_MIPS_RELGOT
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY);
|
|
|
|
|
|
2001-11-15 22:29:00 +01:00
|
|
|
|
value = * valP;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* If we aren't adjusting this fixup to be against the section
|
|
|
|
|
symbol, we need to adjust the value. */
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
if (fixP->fx_addsy != NULL && OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
2000-03-11 03:16:25 +01:00
|
|
|
|
{
|
2001-11-21 12:24:13 +01:00
|
|
|
|
if (mips_need_elf_addend_fixup (fixP))
|
2001-06-08 08:07:13 +02:00
|
|
|
|
{
|
|
|
|
|
valueT symval = S_GET_VALUE (fixP->fx_addsy);
|
2001-11-15 22:29:00 +01:00
|
|
|
|
|
2001-06-08 08:07:13 +02:00
|
|
|
|
value -= symval;
|
2001-11-21 12:24:13 +01:00
|
|
|
|
if (value != 0 && ! fixP->fx_pcrel)
|
2001-06-08 08:07:13 +02:00
|
|
|
|
{
|
|
|
|
|
/* In this case, the bfd_install_relocation routine will
|
|
|
|
|
incorrectly add the symbol value back in. We just want
|
2001-07-04 11:49:29 +02:00
|
|
|
|
the addend to appear in the object file. */
|
2001-06-08 08:07:13 +02:00
|
|
|
|
value -= symval;
|
2001-07-04 11:49:29 +02:00
|
|
|
|
|
|
|
|
|
/* Make sure the addend is still non-zero. If it became zero
|
|
|
|
|
after the last operation, set it to a spurious value and
|
|
|
|
|
subtract the same value from the object file's contents. */
|
|
|
|
|
if (value == 0)
|
|
|
|
|
{
|
|
|
|
|
value = 8;
|
|
|
|
|
|
|
|
|
|
/* The in-place addends for LO16 relocations are signed;
|
|
|
|
|
leave the matching HI16 in-place addends as zero. */
|
|
|
|
|
if (fixP->fx_r_type != BFD_RELOC_HI16_S)
|
|
|
|
|
{
|
|
|
|
|
reloc_howto_type *howto;
|
|
|
|
|
bfd_vma contents, mask, field;
|
|
|
|
|
|
|
|
|
|
howto = bfd_reloc_type_lookup (stdoutput,
|
|
|
|
|
fixP->fx_r_type);
|
|
|
|
|
|
|
|
|
|
contents = bfd_get_bits (fixP->fx_frag->fr_literal
|
|
|
|
|
+ fixP->fx_where,
|
|
|
|
|
fixP->fx_size * 8,
|
|
|
|
|
target_big_endian);
|
|
|
|
|
|
|
|
|
|
/* MASK has bits set where the relocation should go.
|
|
|
|
|
FIELD is -value, shifted into the appropriate place
|
|
|
|
|
for this relocation. */
|
|
|
|
|
mask = 1 << (howto->bitsize - 1);
|
|
|
|
|
mask = (((mask - 1) << 1) | 1) << howto->bitpos;
|
|
|
|
|
field = (-value >> howto->rightshift) << howto->bitpos;
|
|
|
|
|
|
|
|
|
|
bfd_put_bits ((field & mask) | (contents & ~mask),
|
|
|
|
|
fixP->fx_frag->fr_literal + fixP->fx_where,
|
|
|
|
|
fixP->fx_size * 8,
|
|
|
|
|
target_big_endian);
|
|
|
|
|
}
|
|
|
|
|
}
|
2001-06-08 08:07:13 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-03-11 03:16:25 +01:00
|
|
|
|
/* This code was generated using trial and error and so is
|
|
|
|
|
fragile and not trustworthy. If you change it, you should
|
|
|
|
|
rerun the elf-rel, elf-rel2, and empic testcases and ensure
|
|
|
|
|
they still pass. */
|
|
|
|
|
if (fixP->fx_pcrel || fixP->fx_subsy != NULL)
|
|
|
|
|
{
|
|
|
|
|
value += fixP->fx_frag->fr_address + fixP->fx_where;
|
|
|
|
|
|
|
|
|
|
/* BFD's REL handling, for MIPS, is _very_ weird.
|
|
|
|
|
This gives the right results, but it can't possibly
|
|
|
|
|
be the way things are supposed to work. */
|
2001-09-07 07:00:37 +02:00
|
|
|
|
if ((fixP->fx_r_type != BFD_RELOC_16_PCREL
|
|
|
|
|
&& fixP->fx_r_type != BFD_RELOC_16_PCREL_S2)
|
2000-03-11 03:16:25 +01:00
|
|
|
|
|| S_GET_SEGMENT (fixP->fx_addsy) != undefined_section)
|
|
|
|
|
value += fixP->fx_frag->fr_address + fixP->fx_where;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-11-15 22:29:00 +01:00
|
|
|
|
fixP->fx_addnumber = value; /* Remember value for tc_gen_reloc. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (fixP->fx_addsy == NULL && ! fixP->fx_pcrel)
|
|
|
|
|
fixP->fx_done = 1;
|
|
|
|
|
|
|
|
|
|
switch (fixP->fx_r_type)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_MIPS_JMP:
|
2001-10-15 21:48:04 +02:00
|
|
|
|
case BFD_RELOC_MIPS_SHIFT5:
|
|
|
|
|
case BFD_RELOC_MIPS_SHIFT6:
|
|
|
|
|
case BFD_RELOC_MIPS_GOT_DISP:
|
|
|
|
|
case BFD_RELOC_MIPS_GOT_PAGE:
|
|
|
|
|
case BFD_RELOC_MIPS_GOT_OFST:
|
|
|
|
|
case BFD_RELOC_MIPS_SUB:
|
|
|
|
|
case BFD_RELOC_MIPS_INSERT_A:
|
|
|
|
|
case BFD_RELOC_MIPS_INSERT_B:
|
|
|
|
|
case BFD_RELOC_MIPS_DELETE:
|
|
|
|
|
case BFD_RELOC_MIPS_HIGHEST:
|
|
|
|
|
case BFD_RELOC_MIPS_HIGHER:
|
|
|
|
|
case BFD_RELOC_MIPS_SCN_DISP:
|
|
|
|
|
case BFD_RELOC_MIPS_REL16:
|
|
|
|
|
case BFD_RELOC_MIPS_RELGOT:
|
|
|
|
|
case BFD_RELOC_MIPS_JALR:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_HI16:
|
|
|
|
|
case BFD_RELOC_HI16_S:
|
2001-12-02 14:14:48 +01:00
|
|
|
|
case BFD_RELOC_GPREL16:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_MIPS_LITERAL:
|
|
|
|
|
case BFD_RELOC_MIPS_CALL16:
|
|
|
|
|
case BFD_RELOC_MIPS_GOT16:
|
2001-12-02 14:14:48 +01:00
|
|
|
|
case BFD_RELOC_GPREL32:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_MIPS_GOT_HI16:
|
|
|
|
|
case BFD_RELOC_MIPS_GOT_LO16:
|
|
|
|
|
case BFD_RELOC_MIPS_CALL_HI16:
|
|
|
|
|
case BFD_RELOC_MIPS_CALL_LO16:
|
|
|
|
|
case BFD_RELOC_MIPS16_GPREL:
|
|
|
|
|
if (fixP->fx_pcrel)
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("Invalid PC relative reloc"));
|
|
|
|
|
/* Nothing needed to do. The value comes from the reloc entry */
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_MIPS16_JMP:
|
|
|
|
|
/* We currently always generate a reloc against a symbol, which
|
|
|
|
|
means that we don't want an addend even if the symbol is
|
|
|
|
|
defined. */
|
|
|
|
|
fixP->fx_addnumber = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_PCREL_HI16_S:
|
|
|
|
|
/* The addend for this is tricky if it is internal, so we just
|
|
|
|
|
do everything here rather than in bfd_install_relocation. */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour
|
2000-03-11 03:16:25 +01:00
|
|
|
|
&& !fixP->fx_done
|
|
|
|
|
&& value != 0)
|
|
|
|
|
break;
|
|
|
|
|
if (fixP->fx_addsy
|
|
|
|
|
&& (symbol_get_bfdsym (fixP->fx_addsy)->flags & BSF_SECTION_SYM) == 0)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* For an external symbol adjust by the address to make it
|
|
|
|
|
pcrel_offset. We use the address of the RELLO reloc
|
|
|
|
|
which follows this one. */
|
|
|
|
|
value += (fixP->fx_next->fx_frag->fr_address
|
|
|
|
|
+ fixP->fx_next->fx_where);
|
|
|
|
|
}
|
2001-08-26 12:42:12 +02:00
|
|
|
|
value = ((value + 0x8000) >> 16) & 0xffff;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buf = (unsigned char *) fixP->fx_frag->fr_literal + fixP->fx_where;
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
buf += 2;
|
|
|
|
|
md_number_to_chars (buf, value, 2);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_PCREL_LO16:
|
|
|
|
|
/* The addend for this is tricky if it is internal, so we just
|
|
|
|
|
do everything here rather than in bfd_install_relocation. */
|
2000-09-07 14:45:56 +02:00
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour
|
2000-03-11 03:16:25 +01:00
|
|
|
|
&& !fixP->fx_done
|
|
|
|
|
&& value != 0)
|
|
|
|
|
break;
|
|
|
|
|
if (fixP->fx_addsy
|
|
|
|
|
&& (symbol_get_bfdsym (fixP->fx_addsy)->flags & BSF_SECTION_SYM) == 0)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
value += fixP->fx_frag->fr_address + fixP->fx_where;
|
|
|
|
|
buf = (unsigned char *) fixP->fx_frag->fr_literal + fixP->fx_where;
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
buf += 2;
|
|
|
|
|
md_number_to_chars (buf, value, 2);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_64:
|
|
|
|
|
/* This is handled like BFD_RELOC_32, but we output a sign
|
|
|
|
|
extended value if we are only 32 bits. */
|
|
|
|
|
if (fixP->fx_done
|
|
|
|
|
|| (mips_pic == EMBEDDED_PIC && SWITCH_TABLE (fixP)))
|
|
|
|
|
{
|
|
|
|
|
if (8 <= sizeof (valueT))
|
|
|
|
|
md_number_to_chars (fixP->fx_frag->fr_literal + fixP->fx_where,
|
|
|
|
|
value, 8);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
long w1, w2;
|
|
|
|
|
long hiv;
|
|
|
|
|
|
|
|
|
|
w1 = w2 = fixP->fx_where;
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
w1 += 4;
|
|
|
|
|
else
|
|
|
|
|
w2 += 4;
|
|
|
|
|
md_number_to_chars (fixP->fx_frag->fr_literal + w1, value, 4);
|
|
|
|
|
if ((value & 0x80000000) != 0)
|
|
|
|
|
hiv = 0xffffffff;
|
|
|
|
|
else
|
|
|
|
|
hiv = 0;
|
|
|
|
|
md_number_to_chars (fixP->fx_frag->fr_literal + w2, hiv, 4);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2000-02-24 20:49:18 +01:00
|
|
|
|
case BFD_RELOC_RVA:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_32:
|
|
|
|
|
/* If we are deleting this reloc entry, we must fill in the
|
|
|
|
|
value now. This can happen if we have a .word which is not
|
|
|
|
|
resolved when it appears but is later defined. We also need
|
|
|
|
|
to fill in the value if this is an embedded PIC switch table
|
|
|
|
|
entry. */
|
|
|
|
|
if (fixP->fx_done
|
|
|
|
|
|| (mips_pic == EMBEDDED_PIC && SWITCH_TABLE (fixP)))
|
|
|
|
|
md_number_to_chars (fixP->fx_frag->fr_literal + fixP->fx_where,
|
|
|
|
|
value, 4);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_16:
|
|
|
|
|
/* If we are deleting this reloc entry, we must fill in the
|
|
|
|
|
value now. */
|
|
|
|
|
assert (fixP->fx_size == 2);
|
|
|
|
|
if (fixP->fx_done)
|
|
|
|
|
md_number_to_chars (fixP->fx_frag->fr_literal + fixP->fx_where,
|
|
|
|
|
value, 2);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_LO16:
|
|
|
|
|
/* When handling an embedded PIC switch statement, we can wind
|
|
|
|
|
up deleting a LO16 reloc. See the 'o' case in mips_ip. */
|
|
|
|
|
if (fixP->fx_done)
|
|
|
|
|
{
|
2001-06-08 08:07:13 +02:00
|
|
|
|
if (value + 0x8000 > 0xffff)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("relocation overflow"));
|
|
|
|
|
buf = (unsigned char *) fixP->fx_frag->fr_literal + fixP->fx_where;
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
buf += 2;
|
|
|
|
|
md_number_to_chars (buf, value, 2);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_16_PCREL_S2:
|
2001-09-07 07:00:37 +02:00
|
|
|
|
if ((value & 0x3) != 0)
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("Branch to odd address (%lx)"), (long) value);
|
|
|
|
|
|
|
|
|
|
/* Fall through. */
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_16_PCREL:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/*
|
|
|
|
|
* We need to save the bits in the instruction since fixup_segment()
|
|
|
|
|
* might be deleting the relocation entry (i.e., a branch within
|
|
|
|
|
* the current segment).
|
|
|
|
|
*/
|
2000-03-11 03:16:25 +01:00
|
|
|
|
if (!fixP->fx_done && value != 0)
|
|
|
|
|
break;
|
|
|
|
|
/* If 'value' is zero, the remaining reloc code won't actually
|
|
|
|
|
do the store, so it must be done here. This is probably
|
|
|
|
|
a bug somewhere. */
|
|
|
|
|
if (!fixP->fx_done)
|
|
|
|
|
value -= fixP->fx_frag->fr_address + fixP->fx_where;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
2001-06-08 08:07:13 +02:00
|
|
|
|
value = (offsetT) value >> 2;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* update old instruction data */
|
|
|
|
|
buf = (unsigned char *) (fixP->fx_where + fixP->fx_frag->fr_literal);
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
insn = (buf[0] << 24) | (buf[1] << 16) | (buf[2] << 8) | buf[3];
|
|
|
|
|
else
|
|
|
|
|
insn = (buf[3] << 24) | (buf[2] << 16) | (buf[1] << 8) | buf[0];
|
|
|
|
|
|
2001-06-08 08:07:13 +02:00
|
|
|
|
if (value + 0x8000 <= 0xffff)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
insn |= value & 0xffff;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* The branch offset is too large. If this is an
|
|
|
|
|
unconditional branch, and we are not generating PIC code,
|
|
|
|
|
we can convert it to an absolute jump instruction. */
|
|
|
|
|
if (mips_pic == NO_PIC
|
|
|
|
|
&& fixP->fx_done
|
|
|
|
|
&& fixP->fx_frag->fr_address >= text_section->vma
|
|
|
|
|
&& (fixP->fx_frag->fr_address
|
|
|
|
|
< text_section->vma + text_section->_raw_size)
|
|
|
|
|
&& ((insn & 0xffff0000) == 0x10000000 /* beq $0,$0 */
|
|
|
|
|
|| (insn & 0xffff0000) == 0x04010000 /* bgez $0 */
|
|
|
|
|
|| (insn & 0xffff0000) == 0x04110000)) /* bgezal $0 */
|
|
|
|
|
{
|
|
|
|
|
if ((insn & 0xffff0000) == 0x04110000) /* bgezal $0 */
|
|
|
|
|
insn = 0x0c000000; /* jal */
|
|
|
|
|
else
|
|
|
|
|
insn = 0x08000000; /* j */
|
|
|
|
|
fixP->fx_r_type = BFD_RELOC_MIPS_JMP;
|
|
|
|
|
fixP->fx_done = 0;
|
|
|
|
|
fixP->fx_addsy = section_symbol (text_section);
|
|
|
|
|
fixP->fx_addnumber = (value << 2) + md_pcrel_from (fixP);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* FIXME. It would be possible in principle to handle
|
|
|
|
|
conditional branches which overflow. They could be
|
|
|
|
|
transformed into a branch around a jump. This would
|
|
|
|
|
require setting up variant frags for each different
|
|
|
|
|
branch type. The native MIPS assembler attempts to
|
|
|
|
|
handle these cases, but it appears to do it
|
|
|
|
|
incorrectly. */
|
|
|
|
|
as_bad_where (fixP->fx_file, fixP->fx_line,
|
|
|
|
|
_("Branch out of range"));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
md_number_to_chars ((char *) buf, (valueT) insn, 4);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_VTABLE_INHERIT:
|
|
|
|
|
fixP->fx_done = 0;
|
|
|
|
|
if (fixP->fx_addsy
|
|
|
|
|
&& !S_IS_DEFINED (fixP->fx_addsy)
|
|
|
|
|
&& !S_IS_WEAK (fixP->fx_addsy))
|
|
|
|
|
S_SET_WEAK (fixP->fx_addsy);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_VTABLE_ENTRY:
|
|
|
|
|
fixP->fx_done = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
internalError ();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
void
|
|
|
|
|
printInsn (oc)
|
|
|
|
|
unsigned long oc;
|
|
|
|
|
{
|
|
|
|
|
const struct mips_opcode *p;
|
|
|
|
|
int treg, sreg, dreg, shamt;
|
|
|
|
|
short imm;
|
|
|
|
|
const char *args;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < NUMOPCODES; ++i)
|
|
|
|
|
{
|
|
|
|
|
p = &mips_opcodes[i];
|
|
|
|
|
if (((oc & p->mask) == p->match) && (p->pinfo != INSN_MACRO))
|
|
|
|
|
{
|
|
|
|
|
printf ("%08lx %s\t", oc, p->name);
|
|
|
|
|
treg = (oc >> 16) & 0x1f;
|
|
|
|
|
sreg = (oc >> 21) & 0x1f;
|
|
|
|
|
dreg = (oc >> 11) & 0x1f;
|
|
|
|
|
shamt = (oc >> 6) & 0x1f;
|
|
|
|
|
imm = oc;
|
|
|
|
|
for (args = p->args;; ++args)
|
|
|
|
|
{
|
|
|
|
|
switch (*args)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
printf ("\n");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ',':
|
|
|
|
|
case '(':
|
|
|
|
|
case ')':
|
|
|
|
|
printf ("%c", *args);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'r':
|
|
|
|
|
assert (treg == sreg);
|
|
|
|
|
printf ("$%d,$%d", treg, sreg);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'd':
|
|
|
|
|
case 'G':
|
|
|
|
|
printf ("$%d", dreg);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 't':
|
|
|
|
|
case 'E':
|
|
|
|
|
printf ("$%d", treg);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'k':
|
|
|
|
|
printf ("0x%x", treg);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'b':
|
|
|
|
|
case 's':
|
|
|
|
|
printf ("$%d", sreg);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'a':
|
|
|
|
|
printf ("0x%08lx", oc & 0x1ffffff);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case 'i':
|
|
|
|
|
case 'j':
|
|
|
|
|
case 'o':
|
|
|
|
|
case 'u':
|
|
|
|
|
printf ("%d", imm);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
case '<':
|
|
|
|
|
case '>':
|
|
|
|
|
printf ("$%d", shamt);
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
internalError ();
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
printf (_("%08lx UNDEFINED\n"), oc);
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
static symbolS *
|
|
|
|
|
get_symbol ()
|
|
|
|
|
{
|
|
|
|
|
int c;
|
|
|
|
|
char *name;
|
|
|
|
|
symbolS *p;
|
|
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
p = (symbolS *) symbol_find_or_make (name);
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
return p;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Align the current frag to a given power of two. The MIPS assembler
|
|
|
|
|
also automatically adjusts any preceding label. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mips_align (to, fill, label)
|
|
|
|
|
int to;
|
|
|
|
|
int fill;
|
|
|
|
|
symbolS *label;
|
|
|
|
|
{
|
|
|
|
|
mips_emit_delays (false);
|
|
|
|
|
frag_align (to, fill, 0);
|
|
|
|
|
record_alignment (now_seg, to);
|
|
|
|
|
if (label != NULL)
|
|
|
|
|
{
|
|
|
|
|
assert (S_GET_SEGMENT (label) == now_seg);
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_set_frag (label, frag_now);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
S_SET_VALUE (label, (valueT) frag_now_fix ());
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Align to a given power of two. .align 0 turns off the automatic
|
|
|
|
|
alignment used by the data creating pseudo-ops. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_align (x)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int x ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
register int temp;
|
|
|
|
|
register long temp_fill;
|
|
|
|
|
long max_alignment = 15;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
|
|
|
|
o Note that the assembler pulls down any immediately preceeding label
|
|
|
|
|
to the aligned address.
|
|
|
|
|
o It's not documented but auto alignment is reinstated by
|
|
|
|
|
a .align pseudo instruction.
|
|
|
|
|
o Note also that after auto alignment is turned off the mips assembler
|
|
|
|
|
issues an error on attempt to assemble an improperly aligned data item.
|
|
|
|
|
We don't.
|
|
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
temp = get_absolute_expression ();
|
|
|
|
|
if (temp > max_alignment)
|
|
|
|
|
as_bad (_("Alignment too large: %d. assumed."), temp = max_alignment);
|
|
|
|
|
else if (temp < 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Alignment negative: 0 assumed."));
|
|
|
|
|
temp = 0;
|
|
|
|
|
}
|
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
temp_fill = get_absolute_expression ();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
temp_fill = 0;
|
|
|
|
|
if (temp)
|
|
|
|
|
{
|
|
|
|
|
auto_align = 1;
|
|
|
|
|
mips_align (temp, (int) temp_fill,
|
|
|
|
|
insn_labels != NULL ? insn_labels->label : NULL);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
auto_align = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_flush_pending_output ()
|
|
|
|
|
{
|
|
|
|
|
mips_emit_delays (false);
|
|
|
|
|
mips_clear_insn_labels ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_change_sec (sec)
|
|
|
|
|
int sec;
|
|
|
|
|
{
|
|
|
|
|
segT seg;
|
|
|
|
|
|
|
|
|
|
/* When generating embedded PIC code, we only use the .text, .lit8,
|
|
|
|
|
.sdata and .sbss sections. We change the .data and .rdata
|
|
|
|
|
pseudo-ops to use .sdata. */
|
|
|
|
|
if (mips_pic == EMBEDDED_PIC
|
|
|
|
|
&& (sec == 'd' || sec == 'r'))
|
|
|
|
|
sec = 's';
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* The ELF backend needs to know that we are changing sections, so
|
|
|
|
|
that .previous works correctly. We could do something like check
|
2001-10-12 01:56:33 +02:00
|
|
|
|
for an obj_section_change_hook macro, but that might be confusing
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as it would not be appropriate to use it in the section changing
|
|
|
|
|
functions in read.c, since obj-elf.c intercepts those. FIXME:
|
|
|
|
|
This should be cleaner, somehow. */
|
|
|
|
|
obj_elf_section_change_hook ();
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
mips_emit_delays (false);
|
|
|
|
|
switch (sec)
|
|
|
|
|
{
|
|
|
|
|
case 't':
|
|
|
|
|
s_text (0);
|
|
|
|
|
break;
|
|
|
|
|
case 'd':
|
|
|
|
|
s_data (0);
|
|
|
|
|
break;
|
|
|
|
|
case 'b':
|
|
|
|
|
subseg_set (bss_section, (subsegT) get_absolute_expression ());
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'r':
|
|
|
|
|
if (USE_GLOBAL_POINTER_OPT)
|
|
|
|
|
{
|
|
|
|
|
seg = subseg_new (RDATA_SECTION_NAME,
|
|
|
|
|
(subsegT) get_absolute_expression ());
|
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
bfd_set_section_flags (stdoutput, seg,
|
|
|
|
|
(SEC_ALLOC
|
|
|
|
|
| SEC_LOAD
|
|
|
|
|
| SEC_READONLY
|
|
|
|
|
| SEC_RELOC
|
|
|
|
|
| SEC_DATA));
|
|
|
|
|
if (strcmp (TARGET_OS, "elf") != 0)
|
2000-04-25 12:02:20 +02:00
|
|
|
|
record_alignment (seg, 4);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("No read only data section in this object file format"));
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 's':
|
|
|
|
|
if (USE_GLOBAL_POINTER_OPT)
|
|
|
|
|
{
|
|
|
|
|
seg = subseg_new (".sdata", (subsegT) get_absolute_expression ());
|
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
|
|
|
|
{
|
|
|
|
|
bfd_set_section_flags (stdoutput, seg,
|
|
|
|
|
SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
|
|
|
|
| SEC_DATA);
|
|
|
|
|
if (strcmp (TARGET_OS, "elf") != 0)
|
2000-04-25 12:02:20 +02:00
|
|
|
|
record_alignment (seg, 4);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Global pointers not supported; recompile -G 0"));
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
auto_align = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_enable_auto_align ()
|
|
|
|
|
{
|
|
|
|
|
auto_align = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_cons (log_size)
|
|
|
|
|
int log_size;
|
|
|
|
|
{
|
|
|
|
|
symbolS *label;
|
|
|
|
|
|
|
|
|
|
label = insn_labels != NULL ? insn_labels->label : NULL;
|
|
|
|
|
mips_emit_delays (false);
|
|
|
|
|
if (log_size > 0 && auto_align)
|
|
|
|
|
mips_align (log_size, 0, label);
|
|
|
|
|
mips_clear_insn_labels ();
|
|
|
|
|
cons (1 << log_size);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_float_cons (type)
|
|
|
|
|
int type;
|
|
|
|
|
{
|
|
|
|
|
symbolS *label;
|
|
|
|
|
|
|
|
|
|
label = insn_labels != NULL ? insn_labels->label : NULL;
|
|
|
|
|
|
|
|
|
|
mips_emit_delays (false);
|
|
|
|
|
|
|
|
|
|
if (auto_align)
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
{
|
|
|
|
|
if (type == 'd')
|
|
|
|
|
mips_align (3, 0, label);
|
|
|
|
|
else
|
|
|
|
|
mips_align (2, 0, label);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
mips_clear_insn_labels ();
|
|
|
|
|
|
|
|
|
|
float_cons (type);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle .globl. We need to override it because on Irix 5 you are
|
|
|
|
|
permitted to say
|
|
|
|
|
.globl foo .text
|
|
|
|
|
where foo is an undefined symbol, to mean that foo should be
|
|
|
|
|
considered to be the address of a function. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_mips_globl (x)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int x ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
int c;
|
|
|
|
|
symbolS *symbolP;
|
|
|
|
|
flagword flag;
|
|
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
symbolP = symbol_find_or_make (name);
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
|
|
|
|
|
/* On Irix 5, every global symbol that is not explicitly labelled as
|
|
|
|
|
being a function is apparently labelled as being an object. */
|
|
|
|
|
flag = BSF_OBJECT;
|
|
|
|
|
|
|
|
|
|
if (! is_end_of_line[(unsigned char) *input_line_pointer])
|
|
|
|
|
{
|
|
|
|
|
char *secname;
|
|
|
|
|
asection *sec;
|
|
|
|
|
|
|
|
|
|
secname = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
sec = bfd_get_section_by_name (stdoutput, secname);
|
|
|
|
|
if (sec == NULL)
|
|
|
|
|
as_bad (_("%s: no such section"), secname);
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
|
|
|
|
|
if (sec != NULL && (sec->flags & SEC_CODE) != 0)
|
|
|
|
|
flag = BSF_FUNCTION;
|
|
|
|
|
}
|
|
|
|
|
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_get_bfdsym (symbolP)->flags |= flag;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
S_SET_EXTERNAL (symbolP);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_option (x)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int x ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *opt;
|
|
|
|
|
char c;
|
|
|
|
|
|
|
|
|
|
opt = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
|
|
|
|
|
if (*opt == 'O')
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: What does this mean? */
|
|
|
|
|
}
|
|
|
|
|
else if (strncmp (opt, "pic", 3) == 0)
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
i = atoi (opt + 3);
|
|
|
|
|
if (i == 0)
|
|
|
|
|
mips_pic = NO_PIC;
|
|
|
|
|
else if (i == 2)
|
|
|
|
|
mips_pic = SVR4_PIC;
|
|
|
|
|
else
|
|
|
|
|
as_bad (_(".option pic%d not supported"), i);
|
|
|
|
|
|
|
|
|
|
if (USE_GLOBAL_POINTER_OPT && mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
if (g_switch_seen && g_switch_value != 0)
|
|
|
|
|
as_warn (_("-G may not be used with SVR4 PIC code"));
|
|
|
|
|
g_switch_value = 0;
|
|
|
|
|
bfd_set_gp_size (stdoutput, 0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_warn (_("Unrecognized option \"%s\""), opt);
|
|
|
|
|
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This structure is used to hold a stack of .set values. */
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
struct mips_option_stack
|
|
|
|
|
{
|
1999-05-03 09:29:11 +02:00
|
|
|
|
struct mips_option_stack *next;
|
|
|
|
|
struct mips_set_options options;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct mips_option_stack *mips_opts_stack;
|
|
|
|
|
|
|
|
|
|
/* Handle the .set pseudo-op. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_mipsset (x)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int x ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *name = input_line_pointer, ch;
|
|
|
|
|
|
|
|
|
|
while (!is_end_of_line[(unsigned char) *input_line_pointer])
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
ch = *input_line_pointer;
|
|
|
|
|
*input_line_pointer = '\0';
|
|
|
|
|
|
|
|
|
|
if (strcmp (name, "reorder") == 0)
|
|
|
|
|
{
|
|
|
|
|
if (mips_opts.noreorder && prev_nop_frag != NULL)
|
|
|
|
|
{
|
|
|
|
|
/* If we still have pending nops, we can discard them. The
|
|
|
|
|
usual nop handling will insert any that are still
|
2000-09-07 14:45:56 +02:00
|
|
|
|
needed. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
prev_nop_frag->fr_fix -= (prev_nop_frag_holds
|
|
|
|
|
* (mips_opts.mips16 ? 2 : 4));
|
|
|
|
|
prev_nop_frag = NULL;
|
|
|
|
|
}
|
|
|
|
|
mips_opts.noreorder = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "noreorder") == 0)
|
|
|
|
|
{
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
mips_opts.noreorder = 1;
|
|
|
|
|
mips_any_noreorder = 1;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "at") == 0)
|
|
|
|
|
{
|
|
|
|
|
mips_opts.noat = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "noat") == 0)
|
|
|
|
|
{
|
|
|
|
|
mips_opts.noat = 1;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "macro") == 0)
|
|
|
|
|
{
|
|
|
|
|
mips_opts.warn_about_macros = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "nomacro") == 0)
|
|
|
|
|
{
|
|
|
|
|
if (mips_opts.noreorder == 0)
|
|
|
|
|
as_bad (_("`noreorder' must be set before `nomacro'"));
|
|
|
|
|
mips_opts.warn_about_macros = 1;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "move") == 0 || strcmp (name, "novolatile") == 0)
|
|
|
|
|
{
|
|
|
|
|
mips_opts.nomove = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "nomove") == 0 || strcmp (name, "volatile") == 0)
|
|
|
|
|
{
|
|
|
|
|
mips_opts.nomove = 1;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "bopt") == 0)
|
|
|
|
|
{
|
|
|
|
|
mips_opts.nobopt = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "nobopt") == 0)
|
|
|
|
|
{
|
|
|
|
|
mips_opts.nobopt = 1;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "mips16") == 0
|
|
|
|
|
|| strcmp (name, "MIPS-16") == 0)
|
|
|
|
|
mips_opts.mips16 = 1;
|
|
|
|
|
else if (strcmp (name, "nomips16") == 0
|
|
|
|
|
|| strcmp (name, "noMIPS-16") == 0)
|
|
|
|
|
mips_opts.mips16 = 0;
|
|
|
|
|
else if (strncmp (name, "mips", 4) == 0)
|
|
|
|
|
{
|
|
|
|
|
int isa;
|
|
|
|
|
|
|
|
|
|
/* Permit the user to change the ISA on the fly. Needless to
|
|
|
|
|
say, misuse can cause serious problems. */
|
|
|
|
|
isa = atoi (name + 4);
|
2001-09-07 07:54:12 +02:00
|
|
|
|
switch (isa)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.gp32 = file_mips_gp32;
|
|
|
|
|
mips_opts.fp32 = file_mips_fp32;
|
|
|
|
|
mips_opts.abi = file_mips_abi;
|
2001-09-07 07:54:12 +02:00
|
|
|
|
break;
|
|
|
|
|
case 1:
|
|
|
|
|
case 2:
|
|
|
|
|
case 32:
|
2001-11-12 17:54:54 +01:00
|
|
|
|
mips_opts.gp32 = 1;
|
|
|
|
|
mips_opts.fp32 = 1;
|
2001-09-07 07:54:12 +02:00
|
|
|
|
break;
|
|
|
|
|
case 3:
|
|
|
|
|
case 4:
|
|
|
|
|
case 5:
|
|
|
|
|
case 64:
|
2001-11-12 17:54:54 +01:00
|
|
|
|
/* Loosen ABI register width restriction. */
|
|
|
|
|
if (mips_opts.abi == O32_ABI)
|
|
|
|
|
mips_opts.abi = NO_ABI;
|
|
|
|
|
mips_opts.gp32 = 0;
|
|
|
|
|
mips_opts.fp32 = 0;
|
2001-09-07 07:54:12 +02:00
|
|
|
|
break;
|
|
|
|
|
default:
|
2001-11-12 17:54:54 +01:00
|
|
|
|
as_bad (_("unknown ISA level %s"), name + 4);
|
2001-09-07 07:54:12 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
switch (isa)
|
|
|
|
|
{
|
2000-12-02 01:55:22 +01:00
|
|
|
|
case 0: mips_opts.isa = file_mips_isa; break;
|
|
|
|
|
case 1: mips_opts.isa = ISA_MIPS1; break;
|
|
|
|
|
case 2: mips_opts.isa = ISA_MIPS2; break;
|
|
|
|
|
case 3: mips_opts.isa = ISA_MIPS3; break;
|
|
|
|
|
case 4: mips_opts.isa = ISA_MIPS4; break;
|
2001-08-07 15:15:26 +02:00
|
|
|
|
case 5: mips_opts.isa = ISA_MIPS5; break;
|
2000-12-02 01:55:22 +01:00
|
|
|
|
case 32: mips_opts.isa = ISA_MIPS32; break;
|
|
|
|
|
case 64: mips_opts.isa = ISA_MIPS64; break;
|
2001-11-12 17:54:54 +01:00
|
|
|
|
default: as_bad (_("unknown ISA level %s"), name + 4); break;
|
2000-12-01 22:35:38 +01:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "autoextend") == 0)
|
|
|
|
|
mips_opts.noautoextend = 0;
|
|
|
|
|
else if (strcmp (name, "noautoextend") == 0)
|
|
|
|
|
mips_opts.noautoextend = 1;
|
|
|
|
|
else if (strcmp (name, "push") == 0)
|
|
|
|
|
{
|
|
|
|
|
struct mips_option_stack *s;
|
|
|
|
|
|
|
|
|
|
s = (struct mips_option_stack *) xmalloc (sizeof *s);
|
|
|
|
|
s->next = mips_opts_stack;
|
|
|
|
|
s->options = mips_opts;
|
|
|
|
|
mips_opts_stack = s;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, "pop") == 0)
|
|
|
|
|
{
|
|
|
|
|
struct mips_option_stack *s;
|
|
|
|
|
|
|
|
|
|
s = mips_opts_stack;
|
|
|
|
|
if (s == NULL)
|
|
|
|
|
as_bad (_(".set pop with no .set push"));
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* If we're changing the reorder mode we need to handle
|
|
|
|
|
delay slots correctly. */
|
|
|
|
|
if (s->options.noreorder && ! mips_opts.noreorder)
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
else if (! s->options.noreorder && mips_opts.noreorder)
|
|
|
|
|
{
|
|
|
|
|
if (prev_nop_frag != NULL)
|
|
|
|
|
{
|
|
|
|
|
prev_nop_frag->fr_fix -= (prev_nop_frag_holds
|
|
|
|
|
* (mips_opts.mips16 ? 2 : 4));
|
|
|
|
|
prev_nop_frag = NULL;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
mips_opts = s->options;
|
|
|
|
|
mips_opts_stack = s->next;
|
|
|
|
|
free (s);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Tried to set unrecognized symbol: %s\n"), name);
|
|
|
|
|
}
|
|
|
|
|
*input_line_pointer = ch;
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the .abicalls pseudo-op. I believe this is equivalent to
|
|
|
|
|
.option pic2. It means to generate SVR4 PIC calls. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_abicalls (ignore)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
mips_pic = SVR4_PIC;
|
|
|
|
|
if (USE_GLOBAL_POINTER_OPT)
|
|
|
|
|
{
|
|
|
|
|
if (g_switch_seen && g_switch_value != 0)
|
|
|
|
|
as_warn (_("-G may not be used with SVR4 PIC code"));
|
|
|
|
|
g_switch_value = 0;
|
|
|
|
|
}
|
|
|
|
|
bfd_set_gp_size (stdoutput, 0);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the .cpload pseudo-op. This is used when generating SVR4
|
|
|
|
|
PIC code. It sets the $gp register for the function based on the
|
|
|
|
|
function address, which is in the register named in the argument.
|
|
|
|
|
This uses a relocation against _gp_disp, which is handled specially
|
|
|
|
|
by the linker. The result is:
|
|
|
|
|
lui $gp,%hi(_gp_disp)
|
|
|
|
|
addiu $gp,$gp,%lo(_gp_disp)
|
|
|
|
|
addu $gp,$gp,.cpload argument
|
|
|
|
|
The .cpload argument is normally $25 == $t9. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_cpload (ignore)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
expressionS ex;
|
|
|
|
|
int icnt = 0;
|
|
|
|
|
|
2001-10-10 03:08:35 +02:00
|
|
|
|
/* If we are not generating SVR4 PIC code, or if this is NewABI code,
|
|
|
|
|
.cpload is ignored. */
|
|
|
|
|
if (mips_pic != SVR4_PIC || HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
s_ignore (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-17 07:51:12 +02:00
|
|
|
|
/* .cpload should be in a .set noreorder section. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (mips_opts.noreorder == 0)
|
|
|
|
|
as_warn (_(".cpload not in noreorder section"));
|
|
|
|
|
|
|
|
|
|
ex.X_op = O_symbol;
|
|
|
|
|
ex.X_add_symbol = symbol_find_or_make ("_gp_disp");
|
|
|
|
|
ex.X_op_symbol = NULL;
|
|
|
|
|
ex.X_add_number = 0;
|
|
|
|
|
|
|
|
|
|
/* In ELF, this symbol is implicitly an STT_OBJECT symbol. */
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_get_bfdsym (ex.X_add_symbol)->flags |= BSF_OBJECT;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-11-12 23:19:30 +01:00
|
|
|
|
macro_build_lui (NULL, &icnt, &ex, GP);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
macro_build ((char *) NULL, &icnt, &ex, "addiu", "t,r,j", GP, GP,
|
|
|
|
|
(int) BFD_RELOC_LO16);
|
|
|
|
|
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "addu", "d,v,t",
|
|
|
|
|
GP, GP, tc_get_register (0));
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-10 03:08:35 +02:00
|
|
|
|
/* Handle the .cpsetup pseudo-op defined for NewABI PIC code. The syntax is:
|
|
|
|
|
.cpsetup $reg1, offset|$reg2, label
|
|
|
|
|
|
|
|
|
|
If offset is given, this results in:
|
|
|
|
|
sd $gp, offset($sp)
|
2001-12-04 15:38:48 +01:00
|
|
|
|
lui $gp, %hi(%neg(%gp_rel(label)))
|
|
|
|
|
daddiu $gp, $gp, %lo(%neg(%gp_rel(label)))
|
2001-10-10 03:08:35 +02:00
|
|
|
|
addu $gp, $gp, $reg1
|
|
|
|
|
|
|
|
|
|
If $reg2 is given, this results in:
|
|
|
|
|
daddu $reg2, $gp, $0
|
2001-12-04 15:38:48 +01:00
|
|
|
|
lui $gp, %hi(%neg(%gp_rel(label)))
|
|
|
|
|
daddiu $gp, $gp, %lo(%neg(%gp_rel(label)))
|
2001-10-10 03:08:35 +02:00
|
|
|
|
addu $gp, $gp, $reg1
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
s_cpsetup (ignore)
|
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
|
|
|
|
{
|
|
|
|
|
expressionS ex_off;
|
|
|
|
|
expressionS ex_sym;
|
|
|
|
|
int reg1;
|
|
|
|
|
int icnt = 0;
|
|
|
|
|
char *sym;
|
|
|
|
|
|
|
|
|
|
/* If we are not generating SVR4 PIC code, .cpload is ignored.
|
|
|
|
|
We also need NewABI support. */
|
|
|
|
|
if (mips_pic != SVR4_PIC || ! HAVE_NEWABI)
|
|
|
|
|
{
|
|
|
|
|
s_ignore (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
reg1 = tc_get_register (0);
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("missing argument separator ',' for .cpsetup"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer == '$')
|
|
|
|
|
mips_cpreturn_register = tc_get_register (0);
|
|
|
|
|
else
|
|
|
|
|
mips_cpreturn_offset = get_absolute_expression ();
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("missing argument separator ',' for .cpsetup"));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
sym = input_line_pointer;
|
|
|
|
|
while (ISALNUM (*input_line_pointer))
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
*input_line_pointer = 0;
|
|
|
|
|
|
|
|
|
|
ex_sym.X_op = O_symbol;
|
|
|
|
|
ex_sym.X_add_symbol = symbol_find_or_make (sym);
|
|
|
|
|
ex_sym.X_op_symbol = NULL;
|
|
|
|
|
ex_sym.X_add_number = 0;
|
|
|
|
|
|
|
|
|
|
if (mips_cpreturn_register == -1)
|
|
|
|
|
{
|
|
|
|
|
ex_off.X_op = O_constant;
|
|
|
|
|
ex_off.X_add_symbol = NULL;
|
|
|
|
|
ex_off.X_op_symbol = NULL;
|
|
|
|
|
ex_off.X_add_number = mips_cpreturn_offset;
|
|
|
|
|
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &ex_off, "sd", "t,o(b)",
|
|
|
|
|
mips_gp_register, (int) BFD_RELOC_LO16, SP);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "daddu",
|
|
|
|
|
"d,v,t", mips_cpreturn_register, mips_gp_register, 0);
|
|
|
|
|
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &ex_sym, "lui", "t,u", mips_gp_register,
|
|
|
|
|
(int) BFD_RELOC_GPREL16);
|
|
|
|
|
fix_new (frag_now, (char *) prev_insn_fixp - 4 - frag_now->fr_literal, 0,
|
|
|
|
|
NULL, 0, 0, BFD_RELOC_MIPS_SUB);
|
|
|
|
|
fix_new (frag_now, (char *) prev_insn_fixp - 4 - frag_now->fr_literal, 0,
|
|
|
|
|
NULL, 0, 0, BFD_RELOC_HI16_S);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &ex_sym, "addiu", "t,r,j",
|
|
|
|
|
mips_gp_register, mips_gp_register, (int) BFD_RELOC_GPREL16);
|
|
|
|
|
fix_new (frag_now, (char *) prev_insn_fixp - 4 - frag_now->fr_literal, 0,
|
|
|
|
|
NULL, 0, 0, BFD_RELOC_MIPS_SUB);
|
|
|
|
|
fix_new (frag_now, (char *) prev_insn_fixp - 4 - frag_now->fr_literal, 0,
|
|
|
|
|
NULL, 0, 0, BFD_RELOC_LO16);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "daddu",
|
|
|
|
|
"d,v,t", mips_gp_register, mips_gp_register, reg1);
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_cplocal (ignore)
|
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
|
|
|
|
{
|
|
|
|
|
/* If we are not generating SVR4 PIC code, or if this is not NewABI code,
|
|
|
|
|
.cplocal is ignored. */
|
|
|
|
|
if (mips_pic != SVR4_PIC || ! HAVE_NEWABI)
|
|
|
|
|
{
|
|
|
|
|
s_ignore (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
mips_gp_register = tc_get_register (0);
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Handle the .cprestore pseudo-op. This stores $gp into a given
|
|
|
|
|
offset from $sp. The offset is remembered, and after making a PIC
|
|
|
|
|
call $gp is restored from that location. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_cprestore (ignore)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
expressionS ex;
|
|
|
|
|
int icnt = 0;
|
|
|
|
|
|
2001-10-10 03:08:35 +02:00
|
|
|
|
/* If we are not generating SVR4 PIC code, or if this is NewABI code,
|
|
|
|
|
.cprestore is ignored. */
|
|
|
|
|
if (mips_pic != SVR4_PIC || HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
s_ignore (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
mips_cprestore_offset = get_absolute_expression ();
|
2002-01-05 20:06:52 +01:00
|
|
|
|
mips_cprestore_valid = 1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
ex.X_op = O_constant;
|
|
|
|
|
ex.X_add_symbol = NULL;
|
|
|
|
|
ex.X_op_symbol = NULL;
|
|
|
|
|
ex.X_add_number = mips_cprestore_offset;
|
|
|
|
|
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &ex,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "sw" : "sd",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"t,o(b)", GP, (int) BFD_RELOC_LO16, SP);
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
2001-10-10 03:08:35 +02:00
|
|
|
|
/* Handle the .cpreturn pseudo-op defined for NewABI PIC code. If an offset
|
|
|
|
|
was given in the preceeding .gpsetup, it results in:
|
|
|
|
|
ld $gp, offset($sp)
|
2001-11-06 22:39:09 +01:00
|
|
|
|
|
2001-10-10 03:08:35 +02:00
|
|
|
|
If a register $reg2 was given there, it results in:
|
|
|
|
|
daddiu $gp, $gp, $reg2
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
s_cpreturn (ignore)
|
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
|
|
|
|
{
|
|
|
|
|
expressionS ex;
|
|
|
|
|
int icnt = 0;
|
|
|
|
|
|
|
|
|
|
/* If we are not generating SVR4 PIC code, .cpreturn is ignored.
|
|
|
|
|
We also need NewABI support. */
|
|
|
|
|
if (mips_pic != SVR4_PIC || ! HAVE_NEWABI)
|
|
|
|
|
{
|
|
|
|
|
s_ignore (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (mips_cpreturn_register == -1)
|
|
|
|
|
{
|
|
|
|
|
ex.X_op = O_constant;
|
|
|
|
|
ex.X_add_symbol = NULL;
|
|
|
|
|
ex.X_op_symbol = NULL;
|
|
|
|
|
ex.X_add_number = mips_cpreturn_offset;
|
|
|
|
|
|
|
|
|
|
macro_build ((char *) NULL, &icnt, &ex, "ld", "t,o(b)",
|
|
|
|
|
mips_gp_register, (int) BFD_RELOC_LO16, SP);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL, "daddu",
|
|
|
|
|
"d,v,t", mips_gp_register, mips_cpreturn_register, 0);
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the .gpvalue pseudo-op. This is used when generating NewABI PIC
|
|
|
|
|
code. It sets the offset to use in gp_rel relocations. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_gpvalue (ignore)
|
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
|
|
|
|
{
|
|
|
|
|
/* If we are not generating SVR4 PIC code, .gpvalue is ignored.
|
|
|
|
|
We also need NewABI support. */
|
|
|
|
|
if (mips_pic != SVR4_PIC || ! HAVE_NEWABI)
|
|
|
|
|
{
|
|
|
|
|
s_ignore (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
mips_cpreturn_offset = get_absolute_expression ();
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Handle the .gpword pseudo-op. This is used when generating PIC
|
|
|
|
|
code. It generates a 32 bit GP relative reloc. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_gpword (ignore)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
symbolS *label;
|
|
|
|
|
expressionS ex;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
/* When not generating PIC code, this is treated as .word. */
|
|
|
|
|
if (mips_pic != SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
s_cons (2);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
label = insn_labels != NULL ? insn_labels->label : NULL;
|
|
|
|
|
mips_emit_delays (true);
|
|
|
|
|
if (auto_align)
|
|
|
|
|
mips_align (2, 0, label);
|
|
|
|
|
mips_clear_insn_labels ();
|
|
|
|
|
|
|
|
|
|
expression (&ex);
|
|
|
|
|
|
|
|
|
|
if (ex.X_op != O_symbol || ex.X_add_number != 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("Unsupported use of .gpword"));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
p = frag_more (4);
|
|
|
|
|
md_number_to_chars (p, (valueT) 0, 4);
|
|
|
|
|
fix_new_exp (frag_now, p - frag_now->fr_literal, 4, &ex, 0,
|
2001-12-02 14:14:48 +01:00
|
|
|
|
BFD_RELOC_GPREL32);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the .cpadd pseudo-op. This is used when dealing with switch
|
|
|
|
|
tables in SVR4 PIC code. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_cpadd (ignore)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int icnt = 0;
|
|
|
|
|
int reg;
|
|
|
|
|
|
2001-10-10 03:08:35 +02:00
|
|
|
|
/* This is ignored when not generating SVR4 PIC code or if this is NewABI
|
|
|
|
|
code. */
|
|
|
|
|
if (mips_pic != SVR4_PIC || HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
s_ignore (0);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add $gp to the register named as an argument. */
|
|
|
|
|
reg = tc_get_register (0);
|
|
|
|
|
macro_build ((char *) NULL, &icnt, (expressionS *) NULL,
|
2001-08-02 12:15:24 +02:00
|
|
|
|
HAVE_32BIT_ADDRESSES ? "addu" : "daddu",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
"d,v,t", reg, reg, GP);
|
|
|
|
|
|
2000-09-07 14:45:56 +02:00
|
|
|
|
demand_empty_rest_of_line ();
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the .insn pseudo-op. This marks instruction labels in
|
|
|
|
|
mips16 mode. This permits the linker to handle them specially,
|
|
|
|
|
such as generating jalx instructions when needed. We also make
|
|
|
|
|
them odd for the duration of the assembly, in order to generate the
|
|
|
|
|
right sort of code. We will make them even in the adjust_symtab
|
|
|
|
|
routine, while leaving them marked. This is convenient for the
|
|
|
|
|
debugger and the disassembler. The linker knows to make them odd
|
|
|
|
|
again. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_insn (ignore)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (mips_opts.mips16)
|
|
|
|
|
mips16_mark_labels ();
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle a .stabn directive. We need these in order to mark a label
|
|
|
|
|
as being a mips16 text label correctly. Sometimes the compiler
|
|
|
|
|
will emit a label, followed by a .stabn, and then switch sections.
|
|
|
|
|
If the label and .stabn are in mips16 mode, then the label is
|
|
|
|
|
really a mips16 text label. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_mips_stab (type)
|
|
|
|
|
int type;
|
|
|
|
|
{
|
|
|
|
|
if (type == 'n' && mips_opts.mips16)
|
|
|
|
|
mips16_mark_labels ();
|
|
|
|
|
|
|
|
|
|
s_stab (type);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle the .weakext pseudo-op as defined in Kane and Heinrich.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_mips_weakext (ignore)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
int c;
|
|
|
|
|
symbolS *symbolP;
|
|
|
|
|
expressionS exp;
|
|
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
symbolP = symbol_find_or_make (name);
|
|
|
|
|
S_SET_WEAK (symbolP);
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
|
|
|
|
|
if (! is_end_of_line[(unsigned char) *input_line_pointer])
|
|
|
|
|
{
|
|
|
|
|
if (S_IS_DEFINED (symbolP))
|
|
|
|
|
{
|
2001-12-04 15:38:48 +01:00
|
|
|
|
as_bad ("ignoring attempt to redefine symbol %s",
|
1999-05-03 09:29:11 +02:00
|
|
|
|
S_GET_NAME (symbolP));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
|
{
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
}
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expression (&exp);
|
|
|
|
|
if (exp.X_op != O_symbol)
|
|
|
|
|
{
|
|
|
|
|
as_bad ("bad .weakext directive");
|
|
|
|
|
ignore_rest_of_line();
|
|
|
|
|
return;
|
|
|
|
|
}
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_set_value_expression (symbolP, &exp);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Parse a register string into a number. Called from the ECOFF code
|
|
|
|
|
to parse .frame. The argument is non-zero if this is the frame
|
|
|
|
|
register, so that we can record it in mips_frame_reg. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
tc_get_register (frame)
|
|
|
|
|
int frame;
|
|
|
|
|
{
|
|
|
|
|
int reg;
|
|
|
|
|
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer++ != '$')
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("expected `$'"));
|
|
|
|
|
reg = 0;
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
else if (ISDIGIT (*input_line_pointer))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
reg = get_absolute_expression ();
|
|
|
|
|
if (reg < 0 || reg >= 32)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Bad register number"));
|
|
|
|
|
reg = 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (strncmp (input_line_pointer, "fp", 2) == 0)
|
|
|
|
|
reg = FP;
|
|
|
|
|
else if (strncmp (input_line_pointer, "sp", 2) == 0)
|
|
|
|
|
reg = SP;
|
|
|
|
|
else if (strncmp (input_line_pointer, "gp", 2) == 0)
|
|
|
|
|
reg = GP;
|
|
|
|
|
else if (strncmp (input_line_pointer, "at", 2) == 0)
|
|
|
|
|
reg = AT;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Unrecognized register name"));
|
|
|
|
|
reg = 0;
|
|
|
|
|
}
|
|
|
|
|
input_line_pointer += 2;
|
|
|
|
|
}
|
|
|
|
|
if (frame)
|
2002-01-05 20:06:52 +01:00
|
|
|
|
{
|
|
|
|
|
mips_frame_reg = reg != 0 ? reg : SP;
|
|
|
|
|
mips_frame_reg_valid = 1;
|
|
|
|
|
mips_cprestore_valid = 0;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return reg;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
valueT
|
|
|
|
|
md_section_align (seg, addr)
|
|
|
|
|
asection *seg;
|
|
|
|
|
valueT addr;
|
|
|
|
|
{
|
|
|
|
|
int align = bfd_get_section_alignment (stdoutput, seg);
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* We don't need to align ELF sections to the full alignment.
|
|
|
|
|
However, Irix 5 may prefer that we align them at least to a 16
|
|
|
|
|
byte boundary. We don't bother to align the sections if we are
|
|
|
|
|
targeted for an embedded system. */
|
|
|
|
|
if (strcmp (TARGET_OS, "elf") == 0)
|
|
|
|
|
return addr;
|
|
|
|
|
if (align > 4)
|
|
|
|
|
align = 4;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
return ((addr + (1 << align) - 1) & (-1 << align));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Utility routine, called from above as well. If called while the
|
|
|
|
|
input file is still being read, it's only an approximation. (For
|
|
|
|
|
example, a symbol may later become defined which appeared to be
|
|
|
|
|
undefined earlier.) */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
nopic_need_relax (sym, before_relaxing)
|
|
|
|
|
symbolS *sym;
|
|
|
|
|
int before_relaxing;
|
|
|
|
|
{
|
|
|
|
|
if (sym == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
2001-10-10 03:08:35 +02:00
|
|
|
|
if (USE_GLOBAL_POINTER_OPT && g_switch_value > 0)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
const char *symname;
|
|
|
|
|
int change;
|
|
|
|
|
|
|
|
|
|
/* Find out whether this symbol can be referenced off the GP
|
|
|
|
|
register. It can be if it is smaller than the -G size or if
|
|
|
|
|
it is in the .sdata or .sbss section. Certain symbols can
|
|
|
|
|
not be referenced off the GP, although it appears as though
|
|
|
|
|
they can. */
|
|
|
|
|
symname = S_GET_NAME (sym);
|
|
|
|
|
if (symname != (const char *) NULL
|
|
|
|
|
&& (strcmp (symname, "eprol") == 0
|
|
|
|
|
|| strcmp (symname, "etext") == 0
|
|
|
|
|
|| strcmp (symname, "_gp") == 0
|
|
|
|
|
|| strcmp (symname, "edata") == 0
|
|
|
|
|
|| strcmp (symname, "_fbss") == 0
|
|
|
|
|
|| strcmp (symname, "_fdata") == 0
|
|
|
|
|
|| strcmp (symname, "_ftext") == 0
|
|
|
|
|
|| strcmp (symname, "end") == 0
|
|
|
|
|
|| strcmp (symname, "_gp_disp") == 0))
|
|
|
|
|
change = 1;
|
|
|
|
|
else if ((! S_IS_DEFINED (sym) || S_IS_COMMON (sym))
|
|
|
|
|
&& (0
|
|
|
|
|
#ifndef NO_ECOFF_DEBUGGING
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
|| (symbol_get_obj (sym)->ecoff_extern_size != 0
|
|
|
|
|
&& (symbol_get_obj (sym)->ecoff_extern_size
|
|
|
|
|
<= g_switch_value))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
/* We must defer this decision until after the whole
|
|
|
|
|
file has been read, since there might be a .extern
|
|
|
|
|
after the first use of this symbol. */
|
|
|
|
|
|| (before_relaxing
|
|
|
|
|
#ifndef NO_ECOFF_DEBUGGING
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
&& symbol_get_obj (sym)->ecoff_extern_size == 0
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
&& S_GET_VALUE (sym) == 0)
|
|
|
|
|
|| (S_GET_VALUE (sym) != 0
|
|
|
|
|
&& S_GET_VALUE (sym) <= g_switch_value)))
|
|
|
|
|
change = 0;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
const char *segname;
|
|
|
|
|
|
|
|
|
|
segname = segment_name (S_GET_SEGMENT (sym));
|
|
|
|
|
assert (strcmp (segname, ".lit8") != 0
|
|
|
|
|
&& strcmp (segname, ".lit4") != 0);
|
|
|
|
|
change = (strcmp (segname, ".sdata") != 0
|
1999-09-28 06:13:25 +02:00
|
|
|
|
&& strcmp (segname, ".sbss") != 0
|
|
|
|
|
&& strncmp (segname, ".sdata.", 7) != 0
|
|
|
|
|
&& strncmp (segname, ".gnu.linkonce.s.", 16) != 0);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
return change;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
/* We are not optimizing for the GP register. */
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Given a mips16 variant frag FRAGP, return non-zero if it needs an
|
|
|
|
|
extended opcode. SEC is the section the frag is in. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
mips16_extended_frag (fragp, sec, stretch)
|
|
|
|
|
fragS *fragp;
|
|
|
|
|
asection *sec;
|
|
|
|
|
long stretch;
|
|
|
|
|
{
|
|
|
|
|
int type;
|
|
|
|
|
register const struct mips16_immed_operand *op;
|
|
|
|
|
offsetT val;
|
|
|
|
|
int mintiny, maxtiny;
|
|
|
|
|
segT symsec;
|
2001-06-08 08:07:13 +02:00
|
|
|
|
fragS *sym_frag;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (RELAX_MIPS16_USER_SMALL (fragp->fr_subtype))
|
|
|
|
|
return 0;
|
|
|
|
|
if (RELAX_MIPS16_USER_EXT (fragp->fr_subtype))
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
type = RELAX_MIPS16_TYPE (fragp->fr_subtype);
|
|
|
|
|
op = mips16_immed_operands;
|
|
|
|
|
while (op->type != type)
|
|
|
|
|
{
|
|
|
|
|
++op;
|
|
|
|
|
assert (op < mips16_immed_operands + MIPS16_NUM_IMMED);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (op->unsp)
|
|
|
|
|
{
|
|
|
|
|
if (type == '<' || type == '>' || type == '[' || type == ']')
|
|
|
|
|
{
|
|
|
|
|
mintiny = 1;
|
|
|
|
|
maxtiny = 1 << op->nbits;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
mintiny = 0;
|
|
|
|
|
maxtiny = (1 << op->nbits) - 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
mintiny = - (1 << (op->nbits - 1));
|
|
|
|
|
maxtiny = (1 << (op->nbits - 1)) - 1;
|
|
|
|
|
}
|
|
|
|
|
|
2001-06-08 08:07:13 +02:00
|
|
|
|
sym_frag = symbol_get_frag (fragp->fr_symbol);
|
* symbols.c (S_GET_VALUE): Don't treat O_constant and local
symbols specially. Always resolve, adding fr_address to value.
* write.c (write_object_file): Don't add fr_address to sym values.
(relax_frag): Likewise.
(relax_segment): Likewise.
* config/obj-ieee.c (do_symbols): Likewise.
* config/tc-cris.c (md_convert_frag): Likewise.
* config/tc-fr30.c (md_convert_frag): Likewise.
* config/tc-i386.c (md_convert_frag): Likewise.
* config/tc-m32r.c (md_convert_frag): Likewise.
* config/tc-m68hc11.c (md_convert_frag): Likewise.
* config/tc-mcore.c (md_convert_frag): Likewise.
* config/tc-mips.c (mips16_extended_frag): Likewise.
* config/tc-ns32k.c (md_convert_frag): Likewise.
* config/tc-m68k.c (md_convert_frag_1): Likewise.
(BRANCHBWL, BRABSJUNC, BRABSJCOND, BRANCHBW, FBRANCH, DBCCLBR,
DBCCABSJ, PCREL1632, PCINDEX, ABSTOPCREL): Decrement.
(md_relax_table): Remove first four entries. Format.
(md_estimate_size_before_relax): Remove old_fix. Don't bother
setting fr_var. Simplify byte branch checks.
2001-07-23 15:03:40 +02:00
|
|
|
|
val = S_GET_VALUE (fragp->fr_symbol);
|
2001-06-08 08:07:13 +02:00
|
|
|
|
symsec = S_GET_SEGMENT (fragp->fr_symbol);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (op->pcrel)
|
|
|
|
|
{
|
|
|
|
|
addressT addr;
|
|
|
|
|
|
|
|
|
|
/* We won't have the section when we are called from
|
|
|
|
|
mips_relax_frag. However, we will always have been called
|
|
|
|
|
from md_estimate_size_before_relax first. If this is a
|
|
|
|
|
branch to a different section, we mark it as such. If SEC is
|
|
|
|
|
NULL, and the frag is not marked, then it must be a branch to
|
|
|
|
|
the same section. */
|
|
|
|
|
if (sec == NULL)
|
|
|
|
|
{
|
|
|
|
|
if (RELAX_MIPS16_LONG_BRANCH (fragp->fr_subtype))
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2001-06-08 08:07:13 +02:00
|
|
|
|
/* Must have been called from md_estimate_size_before_relax. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (symsec != sec)
|
|
|
|
|
{
|
|
|
|
|
fragp->fr_subtype =
|
|
|
|
|
RELAX_MIPS16_MARK_LONG_BRANCH (fragp->fr_subtype);
|
|
|
|
|
|
|
|
|
|
/* FIXME: We should support this, and let the linker
|
|
|
|
|
catch branches and loads that are out of range. */
|
|
|
|
|
as_bad_where (fragp->fr_file, fragp->fr_line,
|
|
|
|
|
_("unsupported PC relative reference to different section"));
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
2001-06-08 08:07:13 +02:00
|
|
|
|
if (fragp != sym_frag && sym_frag->fr_address == 0)
|
|
|
|
|
/* Assume non-extended on the first relaxation pass.
|
|
|
|
|
The address we have calculated will be bogus if this is
|
|
|
|
|
a forward branch to another frag, as the forward frag
|
|
|
|
|
will have fr_address == 0. */
|
|
|
|
|
return 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* In this case, we know for sure that the symbol fragment is in
|
2001-06-08 08:07:13 +02:00
|
|
|
|
the same section. If the relax_marker of the symbol fragment
|
|
|
|
|
differs from the relax_marker of this fragment, we have not
|
|
|
|
|
yet adjusted the symbol fragment fr_address. We want to add
|
1999-05-03 09:29:11 +02:00
|
|
|
|
in STRETCH in order to get a better estimate of the address.
|
|
|
|
|
This particularly matters because of the shift bits. */
|
|
|
|
|
if (stretch != 0
|
2001-06-08 08:07:13 +02:00
|
|
|
|
&& sym_frag->relax_marker != fragp->relax_marker)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
fragS *f;
|
|
|
|
|
|
|
|
|
|
/* Adjust stretch for any alignment frag. Note that if have
|
|
|
|
|
been expanding the earlier code, the symbol may be
|
|
|
|
|
defined in what appears to be an earlier frag. FIXME:
|
|
|
|
|
This doesn't handle the fr_subtype field, which specifies
|
|
|
|
|
a maximum number of bytes to skip when doing an
|
|
|
|
|
alignment. */
|
2001-06-08 08:07:13 +02:00
|
|
|
|
for (f = fragp; f != NULL && f != sym_frag; f = f->fr_next)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (f->fr_type == rs_align || f->fr_type == rs_align_code)
|
|
|
|
|
{
|
|
|
|
|
if (stretch < 0)
|
|
|
|
|
stretch = - ((- stretch)
|
|
|
|
|
& ~ ((1 << (int) f->fr_offset) - 1));
|
|
|
|
|
else
|
|
|
|
|
stretch &= ~ ((1 << (int) f->fr_offset) - 1);
|
|
|
|
|
if (stretch == 0)
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (f != NULL)
|
|
|
|
|
val += stretch;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
addr = fragp->fr_address + fragp->fr_fix;
|
|
|
|
|
|
|
|
|
|
/* The base address rules are complicated. The base address of
|
|
|
|
|
a branch is the following instruction. The base address of a
|
|
|
|
|
PC relative load or add is the instruction itself, but if it
|
|
|
|
|
is in a delay slot (in which case it can not be extended) use
|
|
|
|
|
the address of the instruction whose delay slot it is in. */
|
|
|
|
|
if (type == 'p' || type == 'q')
|
|
|
|
|
{
|
|
|
|
|
addr += 2;
|
|
|
|
|
|
|
|
|
|
/* If we are currently assuming that this frag should be
|
|
|
|
|
extended, then, the current address is two bytes
|
2000-09-07 14:45:56 +02:00
|
|
|
|
higher. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (RELAX_MIPS16_EXTENDED (fragp->fr_subtype))
|
|
|
|
|
addr += 2;
|
|
|
|
|
|
|
|
|
|
/* Ignore the low bit in the target, since it will be set
|
|
|
|
|
for a text label. */
|
|
|
|
|
if ((val & 1) != 0)
|
|
|
|
|
--val;
|
|
|
|
|
}
|
|
|
|
|
else if (RELAX_MIPS16_JAL_DSLOT (fragp->fr_subtype))
|
|
|
|
|
addr -= 4;
|
|
|
|
|
else if (RELAX_MIPS16_DSLOT (fragp->fr_subtype))
|
|
|
|
|
addr -= 2;
|
|
|
|
|
|
|
|
|
|
val -= addr & ~ ((1 << op->shift) - 1);
|
|
|
|
|
|
|
|
|
|
/* Branch offsets have an implicit 0 in the lowest bit. */
|
|
|
|
|
if (type == 'p' || type == 'q')
|
|
|
|
|
val /= 2;
|
|
|
|
|
|
|
|
|
|
/* If any of the shifted bits are set, we must use an extended
|
|
|
|
|
opcode. If the address depends on the size of this
|
|
|
|
|
instruction, this can lead to a loop, so we arrange to always
|
|
|
|
|
use an extended opcode. We only check this when we are in
|
|
|
|
|
the main relaxation loop, when SEC is NULL. */
|
|
|
|
|
if ((val & ((1 << op->shift) - 1)) != 0 && sec == NULL)
|
|
|
|
|
{
|
|
|
|
|
fragp->fr_subtype =
|
|
|
|
|
RELAX_MIPS16_MARK_LONG_BRANCH (fragp->fr_subtype);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If we are about to mark a frag as extended because the value
|
|
|
|
|
is precisely maxtiny + 1, then there is a chance of an
|
|
|
|
|
infinite loop as in the following code:
|
|
|
|
|
la $4,foo
|
|
|
|
|
.skip 1020
|
|
|
|
|
.align 2
|
|
|
|
|
foo:
|
|
|
|
|
In this case when the la is extended, foo is 0x3fc bytes
|
|
|
|
|
away, so the la can be shrunk, but then foo is 0x400 away, so
|
|
|
|
|
the la must be extended. To avoid this loop, we mark the
|
|
|
|
|
frag as extended if it was small, and is about to become
|
|
|
|
|
extended with a value of maxtiny + 1. */
|
|
|
|
|
if (val == ((maxtiny + 1) << op->shift)
|
|
|
|
|
&& ! RELAX_MIPS16_EXTENDED (fragp->fr_subtype)
|
|
|
|
|
&& sec == NULL)
|
|
|
|
|
{
|
|
|
|
|
fragp->fr_subtype =
|
|
|
|
|
RELAX_MIPS16_MARK_LONG_BRANCH (fragp->fr_subtype);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (symsec != absolute_section && sec != NULL)
|
|
|
|
|
as_bad_where (fragp->fr_file, fragp->fr_line, _("unsupported relocation"));
|
|
|
|
|
|
|
|
|
|
if ((val & ((1 << op->shift) - 1)) != 0
|
|
|
|
|
|| val < (mintiny << op->shift)
|
|
|
|
|
|| val > (maxtiny << op->shift))
|
|
|
|
|
return 1;
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Estimate the size of a frag before relaxing. Unless this is the
|
|
|
|
|
mips16, we are not really relaxing here, and the final size is
|
|
|
|
|
encoded in the subtype information. For the mips16, we have to
|
|
|
|
|
decide whether we are using an extended opcode or not. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
md_estimate_size_before_relax (fragp, segtype)
|
|
|
|
|
fragS *fragp;
|
|
|
|
|
asection *segtype;
|
|
|
|
|
{
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int change = 0;
|
2000-07-02 03:18:49 +02:00
|
|
|
|
boolean linkonce = false;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (RELAX_MIPS16_P (fragp->fr_subtype))
|
|
|
|
|
{
|
|
|
|
|
if (mips16_extended_frag (fragp, segtype, 0))
|
|
|
|
|
{
|
|
|
|
|
fragp->fr_subtype = RELAX_MIPS16_MARK_EXTENDED (fragp->fr_subtype);
|
|
|
|
|
return 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fragp->fr_subtype = RELAX_MIPS16_CLEAR_EXTENDED (fragp->fr_subtype);
|
|
|
|
|
return 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (mips_pic == NO_PIC)
|
|
|
|
|
{
|
|
|
|
|
change = nopic_need_relax (fragp->fr_symbol, 0);
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
symbolS *sym;
|
|
|
|
|
asection *symsec;
|
|
|
|
|
|
|
|
|
|
sym = fragp->fr_symbol;
|
|
|
|
|
|
|
|
|
|
/* Handle the case of a symbol equated to another symbol. */
|
2001-09-09 16:01:17 +02:00
|
|
|
|
while (symbol_equated_reloc_p (sym))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
symbolS *n;
|
|
|
|
|
|
|
|
|
|
/* It's possible to get a loop here in a badly written
|
|
|
|
|
program. */
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
n = symbol_get_value_expression (sym)->X_add_symbol;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (n == sym)
|
|
|
|
|
break;
|
|
|
|
|
sym = n;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
symsec = S_GET_SEGMENT (sym);
|
|
|
|
|
|
2000-07-02 03:18:49 +02:00
|
|
|
|
/* duplicate the test for LINK_ONCE sections as in adjust_reloc_syms */
|
|
|
|
|
if (symsec != segtype && ! S_IS_LOCAL (sym))
|
2000-12-05 19:51:08 +01:00
|
|
|
|
{
|
|
|
|
|
if ((bfd_get_section_flags (stdoutput, symsec) & SEC_LINK_ONCE)
|
|
|
|
|
!= 0)
|
|
|
|
|
linkonce = true;
|
|
|
|
|
|
|
|
|
|
/* The GNU toolchain uses an extension for ELF: a section
|
|
|
|
|
beginning with the magic string .gnu.linkonce is a linkonce
|
|
|
|
|
section. */
|
|
|
|
|
if (strncmp (segment_name (symsec), ".gnu.linkonce",
|
|
|
|
|
sizeof ".gnu.linkonce" - 1) == 0)
|
|
|
|
|
linkonce = true;
|
|
|
|
|
}
|
2000-07-02 03:18:49 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* This must duplicate the test in adjust_reloc_syms. */
|
|
|
|
|
change = (symsec != &bfd_und_section
|
|
|
|
|
&& symsec != &bfd_abs_section
|
2000-05-11 03:48:09 +02:00
|
|
|
|
&& ! bfd_is_com_section (symsec)
|
2000-07-02 03:18:49 +02:00
|
|
|
|
&& !linkonce
|
2000-05-11 03:48:09 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
2001-06-09 05:28:04 +02:00
|
|
|
|
/* A global or weak symbol is treated as external. */
|
2001-07-26 00:27:46 +02:00
|
|
|
|
&& (OUTPUT_FLAVOR == bfd_target_elf_flavour
|
|
|
|
|
&& ! (S_IS_EXTERN (sym) || S_IS_WEAK (sym)))
|
2000-05-11 03:48:09 +02:00
|
|
|
|
#endif
|
|
|
|
|
);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
if (change)
|
|
|
|
|
{
|
|
|
|
|
/* Record the offset to the first reloc in the fr_opcode field.
|
|
|
|
|
This lets md_convert_frag and tc_gen_reloc know that the code
|
|
|
|
|
must be expanded. */
|
|
|
|
|
fragp->fr_opcode = (fragp->fr_literal
|
|
|
|
|
+ fragp->fr_fix
|
|
|
|
|
- RELAX_OLD (fragp->fr_subtype)
|
|
|
|
|
+ RELAX_RELOC1 (fragp->fr_subtype));
|
|
|
|
|
/* FIXME: This really needs as_warn_where. */
|
|
|
|
|
if (RELAX_WARN (fragp->fr_subtype))
|
2001-08-07 15:15:26 +02:00
|
|
|
|
as_warn (_("AT used after \".set noat\" or macro used after "
|
|
|
|
|
"\".set nomacro\""));
|
|
|
|
|
|
|
|
|
|
return RELAX_NEW (fragp->fr_subtype) - RELAX_OLD (fragp->fr_subtype);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2001-08-07 15:15:26 +02:00
|
|
|
|
return 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This is called to see whether a reloc against a defined symbol
|
|
|
|
|
should be converted into a reloc against a section. Don't adjust
|
|
|
|
|
MIPS16 jump relocations, so we don't have to worry about the format
|
|
|
|
|
of the offset in the .o file. Don't adjust relocations against
|
|
|
|
|
mips16 symbols, so that the linker can find them if it needs to set
|
|
|
|
|
up a stub. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
mips_fix_adjustable (fixp)
|
|
|
|
|
fixS *fixp;
|
|
|
|
|
{
|
2001-06-09 05:28:04 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* Prevent all adjustments to global symbols. */
|
2001-07-26 00:27:46 +02:00
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour
|
|
|
|
|
&& (S_IS_EXTERN (fixp->fx_addsy) || S_IS_WEAK (fixp->fx_addsy)))
|
2001-06-09 05:28:04 +02:00
|
|
|
|
return 0;
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (fixp->fx_r_type == BFD_RELOC_MIPS16_JMP)
|
|
|
|
|
return 0;
|
|
|
|
|
if (fixp->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
|
|
|
return 0;
|
|
|
|
|
if (fixp->fx_addsy == NULL)
|
|
|
|
|
return 1;
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
if (OUTPUT_FLAVOR == bfd_target_elf_flavour
|
|
|
|
|
&& S_GET_OTHER (fixp->fx_addsy) == STO_MIPS16
|
|
|
|
|
&& fixp->fx_subsy == NULL)
|
|
|
|
|
return 0;
|
|
|
|
|
#endif
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Translate internal representation of relocation info to BFD target
|
|
|
|
|
format. */
|
|
|
|
|
|
|
|
|
|
arelent **
|
|
|
|
|
tc_gen_reloc (section, fixp)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
asection *section ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fixS *fixp;
|
|
|
|
|
{
|
|
|
|
|
static arelent *retval[4];
|
|
|
|
|
arelent *reloc;
|
|
|
|
|
bfd_reloc_code_real_type code;
|
|
|
|
|
|
|
|
|
|
reloc = retval[0] = (arelent *) xmalloc (sizeof (arelent));
|
|
|
|
|
retval[1] = NULL;
|
|
|
|
|
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
reloc->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
|
|
|
|
|
*reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
|
|
|
|
|
|
|
|
|
|
if (mips_pic == EMBEDDED_PIC
|
|
|
|
|
&& SWITCH_TABLE (fixp))
|
|
|
|
|
{
|
|
|
|
|
/* For a switch table entry we use a special reloc. The addend
|
|
|
|
|
is actually the difference between the reloc address and the
|
|
|
|
|
subtrahend. */
|
|
|
|
|
reloc->addend = reloc->address - S_GET_VALUE (fixp->fx_subsy);
|
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_ecoff_flavour)
|
|
|
|
|
as_fatal (_("Double check fx_r_type in tc-mips.c:tc_gen_reloc"));
|
|
|
|
|
fixp->fx_r_type = BFD_RELOC_GPREL32;
|
|
|
|
|
}
|
2000-03-11 03:16:25 +01:00
|
|
|
|
else if (fixp->fx_pcrel == 0 || OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
|
|
|
|
reloc->addend = fixp->fx_addnumber;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (fixp->fx_r_type == BFD_RELOC_PCREL_LO16)
|
|
|
|
|
{
|
|
|
|
|
/* We use a special addend for an internal RELLO reloc. */
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
if (symbol_section_p (fixp->fx_addsy))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reloc->addend = reloc->address - S_GET_VALUE (fixp->fx_subsy);
|
|
|
|
|
else
|
|
|
|
|
reloc->addend = fixp->fx_addnumber + reloc->address;
|
|
|
|
|
}
|
|
|
|
|
else if (fixp->fx_r_type == BFD_RELOC_PCREL_HI16_S)
|
|
|
|
|
{
|
|
|
|
|
assert (fixp->fx_next != NULL
|
|
|
|
|
&& fixp->fx_next->fx_r_type == BFD_RELOC_PCREL_LO16);
|
|
|
|
|
/* We use a special addend for an internal RELHI reloc. The
|
|
|
|
|
reloc is relative to the RELLO; adjust the addend
|
|
|
|
|
accordingly. */
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
if (symbol_section_p (fixp->fx_addsy))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reloc->addend = (fixp->fx_next->fx_frag->fr_address
|
|
|
|
|
+ fixp->fx_next->fx_where
|
|
|
|
|
- S_GET_VALUE (fixp->fx_subsy));
|
|
|
|
|
else
|
|
|
|
|
reloc->addend = (fixp->fx_addnumber
|
|
|
|
|
+ fixp->fx_next->fx_frag->fr_address
|
|
|
|
|
+ fixp->fx_next->fx_where);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_aout_flavour)
|
|
|
|
|
/* A gruesome hack which is a result of the gruesome gas reloc
|
|
|
|
|
handling. */
|
|
|
|
|
reloc->addend = reloc->address;
|
|
|
|
|
else
|
|
|
|
|
reloc->addend = -reloc->address;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If this is a variant frag, we may need to adjust the existing
|
|
|
|
|
reloc and generate a new one. */
|
|
|
|
|
if (fixp->fx_frag->fr_opcode != NULL
|
2001-12-02 14:14:48 +01:00
|
|
|
|
&& (fixp->fx_r_type == BFD_RELOC_GPREL16
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_MIPS_GOT16
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_MIPS_CALL16
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_MIPS_GOT_HI16
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_MIPS_GOT_LO16
|
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_MIPS_CALL_HI16
|
2001-10-10 03:08:35 +02:00
|
|
|
|
|| fixp->fx_r_type == BFD_RELOC_MIPS_CALL_LO16)
|
|
|
|
|
&& ! HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
arelent *reloc2;
|
|
|
|
|
|
|
|
|
|
assert (! RELAX_MIPS16_P (fixp->fx_frag->fr_subtype));
|
|
|
|
|
|
|
|
|
|
/* If this is not the last reloc in this frag, then we have two
|
|
|
|
|
GPREL relocs, or a GOT_HI16/GOT_LO16 pair, or a
|
|
|
|
|
CALL_HI16/CALL_LO16, both of which are being replaced. Let
|
|
|
|
|
the second one handle all of them. */
|
|
|
|
|
if (fixp->fx_next != NULL
|
|
|
|
|
&& fixp->fx_frag == fixp->fx_next->fx_frag)
|
|
|
|
|
{
|
2001-12-02 14:14:48 +01:00
|
|
|
|
assert ((fixp->fx_r_type == BFD_RELOC_GPREL16
|
|
|
|
|
&& fixp->fx_next->fx_r_type == BFD_RELOC_GPREL16)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|| (fixp->fx_r_type == BFD_RELOC_MIPS_GOT_HI16
|
|
|
|
|
&& (fixp->fx_next->fx_r_type
|
|
|
|
|
== BFD_RELOC_MIPS_GOT_LO16))
|
|
|
|
|
|| (fixp->fx_r_type == BFD_RELOC_MIPS_CALL_HI16
|
|
|
|
|
&& (fixp->fx_next->fx_r_type
|
|
|
|
|
== BFD_RELOC_MIPS_CALL_LO16)));
|
|
|
|
|
retval[0] = NULL;
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fixp->fx_where = fixp->fx_frag->fr_opcode - fixp->fx_frag->fr_literal;
|
|
|
|
|
reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
|
|
|
|
|
reloc2 = retval[1] = (arelent *) xmalloc (sizeof (arelent));
|
|
|
|
|
retval[2] = NULL;
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
reloc2->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
|
|
|
|
|
*reloc2->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reloc2->address = (reloc->address
|
|
|
|
|
+ (RELAX_RELOC2 (fixp->fx_frag->fr_subtype)
|
|
|
|
|
- RELAX_RELOC1 (fixp->fx_frag->fr_subtype)));
|
|
|
|
|
reloc2->addend = fixp->fx_addnumber;
|
|
|
|
|
reloc2->howto = bfd_reloc_type_lookup (stdoutput, BFD_RELOC_LO16);
|
|
|
|
|
assert (reloc2->howto != NULL);
|
|
|
|
|
|
|
|
|
|
if (RELAX_RELOC3 (fixp->fx_frag->fr_subtype))
|
|
|
|
|
{
|
|
|
|
|
arelent *reloc3;
|
|
|
|
|
|
|
|
|
|
reloc3 = retval[2] = (arelent *) xmalloc (sizeof (arelent));
|
|
|
|
|
retval[3] = NULL;
|
|
|
|
|
*reloc3 = *reloc2;
|
|
|
|
|
reloc3->address += 4;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (mips_pic == NO_PIC)
|
|
|
|
|
{
|
2001-12-02 14:14:48 +01:00
|
|
|
|
assert (fixp->fx_r_type == BFD_RELOC_GPREL16);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fixp->fx_r_type = BFD_RELOC_HI16_S;
|
|
|
|
|
}
|
|
|
|
|
else if (mips_pic == SVR4_PIC)
|
|
|
|
|
{
|
|
|
|
|
switch (fixp->fx_r_type)
|
|
|
|
|
{
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
case BFD_RELOC_MIPS_GOT16:
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_MIPS_CALL16:
|
|
|
|
|
case BFD_RELOC_MIPS_GOT_LO16:
|
|
|
|
|
case BFD_RELOC_MIPS_CALL_LO16:
|
|
|
|
|
fixp->fx_r_type = BFD_RELOC_MIPS_GOT16;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Since MIPS ELF uses Rel instead of Rela, encode the vtable entry
|
|
|
|
|
to be used in the relocation's section offset. */
|
|
|
|
|
if (fixp->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
|
|
|
{
|
|
|
|
|
reloc->address = reloc->addend;
|
|
|
|
|
reloc->addend = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Since DIFF_EXPR_OK is defined in tc-mips.h, it is possible that
|
|
|
|
|
fixup_segment converted a non-PC relative reloc into a PC
|
|
|
|
|
relative reloc. In such a case, we need to convert the reloc
|
|
|
|
|
code. */
|
|
|
|
|
code = fixp->fx_r_type;
|
|
|
|
|
if (fixp->fx_pcrel)
|
|
|
|
|
{
|
|
|
|
|
switch (code)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_8:
|
|
|
|
|
code = BFD_RELOC_8_PCREL;
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_16:
|
|
|
|
|
code = BFD_RELOC_16_PCREL;
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_32:
|
|
|
|
|
code = BFD_RELOC_32_PCREL;
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_64:
|
|
|
|
|
code = BFD_RELOC_64_PCREL;
|
|
|
|
|
break;
|
|
|
|
|
case BFD_RELOC_8_PCREL:
|
|
|
|
|
case BFD_RELOC_16_PCREL:
|
|
|
|
|
case BFD_RELOC_32_PCREL:
|
|
|
|
|
case BFD_RELOC_64_PCREL:
|
|
|
|
|
case BFD_RELOC_16_PCREL_S2:
|
|
|
|
|
case BFD_RELOC_PCREL_HI16_S:
|
|
|
|
|
case BFD_RELOC_PCREL_LO16:
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
|
|
|
|
_("Cannot make %s relocation PC relative"),
|
|
|
|
|
bfd_get_reloc_code_name (code));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2001-11-21 12:24:13 +01:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* md_apply_fix3 has a double-subtraction hack to get
|
|
|
|
|
bfd_install_relocation to behave nicely. GPREL relocations are
|
|
|
|
|
handled correctly without this hack, so undo it here. We can't
|
|
|
|
|
stop md_apply_fix3 from subtracting twice in the first place since
|
|
|
|
|
the fake addend is required for variant frags above. */
|
|
|
|
|
if (fixp->fx_addsy != NULL && OUTPUT_FLAVOR == bfd_target_elf_flavour
|
2001-12-04 01:51:33 +01:00
|
|
|
|
&& code == BFD_RELOC_GPREL16
|
2001-11-21 12:24:13 +01:00
|
|
|
|
&& reloc->addend != 0
|
|
|
|
|
&& mips_need_elf_addend_fixup (fixp))
|
|
|
|
|
reloc->addend += S_GET_VALUE (fixp->fx_addsy);
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* To support a PC relative reloc when generating embedded PIC code
|
|
|
|
|
for ECOFF, we use a Cygnus extension. We check for that here to
|
|
|
|
|
make sure that we don't let such a reloc escape normally. */
|
2000-03-11 03:16:25 +01:00
|
|
|
|
if ((OUTPUT_FLAVOR == bfd_target_ecoff_flavour
|
|
|
|
|
|| OUTPUT_FLAVOR == bfd_target_elf_flavour)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
&& code == BFD_RELOC_16_PCREL_S2
|
|
|
|
|
&& mips_pic != EMBEDDED_PIC)
|
|
|
|
|
reloc->howto = NULL;
|
|
|
|
|
else
|
|
|
|
|
reloc->howto = bfd_reloc_type_lookup (stdoutput, code);
|
|
|
|
|
|
|
|
|
|
if (reloc->howto == NULL)
|
|
|
|
|
{
|
|
|
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
|
|
|
|
_("Can not represent %s relocation in this object file format"),
|
|
|
|
|
bfd_get_reloc_code_name (code));
|
|
|
|
|
retval[0] = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Relax a machine dependent frag. This returns the amount by which
|
|
|
|
|
the current size of the frag should change. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
mips_relax_frag (fragp, stretch)
|
|
|
|
|
fragS *fragp;
|
|
|
|
|
long stretch;
|
|
|
|
|
{
|
|
|
|
|
if (! RELAX_MIPS16_P (fragp->fr_subtype))
|
|
|
|
|
return 0;
|
|
|
|
|
|
2001-11-12 23:19:30 +01:00
|
|
|
|
if (mips16_extended_frag (fragp, NULL, stretch))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (RELAX_MIPS16_EXTENDED (fragp->fr_subtype))
|
|
|
|
|
return 0;
|
|
|
|
|
fragp->fr_subtype = RELAX_MIPS16_MARK_EXTENDED (fragp->fr_subtype);
|
|
|
|
|
return 2;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (! RELAX_MIPS16_EXTENDED (fragp->fr_subtype))
|
|
|
|
|
return 0;
|
|
|
|
|
fragp->fr_subtype = RELAX_MIPS16_CLEAR_EXTENDED (fragp->fr_subtype);
|
|
|
|
|
return -2;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Convert a machine dependent frag. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_convert_frag (abfd, asec, fragp)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
segT asec;
|
|
|
|
|
fragS *fragp;
|
|
|
|
|
{
|
|
|
|
|
int old, new;
|
|
|
|
|
char *fixptr;
|
|
|
|
|
|
|
|
|
|
if (RELAX_MIPS16_P (fragp->fr_subtype))
|
|
|
|
|
{
|
|
|
|
|
int type;
|
|
|
|
|
register const struct mips16_immed_operand *op;
|
|
|
|
|
boolean small, ext;
|
|
|
|
|
offsetT val;
|
|
|
|
|
bfd_byte *buf;
|
|
|
|
|
unsigned long insn;
|
|
|
|
|
boolean use_extend;
|
|
|
|
|
unsigned short extend;
|
|
|
|
|
|
|
|
|
|
type = RELAX_MIPS16_TYPE (fragp->fr_subtype);
|
|
|
|
|
op = mips16_immed_operands;
|
|
|
|
|
while (op->type != type)
|
|
|
|
|
++op;
|
|
|
|
|
|
|
|
|
|
if (RELAX_MIPS16_EXTENDED (fragp->fr_subtype))
|
|
|
|
|
{
|
|
|
|
|
small = false;
|
|
|
|
|
ext = true;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
small = true;
|
|
|
|
|
ext = false;
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-22 12:23:50 +02:00
|
|
|
|
resolve_symbol_value (fragp->fr_symbol);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
val = S_GET_VALUE (fragp->fr_symbol);
|
|
|
|
|
if (op->pcrel)
|
|
|
|
|
{
|
|
|
|
|
addressT addr;
|
|
|
|
|
|
|
|
|
|
addr = fragp->fr_address + fragp->fr_fix;
|
|
|
|
|
|
|
|
|
|
/* The rules for the base address of a PC relative reloc are
|
|
|
|
|
complicated; see mips16_extended_frag. */
|
|
|
|
|
if (type == 'p' || type == 'q')
|
|
|
|
|
{
|
|
|
|
|
addr += 2;
|
|
|
|
|
if (ext)
|
|
|
|
|
addr += 2;
|
|
|
|
|
/* Ignore the low bit in the target, since it will be
|
|
|
|
|
set for a text label. */
|
|
|
|
|
if ((val & 1) != 0)
|
|
|
|
|
--val;
|
|
|
|
|
}
|
|
|
|
|
else if (RELAX_MIPS16_JAL_DSLOT (fragp->fr_subtype))
|
|
|
|
|
addr -= 4;
|
|
|
|
|
else if (RELAX_MIPS16_DSLOT (fragp->fr_subtype))
|
|
|
|
|
addr -= 2;
|
|
|
|
|
|
|
|
|
|
addr &= ~ (addressT) ((1 << op->shift) - 1);
|
|
|
|
|
val -= addr;
|
|
|
|
|
|
|
|
|
|
/* Make sure the section winds up with the alignment we have
|
|
|
|
|
assumed. */
|
|
|
|
|
if (op->shift > 0)
|
|
|
|
|
record_alignment (asec, op->shift);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (ext
|
|
|
|
|
&& (RELAX_MIPS16_JAL_DSLOT (fragp->fr_subtype)
|
|
|
|
|
|| RELAX_MIPS16_DSLOT (fragp->fr_subtype)))
|
|
|
|
|
as_warn_where (fragp->fr_file, fragp->fr_line,
|
|
|
|
|
_("extended instruction in delay slot"));
|
|
|
|
|
|
|
|
|
|
buf = (bfd_byte *) (fragp->fr_literal + fragp->fr_fix);
|
|
|
|
|
|
|
|
|
|
if (target_big_endian)
|
|
|
|
|
insn = bfd_getb16 (buf);
|
|
|
|
|
else
|
|
|
|
|
insn = bfd_getl16 (buf);
|
|
|
|
|
|
|
|
|
|
mips16_immed (fragp->fr_file, fragp->fr_line, type, val,
|
|
|
|
|
RELAX_MIPS16_USER_EXT (fragp->fr_subtype),
|
|
|
|
|
small, ext, &insn, &use_extend, &extend);
|
|
|
|
|
|
|
|
|
|
if (use_extend)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (buf, 0xf000 | extend, 2);
|
|
|
|
|
fragp->fr_fix += 2;
|
|
|
|
|
buf += 2;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
md_number_to_chars (buf, insn, 2);
|
|
|
|
|
fragp->fr_fix += 2;
|
|
|
|
|
buf += 2;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (fragp->fr_opcode == NULL)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
old = RELAX_OLD (fragp->fr_subtype);
|
|
|
|
|
new = RELAX_NEW (fragp->fr_subtype);
|
|
|
|
|
fixptr = fragp->fr_literal + fragp->fr_fix;
|
|
|
|
|
|
|
|
|
|
if (new > 0)
|
|
|
|
|
memcpy (fixptr - old, fixptr, new);
|
|
|
|
|
|
|
|
|
|
fragp->fr_fix += new - old;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
|
|
|
|
|
/* This function is called after the relocs have been generated.
|
|
|
|
|
We've been storing mips16 text labels as odd. Here we convert them
|
|
|
|
|
back to even for the convenience of the debugger. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_frob_file_after_relocs ()
|
|
|
|
|
{
|
|
|
|
|
asymbol **syms;
|
|
|
|
|
unsigned int count, i;
|
|
|
|
|
|
|
|
|
|
if (OUTPUT_FLAVOR != bfd_target_elf_flavour)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
syms = bfd_get_outsymbols (stdoutput);
|
|
|
|
|
count = bfd_get_symcount (stdoutput);
|
|
|
|
|
for (i = 0; i < count; i++, syms++)
|
|
|
|
|
{
|
|
|
|
|
if (elf_symbol (*syms)->internal_elf_sym.st_other == STO_MIPS16
|
|
|
|
|
&& ((*syms)->value & 1) != 0)
|
|
|
|
|
{
|
|
|
|
|
(*syms)->value &= ~1;
|
|
|
|
|
/* If the symbol has an odd size, it was probably computed
|
|
|
|
|
incorrectly, so adjust that as well. */
|
|
|
|
|
if ((elf_symbol (*syms)->internal_elf_sym.st_size & 1) != 0)
|
|
|
|
|
++elf_symbol (*syms)->internal_elf_sym.st_size;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* This function is called whenever a label is defined. It is used
|
|
|
|
|
when handling branch delays; if a branch has a label, we assume we
|
|
|
|
|
can not move it. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_define_label (sym)
|
|
|
|
|
symbolS *sym;
|
|
|
|
|
{
|
|
|
|
|
struct insn_label_list *l;
|
|
|
|
|
|
|
|
|
|
if (free_insn_labels == NULL)
|
|
|
|
|
l = (struct insn_label_list *) xmalloc (sizeof *l);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
l = free_insn_labels;
|
|
|
|
|
free_insn_labels = l->next;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
l->label = sym;
|
|
|
|
|
l->next = insn_labels;
|
|
|
|
|
insn_labels = l;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#if defined (OBJ_ELF) || defined (OBJ_MAYBE_ELF)
|
|
|
|
|
|
|
|
|
|
/* Some special processing for a MIPS ELF file. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
mips_elf_final_processing ()
|
|
|
|
|
{
|
|
|
|
|
/* Write out the register information. */
|
2001-10-03 22:30:15 +02:00
|
|
|
|
if (! HAVE_NEWABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
Elf32_RegInfo s;
|
|
|
|
|
|
|
|
|
|
s.ri_gprmask = mips_gprmask;
|
|
|
|
|
s.ri_cprmask[0] = mips_cprmask[0];
|
|
|
|
|
s.ri_cprmask[1] = mips_cprmask[1];
|
|
|
|
|
s.ri_cprmask[2] = mips_cprmask[2];
|
|
|
|
|
s.ri_cprmask[3] = mips_cprmask[3];
|
|
|
|
|
/* The gp_value field is set by the MIPS ELF backend. */
|
|
|
|
|
|
|
|
|
|
bfd_mips_elf32_swap_reginfo_out (stdoutput, &s,
|
|
|
|
|
((Elf32_External_RegInfo *)
|
|
|
|
|
mips_regmask_frag));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
Elf64_Internal_RegInfo s;
|
|
|
|
|
|
|
|
|
|
s.ri_gprmask = mips_gprmask;
|
|
|
|
|
s.ri_pad = 0;
|
|
|
|
|
s.ri_cprmask[0] = mips_cprmask[0];
|
|
|
|
|
s.ri_cprmask[1] = mips_cprmask[1];
|
|
|
|
|
s.ri_cprmask[2] = mips_cprmask[2];
|
|
|
|
|
s.ri_cprmask[3] = mips_cprmask[3];
|
|
|
|
|
/* The gp_value field is set by the MIPS ELF backend. */
|
|
|
|
|
|
|
|
|
|
bfd_mips_elf64_swap_reginfo_out (stdoutput, &s,
|
|
|
|
|
((Elf64_External_RegInfo *)
|
|
|
|
|
mips_regmask_frag));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Set the MIPS ELF flag bits. FIXME: There should probably be some
|
|
|
|
|
sort of BFD interface for this. */
|
|
|
|
|
if (mips_any_noreorder)
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_MIPS_NOREORDER;
|
|
|
|
|
if (mips_pic != NO_PIC)
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_MIPS_PIC;
|
|
|
|
|
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* Set the MIPS ELF ABI flags. */
|
2001-11-12 17:54:54 +01:00
|
|
|
|
if (file_mips_abi == NO_ABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
;
|
2001-11-12 17:54:54 +01:00
|
|
|
|
else if (file_mips_abi == O32_ABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= E_MIPS_ABI_O32;
|
2001-11-12 17:54:54 +01:00
|
|
|
|
else if (file_mips_abi == O64_ABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= E_MIPS_ABI_O64;
|
2001-11-12 17:54:54 +01:00
|
|
|
|
else if (file_mips_abi == EABI_ABI)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (mips_eabi64)
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= E_MIPS_ABI_EABI64;
|
|
|
|
|
else
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= E_MIPS_ABI_EABI32;
|
|
|
|
|
}
|
2001-11-12 17:54:54 +01:00
|
|
|
|
else if (file_mips_abi == N32_ABI)
|
2001-08-16 23:48:28 +02:00
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_MIPS_ABI2;
|
|
|
|
|
|
|
|
|
|
/* Nothing to do for "64". */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (mips_32bitmode)
|
|
|
|
|
elf_elfheader (stdoutput)->e_flags |= EF_MIPS_32BITMODE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* OBJ_ELF || OBJ_MAYBE_ELF */
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
typedef struct proc {
|
|
|
|
|
symbolS *isym;
|
|
|
|
|
unsigned long reg_mask;
|
|
|
|
|
unsigned long reg_offset;
|
|
|
|
|
unsigned long fpreg_mask;
|
|
|
|
|
unsigned long fpreg_offset;
|
|
|
|
|
unsigned long frame_offset;
|
|
|
|
|
unsigned long frame_reg;
|
|
|
|
|
unsigned long pc_reg;
|
|
|
|
|
} procS;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
static procS cur_proc;
|
|
|
|
|
static procS *cur_proc_ptr;
|
|
|
|
|
static int numprocs;
|
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
/* Fill in an rs_align_code fragment. */
|
2000-01-14 18:58:29 +01:00
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
void
|
|
|
|
|
mips_handle_align (fragp)
|
|
|
|
|
fragS *fragp;
|
2000-01-14 18:58:29 +01:00
|
|
|
|
{
|
2000-12-28 11:07:56 +01:00
|
|
|
|
if (fragp->fr_type != rs_align_code)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (mips_opts.mips16)
|
2000-01-14 18:58:29 +01:00
|
|
|
|
{
|
|
|
|
|
static const unsigned char be_nop[] = { 0x65, 0x00 };
|
|
|
|
|
static const unsigned char le_nop[] = { 0x00, 0x65 };
|
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
int bytes;
|
|
|
|
|
char *p;
|
2000-01-14 18:58:29 +01:00
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
bytes = fragp->fr_next->fr_address - fragp->fr_address - fragp->fr_fix;
|
|
|
|
|
p = fragp->fr_literal + fragp->fr_fix;
|
|
|
|
|
|
|
|
|
|
if (bytes & 1)
|
|
|
|
|
{
|
|
|
|
|
*p++ = 0;
|
|
|
|
|
fragp->fr_fix += 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
memcpy (p, (target_big_endian ? be_nop : le_nop), 2);
|
|
|
|
|
fragp->fr_var = 2;
|
2000-01-14 18:58:29 +01:00
|
|
|
|
}
|
|
|
|
|
|
2000-12-28 11:07:56 +01:00
|
|
|
|
/* For mips32, a nop is a zero, which we trivially get by doing nothing. */
|
2000-01-14 18:58:29 +01:00
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void
|
|
|
|
|
md_obj_begin ()
|
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
md_obj_end ()
|
|
|
|
|
{
|
|
|
|
|
/* check for premature end, nesting errors, etc */
|
|
|
|
|
if (cur_proc_ptr)
|
2001-08-07 15:15:26 +02:00
|
|
|
|
as_warn (_("missing .end at end of assembly"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static long
|
|
|
|
|
get_number ()
|
|
|
|
|
{
|
|
|
|
|
int negative = 0;
|
|
|
|
|
long val = 0;
|
|
|
|
|
|
|
|
|
|
if (*input_line_pointer == '-')
|
|
|
|
|
{
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
negative = 1;
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (!ISDIGIT (*input_line_pointer))
|
2001-12-04 15:38:48 +01:00
|
|
|
|
as_bad (_("expected simple number"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (input_line_pointer[0] == '0')
|
|
|
|
|
{
|
|
|
|
|
if (input_line_pointer[1] == 'x')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 2;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISXDIGIT (*input_line_pointer))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
val <<= 4;
|
|
|
|
|
val |= hex_value (*input_line_pointer++);
|
|
|
|
|
}
|
|
|
|
|
return negative ? -val : val;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
++input_line_pointer;
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*input_line_pointer))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
val <<= 3;
|
|
|
|
|
val |= *input_line_pointer++ - '0';
|
|
|
|
|
}
|
|
|
|
|
return negative ? -val : val;
|
|
|
|
|
}
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (!ISDIGIT (*input_line_pointer))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
printf (_(" *input_line_pointer == '%c' 0x%02x\n"),
|
|
|
|
|
*input_line_pointer, *input_line_pointer);
|
2001-12-04 15:38:48 +01:00
|
|
|
|
as_warn (_("invalid number"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return -1;
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISDIGIT (*input_line_pointer))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
val *= 10;
|
|
|
|
|
val += *input_line_pointer++ - '0';
|
|
|
|
|
}
|
|
|
|
|
return negative ? -val : val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The .file directive; just like the usual .file directive, but there
|
|
|
|
|
is an initial number which is the ECOFF file index. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_file (x)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int x ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int line;
|
|
|
|
|
|
|
|
|
|
line = get_number ();
|
|
|
|
|
s_app_file (0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The .end directive. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_mips_end (x)
|
2000-05-30 00:05:27 +02:00
|
|
|
|
int x ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
symbolS *p;
|
|
|
|
|
int maybe_text;
|
|
|
|
|
|
2002-01-05 20:06:52 +01:00
|
|
|
|
/* Following functions need their own .frame and .cprestore directives. */
|
|
|
|
|
mips_frame_reg_valid = 0;
|
|
|
|
|
mips_cprestore_valid = 0;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (!is_end_of_line[(unsigned char) *input_line_pointer])
|
|
|
|
|
{
|
|
|
|
|
p = get_symbol ();
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
p = NULL;
|
|
|
|
|
|
|
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
|
if ((bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE) != 0)
|
|
|
|
|
maybe_text = 1;
|
|
|
|
|
else
|
|
|
|
|
maybe_text = 0;
|
|
|
|
|
#else
|
|
|
|
|
if (now_seg != data_section && now_seg != bss_section)
|
|
|
|
|
maybe_text = 1;
|
|
|
|
|
else
|
|
|
|
|
maybe_text = 0;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (!maybe_text)
|
|
|
|
|
as_warn (_(".end not in text section"));
|
|
|
|
|
|
|
|
|
|
if (!cur_proc_ptr)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_(".end directive without a preceding .ent directive."));
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (p != NULL)
|
|
|
|
|
{
|
|
|
|
|
assert (S_GET_NAME (p));
|
|
|
|
|
if (strcmp (S_GET_NAME (p), S_GET_NAME (cur_proc_ptr->isym)))
|
|
|
|
|
as_warn (_(".end symbol does not match .ent symbol."));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_warn (_(".end directive missing or unknown symbol"));
|
|
|
|
|
|
|
|
|
|
#ifdef MIPS_STABS_ELF
|
|
|
|
|
{
|
|
|
|
|
segT saved_seg = now_seg;
|
|
|
|
|
subsegT saved_subseg = now_subseg;
|
|
|
|
|
valueT dot;
|
|
|
|
|
expressionS exp;
|
|
|
|
|
char *fragp;
|
|
|
|
|
|
|
|
|
|
dot = frag_now_fix ();
|
|
|
|
|
|
|
|
|
|
#ifdef md_flush_pending_output
|
|
|
|
|
md_flush_pending_output ();
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
assert (pdr_seg);
|
|
|
|
|
subseg_set (pdr_seg, 0);
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* Write the symbol. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
exp.X_op = O_symbol;
|
|
|
|
|
exp.X_add_symbol = p;
|
|
|
|
|
exp.X_add_number = 0;
|
|
|
|
|
emit_expr (&exp, 4);
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
fragp = frag_more (7 * 4);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
md_number_to_chars (fragp, (valueT) cur_proc_ptr->reg_mask, 4);
|
|
|
|
|
md_number_to_chars (fragp + 4, (valueT) cur_proc_ptr->reg_offset, 4);
|
|
|
|
|
md_number_to_chars (fragp + 8, (valueT) cur_proc_ptr->fpreg_mask, 4);
|
|
|
|
|
md_number_to_chars (fragp + 12, (valueT) cur_proc_ptr->fpreg_offset, 4);
|
|
|
|
|
md_number_to_chars (fragp + 16, (valueT) cur_proc_ptr->frame_offset, 4);
|
|
|
|
|
md_number_to_chars (fragp + 20, (valueT) cur_proc_ptr->frame_reg, 4);
|
|
|
|
|
md_number_to_chars (fragp + 24, (valueT) cur_proc_ptr->pc_reg, 4);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
subseg_set (saved_seg, saved_subseg);
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
cur_proc_ptr = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The .aent and .ent directives. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_mips_ent (aent)
|
|
|
|
|
int aent;
|
|
|
|
|
{
|
|
|
|
|
int number = 0;
|
|
|
|
|
symbolS *symbolP;
|
|
|
|
|
int maybe_text;
|
|
|
|
|
|
|
|
|
|
symbolP = get_symbol ();
|
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
SKIP_WHITESPACE ();
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (ISDIGIT (*input_line_pointer)
|
1999-05-28 17:28:56 +02:00
|
|
|
|
|| *input_line_pointer == '-')
|
1999-05-03 09:29:11 +02:00
|
|
|
|
number = get_number ();
|
|
|
|
|
|
|
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
|
if ((bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE) != 0)
|
|
|
|
|
maybe_text = 1;
|
|
|
|
|
else
|
|
|
|
|
maybe_text = 0;
|
|
|
|
|
#else
|
|
|
|
|
if (now_seg != data_section && now_seg != bss_section)
|
|
|
|
|
maybe_text = 1;
|
|
|
|
|
else
|
|
|
|
|
maybe_text = 0;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (!maybe_text)
|
|
|
|
|
as_warn (_(".ent or .aent not in text section."));
|
|
|
|
|
|
|
|
|
|
if (!aent && cur_proc_ptr)
|
2001-08-07 15:15:26 +02:00
|
|
|
|
as_warn (_("missing .end"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (!aent)
|
|
|
|
|
{
|
2002-01-05 20:06:52 +01:00
|
|
|
|
/* This function needs its own .frame and .cprestore directives. */
|
|
|
|
|
mips_frame_reg_valid = 0;
|
|
|
|
|
mips_cprestore_valid = 0;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
cur_proc_ptr = &cur_proc;
|
|
|
|
|
memset (cur_proc_ptr, '\0', sizeof (procS));
|
|
|
|
|
|
|
|
|
|
cur_proc_ptr->isym = symbolP;
|
|
|
|
|
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbol_get_bfdsym (symbolP)->flags |= BSF_FUNCTION;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
numprocs++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The .frame directive. If the mdebug section is present (IRIX 5 native)
|
2000-09-07 14:45:56 +02:00
|
|
|
|
then ecoff.c (ecoff_directive_frame) is used. For embedded targets,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s_mips_frame is used so that we can set the PDR information correctly.
|
2000-09-07 14:45:56 +02:00
|
|
|
|
We can't use the ecoff routines because they make reference to the ecoff
|
1999-05-03 09:29:11 +02:00
|
|
|
|
symbol table (in the mdebug section). */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_mips_frame (ignore)
|
2001-07-22 20:11:29 +02:00
|
|
|
|
int ignore ATTRIBUTE_UNUSED;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
#ifdef MIPS_STABS_ELF
|
|
|
|
|
|
|
|
|
|
long val;
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
if (cur_proc_ptr == (procS *) NULL)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_warn (_(".frame outside of .ent"));
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
cur_proc_ptr->frame_reg = tc_get_register (1);
|
|
|
|
|
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer++ != ','
|
|
|
|
|
|| get_absolute_expression_and_terminator (&val) != ',')
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Bad .frame directive"));
|
|
|
|
|
--input_line_pointer;
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
cur_proc_ptr->frame_offset = val;
|
|
|
|
|
cur_proc_ptr->pc_reg = tc_get_register (0);
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
#else
|
|
|
|
|
s_ignore (ignore);
|
|
|
|
|
#endif /* MIPS_STABS_ELF */
|
|
|
|
|
}
|
|
|
|
|
|
2000-09-07 14:45:56 +02:00
|
|
|
|
/* The .fmask and .mask directives. If the mdebug section is present
|
|
|
|
|
(IRIX 5 native) then ecoff.c (ecoff_directive_mask) is used. For
|
1999-05-03 09:29:11 +02:00
|
|
|
|
embedded targets, s_mips_mask is used so that we can set the PDR
|
2000-09-07 14:45:56 +02:00
|
|
|
|
information correctly. We can't use the ecoff routines because they
|
1999-05-03 09:29:11 +02:00
|
|
|
|
make reference to the ecoff symbol table (in the mdebug section). */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
s_mips_mask (reg_type)
|
|
|
|
|
char reg_type;
|
|
|
|
|
{
|
|
|
|
|
#ifdef MIPS_STABS_ELF
|
|
|
|
|
long mask, off;
|
2000-09-07 14:45:56 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (cur_proc_ptr == (procS *) NULL)
|
|
|
|
|
{
|
|
|
|
|
as_warn (_(".mask/.fmask outside of .ent"));
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (get_absolute_expression_and_terminator (&mask) != ',')
|
|
|
|
|
{
|
|
|
|
|
as_warn (_("Bad .mask/.fmask directive"));
|
|
|
|
|
--input_line_pointer;
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
off = get_absolute_expression ();
|
|
|
|
|
|
|
|
|
|
if (reg_type == 'F')
|
|
|
|
|
{
|
|
|
|
|
cur_proc_ptr->fpreg_mask = mask;
|
|
|
|
|
cur_proc_ptr->fpreg_offset = off;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
cur_proc_ptr->reg_mask = mask;
|
|
|
|
|
cur_proc_ptr->reg_offset = off;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
#else
|
|
|
|
|
s_ignore (reg_type);
|
|
|
|
|
#endif /* MIPS_STABS_ELF */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The .loc directive. */
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
static void
|
|
|
|
|
s_loc (x)
|
|
|
|
|
int x;
|
|
|
|
|
{
|
|
|
|
|
symbolS *symbolP;
|
|
|
|
|
int lineno;
|
|
|
|
|
int addroff;
|
|
|
|
|
|
|
|
|
|
assert (now_seg == text_section);
|
|
|
|
|
|
|
|
|
|
lineno = get_number ();
|
|
|
|
|
addroff = frag_now_fix ();
|
|
|
|
|
|
|
|
|
|
symbolP = symbol_new ("", N_SLINE, addroff, frag_now);
|
|
|
|
|
S_SET_TYPE (symbolP, N_SLINE);
|
|
|
|
|
S_SET_OTHER (symbolP, 0);
|
|
|
|
|
S_SET_DESC (symbolP, lineno);
|
|
|
|
|
symbolP->sy_segment = now_seg;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
2000-12-01 22:35:38 +01:00
|
|
|
|
|
|
|
|
|
/* CPU name/ISA/number mapping table.
|
|
|
|
|
|
|
|
|
|
Entries are grouped by type. The first matching CPU or ISA entry
|
|
|
|
|
gets chosen by CPU or ISA, so it should be the 'canonical' name
|
|
|
|
|
for that type. Entries after that within the type are sorted
|
|
|
|
|
alphabetically.
|
|
|
|
|
|
|
|
|
|
Case is ignored in comparison, so put the canonical entry in the
|
|
|
|
|
appropriate case but everything else in lower case to ease eye pain. */
|
2000-12-12 20:29:24 +01:00
|
|
|
|
static const struct mips_cpu_info mips_cpu_info_table[] =
|
|
|
|
|
{
|
2000-12-01 22:35:38 +01:00
|
|
|
|
/* MIPS1 ISA */
|
|
|
|
|
{ "MIPS1", 1, ISA_MIPS1, CPU_R3000, },
|
|
|
|
|
{ "mips", 1, ISA_MIPS1, CPU_R3000, },
|
|
|
|
|
|
|
|
|
|
/* MIPS2 ISA */
|
|
|
|
|
{ "MIPS2", 1, ISA_MIPS2, CPU_R6000, },
|
|
|
|
|
|
|
|
|
|
/* MIPS3 ISA */
|
|
|
|
|
{ "MIPS3", 1, ISA_MIPS3, CPU_R4000, },
|
|
|
|
|
|
|
|
|
|
/* MIPS4 ISA */
|
|
|
|
|
{ "MIPS4", 1, ISA_MIPS4, CPU_R8000, },
|
|
|
|
|
|
2000-12-02 01:55:22 +01:00
|
|
|
|
/* MIPS5 ISA */
|
|
|
|
|
{ "MIPS5", 1, ISA_MIPS5, CPU_MIPS5, },
|
|
|
|
|
{ "Generic-MIPS5", 0, ISA_MIPS5, CPU_MIPS5, },
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
/* MIPS32 ISA */
|
|
|
|
|
{ "MIPS32", 1, ISA_MIPS32, CPU_MIPS32, },
|
2001-08-31 23:06:40 +02:00
|
|
|
|
{ "mipsisa32", 0, ISA_MIPS32, CPU_MIPS32, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
{ "Generic-MIPS32", 0, ISA_MIPS32, CPU_MIPS32, },
|
2001-08-31 23:06:40 +02:00
|
|
|
|
{ "4kc", 0, ISA_MIPS32, CPU_MIPS32, },
|
|
|
|
|
{ "4km", 0, ISA_MIPS32, CPU_MIPS32, },
|
|
|
|
|
{ "4kp", 0, ISA_MIPS32, CPU_MIPS32, },
|
|
|
|
|
|
|
|
|
|
/* For historical reasons. */
|
|
|
|
|
{ "MIPS64", 1, ISA_MIPS3, CPU_R4000, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
|
2000-12-02 01:55:22 +01:00
|
|
|
|
/* MIPS64 ISA */
|
2001-08-31 23:06:40 +02:00
|
|
|
|
{ "mipsisa64", 1, ISA_MIPS64, CPU_MIPS64, },
|
2000-12-02 01:55:22 +01:00
|
|
|
|
{ "Generic-MIPS64", 0, ISA_MIPS64, CPU_MIPS64, },
|
2001-08-31 23:06:40 +02:00
|
|
|
|
{ "5kc", 0, ISA_MIPS64, CPU_MIPS64, },
|
|
|
|
|
{ "20kc", 0, ISA_MIPS64, CPU_MIPS64, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
|
|
|
|
|
/* R2000 CPU */
|
|
|
|
|
{ "R2000", 0, ISA_MIPS1, CPU_R2000, },
|
|
|
|
|
{ "2000", 0, ISA_MIPS1, CPU_R2000, },
|
|
|
|
|
{ "2k", 0, ISA_MIPS1, CPU_R2000, },
|
|
|
|
|
{ "r2k", 0, ISA_MIPS1, CPU_R2000, },
|
|
|
|
|
|
|
|
|
|
/* R3000 CPU */
|
|
|
|
|
{ "R3000", 0, ISA_MIPS1, CPU_R3000, },
|
|
|
|
|
{ "3000", 0, ISA_MIPS1, CPU_R3000, },
|
|
|
|
|
{ "3k", 0, ISA_MIPS1, CPU_R3000, },
|
|
|
|
|
{ "r3k", 0, ISA_MIPS1, CPU_R3000, },
|
|
|
|
|
|
|
|
|
|
/* TX3900 CPU */
|
|
|
|
|
{ "R3900", 0, ISA_MIPS1, CPU_R3900, },
|
|
|
|
|
{ "3900", 0, ISA_MIPS1, CPU_R3900, },
|
2000-12-12 20:29:24 +01:00
|
|
|
|
{ "mipstx39", 0, ISA_MIPS1, CPU_R3900, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
|
|
|
|
|
/* R4000 CPU */
|
|
|
|
|
{ "R4000", 0, ISA_MIPS3, CPU_R4000, },
|
|
|
|
|
{ "4000", 0, ISA_MIPS3, CPU_R4000, },
|
|
|
|
|
{ "4k", 0, ISA_MIPS3, CPU_R4000, }, /* beware */
|
|
|
|
|
{ "r4k", 0, ISA_MIPS3, CPU_R4000, },
|
|
|
|
|
|
|
|
|
|
/* R4010 CPU */
|
|
|
|
|
{ "R4010", 0, ISA_MIPS2, CPU_R4010, },
|
|
|
|
|
{ "4010", 0, ISA_MIPS2, CPU_R4010, },
|
|
|
|
|
|
|
|
|
|
/* R4400 CPU */
|
|
|
|
|
{ "R4400", 0, ISA_MIPS3, CPU_R4400, },
|
|
|
|
|
{ "4400", 0, ISA_MIPS3, CPU_R4400, },
|
|
|
|
|
|
|
|
|
|
/* R4600 CPU */
|
|
|
|
|
{ "R4600", 0, ISA_MIPS3, CPU_R4600, },
|
|
|
|
|
{ "4600", 0, ISA_MIPS3, CPU_R4600, },
|
|
|
|
|
{ "mips64orion", 0, ISA_MIPS3, CPU_R4600, },
|
|
|
|
|
{ "orion", 0, ISA_MIPS3, CPU_R4600, },
|
|
|
|
|
|
|
|
|
|
/* R4650 CPU */
|
|
|
|
|
{ "R4650", 0, ISA_MIPS3, CPU_R4650, },
|
|
|
|
|
{ "4650", 0, ISA_MIPS3, CPU_R4650, },
|
|
|
|
|
|
|
|
|
|
/* R6000 CPU */
|
|
|
|
|
{ "R6000", 0, ISA_MIPS2, CPU_R6000, },
|
|
|
|
|
{ "6000", 0, ISA_MIPS2, CPU_R6000, },
|
|
|
|
|
{ "6k", 0, ISA_MIPS2, CPU_R6000, },
|
|
|
|
|
{ "r6k", 0, ISA_MIPS2, CPU_R6000, },
|
|
|
|
|
|
|
|
|
|
/* R8000 CPU */
|
|
|
|
|
{ "R8000", 0, ISA_MIPS4, CPU_R8000, },
|
|
|
|
|
{ "8000", 0, ISA_MIPS4, CPU_R8000, },
|
|
|
|
|
{ "8k", 0, ISA_MIPS4, CPU_R8000, },
|
|
|
|
|
{ "r8k", 0, ISA_MIPS4, CPU_R8000, },
|
|
|
|
|
|
|
|
|
|
/* R10000 CPU */
|
|
|
|
|
{ "R10000", 0, ISA_MIPS4, CPU_R10000, },
|
|
|
|
|
{ "10000", 0, ISA_MIPS4, CPU_R10000, },
|
|
|
|
|
{ "10k", 0, ISA_MIPS4, CPU_R10000, },
|
|
|
|
|
{ "r10k", 0, ISA_MIPS4, CPU_R10000, },
|
|
|
|
|
|
2001-05-23 19:26:40 +02:00
|
|
|
|
/* R12000 CPU */
|
|
|
|
|
{ "R12000", 0, ISA_MIPS4, CPU_R12000, },
|
|
|
|
|
{ "12000", 0, ISA_MIPS4, CPU_R12000, },
|
|
|
|
|
{ "12k", 0, ISA_MIPS4, CPU_R12000, },
|
|
|
|
|
{ "r12k", 0, ISA_MIPS4, CPU_R12000, },
|
|
|
|
|
|
2000-12-01 22:35:38 +01:00
|
|
|
|
/* VR4100 CPU */
|
|
|
|
|
{ "VR4100", 0, ISA_MIPS3, CPU_VR4100, },
|
|
|
|
|
{ "4100", 0, ISA_MIPS3, CPU_VR4100, },
|
|
|
|
|
{ "mips64vr4100", 0, ISA_MIPS3, CPU_VR4100, },
|
|
|
|
|
{ "r4100", 0, ISA_MIPS3, CPU_VR4100, },
|
|
|
|
|
|
|
|
|
|
/* VR4111 CPU */
|
|
|
|
|
{ "VR4111", 0, ISA_MIPS3, CPU_R4111, },
|
|
|
|
|
{ "4111", 0, ISA_MIPS3, CPU_R4111, },
|
|
|
|
|
{ "mips64vr4111", 0, ISA_MIPS3, CPU_R4111, },
|
|
|
|
|
{ "r4111", 0, ISA_MIPS3, CPU_R4111, },
|
|
|
|
|
|
|
|
|
|
/* VR4300 CPU */
|
|
|
|
|
{ "VR4300", 0, ISA_MIPS3, CPU_R4300, },
|
|
|
|
|
{ "4300", 0, ISA_MIPS3, CPU_R4300, },
|
|
|
|
|
{ "mips64vr4300", 0, ISA_MIPS3, CPU_R4300, },
|
|
|
|
|
{ "r4300", 0, ISA_MIPS3, CPU_R4300, },
|
|
|
|
|
|
|
|
|
|
/* VR5000 CPU */
|
|
|
|
|
{ "VR5000", 0, ISA_MIPS4, CPU_R5000, },
|
|
|
|
|
{ "5000", 0, ISA_MIPS4, CPU_R5000, },
|
|
|
|
|
{ "5k", 0, ISA_MIPS4, CPU_R5000, },
|
|
|
|
|
{ "mips64vr5000", 0, ISA_MIPS4, CPU_R5000, },
|
|
|
|
|
{ "r5000", 0, ISA_MIPS4, CPU_R5000, },
|
|
|
|
|
{ "r5200", 0, ISA_MIPS4, CPU_R5000, },
|
2001-07-04 14:32:07 +02:00
|
|
|
|
{ "rm5200", 0, ISA_MIPS4, CPU_R5000, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
{ "r5230", 0, ISA_MIPS4, CPU_R5000, },
|
2001-07-04 14:32:07 +02:00
|
|
|
|
{ "rm5230", 0, ISA_MIPS4, CPU_R5000, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
{ "r5231", 0, ISA_MIPS4, CPU_R5000, },
|
2001-07-04 14:32:07 +02:00
|
|
|
|
{ "rm5231", 0, ISA_MIPS4, CPU_R5000, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
{ "r5261", 0, ISA_MIPS4, CPU_R5000, },
|
2001-07-04 14:32:07 +02:00
|
|
|
|
{ "rm5261", 0, ISA_MIPS4, CPU_R5000, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
{ "r5721", 0, ISA_MIPS4, CPU_R5000, },
|
2001-07-04 14:32:07 +02:00
|
|
|
|
{ "rm5721", 0, ISA_MIPS4, CPU_R5000, },
|
2000-12-01 22:35:38 +01:00
|
|
|
|
{ "r5k", 0, ISA_MIPS4, CPU_R5000, },
|
|
|
|
|
{ "r7000", 0, ISA_MIPS4, CPU_R5000, },
|
|
|
|
|
|
2001-10-21 07:58:55 +02:00
|
|
|
|
/* Broadcom SB-1 CPU */
|
2000-12-02 02:10:33 +01:00
|
|
|
|
{ "SB-1", 0, ISA_MIPS64, CPU_SB1, },
|
2000-12-12 20:29:24 +01:00
|
|
|
|
{ "sb-1250", 0, ISA_MIPS64, CPU_SB1, },
|
2000-12-02 02:10:33 +01:00
|
|
|
|
{ "sb1", 0, ISA_MIPS64, CPU_SB1, },
|
|
|
|
|
{ "sb1250", 0, ISA_MIPS64, CPU_SB1, },
|
|
|
|
|
|
2000-12-05 19:51:08 +01:00
|
|
|
|
/* End marker. */
|
2000-12-01 22:35:38 +01:00
|
|
|
|
{ NULL, 0, 0, 0, },
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static const struct mips_cpu_info *
|
|
|
|
|
mips_cpu_info_from_name (name)
|
|
|
|
|
const char *name;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; mips_cpu_info_table[i].name != NULL; i++)
|
2000-12-05 19:51:08 +01:00
|
|
|
|
if (strcasecmp (name, mips_cpu_info_table[i].name) == 0)
|
2000-12-01 22:35:38 +01:00
|
|
|
|
return (&mips_cpu_info_table[i]);
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
return NULL;
|
2000-12-01 22:35:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const struct mips_cpu_info *
|
|
|
|
|
mips_cpu_info_from_isa (isa)
|
|
|
|
|
int isa;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; mips_cpu_info_table[i].name != NULL; i++)
|
|
|
|
|
if (mips_cpu_info_table[i].is_isa
|
|
|
|
|
&& isa == mips_cpu_info_table[i].isa)
|
|
|
|
|
return (&mips_cpu_info_table[i]);
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
return NULL;
|
2000-12-01 22:35:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const struct mips_cpu_info *
|
|
|
|
|
mips_cpu_info_from_cpu (cpu)
|
|
|
|
|
int cpu;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; mips_cpu_info_table[i].name != NULL; i++)
|
|
|
|
|
if (!mips_cpu_info_table[i].is_isa
|
|
|
|
|
&& cpu == mips_cpu_info_table[i].cpu)
|
|
|
|
|
return (&mips_cpu_info_table[i]);
|
|
|
|
|
|
2000-12-12 20:29:24 +01:00
|
|
|
|
return NULL;
|
2000-12-01 22:35:38 +01:00
|
|
|
|
}
|