1999-05-03 09:29:11 +02:00
|
|
|
|
/* tc-mcore.c -- Assemble code for M*Core
|
2001-03-30 02:06:10 +02:00
|
|
|
|
Copyright 1999, 2000, 2001 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
|
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GAS is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
1999-08-31 17:12:20 +02:00
|
|
|
|
along with GAS; see the file COPYING. If not, write to the Free
|
|
|
|
|
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|
|
|
|
02111-1307, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
#include "as.h"
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "subsegs.h"
|
|
|
|
|
#define DEFINE_TABLE
|
|
|
|
|
#include "../opcodes/mcore-opc.h"
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
#include "elf/mcore.h"
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef streq
|
|
|
|
|
#define streq(a,b) (strcmp (a, b) == 0)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Forward declarations for dumb compilers. */
|
|
|
|
|
static void mcore_s_literals PARAMS ((int));
|
|
|
|
|
static void mcore_cons PARAMS ((int));
|
|
|
|
|
static void mcore_float_cons PARAMS ((int));
|
|
|
|
|
static void mcore_stringer PARAMS ((int));
|
1999-09-02 12:39:18 +02:00
|
|
|
|
static void mcore_fill PARAMS ((int));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static int log2 PARAMS ((unsigned int));
|
1999-10-25 17:28:44 +02:00
|
|
|
|
static char * parse_reg PARAMS ((char *, unsigned *));
|
|
|
|
|
static char * parse_creg PARAMS ((char *, unsigned *));
|
|
|
|
|
static char * parse_exp PARAMS ((char *, expressionS *));
|
|
|
|
|
static char * parse_rt PARAMS ((char *, char **, int, expressionS *));
|
|
|
|
|
static char * parse_imm PARAMS ((char *, unsigned *, unsigned, unsigned));
|
|
|
|
|
static char * parse_mem PARAMS ((char *, unsigned *, unsigned *, unsigned));
|
2000-02-10 22:31:13 +01:00
|
|
|
|
static char * parse_psrmod PARAMS ((char *, unsigned *));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void make_name PARAMS ((char *, char *, int));
|
|
|
|
|
static int enter_literal PARAMS ((expressionS *, int));
|
|
|
|
|
static void dump_literals PARAMS ((int));
|
|
|
|
|
static void check_literals PARAMS ((int, int));
|
|
|
|
|
static void mcore_s_text PARAMS ((int));
|
|
|
|
|
static void mcore_s_data PARAMS ((int));
|
|
|
|
|
static void mcore_s_section PARAMS ((int));
|
1999-06-23 11:27:09 +02:00
|
|
|
|
static void mcore_s_bss PARAMS ((int));
|
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
static void mcore_s_comm PARAMS ((int));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* 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[] = "#/";
|
|
|
|
|
|
|
|
|
|
const int md_reloc_size = 8;
|
|
|
|
|
|
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))
|
|
|
|
|
|
|
|
|
|
/* These are the two types of relaxable instruction */
|
|
|
|
|
#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
|
|
|
|
|
#define C32_LEN 10 /* allow for align */
|
|
|
|
|
#define U12_LEN 2
|
|
|
|
|
#define U32_LEN 8 /* allow for align */
|
|
|
|
|
|
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. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
const relax_typeS md_relax_table[] =
|
|
|
|
|
{
|
2000-09-20 23:12:43 +02:00
|
|
|
|
{ 1, 1, 0, 0 }, /* 0: unused */
|
|
|
|
|
{ 1, 1, 0, 0 }, /* 1: unused */
|
|
|
|
|
{ 1, 1, 0, 0 }, /* 2: unused */
|
|
|
|
|
{ 1, 1, 0, 0 }, /* 3: unused */
|
|
|
|
|
{ 1, 1, 0, 0 }, /* 4: unused */
|
2001-03-30 02:06:10 +02:00
|
|
|
|
{ 2048, -2046, C12_LEN, C(COND_JUMP, DISP32) }, /* 5: C(COND_JUMP, DISP12) */
|
|
|
|
|
{ 0, 0, C32_LEN, 0 }, /* 6: C(COND_JUMP, DISP32) */
|
2000-09-20 23:12:43 +02:00
|
|
|
|
{ 1, 1, 0, 0 }, /* 7: unused */
|
|
|
|
|
{ 1, 1, 0, 0 }, /* 8: unused */
|
2001-03-30 02:06:10 +02:00
|
|
|
|
{ 2048, -2046, U12_LEN, C(UNCD_JUMP, DISP32) }, /* 9: C(UNCD_JUMP, DISP12) */
|
|
|
|
|
{ 0, 0, U32_LEN, 0 }, /*10: C(UNCD_JUMP, DISP32) */
|
2000-09-20 23:12:43 +02:00
|
|
|
|
{ 1, 1, 0, 0 }, /*11: unused */
|
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)
|
2000-05-03 20:50:55 +02: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
|
|
|
|
|
|
|
|
|
/* 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
|
2000-05-03 20:50:55 +02:00
|
|
|
|
Integer arg to pass to the function. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
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. */
|
|
|
|
|
{ "ascii", mcore_stringer, 0 },
|
|
|
|
|
{ "asciz", mcore_stringer, 1 },
|
|
|
|
|
{ "byte", mcore_cons, 1 },
|
|
|
|
|
{ "dc", mcore_cons, 2 },
|
|
|
|
|
{ "dc.b", mcore_cons, 1 },
|
1999-09-02 12:39:18 +02:00
|
|
|
|
{ "dc.d", mcore_float_cons, 'd'},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{ "dc.l", mcore_cons, 4 },
|
1999-09-02 12:39:18 +02:00
|
|
|
|
{ "dc.s", mcore_float_cons, 'f'},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{ "dc.w", mcore_cons, 2 },
|
1999-09-02 12:39:18 +02:00
|
|
|
|
{ "dc.x", mcore_float_cons, 'x'},
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{ "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'},
|
|
|
|
|
{ "string", mcore_stringer, 1 },
|
|
|
|
|
{ "word", mcore_cons, 2 },
|
1999-09-02 12:39:18 +02:00
|
|
|
|
{ "fill", mcore_fill, 0 },
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Allow for the effect of section changes. */
|
|
|
|
|
{ "text", mcore_s_text, 0 },
|
|
|
|
|
{ "data", mcore_s_data, 0 },
|
1999-06-23 11:27:09 +02:00
|
|
|
|
{ "bss", mcore_s_bss, 1 },
|
|
|
|
|
#ifdef OBJ_EF
|
|
|
|
|
{ "comm", mcore_s_comm, 0 },
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{ "section", mcore_s_section, 0 },
|
|
|
|
|
{ "section.s", mcore_s_section, 0 },
|
|
|
|
|
{ "sect", mcore_s_section, 0 },
|
|
|
|
|
{ "sect.s", mcore_s_section, 0 },
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{ 0, 0, 0 }
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mcore_s_literals (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
dump_literals (0);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
mcore_cons (nbytes)
|
|
|
|
|
int nbytes;
|
|
|
|
|
{
|
|
|
|
|
if (now_seg == text_section)
|
|
|
|
|
{
|
|
|
|
|
char * ptr = input_line_pointer;
|
|
|
|
|
int commas = 1;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Count the number of commas on the line. */
|
2000-06-02 04:52:10 +02:00
|
|
|
|
while (! is_end_of_line [(unsigned char) * ptr])
|
1999-05-03 09:29:11 +02:00
|
|
|
|
commas += * ptr ++ == ',';
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
poolspan += nbytes * commas;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
cons (nbytes);
|
|
|
|
|
|
|
|
|
|
/* 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
|
|
|
|
|
mcore_float_cons (float_type)
|
|
|
|
|
int float_type;
|
|
|
|
|
{
|
|
|
|
|
if (now_seg == text_section)
|
|
|
|
|
{
|
|
|
|
|
char * ptr = input_line_pointer;
|
|
|
|
|
int commas = 1;
|
|
|
|
|
|
|
|
|
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
|
|
|
|
#error REPEAT_CONS_EXPRESSIONS not handled
|
|
|
|
|
#endif
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* Count the number of commas on the line. */
|
2000-06-02 04:52:10 +02:00
|
|
|
|
while (! is_end_of_line [(unsigned char) * ptr])
|
1999-05-03 09:29:11 +02:00
|
|
|
|
commas += * ptr ++ == ',';
|
|
|
|
|
|
|
|
|
|
/* We would like to compute "hex_float (float_type) * commas"
|
|
|
|
|
but hex_float is not exported from read.c */
|
|
|
|
|
float_type == 'f' ? 4 : (float_type == 'd' ? 8 : 12);
|
|
|
|
|
poolspan += float_type * commas;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
mcore_stringer (append_zero)
|
|
|
|
|
int append_zero;
|
|
|
|
|
{
|
|
|
|
|
if (now_seg == text_section)
|
|
|
|
|
{
|
|
|
|
|
char * ptr = input_line_pointer;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* In theory we should compute how many bytes are going to
|
|
|
|
|
be occupied by the string(s) and add this to the poolspan.
|
|
|
|
|
To keep things simple however, we just add the number of
|
|
|
|
|
bytes left on the current line. This will be an over-
|
|
|
|
|
estimate, which is OK, and automatically allows for the
|
|
|
|
|
appending a zero byte, since the real string(s) is/are
|
|
|
|
|
required to be enclosed in double quotes. */
|
2000-06-02 04:52:10 +02:00
|
|
|
|
while (! is_end_of_line [(unsigned char) * ptr])
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ptr ++;
|
|
|
|
|
|
|
|
|
|
poolspan += ptr - input_line_pointer;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
stringer (append_zero);
|
|
|
|
|
|
|
|
|
|
/* 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
|
|
|
|
|
mcore_fill (unused)
|
|
|
|
|
int unused;
|
|
|
|
|
{
|
|
|
|
|
if (now_seg == text_section)
|
|
|
|
|
{
|
|
|
|
|
char * str = input_line_pointer;
|
|
|
|
|
int size = 1;
|
|
|
|
|
int repeat;
|
|
|
|
|
|
|
|
|
|
repeat = atoi (str);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-09-02 12:39:18 +02:00
|
|
|
|
/* Look to see if a size has been specified. */
|
|
|
|
|
while (*str != '\n' && *str != 0 && *str != ',')
|
|
|
|
|
++ str;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-09-02 12:39:18 +02:00
|
|
|
|
if (* str == ',')
|
|
|
|
|
{
|
|
|
|
|
size = atoi (str + 1);
|
|
|
|
|
|
|
|
|
|
if (size > 8)
|
|
|
|
|
size = 8;
|
|
|
|
|
else if (size < 0)
|
|
|
|
|
size = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
poolspan += size * repeat;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-09-02 12:39:18 +02:00
|
|
|
|
s_fill (unused);
|
|
|
|
|
|
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. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void
|
|
|
|
|
mcore_s_text (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
mcore_s_data (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
mcore_s_section (ignore)
|
|
|
|
|
int ignore;
|
|
|
|
|
{
|
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
|
|
|
|
|
which is arbitarily placed inside generated code. In this case
|
|
|
|
|
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;
|
|
|
|
|
|
|
|
|
|
while (*ilp != 0 && isspace(*ilp))
|
|
|
|
|
++ ilp;
|
|
|
|
|
|
|
|
|
|
if (strncmp (ilp, ".line", 5) == 0
|
|
|
|
|
&& (isspace (ilp[5]) || *ilp == '\n' || *ilp == '\r'))
|
|
|
|
|
;
|
|
|
|
|
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
|
|
|
|
|
mcore_s_bss (needs_align)
|
|
|
|
|
int needs_align;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
mcore_s_comm (needs_align)
|
|
|
|
|
int needs_align;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
|
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. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
void
|
|
|
|
|
md_begin ()
|
|
|
|
|
{
|
|
|
|
|
mcore_opcode_info * opcode;
|
|
|
|
|
char * prev_name = "";
|
|
|
|
|
|
|
|
|
|
opcode_hash_control = hash_new ();
|
|
|
|
|
|
|
|
|
|
/* Insert unique names into hash table */
|
|
|
|
|
for (opcode = mcore_table; opcode->name; opcode ++)
|
|
|
|
|
{
|
|
|
|
|
if (streq (prev_name, opcode->name))
|
|
|
|
|
{
|
|
|
|
|
/* Make all the opcodes with the same name point to the same
|
|
|
|
|
string. */
|
|
|
|
|
opcode->name = prev_name;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
prev_name = opcode->name;
|
|
|
|
|
hash_insert (opcode_hash_control, opcode->name, (char *) opcode);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int reg_m;
|
|
|
|
|
static int reg_n;
|
|
|
|
|
static expressionS immediate; /* absolute expression */
|
|
|
|
|
|
|
|
|
|
/* Get a log2(val). */
|
|
|
|
|
static int
|
|
|
|
|
log2 (val)
|
|
|
|
|
unsigned int val;
|
|
|
|
|
{
|
|
|
|
|
int log = -1;
|
|
|
|
|
while (val != 0)
|
|
|
|
|
{
|
|
|
|
|
log ++;
|
|
|
|
|
val >>= 1;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return log;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Try to parse a reg name. */
|
|
|
|
|
static char *
|
|
|
|
|
parse_reg (s, reg)
|
|
|
|
|
char * s;
|
|
|
|
|
unsigned * reg;
|
|
|
|
|
{
|
|
|
|
|
/* Strip leading whitespace. */
|
|
|
|
|
while (isspace (* s))
|
|
|
|
|
++ s;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (tolower (s[0]) == 'r')
|
|
|
|
|
{
|
|
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if ( tolower (s[0]) == 's'
|
|
|
|
|
&& tolower (s[1]) == 'p'
|
1999-05-22 16:49:51 +02:00
|
|
|
|
&& ! 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
|
|
|
|
|
{
|
|
|
|
|
char * name;
|
|
|
|
|
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 *
|
|
|
|
|
parse_creg (s, reg)
|
|
|
|
|
char * s;
|
|
|
|
|
unsigned * reg;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
/* Strip leading whitespace. */
|
|
|
|
|
while (isspace (* s))
|
|
|
|
|
++s;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if ((tolower (s[0]) == 'c' && tolower (s[1]) == 'r'))
|
|
|
|
|
{
|
|
|
|
|
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++)
|
|
|
|
|
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 *
|
|
|
|
|
parse_psrmod (s, reg)
|
|
|
|
|
char * s;
|
|
|
|
|
unsigned * reg;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
char buf[10];
|
|
|
|
|
static struct psrmods
|
|
|
|
|
{
|
|
|
|
|
char * name;
|
|
|
|
|
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++)
|
|
|
|
|
buf[i] = isascii (s[i]) ? tolower (s[i]) : 0;
|
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))
|
|
|
|
|
{
|
|
|
|
|
* reg = psrmods[i].value;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
return s + 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
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 *
|
|
|
|
|
parse_exp (s, e)
|
|
|
|
|
char * s;
|
|
|
|
|
expressionS * e;
|
|
|
|
|
{
|
|
|
|
|
char * save;
|
|
|
|
|
char * new;
|
|
|
|
|
|
|
|
|
|
/* Skip whitespace. */
|
|
|
|
|
while (isspace (* s))
|
|
|
|
|
++ 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
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
new = input_line_pointer;
|
|
|
|
|
input_line_pointer = save;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return new;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
make_name (s, p, n)
|
|
|
|
|
char * s;
|
|
|
|
|
char * p;
|
|
|
|
|
int n;
|
|
|
|
|
{
|
|
|
|
|
static const char hex[] = "0123456789ABCDEF";
|
|
|
|
|
|
|
|
|
|
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-22 16:49:51 +02:00
|
|
|
|
#define POOL_END_LABEL ".LE"
|
|
|
|
|
#define POOL_START_LABEL ".LS"
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static void
|
|
|
|
|
dump_literals (isforce)
|
|
|
|
|
int isforce;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
struct literal * p;
|
Add support for storing local symbols in a small structure to save
memory when assembling large files.
* as.h: Don't include struc-symbol.h.
(symbolS): Add typedef.
* symbols.c: Include struc-symbol.h.
(local_hash): New static variable.
(save_symbol_name): New static function, from symbol_create.
(symbol_create): Call save_symbol_name.
(local_symbol_count): New static variable.
(local_symbol_conversion_count): Likewise.
(LOCAL_SYMBOL_CHECK): Define.
(local_symbol_make): New static function.
(local_symbol_convert): New static function.
(colon): Handle local symbols. Create local symbol for local
label name.
(symbol_table_insert): Handle local symbols.
(symbol_find_or_make): Create local symbol for local label name.
(symbol_find_base): Check for local symbol.
(symbol_append, symbol_insert): Check for local symbols.
(symbol_clear_list_pointers, symbol_remove): Likewise.
(verify_symbol_chain): Likewise.
(copy_symbol_attributes): Likewise.
(resolve_symbol_value): Handle local symbols.
(resolve_local_symbol): New static function.
(resolve_local_symbol_values): New function.
(S_GET_VALUE, S_SET_VALUE): Handle local symbols.
(S_IS_FUNCTION, S_IS_EXTERNAL, S_IS_WEAK, S_IS_COMMON): Likewise.
(S_IS_DEFINED, S_IS_DEBUG, S_IS_LOCAL, S_GET_NAME): Likewise.
(S_GET_SEGMENT, S_SET_SEGMENT, S_SET_EXTERNAL): Likewise.
(S_CLEAR_EXTERNAL, S_SET_WEAK, S_SET_NAME): Likewise.
(symbol_previous, symbol_next): New functions.
(symbol_get_value_expression): Likewise.
(symbol_set_value_expression): Likewise.
(symbol_set_frag, symbol_get_frag): Likewise.
(symbol_mark_used, symbol_clear_used, symbol_used_p): Likewise.
(symbol_mark_used_in_reloc): Likewise.
(symbol_clear_used_in_reloc, symbol_used_in_reloc_p): Likewise.
(symbol_mark_mri_common, symbol_clear_mri_common): Likewise.
(symbol_mri_common_p): Likewise.
(symbol_mark_written, symbol_clear_written): Likewise.
(symbol_written_p): Likewise.
(symbol_mark_resolved, symbol_resolved_p): Likewise.
(symbol_section_p, symbol_equated_p): Likewise.
(symbol_constant_p): Likewise.
(symbol_get_bfdsym, symbol_set_bfdsym): Likewise.
(symbol_get_obj, symbol_set_obj): Likewise.
(symbol_get_tc, symbol_set_tc): Likewise.
(symbol_begin): Initialize local_hash.
(print_symbol_value_1): Handle local symbols.
(symbol_print_statistics): Print local symbol statistics.
* symbols.h: Include "struc-symbol.h" if not BFD_ASSEMBLER.
Declare new symbols.c functions. Move many declarations here from
struc-symbol.h.
(SYMBOLS_NEED_BACKPOINTERS): Define if needed.
* struc-symbol.h (SYMBOLS_NEED_BACKPOINTERS): Don't set.
(struct symbol): Move bsym to make it clearly the first field.
Remove TARGET_SYMBOL_FIELDS.
(symbolS): Don't typedef.
(struct broken_word): Remove.
(N_TYPE_seg, seg_N_TYPE): Move to symbol.h.
(SEGMENT_TO_SYMBOL_TYPE, N_REGISTER): Likewise.
(symbol_clear_list_pointers): Likewise.
(symbol_insert, symbol_remove): Likewise.
(symbol_previous, symbol_append): Likewise.
(verify_symbol_chain, verify_symbol_chain_2): Likewise.
(struct local_symbol): Define.
(local_symbol_converted_p, local_symbol_mark_converted): Define.
(local_symbol_resolved_p, local_symbol_mark_resolved): Define.
(local_symbol_get_frag, local_symbol_set_frag): Define.
(local_symbol_get_real_symbol): Define.
(local_symbol_set_real_symbol): Define.
Define.
* write.c (write_object_file): Call resolve_local_symbol_values.
* config/obj-ecoff.h (OBJ_SYMFIELD_TYPE): Define.
(TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-elf.h (OBJ_SYMFIELD_TYPE): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
* config/obj-multi.h (struct elf_obj_sy): Add local field. If
ECOFF_DEBUGGING, add ECOFF fields.
(ELF_TARGET_SYMBOL_FIELDS, TARGET_SYMBOL_FIELDS): Don't define.
(ECOFF_DEBUG_TARGET_SYMBOL_FIELDS): Don't define.
* config/tc-mcore.h: Don't include struc-symbol.h.
(TARGET_SYMBOL_FIELDS): Don't define.
(struct mcore_tc_sy): Define.
(TC_SYMFIELD_TYPE): Define.
* Many files: Use symbolS instead of struct symbol. Use new
accessor functions rather than referring to symbolS fields
directly.
* read.c (s_mri_common): Don't add in value of line_label.
* config/tc-mips.c (md_apply_fix): Correct parenthesization when
checking for SEC_LINK_ONCE.
* config/tc-sh.h (sh_fix_adjustable): Declare.
1999-06-03 02:29:48 +02:00
|
|
|
|
symbolS * brarsym;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (poolsize == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/* Must we branch around the literal table? */
|
|
|
|
|
if (isforce)
|
|
|
|
|
{
|
|
|
|
|
char * output;
|
|
|
|
|
char brarname[8];
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-22 16:49:51 +02:00
|
|
|
|
make_name (brarname, POOL_END_LABEL, poolnumber);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
brarsym = symbol_make (brarname);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
symbol_table_insert (brarsym);
|
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 (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), brarsym, 0, 0);
|
|
|
|
|
output[0] = INST_BYTE0 (MCORE_INST_BR); /* br .+xxx */
|
|
|
|
|
output[1] = INST_BYTE1 (MCORE_INST_BR);
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* 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);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
colon (S_GET_NAME (poolsym));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
for (i = 0, p = litpool; i < poolsize; i++, p++)
|
|
|
|
|
emit_expr (& p->e, 4);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (isforce)
|
|
|
|
|
colon (S_GET_NAME (brarsym));
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
poolsize = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
check_literals (kind, offset)
|
|
|
|
|
int kind;
|
|
|
|
|
int offset;
|
|
|
|
|
{
|
|
|
|
|
poolspan += offset;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* 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
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
The dump_literals (1) call inserts a branch around the table, so
|
|
|
|
|
we first look to see if its a situation where we won't have to
|
|
|
|
|
insert a branch (e.g., the previous instruction was an unconditional
|
|
|
|
|
branch).
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
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. */
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (poolspan > SPANCLOSE && kind > 0)
|
|
|
|
|
dump_literals (0);
|
1999-10-25 18:48:26 +02:00
|
|
|
|
else if (poolspan > SPANEXIT && kind > 1)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
dump_literals (0);
|
|
|
|
|
else if (poolspan >= (SPANPANIC - poolsize * 2))
|
|
|
|
|
dump_literals (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
enter_literal (e, ispcrel)
|
|
|
|
|
expressionS * e;
|
|
|
|
|
int ispcrel;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
struct literal * p;
|
|
|
|
|
|
|
|
|
|
if (poolsize >= MAX_POOL_SIZE - 2)
|
|
|
|
|
{
|
|
|
|
|
/* 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
|
2000-09-20 23:12:43 +02:00
|
|
|
|
to 2 entries. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
dump_literals (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
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. */
|
|
|
|
|
static char *
|
|
|
|
|
parse_rt (s, outputp, ispcrel, ep)
|
|
|
|
|
char * s;
|
|
|
|
|
char ** outputp;
|
|
|
|
|
int ispcrel;
|
|
|
|
|
expressionS * ep;
|
|
|
|
|
{
|
|
|
|
|
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 *
|
|
|
|
|
parse_imm (s, val, min, max)
|
|
|
|
|
char * s;
|
|
|
|
|
unsigned * val;
|
|
|
|
|
unsigned min;
|
|
|
|
|
unsigned max;
|
|
|
|
|
{
|
|
|
|
|
char * new;
|
|
|
|
|
expressionS e;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
new = 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"));
|
|
|
|
|
else if (e.X_add_number < min || e.X_add_number > max)
|
|
|
|
|
as_bad (_("operand must be absolute in range %d..%d, not %d"),
|
|
|
|
|
min, max, e.X_add_number);
|
|
|
|
|
|
|
|
|
|
* val = e.X_add_number;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return new;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
parse_mem (s, reg, off, siz)
|
|
|
|
|
char * s;
|
|
|
|
|
unsigned * reg;
|
|
|
|
|
unsigned * off;
|
|
|
|
|
unsigned siz;
|
|
|
|
|
{
|
|
|
|
|
char * new;
|
|
|
|
|
|
|
|
|
|
* off = 0;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
while (isspace (* s))
|
|
|
|
|
++ 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);
|
|
|
|
|
|
|
|
|
|
while (isspace (* s))
|
|
|
|
|
++ 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
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
while (isspace (* s))
|
|
|
|
|
++ 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
|
|
|
|
|
md_assemble (str)
|
|
|
|
|
char * str;
|
|
|
|
|
{
|
|
|
|
|
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;
|
|
|
|
|
char name[20];
|
|
|
|
|
|
|
|
|
|
/* Drop leading whitespace. */
|
|
|
|
|
while (isspace (* str))
|
|
|
|
|
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,
|
2000-09-20 23:12:43 +02: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)
|
|
|
|
|
{
|
|
|
|
|
/* 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;
|
|
|
|
|
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
|
|
|
|
|
|
|
|
|
output = frag_more (2); /* 2nd emitted in fallthru */
|
|
|
|
|
}
|
|
|
|
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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;
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
/* drop 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case X1: /* Handle both syntax-> xtrb- r1,rx OR xtrb- rx */
|
|
|
|
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ op_end;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (* op_end == ',') /* xtrb- r1,rx */
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case O1R1: /* div- rx,r1 */
|
|
|
|
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OB2: /* like OB, but arg is 2^n instead of n */
|
|
|
|
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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)
|
|
|
|
|
reg = log2 (reg);
|
|
|
|
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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);
|
|
|
|
|
/* immediate values of 0 -> 6 translate to movi */
|
|
|
|
|
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
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case OBR2: /* like OBR, but arg is 2^n instead of n */
|
|
|
|
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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)
|
|
|
|
|
reg = log2 (reg);
|
|
|
|
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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;
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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);
|
|
|
|
|
op_end = input_line_pointer;
|
|
|
|
|
}
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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;
|
|
|
|
|
|
|
|
|
|
case RSI: /* SI, but imm becomes 32-imm */
|
|
|
|
|
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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
++ 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. */
|
|
|
|
|
while (isspace (* op_end))
|
|
|
|
|
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
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
check_literals (opcode->transfer, isize);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
symbolS *
|
|
|
|
|
md_undefined_symbol (name)
|
|
|
|
|
char * name;
|
|
|
|
|
{
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_mcore_end ()
|
|
|
|
|
{
|
|
|
|
|
dump_literals (0);
|
|
|
|
|
subseg_set (text_section, 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Various routines to kill one day. */
|
|
|
|
|
/* Equal to MAX_PRECISION in atof-ieee.c */
|
|
|
|
|
#define MAX_LITTLENUMS 6
|
|
|
|
|
|
|
|
|
|
/* Turn a string in input_line_pointer into a floating point constant of type
|
|
|
|
|
type, and store the appropriate bytes in *litP. The number of LITTLENUMS
|
|
|
|
|
emitted is stored in *sizeP. An error message is returned, or NULL on OK.*/
|
|
|
|
|
char *
|
|
|
|
|
md_atof (type, litP, sizeP)
|
|
|
|
|
int type;
|
|
|
|
|
char * litP;
|
|
|
|
|
int * sizeP;
|
|
|
|
|
{
|
|
|
|
|
int prec;
|
|
|
|
|
LITTLENUM_TYPE words[MAX_LITTLENUMS];
|
1999-05-22 16:49:51 +02:00
|
|
|
|
int i;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
char * t;
|
|
|
|
|
char * atof_ieee ();
|
|
|
|
|
|
|
|
|
|
switch (type)
|
|
|
|
|
{
|
|
|
|
|
case 'f':
|
|
|
|
|
case 'F':
|
|
|
|
|
case 's':
|
|
|
|
|
case 'S':
|
|
|
|
|
prec = 2;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'd':
|
|
|
|
|
case 'D':
|
|
|
|
|
case 'r':
|
|
|
|
|
case 'R':
|
|
|
|
|
prec = 4;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'x':
|
|
|
|
|
case 'X':
|
|
|
|
|
prec = 6;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'p':
|
|
|
|
|
case 'P':
|
|
|
|
|
prec = 6;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
*sizeP = 0;
|
|
|
|
|
return _("Bad call to MD_NTOF()");
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
t = atof_ieee (input_line_pointer, type, words);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (t)
|
|
|
|
|
input_line_pointer = t;
|
|
|
|
|
|
|
|
|
|
*sizeP = prec * sizeof (LITTLENUM_TYPE);
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
for (i = prec - 1; i >= 0; i--)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (litP, (valueT) words[i],
|
|
|
|
|
sizeof (LITTLENUM_TYPE));
|
|
|
|
|
litP += sizeof (LITTLENUM_TYPE);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
for (i = 0; i < prec; i++)
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (litP, (valueT) words[i],
|
|
|
|
|
sizeof (LITTLENUM_TYPE));
|
|
|
|
|
litP += sizeof (LITTLENUM_TYPE);
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
CONST char * md_shortopts = "";
|
|
|
|
|
|
1999-05-22 16:49:51 +02:00
|
|
|
|
#define OPTION_JSRI2BSR_ON (OPTION_MD_BASE + 0)
|
|
|
|
|
#define OPTION_JSRI2BSR_OFF (OPTION_MD_BASE + 1)
|
|
|
|
|
#define OPTION_SIFILTER_ON (OPTION_MD_BASE + 2)
|
|
|
|
|
#define OPTION_SIFILTER_OFF (OPTION_MD_BASE + 3)
|
2000-02-10 22:31:13 +01:00
|
|
|
|
#define OPTION_CPU (OPTION_MD_BASE + 4)
|
|
|
|
|
#define OPTION_EB (OPTION_MD_BASE + 5)
|
|
|
|
|
#define OPTION_EL (OPTION_MD_BASE + 6)
|
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
|
|
|
|
|
md_parse_option (c, arg)
|
|
|
|
|
int c;
|
|
|
|
|
char * arg;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
char * p;
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
as_warn (_("unrecognised cpu type '%s'"), arg);
|
|
|
|
|
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
|
|
|
|
|
md_show_usage (stream)
|
|
|
|
|
FILE * stream;
|
|
|
|
|
{
|
|
|
|
|
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
|
|
|
|
|
md_create_short_jump (ptr, from_Nddr, to_Nddr, frag, to_symbol)
|
|
|
|
|
char * ptr;
|
|
|
|
|
addressT from_Nddr;
|
|
|
|
|
addressT to_Nddr;
|
|
|
|
|
fragS * frag;
|
|
|
|
|
symbolS * to_symbol;
|
|
|
|
|
{
|
|
|
|
|
as_fatal (_("failed sanity check: short_jump"));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_create_long_jump (ptr, from_Nddr, to_Nddr, frag, to_symbol)
|
|
|
|
|
char * ptr;
|
|
|
|
|
addressT from_Nddr;
|
|
|
|
|
addressT to_Nddr;
|
|
|
|
|
fragS * frag;
|
|
|
|
|
symbolS * to_symbol;
|
|
|
|
|
{
|
|
|
|
|
as_fatal (_("failed sanity check: long_jump"));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called after relaxing, change the frags so they know how big they are. */
|
|
|
|
|
void
|
|
|
|
|
md_convert_frag (abfd, sec, fragP)
|
|
|
|
|
bfd * abfd;
|
|
|
|
|
segT sec;
|
|
|
|
|
register fragS * fragP;
|
|
|
|
|
{
|
|
|
|
|
unsigned char * buffer;
|
|
|
|
|
int targ_addr = S_GET_VALUE (fragP->fr_symbol) + fragP->fr_offset;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer = (unsigned char *) (fragP->fr_fix + fragP->fr_literal);
|
1999-06-22 16:53:01 +02:00
|
|
|
|
targ_addr += symbol_get_frag (fragP->fr_symbol)->fr_address;
|
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;
|
|
|
|
|
fragP->fr_var = 0;
|
|
|
|
|
}
|
|
|
|
|
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):
|
|
|
|
|
{
|
|
|
|
|
/* A conditional branch wont fit into 12 bits so:
|
|
|
|
|
* b!cond 1f
|
|
|
|
|
* jmpi 0f
|
|
|
|
|
* .align 2
|
|
|
|
|
* 0: .long disp
|
|
|
|
|
* 1:
|
|
|
|
|
*
|
|
|
|
|
* if the b!cond is 4 byte aligned, the literal which would
|
|
|
|
|
* go at x+4 will also be aligned.
|
|
|
|
|
*/
|
|
|
|
|
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
|
1999-05-22 16:49:51 +02:00
|
|
|
|
buffer[0] ^= 0x08; /* Toggle T/F bit */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
buffer[2] = INST_BYTE0 (MCORE_INST_JMPI); /* Build jmpi */
|
|
|
|
|
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)
|
|
|
|
|
{
|
|
|
|
|
buffer[0] = 4; /* branch over jmpi, pad, and ptr */
|
|
|
|
|
buffer[2] = 1; /* jmpi offset of 1 gets the pointer */
|
|
|
|
|
}
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
{
|
|
|
|
|
buffer[1] = 4; /* branch over jmpi, pad, and ptr */
|
|
|
|
|
buffer[3] = 1; /* jmpi offset of 1 gets the pointer */
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[4] = 0; /* alignment/pad */
|
|
|
|
|
buffer[5] = 0;
|
|
|
|
|
buffer[6] = 0; /* space for 32 bit address */
|
|
|
|
|
buffer[7] = 0;
|
|
|
|
|
buffer[8] = 0;
|
|
|
|
|
buffer[9] = 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 + 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)
|
|
|
|
|
{
|
|
|
|
|
buffer[0] = 3; /* branch over jmpi, and ptr */
|
|
|
|
|
buffer[2] = 0; /* jmpi offset of 0 gets the pointer */
|
|
|
|
|
}
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
{
|
|
|
|
|
buffer[1] = 3; /* branch over jmpi, and ptr */
|
|
|
|
|
buffer[3] = 0; /* jmpi offset of 0 gets the pointer */
|
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[4] = 0; /* space for 32 bit address */
|
|
|
|
|
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)
|
|
|
|
|
buffer[0] = 4; /* jmpi, ptr, and the 'tail pad' */
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
buffer[1] = 4; /* jmpi, ptr, and the 'tail pad' */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fragP->fr_var = 0;
|
|
|
|
|
}
|
|
|
|
|
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.
|
|
|
|
|
[because the natural literal place is x + 2] */
|
|
|
|
|
int first_inst = fragP->fr_fix + fragP->fr_address;
|
|
|
|
|
int needpad = !(first_inst & 3);
|
|
|
|
|
|
|
|
|
|
buffer[0] = INST_BYTE0 (MCORE_INST_JMPI); /* Build jmpi */
|
|
|
|
|
buffer[1] = INST_BYTE1 (MCORE_INST_JMPI);
|
|
|
|
|
|
|
|
|
|
if (needpad)
|
|
|
|
|
{
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
buffer[0] = 1; /* jmpi offset of 1 since padded */
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
buffer[1] = 1; /* jmpi offset of 1 since padded */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[2] = 0; /* alignment */
|
|
|
|
|
buffer[3] = 0;
|
|
|
|
|
buffer[4] = 0; /* space for 32 bit address */
|
|
|
|
|
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)
|
|
|
|
|
buffer[0] = 0; /* jmpi offset of 0 if no pad */
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
buffer[1] = 0; /* jmpi offset of 0 if no pad */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
buffer[2] = 0; /* space for 32 bit address */
|
|
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fragP->fr_var = 0;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Applies the desired value to the specified location.
|
|
|
|
|
Also sets up addends for 'rela' type relocations. */
|
|
|
|
|
int
|
|
|
|
|
md_apply_fix3 (fixP, valp, segment)
|
|
|
|
|
fixS * fixP;
|
|
|
|
|
valueT * valp;
|
|
|
|
|
segT segment;
|
|
|
|
|
{
|
|
|
|
|
char * buf = fixP->fx_where + fixP->fx_frag->fr_literal;
|
|
|
|
|
char * file = fixP->fx_file ? fixP->fx_file : _("unknown");
|
|
|
|
|
const char * symname;
|
|
|
|
|
/* Note: use offsetT because it is signed, valueT is unsigned. */
|
2000-09-20 23:12:43 +02:00
|
|
|
|
offsetT val = (offsetT) * valp;
|
|
|
|
|
|
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;
|
|
|
|
|
|
|
|
|
|
/* If the fix is relative to a symbol which is not defined, or not
|
|
|
|
|
in the same segment as the fix, we cannot resolve it here. */
|
|
|
|
|
if (fixP->fx_addsy != NULL
|
|
|
|
|
&& ( ! S_IS_DEFINED (fixP->fx_addsy)
|
|
|
|
|
|| (S_GET_SEGMENT (fixP->fx_addsy) != segment)))
|
|
|
|
|
{
|
|
|
|
|
fixP->fx_done = 0;
|
|
|
|
|
#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. */
|
|
|
|
|
return 0;
|
|
|
|
|
#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)
|
|
|
|
|
{
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM11BY2: /* second byte of 2 byte opcode */
|
|
|
|
|
if ((val & 1) != 0)
|
|
|
|
|
as_bad_where (file, fixP->fx_line,
|
|
|
|
|
_("odd distance branch (0x%x bytes)"), val);
|
|
|
|
|
val /= 2;
|
|
|
|
|
if (((val & ~0x3ff) != 0) && ((val | 0x3ff) != -1))
|
|
|
|
|
as_bad_where (file, fixP->fx_line,
|
|
|
|
|
_("pcrel for branch to %s too far (0x%x)"),
|
|
|
|
|
symname, 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
|
|
|
|
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM8BY4: /* lower 8 bits of 2 byte opcode */
|
|
|
|
|
val += 3;
|
|
|
|
|
val /= 4;
|
|
|
|
|
if (val & ~0xff)
|
|
|
|
|
as_bad_where (file, fixP->fx_line,
|
|
|
|
|
_("pcrel for lrw/jmpi/jsri to %s too far (0x%x)"),
|
|
|
|
|
symname, 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
|
|
|
|
|
|
|
|
|
case BFD_RELOC_MCORE_PCREL_IMM4BY2: /* loopt instruction */
|
|
|
|
|
if ((val < -32) || (val > -2))
|
|
|
|
|
as_bad_where (file, fixP->fx_line,
|
|
|
|
|
_("pcrel for loopt too far (0x%x)"), val);
|
|
|
|
|
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. */
|
2000-09-20 23:12:43 +02:00
|
|
|
|
/* If its a local target and close enough, fix it.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
NB: >= -2k for backwards bsr; < 2k for forwards... */
|
|
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0; /* Return value is ignored. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
md_operand (expressionP)
|
|
|
|
|
expressionS * expressionP;
|
|
|
|
|
{
|
|
|
|
|
/* Ignore leading hash symbol, if poresent. */
|
|
|
|
|
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
|
|
|
|
|
md_estimate_size_before_relax (fragP, segment_type)
|
|
|
|
|
register fragS * fragP;
|
|
|
|
|
register segT segment_type;
|
|
|
|
|
{
|
|
|
|
|
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)
|
|
|
|
|
{
|
2001-03-30 02:06:10 +02:00
|
|
|
|
fragP->fr_subtype = C (UNCD_JUMP, DISP12);
|
|
|
|
|
fragP->fr_var = md_relax_table[C (UNCD_JUMP, DISP12)].rlx_length;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (S_GET_SEGMENT (fragP->fr_symbol) == segment_type)
|
|
|
|
|
{
|
2001-03-30 02:06:10 +02:00
|
|
|
|
fragP->fr_subtype = C (UNCD_JUMP, DISP12);
|
|
|
|
|
fragP->fr_var = md_relax_table[C (UNCD_JUMP, DISP12)].rlx_length;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fragP->fr_subtype = C (UNCD_JUMP, UNDEF_WORD_DISP);
|
2001-03-30 02:06:10 +02:00
|
|
|
|
fragP->fr_var = md_relax_table[C (UNCD_JUMP, DISP32)].rlx_length;
|
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)
|
|
|
|
|
{
|
|
|
|
|
/* Got a symbol and it's defined in this segment, become byte
|
|
|
|
|
sized - maybe it will fix up */
|
2001-03-30 02:06:10 +02:00
|
|
|
|
fragP->fr_subtype = C (COND_JUMP, DISP12);
|
|
|
|
|
fragP->fr_var = md_relax_table[C (COND_JUMP, DISP12)].rlx_length;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else if (fragP->fr_symbol)
|
|
|
|
|
{
|
|
|
|
|
/* Its got a segment, but its not ours, so it will always be long. */
|
|
|
|
|
fragP->fr_subtype = C (COND_JUMP, UNDEF_WORD_DISP);
|
2001-03-30 02:06:10 +02:00
|
|
|
|
fragP->fr_var = md_relax_table[C (COND_JUMP, DISP32)].rlx_length;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* We know the abs value. */
|
2001-03-30 02:06:10 +02:00
|
|
|
|
fragP->fr_subtype = C (COND_JUMP, DISP12);
|
|
|
|
|
fragP->fr_var = md_relax_table[C (COND_JUMP, DISP12)].rlx_length;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
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):
|
|
|
|
|
case C (UNCD_JUMP, UNDEF_WORD_DISP):
|
|
|
|
|
case C (COND_JUMP, DISP12):
|
|
|
|
|
case C (COND_JUMP, UNDEF_WORD_DISP):
|
|
|
|
|
/* When relaxing a section for the second time, we don't need to
|
|
|
|
|
do anything. */
|
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
|
|
|
|
return fragP->fr_var;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-02 12:39:18 +02:00
|
|
|
|
/* Put number into target byte order. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
void
|
|
|
|
|
md_number_to_chars (ptr, use, nbytes)
|
|
|
|
|
char * ptr;
|
|
|
|
|
valueT use;
|
|
|
|
|
int nbytes;
|
|
|
|
|
{
|
2000-02-10 22:31:13 +01:00
|
|
|
|
if (! target_big_endian)
|
|
|
|
|
switch (nbytes)
|
|
|
|
|
{
|
|
|
|
|
case 4: ptr[3] = (use >> 24) & 0xff; /* fall through */
|
|
|
|
|
case 3: ptr[2] = (use >> 16) & 0xff; /* fall through */
|
|
|
|
|
case 2: ptr[1] = (use >> 8) & 0xff; /* fall through */
|
|
|
|
|
case 1: ptr[0] = (use >> 0) & 0xff; break;
|
|
|
|
|
default: abort ();
|
|
|
|
|
}
|
|
|
|
|
else
|
1999-05-22 16:49:51 +02:00
|
|
|
|
switch (nbytes)
|
|
|
|
|
{
|
|
|
|
|
case 4: *ptr++ = (use >> 24) & 0xff; /* fall through */
|
|
|
|
|
case 3: *ptr++ = (use >> 16) & 0xff; /* fall through */
|
|
|
|
|
case 2: *ptr++ = (use >> 8) & 0xff; /* fall through */
|
|
|
|
|
case 1: *ptr++ = (use >> 0) & 0xff; break;
|
|
|
|
|
default: abort ();
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Round up a section size to the appropriate boundary. */
|
|
|
|
|
valueT
|
|
|
|
|
md_section_align (segment, size)
|
|
|
|
|
segT segment;
|
|
|
|
|
valueT size;
|
|
|
|
|
{
|
|
|
|
|
return size; /* Byte alignment is fine */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The location from which a PC relative jump should be calculated,
|
|
|
|
|
given a PC relative reloc. */
|
|
|
|
|
long
|
|
|
|
|
md_pcrel_from_section (fixp, sec)
|
|
|
|
|
fixS * fixp;
|
|
|
|
|
segT sec;
|
|
|
|
|
{
|
|
|
|
|
#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
|
|
|
|
{
|
|
|
|
|
assert (fixp->fx_size == 2); /* must be an insn */
|
|
|
|
|
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 *
|
|
|
|
|
tc_gen_reloc (section, fixp)
|
|
|
|
|
asection * section;
|
|
|
|
|
fixS * fixp;
|
|
|
|
|
{
|
|
|
|
|
arelent * rel;
|
|
|
|
|
bfd_reloc_code_real_type code;
|
|
|
|
|
int handled = 0;
|
|
|
|
|
|
|
|
|
|
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))
|
|
|
|
|
{
|
|
|
|
|
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:
|
|
|
|
|
code = fixp->fx_r_type;
|
|
|
|
|
as_bad (_("Can not do %d byte %srelocation"),
|
|
|
|
|
fixp->fx_size,
|
|
|
|
|
fixp->fx_pcrel ? _("pc-relative") : "");
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
rel = (arelent *) xmalloc (sizeof (arelent));
|
1999-06-22 16:07:40 +02:00
|
|
|
|
rel->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
|
|
|
|
|
*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,
|
|
|
|
|
_("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);
|
|
|
|
|
assert (rel->howto != NULL);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
mcore_force_relocation (fix)
|
|
|
|
|
fixS * fix;
|
|
|
|
|
{
|
|
|
|
|
if ( fix->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
1999-11-18 19:38:18 +01:00
|
|
|
|
|| fix->fx_r_type == BFD_RELOC_VTABLE_ENTRY
|
2000-01-31 19:24:43 +01:00
|
|
|
|
|| fix->fx_r_type == BFD_RELOC_RVA)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return true if the fix can be handled by GAS, false if it must
|
|
|
|
|
be passed through to the linker. */
|
|
|
|
|
boolean
|
|
|
|
|
mcore_fix_adjustable (fixP)
|
|
|
|
|
fixS * fixP;
|
|
|
|
|
{
|
|
|
|
|
if (fixP->fx_addsy == NULL)
|
|
|
|
|
return 1;
|
2000-09-20 23:12:43 +02:00
|
|
|
|
|
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 */
|