Subversion Repositories or1k

/* sim-cmd.c -- Simulator command parsing

   Copyright (C) 1999 Damjan Lampret, lampret@opencores.org

   Copyright (C) 2005 György `nog' Jeney, nog@sdf.lonestar.org

This file is part of OpenRISC 1000 Architectural Simulator.

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 of the License, 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., 675 Mass Ave, Cambridge, MA 02139, USA. */

#include <stdio.h>

#include <string.h>

#include <ctype.h>

#include <unistd.h>

#include "config.h"

#ifdef HAVE_LIBREADLINE

#include <readline/readline.h>

#include <readline/history.h>

#endif /* HAVE_LIBREADLINE */

#ifdef HAVE_INTTYPES_H

#include <inttypes.h>

#endif

#include "port.h"

#include "arch.h"

#include "abstract.h"

#include "labels.h"

#include "opcode/or32.h"

#include "mprofiler.h"

#include "profiler.h"

#include "sim-config.h"

#include "dumpverilog.h"

#include "spr_defs.h"

#include "execute.h"

#include "debug_unit.h"

#include "debug.h"

#include "trace.h"

#include "stats.h"

#include "cuc.h"

#include "gdbcomm.h"

#include "sched.h"

/* FIXME: These *really* need to be cleaned up */

#include "sprs.h"

#include "immu.h"

#include "dmmu.h"

#include "icache_model.h"

#include "dcache_model.h"

#include "branch_predict.h"

/* The number of instructions to execute before droping into interactive mode */

static long long to_insn_num;

struct sim_stat {

  void (*stat_func)(void *dat);

  void *dat;

  struct sim_stat *next;

};

static struct sim_stat *sim_stats = NULL;

/* Registers a status printing callback */

void reg_sim_stat(void (*stat_func)(void *dat), void *dat)

{

  struct sim_stat *new = malloc(sizeof(struct sim_stat));

  if(!new) {

    fprintf(stderr, "reg_sim_stat: Out-of-memory\n");

    exit(1);

  }

  new->stat_func = stat_func;

  new->dat = dat;

  new->next = sim_stats;

  sim_stats = new;

}

extern char *disassembled;

static void debugmem( oraddr_t from, oraddr_t to )

{

  int i;

  PRINTF("starting to dump mem...\n");

  for(i=from; i<to; ) {

    struct label_entry *entry;

    uint32_t insn;

    PRINTF("i=%x :: ", i);

    if (verify_memoryarea(i) && (entry = get_label(i)))

      PRINTF("label: %s |", entry->name);

    insn = eval_direct32(i, 0, 0);

    disassemble_insn (insn);

    PRINTF("%08x %s\n", insn, disassembled);

    i += 4;

  }

}

/* Schedules the next job so that it will run after the next instruction */

static void sched_next_insn(void (*func)(void *))

{

  int32_t cycles = 1;

  struct sched_entry *cur = scheduler.job_queue;

  /* The cycles count of the jobs may go into negatives.  If this happens, func

   * will get called before the next instruction has executed. */

  while(cur && (cur->time < 0)) {

    cycles -= cur->time;

    cur = cur->next;

  }

  SCHED_ADD(func, NULL, cycles);

}

/* Scheduler job that drops us back into interactive mode after the next

 * instruction has executed */

void reenter_int(void *dat)

{

  if (!runtime.sim.hush) dumpreg();

  handle_sim_command();

}

static int sim_cmd_quit(int argc, char **argv) /* quit */

{

  PRINTF ("\n");

  sim_done();

  return 0;

}

static int sim_cmd_help(int argc, char **argv) /* help */

