[thirdparty/binutils-gdb.git] / sim / d10v / d10v_sim.h

#include "config.h"
#include <stdio.h>
#include <ctype.h>
#include <limits.h>
#include "ansidecl.h"
#include "gdb/callback.h"
#include "opcode/d10v.h"
#include "bfd.h"

#define DEBUG_TRACE		0x00000001
#define DEBUG_VALUES		0x00000002
#define DEBUG_LINE_NUMBER	0x00000004
#define DEBUG_MEMSIZE		0x00000008
#define DEBUG_INSTRUCTION	0x00000010
#define DEBUG_TRAP		0x00000020
#define DEBUG_MEMORY		0x00000040

#ifndef	DEBUG
#define	DEBUG (DEBUG_TRACE | DEBUG_VALUES | DEBUG_LINE_NUMBER)
#endif

extern int d10v_debug;

#include "gdb/remote-sim.h"
#include "sim-config.h"
#include "sim-types.h"

typedef unsigned8 uint8;
typedef unsigned16 uint16;
typedef signed16 int16;
typedef unsigned32 uint32;
typedef signed32 int32;
typedef unsigned64 uint64;
typedef signed64 int64;

/* FIXME: D10V defines */
typedef uint16 reg_t;

struct simops 
{
  long opcode;
  int  is_long;
  long mask;
  int format;
  int cycles;
  int unit;
  int exec_type;
  void (*func)();
  int numops;
  int operands[9];
};

enum _ins_type
{
  INS_UNKNOWN,			/* unknown instruction */
  INS_COND_TRUE,		/* # times EXExxx executed other instruction */
  INS_COND_FALSE,		/* # times EXExxx did not execute other instruction */
  INS_COND_JUMP,		/* # times JUMP skipped other instruction */
  INS_CYCLES,			/* # cycles */
  INS_LONG,			/* long instruction (both containers, ie FM == 11) */
  INS_LEFTRIGHT,		/* # times instruction encoded as L -> R (ie, FM == 01) */
  INS_RIGHTLEFT,		/* # times instruction encoded as L <- R (ie, FM == 10) */
  INS_PARALLEL,			/* # times instruction encoded as L || R (ie, RM == 00) */

  INS_LEFT,			/* normal left instructions */
  INS_LEFT_PARALLEL,		/* left side of || */
  INS_LEFT_COND_TEST,		/* EXExx test on left side */
  INS_LEFT_COND_EXE,		/* execution after EXExxx test on right side succeeded */
  INS_LEFT_NOPS,		/* NOP on left side */

  INS_RIGHT,			/* normal right instructions */
  INS_RIGHT_PARALLEL,		/* right side of || */
  INS_RIGHT_COND_TEST,		/* EXExx test on right side */
  INS_RIGHT_COND_EXE,		/* execution after EXExxx test on left side succeeded */
  INS_RIGHT_NOPS,		/* NOP on right side */

  INS_MAX
};

extern unsigned long ins_type_counters[ (int)INS_MAX ];

enum {
  SP_IDX = 15,
};

/* Write-back slots */
union slot_data {
  unsigned_1 _1;
  unsigned_2 _2;
  unsigned_4 _4;
  unsigned_8 _8;
};
struct slot {
  void *dest;
  int size;
  union slot_data data;
  union slot_data mask;
};
enum {
 NR_SLOTS = 16,
};
#define SLOT (State.slot)
#define SLOT_NR (State.slot_nr)
#define SLOT_PEND_MASK(DEST, MSK, VAL) \
  do \
    { \
      SLOT[SLOT_NR].dest = &(DEST); \
      SLOT[SLOT_NR].size = sizeof (DEST); \
      switch (sizeof (DEST)) \
        { \
        case 1: \
          SLOT[SLOT_NR].data._1 = (unsigned_1) (VAL); \
          SLOT[SLOT_NR].mask._1 = (unsigned_1) (MSK); \
          break; \
        case 2: \
          SLOT[SLOT_NR].data._2 = (unsigned_2) (VAL); \
          SLOT[SLOT_NR].mask._2 = (unsigned_2) (MSK); \
          break; \
        case 4: \
          SLOT[SLOT_NR].data._4 = (unsigned_4) (VAL); \
          SLOT[SLOT_NR].mask._4 = (unsigned_4) (MSK); \
          break; \
        case 8: \
          SLOT[SLOT_NR].data._8 = (unsigned_8) (VAL); \
          SLOT[SLOT_NR].mask._8 = (unsigned_8) (MSK); \
          break; \
        } \
      SLOT_NR = (SLOT_NR + 1); \
    } \
  while (0)
#define SLOT_PEND(DEST, VAL) SLOT_PEND_MASK(DEST, 0, VAL)
#define SLOT_DISCARD() (SLOT_NR = 0)
#define SLOT_FLUSH() \
  do \
    { \
      int i; \
      for (i = 0; i < SLOT_NR; i++) \
	{ \
	  switch (SLOT[i].size) \
	    { \
	    case 1: \
	      *(unsigned_1*) SLOT[i].dest &= SLOT[i].mask._1; \
	      *(unsigned_1*) SLOT[i].dest |= SLOT[i].data._1; \
	      break; \
	    case 2: \
	      *(unsigned_2*) SLOT[i].dest &= SLOT[i].mask._2; \
	      *(unsigned_2*) SLOT[i].dest |= SLOT[i].data._2; \
	      break; \
	    case 4: \
	      *(unsigned_4*) SLOT[i].dest &= SLOT[i].mask._4; \
	      *(unsigned_4*) SLOT[i].dest |= SLOT[i].data._4; \
	      break; \
	    case 8: \
	      *(unsigned_8*) SLOT[i].dest &= SLOT[i].mask._8; \
	      *(unsigned_8*) SLOT[i].dest |= SLOT[i].data._8; \
	      break; \
	    } \
        } \
      SLOT_NR = 0; \
    } \
  while (0)
