Subversion Repositories or1k

/* Remote debugging interface for various or1k debugging protocols.

   Currently supported or1k targets are: simulator, jtag, dummy.

   Copyright 1993-1995, 2000 Free Software Foundation, Inc.

   Contributed by Cygnus Support.  Written by Marko Mlinar

   <markom@opencores.org>

   This file is part of GDB.

   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., 59 Temple Place - Suite 330,

   Boston, MA 02111-1307, USA.  */

#include "defs.h"

#include "inferior.h"

#include "bfd.h"

#include "symfile.h"

#include "gdb_wait.h"

#include "gdbcmd.h"

#include "gdbcore.h"

#include "target.h"

#include "remote-utils.h"

#include "gdb_string.h"

#include "tm.h"

#include <signal.h>

#include <sys/types.h>

#include <sys/stat.h>

#include <sys/ioctl.h>

#include <fcntl.h>

/* JTAG or1k target ops.  */

extern void jtag_init PARAMS ((char * args));

extern ULONGEST jtag_read_reg PARAMS ((unsigned int regno));

extern void jtag_write_reg PARAMS ((unsigned int regno, ULONGEST data));

extern void jtag_done PARAMS ((void));

extern void jtag_set_chain PARAMS ((int chain));

struct target_ops or1k_jtag_ops;

static struct or1k_target_ops or1k_target_jtag =

  {

    "jtag",

    jtag_init,

    jtag_done,

    jtag_read_reg,

    jtag_write_reg,

    jtag_set_chain,

    NULL,

    &or1k_jtag_ops,

    OPS_MAGIC

  };

/* simulator or1k target ops.  */

struct target_ops or1k_sim_ops;

static struct or1k_target_ops or1k_target_sim =

  {

    "simulator",

    NULL,

    NULL,

    NULL,

    NULL,

    NULL,

    NULL,

    &or1k_sim_ops,

    OPS_MAGIC

  };

/* dummy or1k target ops.  */

struct target_ops or1k_dummy_ops;

static struct or1k_target_ops or1k_target_dummy =

  {

    "dummy",

    NULL,

    NULL,

    NULL,

    NULL,

    NULL,

    NULL,

    &or1k_dummy_ops,

    OPS_MAGIC

  };

const char *str_err[] =

  {

    "None", "CRC error"

  };

const char *status_name[] =

  {

    "UNDEFINED", "CONNECTING", "DISCONNECTING", "RUNNING", "STOPPED"

  };

/* Names for matchpoint related stuff.  */

static char *ct_names[] =

  {

    "DIS", "IFEA", "LEA", "SEA", "AEA", "LDATA", "SDATA", "ADATA"

  };

static char *cc_names[] =

  {

    "&", "==", "<", "<=", ">", ">=", "!=", "ERR"

  };

static char *ch_names[] =

  {

    "ERR", "&", "|", "ERR"

  };

/* Implementation specific information.  Set by or1k_initialize.  */

struct struct_or1k_implementation or1k_implementation;

/* Current target status.  */

static enum target_status or1k_status = TARGET_UNDEFINED;

/* The target vector.  */

struct target_ops or1k_dummy_ops, or1k_jtag_ops, or1k_sim_ops;

/* Currently active target description (if or1k_is_open == 1) */

static struct target_ops *current_ops;

/* Currently active or1k target operations.  */

static struct or1k_target_ops *current_or1k_target = NULL;

/* Set to 1 if the target is open.  */

static int or1k_is_open = 0;

/* Error last occured, zero = ok.  */

int err = 0;

/* Nonzero, if we changed something.  */

int debug_regs_changed;

/* Number of interrupts while waiting for process.  */

static int interrupt_count = 0;

/* Reason of last stop.  */

static int hit_watchpoint = 0;

/* Current register values.  */

unsigned int dmr1 = 0;

unsigned int dmr2 = 0;

unsigned int dsr = 0;

unsigned int drr = 0;

/* Current matchpoints.  */

unsigned int dvr[MAX_MATCHPOINTS];