{

  PRINTF("q      - quit simulator\n");

  PRINTF("r      - display all registers\n");

  PRINTF("t      - execute next instruction\n");

  PRINTF("run <instructions> [<hush>]   - execute <instruction> instructions, no reg dump if hush\n");

  PRINTF("pr <r> <value>                - patch register <r> with <value>\n");

  PRINTF("dm <fromaddr> [<toaddr>]      - display memory from <fromaddr> to <toaddr>\n");

  PRINTF("de <fromaddr> [<toaddr>]      - debug insn memory\n");

  PRINTF("pm <addr> <value>             - patch memory location <addr> with <value>\n");

  PRINTF("pc <value>                    - patch PC register with <value>\n");

  PRINTF("cm <fromaddr> <toaddr> <size> - copy memory\n");

  PRINTF("break <addr>      - toggle breakpoint at address <addr>\n");

  PRINTF("breaks            - print all set breakpoints\n");

  PRINTF("reset             - simulator reset\n");

  PRINTF("hist              - execution history\n");

  PRINTF("stall             - stalls the processor and gives control to the debugger\n");

  PRINTF("stats <num|clear> - execution statistics num or clear it.\n");

  PRINTF("info              - configuration info (caches etc.)\n");

  PRINTF("dv <fromaddr> [<toaddr>] [<modname>] - dumps memory as verilog (use redirect)\n");

  PRINTF("dh <fromaddr> [<toaddr>]             - dumps memory as hex code (use redirect)\n");

  PRINTF("<cmd> > <filename> - redirect simulator stdout to <filename> (and not emulated PRINTF)\n");

  PRINTF("setdbch            - toggles debug channels on/off\n");

  PRINTF("set <section> <item> = <param>  - set configuration.  See sim.cfg for more information.\n");

  PRINTF("debug      - toggles simulator debug mode\n");

  mp_help ();

  prof_help ();

  PRINTF("cuc        - enters Custom Unit Compiler command prompt\n");

  PRINTF("help       - available commands (this list)\n");

  return 0;

}

static int sim_cmd_trace(int argc, char **argv) /* trace */

{

  runtime.sim.hush = 0;

  sched_next_insn(reenter_int);

  return 1;

}

static int sim_cmd_dm(int argc, char **argv) /* dump memory */

{

  static oraddr_t from = 0, to = 0;

  if(argc >= 2) {

    if(argv[1][0] == '_')

      from = eval_label(argv[1]);

    else

      from = strtoul(argv[1], NULL, 0);

    to = from + 0x40;

  }

  if(argc >= 3)

    to = strtoul(argv[2], NULL, 0);

  dumpmemory(from, to, 0, 1);

  PRINTF("\n");

  return 0;

}

static int sim_cmd_dv(int argc, char **argv) /* dump memory as verilog */

{

  static oraddr_t from = 0, to = 0;

  if(argc >= 2) {

    if(argv[1][0] == '_')

      from = eval_label(argv[1]);

    else

      from = strtoul(argv[1], NULL, 0);

    to = from + 0x40;

  }

  if(argc >= 3)

    to = strtoul(argv[2], NULL, 0);

  if(argc < 4)

    dumpverilog("or1k_mem", from, to);

  else

    dumpverilog(argv[3], from, to);

  PRINTF("\n");

  return 0;

}

static int sim_cmd_dh(int argc, char **argv) /* dump memory as hex */

{

  static oraddr_t from = 0, to = 0;

  if(argc >= 2) {

    if(argv[1][0] == '_')

      from = eval_label(argv[1]);

    else

      from = strtoul(argv[1], NULL, 0);

    to = from + 0x40;

  }

  if(argc >= 3)

    to = strtoul(argv[2], NULL, 0);

  dumphex(from, to);

  PRINTF("\n");

  return 0;

}

static int sim_cmd_pm(int argc, char **argv) /* patch memory */

{

  static oraddr_t addr = 0;

  int breakpoint = 0;

  if(argc != 3) {

    PRINTF("pm <address> <value>\n");

    return 0;

  }

  if(argc >= 2) {

    if (argv[1][0] == '_')

      addr = eval_label(argv[1]);

    else

      addr = strtoul(argv[1], NULL, 0);

  }

  set_mem32(addr, strtoul(argv[2], NULL, 0), &breakpoint);

  return 0;

}

static int sim_cmd_cm(int argc, char **argv) /* copy memory 2004-01-20 hpanther*/

{

  static oraddr_t from = 0, to = 0;

  static unsigned int size = 0;

  int i;

  if(argc >= 2) {

    if (argv[1][0] == '_')

      from = eval_label(argv[1]);

    else

      from = strtoul(argv[1], NULL, 0);

  }

  if(argc >= 3) {

    if (argv[2][0] == '_')

      to = eval_label(argv[2]);

    else

      to = strtoul(argv[2], NULL, 0);

  }

  if(argc >= 4) {

    if (argv[3][0] == '_')

      size = eval_label(argv[3]);

    else

      size = strtoul(argv[3], NULL, 0);

  }

  for(i = 0; i < size; i += 4)

    set_direct32(to + i, eval_direct32(from + i, 0, 0), 0, 0);

  return 0;

}

static int sim_cmd_pr(int argc, char **argv) /* patch regs */