#define SLOT_DUMP() \
  do \
    { \
      int i; \
      for (i = 0; i < SLOT_NR; i++) \
	{ \
	  switch (SLOT[i].size) \
	    { \
	    case 1: \
              printf ("SLOT %d *0x%08lx & 0x%02x | 0x%02x\n", i, \
		      (long) SLOT[i].dest, \
                      (unsigned) SLOT[i].mask._1, \
                      (unsigned) SLOT[i].data._1); \
	      break; \
	    case 2: \
              printf ("SLOT %d *0x%08lx & 0x%04x | 0x%04x\n", i, \
		      (long) SLOT[i].dest, \
                      (unsigned) SLOT[i].mask._2, \
                      (unsigned) SLOT[i].data._2); \
	      break; \
	    case 4: \
              printf ("SLOT %d *0x%08lx & 0x%08x | 0x%08x\n", i, \
		      (long) SLOT[i].dest, \
                      (unsigned) SLOT[i].mask._4, \
                      (unsigned) SLOT[i].data._4); \
	      break; \
	    case 8: \
              printf ("SLOT %d *0x%08lx & 0x%08x%08x | 0x%08x%08x\n", i, \
		      (long) SLOT[i].dest, \
                      (unsigned) (SLOT[i].mask._8 >> 32),  \
                      (unsigned) SLOT[i].mask._8, \
                      (unsigned) (SLOT[i].data._8 >> 32),  \
                      (unsigned) SLOT[i].data._8); \
	      break; \
	    } \
        } \
    } \
  while (0)

/* d10v memory: There are three separate d10v memory regions IMEM,
   UMEM and DMEM.  The IMEM and DMEM are further broken down into
   blocks (very like VM pages). */

enum
{
  IMAP_BLOCK_SIZE = 0x20000,
  DMAP_BLOCK_SIZE = 0x4000,
};

/* Implement the three memory regions using sparse arrays.  Allocate
   memory using ``segments''.  A segment must be at least as large as
   a BLOCK - ensures that an access that doesn't cross a block
   boundary can't cross a segment boundary */

enum
{
  SEGMENT_SIZE = 0x20000, /* 128KB - MAX(IMAP_BLOCK_SIZE,DMAP_BLOCK_SIZE) */
  IMEM_SEGMENTS = 8, /* 1MB */
  DMEM_SEGMENTS = 8, /* 1MB */
  UMEM_SEGMENTS = 128 /* 16MB */
};

struct d10v_memory
{
  uint8 *insn[IMEM_SEGMENTS];
  uint8 *data[DMEM_SEGMENTS];
  uint8 *unif[UMEM_SEGMENTS];
  uint8 fault[16];
};

struct _state
{
  reg_t regs[16];		/* general-purpose registers */
#define GPR(N) (State.regs[(N)] + 0)
#define SET_GPR(N,VAL) SLOT_PEND (State.regs[(N)], (VAL))

#define GPR32(N) ((((uint32) State.regs[(N) + 0]) << 16) \
		  | (uint16) State.regs[(N) + 1])
#define SET_GPR32(N,VAL) do { SET_GPR (OP[0] + 0, (VAL) >> 16); SET_GPR (OP[0] + 1, (VAL)); } while (0)

  reg_t cregs[16];		/* control registers */
#define CREG(N) (State.cregs[(N)] + 0)
#define SET_CREG(N,VAL) move_to_cr ((N), 0, (VAL), 0)
#define SET_HW_CREG(N,VAL) move_to_cr ((N), 0, (VAL), 1)

  reg_t sp[2];                  /* holding area for SPI(0)/SPU(1) */
#define HELD_SP(N) (State.sp[(N)] + 0)
#define SET_HELD_SP(N,VAL) SLOT_PEND (State.sp[(N)], (VAL))

  int64 a[2];			/* accumulators */
#define ACC(N) (State.a[(N)] + 0)
#define SET_ACC(N,VAL) SLOT_PEND (State.a[(N)], (VAL) & MASK40)

  /* writeback info */
  struct slot slot[NR_SLOTS];
  int slot_nr;

  /* trace data */
  struct {
    uint16 psw;
  } trace;

  uint8 exe;
  int	exception;
  int	pc_changed;

  /* NOTE: everything below this line is not reset by
     sim_create_inferior() */

  struct d10v_memory mem;

  enum _ins_type ins_type;

} State;


extern host_callback *d10v_callback;
extern uint16 OP[4];
extern struct simops Simops[];

enum
{
  PSW_CR = 0,
  BPSW_CR = 1,
  PC_CR = 2,
  BPC_CR = 3,
  DPSW_CR = 4,
  DPC_CR = 5,
  RPT_C_CR = 7,
  RPT_S_CR = 8,
  RPT_E_CR = 9,
  MOD_S_CR = 10,
  MOD_E_CR = 11,
  IBA_CR = 14,
};

