OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [sim/] [common/] [sim-trace.c] - Diff between revs 24 and 157

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 24 Rev 157
/* Simulator tracing/debugging support.
/* Simulator tracing/debugging support.
   Copyright (C) 1997, 1998, 2001, 2007, 2008 Free Software Foundation, Inc.
   Copyright (C) 1997, 1998, 2001, 2007, 2008 Free Software Foundation, Inc.
   Contributed by Cygnus Support.
   Contributed by Cygnus Support.
 
 
This file is part of GDB, the GNU debugger.
This file is part of GDB, the GNU debugger.
 
 
This program is free software; you can redistribute it and/or modify
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
(at your option) any later version.
 
 
This program is distributed in the hope that it will be useful,
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
GNU General Public License for more details.
 
 
You should have received a copy of the GNU General Public License
You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
 
#include "sim-main.h"
#include "sim-main.h"
#include "sim-io.h"
#include "sim-io.h"
#include "sim-options.h"
#include "sim-options.h"
#include "sim-fpu.h"
#include "sim-fpu.h"
 
 
#include "bfd.h"
#include "bfd.h"
#include "libiberty.h"
#include "libiberty.h"
 
 
#include "sim-assert.h"
#include "sim-assert.h"
 
 
#ifdef HAVE_STRING_H
#ifdef HAVE_STRING_H
#include <string.h>
#include <string.h>
#else
#else
#ifdef HAVE_STRINGS_H
#ifdef HAVE_STRINGS_H
#include <strings.h>
#include <strings.h>
#endif
#endif
#endif
#endif
#ifdef HAVE_STDLIB_H
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#include <stdlib.h>
#endif
#endif
 
 
#ifndef SIZE_PHASE
#ifndef SIZE_PHASE
#define SIZE_PHASE 8
#define SIZE_PHASE 8
#endif
#endif
 
 
#ifndef SIZE_LOCATION
#ifndef SIZE_LOCATION
#define SIZE_LOCATION 20
#define SIZE_LOCATION 20
#endif
#endif
 
 
#ifndef SIZE_PC
#ifndef SIZE_PC
#define SIZE_PC 6
#define SIZE_PC 6
#endif
#endif
 
 
#ifndef SIZE_LINE_NUMBER
#ifndef SIZE_LINE_NUMBER
#define SIZE_LINE_NUMBER 4
#define SIZE_LINE_NUMBER 4
#endif
#endif
 
 
static MODULE_INIT_FN trace_init;
static MODULE_INIT_FN trace_init;
static MODULE_UNINSTALL_FN trace_uninstall;
static MODULE_UNINSTALL_FN trace_uninstall;
 
 
static DECLARE_OPTION_HANDLER (trace_option_handler);
static DECLARE_OPTION_HANDLER (trace_option_handler);
 
 
enum {
enum {
  OPTION_TRACE_INSN     = OPTION_START,
  OPTION_TRACE_INSN     = OPTION_START,
  OPTION_TRACE_DECODE,
  OPTION_TRACE_DECODE,
  OPTION_TRACE_EXTRACT,
  OPTION_TRACE_EXTRACT,
  OPTION_TRACE_LINENUM,
  OPTION_TRACE_LINENUM,
  OPTION_TRACE_MEMORY,
  OPTION_TRACE_MEMORY,
  OPTION_TRACE_MODEL,
  OPTION_TRACE_MODEL,
  OPTION_TRACE_ALU,
  OPTION_TRACE_ALU,
  OPTION_TRACE_CORE,
  OPTION_TRACE_CORE,
  OPTION_TRACE_EVENTS,
  OPTION_TRACE_EVENTS,
  OPTION_TRACE_FPU,
  OPTION_TRACE_FPU,
  OPTION_TRACE_BRANCH,
  OPTION_TRACE_BRANCH,
  OPTION_TRACE_SEMANTICS,
  OPTION_TRACE_SEMANTICS,
  OPTION_TRACE_RANGE,
  OPTION_TRACE_RANGE,
  OPTION_TRACE_FUNCTION,
  OPTION_TRACE_FUNCTION,
  OPTION_TRACE_DEBUG,
  OPTION_TRACE_DEBUG,
  OPTION_TRACE_FILE,
  OPTION_TRACE_FILE,
  OPTION_TRACE_VPU
  OPTION_TRACE_VPU
};
};
 
 
static const OPTION trace_options[] =
static const OPTION trace_options[] =
{
{
  /* This table is organized to group related instructions together.  */
  /* This table is organized to group related instructions together.  */
  { {"trace", optional_argument, NULL, 't'},
  { {"trace", optional_argument, NULL, 't'},
      't', "on|off", "Trace useful things",
      't', "on|off", "Trace useful things",
      trace_option_handler },
      trace_option_handler },
  { {"trace-insn", optional_argument, NULL, OPTION_TRACE_INSN},
  { {"trace-insn", optional_argument, NULL, OPTION_TRACE_INSN},
      '\0', "on|off", "Perform instruction tracing",
      '\0', "on|off", "Perform instruction tracing",
      trace_option_handler },
      trace_option_handler },
  { {"trace-decode", optional_argument, NULL, OPTION_TRACE_DECODE},
  { {"trace-decode", optional_argument, NULL, OPTION_TRACE_DECODE},
      '\0', "on|off", "Trace instruction decoding",
      '\0', "on|off", "Trace instruction decoding",
      trace_option_handler },
      trace_option_handler },
  { {"trace-extract", optional_argument, NULL, OPTION_TRACE_EXTRACT},
  { {"trace-extract", optional_argument, NULL, OPTION_TRACE_EXTRACT},
      '\0', "on|off", "Trace instruction extraction",
      '\0', "on|off", "Trace instruction extraction",
      trace_option_handler },
      trace_option_handler },
  { {"trace-linenum", optional_argument, NULL, OPTION_TRACE_LINENUM},
  { {"trace-linenum", optional_argument, NULL, OPTION_TRACE_LINENUM},
      '\0', "on|off", "Perform line number tracing (implies --trace-insn)",
      '\0', "on|off", "Perform line number tracing (implies --trace-insn)",
      trace_option_handler },
      trace_option_handler },
  { {"trace-memory", optional_argument, NULL, OPTION_TRACE_MEMORY},
  { {"trace-memory", optional_argument, NULL, OPTION_TRACE_MEMORY},
      '\0', "on|off", "Trace memory operations",
      '\0', "on|off", "Trace memory operations",
      trace_option_handler },
      trace_option_handler },
  { {"trace-alu", optional_argument, NULL, OPTION_TRACE_ALU},
  { {"trace-alu", optional_argument, NULL, OPTION_TRACE_ALU},
      '\0', "on|off", "Trace ALU operations",
      '\0', "on|off", "Trace ALU operations",
      trace_option_handler },
      trace_option_handler },
  { {"trace-fpu", optional_argument, NULL, OPTION_TRACE_FPU},
  { {"trace-fpu", optional_argument, NULL, OPTION_TRACE_FPU},
      '\0', "on|off", "Trace FPU operations",
      '\0', "on|off", "Trace FPU operations",
      trace_option_handler },
      trace_option_handler },
  { {"trace-vpu", optional_argument, NULL, OPTION_TRACE_VPU},
  { {"trace-vpu", optional_argument, NULL, OPTION_TRACE_VPU},
      '\0', "on|off", "Trace VPU operations",
      '\0', "on|off", "Trace VPU operations",
      trace_option_handler },
      trace_option_handler },
  { {"trace-branch", optional_argument, NULL, OPTION_TRACE_BRANCH},
  { {"trace-branch", optional_argument, NULL, OPTION_TRACE_BRANCH},
      '\0', "on|off", "Trace branching",
      '\0', "on|off", "Trace branching",
      trace_option_handler },
      trace_option_handler },
  { {"trace-semantics", optional_argument, NULL, OPTION_TRACE_SEMANTICS},
  { {"trace-semantics", optional_argument, NULL, OPTION_TRACE_SEMANTICS},
      '\0', "on|off", "Perform ALU, FPU, MEMORY, and BRANCH tracing",
      '\0', "on|off", "Perform ALU, FPU, MEMORY, and BRANCH tracing",
      trace_option_handler },
      trace_option_handler },
  { {"trace-model", optional_argument, NULL, OPTION_TRACE_MODEL},
  { {"trace-model", optional_argument, NULL, OPTION_TRACE_MODEL},
      '\0', "on|off", "Include model performance data",
      '\0', "on|off", "Include model performance data",
      trace_option_handler },
      trace_option_handler },
  { {"trace-core", optional_argument, NULL, OPTION_TRACE_CORE},
  { {"trace-core", optional_argument, NULL, OPTION_TRACE_CORE},
      '\0', "on|off", "Trace core operations",
      '\0', "on|off", "Trace core operations",
      trace_option_handler },
      trace_option_handler },
  { {"trace-events", optional_argument, NULL, OPTION_TRACE_EVENTS},
  { {"trace-events", optional_argument, NULL, OPTION_TRACE_EVENTS},
      '\0', "on|off", "Trace events",
      '\0', "on|off", "Trace events",
      trace_option_handler },
      trace_option_handler },
#ifdef SIM_HAVE_ADDR_RANGE
#ifdef SIM_HAVE_ADDR_RANGE
  { {"trace-range", required_argument, NULL, OPTION_TRACE_RANGE},
  { {"trace-range", required_argument, NULL, OPTION_TRACE_RANGE},
      '\0', "START,END", "Specify range of addresses for instruction tracing",
      '\0', "START,END", "Specify range of addresses for instruction tracing",
      trace_option_handler },
      trace_option_handler },
#if 0 /*wip*/
#if 0 /*wip*/
  { {"trace-function", required_argument, NULL, OPTION_TRACE_FUNCTION},
  { {"trace-function", required_argument, NULL, OPTION_TRACE_FUNCTION},
      '\0', "FUNCTION", "Specify function to trace",
      '\0', "FUNCTION", "Specify function to trace",
      trace_option_handler },
      trace_option_handler },