struct dcr_struct dcr[MAX_MATCHPOINTS];

int matchpoint_user_count[MAX_MATCHPOINTS] = {0};

/* Handle low-level error that we can't recover from.  Note that just

   error()ing out from target_wait or some such low-level place will cause

   all hell to break loose--the rest of GDB will tend to get left in an

   inconsistent state.  */

static NORETURN void

or1k_error (char *string,...)

{

  va_list args;

  va_start (args, string);

  target_terminal_ours ();

  wrap_here ("");               /* Force out any buffered output */

  gdb_flush (gdb_stdout);

  if (error_pre_print)

    fprintf_filtered (gdb_stderr, error_pre_print);

  vfprintf_filtered (gdb_stderr, string, args);

  fprintf_filtered (gdb_stderr, "\n");

  va_end (args);

  gdb_flush (gdb_stderr);

  /* Clean up in such a way that or1k_close won't try to talk to the

     board (it almost surely won't work since we weren't able to talk to

     it).  */

  or1k_is_open = 0;

  printf_unfiltered ("Ending remote or1k debugging.\n");

  target_mourn_inferior ();

  return_to_top_level (RETURN_ERROR);

}

const char *

or1k_err_name (e)

     int e;

{

  return str_err[e];

}

/* putc_readable - print a character, displaying non-printable chars in

   ^x notation or in hex.  */

static void

fputc_readable (ch, file)

     int ch;

     struct ui_file *file;

{

  if (ch == '\n')

    fputc_unfiltered ('\n', file);

  else if (ch == '\r')

    fprintf_unfiltered (file, "\\r");

  else if (ch < 0x20)           /* ASCII control character */

    fprintf_unfiltered (file, "^%c", ch + '@');

  else if (ch >= 0x7f)          /* non-ASCII characters (rubout or greater) */

    fprintf_unfiltered (file, "[%02x]", ch & 0xff);

  else

    fputc_unfiltered (ch, file);

}

/* puts_readable - print a string, displaying non-printable chars in

   ^x notation or in hex.  */

static void

fputs_readable (string, file)

     char *string;

     struct ui_file *file;

{

  int c;

  while ((c = *string++) != '\0')

    fputc_readable (c, file);

}

/* Sets scan chain.  */

static void

or1k_set_chain (chain)

     int chain;

{

  if (current_or1k_target != NULL && current_or1k_target->to_set_chain != NULL)

    current_or1k_target->to_set_chain (chain);

}

/* Sets register/memory regno to data.  */

static void

or1k_write_reg (regno, data)

     unsigned int regno;

     ULONGEST data;

{

  if (current_or1k_target != NULL && current_or1k_target->to_write_reg != NULL)

    current_or1k_target->to_write_reg (regno, data);

}

/* Reads register/memory from regno.  */

static ULONGEST

or1k_read_reg (regno)

     unsigned int regno;

{

  if (current_or1k_target != NULL && current_or1k_target->to_read_reg != NULL)

    return current_or1k_target->to_read_reg (regno);

  else

    return 0x1234;

}

/* Sets SPR register regno to data.  */

void

or1k_write_spr_reg (regno, data)

     unsigned int regno;

     unsigned int data;

{

  or1k_set_chain (SC_RISC_DEBUG);

  or1k_write_reg (regno + REG_SPACE, data);

}

/* Reads register SPR from regno.  */

unsigned int

or1k_read_spr_reg (regno)

     unsigned int regno;

{

  or1k_set_chain (SC_RISC_DEBUG);

  return or1k_read_reg (regno + REG_SPACE);

}

/* Stalls the CPU.  */

static void

or1k_stall ()

{

  int val;

  or1k_set_chain (SC_REGISTER);

  val = or1k_read_reg (JTAG_RISCOP);

  or1k_write_reg (JTAG_RISCOP, val | 1);

  /* Be cautious - disable trace.  */

  val = or1k_read_reg (JTAG_MODER);

  or1k_write_reg (JTAG_MODER, val & ~2);

  or1k_flush_pipeline ();

}

/* Unstalls the CPU.  */