enum
{
  PSW_SM_BIT = 0x8000,
  PSW_EA_BIT = 0x2000,
  PSW_DB_BIT = 0x1000,
  PSW_DM_BIT = 0x0800,
  PSW_IE_BIT = 0x0400,
  PSW_RP_BIT = 0x0200,
  PSW_MD_BIT = 0x0100,
  PSW_FX_BIT = 0x0080,
  PSW_ST_BIT = 0x0040,
  PSW_F0_BIT = 0x0008,
  PSW_F1_BIT = 0x0004,
  PSW_C_BIT =  0x0001,
};

#define PSW CREG (PSW_CR)
#define SET_PSW(VAL) SET_CREG (PSW_CR, (VAL))
#define SET_HW_PSW(VAL) SET_HW_CREG (PSW_CR, (VAL))
#define SET_PSW_BIT(MASK,VAL) move_to_cr (PSW_CR, ~((reg_t) MASK), (VAL) ? (MASK) : 0, 1)

#define PSW_SM ((PSW & PSW_SM_BIT) != 0)
#define SET_PSW_SM(VAL) SET_PSW_BIT (PSW_SM_BIT, (VAL))

#define PSW_EA ((PSW & PSW_EA_BIT) != 0)
#define SET_PSW_EA(VAL) SET_PSW_BIT (PSW_EA_BIT, (VAL))

#define PSW_DB ((PSW & PSW_DB_BIT) != 0)
#define SET_PSW_DB(VAL) SET_PSW_BIT (PSW_DB_BIT, (VAL))

#define PSW_DM ((PSW & PSW_DM_BIT) != 0)
#define SET_PSW_DM(VAL) SET_PSW_BIT (PSW_DM_BIT, (VAL))

#define PSW_IE ((PSW & PSW_IE_BIT) != 0)
#define SET_PSW_IE(VAL) SET_PSW_BIT (PSW_IE_BIT, (VAL))

#define PSW_RP ((PSW & PSW_RP_BIT) != 0)
#define SET_PSW_RP(VAL) SET_PSW_BIT (PSW_RP_BIT, (VAL))

#define PSW_MD ((PSW & PSW_MD_BIT) != 0)
#define SET_PSW_MD(VAL) SET_PSW_BIT (PSW_MD_BIT, (VAL))

#define PSW_FX ((PSW & PSW_FX_BIT) != 0)
#define SET_PSW_FX(VAL) SET_PSW_BIT (PSW_FX_BIT, (VAL))

#define PSW_ST ((PSW & PSW_ST_BIT) != 0)
#define SET_PSW_ST(VAL) SET_PSW_BIT (PSW_ST_BIT, (VAL))

#define PSW_F0 ((PSW & PSW_F0_BIT) != 0)
#define SET_PSW_F0(VAL) SET_PSW_BIT (PSW_F0_BIT, (VAL))

#define PSW_F1 ((PSW & PSW_F1_BIT) != 0)
#define SET_PSW_F1(VAL) SET_PSW_BIT (PSW_F1_BIT, (VAL))

#define PSW_C ((PSW & PSW_C_BIT) != 0)
#define SET_PSW_C(VAL) SET_PSW_BIT (PSW_C_BIT, (VAL))

/* See simopsc.:move_to_cr() for registers that can not be read-from
   or assigned-to directly */

#define PC	CREG (PC_CR)
#define SET_PC(VAL) SET_CREG (PC_CR, (VAL))

#define BPSW	CREG (BPSW_CR)
#define SET_BPSW(VAL) SET_CREG (BPSW_CR, (VAL))

#define BPC	CREG (BPC_CR)
#define SET_BPC(VAL) SET_CREG (BPC_CR, (VAL))

#define DPSW	CREG (DPSW_CR)
#define SET_DPSW(VAL) SET_CREG (DPSW_CR, (VAL))

#define DPC	CREG (DPC_CR)
#define SET_DPC(VAL) SET_CREG (DPC_CR, (VAL))

#define RPT_C	CREG (RPT_C_CR)
#define SET_RPT_C(VAL) SET_CREG (RPT_C_CR, (VAL))

#define RPT_S	CREG (RPT_S_CR)
#define SET_RPT_S(VAL) SET_CREG (RPT_S_CR, (VAL))

#define RPT_E	CREG (RPT_E_CR)
#define SET_RPT_E(VAL) SET_CREG (RPT_E_CR, (VAL))

#define MOD_S	CREG (MOD_S_CR)
#define SET_MOD_S(VAL) SET_CREG (MOD_S_CR, (VAL))

#define MOD_E	CREG (MOD_E_CR)
#define SET_MOD_E(VAL) SET_CREG (MOD_E_CR, (VAL))

#define IBA	CREG (IBA_CR)
#define SET_IBA(VAL) SET_CREG (IBA_CR, (VAL))


#define SIG_D10V_STOP	-1
#define SIG_D10V_EXIT	-2
#define SIG_D10V_BUS    -3

/* TODO: Resolve conflicts with common headers.  */
#undef SEXT8
#undef SEXT16
#undef SEXT32
#undef MASK32

#define SEXT3(x)	((((x)&0x7)^(~3))+4)	

/* sign-extend a 4-bit number */
#define SEXT4(x)	((((x)&0xf)^(~7))+8)	

/* sign-extend an 8-bit number */
#define SEXT8(x)	((((x)&0xff)^(~0x7f))+0x80)

/* sign-extend a 16-bit number */
#define SEXT16(x)	((((x)&0xffff)^(~0x7fff))+0x8000)