#endif
#endif
#endif
#endif
  { {"trace-debug", optional_argument, NULL, OPTION_TRACE_DEBUG},
  { {"trace-debug", optional_argument, NULL, OPTION_TRACE_DEBUG},
      '\0', "on|off", "Add information useful for debugging the simulator to the tracing output",
      '\0', "on|off", "Add information useful for debugging the simulator to the tracing output",
      trace_option_handler },
      trace_option_handler },
  { {"trace-file", required_argument, NULL, OPTION_TRACE_FILE},
  { {"trace-file", required_argument, NULL, OPTION_TRACE_FILE},
      '\0', "FILE NAME", "Specify tracing output file",
      '\0', "FILE NAME", "Specify tracing output file",
      trace_option_handler },
      trace_option_handler },
  { {NULL, no_argument, NULL, 0}, '\0', NULL, NULL, NULL }
  { {NULL, no_argument, NULL, 0}, '\0', NULL, NULL, NULL }
};
};
 
 
/* Set/reset the trace options indicated in MASK.  */
/* Set/reset the trace options indicated in MASK.  */
 
 
static SIM_RC
static SIM_RC
set_trace_option_mask (sd, name, mask, arg)
set_trace_option_mask (sd, name, mask, arg)
     SIM_DESC sd;
     SIM_DESC sd;
     const char *name;
     const char *name;
     int mask;
     int mask;
     const char *arg;
     const char *arg;
{
{
  int trace_nr;
  int trace_nr;
  int cpu_nr;
  int cpu_nr;
  int trace_val = 1;
  int trace_val = 1;
 
 
  if (arg != NULL)
  if (arg != NULL)
    {
    {
      if (strcmp (arg, "yes") == 0
      if (strcmp (arg, "yes") == 0
          || strcmp (arg, "on") == 0
          || strcmp (arg, "on") == 0
          || strcmp (arg, "1") == 0)
          || strcmp (arg, "1") == 0)
        trace_val = 1;
        trace_val = 1;
      else if (strcmp (arg, "no") == 0
      else if (strcmp (arg, "no") == 0
               || strcmp (arg, "off") == 0
               || strcmp (arg, "off") == 0
               || strcmp (arg, "0") == 0)
               || strcmp (arg, "0") == 0)
        trace_val = 0;
        trace_val = 0;
      else
      else
        {
        {
          sim_io_eprintf (sd, "Argument `%s' for `--trace%s' invalid, one of `on', `off', `yes', `no' expected\n", arg, name);
          sim_io_eprintf (sd, "Argument `%s' for `--trace%s' invalid, one of `on', `off', `yes', `no' expected\n", arg, name);
          return SIM_RC_FAIL;
          return SIM_RC_FAIL;
        }
        }
    }
    }
 
 
  /* update applicable trace bits */
  /* update applicable trace bits */
  for (trace_nr = 0; trace_nr < MAX_TRACE_VALUES; ++trace_nr)
  for (trace_nr = 0; trace_nr < MAX_TRACE_VALUES; ++trace_nr)
    {
    {
      if ((mask & (1 << trace_nr)) == 0)
      if ((mask & (1 << trace_nr)) == 0)
        continue;
        continue;
 
 
      /* Set non-cpu specific values.  */
      /* Set non-cpu specific values.  */
      switch (trace_nr)
      switch (trace_nr)
        {
        {
        case TRACE_EVENTS_IDX:
        case TRACE_EVENTS_IDX:
          STATE_EVENTS (sd)->trace = trace_val;
          STATE_EVENTS (sd)->trace = trace_val;
          break;
          break;
        case TRACE_DEBUG_IDX:
        case TRACE_DEBUG_IDX:
          STATE_TRACE_FLAGS (sd)[trace_nr] = trace_val;
          STATE_TRACE_FLAGS (sd)[trace_nr] = trace_val;
          break;
          break;
        }
        }
 
 
      /* Set cpu values.  */
      /* Set cpu values.  */
      for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
      for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
        {
        {
          CPU_TRACE_FLAGS (STATE_CPU (sd, cpu_nr))[trace_nr] = trace_val;
          CPU_TRACE_FLAGS (STATE_CPU (sd, cpu_nr))[trace_nr] = trace_val;
        }
        }
    }
    }
 
 
  /* Re-compute the cpu trace summary.  */
  /* Re-compute the cpu trace summary.  */
  if (trace_val)
  if (trace_val)
    {
    {
      for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
      for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
        CPU_TRACE_DATA (STATE_CPU (sd, cpu_nr))->trace_any_p = 1;
        CPU_TRACE_DATA (STATE_CPU (sd, cpu_nr))->trace_any_p = 1;
    }
    }
  else
  else
    {
    {
      for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
      for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
        {
        {
          CPU_TRACE_DATA (STATE_CPU (sd, cpu_nr))->trace_any_p = 0;
          CPU_TRACE_DATA (STATE_CPU (sd, cpu_nr))->trace_any_p = 0;
          for (trace_nr = 0; trace_nr < MAX_TRACE_VALUES; ++trace_nr)
          for (trace_nr = 0; trace_nr < MAX_TRACE_VALUES; ++trace_nr)
            {
            {
              if (CPU_TRACE_FLAGS (STATE_CPU (sd, cpu_nr))[trace_nr])
              if (CPU_TRACE_FLAGS (STATE_CPU (sd, cpu_nr))[trace_nr])
                {
                {
                  CPU_TRACE_DATA (STATE_CPU (sd, cpu_nr))->trace_any_p = 1;
                  CPU_TRACE_DATA (STATE_CPU (sd, cpu_nr))->trace_any_p = 1;
                  break;
                  break;
                }
                }
            }
            }
        }
        }
    }
    }
 
 
  return SIM_RC_OK;
  return SIM_RC_OK;
}
}
 
 
/* Set one trace option based on its IDX value.  */
/* Set one trace option based on its IDX value.  */
 
 
static SIM_RC
static SIM_RC
set_trace_option (sd, name, idx, arg)
set_trace_option (sd, name, idx, arg)
     SIM_DESC sd;
     SIM_DESC sd;
     const char *name;
     const char *name;
     int idx;
     int idx;
     const char *arg;
     const char *arg;
{
{
  return set_trace_option_mask (sd, name, 1 << idx, arg);
  return set_trace_option_mask (sd, name, 1 << idx, arg);
}
}
 
 
 
 
static SIM_RC
static SIM_RC
trace_option_handler (SIM_DESC sd, sim_cpu *cpu, int opt,
trace_option_handler (SIM_DESC sd, sim_cpu *cpu, int opt,
                      char *arg, int is_command)
                      char *arg, int is_command)
{
{
  int n;
  int n;
  int cpu_nr;
  int cpu_nr;
 
 
  switch (opt)
  switch (opt)
    {
    {
    case 't' :
    case 't' :
      if (! WITH_TRACE)
      if (! WITH_TRACE)
        sim_io_eprintf (sd, "Tracing not compiled in, `-t' ignored\n");
        sim_io_eprintf (sd, "Tracing not compiled in, `-t' ignored\n");
      else
      else
        return set_trace_option_mask (sd, "trace", TRACE_USEFUL_MASK, arg);
        return set_trace_option_mask (sd, "trace", TRACE_USEFUL_MASK, arg);
      break;
      break;
 
 
    case OPTION_TRACE_INSN :
    case OPTION_TRACE_INSN :
      if (WITH_TRACE_INSN_P)
      if (WITH_TRACE_INSN_P)
        return set_trace_option (sd, "-insn", TRACE_INSN_IDX, arg);
        return set_trace_option (sd, "-insn", TRACE_INSN_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "Instruction tracing not compiled in, `--trace-insn' ignored\n");
        sim_io_eprintf (sd, "Instruction tracing not compiled in, `--trace-insn' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_DECODE :
    case OPTION_TRACE_DECODE :
      if (WITH_TRACE_DECODE_P)
      if (WITH_TRACE_DECODE_P)
        return set_trace_option (sd, "-decode", TRACE_DECODE_IDX, arg);
        return set_trace_option (sd, "-decode", TRACE_DECODE_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "Decode tracing not compiled in, `--trace-decode' ignored\n");
        sim_io_eprintf (sd, "Decode tracing not compiled in, `--trace-decode' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_EXTRACT :
    case OPTION_TRACE_EXTRACT :
      if (WITH_TRACE_EXTRACT_P)
      if (WITH_TRACE_EXTRACT_P)
        return set_trace_option (sd, "-extract", TRACE_EXTRACT_IDX, arg);
        return set_trace_option (sd, "-extract", TRACE_EXTRACT_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "Extract tracing not compiled in, `--trace-extract' ignored\n");
        sim_io_eprintf (sd, "Extract tracing not compiled in, `--trace-extract' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_LINENUM :
    case OPTION_TRACE_LINENUM :
      if (WITH_TRACE_LINENUM_P && WITH_TRACE_INSN_P)
      if (WITH_TRACE_LINENUM_P && WITH_TRACE_INSN_P)
        {
        {
          if (set_trace_option (sd, "-linenum", TRACE_LINENUM_IDX, arg) != SIM_RC_OK
          if (set_trace_option (sd, "-linenum", TRACE_LINENUM_IDX, arg) != SIM_RC_OK
              || set_trace_option (sd, "-linenum", TRACE_INSN_IDX, arg) != SIM_RC_OK)
              || set_trace_option (sd, "-linenum", TRACE_INSN_IDX, arg) != SIM_RC_OK)
            return SIM_RC_FAIL;
            return SIM_RC_FAIL;
        }
        }
      else
      else
        sim_io_eprintf (sd, "Line number or instruction tracing not compiled in, `--trace-linenum' ignored\n");
        sim_io_eprintf (sd, "Line number or instruction tracing not compiled in, `--trace-linenum' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_MEMORY :
    case OPTION_TRACE_MEMORY :
      if (WITH_TRACE_MEMORY_P)
      if (WITH_TRACE_MEMORY_P)
        return set_trace_option (sd, "-memory", TRACE_MEMORY_IDX, arg);
        return set_trace_option (sd, "-memory", TRACE_MEMORY_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "Memory tracing not compiled in, `--trace-memory' ignored\n");
        sim_io_eprintf (sd, "Memory tracing not compiled in, `--trace-memory' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_MODEL :
    case OPTION_TRACE_MODEL :
      if (WITH_TRACE_MODEL_P)
      if (WITH_TRACE_MODEL_P)
        return set_trace_option (sd, "-model", TRACE_MODEL_IDX, arg);
        return set_trace_option (sd, "-model", TRACE_MODEL_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "Model tracing not compiled in, `--trace-model' ignored\n");
        sim_io_eprintf (sd, "Model tracing not compiled in, `--trace-model' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_ALU :
    case OPTION_TRACE_ALU :
      if (WITH_TRACE_ALU_P)
      if (WITH_TRACE_ALU_P)
        return set_trace_option (sd, "-alu", TRACE_ALU_IDX, arg);
        return set_trace_option (sd, "-alu", TRACE_ALU_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "ALU tracing not compiled in, `--trace-alu' ignored\n");
        sim_io_eprintf (sd, "ALU tracing not compiled in, `--trace-alu' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_CORE :
    case OPTION_TRACE_CORE :
      if (WITH_TRACE_CORE_P)
      if (WITH_TRACE_CORE_P)
        return set_trace_option (sd, "-core", TRACE_CORE_IDX, arg);
        return set_trace_option (sd, "-core", TRACE_CORE_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "CORE tracing not compiled in, `--trace-core' ignored\n");
        sim_io_eprintf (sd, "CORE tracing not compiled in, `--trace-core' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_EVENTS :
    case OPTION_TRACE_EVENTS :
      if (WITH_TRACE_EVENTS_P)
      if (WITH_TRACE_EVENTS_P)
        return set_trace_option (sd, "-events", TRACE_EVENTS_IDX, arg);
        return set_trace_option (sd, "-events", TRACE_EVENTS_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "EVENTS tracing not compiled in, `--trace-events' ignored\n");
        sim_io_eprintf (sd, "EVENTS tracing not compiled in, `--trace-events' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_FPU :
    case OPTION_TRACE_FPU :
      if (WITH_TRACE_FPU_P)
      if (WITH_TRACE_FPU_P)
        return set_trace_option (sd, "-fpu", TRACE_FPU_IDX, arg);
        return set_trace_option (sd, "-fpu", TRACE_FPU_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "FPU tracing not compiled in, `--trace-fpu' ignored\n");
        sim_io_eprintf (sd, "FPU tracing not compiled in, `--trace-fpu' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_VPU :
    case OPTION_TRACE_VPU :
      if (WITH_TRACE_VPU_P)
      if (WITH_TRACE_VPU_P)
        return set_trace_option (sd, "-vpu", TRACE_VPU_IDX, arg);
        return set_trace_option (sd, "-vpu", TRACE_VPU_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "VPU tracing not compiled in, `--trace-vpu' ignored\n");
        sim_io_eprintf (sd, "VPU tracing not compiled in, `--trace-vpu' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_BRANCH :
    case OPTION_TRACE_BRANCH :
      if (WITH_TRACE_BRANCH_P)
      if (WITH_TRACE_BRANCH_P)
        return set_trace_option (sd, "-branch", TRACE_BRANCH_IDX, arg);
        return set_trace_option (sd, "-branch", TRACE_BRANCH_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "Branch tracing not compiled in, `--trace-branch' ignored\n");
        sim_io_eprintf (sd, "Branch tracing not compiled in, `--trace-branch' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_SEMANTICS :
    case OPTION_TRACE_SEMANTICS :
      if (WITH_TRACE_ALU_P
      if (WITH_TRACE_ALU_P
          && WITH_TRACE_FPU_P
          && WITH_TRACE_FPU_P
          && WITH_TRACE_MEMORY_P
          && WITH_TRACE_MEMORY_P
          && WITH_TRACE_BRANCH_P)
          && WITH_TRACE_BRANCH_P)
        {
        {
          if (set_trace_option (sd, "-semantics", TRACE_ALU_IDX, arg) != SIM_RC_OK
          if (set_trace_option (sd, "-semantics", TRACE_ALU_IDX, arg) != SIM_RC_OK
              || set_trace_option (sd, "-semantics", TRACE_FPU_IDX, arg) != SIM_RC_OK
              || set_trace_option (sd, "-semantics", TRACE_FPU_IDX, arg) != SIM_RC_OK
              || set_trace_option (sd, "-semantics", TRACE_VPU_IDX, arg) != SIM_RC_OK
              || set_trace_option (sd, "-semantics", TRACE_VPU_IDX, arg) != SIM_RC_OK
              || set_trace_option (sd, "-semantics", TRACE_MEMORY_IDX, arg) != SIM_RC_OK
              || set_trace_option (sd, "-semantics", TRACE_MEMORY_IDX, arg) != SIM_RC_OK
              || set_trace_option (sd, "-semantics", TRACE_BRANCH_IDX, arg) != SIM_RC_OK)
              || set_trace_option (sd, "-semantics", TRACE_BRANCH_IDX, arg) != SIM_RC_OK)
            return SIM_RC_FAIL;
            return SIM_RC_FAIL;
        }
        }
      else
      else
        sim_io_eprintf (sd, "Alu, fpu, memory, and/or branch tracing not compiled in, `--trace-semantics' ignored\n");
        sim_io_eprintf (sd, "Alu, fpu, memory, and/or branch tracing not compiled in, `--trace-semantics' ignored\n");
      break;
      break;
 
 
#ifdef SIM_HAVE_ADDR_RANGE
#ifdef SIM_HAVE_ADDR_RANGE
    case OPTION_TRACE_RANGE :
    case OPTION_TRACE_RANGE :
      if (WITH_TRACE)
      if (WITH_TRACE)
        {
        {
          char *chp = arg;
          char *chp = arg;
          unsigned long start,end;
          unsigned long start,end;
          start = strtoul (chp, &chp, 0);
          start = strtoul (chp, &chp, 0);
          if (*chp != ',')
          if (*chp != ',')
            {
            {
              sim_io_eprintf (sd, "--trace-range missing END argument\n");
              sim_io_eprintf (sd, "--trace-range missing END argument\n");
              return SIM_RC_FAIL;
              return SIM_RC_FAIL;
            }
            }
          end = strtoul (chp + 1, NULL, 0);
          end = strtoul (chp + 1, NULL, 0);
          /* FIXME: Argument validation.  */
          /* FIXME: Argument validation.  */
          if (cpu != NULL)
          if (cpu != NULL)
            sim_addr_range_add (TRACE_RANGE (CPU_PROFILE_DATA (cpu)),
            sim_addr_range_add (TRACE_RANGE (CPU_PROFILE_DATA (cpu)),
                                start, end);
                                start, end);
          else
          else
            for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
            for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
              sim_addr_range_add (TRACE_RANGE (CPU_TRACE_DATA (STATE_CPU (sd, cpu_nr))),
              sim_addr_range_add (TRACE_RANGE (CPU_TRACE_DATA (STATE_CPU (sd, cpu_nr))),
                                  start, end);
                                  start, end);
        }
        }
      else
      else
        sim_io_eprintf (sd, "Tracing not compiled in, `--trace-range' ignored\n");
        sim_io_eprintf (sd, "Tracing not compiled in, `--trace-range' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_FUNCTION :
    case OPTION_TRACE_FUNCTION :
      if (WITH_TRACE)
      if (WITH_TRACE)
        {
        {
          /*wip: need to compute function range given name*/
          /*wip: need to compute function range given name*/
        }
        }
      else
      else
        sim_io_eprintf (sd, "Tracing not compiled in, `--trace-function' ignored\n");
        sim_io_eprintf (sd, "Tracing not compiled in, `--trace-function' ignored\n");
      break;
      break;
#endif /* SIM_HAVE_ADDR_RANGE */
#endif /* SIM_HAVE_ADDR_RANGE */
 
 
    case OPTION_TRACE_DEBUG :
    case OPTION_TRACE_DEBUG :
      if (WITH_TRACE_DEBUG_P)
      if (WITH_TRACE_DEBUG_P)
        return set_trace_option (sd, "-debug", TRACE_DEBUG_IDX, arg);
        return set_trace_option (sd, "-debug", TRACE_DEBUG_IDX, arg);
      else
      else
        sim_io_eprintf (sd, "Tracing debug support not compiled in, `--trace-debug' ignored\n");
        sim_io_eprintf (sd, "Tracing debug support not compiled in, `--trace-debug' ignored\n");
      break;
      break;
 
 
    case OPTION_TRACE_FILE :
    case OPTION_TRACE_FILE :
      if (! WITH_TRACE)
      if (! WITH_TRACE)
        sim_io_eprintf (sd, "Tracing not compiled in, `--trace-file' ignored\n");
        sim_io_eprintf (sd, "Tracing not compiled in, `--trace-file' ignored\n");
      else
      else
        {
        {
          FILE *f = fopen (arg, "w");
          FILE *f = fopen (arg, "w");
 
 
          if (f == NULL)
          if (f == NULL)
            {
            {
              sim_io_eprintf (sd, "Unable to open trace output file `%s'\n", arg);
              sim_io_eprintf (sd, "Unable to open trace output file `%s'\n", arg);
              return SIM_RC_FAIL;
              return SIM_RC_FAIL;
            }
            }
          for (n = 0; n < MAX_NR_PROCESSORS; ++n)
          for (n = 0; n < MAX_NR_PROCESSORS; ++n)
            TRACE_FILE (CPU_TRACE_DATA (STATE_CPU (sd, n))) = f;
            TRACE_FILE (CPU_TRACE_DATA (STATE_CPU (sd, n))) = f;
          TRACE_FILE (STATE_TRACE_DATA (sd)) = f;
          TRACE_FILE (STATE_TRACE_DATA (sd)) = f;
        }
        }
      break;
      break;
    }
    }
 
 
  return SIM_RC_OK;
  return SIM_RC_OK;
}
}


/* Install tracing support.  */
/* Install tracing support.  */
 
 
SIM_RC
SIM_RC
trace_install (SIM_DESC sd)
trace_install (SIM_DESC sd)
{
{
  int i;
  int i;
 
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
 
 
  sim_add_option_table (sd, NULL, trace_options);
  sim_add_option_table (sd, NULL, trace_options);
  memset (STATE_TRACE_DATA (sd), 0, sizeof (* STATE_TRACE_DATA (sd)));
  memset (STATE_TRACE_DATA (sd), 0, sizeof (* STATE_TRACE_DATA (sd)));
  for (i = 0; i < MAX_NR_PROCESSORS; ++i)
  for (i = 0; i < MAX_NR_PROCESSORS; ++i)
    memset (CPU_TRACE_DATA (STATE_CPU (sd, i)), 0,
    memset (CPU_TRACE_DATA (STATE_CPU (sd, i)), 0,
            sizeof (* CPU_TRACE_DATA (STATE_CPU (sd, i))));
            sizeof (* CPU_TRACE_DATA (STATE_CPU (sd, i))));
  sim_module_add_init_fn (sd, trace_init);
  sim_module_add_init_fn (sd, trace_init);
  sim_module_add_uninstall_fn (sd, trace_uninstall);
  sim_module_add_uninstall_fn (sd, trace_uninstall);
  return SIM_RC_OK;
  return SIM_RC_OK;
}
}
 
 
static SIM_RC
static SIM_RC
trace_init (SIM_DESC sd)
trace_init (SIM_DESC sd)
{
{
#ifdef SIM_HAVE_ADDR_RANGE
#ifdef SIM_HAVE_ADDR_RANGE
  /* Check if a range has been specified without specifying what to
  /* Check if a range has been specified without specifying what to
     collect.  */
     collect.  */
  {
  {
    int i;
    int i;
 
 
    for (i = 0; i < MAX_NR_PROCESSORS; ++i)
    for (i = 0; i < MAX_NR_PROCESSORS; ++i)
      {
      {
        sim_cpu *cpu = STATE_CPU (sd, i);
        sim_cpu *cpu = STATE_CPU (sd, i);
 
 
        if (ADDR_RANGE_RANGES (TRACE_RANGE (CPU_TRACE_DATA (cpu)))
        if (ADDR_RANGE_RANGES (TRACE_RANGE (CPU_TRACE_DATA (cpu)))
            && ! TRACE_INSN_P (cpu))
            && ! TRACE_INSN_P (cpu))
          {
          {
            sim_io_eprintf_cpu (cpu, "Tracing address range specified without --trace-insn.\n");
            sim_io_eprintf_cpu (cpu, "Tracing address range specified without --trace-insn.\n");
            sim_io_eprintf_cpu (cpu, "Address range ignored.\n");
            sim_io_eprintf_cpu (cpu, "Address range ignored.\n");
            sim_addr_range_delete (TRACE_RANGE (CPU_TRACE_DATA (cpu)),
            sim_addr_range_delete (TRACE_RANGE (CPU_TRACE_DATA (cpu)),
                                   0, ~ (address_word) 0);
                                   0, ~ (address_word) 0);
          }
          }
      }
      }
  }
  }
#endif
#endif
 
 
  return SIM_RC_OK;
  return SIM_RC_OK;
}
}
 
 
static void
static void
trace_uninstall (SIM_DESC sd)
trace_uninstall (SIM_DESC sd)
{
{
  int i,j;
  int i,j;
  FILE *sfile = TRACE_FILE (STATE_TRACE_DATA (sd));
  FILE *sfile = TRACE_FILE (STATE_TRACE_DATA (sd));
 
 
  if (sfile != NULL)
  if (sfile != NULL)
    fclose (sfile);
    fclose (sfile);
 
 
  for (i = 0; i < MAX_NR_PROCESSORS; ++i)
  for (i = 0; i < MAX_NR_PROCESSORS; ++i)
    {
    {
      FILE *cfile = TRACE_FILE (CPU_TRACE_DATA (STATE_CPU (sd, i)));
      FILE *cfile = TRACE_FILE (CPU_TRACE_DATA (STATE_CPU (sd, i)));
      if (cfile != NULL && cfile != sfile)
      if (cfile != NULL && cfile != sfile)
        {
        {
          /* If output from different cpus is going to the same file,
          /* If output from different cpus is going to the same file,
             avoid closing the file twice.  */
             avoid closing the file twice.  */
          for (j = 0; j < i; ++j)
          for (j = 0; j < i; ++j)
            if (TRACE_FILE (CPU_TRACE_DATA (STATE_CPU (sd, j))) == cfile)
            if (TRACE_FILE (CPU_TRACE_DATA (STATE_CPU (sd, j))) == cfile)
              break;
              break;
          if (i == j)
          if (i == j)
            fclose (cfile);
            fclose (cfile);
        }
        }
    }
    }
}
}


typedef enum {
typedef enum {
  trace_fmt_invalid,
  trace_fmt_invalid,
  trace_fmt_word,
  trace_fmt_word,
  trace_fmt_fp,
  trace_fmt_fp,
  trace_fmt_fpu,
  trace_fmt_fpu,
  trace_fmt_string,
  trace_fmt_string,
  trace_fmt_bool,
  trace_fmt_bool,
  trace_fmt_addr,
  trace_fmt_addr,
  trace_fmt_instruction_incomplete,
  trace_fmt_instruction_incomplete,
} data_fmt;
} data_fmt;
 
 
/* compute the nr of trace data units consumed by data */
/* compute the nr of trace data units consumed by data */
static int
static int
save_data_size (TRACE_DATA *data,
save_data_size (TRACE_DATA *data,
                long size)
                long size)
{
{
  return ((size + sizeof (TRACE_INPUT_DATA (data) [0]) - 1)
  return ((size + sizeof (TRACE_INPUT_DATA (data) [0]) - 1)
          / sizeof (TRACE_INPUT_DATA (data) [0]));
          / sizeof (TRACE_INPUT_DATA (data) [0]));
}
}
 
 
 
 
/* Archive DATA into the trace buffer */
/* Archive DATA into the trace buffer */
static void
static void
save_data (SIM_DESC sd,
save_data (SIM_DESC sd,
           TRACE_DATA *data,
           TRACE_DATA *data,
           data_fmt fmt,
           data_fmt fmt,
           long size,
           long size,
           void *buf)
           void *buf)
{
{
  int i = TRACE_INPUT_IDX (data);
  int i = TRACE_INPUT_IDX (data);
  if (i == sizeof (TRACE_INPUT_FMT (data)))
  if (i == sizeof (TRACE_INPUT_FMT (data)))
    sim_io_error (sd, "trace buffer overflow");
    sim_io_error (sd, "trace buffer overflow");
  TRACE_INPUT_FMT (data) [i] = fmt;
  TRACE_INPUT_FMT (data) [i] = fmt;
  TRACE_INPUT_SIZE (data) [i] = size;
  TRACE_INPUT_SIZE (data) [i] = size;
  memcpy (&TRACE_INPUT_DATA (data) [i], buf, size);
  memcpy (&TRACE_INPUT_DATA (data) [i], buf, size);
  i += save_data_size (data, size);
  i += save_data_size (data, size);
  TRACE_INPUT_IDX (data) = i;
  TRACE_INPUT_IDX (data) = i;
}
}
 
 
static void
static void
print_data (SIM_DESC sd,
print_data (SIM_DESC sd,
            sim_cpu *cpu,
            sim_cpu *cpu,
            data_fmt fmt,
            data_fmt fmt,
            long size,
            long size,
            void *data)
            void *data)
{
{
  switch (fmt)
  switch (fmt)
    {
    {
    case trace_fmt_instruction_incomplete:
    case trace_fmt_instruction_incomplete:
      trace_printf (sd, cpu, " (instruction incomplete)");
      trace_printf (sd, cpu, " (instruction incomplete)");
      break;
      break;
    case trace_fmt_word:
    case trace_fmt_word:
    case trace_fmt_addr:
    case trace_fmt_addr:
      {
      {
        switch (size)
        switch (size)
          {
          {
          case sizeof (unsigned32):
          case sizeof (unsigned32):
            trace_printf (sd, cpu, " 0x%08lx", (long) * (unsigned32*) data);
            trace_printf (sd, cpu, " 0x%08lx", (long) * (unsigned32*) data);
            break;
            break;
          case sizeof (unsigned64):
          case sizeof (unsigned64):
            trace_printf (sd, cpu, " 0x%08lx%08lx",
            trace_printf (sd, cpu, " 0x%08lx%08lx",
                          (long) ((* (unsigned64*) data) >> 32),
                          (long) ((* (unsigned64*) data) >> 32),
                          (long) * (unsigned64*) data);
                          (long) * (unsigned64*) data);
            break;
            break;
          default:
          default:
            abort ();
            abort ();
          }
          }
        break;
        break;
      }
      }
    case trace_fmt_bool:
    case trace_fmt_bool:
      {
      {
        SIM_ASSERT (size == sizeof (int));
        SIM_ASSERT (size == sizeof (int));
        trace_printf (sd, cpu, " %-8s",
        trace_printf (sd, cpu, " %-8s",
                      (* (int*) data) ? "true" : "false");
                      (* (int*) data) ? "true" : "false");
        break;
        break;
      }
      }
    case trace_fmt_fp:
    case trace_fmt_fp:
      {
      {
        sim_fpu fp;
        sim_fpu fp;
        switch (size)
        switch (size)
          {
          {
            /* FIXME: Assumes sizeof float == 4; sizeof double == 8 */
            /* FIXME: Assumes sizeof float == 4; sizeof double == 8 */
          case 4:
          case 4:
            sim_fpu_32to (&fp, *(unsigned32*)data);
            sim_fpu_32to (&fp, *(unsigned32*)data);
            break;
            break;
          case 8:
          case 8:
            sim_fpu_64to (&fp, *(unsigned64*)data);
            sim_fpu_64to (&fp, *(unsigned64*)data);
            break;
            break;
          default:
          default:
            abort ();
            abort ();
          }
          }
        trace_printf (sd, cpu, " %8g", sim_fpu_2d (&fp));
        trace_printf (sd, cpu, " %8g", sim_fpu_2d (&fp));
        switch (size)
        switch (size)
          {
          {
          case 4:
          case 4:
            trace_printf (sd, cpu, " (0x%08lx)",
            trace_printf (sd, cpu, " (0x%08lx)",
                          (long) *(unsigned32*)data);
                          (long) *(unsigned32*)data);
            break;
            break;
          case 8:
          case 8:
            trace_printf (sd, cpu, " (0x%08lx%08lx)",
            trace_printf (sd, cpu, " (0x%08lx%08lx)",
                          (long) (*(unsigned64*)data >> 32),
                          (long) (*(unsigned64*)data >> 32),
                          (long) (*(unsigned64*)data));
                          (long) (*(unsigned64*)data));
            break;
            break;
          default:
          default:
            abort ();
            abort ();
          }
          }
        break;
        break;
      }
      }
    case trace_fmt_fpu:
    case trace_fmt_fpu:
      /* FIXME: At present sim_fpu data is stored as a double */
      /* FIXME: At present sim_fpu data is stored as a double */
      trace_printf (sd, cpu, " %8g", * (double*) data);
      trace_printf (sd, cpu, " %8g", * (double*) data);
      break;
      break;
    case trace_fmt_string:
    case trace_fmt_string:
      trace_printf (sd, cpu, " %-8s", (char*) data);
      trace_printf (sd, cpu, " %-8s", (char*) data);
      break;
      break;
    default:
    default:
      abort ();
      abort ();
    }
    }
}
}
 
 
static const char *
static const char *
trace_idx_to_str (int trace_idx)
trace_idx_to_str (int trace_idx)
{
{
  static char num[8];
  static char num[8];
  switch (trace_idx)
  switch (trace_idx)
    {
    {
    case TRACE_ALU_IDX:     return "alu:     ";
    case TRACE_ALU_IDX:     return "alu:     ";
    case TRACE_INSN_IDX:    return "insn:    ";
    case TRACE_INSN_IDX:    return "insn:    ";
    case TRACE_DECODE_IDX:  return "decode:  ";
    case TRACE_DECODE_IDX:  return "decode:  ";
    case TRACE_EXTRACT_IDX: return "extract: ";
    case TRACE_EXTRACT_IDX: return "extract: ";
    case TRACE_MEMORY_IDX:  return "memory:  ";
    case TRACE_MEMORY_IDX:  return "memory:  ";
    case TRACE_CORE_IDX:    return "core:    ";
    case TRACE_CORE_IDX:    return "core:    ";
    case TRACE_EVENTS_IDX:  return "events:  ";
    case TRACE_EVENTS_IDX:  return "events:  ";
    case TRACE_FPU_IDX:     return "fpu:     ";
    case TRACE_FPU_IDX:     return "fpu:     ";
    case TRACE_BRANCH_IDX:  return "branch:  ";
    case TRACE_BRANCH_IDX:  return "branch:  ";
    case TRACE_VPU_IDX:     return "vpu:     ";
    case TRACE_VPU_IDX:     return "vpu:     ";
    default:
    default:
      sprintf (num, "?%d?", trace_idx);
      sprintf (num, "?%d?", trace_idx);
      return num;
      return num;
    }
    }
}
}
 
 
static void
static void
trace_results (SIM_DESC sd,
trace_results (SIM_DESC sd,
               sim_cpu *cpu,
               sim_cpu *cpu,
               int trace_idx,
               int trace_idx,
               int last_input)
               int last_input)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int nr_out;
  int nr_out;
  int i;
  int i;
 
 
  /* cross check trace_idx against TRACE_IDX (data)? */
  /* cross check trace_idx against TRACE_IDX (data)? */
 
 
  /* prefix */
  /* prefix */
  trace_printf (sd, cpu, "%s %s",
  trace_printf (sd, cpu, "%s %s",
                trace_idx_to_str (TRACE_IDX (data)),
                trace_idx_to_str (TRACE_IDX (data)),
                TRACE_PREFIX (data));
                TRACE_PREFIX (data));
  TRACE_IDX (data) = 0;
  TRACE_IDX (data) = 0;
 
 
  for (i = 0, nr_out = 0;
  for (i = 0, nr_out = 0;
       i < TRACE_INPUT_IDX (data);
       i < TRACE_INPUT_IDX (data);
       i += save_data_size (data, TRACE_INPUT_SIZE (data) [i]), nr_out++)
       i += save_data_size (data, TRACE_INPUT_SIZE (data) [i]), nr_out++)
    {
    {
      if (i == last_input)
      if (i == last_input)
        {
        {
          int pad = (strlen (" 0x") + sizeof (unsigned_word) * 2);
          int pad = (strlen (" 0x") + sizeof (unsigned_word) * 2);
          int padding = pad * (3 - nr_out);
          int padding = pad * (3 - nr_out);
          if (padding < 0)
          if (padding < 0)
            padding = 0;
            padding = 0;
          padding += strlen (" ::");
          padding += strlen (" ::");
          trace_printf (sd, cpu, "%*s", padding, " ::");
          trace_printf (sd, cpu, "%*s", padding, " ::");
        }
        }
      print_data (sd, cpu,
      print_data (sd, cpu,
                  TRACE_INPUT_FMT (data) [i],
                  TRACE_INPUT_FMT (data) [i],
                  TRACE_INPUT_SIZE (data) [i],
                  TRACE_INPUT_SIZE (data) [i],
                  &TRACE_INPUT_DATA (data) [i]);
                  &TRACE_INPUT_DATA (data) [i]);
    }
    }
  trace_printf (sd, cpu, "\n");
  trace_printf (sd, cpu, "\n");
}
}
 
 
void
void
trace_prefix (SIM_DESC sd,
trace_prefix (SIM_DESC sd,
              sim_cpu *cpu,
              sim_cpu *cpu,
              sim_cia cia,
              sim_cia cia,
              address_word pc,
              address_word pc,
              int line_p,
              int line_p,
              const char *filename,
              const char *filename,
              int linenum,
              int linenum,
              const char *fmt,
              const char *fmt,
              ...)
              ...)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  va_list ap;
  va_list ap;
  char *prefix = TRACE_PREFIX (data);
  char *prefix = TRACE_PREFIX (data);
  char *chp;
  char *chp;
 /* FIXME: The TRACE_PREFIX_WIDTH should be determined at build time using
 /* FIXME: The TRACE_PREFIX_WIDTH should be determined at build time using
    known information about the disassembled instructions. */
    known information about the disassembled instructions. */
#ifndef TRACE_PREFIX_WIDTH
#ifndef TRACE_PREFIX_WIDTH
#define TRACE_PREFIX_WIDTH 48
#define TRACE_PREFIX_WIDTH 48
#endif
#endif
  int width = TRACE_PREFIX_WIDTH;
  int width = TRACE_PREFIX_WIDTH;
 
 
  /* if the previous trace data wasn't flushed, flush it now with a
  /* if the previous trace data wasn't flushed, flush it now with a
     note indicating that the trace was incomplete. */
     note indicating that the trace was incomplete. */
  if (TRACE_IDX (data) != 0)
  if (TRACE_IDX (data) != 0)
    {
    {
      int last_input = TRACE_INPUT_IDX (data);
      int last_input = TRACE_INPUT_IDX (data);
      save_data (sd, data, trace_fmt_instruction_incomplete, 1, "");
      save_data (sd, data, trace_fmt_instruction_incomplete, 1, "");
      trace_results (sd, cpu, TRACE_IDX (data), last_input);
      trace_results (sd, cpu, TRACE_IDX (data), last_input);
    }
    }
  TRACE_IDX (data) = 0;
  TRACE_IDX (data) = 0;
  TRACE_INPUT_IDX (data) = 0;
  TRACE_INPUT_IDX (data) = 0;
 
 
  /* Create the text prefix for this new instruction: */
  /* Create the text prefix for this new instruction: */
  if (!line_p)
  if (!line_p)
    {
    {
      if (filename)
      if (filename)
        {
        {
          sprintf (prefix, "%s:%-*d 0x%.*lx ",
          sprintf (prefix, "%s:%-*d 0x%.*lx ",
                   filename,
                   filename,
                   SIZE_LINE_NUMBER, linenum,
                   SIZE_LINE_NUMBER, linenum,
                   SIZE_PC, (long) pc);
                   SIZE_PC, (long) pc);
        }
        }
      else
      else
        {
        {
          sprintf (prefix, "0x%.*lx ",
          sprintf (prefix, "0x%.*lx ",
                   SIZE_PC, (long) pc);
                   SIZE_PC, (long) pc);
          /* Shrink the width by the amount that we didn't print.  */
          /* Shrink the width by the amount that we didn't print.  */
          width -= SIZE_LINE_NUMBER + SIZE_PC + 8;
          width -= SIZE_LINE_NUMBER + SIZE_PC + 8;
        }
        }
      chp = strchr (prefix, '\0');
      chp = strchr (prefix, '\0');
      va_start (ap, fmt);
      va_start (ap, fmt);
      vsprintf (chp, fmt, ap);
      vsprintf (chp, fmt, ap);
      va_end (ap);
      va_end (ap);
    }
    }
  else
  else
    {
    {
      char buf[256];
      char buf[256];
      buf[0] = 0;
      buf[0] = 0;
      if (STATE_TEXT_SECTION (CPU_STATE (cpu))
      if (STATE_TEXT_SECTION (CPU_STATE (cpu))
          && pc >= STATE_TEXT_START (CPU_STATE (cpu))
          && pc >= STATE_TEXT_START (CPU_STATE (cpu))
          && pc < STATE_TEXT_END (CPU_STATE (cpu)))
          && pc < STATE_TEXT_END (CPU_STATE (cpu)))
        {
        {
          const char *pc_filename = (const char *)0;
          const char *pc_filename = (const char *)0;
          const char *pc_function = (const char *)0;
          const char *pc_function = (const char *)0;
          unsigned int pc_linenum = 0;
          unsigned int pc_linenum = 0;
          bfd *abfd;
          bfd *abfd;
          asymbol **asymbols;
          asymbol **asymbols;
 
 
          abfd = STATE_PROG_BFD (CPU_STATE (cpu));
          abfd = STATE_PROG_BFD (CPU_STATE (cpu));
          asymbols = STATE_PROG_SYMS (CPU_STATE (cpu));
          asymbols = STATE_PROG_SYMS (CPU_STATE (cpu));
          if (asymbols == NULL)
          if (asymbols == NULL)
            {
            {
              long symsize;
              long symsize;
              long symbol_count;
              long symbol_count;
 
 
              symsize = bfd_get_symtab_upper_bound (abfd);
              symsize = bfd_get_symtab_upper_bound (abfd);
              if (symsize < 0)
              if (symsize < 0)
                {
                {
                  sim_engine_abort (sd, cpu, cia, "could not read symbols");
                  sim_engine_abort (sd, cpu, cia, "could not read symbols");
                }
                }
              asymbols = (asymbol **) xmalloc (symsize);
              asymbols = (asymbol **) xmalloc (symsize);
              symbol_count = bfd_canonicalize_symtab (abfd, asymbols);
              symbol_count = bfd_canonicalize_symtab (abfd, asymbols);
              if (symbol_count < 0)
              if (symbol_count < 0)
                {
                {
                  sim_engine_abort (sd, cpu, cia, "could not canonicalize symbols");
                  sim_engine_abort (sd, cpu, cia, "could not canonicalize symbols");
                }
                }
              STATE_PROG_SYMS (CPU_STATE (cpu)) = asymbols;
              STATE_PROG_SYMS (CPU_STATE (cpu)) = asymbols;
            }
            }
 
 
          if (bfd_find_nearest_line (abfd,
          if (bfd_find_nearest_line (abfd,
                                     STATE_TEXT_SECTION (CPU_STATE (cpu)),
                                     STATE_TEXT_SECTION (CPU_STATE (cpu)),
                                     asymbols,
                                     asymbols,
                                     pc - STATE_TEXT_START (CPU_STATE (cpu)),
                                     pc - STATE_TEXT_START (CPU_STATE (cpu)),
                                     &pc_filename, &pc_function, &pc_linenum))
                                     &pc_filename, &pc_function, &pc_linenum))
            {
            {
              char *p = buf;
              char *p = buf;
              if (pc_linenum)
              if (pc_linenum)
                {
                {
                  sprintf (p, "#%-*d ", SIZE_LINE_NUMBER, pc_linenum);
                  sprintf (p, "#%-*d ", SIZE_LINE_NUMBER, pc_linenum);
                  p += strlen (p);
                  p += strlen (p);
                }
                }
              else
              else
                {
                {
                  sprintf (p, "%-*s ", SIZE_LINE_NUMBER+1, "---");
                  sprintf (p, "%-*s ", SIZE_LINE_NUMBER+1, "---");
                  p += SIZE_LINE_NUMBER+2;
                  p += SIZE_LINE_NUMBER+2;
                }
                }
 
 
              if (pc_function)
              if (pc_function)
                {
                {
                  sprintf (p, "%s ", pc_function);
                  sprintf (p, "%s ", pc_function);
                  p += strlen (p);
                  p += strlen (p);
                }
                }
              else if (pc_filename)
              else if (pc_filename)
                {
                {
                  char *q = (char *) strrchr (pc_filename, '/');
                  char *q = (char *) strrchr (pc_filename, '/');
                  sprintf (p, "%s ", (q) ? q+1 : pc_filename);
                  sprintf (p, "%s ", (q) ? q+1 : pc_filename);
                  p += strlen (p);
                  p += strlen (p);
                }
                }
 
 
              if (*p == ' ')
              if (*p == ' ')
                *p = '\0';
                *p = '\0';
            }
            }
        }
        }
 
 
      sprintf (prefix, "0x%.*x %-*.*s ",
      sprintf (prefix, "0x%.*x %-*.*s ",
               SIZE_PC, (unsigned) pc,
               SIZE_PC, (unsigned) pc,
               SIZE_LOCATION, SIZE_LOCATION, buf);
               SIZE_LOCATION, SIZE_LOCATION, buf);
      chp = strchr (prefix, '\0');
      chp = strchr (prefix, '\0');
      va_start (ap, fmt);
      va_start (ap, fmt);
      vsprintf (chp, fmt, ap);
      vsprintf (chp, fmt, ap);
      va_end (ap);
      va_end (ap);
    }
    }
 
 
  /* Pad it out to TRACE_PREFIX_WIDTH.  */
  /* Pad it out to TRACE_PREFIX_WIDTH.  */
  chp = strchr (prefix, '\0');
  chp = strchr (prefix, '\0');
  if (chp - prefix < width)
  if (chp - prefix < width)
    {
    {
      memset (chp, ' ', width - (chp - prefix));
      memset (chp, ' ', width - (chp - prefix));
      chp = &prefix [width];
      chp = &prefix [width];
      *chp = '\0';
      *chp = '\0';
    }
    }
  strcpy (chp, " -");
  strcpy (chp, " -");
 
 
  /* check that we've not over flowed the prefix buffer */
  /* check that we've not over flowed the prefix buffer */
  if (strlen (prefix) >= sizeof (TRACE_PREFIX (data)))
  if (strlen (prefix) >= sizeof (TRACE_PREFIX (data)))
    abort ();
    abort ();
}
}
 
 
void
void
trace_generic (SIM_DESC sd,
trace_generic (SIM_DESC sd,
               sim_cpu *cpu,
               sim_cpu *cpu,
               int trace_idx,
               int trace_idx,
               const char *fmt,
               const char *fmt,
               ...)
               ...)
{
{
  va_list ap;
  va_list ap;
  trace_printf (sd, cpu, "%s %s",
  trace_printf (sd, cpu, "%s %s",
                trace_idx_to_str (trace_idx),
                trace_idx_to_str (trace_idx),
                TRACE_PREFIX (CPU_TRACE_DATA (cpu)));
                TRACE_PREFIX (CPU_TRACE_DATA (cpu)));
  va_start (ap, fmt);
  va_start (ap, fmt);
  trace_vprintf (sd, cpu, fmt, ap);
  trace_vprintf (sd, cpu, fmt, ap);
  va_end (ap);
  va_end (ap);
  trace_printf (sd, cpu, "\n");
  trace_printf (sd, cpu, "\n");
}
}
 
 
void
void
trace_input0 (SIM_DESC sd,
trace_input0 (SIM_DESC sd,
              sim_cpu *cpu,
              sim_cpu *cpu,
              int trace_idx)
              int trace_idx)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
}
}
 
 
void
void
trace_input_word1 (SIM_DESC sd,
trace_input_word1 (SIM_DESC sd,
                   sim_cpu *cpu,
                   sim_cpu *cpu,
                   int trace_idx,
                   int trace_idx,
                   unsigned_word d0)
                   unsigned_word d0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d0);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d0);
}
}
 
 
void
void
trace_input_word2 (SIM_DESC sd,
trace_input_word2 (SIM_DESC sd,
                   sim_cpu *cpu,
                   sim_cpu *cpu,
                   int trace_idx,
                   int trace_idx,
                   unsigned_word d0,
                   unsigned_word d0,
                   unsigned_word d1)
                   unsigned_word d1)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d0);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d0);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d1);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d1);
}
}
 
 
void
void
trace_input_word3 (SIM_DESC sd,
trace_input_word3 (SIM_DESC sd,
                   sim_cpu *cpu,
                   sim_cpu *cpu,
                   int trace_idx,
                   int trace_idx,
                   unsigned_word d0,
                   unsigned_word d0,
                   unsigned_word d1,
                   unsigned_word d1,
                   unsigned_word d2)
                   unsigned_word d2)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d0);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d0);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d1);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d1);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d2);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &d2);
}
}
 
 
void
void
trace_input_word4 (SIM_DESC sd,
trace_input_word4 (SIM_DESC sd,
                   sim_cpu *cpu,
                   sim_cpu *cpu,
                   int trace_idx,
                   int trace_idx,
                   unsigned_word d0,
                   unsigned_word d0,
                   unsigned_word d1,
                   unsigned_word d1,
                   unsigned_word d2,
                   unsigned_word d2,
                   unsigned_word d3)
                   unsigned_word d3)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_word, sizeof (d0), &d0);
  save_data (sd, data, trace_fmt_word, sizeof (d0), &d0);
  save_data (sd, data, trace_fmt_word, sizeof (d1), &d1);
  save_data (sd, data, trace_fmt_word, sizeof (d1), &d1);
  save_data (sd, data, trace_fmt_word, sizeof (d2), &d2);
  save_data (sd, data, trace_fmt_word, sizeof (d2), &d2);
  save_data (sd, data, trace_fmt_word, sizeof (d3), &d3);
  save_data (sd, data, trace_fmt_word, sizeof (d3), &d3);
}
}
 
 
void
void
trace_input_bool1 (SIM_DESC sd,
trace_input_bool1 (SIM_DESC sd,
                   sim_cpu *cpu,
                   sim_cpu *cpu,
                   int trace_idx,
                   int trace_idx,
                   int d0)
                   int d0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_bool, sizeof (d0), &d0);
  save_data (sd, data, trace_fmt_bool, sizeof (d0), &d0);
}
}
 
 
void
void
trace_input_addr1 (SIM_DESC sd,
trace_input_addr1 (SIM_DESC sd,
                   sim_cpu *cpu,
                   sim_cpu *cpu,
                   int trace_idx,
                   int trace_idx,
                   address_word d0)
                   address_word d0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_addr, sizeof (d0), &d0);
  save_data (sd, data, trace_fmt_addr, sizeof (d0), &d0);
}
}
 
 
void
void
trace_input_fp1 (SIM_DESC sd,
trace_input_fp1 (SIM_DESC sd,
                 sim_cpu *cpu,
                 sim_cpu *cpu,
                 int trace_idx,
                 int trace_idx,
                 fp_word f0)
                 fp_word f0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f0);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f0);
}
}
 
 
void
void
trace_input_fp2 (SIM_DESC sd,
trace_input_fp2 (SIM_DESC sd,
                 sim_cpu *cpu,
                 sim_cpu *cpu,
                 int trace_idx,
                 int trace_idx,
                 fp_word f0,
                 fp_word f0,
                 fp_word f1)
                 fp_word f1)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f0);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f0);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f1);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f1);
}
}
 
 
void
void
trace_input_fp3 (SIM_DESC sd,
trace_input_fp3 (SIM_DESC sd,
                 sim_cpu *cpu,
                 sim_cpu *cpu,
                 int trace_idx,
                 int trace_idx,
                 fp_word f0,
                 fp_word f0,
                 fp_word f1,
                 fp_word f1,
                 fp_word f2)
                 fp_word f2)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f0);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f0);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f1);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f1);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f2);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f2);
}
}
 
 
void
void
trace_input_fpu1 (SIM_DESC sd,
trace_input_fpu1 (SIM_DESC sd,
                  sim_cpu *cpu,
                  sim_cpu *cpu,
                  int trace_idx,
                  int trace_idx,
                  sim_fpu *f0)
                  sim_fpu *f0)
{
{
  double d;
  double d;
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  d = sim_fpu_2d (f0);
  d = sim_fpu_2d (f0);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
}
}
 
 
void
void
trace_input_fpu2 (SIM_DESC sd,
trace_input_fpu2 (SIM_DESC sd,
                  sim_cpu *cpu,
                  sim_cpu *cpu,
                  int trace_idx,
                  int trace_idx,
                  sim_fpu *f0,
                  sim_fpu *f0,
                  sim_fpu *f1)
                  sim_fpu *f1)
{
{
  double d;
  double d;
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  d = sim_fpu_2d (f0);
  d = sim_fpu_2d (f0);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  d = sim_fpu_2d (f1);
  d = sim_fpu_2d (f1);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
}
}
 
 
void
void
trace_input_fpu3 (SIM_DESC sd,
trace_input_fpu3 (SIM_DESC sd,
                  sim_cpu *cpu,
                  sim_cpu *cpu,
                  int trace_idx,
                  int trace_idx,
                  sim_fpu *f0,
                  sim_fpu *f0,
                  sim_fpu *f1,
                  sim_fpu *f1,
                  sim_fpu *f2)
                  sim_fpu *f2)
{
{
  double d;
  double d;
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_IDX (data) = trace_idx;
  TRACE_IDX (data) = trace_idx;
  d = sim_fpu_2d (f0);
  d = sim_fpu_2d (f0);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  d = sim_fpu_2d (f1);
  d = sim_fpu_2d (f1);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  d = sim_fpu_2d (f2);
  d = sim_fpu_2d (f2);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
}
}
 
 
void
void
trace_result_word1 (SIM_DESC sd,
trace_result_word1 (SIM_DESC sd,
                    sim_cpu *cpu,
                    sim_cpu *cpu,
                    int trace_idx,
                    int trace_idx,
                    unsigned_word r0)
                    unsigned_word r0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &r0);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &r0);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result0 (SIM_DESC sd,
trace_result0 (SIM_DESC sd,
               sim_cpu *cpu,
               sim_cpu *cpu,
               int trace_idx)
               int trace_idx)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_word2 (SIM_DESC sd,
trace_result_word2 (SIM_DESC sd,
                    sim_cpu *cpu,
                    sim_cpu *cpu,
                    int trace_idx,
                    int trace_idx,
                    unsigned_word r0,
                    unsigned_word r0,
                    unsigned_word r1)
                    unsigned_word r1)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_word, sizeof (r0), &r0);
  save_data (sd, data, trace_fmt_word, sizeof (r0), &r0);
  save_data (sd, data, trace_fmt_word, sizeof (r1), &r1);
  save_data (sd, data, trace_fmt_word, sizeof (r1), &r1);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_word4 (SIM_DESC sd,
trace_result_word4 (SIM_DESC sd,
                    sim_cpu *cpu,
                    sim_cpu *cpu,
                    int trace_idx,
                    int trace_idx,
                    unsigned_word r0,
                    unsigned_word r0,
                    unsigned_word r1,
                    unsigned_word r1,
                    unsigned_word r2,
                    unsigned_word r2,
                    unsigned_word r3)
                    unsigned_word r3)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_word, sizeof (r0), &r0);
  save_data (sd, data, trace_fmt_word, sizeof (r0), &r0);
  save_data (sd, data, trace_fmt_word, sizeof (r1), &r1);
  save_data (sd, data, trace_fmt_word, sizeof (r1), &r1);
  save_data (sd, data, trace_fmt_word, sizeof (r2), &r2);
  save_data (sd, data, trace_fmt_word, sizeof (r2), &r2);
  save_data (sd, data, trace_fmt_word, sizeof (r3), &r3);
  save_data (sd, data, trace_fmt_word, sizeof (r3), &r3);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_bool1 (SIM_DESC sd,
trace_result_bool1 (SIM_DESC sd,
                    sim_cpu *cpu,
                    sim_cpu *cpu,
                    int trace_idx,
                    int trace_idx,
                    int r0)
                    int r0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_bool, sizeof (r0), &r0);
  save_data (sd, data, trace_fmt_bool, sizeof (r0), &r0);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_addr1 (SIM_DESC sd,
trace_result_addr1 (SIM_DESC sd,
                    sim_cpu *cpu,
                    sim_cpu *cpu,
                    int trace_idx,
                    int trace_idx,
                    address_word r0)
                    address_word r0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_addr, sizeof (r0), &r0);
  save_data (sd, data, trace_fmt_addr, sizeof (r0), &r0);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_fp1 (SIM_DESC sd,
trace_result_fp1 (SIM_DESC sd,
                  sim_cpu *cpu,
                  sim_cpu *cpu,
                  int trace_idx,
                  int trace_idx,
                  fp_word f0)
                  fp_word f0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f0);
  save_data (sd, data, trace_fmt_fp, sizeof (fp_word), &f0);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_fp2 (SIM_DESC sd,
trace_result_fp2 (SIM_DESC sd,
                  sim_cpu *cpu,
                  sim_cpu *cpu,
                  int trace_idx,
                  int trace_idx,
                  fp_word f0,
                  fp_word f0,
                  fp_word f1)
                  fp_word f1)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_fp, sizeof (f0), &f0);
  save_data (sd, data, trace_fmt_fp, sizeof (f0), &f0);
  save_data (sd, data, trace_fmt_fp, sizeof (f1), &f1);
  save_data (sd, data, trace_fmt_fp, sizeof (f1), &f1);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_fpu1 (SIM_DESC sd,
trace_result_fpu1 (SIM_DESC sd,
                   sim_cpu *cpu,
                   sim_cpu *cpu,
                   int trace_idx,
                   int trace_idx,
                   sim_fpu *f0)
                   sim_fpu *f0)
{
{
  double d;
  double d;
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  d = sim_fpu_2d (f0);
  d = sim_fpu_2d (f0);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
  save_data (sd, data, trace_fmt_fp, sizeof (double), &d);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_string1 (SIM_DESC sd,
trace_result_string1 (SIM_DESC sd,
                      sim_cpu *cpu,
                      sim_cpu *cpu,
                      int trace_idx,
                      int trace_idx,
                      char *s0)
                      char *s0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_string, strlen (s0) + 1, s0);
  save_data (sd, data, trace_fmt_string, strlen (s0) + 1, s0);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}
 
 
void
void
trace_result_word1_string1 (SIM_DESC sd,
trace_result_word1_string1 (SIM_DESC sd,
                            sim_cpu *cpu,
                            sim_cpu *cpu,
                            int trace_idx,
                            int trace_idx,
                            unsigned_word r0,
                            unsigned_word r0,
                            char *s0)
                            char *s0)
{
{
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  TRACE_DATA *data = CPU_TRACE_DATA (cpu);
  int last_input;
  int last_input;
 
 
  /* Append any results to the end of the inputs */
  /* Append any results to the end of the inputs */
  last_input = TRACE_INPUT_IDX (data);
  last_input = TRACE_INPUT_IDX (data);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &r0);
  save_data (sd, data, trace_fmt_word, sizeof (unsigned_word), &r0);
  save_data (sd, data, trace_fmt_string, strlen (s0) + 1, s0);
  save_data (sd, data, trace_fmt_string, strlen (s0) + 1, s0);
 
 
  trace_results (sd, cpu, trace_idx, last_input);
  trace_results (sd, cpu, trace_idx, last_input);
}
}


