Add flakey floating-point support to the TI c80 simulator.

1 files changed, 230 insertions, 5 deletions

diff --git a/sim/common/sim-trace.c b/sim/common/sim-trace.c
index ffdaf32e73..b4f7704e37 100644
--- a/sim/common/sim-trace.c
+++ b/sim/common/sim-trace.c
@@ -20,11 +20,236 @@ with this program; if not, write to the Free Software Foundation, Inc.,
 
 #include "sim-main.h"
 #include "sim-io.h"
+#include "sim-options.h"
 
+#ifdef HAVE_STRING_H
+#include <string.h>
+#else
+#ifdef HAVE_STRINGS_H
+#include <strings.h>
+#endif
+#endif
+
+static MODULE_UNINSTALL_FN trace_uninstall;
+
+static DECLARE_OPTION_HANDLER (trace_option_handler);
+
+#define OPTION_TRACE_INSN	(OPTION_START + 0)
+#define OPTION_TRACE_DECODE	(OPTION_START + 1)
+#define OPTION_TRACE_EXTRACT	(OPTION_START + 2)
+#define OPTION_TRACE_LINENUM	(OPTION_START + 3)
+#define OPTION_TRACE_MEMORY	(OPTION_START + 4)
+#define OPTION_TRACE_MODEL	(OPTION_START + 5)
+#define OPTION_TRACE_ALU	(OPTION_START + 6)
+#define OPTION_TRACE_CORE	(OPTION_START + 7)
+#define OPTION_TRACE_EVENTS	(OPTION_START + 8)
+#define OPTION_TRACE_FPU	(OPTION_START + 9)
+#define OPTION_TRACE_FILE	(OPTION_START + 10)
+
+static const OPTION trace_options[] =
+{
+  { {"trace", no_argument, NULL, 't'},
+      't', NULL, "Perform tracing",
+      trace_option_handler },
+  { {"trace-insn", no_argument, NULL, OPTION_TRACE_INSN},
+      '\0', NULL, "Perform instruction tracing",
+      trace_option_handler },
+  { {"trace-decode", no_argument, NULL, OPTION_TRACE_DECODE},
+      '\0', NULL, "Perform instruction decoding tracing",
+      trace_option_handler },
+  { {"trace-extract", no_argument, NULL, OPTION_TRACE_EXTRACT},
+      '\0', NULL, "Perform instruction extraction tracing",
+      trace_option_handler },
+  { {"trace-linenum", no_argument, NULL, OPTION_TRACE_LINENUM},
+      '\0', NULL, "Perform line number tracing",
+      trace_option_handler },
+  { {"trace-memory", no_argument, NULL, OPTION_TRACE_MEMORY},
+      '\0', NULL, "Perform memory tracing",
+      trace_option_handler },
+  { {"trace-model", no_argument, NULL, OPTION_TRACE_MODEL},
+      '\0', NULL, "Perform model tracing",
+      trace_option_handler },
+  { {"trace-alu", no_argument, NULL, OPTION_TRACE_ALU},
+      '\0', NULL, "Perform ALU tracing",
+      trace_option_handler },
+  { {"trace-core", no_argument, NULL, OPTION_TRACE_CORE},
+      '\0', NULL, "Perform CORE tracing",
+      trace_option_handler },
+  { {"trace-events", no_argument, NULL, OPTION_TRACE_EVENTS},
+      '\0', NULL, "Perform EVENTS tracing",
+      trace_option_handler },
+  { {"trace-fpu", no_argument, NULL, OPTION_TRACE_FPU},
+      '\0', NULL, "Perform FPU tracing",
+      trace_option_handler },
+  { {"trace-file", required_argument, NULL, OPTION_TRACE_FILE},
+      '\0', "FILE NAME", "Specify tracing output file",
+      trace_option_handler },
+  { {NULL, no_argument, NULL, 0}, '\0', NULL, NULL, NULL }
+};
+
+static SIM_RC
+trace_option_handler (sd, opt, arg)
+     SIM_DESC sd;
+     int opt;
+     char *arg;
+{
+  int i,n;
+
+  switch (opt)
+    {
+    case 't' :
+      if (! WITH_TRACE)
+	sim_io_eprintf (sd, "Tracing not compiled in, `-t' ignored\n");
+      else
+	{
+	  for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	    for (i = 0; i < MAX_TRACE_VALUES; ++i)
+	      CPU_TRACE_FLAGS (STATE_CPU (sd, n))[i] = 1;
+	  STATE_CORE(sd)->trace = 1;
+	  STATE_EVENTS(sd)->trace = 1;
+	}
+      break;
+
+    case OPTION_TRACE_INSN :
+      if (WITH_TRACE_INSN_P)
+	for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	  CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_INSN_IDX] = 1;
+      else
+	sim_io_eprintf (sd, "Instruction tracing not compiled in, `--trace-insn' ignored\n");
+      break;
+
+    case OPTION_TRACE_DECODE :
+      if (WITH_TRACE_DECODE_P)
+	for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	  CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_DECODE_IDX] = 1;
+      else
+	sim_io_eprintf (sd, "Decode tracing not compiled in, `--trace-decode' ignored\n");
+      break;
+
+    case OPTION_TRACE_EXTRACT :
+      if (WITH_TRACE_EXTRACT_P)
+	for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	  CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_EXTRACT_IDX] = 1;
+      else
+	sim_io_eprintf (sd, "Extract tracing not compiled in, `--trace-extract' ignored\n");
+      break;
+
+    case OPTION_TRACE_LINENUM :
+      if (WITH_TRACE_LINENUM_P)
+	for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	  CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_LINENUM_IDX] = 1;
+      else
+	sim_io_eprintf (sd, "Line number tracing not compiled in, `--trace-linenum' ignored\n");
+      break;
+
+    case OPTION_TRACE_MEMORY :
+      if (WITH_TRACE_MEMORY_P)
+	for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	  CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_MEMORY_IDX] = 1;
+      else
+	sim_io_eprintf (sd, "Memory tracing not compiled in, `--trace-memory' ignored\n");
+      break;
+
+    case OPTION_TRACE_MODEL :
+      if (WITH_TRACE_MODEL_P)
+	for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	  CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_MODEL_IDX] = 1;
+      else
+	sim_io_eprintf (sd, "Model tracing not compiled in, `--trace-model' ignored\n");
+      break;
+
+    case OPTION_TRACE_ALU :
+      if (WITH_TRACE_ALU_P)
+	for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	  CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_ALU_IDX] = 1;
+      else
+	sim_io_eprintf (sd, "ALU tracing not compiled in, `--trace-alu' ignored\n");
+      break;
+
+    case OPTION_TRACE_CORE :
+      if (WITH_TRACE_CORE_P)
+	{
+	  for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	    CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_CORE_IDX] = 1;
+	  STATE_CORE(sd)->trace = 1;
+	}
+      else
+	sim_io_eprintf (sd, "CORE tracing not compiled in, `--trace-core' ignored\n");
+      break;
+
+    case OPTION_TRACE_EVENTS :
+      if (WITH_TRACE_EVENTS_P)
+	{
+	  for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	    CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_EVENTS_IDX] = 1;
+	  STATE_EVENTS(sd)->trace = 1;
+	}
+      else
+	sim_io_eprintf (sd, "EVENTS tracing not compiled in, `--trace-events' ignored\n");
+      break;
+
+    case OPTION_TRACE_FPU :
+      if (WITH_TRACE_FPU_P)
+	for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	  CPU_TRACE_FLAGS (STATE_CPU (sd, n))[TRACE_FPU_IDX] = 1;
+      else
+	sim_io_eprintf (sd, "FPU tracing not compiled in, `--trace-fpu' ignored\n");
+      break;
+
+    case OPTION_TRACE_FILE :
+      if (! WITH_TRACE)
+	sim_io_eprintf (sd, "Tracing not compiled in, `--trace-file' ignored\n");
+      else
+	{
+	  FILE *f = fopen (arg, "w");
+
+	  if (f == NULL)
+	    {
+	      sim_io_eprintf (sd, "Unable to open trace output file `%s'\n", arg);
+	      return SIM_RC_FAIL;
+	    }
+	  for (n = 0; n < MAX_NR_PROCESSORS; ++n)
+	    TRACE_FILE (CPU_TRACE_DATA (STATE_CPU (sd, n))) = f;
+	}
+      break;
+    }
+
+  return SIM_RC_OK;
+}
+
+/* Install tracing support.  */
+
+SIM_RC
+trace_install (SIM_DESC sd)
+{
+  int i;
+
+  sim_add_option_table (sd, trace_options);
+  for (i = 0; i < MAX_NR_PROCESSORS; ++i)
+    memset (CPU_TRACE_DATA (STATE_CPU (sd, i)), 0,
+	    sizeof (* CPU_TRACE_DATA (STATE_CPU (sd, i))));
+  sim_module_add_uninstall_fn (sd, trace_uninstall);
+  return SIM_RC_OK;
+}
+
+static void
+trace_uninstall (SIM_DESC sd)
+{
+  int i;
+
+  for (i = 0; i < MAX_NR_PROCESSORS; ++i)
+    {
+      TRACE_DATA *data = CPU_TRACE_DATA (STATE_CPU (sd, i));
+      if (TRACE_FILE (data) != NULL)
+	fclose (TRACE_FILE (data));
+    }
+}
+
 void
