1999-05-03 09:29:11 +02:00
|
|
|
|
/* tc-mcore.c -- Assemble code for M*Core
|
2020-01-01 08:57:01 +01:00
|
|
|
|
Copyright (C) 1999-2020 Free Software Foundation, Inc.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
This file is part of GAS, the GNU Assembler.
|
|
|
|
|
|
|
|
|
|
GAS is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-03 13:01:12 +02:00
|
|
|
|
the Free Software Foundation; either version 3, or (at your option)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
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
|
1999-08-31 17:12:20 +02:00
|
|
|
|
along with GAS; see the file COPYING. If not, write to the Free
|
2005-05-05 11:13:19 +02:00
|
|
|
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
|
|
|
|
02110-1301, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#include "as.h"
|
|
|
|
|
#include "subsegs.h"
|
|
|
|
|
#define DEFINE_TABLE
|
|
|
|
|
#include "../opcodes/mcore-opc.h"
|
2001-09-19 07:33:36 +02:00
|
|
|
|
#include "safe-ctype.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
#include "elf/mcore.h"
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef streq
|
|
|
|
|
#define streq(a,b) (strcmp (a, b) == 0)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Forward declarations for dumb compilers. */
|
|
|
|
|
|
|
|
|
|
/* Several places in this file insert raw instructions into the
|
|
|
|
|
object. They should use MCORE_INST_XXX macros to get the opcodes
|
|
|
|
|
and then use these two macros to crack the MCORE_INST value into
|
|
|
|
|
the appropriate byte values. */
|
2000-02-10 22:31:13 +01:00
|
|
|
|
#define INST_BYTE0(x) (target_big_endian ? (((x) >> 8) & 0xFF) : ((x) & 0xFF))
|
|
|
|
|
#define INST_BYTE1(x) (target_big_endian ? ((x) & 0xFF) : (((x) >> 8) & 0xFF))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
const char comment_chars[] = "#/";
|
|
|
|
|
const char line_separator_chars[] = ";";
|
|
|
|
|
const char line_comment_chars[] = "#/";
|
|
|
|
|
|
2000-05-03 20:50:55 +02:00
|
|
|
|
static int do_jsri2bsr = 0; /* Change here from 1 by Cruess 19 August 97. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static int sifilter_mode = 0;
|
|
|
|
|
|
|
|
|
|
const char EXP_CHARS[] = "eE";
|
|
|
|
|
|
2000-05-03 20:50:55 +02:00
|
|
|
|
/* Chars that mean this number is a floating point constant
|
|
|
|
|
As in 0f12.456
|
|
|
|
|
or 0d1.2345e12 */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
const char FLT_CHARS[] = "rRsSfFdDxXpP";
|
|
|
|
|
|
|
|
|
|
#define C(what,length) (((what) << 2) + (length))
|
|
|
|
|
#define GET_WHAT(x) ((x >> 2))
|
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* These are the two types of relaxable instruction. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#define COND_JUMP 1
|
|
|
|
|
#define UNCD_JUMP 2
|
|
|
|
|
|
|
|
|
|
#define UNDEF_DISP 0
|
2001-03-30 02:06:10 +02:00
|
|
|
|
#define DISP12 1
|
|
|
|
|
#define DISP32 2
|
|
|
|
|
#define UNDEF_WORD_DISP 3
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#define C12_LEN 2
|
2005-03-24 21:40:28 +01:00
|
|
|
|
#define C32_LEN 10 /* Allow for align. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#define U12_LEN 2
|
2005-03-24 21:40:28 +01:00
|
|
|
|
#define U32_LEN 8 /* Allow for align. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
typedef enum
|
|
|
|
|
{
|
|
|
|
|
M210,
|
|
|
|
|
M340
|
|
|
|
|
}
|
|
|
|
|
cpu_type;
|
|
|
|
|
|
|
|
|
|
cpu_type cpu = M340;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-05-03 20:50:55 +02:00
|
|
|
|
/* Initialize the relax table. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
const relax_typeS md_relax_table[] =
|
|
|
|
|
{
|
2001-04-05 06:21:36 +02:00
|
|
|
|
{ 0, 0, 0, 0 },
|
|
|
|
|
{ 0, 0, 0, 0 },
|
|
|
|
|
{ 0, 0, 0, 0 },
|
|
|
|
|
{ 0, 0, 0, 0 },
|
|
|
|
|
|
|
|
|
|
/* COND_JUMP */
|
|
|
|
|
{ 0, 0, 0, 0 }, /* UNDEF_DISP */
|
|
|
|
|
{ 2048, -2046, C12_LEN, C(COND_JUMP, DISP32) }, /* DISP12 */
|
|
|
|
|
{ 0, 0, C32_LEN, 0 }, /* DISP32 */
|
|
|
|
|
{ 0, 0, C32_LEN, 0 }, /* UNDEF_WORD_DISP */
|
|
|
|
|
|
|
|
|
|
/* UNCD_JUMP */
|
2002-05-11 11:53:52 +02:00
|
|
|
|
{ 0, 0, 0, 0 }, /* UNDEF_DISP */
|
|
|
|
|
{ 2048, -2046, U12_LEN, C(UNCD_JUMP, DISP32) }, /* DISP12 */
|
|
|
|
|
{ 0, 0, U32_LEN, 0 }, /* DISP32 */
|
2001-04-05 06:21:36 +02:00
|
|
|
|
{ 0, 0, U32_LEN, 0 } /* UNDEF_WORD_DISP */
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
};
|
|
|
|
|
|
2000-05-03 20:50:55 +02:00
|
|
|
|
/* Literal pool data structures. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
struct literal
|
|
|
|
|
{
|
|
|
|
|
unsigned short refcnt;
|
|
|
|
|
unsigned char ispcrel;
|
|
|
|
|
unsigned char unused;
|
|
|
|
|
expressionS e;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
#define MAX_POOL_SIZE (1024/4)
|
|
|
|
|
static struct literal litpool [MAX_POOL_SIZE];
|
|
|
|
|
static unsigned poolsize;
|
|
|
|
|
static unsigned poolnumber;
|
|
|
|
|
static unsigned long poolspan;
|
|
|
|
|
|
|
|
|
|
/* SPANPANIC: the point at which we get too scared and force a dump
|
|
|
|
|
of the literal pool, and perhaps put a branch in place.
|
|
|
|
|
Calculated as:
|
|
|
|
|
1024 span of lrw/jmpi/jsri insn (actually span+1)
|
|
|
|
|
-2 possible alignment at the insn.
|
|
|
|
|
-2 possible alignment to get the table aligned.
|
|
|
|
|
-2 an inserted branch around the table.
|
|
|
|
|
== 1018
|
|
|
|
|
at 1018, we might be in trouble.
|
|
|
|
|
-- so we have to be smaller than 1018 and since we deal with 2-byte
|
|
|
|
|
instructions, the next good choice is 1016.
|
|
|
|
|
-- Note we have a test case that fails when we've got 1018 here. */
|
2000-05-03 20:50:55 +02:00
|
|
|
|
#define SPANPANIC (1016) /* 1024 - 1 entry - 2 byte rounding. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#define SPANCLOSE (900)
|
|
|
|
|
#define SPANEXIT (600)
|
2005-03-24 21:40:28 +01:00
|
|
|
|
static symbolS * poolsym; /* Label for current pool. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static char poolname[8];
|
2000-05-03 20:50:55 +02:00
|
|
|
|
static struct hash_control * opcode_hash_control; /* Opcode mnemonics. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
#define POOL_END_LABEL ".LE"
|
|
|
|
|
#define POOL_START_LABEL ".LS"
|
|
|
|
|
|
|
|
|
|
static void
|
2016-02-25 17:55:21 +01:00
|
|
|
|
make_name (char * s, const char * p, int n)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
static const char hex[] = "0123456789ABCDEF";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
s[0] = p[0];
|
|
|
|
|
s[1] = p[1];
|
|
|
|
|
s[2] = p[2];
|
|
|
|
|
s[3] = hex[(n >> 12) & 0xF];
|
|
|
|
|
s[4] = hex[(n >> 8) & 0xF];
|
|
|
|
|
s[5] = hex[(n >> 4) & 0xF];
|
|
|
|
|
s[6] = hex[(n) & 0xF];
|
|
|
|
|
s[7] = 0;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
static void
|
|
|
|
|
dump_literals (int isforce)
|
|
|
|
|
{
|
|
|
|
|
unsigned int i;
|
|
|
|
|
struct literal * p;
|
|
|
|
|
symbolS * brarsym = NULL;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
if (poolsize == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/* Must we branch around the literal table? */
|
|
|
|
|
if (isforce)
|
|
|
|
|
{
|
|
|
|
|
char * output;
|
|
|
|
|
char brarname[8];
|
|
|
|
|
|
|
|
|
|
make_name (brarname, POOL_END_LABEL, poolnumber);
|
|
|
|
|
|
|
|
|
|
brarsym = symbol_make (brarname);
|
|
|
|
|
|
|
|
|
|
symbol_table_insert (brarsym);
|
|
|
|
|
|
|
|
|
|
output = frag_var (rs_machine_dependent,
|
|
|
|
|
md_relax_table[C (UNCD_JUMP, DISP32)].rlx_length,
|
|
|
|
|
md_relax_table[C (UNCD_JUMP, DISP12)].rlx_length,
|
|
|
|
|
C (UNCD_JUMP, 0), brarsym, 0, 0);
|
|
|
|
|
output[0] = INST_BYTE0 (MCORE_INST_BR); /* br .+xxx */
|
|
|
|
|
output[1] = INST_BYTE1 (MCORE_INST_BR);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make sure that the section is sufficiently aligned and that
|
|
|
|
|
the literal table is aligned within it. */
|
|
|
|
|
record_alignment (now_seg, 2);
|
|
|
|
|
frag_align (2, 0, 0);
|
|
|
|
|
|
|
|
|
|
colon (S_GET_NAME (poolsym));
|
|
|
|
|
|
|
|
|
|
for (i = 0, p = litpool; i < poolsize; i++, p++)
|
|
|
|
|
emit_expr (& p->e, 4);
|
|
|
|
|
|
|
|
|
|
if (brarsym != NULL)
|
|
|
|
|
colon (S_GET_NAME (brarsym));
|
|
|
|
|
|
|
|
|
|
poolsize = 0;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_s_literals (int ignore ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
dump_literals (0);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
2002-11-21 12:43:40 +01:00
|
|
|
|
/* Perform FUNC (ARG), and track number of bytes added to frag. */
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_pool_count (void (*func) (int), int arg)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2002-11-21 12:43:40 +01:00
|
|
|
|
const fragS *curr_frag = frag_now;
|
|
|
|
|
offsetT added = -frag_now_fix_octets ();
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2002-11-21 12:43:40 +01:00
|
|
|
|
(*func) (arg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2002-11-21 12:43:40 +01:00
|
|
|
|
while (curr_frag != frag_now)
|
|
|
|
|
{
|
|
|
|
|
added += curr_frag->fr_fix;
|
|
|
|
|
curr_frag = curr_frag->fr_next;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2002-11-21 12:43:40 +01:00
|
|
|
|
added += frag_now_fix_octets ();
|
|
|
|
|
poolspan += added;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
check_literals (int kind, int offset)
|
|
|
|
|
{
|
|
|
|
|
poolspan += offset;
|
|
|
|
|
|
|
|
|
|
/* SPANCLOSE and SPANEXIT are smaller numbers than SPANPANIC.
|
|
|
|
|
SPANPANIC means that we must dump now.
|
|
|
|
|
kind == 0 is any old instruction.
|
|
|
|
|
kind > 0 means we just had a control transfer instruction.
|
|
|
|
|
kind == 1 means within a function
|
|
|
|
|
kind == 2 means we just left a function
|
|
|
|
|
|
|
|
|
|
The dump_literals (1) call inserts a branch around the table, so
|
2017-01-23 16:23:07 +01:00
|
|
|
|
we first look to see if it's a situation where we won't have to
|
2005-03-24 21:40:28 +01:00
|
|
|
|
insert a branch (e.g., the previous instruction was an unconditional
|
|
|
|
|
branch).
|
|
|
|
|
|
|
|
|
|
SPANPANIC is the point where we must dump a single-entry pool.
|
|
|
|
|
it accounts for alignments and an inserted branch.
|
|
|
|
|
the 'poolsize*2' accounts for the scenario where we do:
|
|
|
|
|
lrw r1,lit1; lrw r2,lit2; lrw r3,lit3
|
|
|
|
|
Note that the 'lit2' reference is 2 bytes further along
|
|
|
|
|
but the literal it references will be 4 bytes further along,
|
|
|
|
|
so we must consider the poolsize into this equation.
|
|
|
|
|
This is slightly over-cautious, but guarantees that we won't
|
|
|
|
|
panic because a relocation is too distant. */
|
|
|
|
|
|
|
|
|
|
if (poolspan > SPANCLOSE && kind > 0)
|
|
|
|
|
dump_literals (0);
|
|
|
|
|
else if (poolspan > SPANEXIT && kind > 1)
|
|
|
|
|
dump_literals (0);
|
|
|
|
|
else if (poolspan >= (SPANPANIC - poolsize * 2))
|
|
|
|
|
dump_literals (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mcore_cons (int nbytes)
|
2002-11-21 12:43:40 +01:00
|
|
|
|
{
|
|
|
|
|
if (now_seg == text_section)
|
|
|
|
|
mcore_pool_count (cons, nbytes);
|
|
|
|
|
else
|
|
|
|
|
cons (nbytes);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* In theory we ought to call check_literals (2,0) here in case
|
|
|
|
|
we need to dump the literal table. We cannot do this however,
|
|
|
|
|
as the directives that we are intercepting may be being used
|
|
|
|
|
to build a switch table, and we must not interfere with its
|
2000-09-20 23:12:43 +02:00
|
|
|
|
contents. Instead we cross our fingers and pray... */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_float_cons (int float_type)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (now_seg == text_section)
|
2002-11-21 12:43:40 +01:00
|
|
|
|
mcore_pool_count (float_cons, float_type);
|
|
|
|
|
else
|
|
|
|
|
float_cons (float_type);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* See the comment in mcore_cons () about calling check_literals.
|
|
|
|
|
It is unlikely that a switch table will be constructed using
|
|
|
|
|
floating point values, but it is still likely that an indexed
|
|
|
|
|
table of floating point constants is being created by these
|
|
|
|
|
directives, so again we must not interfere with their placement. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_stringer (int append_zero)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (now_seg == text_section)
|
2002-11-21 12:43:40 +01:00
|
|
|
|
mcore_pool_count (stringer, append_zero);
|
|
|
|
|
else
|
|
|
|
|
stringer (append_zero);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* We call check_literals here in case a large number of strings are
|
|
|
|
|
being placed into the text section with a sequence of stringer
|
|
|
|
|
directives. In theory we could be upsetting something if these
|
|
|
|
|
strings are actually in an indexed table instead of referenced by
|
|
|
|
|
individual labels. Let us hope that that never happens. */
|
|
|
|
|
check_literals (2, 0);
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-02 12:39:18 +02:00
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_fill (int unused)
|
1999-09-02 12:39:18 +02:00
|
|
|
|
{
|
|
|
|
|
if (now_seg == text_section)
|
2002-11-21 12:43:40 +01:00
|
|
|
|
mcore_pool_count (s_fill, unused);
|
|
|
|
|
else
|
|
|
|
|
s_fill (unused);
|
1999-09-02 12:39:18 +02:00
|
|
|
|
|
1999-10-25 18:48:26 +02:00
|
|
|
|
check_literals (2, 0);
|
1999-09-02 12:39:18 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-06-23 11:27:09 +02:00
|
|
|
|
/* Handle the section changing pseudo-ops. These call through to the
|
|
|
|
|
normal implementations, but they dump the literal pool first. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_s_text (int ignore)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
dump_literals (0);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-06-23 11:27:09 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
obj_elf_text (ignore);
|
|
|
|
|
#else
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s_text (ignore);
|
1999-06-23 11:27:09 +02:00
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_s_data (int ignore)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
dump_literals (0);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-06-23 11:27:09 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
obj_elf_data (ignore);
|
|
|
|
|
#else
|
1999-05-03 09:29:11 +02:00
|
|
|
|
s_data (ignore);
|
1999-06-23 11:27:09 +02:00
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_s_section (int ignore)
|
1999-06-23 11:27:09 +02:00
|
|
|
|
{
|
1999-09-02 12:39:18 +02:00
|
|
|
|
/* Scan forwards to find the name of the section. If the section
|
|
|
|
|
being switched to is ".line" then this is a DWARF1 debug section
|
2003-11-22 03:35:31 +01:00
|
|
|
|
which is arbitrarily placed inside generated code. In this case
|
1999-09-02 12:39:18 +02:00
|
|
|
|
do not dump the literal pool because it is a) inefficient and
|
|
|
|
|
b) would require the generation of extra code to jump around the
|
|
|
|
|
pool. */
|
|
|
|
|
char * ilp = input_line_pointer;
|
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (*ilp != 0 && ISSPACE (*ilp))
|
1999-09-02 12:39:18 +02:00
|
|
|
|
++ ilp;
|
|
|
|
|
|
|
|
|
|
if (strncmp (ilp, ".line", 5) == 0
|
2001-09-19 07:33:36 +02:00
|
|
|
|
&& (ISSPACE (ilp[5]) || *ilp == '\n' || *ilp == '\r'))
|
1999-09-02 12:39:18 +02:00
|
|
|
|
;
|
|
|
|
|
else
|
|
|
|
|
dump_literals (0);
|
1999-06-23 11:27:09 +02:00
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
obj_elf_section (ignore);
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef OBJ_COFF
|
|
|
|
|
obj_coff_section (ignore);
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-06-23 11:27:09 +02:00
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_s_bss (int needs_align)
|
1999-06-23 11:27:09 +02:00
|
|
|
|
{
|
|
|
|
|
dump_literals (0);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-06-23 11:27:09 +02:00
|
|
|
|
s_lcomm_bytes (needs_align);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
static void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_s_comm (int needs_align)
|
1999-06-23 11:27:09 +02:00
|
|
|
|
{
|
|
|
|
|
dump_literals (0);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-06-23 11:27:09 +02:00
|
|
|
|
obj_elf_common (needs_align);
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* This table describes all the machine specific pseudo-ops the assembler
|
|
|
|
|
has to support. The fields are:
|
|
|
|
|
Pseudo-op name without dot
|
|
|
|
|
Function to call to execute this pseudo-op
|
|
|
|
|
Integer arg to pass to the function. */
|
|
|
|
|
const pseudo_typeS md_pseudo_table[] =
|
|
|
|
|
{
|
|
|
|
|
{ "export", s_globl, 0 },
|
|
|
|
|
{ "import", s_ignore, 0 },
|
|
|
|
|
{ "literals", mcore_s_literals, 0 },
|
|
|
|
|
{ "page", listing_eject, 0 },
|
|
|
|
|
|
|
|
|
|
/* The following are to intercept the placement of data into the text
|
|
|
|
|
section (eg addresses for a switch table), so that the space they
|
|
|
|
|
occupy can be taken into account when deciding whether or not to
|
|
|
|
|
dump the current literal pool.
|
|
|
|
|
XXX - currently we do not cope with the .space and .dcb.d directives. */
|
2007-10-04 19:05:37 +02:00
|
|
|
|
{ "ascii", mcore_stringer, 8 + 0 },
|
|
|
|
|
{ "asciz", mcore_stringer, 8 + 1 },
|
2005-03-24 21:40:28 +01:00
|
|
|
|
{ "byte", mcore_cons, 1 },
|
|
|
|
|
{ "dc", mcore_cons, 2 },
|
|
|
|
|
{ "dc.b", mcore_cons, 1 },
|
|
|
|
|
{ "dc.d", mcore_float_cons, 'd'},
|
|
|
|
|
{ "dc.l", mcore_cons, 4 },
|
|
|
|
|
{ "dc.s", mcore_float_cons, 'f'},
|
|
|
|
|
{ "dc.w", mcore_cons, 2 },
|
|
|
|
|
{ "dc.x", mcore_float_cons, 'x'},
|
|
|
|
|
{ "double", mcore_float_cons, 'd'},
|
|
|
|
|
{ "float", mcore_float_cons, 'f'},
|
|
|
|
|
{ "hword", mcore_cons, 2 },
|
|
|
|
|
{ "int", mcore_cons, 4 },
|
|
|
|
|
{ "long", mcore_cons, 4 },
|
|
|
|
|
{ "octa", mcore_cons, 16 },
|
|
|
|
|
{ "quad", mcore_cons, 8 },
|
|
|
|
|
{ "short", mcore_cons, 2 },
|
|
|
|
|
{ "single", mcore_float_cons, 'f'},
|
2007-10-04 19:05:37 +02:00
|
|
|
|
{ "string", mcore_stringer, 8 + 1 },
|
2005-03-24 21:40:28 +01:00
|
|
|
|
{ "word", mcore_cons, 2 },
|
|
|
|
|
{ "fill", mcore_fill, 0 },
|
|
|
|
|
|
|
|
|
|
/* Allow for the effect of section changes. */
|
|
|
|
|
{ "text", mcore_s_text, 0 },
|
|
|
|
|
{ "data", mcore_s_data, 0 },
|
|
|
|
|
{ "bss", mcore_s_bss, 1 },
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
{ "comm", mcore_s_comm, 0 },
|
|
|
|
|
#endif
|
|
|
|
|
{ "section", mcore_s_section, 0 },
|
|
|
|
|
{ "section.s", mcore_s_section, 0 },
|
|
|
|
|
{ "sect", mcore_s_section, 0 },
|
|
|
|
|
{ "sect.s", mcore_s_section, 0 },
|
|
|
|
|
|
|
|
|
|
{ 0, 0, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* This function is called once, at assembler startup time. This should
|
1999-09-02 12:39:18 +02:00
|
|
|
|
set up all the tables, etc that the MD part of the assembler needs. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_begin (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2016-02-25 17:55:21 +01:00
|
|
|
|
const char * prev_name = "";
|
2016-04-21 15:56:50 +02:00
|
|
|
|
unsigned int i;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
opcode_hash_control = hash_new ();
|
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Insert unique names into hash table. */
|
2016-04-21 15:56:50 +02:00
|
|
|
|
for (i = 0; i < ARRAY_SIZE (mcore_table); i++)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2016-04-21 15:56:50 +02:00
|
|
|
|
if (! streq (prev_name, mcore_table[i].name))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2016-04-21 15:56:50 +02:00
|
|
|
|
prev_name = mcore_table[i].name;
|
|
|
|
|
hash_insert (opcode_hash_control, mcore_table[i].name, (char *) &mcore_table[i]);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Get a log2(val). */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static int
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mylog2 (unsigned int val)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
int log = -1;
|
|
|
|
|
|
|
|
|
|
while (val != 0)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2002-11-21 12:43:40 +01:00
|
|
|
|
log ++;
|
|
|
|
|
val >>= 1;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
return log;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Try to parse a reg name. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static char *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
parse_reg (char * s, unsigned * reg)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* Strip leading whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ s;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (TOLOWER (s[0]) == 'r')
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (s[1] == '1' && s[2] >= '0' && s[2] <= '5')
|
|
|
|
|
{
|
|
|
|
|
*reg = 10 + s[2] - '0';
|
|
|
|
|
return s + 3;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (s[1] >= '0' && s[1] <= '9')
|
|
|
|
|
{
|
|
|
|
|
*reg = s[1] - '0';
|
|
|
|
|
return s + 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
2001-09-19 07:33:36 +02:00
|
|
|
|
else if ( TOLOWER (s[0]) == 's'
|
|
|
|
|
&& TOLOWER (s[1]) == 'p'
|
|
|
|
|
&& ! ISALNUM (s[2]))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
* reg = 0;
|
|
|
|
|
return s + 2;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad (_("register expected, but saw '%.6s'"), s);
|
|
|
|
|
return s;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static struct Cregs
|
|
|
|
|
{
|
2016-02-25 17:55:21 +01:00
|
|
|
|
const char * name;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
unsigned int crnum;
|
|
|
|
|
}
|
|
|
|
|
cregs[] =
|
|
|
|
|
{
|
|
|
|
|
{ "psr", 0},
|
|
|
|
|
{ "vbr", 1},
|
|
|
|
|
{ "epsr", 2},
|
|
|
|
|
{ "fpsr", 3},
|
|
|
|
|
{ "epc", 4},
|
|
|
|
|
{ "fpc", 5},
|
|
|
|
|
{ "ss0", 6},
|
|
|
|
|
{ "ss1", 7},
|
|
|
|
|
{ "ss2", 8},
|
|
|
|
|
{ "ss3", 9},
|
|
|
|
|
{ "ss4", 10},
|
|
|
|
|
{ "gcr", 11},
|
|
|
|
|
{ "gsr", 12},
|
|
|
|
|
{ "", 0}
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static char *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
parse_creg (char * s, unsigned * reg)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
/* Strip leading whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++s;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if ((TOLOWER (s[0]) == 'c' && TOLOWER (s[1]) == 'r'))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (s[2] == '3' && s[3] >= '0' && s[3] <= '1')
|
|
|
|
|
{
|
|
|
|
|
*reg = 30 + s[3] - '0';
|
|
|
|
|
return s + 4;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (s[2] == '2' && s[3] >= '0' && s[3] <= '9')
|
|
|
|
|
{
|
|
|
|
|
*reg = 20 + s[3] - '0';
|
|
|
|
|
return s + 4;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (s[2] == '1' && s[3] >= '0' && s[3] <= '9')
|
|
|
|
|
{
|
|
|
|
|
*reg = 10 + s[3] - '0';
|
|
|
|
|
return s + 4;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (s[2] >= '0' && s[2] <= '9')
|
|
|
|
|
{
|
|
|
|
|
*reg = s[2] - '0';
|
|
|
|
|
return s + 3;
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Look at alternate creg names before giving error. */
|
|
|
|
|
for (i = 0; cregs[i].name[0] != '\0'; i++)
|
|
|
|
|
{
|
|
|
|
|
char buf [10];
|
|
|
|
|
int length;
|
|
|
|
|
int j;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
length = strlen (cregs[i].name);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
for (j = 0; j < length; j++)
|
2001-09-19 07:33:36 +02:00
|
|
|
|
buf[j] = TOLOWER (s[j]);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (strncmp (cregs[i].name, buf, length) == 0)
|
|
|
|
|
{
|
|
|
|
|
*reg = cregs[i].crnum;
|
|
|
|
|
return s + length;
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_bad (_("control register expected, but saw '%.6s'"), s);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return s;
|
|
|
|
|
}
|
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
static char *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
parse_psrmod (char * s, unsigned * reg)
|
2000-02-10 22:31:13 +01:00
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
char buf[10];
|
|
|
|
|
static struct psrmods
|
|
|
|
|
{
|
2016-02-25 17:55:21 +01:00
|
|
|
|
const char * name;
|
2000-02-10 22:31:13 +01:00
|
|
|
|
unsigned int value;
|
|
|
|
|
}
|
|
|
|
|
psrmods[] =
|
|
|
|
|
{
|
|
|
|
|
{ "ie", 1 },
|
|
|
|
|
{ "fe", 2 },
|
|
|
|
|
{ "ee", 4 },
|
|
|
|
|
{ "af", 8 } /* Really 0 and non-combinable. */
|
|
|
|
|
};
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
for (i = 0; i < 2; i++)
|
2001-09-19 07:33:36 +02:00
|
|
|
|
buf[i] = TOLOWER (s[i]);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
for (i = sizeof (psrmods) / sizeof (psrmods[0]); i--;)
|
|
|
|
|
{
|
|
|
|
|
if (! strncmp (psrmods[i].name, buf, 2))
|
|
|
|
|
{
|
2002-11-21 12:43:40 +01:00
|
|
|
|
* reg = psrmods[i].value;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2002-11-21 12:43:40 +01:00
|
|
|
|
return s + 2;
|
2000-02-10 22:31:13 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
as_bad (_("bad/missing psr specifier"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
* reg = 0;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
return s;
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static char *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
parse_exp (char * s, expressionS * e)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char * save;
|
Updated sources to avoid using the identifier name "new", which is a
keyword in c++.
* bfd/aoutx.h (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol.
* bfd/coffgen.c (coff_make_empty_symbol)
(coff_bfd_make_debug_symbol): Rename variable new to new_symbol.
* bfd/cpu-ia64-opc.c (ext_reg, ins_imms_scaled): Rename variable
new to new_insn.
* bfd/doc/chew.c (newentry, add_intrinsic): Rename variable new to
new_d.
* bfd/ecoff.c (_bfd_ecoff_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/elf32-m68k.c (elf_m68k_get_got_entry_type): Rename argument
new to new_reloc.
* bfd/hash.c (bfd_hash_lookup): Rename variable new to new_string.
* bfd/ieee.c (ieee_make_empty_symbol): Rename variable new to
new_symbol.
* bfd/linker.c (bfd_new_link_order): Rename variable new to
new_lo.
* bfd/mach-o.c (bfd_mach_o_sizeof_headers): Rename variable new to
symbol.
* bfd/oasys.c (oasys_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/pdp11.c (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol_type.
* bfd/plugin.c (bfd_plugin_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/rs6000-core.c (CoreHdr, VmInfo): Rename union member new to
new_dump.
(read_hdr, rs6000coff_core_p)
(rs6000coff_core_file_matches_executable_p)
(rs6000coff_core_file_failing_command)
(rs6000coff_core_file_failing_signal): Updated function to use new
union member name.
* bfd/som.c (som_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/syms.c (_bfd_generic_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/tekhex.c (first_phase, tekhex_make_empty_symbol): Rename
variable new to new_symbol.
* binutils/nlmconv.c (main): Rename variable new to new_name.
* gas/config/tc-arm.c (insert_reg_alias): Rename variable new to
new_reg.
* gas/config/tc-dlx.c (parse_operand): Rename variable new to
new_pos.
* gas/config/tc-ia64.c (ia64_gen_real_reloc_type): Rename variable
new to newr.
* gas/config/tc-mcore.c (parse_exp, parse_imm): Rename variable
new to new_pointer.
* gas/config/tc-microblaze.c (parse_exp, parse_imm, check_got):
Change name from new to new_pointer.
* gas/config/tc-or32.c (parse_operand): Rename variable new to
new_pointer.
* gas/config/tc-pdp11.c (md_assemble): Rename variable new to
new_pointer.
* gas/config/tc-pj.c (alias): Change argument new to new_name.
* gas/config/tc-score.c (s3_build_score_ops_hsh): Rename variable
new to new_opcode. (s3_build_dependency_insn_hsh) Rename variable
new to new_i2n. (s3_convert): Rename variables old and new to
r_old and r_new.
* gas/config/tc-score7.c (s7_build_score_ops_hsh): Rename variable
new to new_opcode. (s7_build_dependency_insn_hsh): Rename variable
new to new_i2d. (s7_b32_relax_to_b16, s7_convert_frag): Rename
variables old and new to r_old and r_new.
* gas/config/tc-sh.c (parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-sh64.c (shmedia_parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-tic4x.c (tic4x_operand_parse): Rename variable new
to new_pointer.
* gas/config/tc-z8k.c (parse_exp): Rename variable new to
new_pointer.
* gas/listing.c (listing_newline): Rename variable new to new_i.
* ld/ldexp.c (exp_intop, exp_bigintop, exp_relop, exp_binop)
(exp_trinop, exp_unop, exp_nameop, exp_assop): Rename variable new
to new_e.
* ld/ldfile.c (ldfile_add_library_path): Rename variable new to
new_dirs. (ldfile_add_arch): Rename variable new to new_arch.
* ld/ldlang.c (new_statement, lang_final, lang_add_wild)
(lang_target, lang_add_fill, lang_add_data, lang_add_assignment)
(lang_add_insert): Rename variable new to new_stmt. (new_afile):
Added missing cast. (lang_memory_region_lookup): Rename variable
new to new_region. (init_os): Rename variable new to
new_userdata. (lang_add_section): Rename variable new to
new_section. (ldlang_add_undef): Rename variable new to
new_undef. (realsymbol): Rename variable new to new_name.
* opcodes/z8kgen.c (internal, gas): Rename variable new to new_op.
Updated sources to avoid using the identifier name "template",
which is a keyword in c++.
* bfd/elf32-arm.c (struct stub_def): Rename member template to
template_sequence. (arm_build_one_stub,
find_stub_size_and_template, arm_size_one_stub, arm_map_one_stub):
Rename variable template to template_sequence.
* bfd/elfxx-ia64.c (elfNN_ia64_relax_br, elfNN_ia64_relax_brl):
Rename variable template to template_val.
* gas/config/tc-arm.c (struct asm_cond, struct asm_psr, struct
asm_barrier_opt): Change member template to
template_name. (md_begin): Update code to reflect new member
names.
* gas/config/tc-i386.c (struct templates, struct _i386_insn)
(match_template, cpu_flags_match, match_reg_size, match_mem_size)
(operand_size_match, md_begin, i386_print_statistics, pi)
(build_vex_prefix, md_assemble, parse_insn, optimize_imm)
(optimize_disp): Updated code to use new names. (parse_insn):
Added casts.
* gas/config/tc-ia64.c (dot_template, emit_one_bundle): Updated
code to use new names.
* gas/config/tc-score.c (struct s3_asm_opcode): Renamed member
template to template_name. (s3_parse_16_32_inst, s3_parse_48_inst,
s3_do_macro_ldst_label, s3_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-score7.c (struct s7_asm_opcode): Renamed member
template to template_name. (s7_parse_16_32_inst,
s7_do_macro_ldst_label, s7_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-tic30.c (md_begin, struct tic30_insn)
(md_assemble): Update code to use new names.
* gas/config/tc-tic54x.c (struct _tic54x_insn, md_begin)
(optimize_insn, tic54x_parse_insn, next_line_shows_parallel):
Update code to use new names.
* include/opcode/tic30.h (template): Rename type template to
insn_template. Updated code to use new name.
* include/opcode/tic54x.h (template): Rename type template to
insn_template.
* opcodes/cris-dis.c (bytes_to_skip): Update code to use new name.
* opcodes/i386-dis.c (putop): Update code to use new name.
* opcodes/i386-gen.c (process_i386_opcodes): Update code to use
new name.
* opcodes/i386-opc.h (struct template): Rename struct template to
insn_template. Update code accordingly.
* opcodes/i386-tbl.h (i386_optab): Update type to use new name.
* opcodes/ia64-dis.c (print_insn_ia64): Rename variable template
to template_val.
* opcodes/tic30-dis.c (struct instruction, get_tic30_instruction):
Update code to use new name.
* opcodes/tic54x-dis.c (has_lkaddr, get_insn_size)
(print_parallel_instruction, print_insn_tic54x, tic54x_get_insn):
Update code to use new name.
* opcodes/tic54x-opc.c (tic54x_unknown_opcode, tic54x_optab):
Update type to new name.
2009-08-30 00:11:02 +02:00
|
|
|
|
char * new_pointer;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ s;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
save = input_line_pointer;
|
|
|
|
|
input_line_pointer = s;
|
|
|
|
|
|
|
|
|
|
expression (e);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (e->X_op == O_absent)
|
|
|
|
|
as_bad (_("missing operand"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
Updated sources to avoid using the identifier name "new", which is a
keyword in c++.
* bfd/aoutx.h (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol.
* bfd/coffgen.c (coff_make_empty_symbol)
(coff_bfd_make_debug_symbol): Rename variable new to new_symbol.
* bfd/cpu-ia64-opc.c (ext_reg, ins_imms_scaled): Rename variable
new to new_insn.
* bfd/doc/chew.c (newentry, add_intrinsic): Rename variable new to
new_d.
* bfd/ecoff.c (_bfd_ecoff_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/elf32-m68k.c (elf_m68k_get_got_entry_type): Rename argument
new to new_reloc.
* bfd/hash.c (bfd_hash_lookup): Rename variable new to new_string.
* bfd/ieee.c (ieee_make_empty_symbol): Rename variable new to
new_symbol.
* bfd/linker.c (bfd_new_link_order): Rename variable new to
new_lo.
* bfd/mach-o.c (bfd_mach_o_sizeof_headers): Rename variable new to
symbol.
* bfd/oasys.c (oasys_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/pdp11.c (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol_type.
* bfd/plugin.c (bfd_plugin_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/rs6000-core.c (CoreHdr, VmInfo): Rename union member new to
new_dump.
(read_hdr, rs6000coff_core_p)
(rs6000coff_core_file_matches_executable_p)
(rs6000coff_core_file_failing_command)
(rs6000coff_core_file_failing_signal): Updated function to use new
union member name.
* bfd/som.c (som_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/syms.c (_bfd_generic_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/tekhex.c (first_phase, tekhex_make_empty_symbol): Rename
variable new to new_symbol.
* binutils/nlmconv.c (main): Rename variable new to new_name.
* gas/config/tc-arm.c (insert_reg_alias): Rename variable new to
new_reg.
* gas/config/tc-dlx.c (parse_operand): Rename variable new to
new_pos.
* gas/config/tc-ia64.c (ia64_gen_real_reloc_type): Rename variable
new to newr.
* gas/config/tc-mcore.c (parse_exp, parse_imm): Rename variable
new to new_pointer.
* gas/config/tc-microblaze.c (parse_exp, parse_imm, check_got):
Change name from new to new_pointer.
* gas/config/tc-or32.c (parse_operand): Rename variable new to
new_pointer.
* gas/config/tc-pdp11.c (md_assemble): Rename variable new to
new_pointer.
* gas/config/tc-pj.c (alias): Change argument new to new_name.
* gas/config/tc-score.c (s3_build_score_ops_hsh): Rename variable
new to new_opcode. (s3_build_dependency_insn_hsh) Rename variable
new to new_i2n. (s3_convert): Rename variables old and new to
r_old and r_new.
* gas/config/tc-score7.c (s7_build_score_ops_hsh): Rename variable
new to new_opcode. (s7_build_dependency_insn_hsh): Rename variable
new to new_i2d. (s7_b32_relax_to_b16, s7_convert_frag): Rename
variables old and new to r_old and r_new.
* gas/config/tc-sh.c (parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-sh64.c (shmedia_parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-tic4x.c (tic4x_operand_parse): Rename variable new
to new_pointer.
* gas/config/tc-z8k.c (parse_exp): Rename variable new to
new_pointer.
* gas/listing.c (listing_newline): Rename variable new to new_i.
* ld/ldexp.c (exp_intop, exp_bigintop, exp_relop, exp_binop)
(exp_trinop, exp_unop, exp_nameop, exp_assop): Rename variable new
to new_e.
* ld/ldfile.c (ldfile_add_library_path): Rename variable new to
new_dirs. (ldfile_add_arch): Rename variable new to new_arch.
* ld/ldlang.c (new_statement, lang_final, lang_add_wild)
(lang_target, lang_add_fill, lang_add_data, lang_add_assignment)
(lang_add_insert): Rename variable new to new_stmt. (new_afile):
Added missing cast. (lang_memory_region_lookup): Rename variable
new to new_region. (init_os): Rename variable new to
new_userdata. (lang_add_section): Rename variable new to
new_section. (ldlang_add_undef): Rename variable new to
new_undef. (realsymbol): Rename variable new to new_name.
* opcodes/z8kgen.c (internal, gas): Rename variable new to new_op.
Updated sources to avoid using the identifier name "template",
which is a keyword in c++.
* bfd/elf32-arm.c (struct stub_def): Rename member template to
template_sequence. (arm_build_one_stub,
find_stub_size_and_template, arm_size_one_stub, arm_map_one_stub):
Rename variable template to template_sequence.
* bfd/elfxx-ia64.c (elfNN_ia64_relax_br, elfNN_ia64_relax_brl):
Rename variable template to template_val.
* gas/config/tc-arm.c (struct asm_cond, struct asm_psr, struct
asm_barrier_opt): Change member template to
template_name. (md_begin): Update code to reflect new member
names.
* gas/config/tc-i386.c (struct templates, struct _i386_insn)
(match_template, cpu_flags_match, match_reg_size, match_mem_size)
(operand_size_match, md_begin, i386_print_statistics, pi)
(build_vex_prefix, md_assemble, parse_insn, optimize_imm)
(optimize_disp): Updated code to use new names. (parse_insn):
Added casts.
* gas/config/tc-ia64.c (dot_template, emit_one_bundle): Updated
code to use new names.
* gas/config/tc-score.c (struct s3_asm_opcode): Renamed member
template to template_name. (s3_parse_16_32_inst, s3_parse_48_inst,
s3_do_macro_ldst_label, s3_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-score7.c (struct s7_asm_opcode): Renamed member
template to template_name. (s7_parse_16_32_inst,
s7_do_macro_ldst_label, s7_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-tic30.c (md_begin, struct tic30_insn)
(md_assemble): Update code to use new names.
* gas/config/tc-tic54x.c (struct _tic54x_insn, md_begin)
(optimize_insn, tic54x_parse_insn, next_line_shows_parallel):
Update code to use new names.
* include/opcode/tic30.h (template): Rename type template to
insn_template. Updated code to use new name.
* include/opcode/tic54x.h (template): Rename type template to
insn_template.
* opcodes/cris-dis.c (bytes_to_skip): Update code to use new name.
* opcodes/i386-dis.c (putop): Update code to use new name.
* opcodes/i386-gen.c (process_i386_opcodes): Update code to use
new name.
* opcodes/i386-opc.h (struct template): Rename struct template to
insn_template. Update code accordingly.
* opcodes/i386-tbl.h (i386_optab): Update type to use new name.
* opcodes/ia64-dis.c (print_insn_ia64): Rename variable template
to template_val.
* opcodes/tic30-dis.c (struct instruction, get_tic30_instruction):
Update code to use new name.
* opcodes/tic54x-dis.c (has_lkaddr, get_insn_size)
(print_parallel_instruction, print_insn_tic54x, tic54x_get_insn):
Update code to use new name.
* opcodes/tic54x-opc.c (tic54x_unknown_opcode, tic54x_optab):
Update type to new name.
2009-08-30 00:11:02 +02:00
|
|
|
|
new_pointer = input_line_pointer;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
input_line_pointer = save;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
Updated sources to avoid using the identifier name "new", which is a
keyword in c++.
* bfd/aoutx.h (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol.
* bfd/coffgen.c (coff_make_empty_symbol)
(coff_bfd_make_debug_symbol): Rename variable new to new_symbol.
* bfd/cpu-ia64-opc.c (ext_reg, ins_imms_scaled): Rename variable
new to new_insn.
* bfd/doc/chew.c (newentry, add_intrinsic): Rename variable new to
new_d.
* bfd/ecoff.c (_bfd_ecoff_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/elf32-m68k.c (elf_m68k_get_got_entry_type): Rename argument
new to new_reloc.
* bfd/hash.c (bfd_hash_lookup): Rename variable new to new_string.
* bfd/ieee.c (ieee_make_empty_symbol): Rename variable new to
new_symbol.
* bfd/linker.c (bfd_new_link_order): Rename variable new to
new_lo.
* bfd/mach-o.c (bfd_mach_o_sizeof_headers): Rename variable new to
symbol.
* bfd/oasys.c (oasys_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/pdp11.c (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol_type.
* bfd/plugin.c (bfd_plugin_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/rs6000-core.c (CoreHdr, VmInfo): Rename union member new to
new_dump.
(read_hdr, rs6000coff_core_p)
(rs6000coff_core_file_matches_executable_p)
(rs6000coff_core_file_failing_command)
(rs6000coff_core_file_failing_signal): Updated function to use new
union member name.
* bfd/som.c (som_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/syms.c (_bfd_generic_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/tekhex.c (first_phase, tekhex_make_empty_symbol): Rename
variable new to new_symbol.
* binutils/nlmconv.c (main): Rename variable new to new_name.
* gas/config/tc-arm.c (insert_reg_alias): Rename variable new to
new_reg.
* gas/config/tc-dlx.c (parse_operand): Rename variable new to
new_pos.
* gas/config/tc-ia64.c (ia64_gen_real_reloc_type): Rename variable
new to newr.
* gas/config/tc-mcore.c (parse_exp, parse_imm): Rename variable
new to new_pointer.
* gas/config/tc-microblaze.c (parse_exp, parse_imm, check_got):
Change name from new to new_pointer.
* gas/config/tc-or32.c (parse_operand): Rename variable new to
new_pointer.
* gas/config/tc-pdp11.c (md_assemble): Rename variable new to
new_pointer.
* gas/config/tc-pj.c (alias): Change argument new to new_name.
* gas/config/tc-score.c (s3_build_score_ops_hsh): Rename variable
new to new_opcode. (s3_build_dependency_insn_hsh) Rename variable
new to new_i2n. (s3_convert): Rename variables old and new to
r_old and r_new.
* gas/config/tc-score7.c (s7_build_score_ops_hsh): Rename variable
new to new_opcode. (s7_build_dependency_insn_hsh): Rename variable
new to new_i2d. (s7_b32_relax_to_b16, s7_convert_frag): Rename
variables old and new to r_old and r_new.
* gas/config/tc-sh.c (parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-sh64.c (shmedia_parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-tic4x.c (tic4x_operand_parse): Rename variable new
to new_pointer.
* gas/config/tc-z8k.c (parse_exp): Rename variable new to
new_pointer.
* gas/listing.c (listing_newline): Rename variable new to new_i.
* ld/ldexp.c (exp_intop, exp_bigintop, exp_relop, exp_binop)
(exp_trinop, exp_unop, exp_nameop, exp_assop): Rename variable new
to new_e.
* ld/ldfile.c (ldfile_add_library_path): Rename variable new to
new_dirs. (ldfile_add_arch): Rename variable new to new_arch.
* ld/ldlang.c (new_statement, lang_final, lang_add_wild)
(lang_target, lang_add_fill, lang_add_data, lang_add_assignment)
(lang_add_insert): Rename variable new to new_stmt. (new_afile):
Added missing cast. (lang_memory_region_lookup): Rename variable
new to new_region. (init_os): Rename variable new to
new_userdata. (lang_add_section): Rename variable new to
new_section. (ldlang_add_undef): Rename variable new to
new_undef. (realsymbol): Rename variable new to new_name.
* opcodes/z8kgen.c (internal, gas): Rename variable new to new_op.
Updated sources to avoid using the identifier name "template",
which is a keyword in c++.
* bfd/elf32-arm.c (struct stub_def): Rename member template to
template_sequence. (arm_build_one_stub,
find_stub_size_and_template, arm_size_one_stub, arm_map_one_stub):
Rename variable template to template_sequence.
* bfd/elfxx-ia64.c (elfNN_ia64_relax_br, elfNN_ia64_relax_brl):
Rename variable template to template_val.
* gas/config/tc-arm.c (struct asm_cond, struct asm_psr, struct
asm_barrier_opt): Change member template to
template_name. (md_begin): Update code to reflect new member
names.
* gas/config/tc-i386.c (struct templates, struct _i386_insn)
(match_template, cpu_flags_match, match_reg_size, match_mem_size)
(operand_size_match, md_begin, i386_print_statistics, pi)
(build_vex_prefix, md_assemble, parse_insn, optimize_imm)
(optimize_disp): Updated code to use new names. (parse_insn):
Added casts.
* gas/config/tc-ia64.c (dot_template, emit_one_bundle): Updated
code to use new names.
* gas/config/tc-score.c (struct s3_asm_opcode): Renamed member
template to template_name. (s3_parse_16_32_inst, s3_parse_48_inst,
s3_do_macro_ldst_label, s3_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-score7.c (struct s7_asm_opcode): Renamed member
template to template_name. (s7_parse_16_32_inst,
s7_do_macro_ldst_label, s7_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-tic30.c (md_begin, struct tic30_insn)
(md_assemble): Update code to use new names.
* gas/config/tc-tic54x.c (struct _tic54x_insn, md_begin)
(optimize_insn, tic54x_parse_insn, next_line_shows_parallel):
Update code to use new names.
* include/opcode/tic30.h (template): Rename type template to
insn_template. Updated code to use new name.
* include/opcode/tic54x.h (template): Rename type template to
insn_template.
* opcodes/cris-dis.c (bytes_to_skip): Update code to use new name.
* opcodes/i386-dis.c (putop): Update code to use new name.
* opcodes/i386-gen.c (process_i386_opcodes): Update code to use
new name.
* opcodes/i386-opc.h (struct template): Rename struct template to
insn_template. Update code accordingly.
* opcodes/i386-tbl.h (i386_optab): Update type to use new name.
* opcodes/ia64-dis.c (print_insn_ia64): Rename variable template
to template_val.
* opcodes/tic30-dis.c (struct instruction, get_tic30_instruction):
Update code to use new name.
* opcodes/tic54x-dis.c (has_lkaddr, get_insn_size)
(print_parallel_instruction, print_insn_tic54x, tic54x_get_insn):
Update code to use new name.
* opcodes/tic54x-opc.c (tic54x_unknown_opcode, tic54x_optab):
Update type to new name.
2009-08-30 00:11:02 +02:00
|
|
|
|
return new_pointer;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
2005-03-24 21:40:28 +01:00
|
|
|
|
enter_literal (expressionS * e, int ispcrel)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2002-12-12 23:11:32 +01:00
|
|
|
|
unsigned int i;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
struct literal * p;
|
|
|
|
|
|
|
|
|
|
if (poolsize >= MAX_POOL_SIZE - 2)
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* The literal pool is as full as we can handle. We have
|
|
|
|
|
to be 2 entries shy of the 1024/4=256 entries because we
|
|
|
|
|
have to allow for the branch (2 bytes) and the alignment
|
|
|
|
|
(2 bytes before the first insn referencing the pool and
|
|
|
|
|
2 bytes before the pool itself) == 6 bytes, rounds up
|
|
|
|
|
to 2 entries. */
|
|
|
|
|
dump_literals (1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (poolsize == 0)
|
|
|
|
|
{
|
|
|
|
|
/* Create new literal pool. */
|
|
|
|
|
if (++ poolnumber > 0xFFFF)
|
|
|
|
|
as_fatal (_("more than 65K literal pools"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-22 16:49:51 +02:00
|
|
|
|
make_name (poolname, POOL_START_LABEL, poolnumber);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
poolsym = symbol_make (poolname);
|
|
|
|
|
symbol_table_insert (poolsym);
|
|
|
|
|
poolspan = 0;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Search pool for value so we don't have duplicates. */
|
|
|
|
|
for (p = litpool, i = 0; i < poolsize; i++, p++)
|
|
|
|
|
{
|
|
|
|
|
if (e->X_op == p->e.X_op
|
|
|
|
|
&& e->X_add_symbol == p->e.X_add_symbol
|
|
|
|
|
&& e->X_add_number == p->e.X_add_number
|
|
|
|
|
&& ispcrel == p->ispcrel)
|
|
|
|
|
{
|
|
|
|
|
p->refcnt ++;
|
|
|
|
|
return i;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
p->refcnt = 1;
|
|
|
|
|
p->ispcrel = ispcrel;
|
|
|
|
|
p->e = * e;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
poolsize ++;
|
|
|
|
|
|
2000-09-20 23:12:43 +02:00
|
|
|
|
return i;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Parse a literal specification. -- either new or old syntax.
|
|
|
|
|
old syntax: the user supplies the label and places the literal.
|
|
|
|
|
new syntax: we put it into the literal pool. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static char *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
parse_rt (char * s,
|
|
|
|
|
char ** outputp,
|
|
|
|
|
int ispcrel,
|
|
|
|
|
expressionS * ep)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
expressionS e;
|
|
|
|
|
int n;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (ep)
|
|
|
|
|
/* Indicate nothing there. */
|
|
|
|
|
ep->X_op = O_absent;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (*s == '[')
|
|
|
|
|
{
|
|
|
|
|
s = parse_exp (s + 1, & e);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (*s == ']')
|
|
|
|
|
s++;
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("missing ']'"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
s = parse_exp (s, & e);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
n = enter_literal (& e, ispcrel);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (ep)
|
|
|
|
|
*ep = e;
|
|
|
|
|
|
|
|
|
|
/* Create a reference to pool entry. */
|
|
|
|
|
e.X_op = O_symbol;
|
|
|
|
|
e.X_add_symbol = poolsym;
|
|
|
|
|
e.X_add_number = n << 2;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
* outputp = frag_more (2);
|
|
|
|
|
|
|
|
|
|
fix_new_exp (frag_now, (*outputp) - frag_now->fr_literal, 2, & e, 1,
|
|
|
|
|
BFD_RELOC_MCORE_PCREL_IMM8BY4);
|
|
|
|
|
|
|
|
|
|
return s;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
parse_imm (char * s,
|
|
|
|
|
unsigned * val,
|
|
|
|
|
unsigned min,
|
|
|
|
|
unsigned max)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
Updated sources to avoid using the identifier name "new", which is a
keyword in c++.
* bfd/aoutx.h (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol.
* bfd/coffgen.c (coff_make_empty_symbol)
(coff_bfd_make_debug_symbol): Rename variable new to new_symbol.
* bfd/cpu-ia64-opc.c (ext_reg, ins_imms_scaled): Rename variable
new to new_insn.
* bfd/doc/chew.c (newentry, add_intrinsic): Rename variable new to
new_d.
* bfd/ecoff.c (_bfd_ecoff_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/elf32-m68k.c (elf_m68k_get_got_entry_type): Rename argument
new to new_reloc.
* bfd/hash.c (bfd_hash_lookup): Rename variable new to new_string.
* bfd/ieee.c (ieee_make_empty_symbol): Rename variable new to
new_symbol.
* bfd/linker.c (bfd_new_link_order): Rename variable new to
new_lo.
* bfd/mach-o.c (bfd_mach_o_sizeof_headers): Rename variable new to
symbol.
* bfd/oasys.c (oasys_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/pdp11.c (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol_type.
* bfd/plugin.c (bfd_plugin_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/rs6000-core.c (CoreHdr, VmInfo): Rename union member new to
new_dump.
(read_hdr, rs6000coff_core_p)
(rs6000coff_core_file_matches_executable_p)
(rs6000coff_core_file_failing_command)
(rs6000coff_core_file_failing_signal): Updated function to use new
union member name.
* bfd/som.c (som_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/syms.c (_bfd_generic_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/tekhex.c (first_phase, tekhex_make_empty_symbol): Rename
variable new to new_symbol.
* binutils/nlmconv.c (main): Rename variable new to new_name.
* gas/config/tc-arm.c (insert_reg_alias): Rename variable new to
new_reg.
* gas/config/tc-dlx.c (parse_operand): Rename variable new to
new_pos.
* gas/config/tc-ia64.c (ia64_gen_real_reloc_type): Rename variable
new to newr.
* gas/config/tc-mcore.c (parse_exp, parse_imm): Rename variable
new to new_pointer.
* gas/config/tc-microblaze.c (parse_exp, parse_imm, check_got):
Change name from new to new_pointer.
* gas/config/tc-or32.c (parse_operand): Rename variable new to
new_pointer.
* gas/config/tc-pdp11.c (md_assemble): Rename variable new to
new_pointer.
* gas/config/tc-pj.c (alias): Change argument new to new_name.
* gas/config/tc-score.c (s3_build_score_ops_hsh): Rename variable
new to new_opcode. (s3_build_dependency_insn_hsh) Rename variable
new to new_i2n. (s3_convert): Rename variables old and new to
r_old and r_new.
* gas/config/tc-score7.c (s7_build_score_ops_hsh): Rename variable
new to new_opcode. (s7_build_dependency_insn_hsh): Rename variable
new to new_i2d. (s7_b32_relax_to_b16, s7_convert_frag): Rename
variables old and new to r_old and r_new.
* gas/config/tc-sh.c (parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-sh64.c (shmedia_parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-tic4x.c (tic4x_operand_parse): Rename variable new
to new_pointer.
* gas/config/tc-z8k.c (parse_exp): Rename variable new to
new_pointer.
* gas/listing.c (listing_newline): Rename variable new to new_i.
* ld/ldexp.c (exp_intop, exp_bigintop, exp_relop, exp_binop)
(exp_trinop, exp_unop, exp_nameop, exp_assop): Rename variable new
to new_e.
* ld/ldfile.c (ldfile_add_library_path): Rename variable new to
new_dirs. (ldfile_add_arch): Rename variable new to new_arch.
* ld/ldlang.c (new_statement, lang_final, lang_add_wild)
(lang_target, lang_add_fill, lang_add_data, lang_add_assignment)
(lang_add_insert): Rename variable new to new_stmt. (new_afile):
Added missing cast. (lang_memory_region_lookup): Rename variable
new to new_region. (init_os): Rename variable new to
new_userdata. (lang_add_section): Rename variable new to
new_section. (ldlang_add_undef): Rename variable new to
new_undef. (realsymbol): Rename variable new to new_name.
* opcodes/z8kgen.c (internal, gas): Rename variable new to new_op.
Updated sources to avoid using the identifier name "template",
which is a keyword in c++.
* bfd/elf32-arm.c (struct stub_def): Rename member template to
template_sequence. (arm_build_one_stub,
find_stub_size_and_template, arm_size_one_stub, arm_map_one_stub):
Rename variable template to template_sequence.
* bfd/elfxx-ia64.c (elfNN_ia64_relax_br, elfNN_ia64_relax_brl):
Rename variable template to template_val.
* gas/config/tc-arm.c (struct asm_cond, struct asm_psr, struct
asm_barrier_opt): Change member template to
template_name. (md_begin): Update code to reflect new member
names.
* gas/config/tc-i386.c (struct templates, struct _i386_insn)
(match_template, cpu_flags_match, match_reg_size, match_mem_size)
(operand_size_match, md_begin, i386_print_statistics, pi)
(build_vex_prefix, md_assemble, parse_insn, optimize_imm)
(optimize_disp): Updated code to use new names. (parse_insn):
Added casts.
* gas/config/tc-ia64.c (dot_template, emit_one_bundle): Updated
code to use new names.
* gas/config/tc-score.c (struct s3_asm_opcode): Renamed member
template to template_name. (s3_parse_16_32_inst, s3_parse_48_inst,
s3_do_macro_ldst_label, s3_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-score7.c (struct s7_asm_opcode): Renamed member
template to template_name. (s7_parse_16_32_inst,
s7_do_macro_ldst_label, s7_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-tic30.c (md_begin, struct tic30_insn)
(md_assemble): Update code to use new names.
* gas/config/tc-tic54x.c (struct _tic54x_insn, md_begin)
(optimize_insn, tic54x_parse_insn, next_line_shows_parallel):
Update code to use new names.
* include/opcode/tic30.h (template): Rename type template to
insn_template. Updated code to use new name.
* include/opcode/tic54x.h (template): Rename type template to
insn_template.
* opcodes/cris-dis.c (bytes_to_skip): Update code to use new name.
* opcodes/i386-dis.c (putop): Update code to use new name.
* opcodes/i386-gen.c (process_i386_opcodes): Update code to use
new name.
* opcodes/i386-opc.h (struct template): Rename struct template to
insn_template. Update code accordingly.
* opcodes/i386-tbl.h (i386_optab): Update type to use new name.
* opcodes/ia64-dis.c (print_insn_ia64): Rename variable template
to template_val.
* opcodes/tic30-dis.c (struct instruction, get_tic30_instruction):
Update code to use new name.
* opcodes/tic54x-dis.c (has_lkaddr, get_insn_size)
(print_parallel_instruction, print_insn_tic54x, tic54x_get_insn):
Update code to use new name.
* opcodes/tic54x-opc.c (tic54x_unknown_opcode, tic54x_optab):
Update type to new name.
2009-08-30 00:11:02 +02:00
|
|
|
|
char * new_pointer;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
expressionS e;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
Updated sources to avoid using the identifier name "new", which is a
keyword in c++.
* bfd/aoutx.h (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol.
* bfd/coffgen.c (coff_make_empty_symbol)
(coff_bfd_make_debug_symbol): Rename variable new to new_symbol.
* bfd/cpu-ia64-opc.c (ext_reg, ins_imms_scaled): Rename variable
new to new_insn.
* bfd/doc/chew.c (newentry, add_intrinsic): Rename variable new to
new_d.
* bfd/ecoff.c (_bfd_ecoff_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/elf32-m68k.c (elf_m68k_get_got_entry_type): Rename argument
new to new_reloc.
* bfd/hash.c (bfd_hash_lookup): Rename variable new to new_string.
* bfd/ieee.c (ieee_make_empty_symbol): Rename variable new to
new_symbol.
* bfd/linker.c (bfd_new_link_order): Rename variable new to
new_lo.
* bfd/mach-o.c (bfd_mach_o_sizeof_headers): Rename variable new to
symbol.
* bfd/oasys.c (oasys_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/pdp11.c (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol_type.
* bfd/plugin.c (bfd_plugin_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/rs6000-core.c (CoreHdr, VmInfo): Rename union member new to
new_dump.
(read_hdr, rs6000coff_core_p)
(rs6000coff_core_file_matches_executable_p)
(rs6000coff_core_file_failing_command)
(rs6000coff_core_file_failing_signal): Updated function to use new
union member name.
* bfd/som.c (som_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/syms.c (_bfd_generic_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/tekhex.c (first_phase, tekhex_make_empty_symbol): Rename
variable new to new_symbol.
* binutils/nlmconv.c (main): Rename variable new to new_name.
* gas/config/tc-arm.c (insert_reg_alias): Rename variable new to
new_reg.
* gas/config/tc-dlx.c (parse_operand): Rename variable new to
new_pos.
* gas/config/tc-ia64.c (ia64_gen_real_reloc_type): Rename variable
new to newr.
* gas/config/tc-mcore.c (parse_exp, parse_imm): Rename variable
new to new_pointer.
* gas/config/tc-microblaze.c (parse_exp, parse_imm, check_got):
Change name from new to new_pointer.
* gas/config/tc-or32.c (parse_operand): Rename variable new to
new_pointer.
* gas/config/tc-pdp11.c (md_assemble): Rename variable new to
new_pointer.
* gas/config/tc-pj.c (alias): Change argument new to new_name.
* gas/config/tc-score.c (s3_build_score_ops_hsh): Rename variable
new to new_opcode. (s3_build_dependency_insn_hsh) Rename variable
new to new_i2n. (s3_convert): Rename variables old and new to
r_old and r_new.
* gas/config/tc-score7.c (s7_build_score_ops_hsh): Rename variable
new to new_opcode. (s7_build_dependency_insn_hsh): Rename variable
new to new_i2d. (s7_b32_relax_to_b16, s7_convert_frag): Rename
variables old and new to r_old and r_new.
* gas/config/tc-sh.c (parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-sh64.c (shmedia_parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-tic4x.c (tic4x_operand_parse): Rename variable new
to new_pointer.
* gas/config/tc-z8k.c (parse_exp): Rename variable new to
new_pointer.
* gas/listing.c (listing_newline): Rename variable new to new_i.
* ld/ldexp.c (exp_intop, exp_bigintop, exp_relop, exp_binop)
(exp_trinop, exp_unop, exp_nameop, exp_assop): Rename variable new
to new_e.
* ld/ldfile.c (ldfile_add_library_path): Rename variable new to
new_dirs. (ldfile_add_arch): Rename variable new to new_arch.
* ld/ldlang.c (new_statement, lang_final, lang_add_wild)
(lang_target, lang_add_fill, lang_add_data, lang_add_assignment)
(lang_add_insert): Rename variable new to new_stmt. (new_afile):
Added missing cast. (lang_memory_region_lookup): Rename variable
new to new_region. (init_os): Rename variable new to
new_userdata. (lang_add_section): Rename variable new to
new_section. (ldlang_add_undef): Rename variable new to
new_undef. (realsymbol): Rename variable new to new_name.
* opcodes/z8kgen.c (internal, gas): Rename variable new to new_op.
Updated sources to avoid using the identifier name "template",
which is a keyword in c++.
* bfd/elf32-arm.c (struct stub_def): Rename member template to
template_sequence. (arm_build_one_stub,
find_stub_size_and_template, arm_size_one_stub, arm_map_one_stub):
Rename variable template to template_sequence.
* bfd/elfxx-ia64.c (elfNN_ia64_relax_br, elfNN_ia64_relax_brl):
Rename variable template to template_val.
* gas/config/tc-arm.c (struct asm_cond, struct asm_psr, struct
asm_barrier_opt): Change member template to
template_name. (md_begin): Update code to reflect new member
names.
* gas/config/tc-i386.c (struct templates, struct _i386_insn)
(match_template, cpu_flags_match, match_reg_size, match_mem_size)
(operand_size_match, md_begin, i386_print_statistics, pi)
(build_vex_prefix, md_assemble, parse_insn, optimize_imm)
(optimize_disp): Updated code to use new names. (parse_insn):
Added casts.
* gas/config/tc-ia64.c (dot_template, emit_one_bundle): Updated
code to use new names.
* gas/config/tc-score.c (struct s3_asm_opcode): Renamed member
template to template_name. (s3_parse_16_32_inst, s3_parse_48_inst,
s3_do_macro_ldst_label, s3_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-score7.c (struct s7_asm_opcode): Renamed member
template to template_name. (s7_parse_16_32_inst,
s7_do_macro_ldst_label, s7_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-tic30.c (md_begin, struct tic30_insn)
(md_assemble): Update code to use new names.
* gas/config/tc-tic54x.c (struct _tic54x_insn, md_begin)
(optimize_insn, tic54x_parse_insn, next_line_shows_parallel):
Update code to use new names.
* include/opcode/tic30.h (template): Rename type template to
insn_template. Updated code to use new name.
* include/opcode/tic54x.h (template): Rename type template to
insn_template.
* opcodes/cris-dis.c (bytes_to_skip): Update code to use new name.
* opcodes/i386-dis.c (putop): Update code to use new name.
* opcodes/i386-gen.c (process_i386_opcodes): Update code to use
new name.
* opcodes/i386-opc.h (struct template): Rename struct template to
insn_template. Update code accordingly.
* opcodes/i386-tbl.h (i386_optab): Update type to use new name.
* opcodes/ia64-dis.c (print_insn_ia64): Rename variable template
to template_val.
* opcodes/tic30-dis.c (struct instruction, get_tic30_instruction):
Update code to use new name.
* opcodes/tic54x-dis.c (has_lkaddr, get_insn_size)
(print_parallel_instruction, print_insn_tic54x, tic54x_get_insn):
Update code to use new name.
* opcodes/tic54x-opc.c (tic54x_unknown_opcode, tic54x_optab):
Update type to new name.
2009-08-30 00:11:02 +02:00
|
|
|
|
new_pointer = parse_exp (s, & e);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (e.X_op == O_absent)
|
|
|
|
|
; /* An error message has already been emitted. */
|
|
|
|
|
else if (e.X_op != O_constant)
|
|
|
|
|
as_bad (_("operand must be a constant"));
|
2002-12-12 23:11:32 +01:00
|
|
|
|
else if ((addressT) e.X_add_number < min || (addressT) e.X_add_number > max)
|
|
|
|
|
as_bad (_("operand must be absolute in range %u..%u, not %ld"),
|
|
|
|
|
min, max, (long) e.X_add_number);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
* val = e.X_add_number;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
Updated sources to avoid using the identifier name "new", which is a
keyword in c++.
* bfd/aoutx.h (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol.
* bfd/coffgen.c (coff_make_empty_symbol)
(coff_bfd_make_debug_symbol): Rename variable new to new_symbol.
* bfd/cpu-ia64-opc.c (ext_reg, ins_imms_scaled): Rename variable
new to new_insn.
* bfd/doc/chew.c (newentry, add_intrinsic): Rename variable new to
new_d.
* bfd/ecoff.c (_bfd_ecoff_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/elf32-m68k.c (elf_m68k_get_got_entry_type): Rename argument
new to new_reloc.
* bfd/hash.c (bfd_hash_lookup): Rename variable new to new_string.
* bfd/ieee.c (ieee_make_empty_symbol): Rename variable new to
new_symbol.
* bfd/linker.c (bfd_new_link_order): Rename variable new to
new_lo.
* bfd/mach-o.c (bfd_mach_o_sizeof_headers): Rename variable new to
symbol.
* bfd/oasys.c (oasys_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/pdp11.c (NAME (aout, make_empty_symbol)): Rename variable
new to new_symbol_type.
* bfd/plugin.c (bfd_plugin_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/rs6000-core.c (CoreHdr, VmInfo): Rename union member new to
new_dump.
(read_hdr, rs6000coff_core_p)
(rs6000coff_core_file_matches_executable_p)
(rs6000coff_core_file_failing_command)
(rs6000coff_core_file_failing_signal): Updated function to use new
union member name.
* bfd/som.c (som_make_empty_symbol): Rename variable new to
new_symbol_type.
* bfd/syms.c (_bfd_generic_make_empty_symbol): Rename variable new
to new_symbol.
* bfd/tekhex.c (first_phase, tekhex_make_empty_symbol): Rename
variable new to new_symbol.
* binutils/nlmconv.c (main): Rename variable new to new_name.
* gas/config/tc-arm.c (insert_reg_alias): Rename variable new to
new_reg.
* gas/config/tc-dlx.c (parse_operand): Rename variable new to
new_pos.
* gas/config/tc-ia64.c (ia64_gen_real_reloc_type): Rename variable
new to newr.
* gas/config/tc-mcore.c (parse_exp, parse_imm): Rename variable
new to new_pointer.
* gas/config/tc-microblaze.c (parse_exp, parse_imm, check_got):
Change name from new to new_pointer.
* gas/config/tc-or32.c (parse_operand): Rename variable new to
new_pointer.
* gas/config/tc-pdp11.c (md_assemble): Rename variable new to
new_pointer.
* gas/config/tc-pj.c (alias): Change argument new to new_name.
* gas/config/tc-score.c (s3_build_score_ops_hsh): Rename variable
new to new_opcode. (s3_build_dependency_insn_hsh) Rename variable
new to new_i2n. (s3_convert): Rename variables old and new to
r_old and r_new.
* gas/config/tc-score7.c (s7_build_score_ops_hsh): Rename variable
new to new_opcode. (s7_build_dependency_insn_hsh): Rename variable
new to new_i2d. (s7_b32_relax_to_b16, s7_convert_frag): Rename
variables old and new to r_old and r_new.
* gas/config/tc-sh.c (parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-sh64.c (shmedia_parse_exp): Rename variable new to
new_pointer.
* gas/config/tc-tic4x.c (tic4x_operand_parse): Rename variable new
to new_pointer.
* gas/config/tc-z8k.c (parse_exp): Rename variable new to
new_pointer.
* gas/listing.c (listing_newline): Rename variable new to new_i.
* ld/ldexp.c (exp_intop, exp_bigintop, exp_relop, exp_binop)
(exp_trinop, exp_unop, exp_nameop, exp_assop): Rename variable new
to new_e.
* ld/ldfile.c (ldfile_add_library_path): Rename variable new to
new_dirs. (ldfile_add_arch): Rename variable new to new_arch.
* ld/ldlang.c (new_statement, lang_final, lang_add_wild)
(lang_target, lang_add_fill, lang_add_data, lang_add_assignment)
(lang_add_insert): Rename variable new to new_stmt. (new_afile):
Added missing cast. (lang_memory_region_lookup): Rename variable
new to new_region. (init_os): Rename variable new to
new_userdata. (lang_add_section): Rename variable new to
new_section. (ldlang_add_undef): Rename variable new to
new_undef. (realsymbol): Rename variable new to new_name.
* opcodes/z8kgen.c (internal, gas): Rename variable new to new_op.
Updated sources to avoid using the identifier name "template",
which is a keyword in c++.
* bfd/elf32-arm.c (struct stub_def): Rename member template to
template_sequence. (arm_build_one_stub,
find_stub_size_and_template, arm_size_one_stub, arm_map_one_stub):
Rename variable template to template_sequence.
* bfd/elfxx-ia64.c (elfNN_ia64_relax_br, elfNN_ia64_relax_brl):
Rename variable template to template_val.
* gas/config/tc-arm.c (struct asm_cond, struct asm_psr, struct
asm_barrier_opt): Change member template to
template_name. (md_begin): Update code to reflect new member
names.
* gas/config/tc-i386.c (struct templates, struct _i386_insn)
(match_template, cpu_flags_match, match_reg_size, match_mem_size)
(operand_size_match, md_begin, i386_print_statistics, pi)
(build_vex_prefix, md_assemble, parse_insn, optimize_imm)
(optimize_disp): Updated code to use new names. (parse_insn):
Added casts.
* gas/config/tc-ia64.c (dot_template, emit_one_bundle): Updated
code to use new names.
* gas/config/tc-score.c (struct s3_asm_opcode): Renamed member
template to template_name. (s3_parse_16_32_inst, s3_parse_48_inst,
s3_do_macro_ldst_label, s3_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-score7.c (struct s7_asm_opcode): Renamed member
template to template_name. (s7_parse_16_32_inst,
s7_do_macro_ldst_label, s7_build_score_ops_hsh): Update code to
use new names.
* gas/config/tc-tic30.c (md_begin, struct tic30_insn)
(md_assemble): Update code to use new names.
* gas/config/tc-tic54x.c (struct _tic54x_insn, md_begin)
(optimize_insn, tic54x_parse_insn, next_line_shows_parallel):
Update code to use new names.
* include/opcode/tic30.h (template): Rename type template to
insn_template. Updated code to use new name.
* include/opcode/tic54x.h (template): Rename type template to
insn_template.
* opcodes/cris-dis.c (bytes_to_skip): Update code to use new name.
* opcodes/i386-dis.c (putop): Update code to use new name.
* opcodes/i386-gen.c (process_i386_opcodes): Update code to use
new name.
* opcodes/i386-opc.h (struct template): Rename struct template to
insn_template. Update code accordingly.
* opcodes/i386-tbl.h (i386_optab): Update type to use new name.
* opcodes/ia64-dis.c (print_insn_ia64): Rename variable template
to template_val.
* opcodes/tic30-dis.c (struct instruction, get_tic30_instruction):
Update code to use new name.
* opcodes/tic54x-dis.c (has_lkaddr, get_insn_size)
(print_parallel_instruction, print_insn_tic54x, tic54x_get_insn):
Update code to use new name.
* opcodes/tic54x-opc.c (tic54x_unknown_opcode, tic54x_optab):
Update type to new name.
2009-08-30 00:11:02 +02:00
|
|
|
|
return new_pointer;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
parse_mem (char * s,
|
|
|
|
|
unsigned * reg,
|
|
|
|
|
unsigned * off,
|
|
|
|
|
unsigned siz)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
* off = 0;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ s;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* s == '(')
|
|
|
|
|
{
|
|
|
|
|
s = parse_reg (s + 1, reg);
|
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ s;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* s == ',')
|
|
|
|
|
{
|
|
|
|
|
s = parse_imm (s + 1, off, 0, 63);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (siz > 1)
|
|
|
|
|
{
|
|
|
|
|
if (siz > 2)
|
|
|
|
|
{
|
|
|
|
|
if (* off & 0x3)
|
|
|
|
|
as_bad (_("operand must be a multiple of 4"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
* off >>= 2;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (* off & 0x1)
|
|
|
|
|
as_bad (_("operand must be a multiple of 2"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
* off >>= 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* s))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ s;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* s == ')')
|
|
|
|
|
s ++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("base register expected"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return s;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This is the guts of the machine-dependent assembler. STR points to a
|
|
|
|
|
machine dependent instruction. This function is supposed to emit
|
|
|
|
|
the frags/bytes it assembles to. */
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_assemble (char * str)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char * op_start;
|
|
|
|
|
char * op_end;
|
|
|
|
|
mcore_opcode_info * opcode;
|
|
|
|
|
char * output;
|
|
|
|
|
int nlen = 0;
|
|
|
|
|
unsigned short inst;
|
|
|
|
|
unsigned reg;
|
|
|
|
|
unsigned off;
|
|
|
|
|
unsigned isize;
|
|
|
|
|
expressionS e;
|
2008-08-22 19:05:40 +02:00
|
|
|
|
char name[21];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Drop leading whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* str))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
str ++;
|
|
|
|
|
|
|
|
|
|
/* Find the op code end. */
|
|
|
|
|
for (op_start = op_end = str;
|
2000-06-02 04:52:10 +02:00
|
|
|
|
nlen < 20 && !is_end_of_line [(unsigned char) *op_end] && *op_end != ' ';
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_end++)
|
|
|
|
|
{
|
|
|
|
|
name[nlen] = op_start[nlen];
|
|
|
|
|
nlen++;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
name [nlen] = 0;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (nlen == 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("can't find opcode "));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
opcode = (mcore_opcode_info *) hash_find (opcode_hash_control, name);
|
|
|
|
|
if (opcode == NULL)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("unknown opcode \"%s\""), name);
|
|
|
|
|
return;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
inst = opcode->inst;
|
|
|
|
|
isize = 2;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
switch (opcode->opclass)
|
|
|
|
|
{
|
|
|
|
|
case O0:
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OT:
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 0, 3);
|
|
|
|
|
inst |= reg;
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case O1:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case JMP:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
/* In a sifilter mode, we emit this insn 2 times,
|
2002-11-21 12:43:40 +01:00
|
|
|
|
fixes problem of an interrupt during a jmp.. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (sifilter_mode)
|
|
|
|
|
{
|
1999-05-22 16:49:51 +02:00
|
|
|
|
output[0] = INST_BYTE0 (inst);
|
|
|
|
|
output[1] = INST_BYTE1 (inst);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
}
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case JSR:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg == 15)
|
|
|
|
|
as_bad (_("invalid register: r15 illegal"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
inst |= reg;
|
|
|
|
|
output = frag_more (2);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (sifilter_mode)
|
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Replace with: bsr .+2 ; addi r15,6; jmp rx ; jmp rx. */
|
|
|
|
|
inst = MCORE_INST_BSR; /* With 0 displacement. */
|
1999-05-22 16:49:51 +02:00
|
|
|
|
output[0] = INST_BYTE0 (inst);
|
|
|
|
|
output[1] = INST_BYTE1 (inst);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
inst = MCORE_INST_ADDI;
|
2005-03-24 21:40:28 +01:00
|
|
|
|
inst |= 15; /* addi r15,6 */
|
|
|
|
|
inst |= (6 - 1) << 4; /* Over the jmp's. */
|
1999-05-22 16:49:51 +02:00
|
|
|
|
output[0] = INST_BYTE0 (inst);
|
|
|
|
|
output[1] = INST_BYTE1 (inst);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
inst = MCORE_INST_JMP | reg;
|
1999-05-22 16:49:51 +02:00
|
|
|
|
output[0] = INST_BYTE0 (inst);
|
|
|
|
|
output[1] = INST_BYTE1 (inst);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* 2nd emitted in fallthrough. */
|
|
|
|
|
output = frag_more (2);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OC:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (*op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_creg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
case MULSH:
|
|
|
|
|
if (cpu == M210)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("M340 specific opcode used when assembling for M210"));
|
|
|
|
|
break;
|
|
|
|
|
}
|
2016-10-05 09:47:02 +02:00
|
|
|
|
/* Fall through. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case O2:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
case X1:
|
|
|
|
|
/* Handle both syntax-> xtrb- r1,rx OR xtrb- rx. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
if (* op_end == ',') /* xtrb- r1,rx. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (reg != 1)
|
|
|
|
|
as_bad (_("destination register must be r1"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
inst |= reg;
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
case O1R1: /* div- rx,r1. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
if (reg != 1)
|
|
|
|
|
as_bad (_("source register must be r1"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OI:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 1, 32);
|
|
|
|
|
inst |= (reg - 1) << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OB:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 0, 31);
|
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
case OB2:
|
|
|
|
|
/* Like OB, but arg is 2^n instead of n. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 1, 1 << 31);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
/* Further restrict the immediate to a power of two. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if ((reg & (reg - 1)) == 0)
|
2005-02-17 14:46:05 +01:00
|
|
|
|
reg = mylog2 (reg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
reg = 0;
|
|
|
|
|
as_bad (_("immediate is not a power of two"));
|
|
|
|
|
}
|
|
|
|
|
inst |= (reg) << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
|
|
|
|
case OBRa: /* Specific for bgeni: imm of 0->6 translate to movi. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OBRb:
|
|
|
|
|
case OBRc:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 0, 31);
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Immediate values of 0 -> 6 translate to movi. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg <= 6)
|
|
|
|
|
{
|
|
|
|
|
inst = (inst & 0xF) | MCORE_INST_BGENI_ALT;
|
|
|
|
|
reg = 0x1 << reg;
|
|
|
|
|
as_warn (_("translating bgeni to movi"));
|
|
|
|
|
}
|
|
|
|
|
inst &= ~ 0x01f0;
|
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
case OBR2: /* Like OBR, but arg is 2^n instead of n. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 1, 1 << 31);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Further restrict the immediate to a power of two. */
|
|
|
|
|
if ((reg & (reg - 1)) == 0)
|
2005-02-17 14:46:05 +01:00
|
|
|
|
reg = mylog2 (reg);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
reg = 0;
|
|
|
|
|
as_bad (_("immediate is not a power of two"));
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
|
|
|
|
/* Immediate values of 0 -> 6 translate to movi. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg <= 6)
|
|
|
|
|
{
|
|
|
|
|
inst = (inst & 0xF) | MCORE_INST_BGENI_ALT;
|
|
|
|
|
reg = 0x1 << reg;
|
|
|
|
|
as_warn (_("translating mgeni to movi"));
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OMa: /* Specific for bmaski: imm 1->7 translate to movi. */
|
|
|
|
|
case OMb:
|
|
|
|
|
case OMc:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 1, 32);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
|
|
|
|
/* Immediate values of 1 -> 7 translate to movi. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg <= 7)
|
|
|
|
|
{
|
|
|
|
|
inst = (inst & 0xF) | MCORE_INST_BMASKI_ALT;
|
|
|
|
|
reg = (0x1 << reg) - 1;
|
|
|
|
|
inst |= reg << 4;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
as_warn (_("translating bmaski to movi"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
inst &= ~ 0x01F0;
|
|
|
|
|
inst |= (reg & 0x1F) << 4;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case SI:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 1, 31);
|
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case I7:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 0, 0x7F);
|
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case LS:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg << 8;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
int size;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if ((inst & 0x6000) == 0)
|
|
|
|
|
size = 4;
|
|
|
|
|
else if ((inst & 0x6000) == 0x4000)
|
|
|
|
|
size = 2;
|
|
|
|
|
else if ((inst & 0x6000) == 0x2000)
|
|
|
|
|
size = 1;
|
2002-12-12 23:11:32 +01:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_end = parse_mem (op_end + 1, & reg, & off, size);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (off > 16)
|
|
|
|
|
as_bad (_("displacement too large (%d)"), off);
|
|
|
|
|
else
|
|
|
|
|
inst |= (reg) | (off << 4);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case LR:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg == 0 || reg == 15)
|
|
|
|
|
as_bad (_("Invalid register: r0 and r15 illegal"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
inst |= (reg << 8);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
2000-01-31 19:24:43 +01:00
|
|
|
|
{
|
|
|
|
|
/* parse_rt calls frag_more() for us. */
|
|
|
|
|
input_line_pointer = parse_rt (op_end + 1, & output, 0, 0);
|
2002-11-21 12:43:40 +01:00
|
|
|
|
op_end = input_line_pointer;
|
2000-01-31 19:24:43 +01:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("second operand missing"));
|
|
|
|
|
output = frag_more (2); /* save its space */
|
|
|
|
|
}
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case LJ:
|
|
|
|
|
input_line_pointer = parse_rt (op_end + 1, & output, 1, 0);
|
|
|
|
|
/* parse_rt() calls frag_more() for us. */
|
2000-01-31 19:24:43 +01:00
|
|
|
|
op_end = input_line_pointer;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case RM:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg == 0 || reg == 15)
|
|
|
|
|
as_bad (_("bad starting register: r0 and r15 invalid"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == '-')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg != 15)
|
|
|
|
|
as_bad (_("ending register must be r15"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end ++;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == '(')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg != 0)
|
|
|
|
|
as_bad (_("bad base register: must be r0"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ')')
|
|
|
|
|
op_end ++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("base register expected"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case RQ:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg != 4)
|
|
|
|
|
as_fatal (_("first register must be r4"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == '-')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg != 7)
|
|
|
|
|
as_fatal (_("last register must be r7"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end ++;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == '(')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg >= 4 && reg <= 7)
|
|
|
|
|
as_fatal ("base register cannot be r4, r5, r6, or r7");
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ')')
|
|
|
|
|
op_end ++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("base register expected"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("reg-reg expected"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BR:
|
|
|
|
|
input_line_pointer = parse_exp (op_end + 1, & e);
|
2000-01-31 19:24:43 +01:00
|
|
|
|
op_end = input_line_pointer;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
|
|
|
|
fix_new_exp (frag_now, output-frag_now->fr_literal,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
2, & e, 1, BFD_RELOC_MCORE_PCREL_IMM11BY2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BL:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg << 4;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_exp (op_end + 1, & e);
|
|
|
|
|
output = frag_more (2);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
|
|
|
|
fix_new_exp (frag_now, output-frag_now->fr_literal,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
2, & e, 1, BFD_RELOC_MCORE_PCREL_IMM4BY2);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("second operand missing"));
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
}
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case JC:
|
|
|
|
|
input_line_pointer = parse_exp (op_end + 1, & e);
|
2000-01-31 19:24:43 +01:00
|
|
|
|
op_end = input_line_pointer;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_var (rs_machine_dependent,
|
2001-03-30 02:06:10 +02:00
|
|
|
|
md_relax_table[C (COND_JUMP, DISP32)].rlx_length,
|
|
|
|
|
md_relax_table[C (COND_JUMP, DISP12)].rlx_length,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
C (COND_JUMP, 0), e.X_add_symbol, e.X_add_number, 0);
|
|
|
|
|
isize = C32_LEN;
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case JU:
|
|
|
|
|
input_line_pointer = parse_exp (op_end + 1, & e);
|
2000-01-31 19:24:43 +01:00
|
|
|
|
op_end = input_line_pointer;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_var (rs_machine_dependent,
|
2001-03-30 02:06:10 +02:00
|
|
|
|
md_relax_table[C (UNCD_JUMP, DISP32)].rlx_length,
|
|
|
|
|
md_relax_table[C (UNCD_JUMP, DISP12)].rlx_length,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
C (UNCD_JUMP, 0), e.X_add_symbol, e.X_add_number, 0);
|
|
|
|
|
isize = U32_LEN;
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case JL:
|
|
|
|
|
inst = MCORE_INST_JSRI; /* jsri */
|
|
|
|
|
input_line_pointer = parse_rt (op_end + 1, & output, 1, & e);
|
1999-09-02 12:39:18 +02:00
|
|
|
|
/* parse_rt() calls frag_more for us. */
|
2000-01-31 19:24:43 +01:00
|
|
|
|
op_end = input_line_pointer;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
|
|
|
|
/* Only do this if we know how to do it ... */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (e.X_op != O_absent && do_jsri2bsr)
|
|
|
|
|
{
|
|
|
|
|
/* Look at adding the R_PCREL_JSRIMM11BY2. */
|
2000-09-20 23:12:43 +02:00
|
|
|
|
fix_new_exp (frag_now, output-frag_now->fr_literal,
|
1999-05-03 09:29:11 +02:00
|
|
|
|
2, & e, 1, BFD_RELOC_MCORE_PCREL_JSR_IMM11BY2);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
case RSI:
|
|
|
|
|
/* SI, but imm becomes 32-imm. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 1, 31);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
reg = 32 - reg;
|
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case DO21: /* O2, dup rd, lit must be 1 */
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
|
|
|
|
inst |= reg << 4;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 1, 31);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (reg != 1)
|
|
|
|
|
as_bad (_("second operand must be 1"));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case SIa:
|
|
|
|
|
op_end = parse_reg (op_end + 1, & reg);
|
|
|
|
|
inst |= reg;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Skip whitespace. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
op_end = parse_imm (op_end + 1, & reg, 1, 31);
|
|
|
|
|
|
|
|
|
|
if (reg == 0)
|
|
|
|
|
as_bad (_("zero used as immediate value"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
inst |= reg << 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
as_bad (_("second operand missing"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
case OPSR:
|
|
|
|
|
if (cpu == M210)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("M340 specific opcode used when assembling for M210"));
|
|
|
|
|
break;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
op_end = parse_psrmod (op_end + 1, & reg);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
/* Look for further selectors. */
|
|
|
|
|
while (* op_end == ',')
|
|
|
|
|
{
|
|
|
|
|
unsigned value;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
op_end = parse_psrmod (op_end + 1, & value);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (value & reg)
|
|
|
|
|
as_bad (_("duplicated psr bit specifier"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
reg |= value;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (reg > 8)
|
|
|
|
|
as_bad (_("`af' must appear alone"));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
inst |= (reg & 0x7);
|
|
|
|
|
output = frag_more (2);
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
default:
|
|
|
|
|
as_bad (_("unimplemented opcode \"%s\""), name);
|
|
|
|
|
}
|
2000-01-31 19:24:43 +01:00
|
|
|
|
|
|
|
|
|
/* Drop whitespace after all the operands have been parsed. */
|
2001-09-19 07:33:36 +02:00
|
|
|
|
while (ISSPACE (* op_end))
|
2000-01-31 19:24:43 +01:00
|
|
|
|
op_end ++;
|
|
|
|
|
|
2000-09-20 23:12:43 +02:00
|
|
|
|
/* Give warning message if the insn has more operands than required. */
|
2000-01-31 19:24:43 +01:00
|
|
|
|
if (strcmp (op_end, opcode->name) && strcmp (op_end, ""))
|
|
|
|
|
as_warn (_("ignoring operands: %s "), op_end);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-22 16:49:51 +02:00
|
|
|
|
output[0] = INST_BYTE0 (inst);
|
|
|
|
|
output[1] = INST_BYTE1 (inst);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2016-06-15 17:25:34 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
dwarf2_emit_insn (2);
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
check_literals (opcode->transfer, isize);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
symbolS *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_mcore_end (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
dump_literals (0);
|
|
|
|
|
subseg_set (text_section, 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Various routines to kill one day. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
2016-04-01 14:07:50 +02:00
|
|
|
|
const char *
|
2007-10-17 18:45:56 +02:00
|
|
|
|
md_atof (int type, char * litP, int * sizeP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2007-10-17 18:45:56 +02:00
|
|
|
|
return ieee_md_atof (type, litP, sizeP, target_big_endian);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2002-06-08 09:37:16 +02:00
|
|
|
|
const char * md_shortopts = "";
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
enum options
|
|
|
|
|
{
|
|
|
|
|
OPTION_JSRI2BSR_ON = OPTION_MD_BASE,
|
|
|
|
|
OPTION_JSRI2BSR_OFF,
|
|
|
|
|
OPTION_SIFILTER_ON,
|
|
|
|
|
OPTION_SIFILTER_OFF,
|
|
|
|
|
OPTION_CPU,
|
|
|
|
|
OPTION_EB,
|
|
|
|
|
OPTION_EL,
|
|
|
|
|
};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
struct option md_longopts[] =
|
|
|
|
|
{
|
|
|
|
|
{ "no-jsri2bsr", no_argument, NULL, OPTION_JSRI2BSR_OFF},
|
|
|
|
|
{ "jsri2bsr", no_argument, NULL, OPTION_JSRI2BSR_ON},
|
|
|
|
|
{ "sifilter", no_argument, NULL, OPTION_SIFILTER_ON},
|
|
|
|
|
{ "no-sifilter", no_argument, NULL, OPTION_SIFILTER_OFF},
|
2000-02-10 22:31:13 +01:00
|
|
|
|
{ "cpu", required_argument, NULL, OPTION_CPU},
|
|
|
|
|
{ "EB", no_argument, NULL, OPTION_EB},
|
|
|
|
|
{ "EL", no_argument, NULL, OPTION_EL},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{ NULL, no_argument, NULL, 0}
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
size_t md_longopts_size = sizeof (md_longopts);
|
|
|
|
|
|
|
|
|
|
int
|
2016-02-27 15:35:32 +01:00
|
|
|
|
md_parse_option (int c, const char * arg)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
2000-02-10 22:31:13 +01:00
|
|
|
|
case OPTION_CPU:
|
|
|
|
|
if (streq (arg, "210"))
|
|
|
|
|
{
|
|
|
|
|
cpu = M210;
|
|
|
|
|
target_big_endian = 1;
|
|
|
|
|
}
|
|
|
|
|
else if (streq (arg, "340"))
|
|
|
|
|
cpu = M340;
|
|
|
|
|
else
|
2002-11-21 12:43:40 +01:00
|
|
|
|
as_warn (_("unrecognised cpu type '%s'"), arg);
|
2000-02-10 22:31:13 +01:00
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
case OPTION_EB: target_big_endian = 1; break;
|
|
|
|
|
case OPTION_EL: target_big_endian = 0; cpu = M340; break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OPTION_JSRI2BSR_ON: do_jsri2bsr = 1; break;
|
|
|
|
|
case OPTION_JSRI2BSR_OFF: do_jsri2bsr = 0; break;
|
|
|
|
|
case OPTION_SIFILTER_ON: sifilter_mode = 1; break;
|
|
|
|
|
case OPTION_SIFILTER_OFF: sifilter_mode = 0; break;
|
|
|
|
|
default: return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_show_usage (FILE * stream)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
fprintf (stream, _("\
|
|
|
|
|
MCORE specific options:\n\
|
1999-05-22 16:49:51 +02:00
|
|
|
|
-{no-}jsri2bsr {dis}able jsri to bsr transformation (def: dis)\n\
|
2000-02-10 22:31:13 +01:00
|
|
|
|
-{no-}sifilter {dis}able silicon filter behavior (def: dis)\n\
|
|
|
|
|
-cpu=[210|340] select CPU type\n\
|
|
|
|
|
-EB assemble for a big endian system (default)\n\
|
|
|
|
|
-EL assemble for a little endian system\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
int md_short_jump_size;
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_create_short_jump (char * ptr ATTRIBUTE_UNUSED,
|
|
|
|
|
addressT from_Nddr ATTRIBUTE_UNUSED,
|
|
|
|
|
addressT to_Nddr ATTRIBUTE_UNUSED,
|
|
|
|
|
fragS * frag ATTRIBUTE_UNUSED,
|
|
|
|
|
symbolS * to_symbol ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_fatal (_("failed sanity check: short_jump"));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_create_long_jump (char * ptr ATTRIBUTE_UNUSED,
|
|
|
|
|
addressT from_Nddr ATTRIBUTE_UNUSED,
|
|
|
|
|
addressT to_Nddr ATTRIBUTE_UNUSED,
|
|
|
|
|
fragS * frag ATTRIBUTE_UNUSED,
|
|
|
|
|
symbolS * to_symbol ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
as_fatal (_("failed sanity check: long_jump"));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called after relaxing, change the frags so they know how big they are. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_convert_frag (bfd * abfd ATTRIBUTE_UNUSED,
|
|
|
|
|
segT sec ATTRIBUTE_UNUSED,
|
|
|
|
|
fragS * fragP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2005-02-23 13:28:06 +01:00
|
|
|
|
char *buffer;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int targ_addr = S_GET_VALUE (fragP->fr_symbol) + fragP->fr_offset;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-02-23 13:28:06 +01:00
|
|
|
|
buffer = fragP->fr_fix + fragP->fr_literal;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
switch (fragP->fr_subtype)
|
|
|
|
|
{
|
2001-03-30 02:06:10 +02:00
|
|
|
|
case C (COND_JUMP, DISP12):
|
|
|
|
|
case C (UNCD_JUMP, DISP12):
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
1999-09-02 12:39:18 +02:00
|
|
|
|
/* Get the address of the end of the instruction. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int next_inst = fragP->fr_fix + fragP->fr_address + 2;
|
|
|
|
|
unsigned char t0;
|
|
|
|
|
int disp = targ_addr - next_inst;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (disp & 1)
|
1999-05-22 16:49:51 +02:00
|
|
|
|
as_bad (_("odd displacement at %x"), next_inst - 2);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
disp >>= 1;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
t0 = buffer[1] & 0xF8;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
md_number_to_chars (buffer, disp, 2);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
buffer[1] = (buffer[1] & 0x07) | t0;
|
|
|
|
|
}
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
{
|
|
|
|
|
t0 = buffer[0] & 0xF8;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-22 16:49:51 +02:00
|
|
|
|
md_number_to_chars (buffer, disp, 2);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-22 16:49:51 +02:00
|
|
|
|
buffer[0] = (buffer[0] & 0x07) | t0;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fragP->fr_fix += 2;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2001-03-30 02:06:10 +02:00
|
|
|
|
case C (COND_JUMP, DISP32):
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case C (COND_JUMP, UNDEF_WORD_DISP):
|
|
|
|
|
{
|
2016-11-25 21:01:41 +01:00
|
|
|
|
/* A conditional branch won't fit into 12 bits so:
|
2005-03-24 21:40:28 +01:00
|
|
|
|
b!cond 1f
|
|
|
|
|
jmpi 0f
|
|
|
|
|
.align 2
|
|
|
|
|
0: .long disp
|
|
|
|
|
1:
|
2015-08-12 13:40:42 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
If the b!cond is 4 byte aligned, the literal which would
|
|
|
|
|
go at x+4 will also be aligned. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int first_inst = fragP->fr_fix + fragP->fr_address;
|
|
|
|
|
int needpad = (first_inst & 3);
|
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
buffer[1] ^= 0x08;
|
|
|
|
|
else
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[0] ^= 0x08; /* Toggle T/F bit. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[2] = INST_BYTE0 (MCORE_INST_JMPI); /* Build jmpi. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[3] = INST_BYTE1 (MCORE_INST_JMPI);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (needpad)
|
|
|
|
|
{
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[0] = 4; /* Branch over jmpi, pad, and ptr. */
|
|
|
|
|
buffer[2] = 1; /* Jmpi offset of 1 gets the pointer. */
|
2000-02-10 22:31:13 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[1] = 4; /* Branch over jmpi, pad, and ptr. */
|
|
|
|
|
buffer[3] = 1; /* Jmpi offset of 1 gets the pointer. */
|
1999-05-22 16:49:51 +02:00
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[4] = 0; /* Alignment/pad. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[5] = 0;
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[6] = 0; /* Space for 32 bit address. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[7] = 0;
|
|
|
|
|
buffer[8] = 0;
|
|
|
|
|
buffer[9] = 0;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Make reloc for the long disp. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fix_new (fragP, fragP->fr_fix + 6, 4,
|
|
|
|
|
fragP->fr_symbol, fragP->fr_offset, 0, BFD_RELOC_32);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fragP->fr_fix += C32_LEN;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* See comment below about this given gas' limitations for
|
|
|
|
|
shrinking the fragment. '3' is the amount of code that
|
|
|
|
|
we inserted here, but '4' is right for the space we reserved
|
2000-09-20 23:12:43 +02:00
|
|
|
|
for this fragment. */
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[0] = 3; /* Branch over jmpi, and ptr. */
|
|
|
|
|
buffer[2] = 0; /* Jmpi offset of 0 gets the pointer. */
|
2000-02-10 22:31:13 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[1] = 3; /* Branch over jmpi, and ptr. */
|
|
|
|
|
buffer[3] = 0; /* Jmpi offset of 0 gets the pointer. */
|
1999-05-22 16:49:51 +02:00
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[4] = 0; /* Space for 32 bit address. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[5] = 0;
|
|
|
|
|
buffer[6] = 0;
|
|
|
|
|
buffer[7] = 0;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Make reloc for the long disp. */
|
|
|
|
|
fix_new (fragP, fragP->fr_fix + 4, 4,
|
|
|
|
|
fragP->fr_symbol, fragP->fr_offset, 0, BFD_RELOC_32);
|
|
|
|
|
fragP->fr_fix += C32_LEN;
|
|
|
|
|
|
1999-05-22 16:49:51 +02:00
|
|
|
|
/* Frag is actually shorter (see the other side of this ifdef)
|
|
|
|
|
but gas isn't prepared for that. We have to re-adjust
|
2000-09-20 23:12:43 +02:00
|
|
|
|
the branch displacement so that it goes beyond the
|
1999-05-03 09:29:11 +02:00
|
|
|
|
full length of the fragment, not just what we actually
|
|
|
|
|
filled in. */
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[0] = 4; /* Jmpi, ptr, and the 'tail pad'. */
|
2000-02-10 22:31:13 +01:00
|
|
|
|
else
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[1] = 4; /* Jmpi, ptr, and the 'tail pad'. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2001-03-30 02:06:10 +02:00
|
|
|
|
case C (UNCD_JUMP, DISP32):
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case C (UNCD_JUMP, UNDEF_WORD_DISP):
|
|
|
|
|
{
|
|
|
|
|
/* An unconditional branch will not fit in 12 bits, make code which
|
|
|
|
|
looks like:
|
|
|
|
|
jmpi 0f
|
|
|
|
|
.align 2
|
|
|
|
|
0: .long disp
|
|
|
|
|
we need a pad if "first_inst" is 4 byte aligned.
|
2005-03-24 21:40:28 +01:00
|
|
|
|
[because the natural literal place is x + 2]. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int first_inst = fragP->fr_fix + fragP->fr_address;
|
|
|
|
|
int needpad = !(first_inst & 3);
|
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[0] = INST_BYTE0 (MCORE_INST_JMPI); /* Build jmpi. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[1] = INST_BYTE1 (MCORE_INST_JMPI);
|
|
|
|
|
|
|
|
|
|
if (needpad)
|
|
|
|
|
{
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[0] = 1; /* Jmpi offset of 1 since padded. */
|
2000-02-10 22:31:13 +01:00
|
|
|
|
else
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[1] = 1; /* Jmpi offset of 1 since padded. */
|
|
|
|
|
buffer[2] = 0; /* Alignment. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[3] = 0;
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[4] = 0; /* Space for 32 bit address. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[5] = 0;
|
|
|
|
|
buffer[6] = 0;
|
|
|
|
|
buffer[7] = 0;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-09-02 12:39:18 +02:00
|
|
|
|
/* Make reloc for the long disp. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fix_new (fragP, fragP->fr_fix + 4, 4,
|
|
|
|
|
fragP->fr_symbol, fragP->fr_offset, 0, BFD_RELOC_32);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fragP->fr_fix += U32_LEN;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[0] = 0; /* Jmpi offset of 0 if no pad. */
|
2000-02-10 22:31:13 +01:00
|
|
|
|
else
|
2005-03-24 21:40:28 +01:00
|
|
|
|
buffer[1] = 0; /* Jmpi offset of 0 if no pad. */
|
|
|
|
|
buffer[2] = 0; /* Space for 32 bit address. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[3] = 0;
|
|
|
|
|
buffer[4] = 0;
|
|
|
|
|
buffer[5] = 0;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-09-02 12:39:18 +02:00
|
|
|
|
/* Make reloc for the long disp. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fix_new (fragP, fragP->fr_fix + 2, 4,
|
|
|
|
|
fragP->fr_symbol, fragP->fr_offset, 0, BFD_RELOC_32);
|
|
|
|
|
fragP->fr_fix += U32_LEN;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Applies the desired value to the specified location.
|
|
|
|
|
Also sets up addends for 'rela' type relocations. */
|
2001-11-15 22:29:00 +01:00
|
|
|
|
|
|
|
|
|
void
|
gas:
* cgen.c, cgen.h, tc.h, write.c, config/obj-coff.c
* config/tc-a29k.c, config/tc-alpha.c, config/tc-alpha.h
* config/tc-arc.c, config/tc-arc.h, config/tc-arm.c
* config/tc-arm.h, config/tc-avr.c, config/tc-avr.h
* config/tc-cris.c, config/tc-crx.c, config/tc-d10v.c
* config/tc-d10v.h, config/tc-d30v.c, config/tc-d30v.h
* config/tc-dlx.c, config/tc-dlx.h, config/tc-fr30.h
* config/tc-frv.c, config/tc-frv.h, config/tc-h8300.c
* config/tc-h8500.c, config/tc-hppa.c, config/tc-hppa.h
* config/tc-i370.c, config/tc-i370.h, config/tc-i386.c
* config/tc-i386.h, config/tc-i860.c, config/tc-i860.h
* config/tc-i960.c, config/tc-i960.h, config/tc-ia64.c
* config/tc-ip2k.c, config/tc-ip2k.h, config/tc-iq2000.c
* config/tc-iq2000.h, config/tc-m32r.c, config/tc-m32r.h
* config/tc-m68hc11.c, config/tc-m68hc11.h, config/tc-m68k.c
* config/tc-m68k.h, config/tc-m88k.c, config/tc-maxq.c
* config/tc-mcore.c, config/tc-mcore.h, config/tc-mips.c
* config/tc-mips.h, config/tc-mmix.c, config/tc-mn10200.c
* config/tc-mn10300.c, config/tc-msp430.c, config/tc-ns32k.c
* config/tc-openrisc.h, config/tc-or32.c, config/tc-or32.h
* config/tc-pdp11.c, config/tc-pj.c, config/tc-pj.h
* config/tc-ppc.c, config/tc-ppc.h, config/tc-s390.c
* config/tc-s390.h, config/tc-sh64.c, config/tc-sh.c
* config/tc-sh.h, config/tc-sparc.c, config/tc-sparc.h
* config/tc-tahoe.c, config/tc-tic30.c, config/tc-tic4x.c
* config/tc-tic54x.c, config/tc-tic80.c, config/tc-v850.c
* config/tc-v850.h, config/tc-vax.c, config/tc-vax.h
* config/tc-w65.c, config/tc-xstormy16.c, config/tc-xstormy16.h
* config/tc-xtensa.c, config/tc-z8k.c:
Replace all instances of the string "_apply_fix3" with
"_apply_fix".
* po/POTFILES.in, po/gas.pot: Regenerate.
bfd:
* coff-i386.c: Change md_apply_fix3 to md_apply_fix in comment.
cgen:
* doc/porting.texi: Change all mention of md_apply_fix3 and
gas_cgen_md_apply_fix3 to md_apply_fix and gas_cgen_md_apply_fix
respectively.
2005-06-07 19:54:22 +02:00
|
|
|
|
md_apply_fix (fixS * fixP,
|
2005-03-24 21:40:28 +01:00
|
|
|
|
valueT * valP,
|
|
|
|
|
segT segment ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char * buf = fixP->fx_where + fixP->fx_frag->fr_literal;
|
2016-02-22 15:11:27 +01:00
|
|
|
|
const char * file = fixP->fx_file ? fixP->fx_file : _("unknown");
|
1999-05-03 09:29:11 +02:00
|
|
|
|
const char * symname;
|
|
|
|
|
/* Note: use offsetT because it is signed, valueT is unsigned. */
|
2002-09-05 02:01:18 +02:00
|
|
|
|
offsetT val = *valP;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
symname = fixP->fx_addsy ? S_GET_NAME (fixP->fx_addsy) : _("<unknown>");
|
|
|
|
|
/* Save this for the addend in the relocation record. */
|
|
|
|
|
fixP->fx_addnumber = val;
|
|
|
|
|
|
2002-09-05 02:01:18 +02:00
|
|
|
|
if (fixP->fx_addsy != NULL)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* For ELF we can just return and let the reloc that will be generated
|
|
|
|
|
take care of everything. For COFF we still have to insert 'val'
|
|
|
|
|
into the insn since the addend field will be ignored. */
|
2001-11-15 22:29:00 +01:00
|
|
|
|
return;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
fixP->fx_done = 1;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
switch (fixP->fx_r_type)
|
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Second byte of 2 byte opcode. */
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM11BY2:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if ((val & 1) != 0)
|
|
|
|
|
as_bad_where (file, fixP->fx_line,
|
2017-11-06 10:14:02 +01:00
|
|
|
|
ngettext ("odd distance branch (0x%lx byte)",
|
|
|
|
|
"odd distance branch (0x%lx bytes)",
|
|
|
|
|
(long) val),
|
|
|
|
|
(long) val);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
val /= 2;
|
|
|
|
|
if (((val & ~0x3ff) != 0) && ((val | 0x3ff) != -1))
|
|
|
|
|
as_bad_where (file, fixP->fx_line,
|
2002-12-12 23:11:32 +01:00
|
|
|
|
_("pcrel for branch to %s too far (0x%lx)"),
|
|
|
|
|
symname, (long) val);
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
buf[0] |= ((val >> 8) & 0x7);
|
|
|
|
|
buf[1] |= (val & 0xff);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2000-05-03 20:50:55 +02:00
|
|
|
|
buf[1] |= ((val >> 8) & 0x7);
|
|
|
|
|
buf[0] |= (val & 0xff);
|
2000-02-10 22:31:13 +01:00
|
|
|
|
}
|
1999-05-22 16:49:51 +02:00
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Lower 8 bits of 2 byte opcode. */
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM8BY4:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
val += 3;
|
|
|
|
|
val /= 4;
|
|
|
|
|
if (val & ~0xff)
|
|
|
|
|
as_bad_where (file, fixP->fx_line,
|
2002-12-12 23:11:32 +01:00
|
|
|
|
_("pcrel for lrw/jmpi/jsri to %s too far (0x%lx)"),
|
|
|
|
|
symname, (long) val);
|
2000-02-10 22:31:13 +01:00
|
|
|
|
else if (! target_big_endian)
|
|
|
|
|
buf[0] |= (val & 0xff);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
buf[1] |= (val & 0xff);
|
1999-05-22 16:49:51 +02:00
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Loopt instruction. */
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM4BY2:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if ((val < -32) || (val > -2))
|
|
|
|
|
as_bad_where (file, fixP->fx_line,
|
2002-12-12 23:11:32 +01:00
|
|
|
|
_("pcrel for loopt too far (0x%lx)"), (long) val);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
val /= 2;
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
buf[0] |= (val & 0xf);
|
|
|
|
|
else
|
2000-01-31 19:24:43 +01:00
|
|
|
|
buf[1] |= (val & 0xf);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_JSR_IMM11BY2:
|
|
|
|
|
/* Conditional linker map jsri to bsr. */
|
2017-01-23 16:23:07 +01:00
|
|
|
|
/* If it's a local target and close enough, fix it.
|
2002-11-21 12:43:40 +01:00
|
|
|
|
NB: >= -2k for backwards bsr; < 2k for forwards... */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (fixP->fx_addsy == 0 && val >= -2048 && val < 2048)
|
|
|
|
|
{
|
|
|
|
|
long nval = (val / 2) & 0x7ff;
|
|
|
|
|
nval |= MCORE_INST_BSR;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* REPLACE the instruction, don't just modify it. */
|
1999-05-22 16:49:51 +02:00
|
|
|
|
buf[0] = INST_BYTE0 (nval);
|
|
|
|
|
buf[1] = INST_BYTE1 (nval);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
fixP->fx_done = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_32:
|
|
|
|
|
case BFD_RELOC_VTABLE_INHERIT:
|
|
|
|
|
case BFD_RELOC_VTABLE_ENTRY:
|
|
|
|
|
fixP->fx_done = 0;
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
default:
|
|
|
|
|
if (fixP->fx_addsy != NULL)
|
|
|
|
|
{
|
|
|
|
|
/* If the fix is an absolute reloc based on a symbol's
|
|
|
|
|
address, then it cannot be resolved until the final link. */
|
|
|
|
|
fixP->fx_done = 0;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
#endif
|
|
|
|
|
{
|
|
|
|
|
if (fixP->fx_size == 4)
|
1999-05-22 16:49:51 +02:00
|
|
|
|
;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (fixP->fx_size == 2 && val >= -32768 && val <= 32767)
|
1999-05-22 16:49:51 +02:00
|
|
|
|
;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (fixP->fx_size == 1 && val >= -256 && val <= 255)
|
1999-05-22 16:49:51 +02:00
|
|
|
|
;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
1999-05-22 16:49:51 +02:00
|
|
|
|
md_number_to_chars (buf, val, fixP->fx_size);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_operand (expressionS * expressionP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2017-01-23 16:23:07 +01:00
|
|
|
|
/* Ignore leading hash symbol, if present. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* input_line_pointer == '#')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer ++;
|
|
|
|
|
expression (expressionP);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
int md_long_jump_size;
|
|
|
|
|
|
|
|
|
|
/* Called just before address relaxation, return the length
|
|
|
|
|
by which a fragment must grow to reach it's destination. */
|
|
|
|
|
int
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_estimate_size_before_relax (fragS * fragP, segT segment_type)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
switch (fragP->fr_subtype)
|
|
|
|
|
{
|
2001-03-30 02:06:10 +02:00
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case C (UNCD_JUMP, UNDEF_DISP):
|
|
|
|
|
/* Used to be a branch to somewhere which was unknown. */
|
|
|
|
|
if (!fragP->fr_symbol)
|
2005-03-24 21:40:28 +01:00
|
|
|
|
fragP->fr_subtype = C (UNCD_JUMP, DISP12);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (S_GET_SEGMENT (fragP->fr_symbol) == segment_type)
|
2005-03-24 21:40:28 +01:00
|
|
|
|
fragP->fr_subtype = C (UNCD_JUMP, DISP12);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2005-03-24 21:40:28 +01:00
|
|
|
|
fragP->fr_subtype = C (UNCD_JUMP, UNDEF_WORD_DISP);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C (COND_JUMP, UNDEF_DISP):
|
2000-09-20 23:12:43 +02:00
|
|
|
|
/* Used to be a branch to somewhere which was unknown. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (fragP->fr_symbol
|
|
|
|
|
&& S_GET_SEGMENT (fragP->fr_symbol) == segment_type)
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Got a symbol and it's defined in this segment, become byte
|
|
|
|
|
sized - maybe it will fix up */
|
|
|
|
|
fragP->fr_subtype = C (COND_JUMP, DISP12);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else if (fragP->fr_symbol)
|
2017-01-23 16:23:07 +01:00
|
|
|
|
/* It's got a segment, but it's not ours, so it will always be long. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
fragP->fr_subtype = C (COND_JUMP, UNDEF_WORD_DISP);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* We know the abs value. */
|
|
|
|
|
fragP->fr_subtype = C (COND_JUMP, DISP12);
|
2001-03-30 02:06:10 +02:00
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-03-30 02:06:10 +02:00
|
|
|
|
case C (UNCD_JUMP, DISP12):
|
2001-04-05 06:21:36 +02:00
|
|
|
|
case C (UNCD_JUMP, DISP32):
|
2001-03-30 02:06:10 +02:00
|
|
|
|
case C (UNCD_JUMP, UNDEF_WORD_DISP):
|
|
|
|
|
case C (COND_JUMP, DISP12):
|
2001-04-05 06:21:36 +02:00
|
|
|
|
case C (COND_JUMP, DISP32):
|
2001-03-30 02:06:10 +02:00
|
|
|
|
case C (COND_JUMP, UNDEF_WORD_DISP):
|
|
|
|
|
/* When relaxing a section for the second time, we don't need to
|
2001-04-05 06:21:36 +02:00
|
|
|
|
do anything besides return the current size. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2001-05-10 13:32:52 +02:00
|
|
|
|
return md_relax_table[fragP->fr_subtype].rlx_length;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-09-02 12:39:18 +02:00
|
|
|
|
/* Put number into target byte order. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
void
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_number_to_chars (char * ptr, valueT use, int nbytes)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2007-01-11 09:58:56 +01:00
|
|
|
|
if (target_big_endian)
|
|
|
|
|
number_to_chars_bigendian (ptr, use, nbytes);
|
2000-02-10 22:31:13 +01:00
|
|
|
|
else
|
2007-01-11 09:58:56 +01:00
|
|
|
|
number_to_chars_littleendian (ptr, use, nbytes);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Round up a section size to the appropriate boundary. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
valueT
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_section_align (segT segment ATTRIBUTE_UNUSED,
|
|
|
|
|
valueT size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2005-03-24 21:40:28 +01:00
|
|
|
|
/* Byte alignment is fine. */
|
|
|
|
|
return size;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The location from which a PC relative jump should be calculated,
|
|
|
|
|
given a PC relative reloc. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
long
|
2005-03-24 21:40:28 +01:00
|
|
|
|
md_pcrel_from_section (fixS * fixp, segT sec ATTRIBUTE_UNUSED)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* If the symbol is undefined or defined in another section
|
|
|
|
|
we leave the add number alone for the linker to fix it later.
|
2000-09-20 23:12:43 +02:00
|
|
|
|
Only account for the PC pre-bump (which is 2 bytes on the MCore). */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (fixp->fx_addsy != (symbolS *) NULL
|
|
|
|
|
&& (! S_IS_DEFINED (fixp->fx_addsy)
|
|
|
|
|
|| (S_GET_SEGMENT (fixp->fx_addsy) != sec)))
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 19:56:02 +02:00
|
|
|
|
gas_assert (fixp->fx_size == 2); /* must be an insn */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return fixp->fx_size;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
2000-09-20 23:12:43 +02:00
|
|
|
|
/* The case where we are going to resolve things... */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return fixp->fx_size + fixp->fx_where + fixp->fx_frag->fr_address;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#define F(SZ,PCREL) (((SZ) << 1) + (PCREL))
|
|
|
|
|
#define MAP(SZ,PCREL,TYPE) case F (SZ, PCREL): code = (TYPE); break
|
|
|
|
|
|
|
|
|
|
arelent *
|
2005-03-24 21:40:28 +01:00
|
|
|
|
tc_gen_reloc (asection * section ATTRIBUTE_UNUSED, fixS * fixp)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
arelent * rel;
|
|
|
|
|
bfd_reloc_code_real_type code;
|
|
|
|
|
|
|
|
|
|
switch (fixp->fx_r_type)
|
|
|
|
|
{
|
2000-09-20 23:12:43 +02:00
|
|
|
|
/* These confuse the size/pcrel macro approach. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case BFD_RELOC_VTABLE_INHERIT:
|
|
|
|
|
case BFD_RELOC_VTABLE_ENTRY:
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM4BY2:
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM8BY4:
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM11BY2:
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_JSR_IMM11BY2:
|
2000-09-20 23:12:43 +02:00
|
|
|
|
case BFD_RELOC_RVA:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
code = fixp->fx_r_type;
|
|
|
|
|
break;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
default:
|
|
|
|
|
switch (F (fixp->fx_size, fixp->fx_pcrel))
|
2002-11-21 12:43:40 +01:00
|
|
|
|
{
|
|
|
|
|
MAP (1, 0, BFD_RELOC_8);
|
|
|
|
|
MAP (2, 0, BFD_RELOC_16);
|
|
|
|
|
MAP (4, 0, BFD_RELOC_32);
|
|
|
|
|
MAP (1, 1, BFD_RELOC_8_PCREL);
|
|
|
|
|
MAP (2, 1, BFD_RELOC_16_PCREL);
|
|
|
|
|
MAP (4, 1, BFD_RELOC_32_PCREL);
|
|
|
|
|
default:
|
1999-05-03 09:29:11 +02:00
|
|
|
|
code = fixp->fx_r_type;
|
2002-11-21 12:43:40 +01:00
|
|
|
|
as_bad (_("Can not do %d byte %srelocation"),
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fixp->fx_size,
|
2017-01-23 16:23:07 +01:00
|
|
|
|
fixp->fx_pcrel ? _("pc-relative ") : "");
|
2002-11-21 12:43:40 +01:00
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
2016-04-01 15:26:30 +02:00
|
|
|
|
rel = XNEW (arelent);
|
|
|
|
|
rel->sym_ptr_ptr = XNEW (asymbol *);
|
1999-06-22 16:07:40 +02:00
|
|
|
|
*rel->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
rel->address = fixp->fx_frag->fr_address + fixp->fx_where;
|
|
|
|
|
/* Always pass the addend along! */
|
|
|
|
|
rel->addend = fixp->fx_addnumber;
|
|
|
|
|
|
|
|
|
|
rel->howto = bfd_reloc_type_lookup (stdoutput, code);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (rel->howto == NULL)
|
|
|
|
|
{
|
|
|
|
|
as_bad_where (fixp->fx_file, fixp->fx_line,
|
2002-11-21 12:43:40 +01:00
|
|
|
|
_("Cannot represent relocation type %s"),
|
|
|
|
|
bfd_get_reloc_code_name (code));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Set howto to a garbage value so that we can keep going. */
|
|
|
|
|
rel->howto = bfd_reloc_type_lookup (stdoutput, BFD_RELOC_32);
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 19:56:02 +02:00
|
|
|
|
gas_assert (rel->howto != NULL);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return rel;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
/* See whether we need to force a relocation into the output file.
|
|
|
|
|
This is used to force out switch and PC relative relocations when
|
|
|
|
|
relaxing. */
|
|
|
|
|
int
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_force_relocation (fixS * fix)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2003-01-23 13:51:05 +01:00
|
|
|
|
if (fix->fx_r_type == BFD_RELOC_RVA)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return 1;
|
|
|
|
|
|
2003-01-23 13:51:05 +01:00
|
|
|
|
return generic_force_reloc (fix);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return true if the fix can be handled by GAS, false if it must
|
|
|
|
|
be passed through to the linker. */
|
2005-03-24 21:40:28 +01:00
|
|
|
|
|
2002-11-30 09:39:46 +01:00
|
|
|
|
bfd_boolean
|
2005-03-24 21:40:28 +01:00
|
|
|
|
mcore_fix_adjustable (fixS * fixP)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
/* We need the symbol name for the VTABLE entries. */
|
|
|
|
|
if ( fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
|
|
|
|
|| fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
#endif /* OBJ_ELF */
|