static void

or1k_unstall ()

{

  unsigned int val;

  or1k_set_chain (SC_REGISTER);

  val = or1k_read_reg (JTAG_RISCOP);

  or1k_write_reg (JTAG_RISCOP, val & ~1);

}

/* Resets the CPU and stalls it.  */

static void

or1k_reset ()

{

  unsigned int val;

  or1k_set_chain (SC_REGISTER);

  /* Be cautious - disable trace.  */

  val = or1k_read_reg (JTAG_MODER);

  or1k_write_reg (JTAG_MODER, val & ~2);

  val = or1k_read_reg (JTAG_RISCOP);

  val &= ~3;

  /* Assert reset signal.  */

  or1k_write_reg (JTAG_RISCOP, val | 3);

  /* give it some time */

  usleep (1000);

  or1k_flush_pipeline ();

  /* Release reset signal, but keep in stall state.  */

  or1k_write_reg (JTAG_RISCOP, val | 1);

  or1k_flush_pipeline ();

}

/* Synchronizes debug registers in memory with those on target,

   if there is any change.  */

static void

or1k_commit_debug_registers ()

{

  int i;

  unsigned int u;

  if (!debug_regs_changed)

    return;

  /* Matchpoints (breakpoints, watchpoints).  */

  for (i = 0; i < NUM_MATCHPOINTS; i++)

    {

      unsigned int u;

      or1k_write_spr_reg (DVR0_SPRNUM + i, dvr[i]);

      memcpy (&u, &dcr[i], sizeof(dcr[i]));

      or1k_write_spr_reg (DCR0_SPRNUM + i, u);

    }

  or1k_write_spr_reg (DMR1_SPRNUM, dmr1);

  or1k_write_spr_reg (DMR2_SPRNUM, dmr2);

  /* Trace dependent.  */

  or1k_set_chain (SC_REGISTER);

  memcpy (&u, &or1k_htrace.trig, sizeof(or1k_htrace.trig));

  or1k_write_reg (JTAG_TSEL, u);

  memcpy (&u, &or1k_htrace.qual, sizeof(or1k_htrace.qual));

  or1k_write_reg (JTAG_QSEL, u);

  memcpy (&u, &or1k_htrace.stop, sizeof(or1k_htrace.stop));

  or1k_write_reg (JTAG_SSEL, u);

  debug_regs_changed = 0;

  for (i = 0; i < NUM_RECORDS; i++)

    {

      memcpy (&u, &or1k_htrace.recwp[i], sizeof(or1k_htrace.recwp[i]));

      or1k_write_reg (JTAG_RECWP0 + i, u);

    }

  memcpy (&u, &or1k_htrace.recbp, sizeof(or1k_htrace.recbp));

  or1k_write_reg (JTAG_RECBP0, u);

  memcpy (&u, &or1k_htrace.moder, sizeof(or1k_htrace.moder));

  or1k_write_reg (JTAG_MODER, u);

}

static void

or1k_set_undefined_cleanups (arg)

     PTR arg;

{

  or1k_status = TARGET_UNDEFINED;

}

/* Initialize a new connection to the or1k board, and make sure we are

   really connected.  */

static void

or1k_init (args)

     char *args;