/* sign-extend a 32-bit number */
#define SEXT32(x)	((((x)&SIGNED64(0xffffffff))^(~SIGNED64(0x7fffffff)))+SIGNED64(0x80000000))

/* sign extend a 40 bit number */
#define SEXT40(x)	((((x)&SIGNED64(0xffffffffff))^(~SIGNED64(0x7fffffffff)))+SIGNED64(0x8000000000))

/* sign extend a 44 bit number */
#define SEXT44(x)	((((x)&SIGNED64(0xfffffffffff))^(~SIGNED64(0x7ffffffffff)))+SIGNED64(0x80000000000))

/* sign extend a 56 bit number */
#define SEXT56(x)	((((x)&SIGNED64(0xffffffffffffff))^(~SIGNED64(0x7fffffffffffff)))+SIGNED64(0x80000000000000))

/* sign extend a 60 bit number */
#define SEXT60(x)	((((x)&SIGNED64(0xfffffffffffffff))^(~SIGNED64(0x7ffffffffffffff)))+SIGNED64(0x800000000000000))

#define MAX32	SIGNED64(0x7fffffff)
#define MIN32	SIGNED64(0xff80000000)
#define MASK32	SIGNED64(0xffffffff)
#define MASK40	SIGNED64(0xffffffffff)

/* The alignment of MOD_E in the following macro depends upon "i"
   always being a power of 2. */
#define INC_ADDR(x,i) \
do \
  { \
    int test_i = i < 0 ? i : ~((i) - 1); \
    if (PSW_MD && GPR (x) == (MOD_E & test_i)) \
      SET_GPR (x, MOD_S & test_i); \
    else \
      SET_GPR (x, GPR (x) + (i)); \
  } \
while (0)

extern uint8 *dmem_addr (uint16 offset);
extern uint8 *imem_addr (uint32);
extern bfd_vma decode_pc (void);

#define	RB(x)	(*(dmem_addr(x)))
#define SB(addr,data)	( RB(addr) = (data & 0xff))

#if defined(__GNUC__) && defined(__OPTIMIZE__) && !defined(NO_ENDIAN_INLINE)
#define ENDIAN_INLINE static __inline__
#include "endian.c"
#undef ENDIAN_INLINE

#else
extern uint32 get_longword (uint8 *);
extern uint16 get_word (uint8 *);
extern int64 get_longlong (uint8 *);
extern void write_word (uint8 *addr, uint16 data);
extern void write_longword (uint8 *addr, uint32 data);
extern void write_longlong (uint8 *addr, int64 data);
#endif

#define SW(addr,data)		write_word(dmem_addr(addr),data)
#define RW(x)			get_word(dmem_addr(x))
#define SLW(addr,data)  	write_longword(dmem_addr(addr),data)
#define RLW(x)			get_longword(dmem_addr(x))
#define READ_16(x)		get_word(x)
#define WRITE_16(addr,data)	write_word(addr,data)
#define READ_64(x)		get_longlong(x)
#define WRITE_64(addr,data)	write_longlong(addr,data)

#define JMP(x)			do { SET_PC (x); State.pc_changed = 1; } while (0)

#define RIE_VECTOR_START 0xffc2
#define AE_VECTOR_START 0xffc3
#define TRAP_VECTOR_START 0xffc4	/* vector for trap 0 */
#define DBT_VECTOR_START 0xffd4
#define SDBT_VECTOR_START 0xffd5

/* Scedule a store of VAL into cr[CR].  MASK indicates the bits in
   cr[CR] that should not be modified (i.e. cr[CR] = (cr[CR] & MASK) |
   (VAL & ~MASK)).  In addition, unless PSW_HW_P, a VAL intended for
   PSW is masked for zero bits. */

extern reg_t move_to_cr (int cr, reg_t mask, reg_t val, int psw_hw_p);
Commit	Line	Data
c906108c SS	1	#include "config.h"
	2	#include <stdio.h>
	3	#include <ctype.h>
	4	#include <limits.h>
	5	#include "ansidecl.h"
3c25f8c7	6	#include "gdb/callback.h"
c906108c SS	7	#include "opcode/d10v.h"
	8	#include "bfd.h"
	9
	10	#define DEBUG_TRACE 0x00000001
	11	#define DEBUG_VALUES 0x00000002
	12	#define DEBUG_LINE_NUMBER 0x00000004
	13	#define DEBUG_MEMSIZE 0x00000008
	14	#define DEBUG_INSTRUCTION 0x00000010
	15	#define DEBUG_TRAP 0x00000020
4ce44c66	16	#define DEBUG_MEMORY 0x00000040
c906108c SS	17
	18	#ifndef DEBUG
	19	#define DEBUG (DEBUG_TRACE \| DEBUG_VALUES \| DEBUG_LINE_NUMBER)
	20	#endif
	21
	22	extern int d10v_debug;
	23
