Subversion Repositories or1k

/* 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,