{

  struct cleanup *old_cleanups = make_cleanup (or1k_set_undefined_cleanups, NULL);

  int i;

  unsigned int tmp;

  FILE *f;

  /* What is this code doing here?  I don't see any way it can happen, and

     it might mean or1k_initializing didn't get cleared properly.

     So I'll make it a warning.  */

  if (or1k_status == TARGET_CONNECTING)

    {

      warning ("internal error: or1k_initialize called twice");

      return;

    }

  or1k_status = TARGET_CONNECTING;

  if (current_or1k_target != NULL && current_or1k_target->to_init != NULL)

    current_or1k_target->to_init (args);

  or1k_reset ();

  /* Determine implementation configuration.  */

  or1k_implementation.VR = or1k_read_spr_reg (VR_SPRNUM);

  or1k_implementation.UPR = or1k_read_spr_reg (UPR_SPRNUM);

  /* Determine number of gpr_regs.  */

  tmp = or1k_read_spr_reg (CPUCFGR_SPRNUM);

  or1k_implementation.num_gpr_regs = ((tmp >> 4) & 1)?(16):(32);

  /* Is any vector or floating point support present? */

  or1k_implementation.vf_present = ((tmp >> 7) & 7) != 0;

  or1k_implementation.num_vfpr_regs = (or1k_implementation.vf_present)?(32):(0);

  /* Determine max number of supported matchpoints.  */

  tmp = or1k_read_spr_reg (DCFGR_SPRNUM);

  or1k_implementation.num_matchpoints = tmp & 7;

  or1k_implementation.num_used_matchpoints = 0;

  or1k_implementation.has_counters = tmp & 4 == 1;

  /* Is implementation supported? */

  /* First we should have system and debug groups implemented. */

  if (or1k_implementation.VR & (1 << SPR_SYSTEM_GROUP) == 0)

    error ("System group should be available in the or1k implementation.");

  if (or1k_implementation.VR & (1 << SPR_DEBUG_GROUP) == 0)

    error ("Debug group should be available in the or1k implementation.");

  if (or1k_implementation.has_counters)

    warning ("Counters not supported.");

  /* Delete break, watch, catch points.  */

  for(i = 0; i < NUM_MATCHPOINTS; i++)

    {

      memset (&dcr[i], 0, sizeof (dcr[i]));

      matchpoint_user_count[i] = 0;

    }

  dmr1 = 0;

  dmr2 = 0;

  memset (&or1k_htrace, 0, sizeof (or1k_htrace));

  /* RECSELDEPEND = 0 does not match our trace scheme. */

  or1k_htrace.moder.rec_sel_dep = 1;

  debug_regs_changed = 1;

  or1k_commit_debug_registers ();

  if (err != 0)

    error ("Cannot connect.");

  /* Stop when breakpoint occurs.  */

  or1k_write_spr_reg (DSR_SPRNUM, 0x1000);

  do_cleanups (old_cleanups);

  /* This should cause an error if not connected.  */

  or1k_fetch_registers (-1);

  set_current_frame (create_new_frame (read_fp (), read_pc ()));

  select_frame (get_current_frame (), 0);

  /* Just empty it.  */

  if ((f = fopen (TRACE_FILENAME, "wb+")) == NULL)

    error ("Cannot open trace file.");

  fclose (f);

  trace_size = 0;

}

/* Kill the process running on the board.  */

void

or1k_kill ()

{

  if (or1k_status != TARGET_RUNNING)

    return;

  or1k_status = TARGET_UNDEFINED;

  or1k_reset();

  or1k_status = TARGET_STOPPED;

  inferior_pid = 0;

}

/* Open a connection to the remote board.  */

static void

or1k_open (name, from_tty)

     char *name;

     int from_tty;

{

  or1k_init (name);

  /* Switch to using remote target now.  */

  current_ops = current_or1k_target->gdb_ops;

  or1k_is_open = 1;

  push_target (current_ops);

  /* FIXME: Should we call start_remote here?  */

/* This is really the job of start_remote however, that makes an assumption

   that the target is about to print out a status message of some sort.  That

   doesn't happen here (in fact, it may not be possible to get the monitor to

   send the appropriate packet).  */

  flush_cached_frames ();

  registers_changed ();

  stop_pc = read_pc ();

  set_current_frame (create_new_frame (read_fp (), stop_pc));

  select_frame (get_current_frame (), 0);

  print_stack_frame (selected_frame, -1, 1);

}

/* Close a connection to the remote board.  */

static void

or1k_close (quitting)

     int quitting;

{

  if (or1k_is_open)

    {

      or1k_kill ();

      if (current_or1k_target != NULL && current_or1k_target->to_done != NULL)

        current_or1k_target->to_done ();

      current_or1k_target = NULL;

    }

  generic_mourn_inferior ();

}

/* Detach from the remote board.  */

static void

or1k_detach (args, from_tty)

     char *args;

     int from_tty;