3c25f8c7	24	#include "gdb/remote-sim.h"
c906108c SS	25	#include "sim-config.h"
	26	#include "sim-types.h"
	27
	28	typedef unsigned8 uint8;
	29	typedef unsigned16 uint16;
	30	typedef signed16 int16;
	31	typedef unsigned32 uint32;
	32	typedef signed32 int32;
	33	typedef unsigned64 uint64;
	34	typedef signed64 int64;
	35
	36	/* FIXME: D10V defines */
	37	typedef uint16 reg_t;
	38
	39	struct simops
	40	{
	41	long opcode;
	42	int is_long;
	43	long mask;
	44	int format;
	45	int cycles;
	46	int unit;
	47	int exec_type;
	48	void (*func)();
	49	int numops;
	50	int operands[9];
	51	};
	52
	53	enum _ins_type
	54	{
	55	INS_UNKNOWN, /* unknown instruction */
	56	INS_COND_TRUE, /* # times EXExxx executed other instruction */
	57	INS_COND_FALSE, /* # times EXExxx did not execute other instruction */
	58	INS_COND_JUMP, /* # times JUMP skipped other instruction */
	59	INS_CYCLES, /* # cycles */
	60	INS_LONG, /* long instruction (both containers, ie FM == 11) */
	61	INS_LEFTRIGHT, /* # times instruction encoded as L -> R (ie, FM == 01) */
	62	INS_RIGHTLEFT, /* # times instruction encoded as L <- R (ie, FM == 10) */
	63	INS_PARALLEL, /* # times instruction encoded as L \|\| R (ie, RM == 00) */
	64
	65	INS_LEFT, /* normal left instructions */
	66	INS_LEFT_PARALLEL, /* left side of \|\| */
	67	INS_LEFT_COND_TEST, /* EXExx test on left side */
	68	INS_LEFT_COND_EXE, /* execution after EXExxx test on right side succeeded */
	69	INS_LEFT_NOPS, /* NOP on left side */
	70
	71	INS_RIGHT, /* normal right instructions */
	72	INS_RIGHT_PARALLEL, /* right side of \|\| */
	73	INS_RIGHT_COND_TEST, /* EXExx test on right side */
	74	INS_RIGHT_COND_EXE, /* execution after EXExxx test on left side succeeded */
	75	INS_RIGHT_NOPS, /* NOP on right side */
	76
	77	INS_MAX
	78	};
	79
	80	extern unsigned long ins_type_counters[ (int)INS_MAX ];
	81
	82	enum {
	83	SP_IDX = 15,
	84	};
	85
	86	/* Write-back slots */
	87	union slot_data {
	88	unsigned_1 _1;
89	unsigned_2 _2;
90	unsigned_4 _4;
91	unsigned_8 _8;
92	};
93	struct slot {
94	void *dest;
95	int size;
96	union slot_data data;
97	union slot_data mask;
98	};
99	enum {
100	NR_SLOTS = 16,
101	};
102	#define SLOT (State.slot)
103	#define SLOT_NR (State.slot_nr)
104	#define SLOT_PEND_MASK(DEST, MSK, VAL) \
105	do \
106	{ \
107	SLOT[SLOT_NR].dest = &(DEST); \
108	SLOT[SLOT_NR].size = sizeof (DEST); \
109	switch (sizeof (DEST)) \
110	{ \
111	case 1: \
112	SLOT[SLOT_NR].data._1 = (unsigned_1) (VAL); \
113	SLOT[SLOT_NR].mask._1 = (unsigned_1) (MSK); \
114	break; \
115	case 2: \
116	SLOT[SLOT_NR].data._2 = (unsigned_2) (VAL); \
117	SLOT[SLOT_NR].mask._2 = (unsigned_2) (MSK); \
118	break; \
119	case 4: \
120	SLOT[SLOT_NR].data._4 = (unsigned_4) (VAL); \
121	SLOT[SLOT_NR].mask._4 = (unsigned_4) (MSK); \
122	break; \
123	case 8: \
124	SLOT[SLOT_NR].data._8 = (unsigned_8) (VAL); \
125	SLOT[SLOT_NR].mask._8 = (unsigned_8) (MSK); \
126	break; \
127	} \
128	SLOT_NR = (SLOT_NR + 1); \
129	} \
130	while (0)
131	#define SLOT_PEND(DEST, VAL) SLOT_PEND_MASK(DEST, 0, VAL)
132	#define SLOT_DISCARD() (SLOT_NR = 0)
133	#define SLOT_FLUSH() \
134	do \
135	{ \
136	int i; \
137	for (i = 0; i < SLOT_NR; i++) \
138	{ \
139	switch (SLOT[i].size) \
140	{ \
141	case 1: \
142	(unsigned_1) SLOT[i].dest &= SLOT[i].mask._1; \
143	(unsigned_1) SLOT[i].dest \|= SLOT[i].data._1; \
144	break; \
145	case 2: \
146	(unsigned_2) SLOT[i].dest &= SLOT[i].mask._2; \
147	(unsigned_2) SLOT[i].dest \|= SLOT[i].data._2; \
148	break; \
149	case 4: \
150	(unsigned_4) SLOT[i].dest &= SLOT[i].mask._4; \
151	(unsigned_4) SLOT[i].dest \|= SLOT[i].data._4; \
152	break; \
153	case 8: \
154	(unsigned_8) SLOT[i].dest &= SLOT[i].mask._8; \
155	(unsigned_8) SLOT[i].dest \|= SLOT[i].data._8; \
156	break; \
157	} \
158	} \
159	SLOT_NR = 0; \
160	} \
161	while (0)
162	#define SLOT_DUMP() \
163	do \
164	{ \
165	int i; \
166	for (i = 0; i < SLOT_NR; i++) \
167	{ \
168	switch (SLOT[i].size) \
169	{ \
170	case 1: \
171	printf ("SLOT %d *0x%08lx & 0x%02x \| 0x%02x\n", i, \
172	(long) SLOT[i].dest, \
173	(unsigned) SLOT[i].mask._1, \
174	(unsigned) SLOT[i].data._1); \
175	break; \
176	case 2: \
177	printf ("SLOT %d *0x%08lx & 0x%04x \| 0x%04x\n", i, \
178	(long) SLOT[i].dest, \
179	(unsigned) SLOT[i].mask._2, \
180	(unsigned) SLOT[i].data._2); \
181	break; \
182	case 4: \
183	printf ("SLOT %d *0x%08lx & 0x%08x \| 0x%08x\n", i, \
184	(long) SLOT[i].dest, \
185	(unsigned) SLOT[i].mask._4, \
186	(unsigned) SLOT[i].data._4); \
187	break; \
188	case 8: \
189	printf ("SLOT %d *0x%08lx & 0x%08x%08x \| 0x%08x%08x\n", i, \
190	(long) SLOT[i].dest, \
191	(unsigned) (SLOT[i].mask._8 >> 32), \
192	(unsigned) SLOT[i].mask._8, \
193	(unsigned) (SLOT[i].data._8 >> 32), \
194	(unsigned) SLOT[i].data._8); \
195	break; \
196	} \
197	} \
198	} \
199	while (0)
200
4ce44c66 JM	201	/* d10v memory: There are three separate d10v memory regions IMEM,
	202	UMEM and DMEM. The IMEM and DMEM are further broken down into
	203	blocks (very like VM pages). */
	204
	205	enum
	206	{
	207	IMAP_BLOCK_SIZE = 0x20000,
	208	DMAP_BLOCK_SIZE = 0x4000,
	209	};
	210
	211	/* Implement the three memory regions using sparse arrays. Allocate
	212	memory using ``segments''. A segment must be at least as large as
	213	a BLOCK - ensures that an access that doesn't cross a block
	214	boundary can't cross a segment boundary */
	215
	216	enum
	217	{
	218	SEGMENT_SIZE = 0x20000, /* 128KB - MAX(IMAP_BLOCK_SIZE,DMAP_BLOCK_SIZE) */
	219	IMEM_SEGMENTS = 8, /* 1MB */
	220	DMEM_SEGMENTS = 8, /* 1MB */
	221	UMEM_SEGMENTS = 128 /* 16MB */
	222	};
	223
	224	struct d10v_memory
	225	{
	226	uint8 *insn[IMEM_SEGMENTS];
	227	uint8 *data[DMEM_SEGMENTS];
	228	uint8 *unif[UMEM_SEGMENTS];
	229	uint8 fault[16];
	230	};
	231
