555 lines
15 KiB
C
555 lines
15 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. */
|
||
|
||
|
||
#include "sim-main.h"
|
||
|
||
#ifdef HAVE_STRING_H
|
||
#include <string.h>
|
||
#else
|
||
#ifdef HAVE_STRINGS_H
|
||
#include <strings.h>
|
||
#endif
|
||
#endif
|
||
|
||
|
||
tic80_control_regs
|
||
tic80_index2cr (int index)
|
||
{
|
||
switch (index)
|
||
{
|
||
case 0x0000: return EPC_CR;
|
||
case 0x0001: return EIP_CR;
|
||
case 0x0002: return CONFIG_CR;
|
||
case 0x0004: return INTPEN_CR;
|
||
case 0x0006: return IE_CR;
|
||
case 0x0008: return FPST_CR;
|
||
case 0x000A: return PPERROR_CR;
|
||
case 0x000D: return PKTREQ_CR;
|
||
case 0x000E: return TCOUNT_CR;
|
||
case 0x000F: return TSCALE_CR;
|
||
case 0x0010: return FLTOP_CR;
|
||
case 0x0011: return FLTADR_CR;
|
||
case 0x0012: return FLTTAG_CR;
|
||
case 0x0013: return FLTDLT_CR;
|
||
case 0x0014: return FLTDTH_CR;
|
||
case 0x0015: return FLT005_CR;
|
||
case 0x0016: return FLT006_CR;
|
||
case 0x0017: return FLT007_CR;
|
||
case 0x0018: return FLT008_CR;
|
||
case 0x0019: return FLT009_CR;
|
||
case 0x001a: return FLT010_CR;
|
||
case 0x001b: return FLT011_CR;
|
||
case 0x001c: return FLT012_CR;
|
||
case 0x001d: return FLT013_CR;
|
||
case 0x001e: return FLT014_CR;
|
||
case 0x001f: return FLT015_CR;
|
||
case 0x0020: return SYSSTK_CR;
|
||
case 0x0021: return SYSTMP_CR;
|
||
case 0x0030: return MPC_CR;
|
||
case 0x0031: return MIP_CR;
|
||
case 0x0033: return ECOMCNTL_CR;
|
||
case 0x0034: return ANASTAT_CR;
|
||
case 0x0039: return BRK1_CR;
|
||
case 0x003A: return BRK2_CR;
|
||
case 0x0200: return ITAG0_CR;
|
||
case 0x0201: return ITAG1_CR;
|
||
case 0x0202: return ITAG2_CR;
|
||
case 0x0203: return ITAG3_CR;
|
||
case 0x0204: return ITAG4_CR;
|
||
case 0x0205: return ITAG5_CR;
|
||
case 0x0206: return ITAG6_CR;
|
||
case 0x0207: return ITAG7_CR;
|
||
case 0x0208: return ITAG8_CR;
|
||
case 0x0209: return ITAG9_CR;
|
||
case 0x020a: return ITAG10_CR;
|
||
case 0x020b: return ITAG11_CR;
|
||
case 0x020c: return ITAG12_CR;
|
||
case 0x020d: return ITAG13_CR;
|
||
case 0x020e: return ITAG14_CR;
|
||
case 0x020f: return ITAG15_CR;
|
||
case 0x0300: return ILRU_CR;
|
||
case 0x0400: return DTAG0_CR;
|
||
case 0x0401: return DTAG1_CR;
|
||
case 0x0402: return DTAG2_CR;
|
||
case 0x0403: return DTAG3_CR;
|
||
case 0x0404: return DTAG4_CR;
|
||
case 0x0405: return DTAG5_CR;
|
||
case 0x0406: return DTAG6_CR;
|
||
case 0x0407: return DTAG7_CR;
|
||
case 0x0408: return DTAG8_CR;
|
||
case 0x0409: return DTAG9_CR;
|
||
case 0x040a: return DTAG10_CR;
|
||
case 0x040b: return DTAG11_CR;
|
||
case 0x040c: return DTAG12_CR;
|
||
case 0x040d: return DTAG13_CR;
|
||
case 0x040e: return DTAG14_CR;
|
||
case 0x040f: return DTAG15_CR;
|
||
case 0x0500: return DLRU_CR;
|
||
case 0x4000: return IN0P_CR;
|
||
case 0x4001: return IN1P_CR;
|
||
case 0x4002: return OUTP_CR;
|
||
default: return SCRATCH_CR;
|
||
}
|
||
}
|
||
|
||
|
||
|
||
#if defined(WITH_TRACE)
|
||
/* Tracing support routines */
|
||
|
||
static char tic80_trace_buffer[1024];
|
||
static int tic80_size_name;
|
||
|
||
#define SIZE_HEX 8
|
||
#define SIZE_DECIMAL 11
|
||
|
||
/* Initialize tracing by calculating the maximum name size */
|
||
static void
|
||
tic80_init_trace (void)
|
||
{
|
||
int i;
|
||
int len, max_len = 0;
|
||
|
||
for (i = 0; i < (int)nr_itable_entries; i++) {
|
||
len = strlen (itable[i].name);
|
||
if (len > max_len)
|
||
max_len = len;
|
||
}
|
||
|
||
tic80_size_name = max_len + sizeof(":m") - 1 + sizeof (":s") - 1;
|
||
}
|
||
|
||
/* Given an integer which is the result of a comparison, return a string
|
||
giving which bits are set. */
|
||
|
||
static char *
|
||
tic80_trace_cmp_internal (unsigned32 flag)
|
||
{
|
||
struct cmp_bits { unsigned32 bit; char *string; };
|
||
static char buffer[32*8];
|
||
static struct cmp_bits bits[] =
|
||
{
|
||
{ BIT32(29), "hs" },
|
||
{ BIT32(28), "lo" },
|
||
{ BIT32(27), "ls" },
|
||
{ BIT32(26), "hi" },
|
||
{ BIT32(25), "ge" },
|
||
{ BIT32(24), "lt" },
|
||
{ BIT32(23), "le" },
|
||
{ BIT32(22), "gt" },
|
||
{ BIT32(21), "ne" },
|
||
{ BIT32(20), "eq" },
|
||
|
||
{ BIT32(19), "hs.h" },
|
||
{ BIT32(18), "lo.h" },
|
||
{ BIT32(17), "ls.h" },
|
||
{ BIT32(16), "hi.h" },
|
||
{ BIT32(15), "ge.h" },
|
||
{ BIT32(14), "lt.h" },
|
||
{ BIT32(13), "le.h" },
|
||
{ BIT32(12), "gt.h" },
|
||
{ BIT32(11), "ne.h" },
|
||
{ BIT32(10), "eq.h" },
|
||
|
||
{ BIT32( 9), "hs.b" },
|
||
{ BIT32( 8), "lo.b" },
|
||
{ BIT32( 7), "ls.b" },
|
||
{ BIT32( 6), "hi.b" },
|
||
{ BIT32( 5), "ge.b" },
|
||
{ BIT32( 4), "lt.b" },
|
||
{ BIT32( 3), "le.b" },
|
||
{ BIT32( 2), "gt.b" },
|
||
{ BIT32( 1), "ne.b" },
|
||
{ BIT32( 0), "eq.b" },
|
||
{ 0, (char *)0 },
|
||
};
|
||
|
||
int i;
|
||
char *p = buffer;
|
||
|
||
for (i = 0; bits[i].bit != 0; i++)
|
||
{
|
||
if ((flag & bits[i].bit) != 0)
|
||
{
|
||
if (p != buffer)
|
||
*p++ = ' ';
|
||
|
||
strcpy (p, bits[i].string);
|
||
p += strlen (p);
|
||
}
|
||
}
|
||
|
||
*p = '\0';
|
||
return buffer;
|
||
}
|
||
|
||
/* Trace the result of an ALU operation with 2 integer inputs and an integer output */
|
||
char *
|
||
tic80_trace_alu3 (int indx,
|
||
unsigned32 result,
|
||
unsigned32 input1,
|
||
unsigned32 input2)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
sprintf (tic80_trace_buffer, "%-*s 0x%.*lx/%*ld 0x%.*lx/%*ld => 0x%.*lx/%*ld",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, input1, SIZE_DECIMAL, (long)(signed32)input1,
|
||
SIZE_HEX, input2, SIZE_DECIMAL, (long)(signed32)input2,
|
||
SIZE_HEX, result, SIZE_DECIMAL, (long)(signed32)result);
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of an ALU operation with 2 integer inputs and an integer output
|
||
that sets the bits from a compare instruction. */
|
||
char *
|
||
tic80_trace_cmp (int indx,
|
||
unsigned32 result,
|
||
unsigned32 input1,
|
||
unsigned32 input2)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
sprintf (tic80_trace_buffer, "%-*s 0x%.*lx/%*ld 0x%.*lx/%*ld => 0x%.*lx %s",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, input1, SIZE_DECIMAL, (long)(signed32)input1,
|
||
SIZE_HEX, input2, SIZE_DECIMAL, (long)(signed32)input2,
|
||
SIZE_HEX, result, tic80_trace_cmp_internal (result));
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of an ALU operation with 1 integer input and an integer output */
|
||
char *
|
||
tic80_trace_alu2 (int indx,
|
||
unsigned32 result,
|
||
unsigned32 input)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
sprintf (tic80_trace_buffer, "%-*s 0x%.*lx/%*ld %*s => 0x%.*lx/%*ld",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, input, SIZE_DECIMAL, (long)(signed32)input,
|
||
SIZE_HEX + SIZE_DECIMAL + 3, "",
|
||
SIZE_HEX, result, SIZE_DECIMAL, (long)(signed32)result);
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of a shift instruction */
|
||
char *
|
||
tic80_trace_shift (int indx,
|
||
unsigned32 result,
|
||
unsigned32 input,
|
||
int i,
|
||
int n,
|
||
int merge,
|
||
int endmask,
|
||
int rotate)
|
||
{
|
||
const char *merge_name;
|
||
char name[40];
|
||
char *p;
|
||
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
switch (merge)
|
||
{
|
||
default: merge_name = ".??"; break;
|
||
case 0: merge_name = ".dz"; break;
|
||
case 1: merge_name = ".dm"; break;
|
||
case 2: merge_name = ".ds"; break;
|
||
case 3: merge_name = ".ez"; break;
|
||
case 4: merge_name = ".em"; break;
|
||
case 5: merge_name = ".es"; break;
|
||
case 6: merge_name = ".iz"; break;
|
||
case 7: merge_name = ".im"; break;
|
||
}
|
||
|
||
/* Don't use itable[indx].name, which is just sl {r,i}. Instead reconstruct
|
||
the name, using the i and n fields. */
|
||
p = strchr (itable[indx].name, ' ');
|
||
sprintf (name, "s%s%s%s%s",
|
||
(n) ? "r" : "l",
|
||
(i) ? "i" : "",
|
||
merge_name,
|
||
(p) ? p : "");
|
||
|
||
sprintf (tic80_trace_buffer, "%-*s 0x%.*lx/%*ld %*s%2d,%2d => 0x%.*lx/%*ld",
|
||
tic80_size_name, name,
|
||
SIZE_HEX, input, SIZE_DECIMAL, (long)(signed32)input,
|
||
SIZE_HEX + SIZE_DECIMAL - 2, "",
|
||
rotate, endmask,
|
||
SIZE_HEX, result, SIZE_DECIMAL, (long)(signed32)result);
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of an FPU operation with 2 floating point inputs and a floating point output */
|
||
void
|
||
tic80_trace_fpu3 (SIM_DESC sd,
|
||
sim_cpu *cpu,
|
||
sim_cia cia,
|
||
int indx,
|
||
sim_fpu result,
|
||
sim_fpu input1,
|
||
sim_fpu input2)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
trace_one_insn (sd, cpu, cia.ip, 1,
|
||
itable[indx].file, itable[indx].line_nr, "fpu",
|
||
"%-*s %*g %*g => %*g",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX + SIZE_DECIMAL + 3, sim_fpu_2d (&input1),
|
||
SIZE_HEX + SIZE_DECIMAL + 3, sim_fpu_2d (&input2),
|
||
SIZE_HEX + SIZE_DECIMAL + 3, sim_fpu_2d (&result));
|
||
}
|
||
|
||
/* Trace the result of an FPU operation with 1 floating point input and a floating point output */
|
||
void
|
||
tic80_trace_fpu2 (SIM_DESC sd,
|
||
sim_cpu *cpu,
|
||
sim_cia cia,
|
||
int indx,
|
||
sim_fpu result,
|
||
sim_fpu input)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
trace_one_insn (sd, cpu, cia.ip, 1,
|
||
itable[indx].file, itable[indx].line_nr, "fpu",
|
||
"%-*s %*g %-*s => %*g",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX + SIZE_DECIMAL + 3, sim_fpu_2d (&input),
|
||
SIZE_HEX + SIZE_DECIMAL + 3, "",
|
||
SIZE_HEX + SIZE_DECIMAL, sim_fpu_2d (&result));
|
||
}
|
||
|
||
/* Trace the result of an FPU operation with 1 floating point input and a floating point output */
|
||
void
|
||
tic80_trace_fpu1 (SIM_DESC sd,
|
||
sim_cpu *cpu,
|
||
sim_cia cia,
|
||
int indx,
|
||
sim_fpu result)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
trace_one_insn (sd, cpu, cia.ip, 1,
|
||
itable[indx].file, itable[indx].line_nr, "fpu",
|
||
"%-*s %-*s %-*s => %*g",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX + SIZE_DECIMAL + 3, "",
|
||
SIZE_HEX + SIZE_DECIMAL + 3, "",
|
||
SIZE_HEX + SIZE_DECIMAL, sim_fpu_2d (&result));
|
||
}
|
||
|
||
/* Trace the result of an FPU operation with 2 floating point inputs and an integer output */
|
||
void
|
||
tic80_trace_fpu2i (SIM_DESC sd,
|
||
sim_cpu *cpu,
|
||
sim_cia cia,
|
||
int indx,
|
||
unsigned32 result,
|
||
sim_fpu input1,
|
||
sim_fpu input2)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
trace_one_insn (sd, cpu, cia.ip, 1,
|
||
itable[indx].file, itable[indx].line_nr, "fpu",
|
||
"%-*s %*f %*f => 0x%.*lx %-*ld",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX + SIZE_DECIMAL + 3, sim_fpu_2d (&input1),
|
||
SIZE_HEX + SIZE_DECIMAL + 3, sim_fpu_2d (&input2),
|
||
SIZE_HEX, result, SIZE_DECIMAL, (long)(signed32)result);
|
||
}
|
||
|
||
/* Trace the result of an FPU operation with 2 floating point inputs and an integer output
|
||
that is the result of a comparison. */
|
||
void
|
||
tic80_trace_fpu2cmp (SIM_DESC sd,
|
||
sim_cpu *cpu,
|
||
sim_cia cia,
|
||
int indx,
|
||
unsigned32 result,
|
||
sim_fpu input1,
|
||
sim_fpu input2)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
trace_one_insn (sd, cpu, cia.ip, 1,
|
||
itable[indx].file, itable[indx].line_nr, "fpu",
|
||
"%-*s %*f %*f => 0x%.*lx %s",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX + SIZE_DECIMAL + 3, sim_fpu_2d (&input1),
|
||
SIZE_HEX + SIZE_DECIMAL + 3, sim_fpu_2d (&input2),
|
||
SIZE_HEX, result, tic80_trace_cmp_internal (result));
|
||
}
|
||
|
||
/* Trace the result of a NOP operation */
|
||
char *
|
||
tic80_trace_nop (int indx)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
sprintf (tic80_trace_buffer, "%s", itable[indx].name);
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of a data sink with one input */
|
||
char *
|
||
tic80_trace_sink1 (int indx, unsigned32 input)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
sprintf (tic80_trace_buffer, "%-*s 0x%.*lx/%*ld",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, input, SIZE_DECIMAL, (long)(signed32)input);
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of a data sink with two inputs */
|
||
char *
|
||
tic80_trace_sink2 (int indx, unsigned32 input1, unsigned32 input2)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
sprintf (tic80_trace_buffer, "%-*s 0x%.*lx/%*ld 0x%.*lx/%*ld",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, input1, SIZE_DECIMAL, (long)(signed32)input1,
|
||
SIZE_HEX, input2, SIZE_DECIMAL, (long)(signed32)input2);
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of a data sink with three inputs */
|
||
char *
|
||
tic80_trace_sink3 (int indx, unsigned32 input1, unsigned32 input2, unsigned32 input3)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
sprintf (tic80_trace_buffer, "%-*s 0x%.*lx/%*ld 0x%.*lx/%*ld 0x%.*lx/%*ld",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, input1, SIZE_DECIMAL, (long)(signed32)input1,
|
||
SIZE_HEX, input2, SIZE_DECIMAL, (long)(signed32)input2,
|
||
SIZE_HEX, input3, SIZE_DECIMAL, (long)(signed32)input3);
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of a conditional branch operation */
|
||
char *
|
||
tic80_trace_cond_br (int indx,
|
||
int jump_p,
|
||
unsigned32 cond,
|
||
unsigned32 target)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
if (jump_p)
|
||
sprintf (tic80_trace_buffer,
|
||
"%-*s 0x%.*lx %*s 0x%.*lx/%*ld => 0x%.*lx",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, target, SIZE_DECIMAL, "",
|
||
SIZE_HEX, cond, SIZE_DECIMAL, (long)(signed32)cond,
|
||
SIZE_HEX, target);
|
||
else
|
||
sprintf (tic80_trace_buffer,
|
||
"%-*s 0x%.*lx %*s 0x%.*lx/%*ld => [fallthrough]",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, target, SIZE_DECIMAL, "",
|
||
SIZE_HEX, cond, SIZE_DECIMAL, (long)(signed32)cond);
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of a unconditional branch operation */
|
||
char *
|
||
tic80_trace_ucond_br (int indx,
|
||
unsigned32 target)
|
||
{
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
sprintf (tic80_trace_buffer,
|
||
"%-*s 0x%.*lx %*s => 0x%.*lx",
|
||
tic80_size_name, itable[indx].name,
|
||
SIZE_HEX, target, (SIZE_DECIMAL*2) + SIZE_HEX + 4, "",
|
||
SIZE_HEX, target);
|
||
|
||
return tic80_trace_buffer;
|
||
}
|
||
|
||
/* Trace the result of a load or store operation with 2 integer addresses
|
||
and an integer output or input */
|
||
void
|
||
tic80_trace_ldst (SIM_DESC sd,
|
||
sim_cpu *cpu,
|
||
sim_cia cia,
|
||
int indx,
|
||
int st_p,
|
||
int m_p,
|
||
int s_p,
|
||
unsigned32 value,
|
||
unsigned32 input1,
|
||
unsigned32 input2)
|
||
{
|
||
char name[40];
|
||
|
||
if (!tic80_size_name)
|
||
tic80_init_trace ();
|
||
|
||
strcpy (name, itable[indx].name);
|
||
if (m_p)
|
||
strcat (name, ":m");
|
||
|
||
if (s_p)
|
||
strcat (name, ":s");
|
||
|
||
trace_one_insn (sd, cpu, cia.ip, 1,
|
||
itable[indx].file, itable[indx].line_nr, "memory",
|
||
"%-*s 0x%.*lx/%*ld 0x%.*lx/%*ld %s 0x%.*lx/%*ld",
|
||
tic80_size_name, name,
|
||
SIZE_HEX, input1, SIZE_DECIMAL, (long)(signed32)input1,
|
||
SIZE_HEX, input2, SIZE_DECIMAL, (long)(signed32)input2,
|
||
(!st_p) ? "=>" : "<=",
|
||
SIZE_HEX, value, SIZE_DECIMAL, (long)(signed32)value);
|
||
}
|
||
|
||
#endif /* WITH_TRACE */
|