/* Opcode table for the ARC.
|
/* Opcode table for the ARC.
|
Copyright (c) 1994, 1995, 1997, 1998 Free Software Foundation, Inc.
|
Copyright (c) 1994, 1995, 1997, 1998 Free Software Foundation, Inc.
|
Contributed by Doug Evans (dje@cygnus.com).
|
Contributed by Doug Evans (dje@cygnus.com).
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 2, or (at your option)
|
the Free Software Foundation; either version 2, or (at your option)
|
any later version.
|
any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
|
|
#include <stdio.h>
|
#include <stdio.h>
|
#include "ansidecl.h"
|
#include "ansidecl.h"
|
#include "opcode/arc.h"
|
#include "opcode/arc.h"
|
#include "opintl.h"
|
#include "opintl.h"
|
|
|
#ifndef NULL
|
#ifndef NULL
|
#define NULL 0
|
#define NULL 0
|
#endif
|
#endif
|
|
|
#define INSERT_FN(fn) \
|
#define INSERT_FN(fn) \
|
static arc_insn fn PARAMS ((arc_insn, const struct arc_operand *, \
|
static arc_insn fn PARAMS ((arc_insn, const struct arc_operand *, \
|
int, const struct arc_operand_value *, long, \
|
int, const struct arc_operand_value *, long, \
|
const char **))
|
const char **))
|
#define EXTRACT_FN(fn) \
|
#define EXTRACT_FN(fn) \
|
static long fn PARAMS ((arc_insn *, const struct arc_operand *, \
|
static long fn PARAMS ((arc_insn *, const struct arc_operand *, \
|
int, const struct arc_operand_value **, int *))
|
int, const struct arc_operand_value **, int *))
|
|
|
INSERT_FN (insert_reg);
|
INSERT_FN (insert_reg);
|
INSERT_FN (insert_shimmfinish);
|
INSERT_FN (insert_shimmfinish);
|
INSERT_FN (insert_limmfinish);
|
INSERT_FN (insert_limmfinish);
|
INSERT_FN (insert_shimmoffset);
|
INSERT_FN (insert_shimmoffset);
|
INSERT_FN (insert_shimmzero);
|
INSERT_FN (insert_shimmzero);
|
INSERT_FN (insert_flag);
|
INSERT_FN (insert_flag);
|
INSERT_FN (insert_flagfinish);
|
INSERT_FN (insert_flagfinish);
|
INSERT_FN (insert_cond);
|
INSERT_FN (insert_cond);
|
INSERT_FN (insert_forcelimm);
|
INSERT_FN (insert_forcelimm);
|
INSERT_FN (insert_reladdr);
|
INSERT_FN (insert_reladdr);
|
INSERT_FN (insert_absaddr);
|
INSERT_FN (insert_absaddr);
|
INSERT_FN (insert_unopmacro);
|
INSERT_FN (insert_unopmacro);
|
|
|
EXTRACT_FN (extract_reg);
|
EXTRACT_FN (extract_reg);
|
EXTRACT_FN (extract_flag);
|
EXTRACT_FN (extract_flag);
|
EXTRACT_FN (extract_cond);
|
EXTRACT_FN (extract_cond);
|
EXTRACT_FN (extract_reladdr);
|
EXTRACT_FN (extract_reladdr);
|
EXTRACT_FN (extract_unopmacro);
|
EXTRACT_FN (extract_unopmacro);
|
|
|
/* Various types of ARC operands, including insn suffixes. */
|
/* Various types of ARC operands, including insn suffixes. */
|
|
|
/* Insn format values:
|
/* Insn format values:
|
|
|
'a' REGA register A field
|
'a' REGA register A field
|
'b' REGB register B field
|
'b' REGB register B field
|
'c' REGC register C field
|
'c' REGC register C field
|
'S' SHIMMFINISH finish inserting a shimm value
|
'S' SHIMMFINISH finish inserting a shimm value
|
'L' LIMMFINISH finish inserting a limm value
|
'L' LIMMFINISH finish inserting a limm value
|
'd' SHIMMOFFSET shimm offset in ld,st insns
|
'd' SHIMMOFFSET shimm offset in ld,st insns
|
'0' SHIMMZERO 0 shimm value in ld,st insns
|
'0' SHIMMZERO 0 shimm value in ld,st insns
|
'f' FLAG F flag
|
'f' FLAG F flag
|
'F' FLAGFINISH finish inserting the F flag
|
'F' FLAGFINISH finish inserting the F flag
|
'G' FLAGINSN insert F flag in "flag" insn
|
'G' FLAGINSN insert F flag in "flag" insn
|
'n' DELAY N field (nullify field)
|
'n' DELAY N field (nullify field)
|
'q' COND condition code field
|
'q' COND condition code field
|
'Q' FORCELIMM set `cond_p' to 1 to ensure a constant is a limm
|
'Q' FORCELIMM set `cond_p' to 1 to ensure a constant is a limm
|
'B' BRANCH branch address (22 bit pc relative)
|
'B' BRANCH branch address (22 bit pc relative)
|
'J' JUMP jump address (26 bit absolute)
|
'J' JUMP jump address (26 bit absolute)
|
'z' SIZE1 size field in ld a,[b,c]
|
'z' SIZE1 size field in ld a,[b,c]
|
'Z' SIZE10 size field in ld a,[b,shimm]
|
'Z' SIZE10 size field in ld a,[b,shimm]
|
'y' SIZE22 size field in st c,[b,shimm]
|
'y' SIZE22 size field in st c,[b,shimm]
|
'x' SIGN0 sign extend field ld a,[b,c]
|
'x' SIGN0 sign extend field ld a,[b,c]
|
'X' SIGN9 sign extend field ld a,[b,shimm]
|
'X' SIGN9 sign extend field ld a,[b,shimm]
|
'w' ADDRESS3 write-back field in ld a,[b,c]
|
'w' ADDRESS3 write-back field in ld a,[b,c]
|
'W' ADDRESS12 write-back field in ld a,[b,shimm]
|
'W' ADDRESS12 write-back field in ld a,[b,shimm]
|
'v' ADDRESS24 write-back field in st c,[b,shimm]
|
'v' ADDRESS24 write-back field in st c,[b,shimm]
|
'e' CACHEBYPASS5 cache bypass in ld a,[b,c]
|
'e' CACHEBYPASS5 cache bypass in ld a,[b,c]
|
'E' CACHEBYPASS14 cache bypass in ld a,[b,shimm]
|
'E' CACHEBYPASS14 cache bypass in ld a,[b,shimm]
|
'D' CACHEBYPASS26 cache bypass in st c,[b,shimm]
|
'D' CACHEBYPASS26 cache bypass in st c,[b,shimm]
|
'U' UNOPMACRO fake operand to copy REGB to REGC for unop macros
|
'U' UNOPMACRO fake operand to copy REGB to REGC for unop macros
|
|
|
The following modifiers may appear between the % and char (eg: %.f):
|
The following modifiers may appear between the % and char (eg: %.f):
|
|
|
'.' MODDOT '.' prefix must be present
|
'.' MODDOT '.' prefix must be present
|
'r' REG generic register value, for register table
|
'r' REG generic register value, for register table
|
'A' AUXREG auxiliary register in lr a,[b], sr c,[b]
|
'A' AUXREG auxiliary register in lr a,[b], sr c,[b]
|
|
|
Fields are:
|
Fields are:
|
|
|
CHAR BITS SHIFT FLAGS INSERT_FN EXTRACT_FN
|
CHAR BITS SHIFT FLAGS INSERT_FN EXTRACT_FN
|
*/
|
*/
|
|
|
const struct arc_operand arc_operands[] =
|
const struct arc_operand arc_operands[] =
|
{
|
{
|
/* place holder (??? not sure if needed) */
|
/* place holder (??? not sure if needed) */
|
#define UNUSED 0
|
#define UNUSED 0
|
{ 0 },
|
{ 0 },
|
|
|
/* register A or shimm/limm indicator */
|
/* register A or shimm/limm indicator */
|
#define REGA (UNUSED + 1)
|
#define REGA (UNUSED + 1)
|
{ 'a', 6, ARC_SHIFT_REGA, ARC_OPERAND_SIGNED, insert_reg, extract_reg },
|
{ 'a', 6, ARC_SHIFT_REGA, ARC_OPERAND_SIGNED, insert_reg, extract_reg },
|
|
|
/* register B or shimm/limm indicator */
|
/* register B or shimm/limm indicator */
|
#define REGB (REGA + 1)
|
#define REGB (REGA + 1)
|
{ 'b', 6, ARC_SHIFT_REGB, ARC_OPERAND_SIGNED, insert_reg, extract_reg },
|
{ 'b', 6, ARC_SHIFT_REGB, ARC_OPERAND_SIGNED, insert_reg, extract_reg },
|
|
|
/* register C or shimm/limm indicator */
|
/* register C or shimm/limm indicator */
|
#define REGC (REGB + 1)
|
#define REGC (REGB + 1)
|
{ 'c', 6, ARC_SHIFT_REGC, ARC_OPERAND_SIGNED, insert_reg, extract_reg },
|
{ 'c', 6, ARC_SHIFT_REGC, ARC_OPERAND_SIGNED, insert_reg, extract_reg },
|
|
|
/* fake operand used to insert shimm value into most instructions */
|
/* fake operand used to insert shimm value into most instructions */
|
#define SHIMMFINISH (REGC + 1)
|
#define SHIMMFINISH (REGC + 1)
|
{ 'S', 9, 0, ARC_OPERAND_SIGNED + ARC_OPERAND_FAKE, insert_shimmfinish, 0 },
|
{ 'S', 9, 0, ARC_OPERAND_SIGNED + ARC_OPERAND_FAKE, insert_shimmfinish, 0 },
|
|
|
/* fake operand used to insert limm value into most instructions. */
|
/* fake operand used to insert limm value into most instructions. */
|
#define LIMMFINISH (SHIMMFINISH + 1)
|
#define LIMMFINISH (SHIMMFINISH + 1)
|
{ 'L', 32, 32, ARC_OPERAND_ADDRESS + ARC_OPERAND_LIMM + ARC_OPERAND_FAKE, insert_limmfinish, 0 },
|
{ 'L', 32, 32, ARC_OPERAND_ADDRESS + ARC_OPERAND_LIMM + ARC_OPERAND_FAKE, insert_limmfinish, 0 },
|
|
|
/* shimm operand when there is no reg indicator (ld,st) */
|
/* shimm operand when there is no reg indicator (ld,st) */
|
#define SHIMMOFFSET (LIMMFINISH + 1)
|
#define SHIMMOFFSET (LIMMFINISH + 1)
|
{ 'd', 9, 0, ARC_OPERAND_SIGNED, insert_shimmoffset, 0 },
|
{ 'd', 9, 0, ARC_OPERAND_SIGNED, insert_shimmoffset, 0 },
|
|
|
/* 0 shimm operand for ld,st insns */
|
/* 0 shimm operand for ld,st insns */
|
#define SHIMMZERO (SHIMMOFFSET + 1)
|
#define SHIMMZERO (SHIMMOFFSET + 1)
|
{ '0', 9, 0, ARC_OPERAND_FAKE, insert_shimmzero, 0 },
|
{ '0', 9, 0, ARC_OPERAND_FAKE, insert_shimmzero, 0 },
|
|
|
/* flag update bit (insertion is defered until we know how) */
|
/* flag update bit (insertion is defered until we know how) */
|
#define FLAG (SHIMMZERO + 1)
|
#define FLAG (SHIMMZERO + 1)
|
{ 'f', 1, 8, ARC_OPERAND_SUFFIX, insert_flag, extract_flag },
|
{ 'f', 1, 8, ARC_OPERAND_SUFFIX, insert_flag, extract_flag },
|
|
|
/* fake utility operand to finish 'f' suffix handling */
|
/* fake utility operand to finish 'f' suffix handling */
|
#define FLAGFINISH (FLAG + 1)
|
#define FLAGFINISH (FLAG + 1)
|
{ 'F', 1, 8, ARC_OPERAND_FAKE, insert_flagfinish, 0 },
|
{ 'F', 1, 8, ARC_OPERAND_FAKE, insert_flagfinish, 0 },
|
|
|
/* fake utility operand to set the 'f' flag for the "flag" insn */
|
/* fake utility operand to set the 'f' flag for the "flag" insn */
|
#define FLAGINSN (FLAGFINISH + 1)
|
#define FLAGINSN (FLAGFINISH + 1)
|
{ 'G', 1, 8, ARC_OPERAND_FAKE, insert_flag, 0 },
|
{ 'G', 1, 8, ARC_OPERAND_FAKE, insert_flag, 0 },
|
|
|
/* branch delay types */
|
/* branch delay types */
|
#define DELAY (FLAGINSN + 1)
|
#define DELAY (FLAGINSN + 1)
|
{ 'n', 2, 5, ARC_OPERAND_SUFFIX },
|
{ 'n', 2, 5, ARC_OPERAND_SUFFIX },
|
|
|
/* conditions */
|
/* conditions */
|
#define COND (DELAY + 1)
|
#define COND (DELAY + 1)
|
{ 'q', 5, 0, ARC_OPERAND_SUFFIX, insert_cond, extract_cond },
|
{ 'q', 5, 0, ARC_OPERAND_SUFFIX, insert_cond, extract_cond },
|
|
|
/* set `cond_p' to 1 to ensure a constant is treated as a limm */
|
/* set `cond_p' to 1 to ensure a constant is treated as a limm */
|
#define FORCELIMM (COND + 1)
|
#define FORCELIMM (COND + 1)
|
{ 'Q', 0, 0, ARC_OPERAND_FAKE, insert_forcelimm },
|
{ 'Q', 0, 0, ARC_OPERAND_FAKE, insert_forcelimm },
|
|
|
/* branch address; b, bl, and lp insns */
|
/* branch address; b, bl, and lp insns */
|
#define BRANCH (FORCELIMM + 1)
|
#define BRANCH (FORCELIMM + 1)
|
{ 'B', 20, 7, ARC_OPERAND_RELATIVE_BRANCH + ARC_OPERAND_SIGNED, insert_reladdr, extract_reladdr },
|
{ 'B', 20, 7, ARC_OPERAND_RELATIVE_BRANCH + ARC_OPERAND_SIGNED, insert_reladdr, extract_reladdr },
|
|
|
/* jump address; j insn (this is basically the same as 'L' except that the
|
/* jump address; j insn (this is basically the same as 'L' except that the
|
value is right shifted by 2) */
|
value is right shifted by 2) */
|
#define JUMP (BRANCH + 1)
|
#define JUMP (BRANCH + 1)
|
{ 'J', 24, 32, ARC_OPERAND_ABSOLUTE_BRANCH + ARC_OPERAND_LIMM + ARC_OPERAND_FAKE, insert_absaddr },
|
{ 'J', 24, 32, ARC_OPERAND_ABSOLUTE_BRANCH + ARC_OPERAND_LIMM + ARC_OPERAND_FAKE, insert_absaddr },
|
|
|
/* size field, stored in bit 1,2 */
|
/* size field, stored in bit 1,2 */
|
#define SIZE1 (JUMP + 1)
|
#define SIZE1 (JUMP + 1)
|
{ 'z', 2, 1, ARC_OPERAND_SUFFIX },
|
{ 'z', 2, 1, ARC_OPERAND_SUFFIX },
|
|
|
/* size field, stored in bit 10,11 */
|
/* size field, stored in bit 10,11 */
|
#define SIZE10 (SIZE1 + 1)
|
#define SIZE10 (SIZE1 + 1)
|
{ 'Z', 2, 10, ARC_OPERAND_SUFFIX, },
|
{ 'Z', 2, 10, ARC_OPERAND_SUFFIX, },
|
|
|
/* size field, stored in bit 22,23 */
|
/* size field, stored in bit 22,23 */
|
#define SIZE22 (SIZE10 + 1)
|
#define SIZE22 (SIZE10 + 1)
|
{ 'y', 2, 22, ARC_OPERAND_SUFFIX, },
|
{ 'y', 2, 22, ARC_OPERAND_SUFFIX, },
|
|
|
/* sign extend field, stored in bit 0 */
|
/* sign extend field, stored in bit 0 */
|
#define SIGN0 (SIZE22 + 1)
|
#define SIGN0 (SIZE22 + 1)
|
{ 'x', 1, 0, ARC_OPERAND_SUFFIX },
|
{ 'x', 1, 0, ARC_OPERAND_SUFFIX },
|
|
|
/* sign extend field, stored in bit 9 */
|
/* sign extend field, stored in bit 9 */
|
#define SIGN9 (SIGN0 + 1)
|
#define SIGN9 (SIGN0 + 1)
|
{ 'X', 1, 9, ARC_OPERAND_SUFFIX },
|
{ 'X', 1, 9, ARC_OPERAND_SUFFIX },
|
|
|
/* address write back, stored in bit 3 */
|
/* address write back, stored in bit 3 */
|
#define ADDRESS3 (SIGN9 + 1)
|
#define ADDRESS3 (SIGN9 + 1)
|
{ 'w', 1, 3, ARC_OPERAND_SUFFIX },
|
{ 'w', 1, 3, ARC_OPERAND_SUFFIX },
|
|
|
/* address write back, stored in bit 12 */
|
/* address write back, stored in bit 12 */
|
#define ADDRESS12 (ADDRESS3 + 1)
|
#define ADDRESS12 (ADDRESS3 + 1)
|
{ 'W', 1, 12, ARC_OPERAND_SUFFIX },
|
{ 'W', 1, 12, ARC_OPERAND_SUFFIX },
|
|
|
/* address write back, stored in bit 24 */
|
/* address write back, stored in bit 24 */
|
#define ADDRESS24 (ADDRESS12 + 1)
|
#define ADDRESS24 (ADDRESS12 + 1)
|
{ 'v', 1, 24, ARC_OPERAND_SUFFIX },
|
{ 'v', 1, 24, ARC_OPERAND_SUFFIX },
|
|
|
/* cache bypass, stored in bit 5 */
|
/* cache bypass, stored in bit 5 */
|
#define CACHEBYPASS5 (ADDRESS24 + 1)
|
#define CACHEBYPASS5 (ADDRESS24 + 1)
|
{ 'e', 1, 5, ARC_OPERAND_SUFFIX },
|
{ 'e', 1, 5, ARC_OPERAND_SUFFIX },
|
|
|
/* cache bypass, stored in bit 14 */
|
/* cache bypass, stored in bit 14 */
|
#define CACHEBYPASS14 (CACHEBYPASS5 + 1)
|
#define CACHEBYPASS14 (CACHEBYPASS5 + 1)
|
{ 'E', 1, 14, ARC_OPERAND_SUFFIX },
|
{ 'E', 1, 14, ARC_OPERAND_SUFFIX },
|
|
|
/* cache bypass, stored in bit 26 */
|
/* cache bypass, stored in bit 26 */
|
#define CACHEBYPASS26 (CACHEBYPASS14 + 1)
|
#define CACHEBYPASS26 (CACHEBYPASS14 + 1)
|
{ 'D', 1, 26, ARC_OPERAND_SUFFIX },
|
{ 'D', 1, 26, ARC_OPERAND_SUFFIX },
|
|
|
/* unop macro, used to copy REGB to REGC */
|
/* unop macro, used to copy REGB to REGC */
|
#define UNOPMACRO (CACHEBYPASS26 + 1)
|
#define UNOPMACRO (CACHEBYPASS26 + 1)
|
{ 'U', 6, ARC_SHIFT_REGC, ARC_OPERAND_FAKE, insert_unopmacro, extract_unopmacro },
|
{ 'U', 6, ARC_SHIFT_REGC, ARC_OPERAND_FAKE, insert_unopmacro, extract_unopmacro },
|
|
|
/* '.' modifier ('.' required). */
|
/* '.' modifier ('.' required). */
|
#define MODDOT (UNOPMACRO + 1)
|
#define MODDOT (UNOPMACRO + 1)
|
{ '.', 1, 0, ARC_MOD_DOT },
|
{ '.', 1, 0, ARC_MOD_DOT },
|
|
|
/* Dummy 'r' modifier for the register table.
|
/* Dummy 'r' modifier for the register table.
|
It's called a "dummy" because there's no point in inserting an 'r' into all
|
It's called a "dummy" because there's no point in inserting an 'r' into all
|
the %a/%b/%c occurrences in the insn table. */
|
the %a/%b/%c occurrences in the insn table. */
|
#define REG (MODDOT + 1)
|
#define REG (MODDOT + 1)
|
{ 'r', 6, 0, ARC_MOD_REG },
|
{ 'r', 6, 0, ARC_MOD_REG },
|
|
|
/* Known auxiliary register modifier (stored in shimm field). */
|
/* Known auxiliary register modifier (stored in shimm field). */
|
#define AUXREG (REG + 1)
|
#define AUXREG (REG + 1)
|
{ 'A', 9, 0, ARC_MOD_AUXREG },
|
{ 'A', 9, 0, ARC_MOD_AUXREG },
|
|
|
/* end of list place holder */
|
/* end of list place holder */
|
{ 0 }
|
{ 0 }
|
};
|
};
|
|
|
/* Given a format letter, yields the index into `arc_operands'.
|
/* Given a format letter, yields the index into `arc_operands'.
|
eg: arc_operand_map['a'] = REGA. */
|
eg: arc_operand_map['a'] = REGA. */
|
unsigned char arc_operand_map[256];
|
unsigned char arc_operand_map[256];
|
|
|
#define I(x) (((x) & 31) << 27)
|
#define I(x) (((x) & 31) << 27)
|
#define A(x) (((x) & ARC_MASK_REG) << ARC_SHIFT_REGA)
|
#define A(x) (((x) & ARC_MASK_REG) << ARC_SHIFT_REGA)
|
#define B(x) (((x) & ARC_MASK_REG) << ARC_SHIFT_REGB)
|
#define B(x) (((x) & ARC_MASK_REG) << ARC_SHIFT_REGB)
|
#define C(x) (((x) & ARC_MASK_REG) << ARC_SHIFT_REGC)
|
#define C(x) (((x) & ARC_MASK_REG) << ARC_SHIFT_REGC)
|
#define R(x,b,m) (((x) & (m)) << (b)) /* value X, mask M, at bit B */
|
#define R(x,b,m) (((x) & (m)) << (b)) /* value X, mask M, at bit B */
|
|
|
/* ARC instructions.
|
/* ARC instructions.
|
|
|
Longer versions of insns must appear before shorter ones (if gas sees
|
Longer versions of insns must appear before shorter ones (if gas sees
|
"lsr r2,r3,1" when it's parsing "lsr %a,%b" it will think the ",1" is
|
"lsr r2,r3,1" when it's parsing "lsr %a,%b" it will think the ",1" is
|
junk). This isn't necessary for `ld' because of the trailing ']'.
|
junk). This isn't necessary for `ld' because of the trailing ']'.
|
|
|
Instructions that are really macros based on other insns must appear
|
Instructions that are really macros based on other insns must appear
|
before the real insn so they're chosen when disassembling. Eg: The `mov'
|
before the real insn so they're chosen when disassembling. Eg: The `mov'
|
insn is really the `and' insn.
|
insn is really the `and' insn.
|
|
|
This table is best viewed on a wide screen (161 columns). I'd prefer to
|
This table is best viewed on a wide screen (161 columns). I'd prefer to
|
keep it this way. The rest of the file, however, should be viewable on an
|
keep it this way. The rest of the file, however, should be viewable on an
|
80 column terminal. */
|
80 column terminal. */
|
|
|
/* ??? This table also includes macros: asl, lsl, and mov. The ppc port has
|
/* ??? This table also includes macros: asl, lsl, and mov. The ppc port has
|
a more general facility for dealing with macros which could be used if
|
a more general facility for dealing with macros which could be used if
|
we need to. */
|
we need to. */
|
|
|
/* This table can't be `const' because members `next_asm' and `next_dis' are
|
/* This table can't be `const' because members `next_asm' and `next_dis' are
|
computed at run-time. We could split this into two, but that doesn't seem
|
computed at run-time. We could split this into two, but that doesn't seem
|
worth it. */
|
worth it. */
|
|
|
struct arc_opcode arc_opcodes[] = {
|
struct arc_opcode arc_opcodes[] = {
|
|
|
/* Macros appear first. */
|
/* Macros appear first. */
|
/* "mov" is really an "and". */
|
/* "mov" is really an "and". */
|
{ "mov%.q%.f %a,%b%F%S%L%U", I(-1), I(12) },
|
{ "mov%.q%.f %a,%b%F%S%L%U", I(-1), I(12) },
|
/* "asl" is really an "add". */
|
/* "asl" is really an "add". */
|
{ "asl%.q%.f %a,%b%F%S%L%U", I(-1), I(8) },
|
{ "asl%.q%.f %a,%b%F%S%L%U", I(-1), I(8) },
|
/* "lsl" is really an "add". */
|
/* "lsl" is really an "add". */
|
{ "lsl%.q%.f %a,%b%F%S%L%U", I(-1), I(8) },
|
{ "lsl%.q%.f %a,%b%F%S%L%U", I(-1), I(8) },
|
/* "nop" is really an "xor". */
|
/* "nop" is really an "xor". */
|
{ "nop", 0xffffffff, 0x7fffffff },
|
{ "nop", 0xffffffff, 0x7fffffff },
|
/* "rlc" is really an "adc". */
|
/* "rlc" is really an "adc". */
|
{ "rlc%.q%.f %a,%b%F%S%L%U", I(-1), I(9) },
|
{ "rlc%.q%.f %a,%b%F%S%L%U", I(-1), I(9) },
|
|
|
/* The rest of these needn't be sorted, but it helps to find them if they are. */
|
/* The rest of these needn't be sorted, but it helps to find them if they are. */
|
{ "adc%.q%.f %a,%b,%c%F%S%L", I(-1), I(9) },
|
{ "adc%.q%.f %a,%b,%c%F%S%L", I(-1), I(9) },
|
{ "add%.q%.f %a,%b,%c%F%S%L", I(-1), I(8) },
|
{ "add%.q%.f %a,%b,%c%F%S%L", I(-1), I(8) },
|
{ "and%.q%.f %a,%b,%c%F%S%L", I(-1), I(12) },
|
{ "and%.q%.f %a,%b,%c%F%S%L", I(-1), I(12) },
|
{ "asr%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(1) },
|
{ "asr%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(1) },
|
{ "bic%.q%.f %a,%b,%c%F%S%L", I(-1), I(14) },
|
{ "bic%.q%.f %a,%b,%c%F%S%L", I(-1), I(14) },
|
{ "b%q%.n %B", I(-1), I(4), ARC_OPCODE_COND_BRANCH },
|
{ "b%q%.n %B", I(-1), I(4), ARC_OPCODE_COND_BRANCH },
|
{ "bl%q%.n %B", I(-1), I(5), ARC_OPCODE_COND_BRANCH },
|
{ "bl%q%.n %B", I(-1), I(5), ARC_OPCODE_COND_BRANCH },
|
{ "extb%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(7) },
|
{ "extb%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(7) },
|
{ "extw%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(8) },
|
{ "extw%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(8) },
|
{ "flag%.q %b%G%S%L", I(-1)+A(-1)+C(-1), I(3)+A(ARC_REG_SHIMM_UPDATE)+C(0) },
|
{ "flag%.q %b%G%S%L", I(-1)+A(-1)+C(-1), I(3)+A(ARC_REG_SHIMM_UPDATE)+C(0) },
|
/* %Q: force cond_p=1 --> no shimm values */
|
/* %Q: force cond_p=1 --> no shimm values */
|
/* ??? This insn allows an optional flags spec. */
|
/* ??? This insn allows an optional flags spec. */
|
{ "j%q%Q%.n%.f %b%J", I(-1)+A(-1)+C(-1)+R(-1,7,1), I(7)+A(0)+C(0)+R(0,7,1) },
|
{ "j%q%Q%.n%.f %b%J", I(-1)+A(-1)+C(-1)+R(-1,7,1), I(7)+A(0)+C(0)+R(0,7,1) },
|
/* Put opcode 1 ld insns first so shimm gets prefered over limm. */
|
/* Put opcode 1 ld insns first so shimm gets prefered over limm. */
|
/* "[%b]" is before "[%b,%d]" so 0 offsets don't get printed. */
|
/* "[%b]" is before "[%b,%d]" so 0 offsets don't get printed. */
|
{ "ld%Z%.X%.W%.E %0%a,[%b]%L", I(-1)+R(-1,13,1)+R(-1,0,511), I(1)+R(0,13,1)+R(0,0,511) },
|
{ "ld%Z%.X%.W%.E %0%a,[%b]%L", I(-1)+R(-1,13,1)+R(-1,0,511), I(1)+R(0,13,1)+R(0,0,511) },
|
{ "ld%Z%.X%.W%.E %a,[%b,%d]%S%L", I(-1)+R(-1,13,1), I(1)+R(0,13,1) },
|
{ "ld%Z%.X%.W%.E %a,[%b,%d]%S%L", I(-1)+R(-1,13,1), I(1)+R(0,13,1) },
|
{ "ld%z%.x%.w%.e%Q %a,[%b,%c]%L", I(-1)+R(-1,4,1)+R(-1,6,7), I(0)+R(0,4,1)+R(0,6,7) },
|
{ "ld%z%.x%.w%.e%Q %a,[%b,%c]%L", I(-1)+R(-1,4,1)+R(-1,6,7), I(0)+R(0,4,1)+R(0,6,7) },
|
{ "lp%q%.n %B", I(-1), I(6), },
|
{ "lp%q%.n %B", I(-1), I(6), },
|
{ "lr %a,[%Ab]%S%L", I(-1)+C(-1), I(1)+C(0x10) },
|
{ "lr %a,[%Ab]%S%L", I(-1)+C(-1), I(1)+C(0x10) },
|
{ "lsr%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(2) },
|
{ "lsr%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(2) },
|
{ "or%.q%.f %a,%b,%c%F%S%L", I(-1), I(13) },
|
{ "or%.q%.f %a,%b,%c%F%S%L", I(-1), I(13) },
|
{ "ror%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(3) },
|
{ "ror%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(3) },
|
{ "rrc%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(4) },
|
{ "rrc%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(4) },
|
{ "sbc%.q%.f %a,%b,%c%F%S%L", I(-1), I(11) },
|
{ "sbc%.q%.f %a,%b,%c%F%S%L", I(-1), I(11) },
|
{ "sexb%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(5) },
|
{ "sexb%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(5) },
|
{ "sexw%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(6) },
|
{ "sexw%.q%.f %a,%b%F%S%L", I(-1)+C(-1), I(3)+C(6) },
|
{ "sr %c,[%Ab]%S%L", I(-1)+A(-1), I(2)+A(0x10) },
|
{ "sr %c,[%Ab]%S%L", I(-1)+A(-1), I(2)+A(0x10) },
|
/* "[%b]" is before "[%b,%d]" so 0 offsets don't get printed. */
|
/* "[%b]" is before "[%b,%d]" so 0 offsets don't get printed. */
|
{ "st%y%.v%.D%Q %0%c,[%b]%L", I(-1)+R(-1,25,1)+R(-1,21,1)+R(-1,0,511), I(2)+R(0,25,1)+R(0,21,1)+R(0,0,511) },
|
{ "st%y%.v%.D%Q %0%c,[%b]%L", I(-1)+R(-1,25,1)+R(-1,21,1)+R(-1,0,511), I(2)+R(0,25,1)+R(0,21,1)+R(0,0,511) },
|
{ "st%y%.v%.D %c,[%b,%d]%S%L", I(-1)+R(-1,25,1)+R(-1,21,1), I(2)+R(0,25,1)+R(0,21,1) },
|
{ "st%y%.v%.D %c,[%b,%d]%S%L", I(-1)+R(-1,25,1)+R(-1,21,1), I(2)+R(0,25,1)+R(0,21,1) },
|
{ "sub%.q%.f %a,%b,%c%F%S%L", I(-1), I(10) },
|
{ "sub%.q%.f %a,%b,%c%F%S%L", I(-1), I(10) },
|
{ "xor%.q%.f %a,%b,%c%F%S%L", I(-1), I(15) }
|
{ "xor%.q%.f %a,%b,%c%F%S%L", I(-1), I(15) }
|
};
|
};
|
const int arc_opcodes_count = sizeof (arc_opcodes) / sizeof (arc_opcodes[0]);
|
const int arc_opcodes_count = sizeof (arc_opcodes) / sizeof (arc_opcodes[0]);
|
|
|
const struct arc_operand_value arc_reg_names[] =
|
const struct arc_operand_value arc_reg_names[] =
|
{
|
{
|
/* Sort this so that the first 61 entries are sequential.
|
/* Sort this so that the first 61 entries are sequential.
|
IE: For each i (i<61), arc_reg_names[i].value == i. */
|
IE: For each i (i<61), arc_reg_names[i].value == i. */
|
|
|
{ "r0", 0, REG }, { "r1", 1, REG }, { "r2", 2, REG }, { "r3", 3, REG },
|
{ "r0", 0, REG }, { "r1", 1, REG }, { "r2", 2, REG }, { "r3", 3, REG },
|
{ "r4", 4, REG }, { "r5", 5, REG }, { "r6", 6, REG }, { "r7", 7, REG },
|
{ "r4", 4, REG }, { "r5", 5, REG }, { "r6", 6, REG }, { "r7", 7, REG },
|
{ "r8", 8, REG }, { "r9", 9, REG }, { "r10", 10, REG }, { "r11", 11, REG },
|
{ "r8", 8, REG }, { "r9", 9, REG }, { "r10", 10, REG }, { "r11", 11, REG },
|
{ "r12", 12, REG }, { "r13", 13, REG }, { "r14", 14, REG }, { "r15", 15, REG },
|
{ "r12", 12, REG }, { "r13", 13, REG }, { "r14", 14, REG }, { "r15", 15, REG },
|
{ "r16", 16, REG }, { "r17", 17, REG }, { "r18", 18, REG }, { "r19", 19, REG },
|
{ "r16", 16, REG }, { "r17", 17, REG }, { "r18", 18, REG }, { "r19", 19, REG },
|
{ "r20", 20, REG }, { "r21", 21, REG }, { "r22", 22, REG }, { "r23", 23, REG },
|
{ "r20", 20, REG }, { "r21", 21, REG }, { "r22", 22, REG }, { "r23", 23, REG },
|
{ "r24", 24, REG }, { "r25", 25, REG }, { "r26", 26, REG }, { "fp", 27, REG },
|
{ "r24", 24, REG }, { "r25", 25, REG }, { "r26", 26, REG }, { "fp", 27, REG },
|
{ "sp", 28, REG }, { "ilink1", 29, REG }, { "ilink2", 30, REG }, { "blink", 31, REG },
|
{ "sp", 28, REG }, { "ilink1", 29, REG }, { "ilink2", 30, REG }, { "blink", 31, REG },
|
{ "r32", 32, REG }, { "r33", 33, REG }, { "r34", 34, REG }, { "r35", 35, REG },
|
{ "r32", 32, REG }, { "r33", 33, REG }, { "r34", 34, REG }, { "r35", 35, REG },
|
{ "r36", 36, REG }, { "r37", 37, REG }, { "r38", 38, REG }, { "r39", 39, REG },
|
{ "r36", 36, REG }, { "r37", 37, REG }, { "r38", 38, REG }, { "r39", 39, REG },
|
{ "r40", 40, REG }, { "r41", 41, REG }, { "r42", 42, REG }, { "r43", 43, REG },
|
{ "r40", 40, REG }, { "r41", 41, REG }, { "r42", 42, REG }, { "r43", 43, REG },
|
{ "r44", 44, REG }, { "r45", 45, REG }, { "r46", 46, REG }, { "r47", 47, REG },
|
{ "r44", 44, REG }, { "r45", 45, REG }, { "r46", 46, REG }, { "r47", 47, REG },
|
{ "r48", 48, REG }, { "r49", 49, REG }, { "r50", 50, REG }, { "r51", 51, REG },
|
{ "r48", 48, REG }, { "r49", 49, REG }, { "r50", 50, REG }, { "r51", 51, REG },
|
{ "r52", 52, REG }, { "r53", 53, REG }, { "r54", 54, REG }, { "r55", 55, REG },
|
{ "r52", 52, REG }, { "r53", 53, REG }, { "r54", 54, REG }, { "r55", 55, REG },
|
{ "r56", 56, REG }, { "r57", 57, REG }, { "r58", 58, REG }, { "r59", 59, REG },
|
{ "r56", 56, REG }, { "r57", 57, REG }, { "r58", 58, REG }, { "r59", 59, REG },
|
{ "lp_count", 60, REG },
|
{ "lp_count", 60, REG },
|
|
|
/* I'd prefer to output these as "fp" and "sp" by default, but we still need
|
/* I'd prefer to output these as "fp" and "sp" by default, but we still need
|
to recognize the canonical values. */
|
to recognize the canonical values. */
|
{ "r27", 27, REG }, { "r28", 28, REG },
|
{ "r27", 27, REG }, { "r28", 28, REG },
|
|
|
/* Someone may wish to refer to these in this way, and it's probably a
|
/* Someone may wish to refer to these in this way, and it's probably a
|
good idea to reserve them as such anyway. */
|
good idea to reserve them as such anyway. */
|
{ "r29", 29, REG }, { "r30", 30, REG }, { "r31", 31, REG }, { "r60", 60, REG },
|
{ "r29", 29, REG }, { "r30", 30, REG }, { "r31", 31, REG }, { "r60", 60, REG },
|
|
|
/* Standard auxiliary registers. */
|
/* Standard auxiliary registers. */
|
{ "status", 0, AUXREG },
|
{ "status", 0, AUXREG },
|
{ "semaphore", 1, AUXREG },
|
{ "semaphore", 1, AUXREG },
|
{ "lp_start", 2, AUXREG },
|
{ "lp_start", 2, AUXREG },
|
{ "lp_end", 3, AUXREG },
|
{ "lp_end", 3, AUXREG },
|
{ "identity", 4, AUXREG },
|
{ "identity", 4, AUXREG },
|
{ "debug", 5, AUXREG },
|
{ "debug", 5, AUXREG },
|
};
|
};
|
const int arc_reg_names_count = sizeof (arc_reg_names) / sizeof (arc_reg_names[0]);
|
const int arc_reg_names_count = sizeof (arc_reg_names) / sizeof (arc_reg_names[0]);
|
|
|
/* The suffix table.
|
/* The suffix table.
|
Operands with the same name must be stored together. */
|
Operands with the same name must be stored together. */
|
|
|
const struct arc_operand_value arc_suffixes[] =
|
const struct arc_operand_value arc_suffixes[] =
|
{
|
{
|
/* Entry 0 is special, default values aren't printed by the disassembler. */
|
/* Entry 0 is special, default values aren't printed by the disassembler. */
|
{ "", 0, -1 },
|
{ "", 0, -1 },
|
{ "al", 0, COND },
|
{ "al", 0, COND },
|
{ "ra", 0, COND },
|
{ "ra", 0, COND },
|
{ "eq", 1, COND },
|
{ "eq", 1, COND },
|
{ "z", 1, COND },
|
{ "z", 1, COND },
|
{ "ne", 2, COND },
|
{ "ne", 2, COND },
|
{ "nz", 2, COND },
|
{ "nz", 2, COND },
|
{ "p", 3, COND },
|
{ "p", 3, COND },
|
{ "pl", 3, COND },
|
{ "pl", 3, COND },
|
{ "n", 4, COND },
|
{ "n", 4, COND },
|
{ "mi", 4, COND },
|
{ "mi", 4, COND },
|
{ "c", 5, COND },
|
{ "c", 5, COND },
|
{ "cs", 5, COND },
|
{ "cs", 5, COND },
|
{ "lo", 5, COND },
|
{ "lo", 5, COND },
|
{ "nc", 6, COND },
|
{ "nc", 6, COND },
|
{ "cc", 6, COND },
|
{ "cc", 6, COND },
|
{ "hs", 6, COND },
|
{ "hs", 6, COND },
|
{ "v", 7, COND },
|
{ "v", 7, COND },
|
{ "vs", 7, COND },
|
{ "vs", 7, COND },
|
{ "nv", 8, COND },
|
{ "nv", 8, COND },
|
{ "vc", 8, COND },
|
{ "vc", 8, COND },
|
{ "gt", 9, COND },
|
{ "gt", 9, COND },
|
{ "ge", 10, COND },
|
{ "ge", 10, COND },
|
{ "lt", 11, COND },
|
{ "lt", 11, COND },
|
{ "le", 12, COND },
|
{ "le", 12, COND },
|
{ "hi", 13, COND },
|
{ "hi", 13, COND },
|
{ "ls", 14, COND },
|
{ "ls", 14, COND },
|
{ "pnz", 15, COND },
|
{ "pnz", 15, COND },
|
{ "f", 1, FLAG },
|
{ "f", 1, FLAG },
|
{ "nd", ARC_DELAY_NONE, DELAY },
|
{ "nd", ARC_DELAY_NONE, DELAY },
|
{ "d", ARC_DELAY_NORMAL, DELAY },
|
{ "d", ARC_DELAY_NORMAL, DELAY },
|
{ "jd", ARC_DELAY_JUMP, DELAY },
|
{ "jd", ARC_DELAY_JUMP, DELAY },
|
/*{ "b", 7, SIZEEXT },*/
|
/*{ "b", 7, SIZEEXT },*/
|
/*{ "b", 5, SIZESEX },*/
|
/*{ "b", 5, SIZESEX },*/
|
{ "b", 1, SIZE1 },
|
{ "b", 1, SIZE1 },
|
{ "b", 1, SIZE10 },
|
{ "b", 1, SIZE10 },
|
{ "b", 1, SIZE22 },
|
{ "b", 1, SIZE22 },
|
/*{ "w", 8, SIZEEXT },*/
|
/*{ "w", 8, SIZEEXT },*/
|
/*{ "w", 6, SIZESEX },*/
|
/*{ "w", 6, SIZESEX },*/
|
{ "w", 2, SIZE1 },
|
{ "w", 2, SIZE1 },
|
{ "w", 2, SIZE10 },
|
{ "w", 2, SIZE10 },
|
{ "w", 2, SIZE22 },
|
{ "w", 2, SIZE22 },
|
{ "x", 1, SIGN0 },
|
{ "x", 1, SIGN0 },
|
{ "x", 1, SIGN9 },
|
{ "x", 1, SIGN9 },
|
{ "a", 1, ADDRESS3 },
|
{ "a", 1, ADDRESS3 },
|
{ "a", 1, ADDRESS12 },
|
{ "a", 1, ADDRESS12 },
|
{ "a", 1, ADDRESS24 },
|
{ "a", 1, ADDRESS24 },
|
{ "di", 1, CACHEBYPASS5 },
|
{ "di", 1, CACHEBYPASS5 },
|
{ "di", 1, CACHEBYPASS14 },
|
{ "di", 1, CACHEBYPASS14 },
|
{ "di", 1, CACHEBYPASS26 },
|
{ "di", 1, CACHEBYPASS26 },
|
};
|
};
|
const int arc_suffixes_count = sizeof (arc_suffixes) / sizeof (arc_suffixes[0]);
|
const int arc_suffixes_count = sizeof (arc_suffixes) / sizeof (arc_suffixes[0]);
|
|
|
/* Indexed by first letter of opcode. Points to chain of opcodes with same
|
/* Indexed by first letter of opcode. Points to chain of opcodes with same
|
first letter. */
|
first letter. */
|
static struct arc_opcode *opcode_map[26 + 1];
|
static struct arc_opcode *opcode_map[26 + 1];
|
|
|
/* Indexed by insn code. Points to chain of opcodes with same insn code. */
|
/* Indexed by insn code. Points to chain of opcodes with same insn code. */
|
static struct arc_opcode *icode_map[32];
|
static struct arc_opcode *icode_map[32];
|
|
|
/* Configuration flags. */
|
/* Configuration flags. */
|
|
|
/* Various ARC_HAVE_XXX bits. */
|
/* Various ARC_HAVE_XXX bits. */
|
static int cpu_type;
|
static int cpu_type;
|
|
|
/* Translate a bfd_mach_arc_xxx value to a ARC_MACH_XXX value. */
|
/* Translate a bfd_mach_arc_xxx value to a ARC_MACH_XXX value. */
|
|
|
int
|
int
|
arc_get_opcode_mach (bfd_mach, big_p)
|
arc_get_opcode_mach (bfd_mach, big_p)
|
int bfd_mach, big_p;
|
int bfd_mach, big_p;
|
{
|
{
|
static int mach_type_map[] =
|
static int mach_type_map[] =
|
{
|
{
|
ARC_MACH_BASE
|
ARC_MACH_BASE
|
};
|
};
|
|
|
return mach_type_map[bfd_mach] | (big_p ? ARC_MACH_BIG : 0);
|
return mach_type_map[bfd_mach] | (big_p ? ARC_MACH_BIG : 0);
|
}
|
}
|
|
|
/* Initialize any tables that need it.
|
/* Initialize any tables that need it.
|
Must be called once at start up (or when first needed).
|
Must be called once at start up (or when first needed).
|
|
|
FLAGS is a set of bits that say what version of the cpu we have,
|
FLAGS is a set of bits that say what version of the cpu we have,
|
and in particular at least (one of) ARC_MACH_XXX. */
|
and in particular at least (one of) ARC_MACH_XXX. */
|
|
|
void
|
void
|
arc_opcode_init_tables (flags)
|
arc_opcode_init_tables (flags)
|
int flags;
|
int flags;
|
{
|
{
|
static int init_p = 0;
|
static int init_p = 0;
|
|
|
cpu_type = flags;
|
cpu_type = flags;
|
|
|
/* We may be intentionally called more than once (for example gdb will call
|
/* We may be intentionally called more than once (for example gdb will call
|
us each time the user switches cpu). These tables only need to be init'd
|
us each time the user switches cpu). These tables only need to be init'd
|
once though. */
|
once though. */
|
/* ??? We can remove the need for arc_opcode_supported by taking it into
|
/* ??? We can remove the need for arc_opcode_supported by taking it into
|
account here, but I'm not sure I want to do that yet (if ever). */
|
account here, but I'm not sure I want to do that yet (if ever). */
|
if (!init_p)
|
if (!init_p)
|
{
|
{
|
register int i,n;
|
register int i,n;
|
|
|
memset (arc_operand_map, 0, sizeof (arc_operand_map));
|
memset (arc_operand_map, 0, sizeof (arc_operand_map));
|
n = sizeof (arc_operands) / sizeof (arc_operands[0]);
|
n = sizeof (arc_operands) / sizeof (arc_operands[0]);
|
for (i = 0; i < n; ++i)
|
for (i = 0; i < n; ++i)
|
arc_operand_map[arc_operands[i].fmt] = i;
|
arc_operand_map[arc_operands[i].fmt] = i;
|
|
|
memset (opcode_map, 0, sizeof (opcode_map));
|
memset (opcode_map, 0, sizeof (opcode_map));
|
memset (icode_map, 0, sizeof (icode_map));
|
memset (icode_map, 0, sizeof (icode_map));
|
/* Scan the table backwards so macros appear at the front. */
|
/* Scan the table backwards so macros appear at the front. */
|
for (i = arc_opcodes_count - 1; i >= 0; --i)
|
for (i = arc_opcodes_count - 1; i >= 0; --i)
|
{
|
{
|
int opcode_hash = ARC_HASH_OPCODE (arc_opcodes[i].syntax);
|
int opcode_hash = ARC_HASH_OPCODE (arc_opcodes[i].syntax);
|
int icode_hash = ARC_HASH_ICODE (arc_opcodes[i].value);
|
int icode_hash = ARC_HASH_ICODE (arc_opcodes[i].value);
|
|
|
arc_opcodes[i].next_asm = opcode_map[opcode_hash];
|
arc_opcodes[i].next_asm = opcode_map[opcode_hash];
|
opcode_map[opcode_hash] = &arc_opcodes[i];
|
opcode_map[opcode_hash] = &arc_opcodes[i];
|
|
|
arc_opcodes[i].next_dis = icode_map[icode_hash];
|
arc_opcodes[i].next_dis = icode_map[icode_hash];
|
icode_map[icode_hash] = &arc_opcodes[i];
|
icode_map[icode_hash] = &arc_opcodes[i];
|
}
|
}
|
|
|
init_p = 1;
|
init_p = 1;
|
}
|
}
|
}
|
}
|
|
|
/* Return non-zero if OPCODE is supported on the specified cpu.
|
/* Return non-zero if OPCODE is supported on the specified cpu.
|
Cpu selection is made when calling `arc_opcode_init_tables'. */
|
Cpu selection is made when calling `arc_opcode_init_tables'. */
|
|
|
int
|
int
|
arc_opcode_supported (opcode)
|
arc_opcode_supported (opcode)
|
const struct arc_opcode *opcode;
|
const struct arc_opcode *opcode;
|
{
|
{
|
if (ARC_OPCODE_CPU (opcode->flags) == 0)
|
if (ARC_OPCODE_CPU (opcode->flags) == 0)
|
return 1;
|
return 1;
|
if (ARC_OPCODE_CPU (opcode->flags) & ARC_HAVE_CPU (cpu_type))
|
if (ARC_OPCODE_CPU (opcode->flags) & ARC_HAVE_CPU (cpu_type))
|
return 1;
|
return 1;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Return non-zero if OPVAL is supported on the specified cpu.
|
/* Return non-zero if OPVAL is supported on the specified cpu.
|
Cpu selection is made when calling `arc_opcode_init_tables'. */
|
Cpu selection is made when calling `arc_opcode_init_tables'. */
|
|
|
int
|
int
|
arc_opval_supported (opval)
|
arc_opval_supported (opval)
|
const struct arc_operand_value *opval;
|
const struct arc_operand_value *opval;
|
{
|
{
|
if (ARC_OPVAL_CPU (opval->flags) == 0)
|
if (ARC_OPVAL_CPU (opval->flags) == 0)
|
return 1;
|
return 1;
|
if (ARC_OPVAL_CPU (opval->flags) & ARC_HAVE_CPU (cpu_type))
|
if (ARC_OPVAL_CPU (opval->flags) & ARC_HAVE_CPU (cpu_type))
|
return 1;
|
return 1;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Return the first insn in the chain for assembling INSN. */
|
/* Return the first insn in the chain for assembling INSN. */
|
|
|
const struct arc_opcode *
|
const struct arc_opcode *
|
arc_opcode_lookup_asm (insn)
|
arc_opcode_lookup_asm (insn)
|
const char *insn;
|
const char *insn;
|
{
|
{
|
return opcode_map[ARC_HASH_OPCODE (insn)];
|
return opcode_map[ARC_HASH_OPCODE (insn)];
|
}
|
}
|
|
|
/* Return the first insn in the chain for disassembling INSN. */
|
/* Return the first insn in the chain for disassembling INSN. */
|
|
|
const struct arc_opcode *
|
const struct arc_opcode *
|
arc_opcode_lookup_dis (insn)
|
arc_opcode_lookup_dis (insn)
|
unsigned int insn;
|
unsigned int insn;
|
{
|
{
|
return icode_map[ARC_HASH_ICODE (insn)];
|
return icode_map[ARC_HASH_ICODE (insn)];
|
}
|
}
|
|
|
/* Nonzero if we've seen an 'f' suffix (in certain insns). */
|
/* Nonzero if we've seen an 'f' suffix (in certain insns). */
|
static int flag_p;
|
static int flag_p;
|
|
|
/* Nonzero if we've finished processing the 'f' suffix. */
|
/* Nonzero if we've finished processing the 'f' suffix. */
|
static int flagshimm_handled_p;
|
static int flagshimm_handled_p;
|
|
|
/* Nonzero if we've seen a 'q' suffix (condition code). */
|
/* Nonzero if we've seen a 'q' suffix (condition code). */
|
static int cond_p;
|
static int cond_p;
|
|
|
/* Nonzero if we've inserted a shimm. */
|
/* Nonzero if we've inserted a shimm. */
|
static int shimm_p;
|
static int shimm_p;
|
|
|
/* The value of the shimm we inserted (each insn only gets one but it can
|
/* The value of the shimm we inserted (each insn only gets one but it can
|
appear multiple times. */
|
appear multiple times. */
|
static int shimm;
|
static int shimm;
|
|
|
/* Nonzero if we've inserted a limm (during assembly) or seen a limm
|
/* Nonzero if we've inserted a limm (during assembly) or seen a limm
|
(during disassembly). */
|
(during disassembly). */
|
static int limm_p;
|
static int limm_p;
|
|
|
/* The value of the limm we inserted. Each insn only gets one but it can
|
/* The value of the limm we inserted. Each insn only gets one but it can
|
appear multiple times. */
|
appear multiple times. */
|
static long limm;
|
static long limm;
|
|
|
/* Insertion functions. */
|
/* Insertion functions. */
|
|
|
/* Called by the assembler before parsing an instruction. */
|
/* Called by the assembler before parsing an instruction. */
|
|
|
void
|
void
|
arc_opcode_init_insert ()
|
arc_opcode_init_insert ()
|
{
|
{
|
flag_p = 0;
|
flag_p = 0;
|
flagshimm_handled_p = 0;
|
flagshimm_handled_p = 0;
|
cond_p = 0;
|
cond_p = 0;
|
shimm_p = 0;
|
shimm_p = 0;
|
limm_p = 0;
|
limm_p = 0;
|
}
|
}
|
|
|
/* Called by the assembler to see if the insn has a limm operand.
|
/* Called by the assembler to see if the insn has a limm operand.
|
Also called by the disassembler to see if the insn contains a limm. */
|
Also called by the disassembler to see if the insn contains a limm. */
|
|
|
int
|
int
|
arc_opcode_limm_p (limmp)
|
arc_opcode_limm_p (limmp)
|
long *limmp;
|
long *limmp;
|
{
|
{
|
if (limmp)
|
if (limmp)
|
*limmp = limm;
|
*limmp = limm;
|
return limm_p;
|
return limm_p;
|
}
|
}
|
|
|
/* Insert a value into a register field.
|
/* Insert a value into a register field.
|
If REG is NULL, then this is actually a constant.
|
If REG is NULL, then this is actually a constant.
|
|
|
We must also handle auxiliary registers for lr/sr insns. */
|
We must also handle auxiliary registers for lr/sr insns. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_reg (insn, operand, mods, reg, value, errmsg)
|
insert_reg (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
static char buf[100];
|
static char buf[100];
|
|
|
if (reg == NULL)
|
if (reg == NULL)
|
{
|
{
|
/* We have a constant that also requires a value stored in a register
|
/* We have a constant that also requires a value stored in a register
|
field. Handle these by updating the register field and saving the
|
field. Handle these by updating the register field and saving the
|
value for later handling by either %S (shimm) or %L (limm). */
|
value for later handling by either %S (shimm) or %L (limm). */
|
|
|
/* Try to use a shimm value before a limm one. */
|
/* Try to use a shimm value before a limm one. */
|
if (ARC_SHIMM_CONST_P (value)
|
if (ARC_SHIMM_CONST_P (value)
|
/* If we've seen a conditional suffix we have to use a limm. */
|
/* If we've seen a conditional suffix we have to use a limm. */
|
&& !cond_p
|
&& !cond_p
|
/* If we already have a shimm value that is different than ours
|
/* If we already have a shimm value that is different than ours
|
we have to use a limm. */
|
we have to use a limm. */
|
&& (!shimm_p || shimm == value))
|
&& (!shimm_p || shimm == value))
|
{
|
{
|
int marker = flag_p ? ARC_REG_SHIMM_UPDATE : ARC_REG_SHIMM;
|
int marker = flag_p ? ARC_REG_SHIMM_UPDATE : ARC_REG_SHIMM;
|
flagshimm_handled_p = 1;
|
flagshimm_handled_p = 1;
|
shimm_p = 1;
|
shimm_p = 1;
|
shimm = value;
|
shimm = value;
|
insn |= marker << operand->shift;
|
insn |= marker << operand->shift;
|
/* insn |= value & 511; - done later */
|
/* insn |= value & 511; - done later */
|
}
|
}
|
/* We have to use a limm. If we've already seen one they must match. */
|
/* We have to use a limm. If we've already seen one they must match. */
|
else if (!limm_p || limm == value)
|
else if (!limm_p || limm == value)
|
{
|
{
|
limm_p = 1;
|
limm_p = 1;
|
limm = value;
|
limm = value;
|
insn |= ARC_REG_LIMM << operand->shift;
|
insn |= ARC_REG_LIMM << operand->shift;
|
/* The constant is stored later. */
|
/* The constant is stored later. */
|
}
|
}
|
else
|
else
|
{
|
{
|
*errmsg = _("unable to fit different valued constants into instruction");
|
*errmsg = _("unable to fit different valued constants into instruction");
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
/* We have to handle both normal and auxiliary registers. */
|
/* We have to handle both normal and auxiliary registers. */
|
|
|
if (reg->type == AUXREG)
|
if (reg->type == AUXREG)
|
{
|
{
|
if (!(mods & ARC_MOD_AUXREG))
|
if (!(mods & ARC_MOD_AUXREG))
|
*errmsg = _("auxiliary register not allowed here");
|
*errmsg = _("auxiliary register not allowed here");
|
else
|
else
|
{
|
{
|
insn |= ARC_REG_SHIMM << operand->shift;
|
insn |= ARC_REG_SHIMM << operand->shift;
|
insn |= reg->value << arc_operands[reg->type].shift;
|
insn |= reg->value << arc_operands[reg->type].shift;
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
/* We should never get an invalid register number here. */
|
/* We should never get an invalid register number here. */
|
if ((unsigned int) reg->value > 60)
|
if ((unsigned int) reg->value > 60)
|
{
|
{
|
/* xgettext:c-format */
|
/* xgettext:c-format */
|
sprintf (buf, _("invalid register number `%d'"), reg->value);
|
sprintf (buf, _("invalid register number `%d'"), reg->value);
|
*errmsg = buf;
|
*errmsg = buf;
|
}
|
}
|
else
|
else
|
insn |= reg->value << operand->shift;
|
insn |= reg->value << operand->shift;
|
}
|
}
|
}
|
}
|
|
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Called when we see an 'f' flag. */
|
/* Called when we see an 'f' flag. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_flag (insn, operand, mods, reg, value, errmsg)
|
insert_flag (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
/* We can't store anything in the insn until we've parsed the registers.
|
/* We can't store anything in the insn until we've parsed the registers.
|
Just record the fact that we've got this flag. `insert_reg' will use it
|
Just record the fact that we've got this flag. `insert_reg' will use it
|
to store the correct value (ARC_REG_SHIMM_UPDATE or bit 0x100). */
|
to store the correct value (ARC_REG_SHIMM_UPDATE or bit 0x100). */
|
flag_p = 1;
|
flag_p = 1;
|
|
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Called after completely building an insn to ensure the 'f' flag gets set
|
/* Called after completely building an insn to ensure the 'f' flag gets set
|
properly. This is needed because we don't know how to set this flag until
|
properly. This is needed because we don't know how to set this flag until
|
we've parsed the registers. */
|
we've parsed the registers. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_flagfinish (insn, operand, mods, reg, value, errmsg)
|
insert_flagfinish (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
if (flag_p && !flagshimm_handled_p)
|
if (flag_p && !flagshimm_handled_p)
|
{
|
{
|
if (shimm_p)
|
if (shimm_p)
|
abort ();
|
abort ();
|
flagshimm_handled_p = 1;
|
flagshimm_handled_p = 1;
|
insn |= (1 << operand->shift);
|
insn |= (1 << operand->shift);
|
}
|
}
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Called when we see a conditional flag (eg: .eq). */
|
/* Called when we see a conditional flag (eg: .eq). */
|
|
|
static arc_insn
|
static arc_insn
|
insert_cond (insn, operand, mods, reg, value, errmsg)
|
insert_cond (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
cond_p = 1;
|
cond_p = 1;
|
insn |= (value & ((1 << operand->bits) - 1)) << operand->shift;
|
insn |= (value & ((1 << operand->bits) - 1)) << operand->shift;
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Used in the "j" instruction to prevent constants from being interpreted as
|
/* Used in the "j" instruction to prevent constants from being interpreted as
|
shimm values (which the jump insn doesn't accept). This can also be used
|
shimm values (which the jump insn doesn't accept). This can also be used
|
to force the use of limm values in other situations (eg: ld r0,[foo] uses
|
to force the use of limm values in other situations (eg: ld r0,[foo] uses
|
this).
|
this).
|
??? The mechanism is sound. Access to it is a bit klunky right now. */
|
??? The mechanism is sound. Access to it is a bit klunky right now. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_forcelimm (insn, operand, mods, reg, value, errmsg)
|
insert_forcelimm (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
cond_p = 1;
|
cond_p = 1;
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Used in ld/st insns to handle the shimm offset field. */
|
/* Used in ld/st insns to handle the shimm offset field. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_shimmoffset (insn, operand, mods, reg, value, errmsg)
|
insert_shimmoffset (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
long minval, maxval;
|
long minval, maxval;
|
static char buf[100];
|
static char buf[100];
|
|
|
if (reg != NULL)
|
if (reg != NULL)
|
{
|
{
|
*errmsg = "register appears where shimm value expected";
|
*errmsg = "register appears where shimm value expected";
|
}
|
}
|
else
|
else
|
{
|
{
|
/* This is *way* more general than necessary, but maybe some day it'll
|
/* This is *way* more general than necessary, but maybe some day it'll
|
be useful. */
|
be useful. */
|
if (operand->flags & ARC_OPERAND_SIGNED)
|
if (operand->flags & ARC_OPERAND_SIGNED)
|
{
|
{
|
minval = -(1 << (operand->bits - 1));
|
minval = -(1 << (operand->bits - 1));
|
maxval = (1 << (operand->bits - 1)) - 1;
|
maxval = (1 << (operand->bits - 1)) - 1;
|
}
|
}
|
else
|
else
|
{
|
{
|
minval = 0;
|
minval = 0;
|
maxval = (1 << operand->bits) - 1;
|
maxval = (1 << operand->bits) - 1;
|
}
|
}
|
if (value < minval || value > maxval)
|
if (value < minval || value > maxval)
|
{
|
{
|
/* xgettext:c-format */
|
/* xgettext:c-format */
|
sprintf (buf, _("value won't fit in range %ld - %ld"),
|
sprintf (buf, _("value won't fit in range %ld - %ld"),
|
minval, maxval);
|
minval, maxval);
|
*errmsg = buf;
|
*errmsg = buf;
|
}
|
}
|
else
|
else
|
insn |= (value & ((1 << operand->bits) - 1)) << operand->shift;
|
insn |= (value & ((1 << operand->bits) - 1)) << operand->shift;
|
}
|
}
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Used in ld/st insns when the shimm offset is 0. */
|
/* Used in ld/st insns when the shimm offset is 0. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_shimmzero (insn, operand, mods, reg, value, errmsg)
|
insert_shimmzero (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
shimm_p = 1;
|
shimm_p = 1;
|
shimm = 0;
|
shimm = 0;
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Called at the end of processing normal insns (eg: add) to insert a shimm
|
/* Called at the end of processing normal insns (eg: add) to insert a shimm
|
value (if present) into the insn. */
|
value (if present) into the insn. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_shimmfinish (insn, operand, mods, reg, value, errmsg)
|
insert_shimmfinish (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
if (shimm_p)
|
if (shimm_p)
|
insn |= (shimm & ((1 << operand->bits) - 1)) << operand->shift;
|
insn |= (shimm & ((1 << operand->bits) - 1)) << operand->shift;
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Called at the end of processing normal insns (eg: add) to insert a limm
|
/* Called at the end of processing normal insns (eg: add) to insert a limm
|
value (if present) into the insn.
|
value (if present) into the insn.
|
|
|
Note that this function is only intended to handle instructions (with 4 byte
|
Note that this function is only intended to handle instructions (with 4 byte
|
immediate operands). It is not intended to handle data. */
|
immediate operands). It is not intended to handle data. */
|
|
|
/* ??? Actually, there's nothing for us to do as we can't call frag_more, the
|
/* ??? Actually, there's nothing for us to do as we can't call frag_more, the
|
caller must do that. The extract fns take a pointer to two words. The
|
caller must do that. The extract fns take a pointer to two words. The
|
insert fns could be converted and then we could do something useful, but
|
insert fns could be converted and then we could do something useful, but
|
then the reloc handlers would have to know to work on the second word of
|
then the reloc handlers would have to know to work on the second word of
|
a 2 word quantity. That's too much so we don't handle them. */
|
a 2 word quantity. That's too much so we don't handle them. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_limmfinish (insn, operand, mods, reg, value, errmsg)
|
insert_limmfinish (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
if (limm_p)
|
if (limm_p)
|
; /* nothing to do, gas does it */
|
; /* nothing to do, gas does it */
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Called at the end of unary operand macros to copy the B field to C. */
|
/* Called at the end of unary operand macros to copy the B field to C. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_unopmacro (insn, operand, mods, reg, value, errmsg)
|
insert_unopmacro (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
insn |= ((insn >> ARC_SHIFT_REGB) & ARC_MASK_REG) << operand->shift;
|
insn |= ((insn >> ARC_SHIFT_REGB) & ARC_MASK_REG) << operand->shift;
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Insert a relative address for a branch insn (b, bl, or lp). */
|
/* Insert a relative address for a branch insn (b, bl, or lp). */
|
|
|
static arc_insn
|
static arc_insn
|
insert_reladdr (insn, operand, mods, reg, value, errmsg)
|
insert_reladdr (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
if (value & 3)
|
if (value & 3)
|
*errmsg = _("branch address not on 4 byte boundary");
|
*errmsg = _("branch address not on 4 byte boundary");
|
insn |= ((value >> 2) & ((1 << operand->bits) - 1)) << operand->shift;
|
insn |= ((value >> 2) & ((1 << operand->bits) - 1)) << operand->shift;
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Insert a limm value as a 26 bit address right shifted 2 into the insn.
|
/* Insert a limm value as a 26 bit address right shifted 2 into the insn.
|
|
|
Note that this function is only intended to handle instructions (with 4 byte
|
Note that this function is only intended to handle instructions (with 4 byte
|
immediate operands). It is not intended to handle data. */
|
immediate operands). It is not intended to handle data. */
|
|
|
/* ??? Actually, there's nothing for us to do as we can't call frag_more, the
|
/* ??? Actually, there's nothing for us to do as we can't call frag_more, the
|
caller must do that. The extract fns take a pointer to two words. The
|
caller must do that. The extract fns take a pointer to two words. The
|
insert fns could be converted and then we could do something useful, but
|
insert fns could be converted and then we could do something useful, but
|
then the reloc handlers would have to know to work on the second word of
|
then the reloc handlers would have to know to work on the second word of
|
a 2 word quantity. That's too much so we don't handle them. */
|
a 2 word quantity. That's too much so we don't handle them. */
|
|
|
static arc_insn
|
static arc_insn
|
insert_absaddr (insn, operand, mods, reg, value, errmsg)
|
insert_absaddr (insn, operand, mods, reg, value, errmsg)
|
arc_insn insn;
|
arc_insn insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value *reg;
|
const struct arc_operand_value *reg;
|
long value;
|
long value;
|
const char **errmsg;
|
const char **errmsg;
|
{
|
{
|
if (limm_p)
|
if (limm_p)
|
; /* nothing to do */
|
; /* nothing to do */
|
return insn;
|
return insn;
|
}
|
}
|
|
|
/* Extraction functions.
|
/* Extraction functions.
|
|
|
The suffix extraction functions' return value is redundant since it can be
|
The suffix extraction functions' return value is redundant since it can be
|
obtained from (*OPVAL)->value. However, the boolean suffixes don't have
|
obtained from (*OPVAL)->value. However, the boolean suffixes don't have
|
a suffix table entry for the "false" case, so values of zero must be
|
a suffix table entry for the "false" case, so values of zero must be
|
obtained from the return value (*OPVAL == NULL). */
|
obtained from the return value (*OPVAL == NULL). */
|
|
|
static const struct arc_operand_value *lookup_register (int type, long regno);
|
static const struct arc_operand_value *lookup_register (int type, long regno);
|
|
|
/* Called by the disassembler before printing an instruction. */
|
/* Called by the disassembler before printing an instruction. */
|
|
|
void
|
void
|
arc_opcode_init_extract ()
|
arc_opcode_init_extract ()
|
{
|
{
|
flag_p = 0;
|
flag_p = 0;
|
flagshimm_handled_p = 0;
|
flagshimm_handled_p = 0;
|
shimm_p = 0;
|
shimm_p = 0;
|
limm_p = 0;
|
limm_p = 0;
|
}
|
}
|
|
|
/* As we're extracting registers, keep an eye out for the 'f' indicator
|
/* As we're extracting registers, keep an eye out for the 'f' indicator
|
(ARC_REG_SHIMM_UPDATE). If we find a register (not a constant marker,
|
(ARC_REG_SHIMM_UPDATE). If we find a register (not a constant marker,
|
like ARC_REG_SHIMM), set OPVAL so our caller will know this is a register.
|
like ARC_REG_SHIMM), set OPVAL so our caller will know this is a register.
|
|
|
We must also handle auxiliary registers for lr/sr insns. They are just
|
We must also handle auxiliary registers for lr/sr insns. They are just
|
constants with special names. */
|
constants with special names. */
|
|
|
static long
|
static long
|
extract_reg (insn, operand, mods, opval, invalid)
|
extract_reg (insn, operand, mods, opval, invalid)
|
arc_insn *insn;
|
arc_insn *insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value **opval;
|
const struct arc_operand_value **opval;
|
int *invalid;
|
int *invalid;
|
{
|
{
|
int regno;
|
int regno;
|
long value;
|
long value;
|
|
|
/* Get the register number. */
|
/* Get the register number. */
|
regno = (insn[0] >> operand->shift) & ((1 << operand->bits) - 1);
|
regno = (insn[0] >> operand->shift) & ((1 << operand->bits) - 1);
|
|
|
/* Is it a constant marker? */
|
/* Is it a constant marker? */
|
if (regno == ARC_REG_SHIMM)
|
if (regno == ARC_REG_SHIMM)
|
{
|
{
|
value = insn[0] & 511;
|
value = insn[0] & 511;
|
if ((operand->flags & ARC_OPERAND_SIGNED)
|
if ((operand->flags & ARC_OPERAND_SIGNED)
|
&& (value & 256))
|
&& (value & 256))
|
value -= 512;
|
value -= 512;
|
flagshimm_handled_p = 1;
|
flagshimm_handled_p = 1;
|
}
|
}
|
else if (regno == ARC_REG_SHIMM_UPDATE)
|
else if (regno == ARC_REG_SHIMM_UPDATE)
|
{
|
{
|
value = insn[0] & 511;
|
value = insn[0] & 511;
|
if ((operand->flags & ARC_OPERAND_SIGNED)
|
if ((operand->flags & ARC_OPERAND_SIGNED)
|
&& (value & 256))
|
&& (value & 256))
|
value -= 512;
|
value -= 512;
|
flag_p = 1;
|
flag_p = 1;
|
flagshimm_handled_p = 1;
|
flagshimm_handled_p = 1;
|
}
|
}
|
else if (regno == ARC_REG_LIMM)
|
else if (regno == ARC_REG_LIMM)
|
{
|
{
|
value = insn[1];
|
value = insn[1];
|
limm_p = 1;
|
limm_p = 1;
|
}
|
}
|
/* It's a register, set OPVAL (that's the only way we distinguish registers
|
/* It's a register, set OPVAL (that's the only way we distinguish registers
|
from constants here). */
|
from constants here). */
|
else
|
else
|
{
|
{
|
const struct arc_operand_value *reg = lookup_register (REG, regno);
|
const struct arc_operand_value *reg = lookup_register (REG, regno);
|
|
|
if (reg == NULL)
|
if (reg == NULL)
|
abort ();
|
abort ();
|
if (opval != NULL)
|
if (opval != NULL)
|
*opval = reg;
|
*opval = reg;
|
value = regno;
|
value = regno;
|
}
|
}
|
|
|
/* If this field takes an auxiliary register, see if it's a known one. */
|
/* If this field takes an auxiliary register, see if it's a known one. */
|
if ((mods & ARC_MOD_AUXREG)
|
if ((mods & ARC_MOD_AUXREG)
|
&& ARC_REG_CONSTANT_P (regno))
|
&& ARC_REG_CONSTANT_P (regno))
|
{
|
{
|
const struct arc_operand_value *reg = lookup_register (AUXREG, value);
|
const struct arc_operand_value *reg = lookup_register (AUXREG, value);
|
|
|
/* This is really a constant, but tell the caller it has a special
|
/* This is really a constant, but tell the caller it has a special
|
name. */
|
name. */
|
if (reg != NULL && opval != NULL)
|
if (reg != NULL && opval != NULL)
|
*opval = reg;
|
*opval = reg;
|
}
|
}
|
|
|
return value;
|
return value;
|
}
|
}
|
|
|
/* Return the value of the "flag update" field for shimm insns.
|
/* Return the value of the "flag update" field for shimm insns.
|
This value is actually stored in the register field. */
|
This value is actually stored in the register field. */
|
|
|
static long
|
static long
|
extract_flag (insn, operand, mods, opval, invalid)
|
extract_flag (insn, operand, mods, opval, invalid)
|
arc_insn *insn;
|
arc_insn *insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value **opval;
|
const struct arc_operand_value **opval;
|
int *invalid;
|
int *invalid;
|
{
|
{
|
int f;
|
int f;
|
const struct arc_operand_value *val;
|
const struct arc_operand_value *val;
|
|
|
if (flagshimm_handled_p)
|
if (flagshimm_handled_p)
|
f = flag_p != 0;
|
f = flag_p != 0;
|
else
|
else
|
f = (insn[0] & (1 << operand->shift)) != 0;
|
f = (insn[0] & (1 << operand->shift)) != 0;
|
|
|
/* There is no text for zero values. */
|
/* There is no text for zero values. */
|
if (f == 0)
|
if (f == 0)
|
return 0;
|
return 0;
|
|
|
val = arc_opcode_lookup_suffix (operand, 1);
|
val = arc_opcode_lookup_suffix (operand, 1);
|
if (opval != NULL && val != NULL)
|
if (opval != NULL && val != NULL)
|
*opval = val;
|
*opval = val;
|
return val->value;
|
return val->value;
|
}
|
}
|
|
|
/* Extract the condition code (if it exists).
|
/* Extract the condition code (if it exists).
|
If we've seen a shimm value in this insn (meaning that the insn can't have
|
If we've seen a shimm value in this insn (meaning that the insn can't have
|
a condition code field), then we don't store anything in OPVAL and return
|
a condition code field), then we don't store anything in OPVAL and return
|
zero. */
|
zero. */
|
|
|
static long
|
static long
|
extract_cond (insn, operand, mods, opval, invalid)
|
extract_cond (insn, operand, mods, opval, invalid)
|
arc_insn *insn;
|
arc_insn *insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value **opval;
|
const struct arc_operand_value **opval;
|
int *invalid;
|
int *invalid;
|
{
|
{
|
long cond;
|
long cond;
|
const struct arc_operand_value *val;
|
const struct arc_operand_value *val;
|
|
|
if (flagshimm_handled_p)
|
if (flagshimm_handled_p)
|
return 0;
|
return 0;
|
|
|
cond = (insn[0] >> operand->shift) & ((1 << operand->bits) - 1);
|
cond = (insn[0] >> operand->shift) & ((1 << operand->bits) - 1);
|
val = arc_opcode_lookup_suffix (operand, cond);
|
val = arc_opcode_lookup_suffix (operand, cond);
|
|
|
/* Ignore NULL values of `val'. Several condition code values are
|
/* Ignore NULL values of `val'. Several condition code values are
|
reserved for extensions. */
|
reserved for extensions. */
|
if (opval != NULL && val != NULL)
|
if (opval != NULL && val != NULL)
|
*opval = val;
|
*opval = val;
|
return cond;
|
return cond;
|
}
|
}
|
|
|
/* Extract a branch address.
|
/* Extract a branch address.
|
We return the value as a real address (not right shifted by 2). */
|
We return the value as a real address (not right shifted by 2). */
|
|
|
static long
|
static long
|
extract_reladdr (insn, operand, mods, opval, invalid)
|
extract_reladdr (insn, operand, mods, opval, invalid)
|
arc_insn *insn;
|
arc_insn *insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value **opval;
|
const struct arc_operand_value **opval;
|
int *invalid;
|
int *invalid;
|
{
|
{
|
long addr;
|
long addr;
|
|
|
addr = (insn[0] >> operand->shift) & ((1 << operand->bits) - 1);
|
addr = (insn[0] >> operand->shift) & ((1 << operand->bits) - 1);
|
if ((operand->flags & ARC_OPERAND_SIGNED)
|
if ((operand->flags & ARC_OPERAND_SIGNED)
|
&& (addr & (1 << (operand->bits - 1))))
|
&& (addr & (1 << (operand->bits - 1))))
|
addr -= 1 << operand->bits;
|
addr -= 1 << operand->bits;
|
|
|
return addr << 2;
|
return addr << 2;
|
}
|
}
|
|
|
/* The only thing this does is set the `invalid' flag if B != C.
|
/* The only thing this does is set the `invalid' flag if B != C.
|
This is needed because the "mov" macro appears before it's real insn "and"
|
This is needed because the "mov" macro appears before it's real insn "and"
|
and we don't want the disassembler to confuse them. */
|
and we don't want the disassembler to confuse them. */
|
|
|
static long
|
static long
|
extract_unopmacro (insn, operand, mods, opval, invalid)
|
extract_unopmacro (insn, operand, mods, opval, invalid)
|
arc_insn *insn;
|
arc_insn *insn;
|
const struct arc_operand *operand;
|
const struct arc_operand *operand;
|
int mods;
|
int mods;
|
const struct arc_operand_value **opval;
|
const struct arc_operand_value **opval;
|
int *invalid;
|
int *invalid;
|
{
|
{
|
/* This misses the case where B == ARC_REG_SHIMM_UPDATE &&
|
/* This misses the case where B == ARC_REG_SHIMM_UPDATE &&
|
C == ARC_REG_SHIMM (or vice versa). No big deal. Those insns will get
|
C == ARC_REG_SHIMM (or vice versa). No big deal. Those insns will get
|
printed as "and"s. */
|
printed as "and"s. */
|
if (((insn[0] >> ARC_SHIFT_REGB) & ARC_MASK_REG)
|
if (((insn[0] >> ARC_SHIFT_REGB) & ARC_MASK_REG)
|
!= ((insn[0] >> ARC_SHIFT_REGC) & ARC_MASK_REG))
|
!= ((insn[0] >> ARC_SHIFT_REGC) & ARC_MASK_REG))
|
if (invalid != NULL)
|
if (invalid != NULL)
|
*invalid = 1;
|
*invalid = 1;
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Utility for the extraction functions to return the index into
|
/* Utility for the extraction functions to return the index into
|
`arc_suffixes'. */
|
`arc_suffixes'. */
|
|
|
const struct arc_operand_value *
|
const struct arc_operand_value *
|
arc_opcode_lookup_suffix (type, value)
|
arc_opcode_lookup_suffix (type, value)
|
const struct arc_operand *type;
|
const struct arc_operand *type;
|
int value;
|
int value;
|
{
|
{
|
register const struct arc_operand_value *v,*end;
|
register const struct arc_operand_value *v,*end;
|
|
|
/* ??? This is a little slow and can be speeded up. */
|
/* ??? This is a little slow and can be speeded up. */
|
|
|
for (v = arc_suffixes, end = arc_suffixes + arc_suffixes_count; v < end; ++v)
|
for (v = arc_suffixes, end = arc_suffixes + arc_suffixes_count; v < end; ++v)
|
if (type == &arc_operands[v->type]
|
if (type == &arc_operands[v->type]
|
&& value == v->value)
|
&& value == v->value)
|
return v;
|
return v;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
static const struct arc_operand_value *
|
static const struct arc_operand_value *
|
lookup_register (type, regno)
|
lookup_register (type, regno)
|
int type;
|
int type;
|
long regno;
|
long regno;
|
{
|
{
|
register const struct arc_operand_value *r,*end;
|
register const struct arc_operand_value *r,*end;
|
|
|
if (type == REG)
|
if (type == REG)
|
return &arc_reg_names[regno];
|
return &arc_reg_names[regno];
|
|
|
/* ??? This is a little slow and can be speeded up. */
|
/* ??? This is a little slow and can be speeded up. */
|
|
|
for (r = arc_reg_names, end = arc_reg_names + arc_reg_names_count;
|
for (r = arc_reg_names, end = arc_reg_names + arc_reg_names_count;
|
r < end; ++r)
|
r < end; ++r)
|
if (type == r->type && regno == r->value)
|
if (type == r->type && regno == r->value)
|
return r;
|
return r;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