c906108c SS	232	struct _state
	233	{
	234	reg_t regs[16]; /* general-purpose registers */
	235	#define GPR(N) (State.regs[(N)] + 0)
	236	#define SET_GPR(N,VAL) SLOT_PEND (State.regs[(N)], (VAL))
	237
	238	#define GPR32(N) ((((uint32) State.regs[(N) + 0]) << 16) \
	239	\| (uint16) State.regs[(N) + 1])
	240	#define SET_GPR32(N,VAL) do { SET_GPR (OP[0] + 0, (VAL) >> 16); SET_GPR (OP[0] + 1, (VAL)); } while (0)
	241
	242	reg_t cregs[16]; /* control registers */
	243	#define CREG(N) (State.cregs[(N)] + 0)
4ce44c66 JM	244	#define SET_CREG(N,VAL) move_to_cr ((N), 0, (VAL), 0)
4ce44c66 JM	245	#define SET_HW_CREG(N,VAL) move_to_cr ((N), 0, (VAL), 1)
c906108c SS	246
	247	reg_t sp[2]; /* holding area for SPI(0)/SPU(1) */
	248	#define HELD_SP(N) (State.sp[(N)] + 0)
	249	#define SET_HELD_SP(N,VAL) SLOT_PEND (State.sp[(N)], (VAL))
	250
	251	int64 a[2]; /* accumulators */
	252	#define ACC(N) (State.a[(N)] + 0)
	253	#define SET_ACC(N,VAL) SLOT_PEND (State.a[(N)], (VAL) & MASK40)
	254
	255	/* writeback info */
	256	struct slot slot[NR_SLOTS];
	257	int slot_nr;
	258
	259	/* trace data */
	260	struct {
	261	uint16 psw;
	262	} trace;
	263
	264	uint8 exe;
	265	int exception;
	266	int pc_changed;
	267
4ce44c66 JM	268	/* NOTE: everything below this line is not reset by
	269	sim_create_inferior() */
	270
	271	struct d10v_memory mem;
	272
c906108c SS	273	enum _ins_type ins_type;
	274
	275	} State;
	276
	277
	278	extern host_callback *d10v_callback;
	279	extern uint16 OP[4];
	280	extern struct simops Simops[];
