346 lines
9.3 KiB
C
346 lines
9.3 KiB
C
/* TIc80 Simulator.
|
|
Copyright (C) 1997, 1998 Free Software Foundation, Inc.
|
|
Contributed by Cygnus Support.
|
|
|
|
This file is part of GDB, the GNU debugger.
|
|
|
|
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
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
This program 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.,
|
|
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
|
|
|
|
|
|
|
/* TI C80 control registers */
|
|
|
|
typedef enum {
|
|
EPC_CR,
|
|
EIP_CR,
|
|
CONFIG_CR,
|
|
INTPEN_CR,
|
|
IE_CR,
|
|
FPST_CR,
|
|
PPERROR_CR,
|
|
PKTREQ_CR,
|
|
TCOUNT_CR,
|
|
TSCALE_CR,
|
|
FLTOP_CR,
|
|
FLTADR_CR,
|
|
FLTTAG_CR,
|
|
FLTDLT_CR,
|
|
FLTDTH_CR,
|
|
FLT005_CR,
|
|
FLT006_CR,
|
|
FLT007_CR,
|
|
FLT008_CR,
|
|
FLT009_CR,
|
|
FLT010_CR,
|
|
FLT011_CR,
|
|
FLT012_CR,
|
|
FLT013_CR,
|
|
FLT014_CR,
|
|
FLT015_CR,
|
|
SYSSTK_CR,
|
|
SYSTMP_CR,
|
|
MPC_CR,
|
|
MIP_CR,
|
|
ECOMCNTL_CR,
|
|
ANASTAT_CR,
|
|
BRK1_CR,
|
|
BRK2_CR,
|
|
ITAG0_CR,
|
|
ITAG1_CR,
|
|
ITAG2_CR,
|
|
ITAG3_CR,
|
|
ITAG4_CR,
|
|
ITAG5_CR,
|
|
ITAG6_CR,
|
|
ITAG7_CR,
|
|
ITAG8_CR,
|
|
ITAG9_CR,
|
|
ITAG10_CR,
|
|
ITAG11_CR,
|
|
ITAG12_CR,
|
|
ITAG13_CR,
|
|
ITAG14_CR,
|
|
ITAG15_CR,
|
|
ILRU_CR,
|
|
DTAG0_CR,
|
|
DTAG1_CR,
|
|
DTAG2_CR,
|
|
DTAG3_CR,
|
|
DTAG4_CR,
|
|
DTAG5_CR,
|
|
DTAG6_CR,
|
|
DTAG7_CR,
|
|
DTAG8_CR,
|
|
DTAG9_CR,
|
|
DTAG10_CR,
|
|
DTAG11_CR,
|
|
DTAG12_CR,
|
|
DTAG13_CR,
|
|
DTAG14_CR,
|
|
DTAG15_CR,
|
|
DLRU_CR,
|
|
IN0P_CR,
|
|
IN1P_CR,
|
|
OUTP_CR,
|
|
SCRATCH_CR,
|
|
nr_tic80_control_regs,
|
|
} tic80_control_regs;
|
|
|
|
/* extern int tic80_cr2index (tic80_control_regs reg); */
|
|
|
|
/* Map an instruction CR index onto the corresponding internal cr enum
|
|
or SCRATCH_CR if the index is invalid */
|
|
|
|
extern tic80_control_regs tic80_index2cr (int index);
|
|
|
|
|
|
/* TIc80 interrupt register bits */
|
|
|
|
enum {
|
|
IE_CR_PE = BIT32(31),
|
|
IE_CR_X4 = BIT32(30),
|
|
IE_CR_X3 = BIT32(29),
|
|
IE_CR_BP = BIT32(28),
|
|
IE_CR_PB = BIT32(27),
|
|
IE_CR_PC = BIT32(26),
|
|
IE_CR_MI = BIT32(25),
|
|
/**/
|
|
IE_CR_P3 = BIT32(19),
|
|
IE_CR_P2 = BIT32(18),
|
|
IE_CR_P1 = BIT32(17),
|
|
IE_CR_P0 = BIT32(16),
|
|
IE_CR_IO = BIT32(15),
|
|
IE_CR_MF = BIT32(14),
|
|
/**/
|
|
IE_CR_X2 = BIT32(12),
|
|
IE_CR_X1 = BIT32(11),
|
|
IE_CR_TI = BIT32(10),
|
|
IE_CR_F1 = BIT32(9),
|
|
IE_CR_F0 = BIT32(8),
|
|
IE_CR_FX = BIT32(7),
|
|
IE_CR_FU = BIT32(6),
|
|
IE_CR_FO = BIT32(5),
|
|
/**/
|
|
IE_CR_FZ = BIT32(3),
|
|
IE_CR_FI = BIT32(2),
|
|
/**/
|
|
IE_CR_IE = BIT32(0),
|
|
};
|
|
|
|
|
|
|
|
|
|
struct _sim_cpu {
|
|
unsigned32 reg[32];
|
|
unsigned64 acc[4];
|
|
unsigned32 cr[nr_tic80_control_regs];
|
|
int is_user_mode; /* hidden mode latch */
|
|
sim_cia cia;
|
|
sim_cpu_base base;
|
|
};
|
|
|
|
#define CIA_GET(CPU) ((CPU)->cia)
|
|
#define CIA_SET(CPU,VAL) ((CPU)->cia = (VAL))
|
|
|
|
#define GPR(N) ((CPU)->reg[N])
|
|
#define GPR_CLEAR(N) (GPR((N)) = 0)
|
|
#define ACC(N) ((CPU)->acc[N])
|
|
#define CR(N) ((CPU)->cr[tic80_index2cr ((N))])
|
|
|
|
|
|
|
|
#if defined(WITH_TRACE)
|
|
extern char *tic80_trace_alu3 PARAMS ((int, unsigned32, unsigned32, unsigned32));
|
|
extern char *tic80_trace_cmp PARAMS ((int, unsigned32, unsigned32, unsigned32));
|
|
extern char *tic80_trace_alu2 PARAMS ((int, unsigned32, unsigned32));
|
|
extern char *tic80_trace_shift PARAMS ((int, unsigned32, unsigned32, int, int, int, int, int));
|
|
extern void tic80_trace_fpu3 PARAMS ((SIM_DESC, sim_cpu *, sim_cia, int, sim_fpu *, sim_fpu *, sim_fpu *));
|
|
extern void tic80_trace_fpu2 PARAMS ((SIM_DESC, sim_cpu *, sim_cia, int, sim_fpu *, sim_fpu *));
|
|
extern void tic80_trace_fpu1 PARAMS ((SIM_DESC, sim_cpu *, sim_cia, int, sim_fpu *));
|
|
extern void tic80_trace_fpu2i PARAMS ((SIM_DESC, sim_cpu *, sim_cia, int, unsigned32, sim_fpu *, sim_fpu *));
|
|
extern void tic80_trace_fpu2cmp PARAMS ((SIM_DESC, sim_cpu *, sim_cia, int, unsigned32, sim_fpu *, sim_fpu *));
|
|
extern char *tic80_trace_nop PARAMS ((int));
|
|
extern char *tic80_trace_sink1 PARAMS ((int, unsigned32));
|
|
extern char *tic80_trace_sink2 PARAMS ((int, unsigned32, unsigned32));
|
|
extern char *tic80_trace_sink3 PARAMS ((int, unsigned32, unsigned32, unsigned32));
|
|
extern char *tic80_trace_cond_br PARAMS ((int, int, unsigned32, unsigned32, int, int));
|
|
extern char *tic80_trace_ucond_br PARAMS ((int, unsigned32));
|
|
extern void tic80_trace_ldst PARAMS ((SIM_DESC, sim_cpu *, sim_cia, int, int, int, int, unsigned32, unsigned32, unsigned32));
|
|
|
|
#define TRACE_ALU3(indx, result, input1, input2) \
|
|
do { \
|
|
if (TRACE_ALU_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "alu", \
|
|
tic80_trace_alu3 (indx, result, input1, input2)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_CMP(indx, result, input1, input2) \
|
|
do { \
|
|
if (TRACE_ALU_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "alu", \
|
|
tic80_trace_cmp (indx, result, input1, input2)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_ALU2(indx, result, input) \
|
|
do { \
|
|
if (TRACE_ALU_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "alu", \
|
|
tic80_trace_alu2 (indx, result, input)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_SHIFT(indx, result, input, i, n, merge, endmask, rotate) \
|
|
do { \
|
|
if (TRACE_ALU_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "shift", \
|
|
tic80_trace_shift (indx, result, input, i, n, \
|
|
merge, endmask, rotate)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_FPU3(result, input1, input2) \
|
|
do { \
|
|
if (TRACE_FPU_P (CPU)) { \
|
|
tic80_trace_fpu3 (SD, CPU, cia, MY_INDEX, \
|
|
&result, &input1, &input2); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_FPU2(result, input) \
|
|
do { \
|
|
if (TRACE_FPU_P (CPU)) { \
|
|
tic80_trace_fpu2 (SD, CPU, cia, MY_INDEX, \
|
|
&result, &input); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_FPU1(result) \
|
|
do { \
|
|
if (TRACE_FPU_P (CPU)) { \
|
|
tic80_trace_fpu1 (SD, CPU, cia, MY_INDEX, \
|
|
&result); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_FPU2I(result, input1, input2) \
|
|
do { \
|
|
if (TRACE_FPU_P (CPU)) { \
|
|
tic80_trace_fpu2i (SD, CPU, cia, MY_INDEX, \
|
|
result, &input1, &input2); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_FPU2CMP(result, input1, input2) \
|
|
do { \
|
|
if (TRACE_FPU_P (CPU)) { \
|
|
tic80_trace_fpu2cmp (SD, CPU, cia, MY_INDEX, \
|
|
result, &input1, &input2); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_NOP(indx) \
|
|
do { \
|
|
if (TRACE_ALU_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "nop", \
|
|
tic80_trace_nop (indx)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_SINK1(indx, input) \
|
|
do { \
|
|
if (TRACE_ALU_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "nop", \
|
|
tic80_trace_sink1 (indx, input)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_SINK2(indx, input1, input2) \
|
|
do { \
|
|
if (TRACE_ALU_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "nop", \
|
|
tic80_trace_sink2 (indx, input1, input2)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_SINK3(indx, input1, input2, input3) \
|
|
do { \
|
|
if (TRACE_ALU_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "nop", \
|
|
tic80_trace_sink3 (indx, input1, input2, input3)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_COND_BR(indx, jump_p, cond, target, size, code) \
|
|
do { \
|
|
if (TRACE_BRANCH_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "branch", \
|
|
tic80_trace_cond_br (indx, jump_p, cond, target, \
|
|
size, code)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_UCOND_BR(indx, target) \
|
|
do { \
|
|
if (TRACE_BRANCH_P (CPU)) { \
|
|
trace_one_insn (SD, CPU, cia.ip, 1, itable[indx].file, \
|
|
itable[indx].line_nr, "branch", \
|
|
tic80_trace_ucond_br (indx, target)); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_LD(result, m, s, addr1, addr2) \
|
|
do { \
|
|
if (TRACE_MEMORY_P (CPU)) { \
|
|
tic80_trace_ldst (SD, CPU, cia, MY_INDEX, \
|
|
0, m, s, result, addr1, addr2); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define TRACE_ST(value, m, s, addr1, addr2) \
|
|
do { \
|
|
if (TRACE_MEMORY_P (CPU)) { \
|
|
tic80_trace_ldst (SD, CPU, cia, MY_INDEX, \
|
|
1, m, s, value, addr1, addr2); \
|
|
} \
|
|
} while (0)
|
|
|
|
#else
|
|
#define TRACE_ALU3(indx, result, input1, input2)
|
|
#define TRACE_ALU2(indx, result, input)
|
|
#define TRACE_FPU3(result, input1, input2)
|
|
#define TRACE_FPU2(result, input)
|
|
#define TRACE_FPU1(result)
|
|
#define TRACE_FPU2I(result, input1, input2)
|
|
#define TRACE_NOP(indx)
|
|
#define TRACE_SINK1(indx, input)
|
|
#define TRACE_SINK2(indx, input1, input2)
|
|
#define TRACE_SINK3(indx, input1, input2, input3)
|
|
#define TRACE_COND_BR(indx, jump_p, cond, target, size, code)
|
|
#define TRACE_UCOND_BR(indx, target)
|
|
#define TRACE_LD(m, s, result, addr1, addr2)
|
|
#define TRACE_ST(m, s, value, addr1, addr2)
|
|
#endif
|