{

  if (args)

    error ("Argument given to \"detach\" when remotely debugging.");

  pop_target ();

  or1k_close (1);

  if (from_tty)

    printf_unfiltered ("Ending remote or1k debugging.\n");

}

/* Appends trace data to the trace file.  */

static void

or1k_read_trace ()

{

  struct htrace_data_struct data;

  ULONGEST tmp;

  int first = 1;

  FILE *fd;

  if ((fd = fopen (TRACE_FILENAME, "ab")) == NULL)

    {

      warning ("Cannot append to trace file.");

      return;

    }

  or1k_set_chain (SC_TRACE);

  while (1)

    {

      tmp = or1k_read_reg (0);

      memcpy (&data, &tmp, sizeof (data));

      /* Last record reached. */

      if (!data.valid)

        break;

      data.valid = first;

      first = 0;

      if (!fwrite (&data, sizeof (data), 1, fd))

        {

          warning ("Cannot write trace data");

          break;

        }

    }

  fclose (fd);

}

/* Resume execution of the target process.  STEP says whether to single-step

   or to run free; SIGGNAL is the signal value (e.g. SIGINT) to be given

   to the target, or zero for no signal.  */

static void

or1k_resume (pid, step, siggnal)

     int pid, step;

     enum target_signal siggnal;

{

  if (or1k_status != TARGET_STOPPED)

    if (or1k_status == TARGET_RUNNING)

      error ("Program is already running.");

    else

      error ("The program is not being run.");

  /* Clear reason register for later.  */

  or1k_write_spr_reg (DRR_SPRNUM, 0);

  if (step)

    {

      /* HW STEP.  Set DMR1_ST.  */

      dmr1 |= DMR1_ST;

      or1k_write_spr_reg (DMR1_SPRNUM, dmr1);

      dmr1 &= ~DMR1_ST;

    }

  or1k_commit_debug_registers ();

  /* Run the target. */

  or1k_unstall ();

  or1k_status = TARGET_RUNNING;

}

/* Wait until the remote stops, and return a wait status.  */

static int

or1k_wait (pid, status)

     int pid;

     struct target_waitstatus *status;

{

  interrupt_count = 0;

  /* If we have not sent a single step or continue command, then the

     board is waiting for us to do something.  Return a status

     indicating that it is stopped.  */

  if (or1k_status != TARGET_RUNNING)

    {

      if (or1k_status != TARGET_STOPPED)

        error("Target in invalid state.");

      status->kind = TARGET_WAITKIND_STOPPED;

      status->value.sig = TARGET_SIGNAL_TRAP;

      return 0;

    }

  if (err)

    or1k_error ("Remote failure: %s", or1k_err_name (err));

  /* Wait for or1k DRR register to be nonzero.  */

  do

    {

      drr = or1k_read_spr_reg (DRR_SPRNUM);

      usleep (10);

    }

  while (drr == 0);

  status->kind = TARGET_WAITKIND_STOPPED;

  or1k_flush_pipeline ();

  if (drr & DRR_RSTE)

    status->value.sig = TARGET_SIGNAL_REALTIME_33;

  else if (drr & DRR_BUSEE)

    status->value.sig = TARGET_SIGNAL_BUS;

  else if (drr & DRR_DPFE)

    status->value.sig = TARGET_SIGNAL_REALTIME_34;

  else if (drr & DRR_IPFE)

    status->value.sig = TARGET_SIGNAL_REALTIME_35;

  else if (drr & DRR_LPINTE)

    status->value.sig = TARGET_SIGNAL_INT;

  else if (drr & DRR_AE)

    status->value.sig = TARGET_SIGNAL_REALTIME_36;

  else if (drr & DRR_IIE)

    status->value.sig = TARGET_SIGNAL_ILL;

  else if (drr & DRR_HPINTE)

    status->value.sig = TARGET_SIGNAL_INT;

  else if (drr & DRR_DME)

    status->value.sig = TARGET_SIGNAL_REALTIME_37;

  else if (drr & DRR_IME)