c906108c SS	281
	282	enum
	283	{
	284	PSW_CR = 0,
	285	BPSW_CR = 1,
	286	PC_CR = 2,
	287	BPC_CR = 3,
	288	DPSW_CR = 4,
	289	DPC_CR = 5,
	290	RPT_C_CR = 7,
	291	RPT_S_CR = 8,
	292	RPT_E_CR = 9,
	293	MOD_S_CR = 10,
	294	MOD_E_CR = 11,
	295	IBA_CR = 14,
	296	};
	297
	298	enum
	299	{
	300	PSW_SM_BIT = 0x8000,
	301	PSW_EA_BIT = 0x2000,
	302	PSW_DB_BIT = 0x1000,
	303	PSW_DM_BIT = 0x0800,
	304	PSW_IE_BIT = 0x0400,
	305	PSW_RP_BIT = 0x0200,
	306	PSW_MD_BIT = 0x0100,
	307	PSW_FX_BIT = 0x0080,
	308	PSW_ST_BIT = 0x0040,
	309	PSW_F0_BIT = 0x0008,
	310	PSW_F1_BIT = 0x0004,
	311	PSW_C_BIT = 0x0001,
	312	};
	313
	314	#define PSW CREG (PSW_CR)
	315	#define SET_PSW(VAL) SET_CREG (PSW_CR, (VAL))
4ce44c66	316	#define SET_HW_PSW(VAL) SET_HW_CREG (PSW_CR, (VAL))
57af9c8b	317	#define SET_PSW_BIT(MASK,VAL) move_to_cr (PSW_CR, ~((reg_t) MASK), (VAL) ? (MASK) : 0, 1)
c906108c SS	318
	319	#define PSW_SM ((PSW & PSW_SM_BIT) != 0)
	320	#define SET_PSW_SM(VAL) SET_PSW_BIT (PSW_SM_BIT, (VAL))
	321
	322	#define PSW_EA ((PSW & PSW_EA_BIT) != 0)
	323	#define SET_PSW_EA(VAL) SET_PSW_BIT (PSW_EA_BIT, (VAL))
	324
	325	#define PSW_DB ((PSW & PSW_DB_BIT) != 0)
	326	#define SET_PSW_DB(VAL) SET_PSW_BIT (PSW_DB_BIT, (VAL))
	327
	328	#define PSW_DM ((PSW & PSW_DM_BIT) != 0)
	329	#define SET_PSW_DM(VAL) SET_PSW_BIT (PSW_DM_BIT, (VAL))
	330
	331	#define PSW_IE ((PSW & PSW_IE_BIT) != 0)
	332	#define SET_PSW_IE(VAL) SET_PSW_BIT (PSW_IE_BIT, (VAL))
	333
	334	#define PSW_RP ((PSW & PSW_RP_BIT) != 0)
	335	#define SET_PSW_RP(VAL) SET_PSW_BIT (PSW_RP_BIT, (VAL))
	336
	337	#define PSW_MD ((PSW & PSW_MD_BIT) != 0)
	338	#define SET_PSW_MD(VAL) SET_PSW_BIT (PSW_MD_BIT, (VAL))
	339
	340	#define PSW_FX ((PSW & PSW_FX_BIT) != 0)
	341	#define SET_PSW_FX(VAL) SET_PSW_BIT (PSW_FX_BIT, (VAL))
	342
	343	#define PSW_ST ((PSW & PSW_ST_BIT) != 0)
	344	#define SET_PSW_ST(VAL) SET_PSW_BIT (PSW_ST_BIT, (VAL))
	345
	346	#define PSW_F0 ((PSW & PSW_F0_BIT) != 0)
	347	#define SET_PSW_F0(VAL) SET_PSW_BIT (PSW_F0_BIT, (VAL))
	348
	349	#define PSW_F1 ((PSW & PSW_F1_BIT) != 0)
	350	#define SET_PSW_F1(VAL) SET_PSW_BIT (PSW_F1_BIT, (VAL))
	351
	352	#define PSW_C ((PSW & PSW_C_BIT) != 0)
	353	#define SET_PSW_C(VAL) SET_PSW_BIT (PSW_C_BIT, (VAL))
	354
	355	/* See simopsc.:move_to_cr() for registers that can not be read-from
	356	or assigned-to directly */
	357
	358	#define PC CREG (PC_CR)
	359	#define SET_PC(VAL) SET_CREG (PC_CR, (VAL))
	360
	361	#define BPSW CREG (BPSW_CR)
	362	#define SET_BPSW(VAL) SET_CREG (BPSW_CR, (VAL))
	363
	364	#define BPC CREG (BPC_CR)
	365	#define SET_BPC(VAL) SET_CREG (BPC_CR, (VAL))
	366
	367	#define DPSW CREG (DPSW_CR)
	368	#define SET_DPSW(VAL) SET_CREG (DPSW_CR, (VAL))
	369
	370	#define DPC CREG (DPC_CR)
	371	#define SET_DPC(VAL) SET_CREG (DPC_CR, (VAL))
	372
	373	#define RPT_C CREG (RPT_C_CR)
	374	#define SET_RPT_C(VAL) SET_CREG (RPT_C_CR, (VAL))
	375
	376	#define RPT_S CREG (RPT_S_CR)
	377	#define SET_RPT_S(VAL) SET_CREG (RPT_S_CR, (VAL))
	378
	379	#define RPT_E CREG (RPT_E_CR)
	380	#define SET_RPT_E(VAL) SET_CREG (RPT_E_CR, (VAL))
	381
382	#define MOD_S CREG (MOD_S_CR)
383	#define SET_MOD_S(VAL) SET_CREG (MOD_S_CR, (VAL))
384
385	#define MOD_E CREG (MOD_E_CR)
386	#define SET_MOD_E(VAL) SET_CREG (MOD_E_CR, (VAL))
387
388	#define IBA CREG (IBA_CR)
389	#define SET_IBA(VAL) SET_CREG (IBA_CR, (VAL))
390
391
392	#define SIG_D10V_STOP -1
393	#define SIG_D10V_EXIT -2
7fc5b5ad	394	#define SIG_D10V_BUS -3
c906108c	395
541ebcee MF	396	/* TODO: Resolve conflicts with common headers. */
	397	#undef SEXT8
	398	#undef SEXT16
	399	#undef SEXT32
	400	#undef MASK32
	401