void
void
trace_vprintf (SIM_DESC sd, sim_cpu *cpu, const char *fmt, va_list ap)
trace_vprintf (SIM_DESC sd, sim_cpu *cpu, const char *fmt, va_list ap)
{
{
  if (cpu != NULL)
  if (cpu != NULL)
    {
    {
      if (TRACE_FILE (CPU_TRACE_DATA (cpu)) != NULL)
      if (TRACE_FILE (CPU_TRACE_DATA (cpu)) != NULL)
        vfprintf (TRACE_FILE (CPU_TRACE_DATA (cpu)), fmt, ap);
        vfprintf (TRACE_FILE (CPU_TRACE_DATA (cpu)), fmt, ap);
      else
      else
        sim_io_evprintf (sd, fmt, ap);
        sim_io_evprintf (sd, fmt, ap);
    }
    }
  else
  else
    {
    {
      if (TRACE_FILE (STATE_TRACE_DATA (sd)) != NULL)
      if (TRACE_FILE (STATE_TRACE_DATA (sd)) != NULL)
        vfprintf (TRACE_FILE (STATE_TRACE_DATA (sd)), fmt, ap);
        vfprintf (TRACE_FILE (STATE_TRACE_DATA (sd)), fmt, ap);
      else
      else
        sim_io_evprintf (sd, fmt, ap);
        sim_io_evprintf (sd, fmt, ap);
    }
    }
}
}
 
 
/* The function trace_one_insn has been replaced by the function pair
/* The function trace_one_insn has been replaced by the function pair
   trace_prefix() + trace_generic().  It is still used. */
   trace_prefix() + trace_generic().  It is still used. */