{

  if(argc != 3) {

    PRINTF("pr <register> <value>\n");

    return 0;

  }

  setsim_reg(strtoul(argv[1], NULL,0), strtoul(argv[2], NULL, 0));

#if DYNAMIC_EXECUTION

  PRINTF("WARNING: Patching registers may not work with the dynamic execution model\n");

#endif

  return 0;

}

static int sim_cmd_pc(int argc, char **argv) /* patch PC */

{

#if DYNAMIC_EXECUTION

  PRINTF("Patching the pc in the dynamic execution model doesn't work\n");

#else

  if(argc != 2) {

    PRINTF("pc <value>\n");

    return 0;

  }

  cpu_state.pc = strtoul(argv[1], NULL, 0);

  pcnext = cpu_state.pc + 4;

#endif

  return 0;

}

static int sim_cmd_breaks(int argc, char **argv) /* print breakpoints */

{

  print_breakpoints();

  return 0;

}

static int sim_cmd_break(int argc, char **argv) /* set/clear breakpoint */

{

#if DYNAMIC_EXECUTION

  PRINTF("Setting simulator breakpoints is not support with the recompiler\n");

  return 0;

#else

  char *p;

  oraddr_t addr;

  struct label_entry *l;

  if(argc != 2) {

    PRINTF("break <label or address>\n");

    return 0;

  }

  addr = strtoul(argv[1], &p, 0);

  if(*p) {

    l = find_label(argv[1]);

    if(l)

      addr = l->addr;

    else

      PRINTF("Label `%s' does not exist\n", l->name);

  }

  set_insnbrkpoint(addr);

  return 0;

#endif

}

static int sim_cmd_r(int argc, char **argv) /* dump regs */

{

  dumpreg();

  return 0;

}

static int sim_cmd_de(int argc, char **argv) /* disassemble */

{

  static oraddr_t from = 0, to = 0;

  if(argc >= 2) {

    if (argv[1][0] == '_')

      from = eval_label(argv[1]);

    else

      from = strtoul(argv[1], NULL, 0);

    to = from + 0x40;

  }

  if(argc >= 3)

    to = strtoul(argv[2], NULL, 0);

  debugmem(from, to);

  PRINTF("\n");

  return 0;

}

static int sim_cmd_reset(int argc, char **argv) /* reset simulator */

{

  sim_reset();

  return 0;

}

static int sim_cmd_hist(int argc, char **argv) /* dump history */

{

  int i;

  struct hist_exec *cur;

  if(!config.sim.history) {

    PRINTF("Simulation history disabled.\n");

    return 0;

  }

  for(i = HISTEXEC_LEN, cur = hist_exec_tail->prev; i; i--, cur = cur->prev)

    dumpmemory(cur->addr, cur->addr + 4, 1, 1);

  PRINTF("\n");

  return 0;

}

/* Called when it is suspisous that runtime.sim.instructions has reached

 * to_insn_num */

void check_insn_exec(void *dat)

{

  if(runtime.cpu.instructions < to_insn_num) {

    /* Instruction count has not yet been reached, reschedule */

    SCHED_ADD(check_insn_exec, NULL, to_insn_num - runtime.cpu.instructions);

    return;

  }

  handle_sim_command();

}

void print_insn_exec(void *dat)

{

  dumpreg();

  if(runtime.cpu.instructions < to_insn_num) {

    /* Instruction count has not yet been reached, reschedule */

    sched_next_insn(print_insn_exec);

    return;

  }

  handle_sim_command();

}

static int sim_cmd_run(int argc, char **argv) /* run */

{

  runtime.sim.hush = 0;

  if(argc >= 3) {

    if(!strcmp(argv[2], "hush"))

      runtime.sim.hush = 1;

  }

  if(argc >= 2) {

    if((to_insn_num = strtol(argv[1], NULL, 0)) != -1) {

      if(runtime.sim.hush) {

        /* Schedule a job to run in to_insn_num cycles time since an instruction

         * may execute in only 1 cycle.  check_insn_exec will check if the right

         * number of instructions have been executed.  If not it will

         * reschedule.  */

        SCHED_ADD(check_insn_exec, NULL, to_insn_num);

      } else {

        /* The user wants to see the execution dumps.  Schedule a task to show

         * it to him after each cycle */

        sched_next_insn(print_insn_exec);

      }

      to_insn_num += runtime.cpu.instructions;

    } else {

      if(!runtime.sim.hush)

        sched_next_insn(print_insn_exec);

    }

  } else

    /* Run 0 instructions */

    return 0;

  return 1;

}