c906108c SS	402	#define SEXT3(x) ((((x)&0x7)^(~3))+4)
	403
	404	/* sign-extend a 4-bit number */
	405	#define SEXT4(x) ((((x)&0xf)^(~7))+8)
	406
	407	/* sign-extend an 8-bit number */
	408	#define SEXT8(x) ((((x)&0xff)^(~0x7f))+0x80)
	409
	410	/* sign-extend a 16-bit number */
	411	#define SEXT16(x) ((((x)&0xffff)^(~0x7fff))+0x8000)
	412
	413	/* sign-extend a 32-bit number */
	414	#define SEXT32(x) ((((x)&SIGNED64(0xffffffff))^(~SIGNED64(0x7fffffff)))+SIGNED64(0x80000000))
	415
	416	/* sign extend a 40 bit number */
	417	#define SEXT40(x) ((((x)&SIGNED64(0xffffffffff))^(~SIGNED64(0x7fffffffff)))+SIGNED64(0x8000000000))
	418
	419	/* sign extend a 44 bit number */
	420	#define SEXT44(x) ((((x)&SIGNED64(0xfffffffffff))^(~SIGNED64(0x7ffffffffff)))+SIGNED64(0x80000000000))
	421
	422	/* sign extend a 56 bit number */
	423	#define SEXT56(x) ((((x)&SIGNED64(0xffffffffffffff))^(~SIGNED64(0x7fffffffffffff)))+SIGNED64(0x80000000000000))
	424
	425	/* sign extend a 60 bit number */
	426	#define SEXT60(x) ((((x)&SIGNED64(0xfffffffffffffff))^(~SIGNED64(0x7ffffffffffffff)))+SIGNED64(0x800000000000000))
	427
	428	#define MAX32 SIGNED64(0x7fffffff)
	429	#define MIN32 SIGNED64(0xff80000000)
	430	#define MASK32 SIGNED64(0xffffffff)
	431	#define MASK40 SIGNED64(0xffffffffff)
	432
	433	/* The alignment of MOD_E in the following macro depends upon "i"
	434	always being a power of 2. */
	435	#define INC_ADDR(x,i) \
	436	do \
	437	{ \
c3f6f71d JM	438	int test_i = i < 0 ? i : ~((i) - 1); \
c3f6f71d JM	439	if (PSW_MD && GPR (x) == (MOD_E & test_i)) \
c7675842	440	SET_GPR (x, MOD_S & test_i); \
c906108c SS	441	else \
	442	SET_GPR (x, GPR (x) + (i)); \
	443	} \
	444	while (0)
	445
4ce44c66	446	extern uint8 *dmem_addr (uint16 offset);
bdca5ee4 TT	447	extern uint8 *imem_addr (uint32);
bdca5ee4 TT	448	extern bfd_vma decode_pc (void);
c906108c SS	449
	450	#define RB(x) (*(dmem_addr(x)))
	451	#define SB(addr,data) ( RB(addr) = (data & 0xff))
	452
	453	#if defined(__GNUC__) && defined(__OPTIMIZE__) && !defined(NO_ENDIAN_INLINE)
	454	#define ENDIAN_INLINE static __inline__
	455	#include "endian.c"
	456	#undef ENDIAN_INLINE
	457
	458	#else
bdca5ee4 TT	459	extern uint32 get_longword (uint8 *);
	460	extern uint16 get_word (uint8 *);
	461	extern int64 get_longlong (uint8 *);
	462	extern void write_word (uint8 *addr, uint16 data);
	463	extern void write_longword (uint8 *addr, uint32 data);
	464	extern void write_longlong (uint8 *addr, int64 data);
c906108c SS	465	#endif
	466
	467	#define SW(addr,data) write_word(dmem_addr(addr),data)
	468	#define RW(x) get_word(dmem_addr(x))
	469	#define SLW(addr,data) write_longword(dmem_addr(addr),data)
	470	#define RLW(x) get_longword(dmem_addr(x))
	471	#define READ_16(x) get_word(x)
	472	#define WRITE_16(addr,data) write_word(addr,data)
	473	#define READ_64(x) get_longlong(x)
	474	#define WRITE_64(addr,data) write_longlong(addr,data)
	475
c906108c SS	476	#define JMP(x) do { SET_PC (x); State.pc_changed = 1; } while (0)
	477
	478	#define RIE_VECTOR_START 0xffc2
	479	#define AE_VECTOR_START 0xffc3
	480	#define TRAP_VECTOR_START 0xffc4 /* vector for trap 0 */
	481	#define DBT_VECTOR_START 0xffd4
	482	#define SDBT_VECTOR_START 0xffd5
	483
4ce44c66 JM	484	/* Scedule a store of VAL into cr[CR]. MASK indicates the bits in
	485	cr[CR] that should not be modified (i.e. cr[CR] = (cr[CR] & MASK) \|
	486	(VAL & ~MASK)). In addition, unless PSW_HW_P, a VAL intended for
	487	PSW is masked for zero bits. */
	488
	489	extern reg_t move_to_cr (int cr, reg_t mask, reg_t val, int psw_hw_p);