-trace_printf VPARAMS ((sim_cpu *cpu, const char *fmt, ...))
+trace_printf VPARAMS ((SIM_DESC sd, sim_cpu *cpu, const char *fmt, ...))
 {
 #ifndef __STDC__
+  SIM_DESC sd;
   sim_cpu *cpu;
   const char *fmt;
 #endif
@@ -32,15 +257,15 @@ trace_printf VPARAMS ((sim_cpu *cpu, const char *fmt, ...))
 
   VA_START (ap, fmt);
 #ifndef __STDC__
+  sd = va_arg (ap, SIM_DESC);
   cpu = va_arg (ap, sim_cpu *);
   fmt = va_arg (ap, const char *);
 #endif
 
-  if (CPU_TRACE_FILE (cpu) == NULL)
-    (* STATE_CALLBACK (CPU_STATE (cpu))->evprintf_filtered)
-      (STATE_CALLBACK (CPU_STATE (cpu)), fmt, ap);
+  if (cpu != NULL && TRACE_FILE (CPU_TRACE_DATA (cpu)) != NULL)
+    vfprintf (TRACE_FILE (CPU_TRACE_DATA (cpu)), fmt, ap);
   else
-    vfprintf (CPU_TRACE_FILE (cpu), fmt, ap);
+    sim_io_evprintf (sd, fmt, ap);
 
   va_end (ap);
 }