void
void
trace_one_insn (SIM_DESC sd, sim_cpu *cpu, address_word pc,
trace_one_insn (SIM_DESC sd, sim_cpu *cpu, address_word pc,
                int line_p, const char *filename, int linenum,
                int line_p, const char *filename, int linenum,
                const char *phase_wo_colon, const char *fmt,
                const char *phase_wo_colon, const char *fmt,
                ...)
                ...)
{
{
  va_list ap;
  va_list ap;
  char phase[SIZE_PHASE+2];
  char phase[SIZE_PHASE+2];
 
 
  strncpy (phase, phase_wo_colon, SIZE_PHASE);
  strncpy (phase, phase_wo_colon, SIZE_PHASE);
  strcat (phase, ":");
  strcat (phase, ":");
 
 
  if (!line_p)
  if (!line_p)
    {
    {
      trace_printf (sd, cpu, "%-*s %s:%-*d 0x%.*lx ",
      trace_printf (sd, cpu, "%-*s %s:%-*d 0x%.*lx ",
                    SIZE_PHASE+1, phase,
                    SIZE_PHASE+1, phase,
                    filename,
                    filename,
                    SIZE_LINE_NUMBER, linenum,
                    SIZE_LINE_NUMBER, linenum,
                    SIZE_PC, (long)pc);
                    SIZE_PC, (long)pc);
      va_start (ap, fmt);
      va_start (ap, fmt);
      trace_vprintf (sd, cpu, fmt, ap);
      trace_vprintf (sd, cpu, fmt, ap);
      va_end (ap);
      va_end (ap);
      trace_printf (sd, cpu, "\n");
      trace_printf (sd, cpu, "\n");
    }
    }
  else
  else
    {
    {
      char buf[256];
      char buf[256];
 
 
      buf[0] = 0;
      buf[0] = 0;
      if (STATE_TEXT_SECTION (CPU_STATE (cpu))
      if (STATE_TEXT_SECTION (CPU_STATE (cpu))
          && pc >= STATE_TEXT_START (CPU_STATE (cpu))
          && pc >= STATE_TEXT_START (CPU_STATE (cpu))
          && pc < STATE_TEXT_END (CPU_STATE (cpu)))
          && pc < STATE_TEXT_END (CPU_STATE (cpu)))
        {
        {
          const char *pc_filename = (const char *)0;
          const char *pc_filename = (const char *)0;
          const char *pc_function = (const char *)0;
          const char *pc_function = (const char *)0;
          unsigned int pc_linenum = 0;
          unsigned int pc_linenum = 0;
 
 
          if (bfd_find_nearest_line (STATE_PROG_BFD (CPU_STATE (cpu)),
          if (bfd_find_nearest_line (STATE_PROG_BFD (CPU_STATE (cpu)),
                                     STATE_TEXT_SECTION (CPU_STATE (cpu)),
                                     STATE_TEXT_SECTION (CPU_STATE (cpu)),
                                     (struct bfd_symbol **) 0,
                                     (struct bfd_symbol **) 0,
                                     pc - STATE_TEXT_START (CPU_STATE (cpu)),
                                     pc - STATE_TEXT_START (CPU_STATE (cpu)),
                                     &pc_filename, &pc_function, &pc_linenum))
                                     &pc_filename, &pc_function, &pc_linenum))
            {
            {
              char *p = buf;
              char *p = buf;
              if (pc_linenum)
              if (pc_linenum)
                {
                {
                  sprintf (p, "#%-*d ", SIZE_LINE_NUMBER, pc_linenum);
                  sprintf (p, "#%-*d ", SIZE_LINE_NUMBER, pc_linenum);
                  p += strlen (p);
                  p += strlen (p);
                }
                }
              else
              else
                {
                {
                  sprintf (p, "%-*s ", SIZE_LINE_NUMBER+1, "---");
                  sprintf (p, "%-*s ", SIZE_LINE_NUMBER+1, "---");
                  p += SIZE_LINE_NUMBER+2;
                  p += SIZE_LINE_NUMBER+2;
                }
                }
 
 
              if (pc_function)
              if (pc_function)
                {
                {
                  sprintf (p, "%s ", pc_function);
                  sprintf (p, "%s ", pc_function);
                  p += strlen (p);
                  p += strlen (p);
                }
                }
              else if (pc_filename)
              else if (pc_filename)
                {
                {
                  char *q = (char *) strrchr (pc_filename, '/');
                  char *q = (char *) strrchr (pc_filename, '/');
                  sprintf (p, "%s ", (q) ? q+1 : pc_filename);
                  sprintf (p, "%s ", (q) ? q+1 : pc_filename);
                  p += strlen (p);
                  p += strlen (p);
                }
                }
 
 
              if (*p == ' ')
              if (*p == ' ')
                *p = '\0';
                *p = '\0';
            }
            }
        }
        }
 
 
      trace_printf (sd, cpu, "%-*s 0x%.*x %-*.*s ",
      trace_printf (sd, cpu, "%-*s 0x%.*x %-*.*s ",
                    SIZE_PHASE+1, phase,
                    SIZE_PHASE+1, phase,
                    SIZE_PC, (unsigned) pc,
                    SIZE_PC, (unsigned) pc,
                    SIZE_LOCATION, SIZE_LOCATION, buf);
                    SIZE_LOCATION, SIZE_LOCATION, buf);
      va_start (ap, fmt);
      va_start (ap, fmt);
      trace_vprintf (sd, cpu, fmt, ap);
      trace_vprintf (sd, cpu, fmt, ap);
      va_end (ap);
      va_end (ap);
      trace_printf (sd, cpu, "\n");
      trace_printf (sd, cpu, "\n");
    }
    }
}
}
 
 
void
void
trace_printf VPARAMS ((SIM_DESC sd, sim_cpu *cpu, const char *fmt, ...))
trace_printf VPARAMS ((SIM_DESC sd, sim_cpu *cpu, const char *fmt, ...))
{
{
#if !defined __STDC__ && !defined ALMOST_STDC
#if !defined __STDC__ && !defined ALMOST_STDC
  SIM_DESC sd;
  SIM_DESC sd;
  sim_cpu *cpu;
  sim_cpu *cpu;
  const char *fmt;
  const char *fmt;
#endif
#endif
  va_list ap;
  va_list ap;
 
 
  VA_START (ap, fmt);
  VA_START (ap, fmt);
#if !defined __STDC__ && !defined ALMOST_STDC
#if !defined __STDC__ && !defined ALMOST_STDC
  sd = va_arg (ap, SIM_DESC);
  sd = va_arg (ap, SIM_DESC);
  cpu = va_arg (ap, sim_cpu *);
  cpu = va_arg (ap, sim_cpu *);
  fmt = va_arg (ap, const char *);
  fmt = va_arg (ap, const char *);
#endif
#endif
 
 
  trace_vprintf (sd, cpu, fmt, ap);
  trace_vprintf (sd, cpu, fmt, ap);
 
 
  va_end (ap);
  va_end (ap);
}
}
 
 
void
void
debug_printf VPARAMS ((sim_cpu *cpu, const char *fmt, ...))
debug_printf VPARAMS ((sim_cpu *cpu, const char *fmt, ...))
{
{
#if !defined __STDC__ && !defined ALMOST_STDC
#if !defined __STDC__ && !defined ALMOST_STDC
  sim_cpu *cpu;
  sim_cpu *cpu;
  const char *fmt;
  const char *fmt;
#endif
#endif
  va_list ap;
  va_list ap;
 
 
  VA_START (ap, fmt);
  VA_START (ap, fmt);
#if !defined __STDC__ && !defined ALMOST_STDC
#if !defined __STDC__ && !defined ALMOST_STDC
  cpu = va_arg (ap, sim_cpu *);
  cpu = va_arg (ap, sim_cpu *);
  fmt = va_arg (ap, const char *);
  fmt = va_arg (ap, const char *);
#endif
#endif
 
 
  if (CPU_DEBUG_FILE (cpu) == NULL)
  if (CPU_DEBUG_FILE (cpu) == NULL)
    (* STATE_CALLBACK (CPU_STATE (cpu))->evprintf_filtered)
    (* STATE_CALLBACK (CPU_STATE (cpu))->evprintf_filtered)
      (STATE_CALLBACK (CPU_STATE (cpu)), fmt, ap);
      (STATE_CALLBACK (CPU_STATE (cpu)), fmt, ap);
  else
  else
    vfprintf (CPU_DEBUG_FILE (cpu), fmt, ap);
    vfprintf (CPU_DEBUG_FILE (cpu), fmt, ap);
 
 
  va_end (ap);
  va_end (ap);
}
}
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.