mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-08 05:54:40 +00:00
904 lines
20 KiB
C
904 lines
20 KiB
C
/* Instruction opcode table for ip2k.
|
||
|
||
THIS FILE IS MACHINE GENERATED WITH CGEN.
|
||
|
||
Copyright 1996-2010 Free Software Foundation, Inc.
|
||
|
||
This file is part of the GNU Binutils and/or GDB, the GNU debugger.
|
||
|
||
This file is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 3, or (at your option)
|
||
any later version.
|
||
|
||
It is distributed in the hope that it will be useful, but WITHOUT
|
||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
||
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
|
||
License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License along
|
||
with this program; if not, write to the Free Software Foundation, Inc.,
|
||
51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
|
||
|
||
*/
|
||
|
||
#include "sysdep.h"
|
||
#include "ansidecl.h"
|
||
#include "bfd.h"
|
||
#include "symcat.h"
|
||
#include "ip2k-desc.h"
|
||
#include "ip2k-opc.h"
|
||
#include "libiberty.h"
|
||
|
||
/* -- opc.c */
|
||
|
||
#include "safe-ctype.h"
|
||
|
||
/* A better hash function for instruction mnemonics. */
|
||
unsigned int
|
||
ip2k_asm_hash (const char* insn)
|
||
{
|
||
unsigned int hash;
|
||
const char* m = insn;
|
||
|
||
for (hash = 0; *m && ! ISSPACE (*m); m++)
|
||
hash = (hash * 23) ^ (0x1F & TOLOWER (*m));
|
||
|
||
/* printf ("%s %d\n", insn, (hash % CGEN_ASM_HASH_SIZE)); */
|
||
|
||
return hash % CGEN_ASM_HASH_SIZE;
|
||
}
|
||
|
||
|
||
/* Special check to ensure that instruction exists for given machine. */
|
||
|
||
int
|
||
ip2k_cgen_insn_supported (CGEN_CPU_DESC cd, const CGEN_INSN *insn)
|
||
{
|
||
int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH);
|
||
|
||
/* No mach attribute? Assume it's supported for all machs. */
|
||
if (machs == 0)
|
||
return 1;
|
||
|
||
return (machs & cd->machs) != 0;
|
||
}
|
||
|
||
|
||
/* -- asm.c */
|
||
/* The hash functions are recorded here to help keep assembler code out of
|
||
the disassembler and vice versa. */
|
||
|
||
static int asm_hash_insn_p (const CGEN_INSN *);
|
||
static unsigned int asm_hash_insn (const char *);
|
||
static int dis_hash_insn_p (const CGEN_INSN *);
|
||
static unsigned int dis_hash_insn (const char *, CGEN_INSN_INT);
|
||
|
||
/* Instruction formats. */
|
||
|
||
#define F(f) & ip2k_cgen_ifld_table[IP2K_##f]
|
||
static const CGEN_IFMT ifmt_empty ATTRIBUTE_UNUSED = {
|
||
0, 0, 0x0, { { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_jmp ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xe000, { { F (F_OP3) }, { F (F_ADDR16CJP) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_sb ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xf000, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_xorw_l ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_loadl_a ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_loadh_a ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_addcfr_w ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xfe00, { { F (F_OP6) }, { F (F_DIR) }, { F (F_REG) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_speed ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xff00, { { F (F_OP8) }, { F (F_IMM8) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_ireadi ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xffff, { { F (F_OP6) }, { F (F_OP6_10LOW) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_page ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xfff8, { { F (F_OP6) }, { F (F_OP6_7LOW) }, { F (F_PAGE3) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_reti ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xfff8, { { F (F_OP6) }, { F (F_OP6_7LOW) }, { F (F_RETI3) }, { 0 } }
|
||
};
|
||
|
||
#undef F
|
||
|
||
#define A(a) (1 << CGEN_INSN_##a)
|
||
#define OPERAND(op) IP2K_OPERAND_##op
|
||
#define MNEM CGEN_SYNTAX_MNEMONIC /* syntax value for mnemonic */
|
||
#define OP(field) CGEN_SYNTAX_MAKE_FIELD (OPERAND (field))
|
||
|
||
/* The instruction table. */
|
||
|
||
static const CGEN_OPCODE ip2k_cgen_insn_opcode_table[MAX_INSNS] =
|
||
{
|
||
/* Special null first entry.
|
||
A `num' value of zero is thus invalid.
|
||
Also, the special `invalid' insn resides here. */
|
||
{ { 0, 0, 0, 0 }, {{0}}, 0, {0}},
|
||
/* jmp $addr16cjp */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (ADDR16CJP), 0 } },
|
||
& ifmt_jmp, { 0xe000 }
|
||
},
|
||
/* call $addr16cjp */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (ADDR16CJP), 0 } },
|
||
& ifmt_jmp, { 0xc000 }
|
||
},
|
||
/* sb $fr,$bitno */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
|
||
& ifmt_sb, { 0xb000 }
|
||
},
|
||
/* snb $fr,$bitno */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
|
||
& ifmt_sb, { 0xa000 }
|
||
},
|
||
/* setb $fr,$bitno */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
|
||
& ifmt_sb, { 0x9000 }
|
||
},
|
||
/* clrb $fr,$bitno */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
|
||
& ifmt_sb, { 0x8000 }
|
||
},
|
||
/* xor W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7f00 }
|
||
},
|
||
/* and W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7e00 }
|
||
},
|
||
/* or W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7d00 }
|
||
},
|
||
/* add W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7b00 }
|
||
},
|
||
/* sub W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7a00 }
|
||
},
|
||
/* cmp W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7900 }
|
||
},
|
||
/* retw #$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7800 }
|
||
},
|
||
/* cse W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7700 }
|
||
},
|
||
/* csne W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7600 }
|
||
},
|
||
/* push #$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7400 }
|
||
},
|
||
/* muls W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7300 }
|
||
},
|
||
/* mulu W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7200 }
|
||
},
|
||
/* loadl #$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7100 }
|
||
},
|
||
/* loadh #$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7000 }
|
||
},
|
||
/* loadl $addr16l */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (ADDR16L), 0 } },
|
||
& ifmt_loadl_a, { 0x7100 }
|
||
},
|
||
/* loadh $addr16h */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (ADDR16H), 0 } },
|
||
& ifmt_loadh_a, { 0x7000 }
|
||
},
|
||
/* addc $fr,W */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', 'W', 0 } },
|
||
& ifmt_addcfr_w, { 0x5e00 }
|
||
},
|
||
/* addc W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x5c00 }
|
||
},
|
||
/* incsnz $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x5a00 }
|
||
},
|
||
/* incsnz W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x5800 }
|
||
},
|
||
/* muls W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x5400 }
|
||
},
|
||
/* mulu W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x5000 }
|
||
},
|
||
/* decsnz $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x4e00 }
|
||
},
|
||
/* decsnz W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x4c00 }
|
||
},
|
||
/* subc W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x4800 }
|
||
},
|
||
/* subc $fr,W */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', 'W', 0 } },
|
||
& ifmt_addcfr_w, { 0x4a00 }
|
||
},
|
||
/* pop $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x4600 }
|
||
},
|
||
/* push $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x4400 }
|
||
},
|
||
/* cse W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x4200 }
|
||
},
|
||
/* csne W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x4000 }
|
||
},
|
||
/* incsz $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x3e00 }
|
||
},
|
||
/* incsz W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x3c00 }
|
||
},
|
||
/* swap $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x3a00 }
|
||
},
|
||
/* swap W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x3800 }
|
||
},
|
||
/* rl $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x3600 }
|
||
},
|
||
/* rl W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x3400 }
|
||
},
|
||
/* rr $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x3200 }
|
||
},
|
||
/* rr W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x3000 }
|
||
},
|
||
/* decsz $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x2e00 }
|
||
},
|
||
/* decsz W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x2c00 }
|
||
},
|
||
/* inc $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x2a00 }
|
||
},
|
||
/* inc W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x2800 }
|
||
},
|
||
/* not $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x2600 }
|
||
},
|
||
/* not W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x2400 }
|
||
},
|
||
/* test $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x2200 }
|
||
},
|
||
/* mov W,#$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
|
||
& ifmt_xorw_l, { 0x7c00 }
|
||
},
|
||
/* mov $fr,W */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', 'W', 0 } },
|
||
& ifmt_addcfr_w, { 0x200 }
|
||
},
|
||
/* mov W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x2000 }
|
||
},
|
||
/* add $fr,W */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', 'W', 0 } },
|
||
& ifmt_addcfr_w, { 0x1e00 }
|
||
},
|
||
/* add W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x1c00 }
|
||
},
|
||
/* xor $fr,W */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', 'W', 0 } },
|
||
& ifmt_addcfr_w, { 0x1a00 }
|
||
},
|
||
/* xor W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x1800 }
|
||
},
|
||
/* and $fr,W */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', 'W', 0 } },
|
||
& ifmt_addcfr_w, { 0x1600 }
|
||
},
|
||
/* and W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x1400 }
|
||
},
|
||
/* or $fr,W */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', 'W', 0 } },
|
||
& ifmt_addcfr_w, { 0x1200 }
|
||
},
|
||
/* or W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x1000 }
|
||
},
|
||
/* dec $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0xe00 }
|
||
},
|
||
/* dec W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0xc00 }
|
||
},
|
||
/* sub $fr,W */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), ',', 'W', 0 } },
|
||
& ifmt_addcfr_w, { 0xa00 }
|
||
},
|
||
/* sub W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x800 }
|
||
},
|
||
/* clr $fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x600 }
|
||
},
|
||
/* cmp W,$fr */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', 'W', ',', OP (FR), 0 } },
|
||
& ifmt_addcfr_w, { 0x400 }
|
||
},
|
||
/* speed #$lit8 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', '#', OP (LIT8), 0 } },
|
||
& ifmt_speed, { 0x100 }
|
||
},
|
||
/* ireadi */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x1d }
|
||
},
|
||
/* iwritei */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x1c }
|
||
},
|
||
/* fread */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x1b }
|
||
},
|
||
/* fwrite */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x1a }
|
||
},
|
||
/* iread */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x19 }
|
||
},
|
||
/* iwrite */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x18 }
|
||
},
|
||
/* page $addr16p */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', OP (ADDR16P), 0 } },
|
||
& ifmt_page, { 0x10 }
|
||
},
|
||
/* system */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0xff }
|
||
},
|
||
/* reti #$reti3 */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, ' ', '#', OP (RETI3), 0 } },
|
||
& ifmt_reti, { 0x8 }
|
||
},
|
||
/* ret */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x7 }
|
||
},
|
||
/* int */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x6 }
|
||
},
|
||
/* breakx */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x5 }
|
||
},
|
||
/* cwdt */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x4 }
|
||
},
|
||
/* ferase */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x3 }
|
||
},
|
||
/* retnp */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x2 }
|
||
},
|
||
/* break */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x1 }
|
||
},
|
||
/* nop */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_ireadi, { 0x0 }
|
||
},
|
||
};
|
||
|
||
#undef A
|
||
#undef OPERAND
|
||
#undef MNEM
|
||
#undef OP
|
||
|
||
/* Formats for ALIAS macro-insns. */
|
||
|
||
#define F(f) & ip2k_cgen_ifld_table[IP2K_##f]
|
||
static const CGEN_IFMT ifmt_sc ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_snc ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_sz ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_snz ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_skip ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
|
||
};
|
||
|
||
static const CGEN_IFMT ifmt_skipb ATTRIBUTE_UNUSED = {
|
||
16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
|
||
};
|
||
|
||
#undef F
|
||
|
||
/* Each non-simple macro entry points to an array of expansion possibilities. */
|
||
|
||
#define A(a) (1 << CGEN_INSN_##a)
|
||
#define OPERAND(op) IP2K_OPERAND_##op
|
||
#define MNEM CGEN_SYNTAX_MNEMONIC /* syntax value for mnemonic */
|
||
#define OP(field) CGEN_SYNTAX_MAKE_FIELD (OPERAND (field))
|
||
|
||
/* The macro instruction table. */
|
||
|
||
static const CGEN_IBASE ip2k_cgen_macro_insn_table[] =
|
||
{
|
||
/* sc */
|
||
{
|
||
-1, "sc", "sc", 16,
|
||
{ 0|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
|
||
},
|
||
/* snc */
|
||
{
|
||
-1, "snc", "snc", 16,
|
||
{ 0|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
|
||
},
|
||
/* sz */
|
||
{
|
||
-1, "sz", "sz", 16,
|
||
{ 0|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
|
||
},
|
||
/* snz */
|
||
{
|
||
-1, "snz", "snz", 16,
|
||
{ 0|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
|
||
},
|
||
/* skip */
|
||
{
|
||
-1, "skip", "skip", 16,
|
||
{ 0|A(SKIPA)|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
|
||
},
|
||
/* skip */
|
||
{
|
||
-1, "skipb", "skip", 16,
|
||
{ 0|A(SKIPA)|A(ALIAS), { { { (1<<MACH_BASE), 0 } } } }
|
||
},
|
||
};
|
||
|
||
/* The macro instruction opcode table. */
|
||
|
||
static const CGEN_OPCODE ip2k_cgen_macro_insn_opcode_table[] =
|
||
{
|
||
/* sc */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_sc, { 0xb00b }
|
||
},
|
||
/* snc */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_snc, { 0xa00b }
|
||
},
|
||
/* sz */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_sz, { 0xb40b }
|
||
},
|
||
/* snz */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_snz, { 0xa40b }
|
||
},
|
||
/* skip */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_skip, { 0xa009 }
|
||
},
|
||
/* skip */
|
||
{
|
||
{ 0, 0, 0, 0 },
|
||
{ { MNEM, 0 } },
|
||
& ifmt_skipb, { 0xb009 }
|
||
},
|
||
};
|
||
|
||
#undef A
|
||
#undef OPERAND
|
||
#undef MNEM
|
||
#undef OP
|
||
|
||
#ifndef CGEN_ASM_HASH_P
|
||
#define CGEN_ASM_HASH_P(insn) 1
|
||
#endif
|
||
|
||
#ifndef CGEN_DIS_HASH_P
|
||
#define CGEN_DIS_HASH_P(insn) 1
|
||
#endif
|
||
|
||
/* Return non-zero if INSN is to be added to the hash table.
|
||
Targets are free to override CGEN_{ASM,DIS}_HASH_P in the .opc file. */
|
||
|
||
static int
|
||
asm_hash_insn_p (insn)
|
||
const CGEN_INSN *insn ATTRIBUTE_UNUSED;
|
||
{
|
||
return CGEN_ASM_HASH_P (insn);
|
||
}
|
||
|
||
static int
|
||
dis_hash_insn_p (insn)
|
||
const CGEN_INSN *insn;
|
||
{
|
||
/* If building the hash table and the NO-DIS attribute is present,
|
||
ignore. */
|
||
if (CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_NO_DIS))
|
||
return 0;
|
||
return CGEN_DIS_HASH_P (insn);
|
||
}
|
||
|
||
#ifndef CGEN_ASM_HASH
|
||
#define CGEN_ASM_HASH_SIZE 127
|
||
#ifdef CGEN_MNEMONIC_OPERANDS
|
||
#define CGEN_ASM_HASH(mnem) (*(unsigned char *) (mnem) % CGEN_ASM_HASH_SIZE)
|
||
#else
|
||
#define CGEN_ASM_HASH(mnem) (*(unsigned char *) (mnem) % CGEN_ASM_HASH_SIZE) /*FIXME*/
|
||
#endif
|
||
#endif
|
||
|
||
/* It doesn't make much sense to provide a default here,
|
||
but while this is under development we do.
|
||
BUFFER is a pointer to the bytes of the insn, target order.
|
||
VALUE is the first base_insn_bitsize bits as an int in host order. */
|
||
|
||
#ifndef CGEN_DIS_HASH
|
||
#define CGEN_DIS_HASH_SIZE 256
|
||
#define CGEN_DIS_HASH(buf, value) (*(unsigned char *) (buf))
|
||
#endif
|
||
|
||
/* The result is the hash value of the insn.
|
||
Targets are free to override CGEN_{ASM,DIS}_HASH in the .opc file. */
|
||
|
||
static unsigned int
|
||
asm_hash_insn (mnem)
|
||
const char * mnem;
|
||
{
|
||
return CGEN_ASM_HASH (mnem);
|
||
}
|
||
|
||
/* BUF is a pointer to the bytes of the insn, target order.
|
||
VALUE is the first base_insn_bitsize bits as an int in host order. */
|
||
|
||
static unsigned int
|
||
dis_hash_insn (buf, value)
|
||
const char * buf ATTRIBUTE_UNUSED;
|
||
CGEN_INSN_INT value ATTRIBUTE_UNUSED;
|
||
{
|
||
return CGEN_DIS_HASH (buf, value);
|
||
}
|
||
|
||
/* Set the recorded length of the insn in the CGEN_FIELDS struct. */
|
||
|
||
static void
|
||
set_fields_bitsize (CGEN_FIELDS *fields, int size)
|
||
{
|
||
CGEN_FIELDS_BITSIZE (fields) = size;
|
||
}
|
||
|
||
/* Function to call before using the operand instance table.
|
||
This plugs the opcode entries and macro instructions into the cpu table. */
|
||
|
||
void
|
||
ip2k_cgen_init_opcode_table (CGEN_CPU_DESC cd)
|
||
{
|
||
int i;
|
||
int num_macros = (sizeof (ip2k_cgen_macro_insn_table) /
|
||
sizeof (ip2k_cgen_macro_insn_table[0]));
|
||
const CGEN_IBASE *ib = & ip2k_cgen_macro_insn_table[0];
|
||
const CGEN_OPCODE *oc = & ip2k_cgen_macro_insn_opcode_table[0];
|
||
CGEN_INSN *insns = xmalloc (num_macros * sizeof (CGEN_INSN));
|
||
|
||
/* This test has been added to avoid a warning generated
|
||
if memset is called with a third argument of value zero. */
|
||
if (num_macros >= 1)
|
||
memset (insns, 0, num_macros * sizeof (CGEN_INSN));
|
||
for (i = 0; i < num_macros; ++i)
|
||
{
|
||
insns[i].base = &ib[i];
|
||
insns[i].opcode = &oc[i];
|
||
ip2k_cgen_build_insn_regex (& insns[i]);
|
||
}
|
||
cd->macro_insn_table.init_entries = insns;
|
||
cd->macro_insn_table.entry_size = sizeof (CGEN_IBASE);
|
||
cd->macro_insn_table.num_init_entries = num_macros;
|
||
|
||
oc = & ip2k_cgen_insn_opcode_table[0];
|
||
insns = (CGEN_INSN *) cd->insn_table.init_entries;
|
||
for (i = 0; i < MAX_INSNS; ++i)
|
||
{
|
||
insns[i].opcode = &oc[i];
|
||
ip2k_cgen_build_insn_regex (& insns[i]);
|
||
}
|
||
|
||
cd->sizeof_fields = sizeof (CGEN_FIELDS);
|
||
cd->set_fields_bitsize = set_fields_bitsize;
|
||
|
||
cd->asm_hash_p = asm_hash_insn_p;
|
||
cd->asm_hash = asm_hash_insn;
|
||
cd->asm_hash_size = CGEN_ASM_HASH_SIZE;
|
||
|
||
cd->dis_hash_p = dis_hash_insn_p;
|
||
cd->dis_hash = dis_hash_insn;
|
||
cd->dis_hash_size = CGEN_DIS_HASH_SIZE;
|
||
}
|