static int sim_cmd_stall(int argc, char **argv) /* Added by CZ 210801 */

{

#if DYNAMIC_EXECUTION

  PRINTF("Can't stall the cpu with the dynamic recompiler\n");

  return 0;

#else

  set_stall_state (1);

  runtime.sim.iprompt = 0;

  runtime.sim.hush = 1;

  return 1;

#endif

}

static int sim_cmd_stats(int argc, char **argv) /* stats */

{

  if(argc != 2) {

    PRINTF("stats <stat no. or `clear'>\n");

    return 0;

  }

  if(strcmp(argv[1], "clear") == 0) {

    initstats();

    PRINTF("Cleared.\n");

  } else {

    printstats(strtoul(argv[1], NULL, 0));

  }

  return 0;

}

static int sim_cmd_info(int argc, char **argv) /* configuration info */

{

  struct sim_stat *cur_stat = sim_stats;

  /* Display info about various modules */

  sprs_status();

  PRINTF ("\n");

  memory_table_status ();

  if (config.immu.enabled) itlb_status(-1);

  if (config.dmmu.enabled) dtlb_status(-1);

  if (config.ic.enabled) ic_info();

  if (config.dc.enabled) dc_info();

  if (config.bpb.enabled) bpb_info();

  if (config.bpb.btic) btic_info();

  while(cur_stat) {

    cur_stat->stat_func(cur_stat->dat);

    cur_stat = cur_stat->next;

  }

  return 0;

}

static int sim_cmd_setdbch(int argc, char **argv) /* Toggle debug channel on/off */

{

  if(argc != 2) {

    PRINTF("setdbch <channel>\n");

    return 0;

  }

  parse_dbchs(argv[1]);

  return 0;

}

static int sim_cmd_debug(int argc, char **argv) /* debug mode */

{

  config.sim.debug ^= 1;

  return 0;

}

static int sim_cmd_profile(int argc, char **argv) /* run profiler utility */

{

  main_profiler(argc, argv);

  return 0;

}

static int sim_cmd_mprofile(int argc, char **argv) /* run mprofiler utility */

{

  main_mprofiler(argc, argv);

  return 0;

}

static int sim_cmd_cuc(int argc, char **argv) /* run Custom Unit Compiler */

{

  main_cuc(runtime.sim.filename);

  return 0;

}

static int sim_cmd_set(int argc, char **argv) /* configuration info */

{

  set_config_command(argc, argv);

  return 0;

}

static char *strip_space(char *str)

{

  while(isblank(*str) && *str) str++;

  return str;

}

struct sim_command {

  const char *name;

  int (*cmd_handle)(int argc, char **argv);

};

static const struct sim_command sim_commands[] = {

 { "q", sim_cmd_quit },

 { "help", sim_cmd_help },

 { "t", sim_cmd_trace },

 { "dm", sim_cmd_dm },

 { "dv", sim_cmd_dv },

 { "dh", sim_cmd_dh },

 { "pm", sim_cmd_pm },

 { "cm", sim_cmd_cm },

 { "pr", sim_cmd_pr },

 { "pc", sim_cmd_pc },

 { "breaks", sim_cmd_breaks },

 { "break", sim_cmd_break },

 { "r", sim_cmd_r },

 { "de", sim_cmd_de },

 { "reset", sim_cmd_reset },

 { "hist", sim_cmd_hist },

 { "stall", sim_cmd_stall },

 { "stats", sim_cmd_stats },

 { "info", sim_cmd_info },

 { "run", sim_cmd_run },

 { "setdbch", sim_cmd_setdbch },

 { "debug", sim_cmd_debug },

 { "profile", sim_cmd_profile },

 { "mprofile", sim_cmd_mprofile },

 { "cuc", sim_cmd_cuc },

 { "set", sim_cmd_set },

 { NULL, NULL } };

#ifdef HAVE_LIBREADLINE

static void initialize_readline(void);

#endif

void handle_sim_command(void)

{

  char *redirstr;

  int argc;

  char *argv[5];

  char *cur_arg;

  const struct sim_command *cur_cmd;

#ifdef HAVE_LIBREADLINE

  static char *prev_str = NULL;

#else

  char b2[500];

  static char prev_str[500] = { 0 };

#endif

  /* Make sure that check_insn_exec is not left hanging in the scheduler (and

   * breaking the sim when the user doesn't want it to break). */

  SCHED_FIND_REMOVE(check_insn_exec, NULL);

  SCHED_FIND_REMOVE(print_insn_exec, NULL);