diff options
Diffstat (limited to 'sim/tic80/misc.c')
| -rw-r--r-- | sim/tic80/misc.c | 624 |
1 files changed, 0 insertions, 624 deletions
diff --git a/sim/tic80/misc.c b/sim/tic80/misc.c deleted file mode 100644 index fc7fbec12b7..00000000000 --- a/sim/tic80/misc.c +++ /dev/null @@ -1,624 +0,0 @@ -/* 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 %*g %*g => 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 %*g %*g => 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, - int size, - int code) -{ - char *suffix1, *suffix2; - - if (!tic80_size_name) - tic80_init_trace (); - - if (size >= 0 && code >= 0) - { /* BCND */ - switch (code) - { - default: suffix1 = "???"; break; - case 0: suffix1 = "nev"; break; - case 1: suffix1 = "gt0"; break; - case 2: suffix1 = "eq0"; break; - case 3: suffix1 = "ge0"; break; - case 4: suffix1 = "lt0"; break; - case 5: suffix1 = "ne0"; break; - case 6: suffix1 = "le0"; break; - case 7: suffix1 = "alw"; break; - } - - switch (size) - { - default: suffix2 = ".?"; break; - case 0: suffix2 = ".b"; break; - case 1: suffix2 = ".h"; break; - case 2: suffix2 = ".w"; break; - } - - } else { /* BBO/BBZ */ - - suffix2 = ""; - switch (cond) - { - default: suffix1 = "??.?"; break; - case 29: suffix1 = "hs.w"; break; - case 28: suffix1 = "lo.w"; break; - case 27: suffix1 = "ls.w"; break; - case 26: suffix1 = "hi.w"; break; - case 25: suffix1 = "ge.w"; break; - case 24: suffix1 = "lt.w"; break; - case 23: suffix1 = "le.w"; break; - case 22: suffix1 = "gt.w"; break; - case 21: suffix1 = "ne.w"; break; - case 20: suffix1 = "eq.w"; break; - case 19: suffix1 = "hs.h"; break; - case 18: suffix1 = "lo.h"; break; - case 17: suffix1 = "ls.h"; break; - case 16: suffix1 = "hi.h"; break; - case 15: suffix1 = "ge.h"; break; - case 14: suffix1 = "lt.h"; break; - case 13: suffix1 = "le.h"; break; - case 12: suffix1 = "gt.h"; break; - case 11: suffix1 = "ne.h"; break; - case 10: suffix1 = "eq.h"; break; - case 9: suffix1 = "hs.b"; break; - case 8: suffix1 = "lo.b"; break; - case 7: suffix1 = "ls.b"; break; - case 6: suffix1 = "hi.b"; break; - case 5: suffix1 = "ge.b"; break; - case 4: suffix1 = "lt.b"; break; - case 3: suffix1 = "le.b"; break; - case 2: suffix1 = "gt.b"; break; - case 1: suffix1 = "ne.b"; break; - case 0: suffix1 = "eq.b"; break; - } - } - - if (jump_p) - sprintf (tic80_trace_buffer, - "%-*s 0x%.*lx %*s 0x%.*lx/%*ld => 0x%.*lx %s%s", - tic80_size_name, itable[indx].name, - SIZE_HEX, target, SIZE_DECIMAL, "", - SIZE_HEX, cond, SIZE_DECIMAL, (long)(signed32)cond, - SIZE_HEX, target, - suffix1, suffix2); - else - sprintf (tic80_trace_buffer, - "%-*s 0x%.*lx %*s 0x%.*lx/%*ld => %-*s %s%s", - tic80_size_name, itable[indx].name, - SIZE_HEX, target, SIZE_DECIMAL, "", - SIZE_HEX, cond, SIZE_DECIMAL, (long)(signed32)cond, - SIZE_HEX + 2, "[no jump]", - suffix1, suffix2); - - 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 */ |