Obsolete m88k.

1 files changed, 1027 insertions, 1027 deletions

diff --git a/gdb/remote-bug.c b/gdb/remote-bug.c
index f74ce97..a6ffb8e 100644
--- a/gdb/remote-bug.c
+++ b/gdb/remote-bug.c
@@ -1,1027 +1,1027 @@
-/* Remote debugging interface for Motorola's MVME187BUG monitor, an embedded
-   monitor for the m88k.
-
-   Copyright 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-   2002 Free Software Foundation, Inc.
-
-   Contributed by Cygnus Support.  Written by K. Richard Pixley.
-
-   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 "gdb_string.h"
-#include "regcache.h"
-#include <ctype.h>
-#include <fcntl.h>
-#include <setjmp.h>
-#include <errno.h>
-
-#include "terminal.h"
-#include "gdbcore.h"
-#include "gdbcmd.h"
-
-#include "serial.h"
-#include "remote-utils.h"
-
-/* External data declarations */
-extern int stop_soon_quietly;	/* for wait_for_inferior */
-
-/* Forward data declarations */
-extern struct target_ops bug_ops;	/* Forward declaration */
-
-/* Forward function declarations */
-static int bug_clear_breakpoints (void);
-
-static int bug_read_memory (CORE_ADDR memaddr,
-			    unsigned char *myaddr, int len);
-
-static int bug_write_memory (CORE_ADDR memaddr,
-			     unsigned char *myaddr, int len);
-
-/* This variable is somewhat arbitrary.  It's here so that it can be
-   set from within a running gdb.  */
-
-static int srec_max_retries = 3;
-
-/* Each S-record download to the target consists of an S0 header
-   record, some number of S3 data records, and one S7 termination
-   record.  I call this download a "frame".  Srec_frame says how many
-   bytes will be represented in each frame.  */
-
-#define SREC_SIZE 160
-static int srec_frame = SREC_SIZE;
-
-/* This variable determines how many bytes will be represented in each
-   S3 s-record.  */
-
-static int srec_bytes = 40;
-
-/* At one point it appeared to me as though the bug monitor could not
-   really be expected to receive two sequential characters at 9600
-   baud reliably.  Echo-pacing is an attempt to force data across the
-   line even in this condition.  Specifically, in echo-pace mode, each
-   character is sent one at a time and we look for the echo before
-   sending the next.  This is excruciatingly slow.  */
-
-static int srec_echo_pace = 0;
-
-/* How long to wait after an srec for a possible error message.
-   Similar to the above, I tried sleeping after sending each S3 record
-   in hopes that I might actually see error messages from the bug
-   monitor.  This might actually work if we were to use sleep
-   intervals smaller than 1 second.  */
-
-static int srec_sleep = 0;
-
-/* Every srec_noise records, flub the checksum.  This is a debugging
-   feature.  Set the variable to something other than 1 in order to
-   inject *deliberate* checksum errors.  One might do this if one
-   wanted to test error handling and recovery.  */
-
-static int srec_noise = 0;
-
-/* Called when SIGALRM signal sent due to alarm() timeout.  */
-
-/* Number of SIGTRAPs we need to simulate.  That is, the next
-   NEED_ARTIFICIAL_TRAP calls to bug_wait should just return
-   SIGTRAP without actually waiting for anything.  */
-
-static int need_artificial_trap = 0;
-
-/*
- * Download a file specified in 'args', to the bug.
- */
-
-static void
-bug_load (char *args, int fromtty)
-{
-  bfd *abfd;
-  asection *s;
-  char buffer[1024];
-
-  sr_check_open ();
-
-  inferior_ptid = null_ptid;
-  abfd = bfd_openr (args, 0);
-  if (!abfd)
-    {
-      printf_filtered ("Unable to open file %s\n", args);
-      return;
-    }
-
-  if (bfd_check_format (abfd, bfd_object) == 0)
-    {
-      printf_filtered ("File is not an object file\n");
-      return;
-    }
-
-  s = abfd->sections;
-  while (s != (asection *) NULL)
-    {
-      srec_frame = SREC_SIZE;
-      if (s->flags & SEC_LOAD)
-	{
-	  int i;
-
-	  char *buffer = xmalloc (srec_frame);
-
-	  printf_filtered ("%s\t: 0x%4lx .. 0x%4lx  ", s->name, s->vma, s->vma + s->_raw_size);
-	  gdb_flush (gdb_stdout);
-	  for (i = 0; i < s->_raw_size; i += srec_frame)
-	    {
-	      if (srec_frame > s->_raw_size - i)
-		srec_frame = s->_raw_size - i;
-
-	      bfd_get_section_contents (abfd, s, buffer, i, srec_frame);
-	      bug_write_memory (s->vma + i, buffer, srec_frame);
-	      printf_filtered ("*");
-	      gdb_flush (gdb_stdout);
-	    }
-	  printf_filtered ("\n");
-	  xfree (buffer);
-	}
-      s = s->next;
-    }
-  sprintf (buffer, "rs ip %lx", (unsigned long) abfd->start_address);
-  sr_write_cr (buffer);
-  gr_expect_prompt ();
-}
-
-#if 0
-static char *
-get_word (char **p)
-{
-  char *s = *p;
-  char *word;
-  char *copy;
-  size_t len;
-
-  while (isspace (*s))
-    s++;
-
-  word = s;
-
-  len = 0;
-
-  while (*s && !isspace (*s))
-    {
-      s++;
-      len++;
-
-    }
-  copy = xmalloc (len + 1);
-  memcpy (copy, word, len);
-  copy[len] = 0;
-  *p = s;
-  return copy;
-}
-#endif
-
-static struct gr_settings bug_settings =
-{
-  "Bug>",			/* prompt */
-  &bug_ops,			/* ops */
-  bug_clear_breakpoints,	/* clear_all_breakpoints */
-  gr_generic_checkin,		/* checkin */
-};
-
-static char *cpu_check_strings[] =
-{
-  "=",
-  "Invalid Register",
-};
-
-static void
-bug_open (char *args, int from_tty)
-{
-  if (args == NULL)
-    args = "";
-
-  gr_open (args, from_tty, &bug_settings);
-  /* decide *now* whether we are on an 88100 or an 88110 */
-  sr_write_cr ("rs cr06");
-  sr_expect ("rs cr06");
-
-  switch (gr_multi_scan (cpu_check_strings, 0))
-    {
-    case 0:			/* this is an m88100 */
-      target_is_m88110 = 0;
-      break;
-    case 1:			/* this is an m88110 */
-      target_is_m88110 = 1;
-      break;
-    default:
-      internal_error (__FILE__, __LINE__, "failed internal consistency check");
-    }
-}
-
-/* Tell the remote machine to resume.  */
-
-void
-bug_resume (ptid_t ptid, int step, enum target_signal sig)
-{
-  if (step)
-    {
-      sr_write_cr ("t");
-
-      /* Force the next bug_wait to return a trap.  Not doing anything
-         about I/O from the target means that the user has to type
-         "continue" to see any.  FIXME, this should be fixed.  */
-      need_artificial_trap = 1;
-    }
-  else
-    sr_write_cr ("g");
-
-  return;
-}
-
-/* Wait until the remote machine stops, then return,
-   storing status in STATUS just as `wait' would.  */
-
-static char *wait_strings[] =
-{
-  "At Breakpoint",
-  "Exception: Data Access Fault (Local Bus Timeout)",
-  "\r8??\?-Bug>",		/* The '\?' avoids creating a trigraph */
-  "\r197-Bug>",
-  NULL,
-};
-
-ptid_t
-bug_wait (ptid_t ptid, struct target_waitstatus *status)
-{
-  int old_timeout = sr_get_timeout ();
-  int old_immediate_quit = immediate_quit;
-
-  status->kind = TARGET_WAITKIND_EXITED;
-  status->value.integer = 0;
-
-  /* read off leftovers from resume so that the rest can be passed
-     back out as stdout.  */
-  if (need_artificial_trap == 0)
-    {
-      sr_expect ("Effective address: ");
-      (void) sr_get_hex_word ();
-      sr_expect ("\r\n");
-    }
-
-  sr_set_timeout (-1);		/* Don't time out -- user program is running. */
-  immediate_quit = 1;		/* Helps ability to QUIT */
-
-  switch (gr_multi_scan (wait_strings, need_artificial_trap == 0))
-    {
-    case 0:			/* breakpoint case */
-      status->kind = TARGET_WAITKIND_STOPPED;
-      status->value.sig = TARGET_SIGNAL_TRAP;
-      /* user output from the target can be discarded here. (?) */
-      gr_expect_prompt ();
-      break;
-
-    case 1:			/* bus error */
-      status->kind = TARGET_WAITKIND_STOPPED;
-      status->value.sig = TARGET_SIGNAL_BUS;
-      /* user output from the target can be discarded here. (?) */
-      gr_expect_prompt ();
-      break;
-
-    case 2:			/* normal case */
-    case 3:
-      if (need_artificial_trap != 0)
-	{
-	  /* stepping */
-	  status->kind = TARGET_WAITKIND_STOPPED;
-	  status->value.sig = TARGET_SIGNAL_TRAP;
-	  need_artificial_trap--;
-	  break;
-	}
-      else
-	{
-	  /* exit case */
-	  status->kind = TARGET_WAITKIND_EXITED;
-	  status->value.integer = 0;
-	  break;
-	}
-
-    case -1:			/* trouble */
-    default:
-      fprintf_filtered (gdb_stderr,
-			"Trouble reading target during wait\n");
-      break;
-    }
-
-  sr_set_timeout (old_timeout);
-  immediate_quit = old_immediate_quit;
-  return inferior_ptid;
-}
-
-/* Return the name of register number REGNO
-   in the form input and output by bug.
-
-   Returns a pointer to a static buffer containing the answer.  */
-static char *
-get_reg_name (int regno)
-{
-  static char *rn[] =
-  {
-    "r00", "r01", "r02", "r03", "r04", "r05", "r06", "r07",
-    "r08", "r09", "r10", "r11", "r12", "r13", "r14", "r15",
-    "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23",
-    "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31",
-
-  /* these get confusing because we omit a few and switch some ordering around. */
-
-    "cr01",			/* 32 = psr */
-    "fcr62",			/* 33 = fpsr */
-    "fcr63",			/* 34 = fpcr */
-    "ip",			/* this is something of a cheat. */
-  /* 35 = sxip */
-    "cr05",			/* 36 = snip */
-    "cr06",			/* 37 = sfip */
-
-    "x00", "x01", "x02", "x03", "x04", "x05", "x06", "x07",
-    "x08", "x09", "x10", "x11", "x12", "x13", "x14", "x15",
-    "x16", "x17", "x18", "x19", "x20", "x21", "x22", "x23",
-    "x24", "x25", "x26", "x27", "x28", "x29", "x30", "x31",
-  };
-
-  return rn[regno];
-}
-
-#if 0				/* not currently used */
-/* Read from remote while the input matches STRING.  Return zero on
-   success, -1 on failure.  */
-
-static int
-bug_scan (char *s)
-{
-  int c;
-
-  while (*s)
-    {
-      c = sr_readchar ();
-      if (c != *s++)
-	{
-	  fflush (stdout);
-	  printf ("\nNext character is '%c' - %d and s is \"%s\".\n", c, c, --s);
-	  return (-1);
-	}
-    }
-
-  return (0);
-}
-#endif /* never */
-
-static int
-bug_srec_write_cr (char *s)
-{
-  char *p = s;
-
-  if (srec_echo_pace)
-    for (p = s; *p; ++p)
-      {
-	if (sr_get_debug () > 0)
-	  printf ("%c", *p);
-
-	do
-	  serial_write (sr_get_desc (), p, 1);
-	while (sr_pollchar () != *p);
-      }
-  else
-    {
-      sr_write_cr (s);
-/*       return(bug_scan (s) || bug_scan ("\n")); */
-    }
-
-  return (0);
-}
-
-/* Store register REGNO, or all if REGNO == -1. */
-
-static void
-bug_fetch_register (int regno)
-{
-  sr_check_open ();
-
-  if (regno == -1)
-    {
-      int i;
-
-      for (i = 0; i < NUM_REGS; ++i)
-	bug_fetch_register (i);
-    }
-  else if (target_is_m88110 && regno == SFIP_REGNUM)
-    {
-      /* m88110 has no sfip. */
-      long l = 0;
-      supply_register (regno, (char *) &l);
-    }
-  else if (regno < XFP_REGNUM)
-    {
-      char buffer[MAX_REGISTER_RAW_SIZE];
-
-      sr_write ("rs ", 3);
-      sr_write_cr (get_reg_name (regno));
-      sr_expect ("=");
-      store_unsigned_integer (buffer, REGISTER_RAW_SIZE (regno),
-			      sr_get_hex_word ());
-      gr_expect_prompt ();
-      supply_register (regno, buffer);
-    }
-  else
-    {
-      /* Float register so we need to parse a strange data format. */
-      long p;
-      unsigned char fpreg_buf[10];
-
-      sr_write ("rs ", 3);
-      sr_write (get_reg_name (regno), strlen (get_reg_name (regno)));
-      sr_write_cr (";d");
-      sr_expect ("rs");
-      sr_expect (get_reg_name (regno));
-      sr_expect (";d");
-      sr_expect ("=");
-
-      /* sign */
-      p = sr_get_hex_digit (1);
-      fpreg_buf[0] = p << 7;
-
-      /* exponent */
-      sr_expect ("_");
-      p = sr_get_hex_digit (1);
-      fpreg_buf[0] += (p << 4);
-      fpreg_buf[0] += sr_get_hex_digit (1);
-
-      fpreg_buf[1] = sr_get_hex_digit (1) << 4;
-
-      /* fraction */
-      sr_expect ("_");
-      fpreg_buf[1] += sr_get_hex_digit (1);
-
-      fpreg_buf[2] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-      fpreg_buf[3] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-      fpreg_buf[4] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-      fpreg_buf[5] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-      fpreg_buf[6] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-      fpreg_buf[7] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-      fpreg_buf[8] = 0;
-      fpreg_buf[9] = 0;
-
-      gr_expect_prompt ();
-      supply_register (regno, fpreg_buf);
-    }
-
-  return;
-}
-
-/* Store register REGNO, or all if REGNO == -1. */
-
-static void
-bug_store_register (int regno)
-{
-  char buffer[1024];
-  sr_check_open ();
-
-  if (regno == -1)
-    {
-      int i;
-
-      for (i = 0; i < NUM_REGS; ++i)
-	bug_store_register (i);
-    }
-  else
-    {
-      char *regname;
-
-      regname = get_reg_name (regno);
-
-      if (target_is_m88110 && regno == SFIP_REGNUM)
-	return;
-      else if (regno < XFP_REGNUM)
-	sprintf (buffer, "rs %s %08lx",
-		 regname,
-		 (long) read_register (regno));
-      else
-	{
-	  unsigned char *fpreg_buf =
-	  (unsigned char *) &registers[REGISTER_BYTE (regno)];
-
-	  sprintf (buffer, "rs %s %1x_%02x%1x_%1x%02x%02x%02x%02x%02x%02x;d",
-		   regname,
-	  /* sign */
-		   (fpreg_buf[0] >> 7) & 0xf,
-	  /* exponent */
-		   fpreg_buf[0] & 0x7f,
-		   (fpreg_buf[1] >> 8) & 0xf,
-	  /* fraction */
-		   fpreg_buf[1] & 0xf,
-		   fpreg_buf[2],
-		   fpreg_buf[3],
-		   fpreg_buf[4],
-		   fpreg_buf[5],
-		   fpreg_buf[6],
-		   fpreg_buf[7]);
-	}
-
-      sr_write_cr (buffer);
-      gr_expect_prompt ();
-    }
-
-  return;
-}
-
-/* Transfer LEN bytes between GDB address MYADDR and target address
-   MEMADDR.  If WRITE is non-zero, transfer them to the target,
-   otherwise transfer them from the target.  TARGET is unused.
-
-   Returns the number of bytes transferred. */
-
-int
-bug_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int write,
-		 struct mem_attrib *attrib, struct target_ops *target)
-{
-  int res;
-
-  if (len <= 0)
-    return 0;
-
-  if (write)
-    res = bug_write_memory (memaddr, myaddr, len);
-  else
-    res = bug_read_memory (memaddr, myaddr, len);
-
-  return res;
-}
-
-static void
-start_load (void)
-{
-  char *command;
-
-  command = (srec_echo_pace ? "lo 0 ;x" : "lo 0");
-
-  sr_write_cr (command);
-  sr_expect (command);
-  sr_expect ("\r\n");
-  bug_srec_write_cr ("S0030000FC");
-  return;
-}
-
-/* This is an extremely vulnerable and fragile function.  I've made
-   considerable attempts to make this deterministic, but I've
-   certainly forgotten something.  The trouble is that S-records are
-   only a partial file format, not a protocol.  Worse, apparently the
-   m88k bug monitor does not run in real time while receiving
-   S-records.  Hence, we must pay excruciating attention to when and
-   where error messages are returned, and what has actually been sent.
-
-   Each call represents a chunk of memory to be sent to the target.
-   We break that chunk into an S0 header record, some number of S3
-   data records each containing srec_bytes, and an S7 termination
-   record.  */
-
-static char *srecord_strings[] =
-{
-  "S-RECORD",
-  "-Bug>",
-  NULL,
-};
-
-static int
-bug_write_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
-{
-  int done;
-  int checksum;
-  int x;
-  int retries;
-  char *buffer = alloca ((srec_bytes + 8) << 1);
-
-  retries = 0;
-
-  do
-    {
-      done = 0;
-
-      if (retries > srec_max_retries)
-	return (-1);
-
-      if (retries > 0)
-	{
-	  if (sr_get_debug () > 0)
-	    printf ("\n<retrying...>\n");
-
-	  /* This gr_expect_prompt call is extremely important.  Without
-	     it, we will tend to resend our packet so fast that it
-	     will arrive before the bug monitor is ready to receive
-	     it.  This would lead to a very ugly resend loop.  */
-
-	  gr_expect_prompt ();
-	}
-
-      start_load ();
-
-      while (done < len)
-	{
-	  int thisgo;
-	  int idx;
-	  char *buf = buffer;
-	  CORE_ADDR address;
-
-	  checksum = 0;
-	  thisgo = len - done;
-	  if (thisgo > srec_bytes)
-	    thisgo = srec_bytes;
-
-	  address = memaddr + done;
-	  sprintf (buf, "S3%02X%08lX", thisgo + 4 + 1, (long) address);
-	  buf += 12;
-
-	  checksum += (thisgo + 4 + 1
-		       + (address & 0xff)
-		       + ((address >> 8) & 0xff)
-		       + ((address >> 16) & 0xff)
-		       + ((address >> 24) & 0xff));
-
-	  for (idx = 0; idx < thisgo; idx++)
-	    {
-	      sprintf (buf, "%02X", myaddr[idx + done]);
-	      checksum += myaddr[idx + done];
-	      buf += 2;
-	    }
-
-	  if (srec_noise > 0)
-	    {
-	      /* FIXME-NOW: insert a deliberate error every now and then.
-	         This is intended for testing/debugging the error handling
-	         stuff.  */
-	      static int counter = 0;
-	      if (++counter > srec_noise)
-		{
-		  counter = 0;
-		  ++checksum;
-		}
-	    }
-
-	  sprintf (buf, "%02X", ~checksum & 0xff);
-	  bug_srec_write_cr (buffer);
-
-	  if (srec_sleep != 0)
-	    sleep (srec_sleep);
-
-	  /* This pollchar is probably redundant to the gr_multi_scan
-	     below.  Trouble is, we can't be sure when or where an
-	     error message will appear.  Apparently, when running at
-	     full speed from a typical sun4, error messages tend to
-	     appear to arrive only *after* the s7 record.   */
-
-	  if ((x = sr_pollchar ()) != 0)
-	    {
-	      if (sr_get_debug () > 0)
-		printf ("\n<retrying...>\n");
-
-	      ++retries;
-
-	      /* flush any remaining input and verify that we are back
-	         at the prompt level. */
-	      gr_expect_prompt ();
-	      /* start all over again. */
-	      start_load ();
-	      done = 0;
-	      continue;
-	    }
-
-	  done += thisgo;
-	}
-
-      bug_srec_write_cr ("S7060000000000F9");
-      ++retries;
-
-      /* Having finished the load, we need to figure out whether we
-         had any errors.  */
-    }
-  while (gr_multi_scan (srecord_strings, 0) == 0);;
-
-  return (0);
-}
-
-/* Copy LEN bytes of data from debugger memory at MYADDR
-   to inferior's memory at MEMADDR.  Returns errno value.
-   * sb/sh instructions don't work on unaligned addresses, when TU=1.
- */
-
-/* Read LEN bytes from inferior memory at MEMADDR.  Put the result
-   at debugger address MYADDR.  Returns errno value.  */
-static int
-bug_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
-{
-  char request[100];
-  char *buffer;
-  char *p;
-  char type;
-  char size;
-  unsigned char c;
-  unsigned int inaddr;
-  unsigned int checksum;
-
-  sprintf (request, "du 0 %lx:&%d", (long) memaddr, len);
-  sr_write_cr (request);
-
-  p = buffer = alloca (len);
-
-  /* scan up through the header */
-  sr_expect ("S0030000FC");
-
-  while (p < buffer + len)
-    {
-      /* scan off any white space. */
-      while (sr_readchar () != 'S');;
-
-      /* what kind of s-rec? */
-      type = sr_readchar ();
-
-      /* scan record size */
-      sr_get_hex_byte (&size);
-      checksum = size;
-      --size;
-      inaddr = 0;
-
-      switch (type)
-	{
-	case '7':
-	case '8':
-	case '9':
-	  goto done;
-
-	case '3':
-	  sr_get_hex_byte (&c);
-	  inaddr = (inaddr << 8) + c;
-	  checksum += c;
-	  --size;
-	  /* intentional fall through */
-	case '2':
-	  sr_get_hex_byte (&c);
-	  inaddr = (inaddr << 8) + c;
-	  checksum += c;
-	  --size;
-	  /* intentional fall through */
-	case '1':
-	  sr_get_hex_byte (&c);
-	  inaddr = (inaddr << 8) + c;
-	  checksum += c;
-	  --size;
-	  sr_get_hex_byte (&c);
-	  inaddr = (inaddr << 8) + c;
-	  checksum += c;
-	  --size;
-	  break;
-
-	default:
-	  /* bonk */
-	  error ("reading s-records.");
-	}
-
-      if (inaddr < memaddr
-	  || (memaddr + len) < (inaddr + size))
-	error ("srec out of memory range.");
-
-      if (p != buffer + inaddr - memaddr)
-	error ("srec out of sequence.");
-
-      for (; size; --size, ++p)
-	{
-	  sr_get_hex_byte (p);
-	  checksum += *p;
-	}
-
-      sr_get_hex_byte (&c);
-      if (c != (~checksum & 0xff))
-	error ("bad s-rec checksum");
-    }
-
-done:
-  gr_expect_prompt ();
-  if (p != buffer + len)
-    return (1);
-
-  memcpy (myaddr, buffer, len);
-  return (0);
-}
-
-#define MAX_BREAKS	16
-static int num_brkpts = 0;
-
-/* Insert a breakpoint at ADDR.  SAVE is normally the address of the
-   pattern buffer where the instruction that the breakpoint overwrites
-   is saved.  It is unused here since the bug is responsible for
-   saving/restoring the original instruction. */
-
-static int
-bug_insert_breakpoint (CORE_ADDR addr, char *save)
-{
-  sr_check_open ();
-
-  if (num_brkpts < MAX_BREAKS)
-    {
-      char buffer[100];
-
-      num_brkpts++;
-      sprintf (buffer, "br %lx", (long) addr);
-      sr_write_cr (buffer);
-      gr_expect_prompt ();
-      return (0);
-    }
-  else
-    {
-      fprintf_filtered (gdb_stderr,
-		      "Too many break points, break point not installed\n");
-      return (1);
-    }
-
-}
-
-/* Remove a breakpoint at ADDR.  SAVE is normally the previously
-   saved pattern, but is unused here since the bug is responsible
-   for saving/restoring instructions. */
-
-static int
-bug_remove_breakpoint (CORE_ADDR addr, char *save)
-{
-  if (num_brkpts > 0)
-    {
-      char buffer[100];
-
-      num_brkpts--;
-      sprintf (buffer, "nobr %lx", (long) addr);
-      sr_write_cr (buffer);
-      gr_expect_prompt ();
-
-    }
-  return (0);
-}
-
-/* Clear the bugs notion of what the break points are */
-static int
-bug_clear_breakpoints (void)
-{
-
-  if (sr_is_open ())
-    {
-      sr_write_cr ("nobr");
-      sr_expect ("nobr");
-      gr_expect_prompt ();
-    }
-  num_brkpts = 0;
-  return (0);
-}
-
-struct target_ops bug_ops;
-
-static void
-init_bug_ops (void)
-{
-  bug_ops.to_shortname = "bug";
-  "Remote BUG monitor",
-    bug_ops.to_longname = "Use the mvme187 board running the BUG monitor connected by a serial line.";
-  bug_ops.to_doc = " ";
-  bug_ops.to_open = bug_open;
-  bug_ops.to_close = gr_close;
-  bug_ops.to_attach = 0;
-  bug_ops.to_post_attach = NULL;
-  bug_ops.to_require_attach = NULL;
-  bug_ops.to_detach = gr_detach;
-  bug_ops.to_require_detach = NULL;
-  bug_ops.to_resume = bug_resume;
-  bug_ops.to_wait = bug_wait;
-  bug_ops.to_post_wait = NULL;
-  bug_ops.to_fetch_registers = bug_fetch_register;
-  bug_ops.to_store_registers = bug_store_register;
-  bug_ops.to_prepare_to_store = gr_prepare_to_store;
-  bug_ops.to_xfer_memory = bug_xfer_memory;
-  bug_ops.to_files_info = gr_files_info;
-  bug_ops.to_insert_breakpoint = bug_insert_breakpoint;
-  bug_ops.to_remove_breakpoint = bug_remove_breakpoint;
-  bug_ops.to_terminal_init = 0;
-  bug_ops.to_terminal_inferior = 0;
-  bug_ops.to_terminal_ours_for_output = 0;
-  bug_ops.to_terminal_ours = 0;
-  bug_ops.to_terminal_info = 0;
-  bug_ops.to_kill = gr_kill;
-  bug_ops.to_load = bug_load;
-  bug_ops.to_lookup_symbol = 0;
-  bug_ops.to_create_inferior = gr_create_inferior;
-  bug_ops.to_post_startup_inferior = NULL;
-  bug_ops.to_acknowledge_created_inferior = NULL;
-  bug_ops.to_clone_and_follow_inferior = NULL;
-  bug_ops.to_post_follow_inferior_by_clone = NULL;
-  bug_ops.to_insert_fork_catchpoint = NULL;
-  bug_ops.to_remove_fork_catchpoint = NULL;
-  bug_ops.to_insert_vfork_catchpoint = NULL;
-  bug_ops.to_remove_vfork_catchpoint = NULL;
-  bug_ops.to_has_forked = NULL;
-  bug_ops.to_has_vforked = NULL;
-  bug_ops.to_can_follow_vfork_prior_to_exec = NULL;
-  bug_ops.to_post_follow_vfork = NULL;
-  bug_ops.to_insert_exec_catchpoint = NULL;
-  bug_ops.to_remove_exec_catchpoint = NULL;
-  bug_ops.to_has_execd = NULL;
-  bug_ops.to_reported_exec_events_per_exec_call = NULL;
-  bug_ops.to_has_exited = NULL;
-  bug_ops.to_mourn_inferior = gr_mourn;
-  bug_ops.to_can_run = 0;
-  bug_ops.to_notice_signals = 0;
-  bug_ops.to_thread_alive = 0;
-  bug_ops.to_stop = 0;
-  bug_ops.to_pid_to_exec_file = NULL;
-  bug_ops.to_stratum = process_stratum;
-  bug_ops.DONT_USE = 0;
-  bug_ops.to_has_all_memory = 1;
-  bug_ops.to_has_memory = 1;
-  bug_ops.to_has_stack = 1;
-  bug_ops.to_has_registers = 0;
-  bug_ops.to_has_execution = 0;
-  bug_ops.to_sections = 0;
-  bug_ops.to_sections_end = 0;
-  bug_ops.to_magic = OPS_MAGIC;	/* Always the last thing */
-}				/* init_bug_ops */
-
-void
-_initialize_remote_bug (void)
-{
-  init_bug_ops ();
-  add_target (&bug_ops);
-
-  add_show_from_set
-    (add_set_cmd ("srec-bytes", class_support, var_uinteger,
-		  (char *) &srec_bytes,
-		  "\
-Set the number of bytes represented in each S-record.\n\
-This affects the communication protocol with the remote target.",
-		  &setlist),
-     &showlist);
-
-  add_show_from_set
-    (add_set_cmd ("srec-max-retries", class_support, var_uinteger,
-		  (char *) &srec_max_retries,
-		  "\
-Set the number of retries for shipping S-records.\n\
-This affects the communication protocol with the remote target.",
-		  &setlist),
-     &showlist);
-
-#if 0
-  /* This needs to set SREC_SIZE, not srec_frame which gets changed at the
-     end of a download.  But do we need the option at all?  */
-  add_show_from_set
-    (add_set_cmd ("srec-frame", class_support, var_uinteger,
-		  (char *) &srec_frame,
-		  "\
-Set the number of bytes in an S-record frame.\n\
-This affects the communication protocol with the remote target.",
-		  &setlist),
-     &showlist);
-#endif /* 0 */
-
-  add_show_from_set
-    (add_set_cmd ("srec-noise", class_support, var_zinteger,
-		  (char *) &srec_noise,
-		  "\
-Set number of S-record to send before deliberately flubbing a checksum.\n\
-Zero means flub none at all.  This affects the communication protocol\n\
-with the remote target.",
-		  &setlist),
-     &showlist);
-
-  add_show_from_set
-    (add_set_cmd ("srec-sleep", class_support, var_zinteger,
-		  (char *) &srec_sleep,
-		  "\
-Set number of seconds to sleep after an S-record for a possible error message to arrive.\n\
-This affects the communication protocol with the remote target.",
-		  &setlist),
-     &showlist);
-
-  add_show_from_set
-    (add_set_cmd ("srec-echo-pace", class_support, var_boolean,
-		  (char *) &srec_echo_pace,
-		  "\
-Set echo-verification.\n\
-When on, use verification by echo when downloading S-records.  This is\n\
-much slower, but generally more reliable.",
-		  &setlist),
-     &showlist);
-}
+// OBSOLETE /* Remote debugging interface for Motorola's MVME187BUG monitor, an embedded
+// OBSOLETE    monitor for the m88k.
+// OBSOLETE 
+// OBSOLETE    Copyright 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
+// OBSOLETE    2002 Free Software Foundation, Inc.
+// OBSOLETE 
+// OBSOLETE    Contributed by Cygnus Support.  Written by K. Richard Pixley.
+// OBSOLETE 
+// OBSOLETE    This file is part of GDB.
+// OBSOLETE 
+// OBSOLETE    This program is free software; you can redistribute it and/or modify
+// OBSOLETE    it under the terms of the GNU General Public License as published by
+// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
+// OBSOLETE    (at your option) any later version.
+// OBSOLETE 
+// OBSOLETE    This program is distributed in the hope that it will be useful,
+// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
+// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// OBSOLETE    GNU General Public License for more details.
+// OBSOLETE 
+// OBSOLETE    You should have received a copy of the GNU General Public License
+// OBSOLETE    along with this program; if not, write to the Free Software
+// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
+// OBSOLETE    Boston, MA 02111-1307, USA.  */
+// OBSOLETE 
+// OBSOLETE #include "defs.h"
+// OBSOLETE #include "inferior.h"
+// OBSOLETE #include "gdb_string.h"
+// OBSOLETE #include "regcache.h"
+// OBSOLETE #include <ctype.h>
+// OBSOLETE #include <fcntl.h>
+// OBSOLETE #include <setjmp.h>
+// OBSOLETE #include <errno.h>
+// OBSOLETE 
+// OBSOLETE #include "terminal.h"
+// OBSOLETE #include "gdbcore.h"
+// OBSOLETE #include "gdbcmd.h"
+// OBSOLETE 
+// OBSOLETE #include "serial.h"
+// OBSOLETE #include "remote-utils.h"
+// OBSOLETE 
+// OBSOLETE /* External data declarations */
+// OBSOLETE extern int stop_soon_quietly;	/* for wait_for_inferior */
+// OBSOLETE 
+// OBSOLETE /* Forward data declarations */
+// OBSOLETE extern struct target_ops bug_ops;	/* Forward declaration */
+// OBSOLETE 
+// OBSOLETE /* Forward function declarations */
+// OBSOLETE static int bug_clear_breakpoints (void);
+// OBSOLETE 
+// OBSOLETE static int bug_read_memory (CORE_ADDR memaddr,
+// OBSOLETE 			    unsigned char *myaddr, int len);
+// OBSOLETE 
+// OBSOLETE static int bug_write_memory (CORE_ADDR memaddr,
+// OBSOLETE 			     unsigned char *myaddr, int len);
+// OBSOLETE 
+// OBSOLETE /* This variable is somewhat arbitrary.  It's here so that it can be
+// OBSOLETE    set from within a running gdb.  */
+// OBSOLETE 
+// OBSOLETE static int srec_max_retries = 3;
+// OBSOLETE 
+// OBSOLETE /* Each S-record download to the target consists of an S0 header
+// OBSOLETE    record, some number of S3 data records, and one S7 termination
+// OBSOLETE    record.  I call this download a "frame".  Srec_frame says how many
+// OBSOLETE    bytes will be represented in each frame.  */
+// OBSOLETE 
+// OBSOLETE #define SREC_SIZE 160
+// OBSOLETE static int srec_frame = SREC_SIZE;
+// OBSOLETE 
+// OBSOLETE /* This variable determines how many bytes will be represented in each
+// OBSOLETE    S3 s-record.  */
+// OBSOLETE 
+// OBSOLETE static int srec_bytes = 40;
+// OBSOLETE 
+// OBSOLETE /* At one point it appeared to me as though the bug monitor could not
+// OBSOLETE    really be expected to receive two sequential characters at 9600
+// OBSOLETE    baud reliably.  Echo-pacing is an attempt to force data across the
+// OBSOLETE    line even in this condition.  Specifically, in echo-pace mode, each
+// OBSOLETE    character is sent one at a time and we look for the echo before
+// OBSOLETE    sending the next.  This is excruciatingly slow.  */
+// OBSOLETE 
+// OBSOLETE static int srec_echo_pace = 0;
+// OBSOLETE 
+// OBSOLETE /* How long to wait after an srec for a possible error message.
+// OBSOLETE    Similar to the above, I tried sleeping after sending each S3 record
+// OBSOLETE    in hopes that I might actually see error messages from the bug
+// OBSOLETE    monitor.  This might actually work if we were to use sleep
+// OBSOLETE    intervals smaller than 1 second.  */
+// OBSOLETE 
+// OBSOLETE static int srec_sleep = 0;
+// OBSOLETE 
+// OBSOLETE /* Every srec_noise records, flub the checksum.  This is a debugging
+// OBSOLETE    feature.  Set the variable to something other than 1 in order to
+// OBSOLETE    inject *deliberate* checksum errors.  One might do this if one
+// OBSOLETE    wanted to test error handling and recovery.  */
+// OBSOLETE 
+// OBSOLETE static int srec_noise = 0;
+// OBSOLETE 
+// OBSOLETE /* Called when SIGALRM signal sent due to alarm() timeout.  */
+// OBSOLETE 
+// OBSOLETE /* Number of SIGTRAPs we need to simulate.  That is, the next
+// OBSOLETE    NEED_ARTIFICIAL_TRAP calls to bug_wait should just return
+// OBSOLETE    SIGTRAP without actually waiting for anything.  */
+// OBSOLETE 
+// OBSOLETE static int need_artificial_trap = 0;
+// OBSOLETE 
+// OBSOLETE /*
+// OBSOLETE  * Download a file specified in 'args', to the bug.
+// OBSOLETE  */
+// OBSOLETE 
+// OBSOLETE static void
+// OBSOLETE bug_load (char *args, int fromtty)
+// OBSOLETE {
+// OBSOLETE   bfd *abfd;
+// OBSOLETE   asection *s;
+// OBSOLETE   char buffer[1024];
+// OBSOLETE 
+// OBSOLETE   sr_check_open ();
+// OBSOLETE 
+// OBSOLETE   inferior_ptid = null_ptid;
+// OBSOLETE   abfd = bfd_openr (args, 0);
+// OBSOLETE   if (!abfd)
+// OBSOLETE     {
+// OBSOLETE       printf_filtered ("Unable to open file %s\n", args);
+// OBSOLETE       return;
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE   if (bfd_check_format (abfd, bfd_object) == 0)
+// OBSOLETE     {
+// OBSOLETE       printf_filtered ("File is not an object file\n");
+// OBSOLETE       return;
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE   s = abfd->sections;
+// OBSOLETE   while (s != (asection *) NULL)
+// OBSOLETE     {
+// OBSOLETE       srec_frame = SREC_SIZE;
+// OBSOLETE       if (s->flags & SEC_LOAD)
+// OBSOLETE 	{
+// OBSOLETE 	  int i;
+// OBSOLETE 
+// OBSOLETE 	  char *buffer = xmalloc (srec_frame);
+// OBSOLETE 
+// OBSOLETE 	  printf_filtered ("%s\t: 0x%4lx .. 0x%4lx  ", s->name, s->vma, s->vma + s->_raw_size);
+// OBSOLETE 	  gdb_flush (gdb_stdout);
+// OBSOLETE 	  for (i = 0; i < s->_raw_size; i += srec_frame)
+// OBSOLETE 	    {
+// OBSOLETE 	      if (srec_frame > s->_raw_size - i)
+// OBSOLETE 		srec_frame = s->_raw_size - i;
+// OBSOLETE 
+// OBSOLETE 	      bfd_get_section_contents (abfd, s, buffer, i, srec_frame);
+// OBSOLETE 	      bug_write_memory (s->vma + i, buffer, srec_frame);
+// OBSOLETE 	      printf_filtered ("*");
+// OBSOLETE 	      gdb_flush (gdb_stdout);
+// OBSOLETE 	    }
+// OBSOLETE 	  printf_filtered ("\n");
+// OBSOLETE 	  xfree (buffer);
+// OBSOLETE 	}
+// OBSOLETE       s = s->next;
+// OBSOLETE     }
+// OBSOLETE   sprintf (buffer, "rs ip %lx", (unsigned long) abfd->start_address);
+// OBSOLETE   sr_write_cr (buffer);
+// OBSOLETE   gr_expect_prompt ();
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE #if 0
+// OBSOLETE static char *
+// OBSOLETE get_word (char **p)
+// OBSOLETE {
+// OBSOLETE   char *s = *p;
+// OBSOLETE   char *word;
+// OBSOLETE   char *copy;
+// OBSOLETE   size_t len;
+// OBSOLETE 
+// OBSOLETE   while (isspace (*s))
+// OBSOLETE     s++;
+// OBSOLETE 
+// OBSOLETE   word = s;
+// OBSOLETE 
+// OBSOLETE   len = 0;
+// OBSOLETE 
+// OBSOLETE   while (*s && !isspace (*s))
+// OBSOLETE     {
+// OBSOLETE       s++;
+// OBSOLETE       len++;
+// OBSOLETE 
+// OBSOLETE     }
+// OBSOLETE   copy = xmalloc (len + 1);
+// OBSOLETE   memcpy (copy, word, len);
+// OBSOLETE   copy[len] = 0;
+// OBSOLETE   *p = s;
+// OBSOLETE   return copy;
+// OBSOLETE }
+// OBSOLETE #endif
+// OBSOLETE 
+// OBSOLETE static struct gr_settings bug_settings =
+// OBSOLETE {
+// OBSOLETE   "Bug>",			/* prompt */
+// OBSOLETE   &bug_ops,			/* ops */
+// OBSOLETE   bug_clear_breakpoints,	/* clear_all_breakpoints */
+// OBSOLETE   gr_generic_checkin,		/* checkin */
+// OBSOLETE };
+// OBSOLETE 
+// OBSOLETE static char *cpu_check_strings[] =
+// OBSOLETE {
+// OBSOLETE   "=",
+// OBSOLETE   "Invalid Register",
+// OBSOLETE };
+// OBSOLETE 
+// OBSOLETE static void
+// OBSOLETE bug_open (char *args, int from_tty)
+// OBSOLETE {
+// OBSOLETE   if (args == NULL)
+// OBSOLETE     args = "";
+// OBSOLETE 
+// OBSOLETE   gr_open (args, from_tty, &bug_settings);
+// OBSOLETE   /* decide *now* whether we are on an 88100 or an 88110 */
+// OBSOLETE   sr_write_cr ("rs cr06");
+// OBSOLETE   sr_expect ("rs cr06");
+// OBSOLETE 
+// OBSOLETE   switch (gr_multi_scan (cpu_check_strings, 0))
+// OBSOLETE     {
+// OBSOLETE     case 0:			/* this is an m88100 */
+// OBSOLETE       target_is_m88110 = 0;
+// OBSOLETE       break;
+// OBSOLETE     case 1:			/* this is an m88110 */
+// OBSOLETE       target_is_m88110 = 1;
+// OBSOLETE       break;
+// OBSOLETE     default:
+// OBSOLETE       internal_error (__FILE__, __LINE__, "failed internal consistency check");
+// OBSOLETE     }
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Tell the remote machine to resume.  */
+// OBSOLETE 
+// OBSOLETE void
+// OBSOLETE bug_resume (ptid_t ptid, int step, enum target_signal sig)
+// OBSOLETE {
+// OBSOLETE   if (step)
+// OBSOLETE     {
+// OBSOLETE       sr_write_cr ("t");
+// OBSOLETE 
+// OBSOLETE       /* Force the next bug_wait to return a trap.  Not doing anything
+// OBSOLETE          about I/O from the target means that the user has to type
+// OBSOLETE          "continue" to see any.  FIXME, this should be fixed.  */
+// OBSOLETE       need_artificial_trap = 1;
+// OBSOLETE     }
+// OBSOLETE   else
+// OBSOLETE     sr_write_cr ("g");
+// OBSOLETE 
+// OBSOLETE   return;
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Wait until the remote machine stops, then return,
+// OBSOLETE    storing status in STATUS just as `wait' would.  */
+// OBSOLETE 
+// OBSOLETE static char *wait_strings[] =
+// OBSOLETE {
+// OBSOLETE   "At Breakpoint",
+// OBSOLETE   "Exception: Data Access Fault (Local Bus Timeout)",
+// OBSOLETE   "\r8??\?-Bug>",		/* The '\?' avoids creating a trigraph */
+// OBSOLETE   "\r197-Bug>",
+// OBSOLETE   NULL,
+// OBSOLETE };
+// OBSOLETE 
+// OBSOLETE ptid_t
+// OBSOLETE bug_wait (ptid_t ptid, struct target_waitstatus *status)
+// OBSOLETE {
+// OBSOLETE   int old_timeout = sr_get_timeout ();
+// OBSOLETE   int old_immediate_quit = immediate_quit;
+// OBSOLETE 
+// OBSOLETE   status->kind = TARGET_WAITKIND_EXITED;
+// OBSOLETE   status->value.integer = 0;
+// OBSOLETE 
+// OBSOLETE   /* read off leftovers from resume so that the rest can be passed
+// OBSOLETE      back out as stdout.  */
+// OBSOLETE   if (need_artificial_trap == 0)
+// OBSOLETE     {
+// OBSOLETE       sr_expect ("Effective address: ");
+// OBSOLETE       (void) sr_get_hex_word ();
+// OBSOLETE       sr_expect ("\r\n");
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE   sr_set_timeout (-1);		/* Don't time out -- user program is running. */
+// OBSOLETE   immediate_quit = 1;		/* Helps ability to QUIT */
+// OBSOLETE 
+// OBSOLETE   switch (gr_multi_scan (wait_strings, need_artificial_trap == 0))
+// OBSOLETE     {
+// OBSOLETE     case 0:			/* breakpoint case */
+// OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED;
+// OBSOLETE       status->value.sig = TARGET_SIGNAL_TRAP;
+// OBSOLETE       /* user output from the target can be discarded here. (?) */
+// OBSOLETE       gr_expect_prompt ();
+// OBSOLETE       break;
+// OBSOLETE 
+// OBSOLETE     case 1:			/* bus error */
+// OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED;
+// OBSOLETE       status->value.sig = TARGET_SIGNAL_BUS;
+// OBSOLETE       /* user output from the target can be discarded here. (?) */
+// OBSOLETE       gr_expect_prompt ();
+// OBSOLETE       break;
+// OBSOLETE 
+// OBSOLETE     case 2:			/* normal case */
+// OBSOLETE     case 3:
+// OBSOLETE       if (need_artificial_trap != 0)
+// OBSOLETE 	{
+// OBSOLETE 	  /* stepping */
+// OBSOLETE 	  status->kind = TARGET_WAITKIND_STOPPED;
+// OBSOLETE 	  status->value.sig = TARGET_SIGNAL_TRAP;
+// OBSOLETE 	  need_artificial_trap--;
+// OBSOLETE 	  break;
+// OBSOLETE 	}
+// OBSOLETE       else
+// OBSOLETE 	{
+// OBSOLETE 	  /* exit case */
+// OBSOLETE 	  status->kind = TARGET_WAITKIND_EXITED;
+// OBSOLETE 	  status->value.integer = 0;
+// OBSOLETE 	  break;
+// OBSOLETE 	}
+// OBSOLETE 
+// OBSOLETE     case -1:			/* trouble */
+// OBSOLETE     default:
+// OBSOLETE       fprintf_filtered (gdb_stderr,
+// OBSOLETE 			"Trouble reading target during wait\n");
+// OBSOLETE       break;
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE   sr_set_timeout (old_timeout);
+// OBSOLETE   immediate_quit = old_immediate_quit;
+// OBSOLETE   return inferior_ptid;
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Return the name of register number REGNO
+// OBSOLETE    in the form input and output by bug.
+// OBSOLETE 
+// OBSOLETE    Returns a pointer to a static buffer containing the answer.  */
+// OBSOLETE static char *
+// OBSOLETE get_reg_name (int regno)
+// OBSOLETE {
+// OBSOLETE   static char *rn[] =
+// OBSOLETE   {
+// OBSOLETE     "r00", "r01", "r02", "r03", "r04", "r05", "r06", "r07",
+// OBSOLETE     "r08", "r09", "r10", "r11", "r12", "r13", "r14", "r15",
+// OBSOLETE     "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23",
+// OBSOLETE     "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31",
+// OBSOLETE 
+// OBSOLETE   /* these get confusing because we omit a few and switch some ordering around. */
+// OBSOLETE 
+// OBSOLETE     "cr01",			/* 32 = psr */
+// OBSOLETE     "fcr62",			/* 33 = fpsr */
+// OBSOLETE     "fcr63",			/* 34 = fpcr */
+// OBSOLETE     "ip",			/* this is something of a cheat. */
+// OBSOLETE   /* 35 = sxip */
+// OBSOLETE     "cr05",			/* 36 = snip */
+// OBSOLETE     "cr06",			/* 37 = sfip */
+// OBSOLETE 
+// OBSOLETE     "x00", "x01", "x02", "x03", "x04", "x05", "x06", "x07",
+// OBSOLETE     "x08", "x09", "x10", "x11", "x12", "x13", "x14", "x15",
+// OBSOLETE     "x16", "x17", "x18", "x19", "x20", "x21", "x22", "x23",
+// OBSOLETE     "x24", "x25", "x26", "x27", "x28", "x29", "x30", "x31",
+// OBSOLETE   };
+// OBSOLETE 
+// OBSOLETE   return rn[regno];
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE #if 0				/* not currently used */
+// OBSOLETE /* Read from remote while the input matches STRING.  Return zero on
+// OBSOLETE    success, -1 on failure.  */
+// OBSOLETE 
+// OBSOLETE static int
+// OBSOLETE bug_scan (char *s)
+// OBSOLETE {
+// OBSOLETE   int c;
+// OBSOLETE 
+// OBSOLETE   while (*s)
+// OBSOLETE     {
+// OBSOLETE       c = sr_readchar ();
+// OBSOLETE       if (c != *s++)
+// OBSOLETE 	{
+// OBSOLETE 	  fflush (stdout);
+// OBSOLETE 	  printf ("\nNext character is '%c' - %d and s is \"%s\".\n", c, c, --s);
+// OBSOLETE 	  return (-1);
+// OBSOLETE 	}
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE   return (0);
+// OBSOLETE }
+// OBSOLETE #endif /* never */
+// OBSOLETE 
+// OBSOLETE static int
+// OBSOLETE bug_srec_write_cr (char *s)
+// OBSOLETE {
+// OBSOLETE   char *p = s;
+// OBSOLETE 
+// OBSOLETE   if (srec_echo_pace)
+// OBSOLETE     for (p = s; *p; ++p)
+// OBSOLETE       {
+// OBSOLETE 	if (sr_get_debug () > 0)
+// OBSOLETE 	  printf ("%c", *p);
+// OBSOLETE 
+// OBSOLETE 	do
+// OBSOLETE 	  serial_write (sr_get_desc (), p, 1);
+// OBSOLETE 	while (sr_pollchar () != *p);
+// OBSOLETE       }
+// OBSOLETE   else
+// OBSOLETE     {
+// OBSOLETE       sr_write_cr (s);
+// OBSOLETE /*       return(bug_scan (s) || bug_scan ("\n")); */
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE   return (0);
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Store register REGNO, or all if REGNO == -1. */
+// OBSOLETE 
+// OBSOLETE static void
+// OBSOLETE bug_fetch_register (int regno)
+// OBSOLETE {
+// OBSOLETE   sr_check_open ();
+// OBSOLETE 
+// OBSOLETE   if (regno == -1)
+// OBSOLETE     {
+// OBSOLETE       int i;
+// OBSOLETE 
+// OBSOLETE       for (i = 0; i < NUM_REGS; ++i)
+// OBSOLETE 	bug_fetch_register (i);
+// OBSOLETE     }
+// OBSOLETE   else if (target_is_m88110 && regno == SFIP_REGNUM)
+// OBSOLETE     {
+// OBSOLETE       /* m88110 has no sfip. */
+// OBSOLETE       long l = 0;
+// OBSOLETE       supply_register (regno, (char *) &l);
+// OBSOLETE     }
+// OBSOLETE   else if (regno < XFP_REGNUM)
+// OBSOLETE     {
+// OBSOLETE       char buffer[MAX_REGISTER_RAW_SIZE];
+// OBSOLETE 
+// OBSOLETE       sr_write ("rs ", 3);
+// OBSOLETE       sr_write_cr (get_reg_name (regno));
+// OBSOLETE       sr_expect ("=");
+// OBSOLETE       store_unsigned_integer (buffer, REGISTER_RAW_SIZE (regno),
+// OBSOLETE 			      sr_get_hex_word ());
+// OBSOLETE       gr_expect_prompt ();
+// OBSOLETE       supply_register (regno, buffer);
+// OBSOLETE     }
+// OBSOLETE   else
+// OBSOLETE     {
+// OBSOLETE       /* Float register so we need to parse a strange data format. */
+// OBSOLETE       long p;
+// OBSOLETE       unsigned char fpreg_buf[10];
+// OBSOLETE 
+// OBSOLETE       sr_write ("rs ", 3);
+// OBSOLETE       sr_write (get_reg_name (regno), strlen (get_reg_name (regno)));
+// OBSOLETE       sr_write_cr (";d");
+// OBSOLETE       sr_expect ("rs");
+// OBSOLETE       sr_expect (get_reg_name (regno));
+// OBSOLETE       sr_expect (";d");
+// OBSOLETE       sr_expect ("=");
+// OBSOLETE 
+// OBSOLETE       /* sign */
+// OBSOLETE       p = sr_get_hex_digit (1);
+// OBSOLETE       fpreg_buf[0] = p << 7;
+// OBSOLETE 
+// OBSOLETE       /* exponent */
+// OBSOLETE       sr_expect ("_");
+// OBSOLETE       p = sr_get_hex_digit (1);
+// OBSOLETE       fpreg_buf[0] += (p << 4);
+// OBSOLETE       fpreg_buf[0] += sr_get_hex_digit (1);
+// OBSOLETE 
+// OBSOLETE       fpreg_buf[1] = sr_get_hex_digit (1) << 4;
+// OBSOLETE 
+// OBSOLETE       /* fraction */
+// OBSOLETE       sr_expect ("_");
+// OBSOLETE       fpreg_buf[1] += sr_get_hex_digit (1);
+// OBSOLETE 
+// OBSOLETE       fpreg_buf[2] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
+// OBSOLETE       fpreg_buf[3] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
+// OBSOLETE       fpreg_buf[4] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
+// OBSOLETE       fpreg_buf[5] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
+// OBSOLETE       fpreg_buf[6] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
+// OBSOLETE       fpreg_buf[7] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
+// OBSOLETE       fpreg_buf[8] = 0;
+// OBSOLETE       fpreg_buf[9] = 0;
+// OBSOLETE 
+// OBSOLETE       gr_expect_prompt ();
+// OBSOLETE       supply_register (regno, fpreg_buf);
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE   return;
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Store register REGNO, or all if REGNO == -1. */
+// OBSOLETE 
+// OBSOLETE static void
+// OBSOLETE bug_store_register (int regno)
+// OBSOLETE {
+// OBSOLETE   char buffer[1024];
+// OBSOLETE   sr_check_open ();
+// OBSOLETE 
+// OBSOLETE   if (regno == -1)
+// OBSOLETE     {
+// OBSOLETE       int i;
+// OBSOLETE 
+// OBSOLETE       for (i = 0; i < NUM_REGS; ++i)
+// OBSOLETE 	bug_store_register (i);
+// OBSOLETE     }
+// OBSOLETE   else
+// OBSOLETE     {
+// OBSOLETE       char *regname;
+// OBSOLETE 
+// OBSOLETE       regname = get_reg_name (regno);
+// OBSOLETE 
+// OBSOLETE       if (target_is_m88110 && regno == SFIP_REGNUM)
+// OBSOLETE 	return;
+// OBSOLETE       else if (regno < XFP_REGNUM)
+// OBSOLETE 	sprintf (buffer, "rs %s %08lx",
+// OBSOLETE 		 regname,
+// OBSOLETE 		 (long) read_register (regno));
+// OBSOLETE       else
+// OBSOLETE 	{
+// OBSOLETE 	  unsigned char *fpreg_buf =
+// OBSOLETE 	  (unsigned char *) &registers[REGISTER_BYTE (regno)];
+// OBSOLETE 
+// OBSOLETE 	  sprintf (buffer, "rs %s %1x_%02x%1x_%1x%02x%02x%02x%02x%02x%02x;d",
+// OBSOLETE 		   regname,
+// OBSOLETE 	  /* sign */
+// OBSOLETE 		   (fpreg_buf[0] >> 7) & 0xf,
+// OBSOLETE 	  /* exponent */
+// OBSOLETE 		   fpreg_buf[0] & 0x7f,
+// OBSOLETE 		   (fpreg_buf[1] >> 8) & 0xf,
+// OBSOLETE 	  /* fraction */
+// OBSOLETE 		   fpreg_buf[1] & 0xf,
+// OBSOLETE 		   fpreg_buf[2],
+// OBSOLETE 		   fpreg_buf[3],
+// OBSOLETE 		   fpreg_buf[4],
+// OBSOLETE 		   fpreg_buf[5],
+// OBSOLETE 		   fpreg_buf[6],
+// OBSOLETE 		   fpreg_buf[7]);
+// OBSOLETE 	}
+// OBSOLETE 
+// OBSOLETE       sr_write_cr (buffer);
+// OBSOLETE       gr_expect_prompt ();
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE   return;
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Transfer LEN bytes between GDB address MYADDR and target address
+// OBSOLETE    MEMADDR.  If WRITE is non-zero, transfer them to the target,
+// OBSOLETE    otherwise transfer them from the target.  TARGET is unused.
+// OBSOLETE 
+// OBSOLETE    Returns the number of bytes transferred. */
+// OBSOLETE 
+// OBSOLETE int
+// OBSOLETE bug_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int write,
+// OBSOLETE 		 struct mem_attrib *attrib, struct target_ops *target)
+// OBSOLETE {
+// OBSOLETE   int res;
+// OBSOLETE 
+// OBSOLETE   if (len <= 0)
+// OBSOLETE     return 0;
+// OBSOLETE 
+// OBSOLETE   if (write)
+// OBSOLETE     res = bug_write_memory (memaddr, myaddr, len);
+// OBSOLETE   else
+// OBSOLETE     res = bug_read_memory (memaddr, myaddr, len);
+// OBSOLETE 
+// OBSOLETE   return res;
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE static void
+// OBSOLETE start_load (void)
+// OBSOLETE {
+// OBSOLETE   char *command;
+// OBSOLETE 
+// OBSOLETE   command = (srec_echo_pace ? "lo 0 ;x" : "lo 0");
+// OBSOLETE 
+// OBSOLETE   sr_write_cr (command);
+// OBSOLETE   sr_expect (command);
+// OBSOLETE   sr_expect ("\r\n");
+// OBSOLETE   bug_srec_write_cr ("S0030000FC");
+// OBSOLETE   return;
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* This is an extremely vulnerable and fragile function.  I've made
+// OBSOLETE    considerable attempts to make this deterministic, but I've
+// OBSOLETE    certainly forgotten something.  The trouble is that S-records are
+// OBSOLETE    only a partial file format, not a protocol.  Worse, apparently the
+// OBSOLETE    m88k bug monitor does not run in real time while receiving
+// OBSOLETE    S-records.  Hence, we must pay excruciating attention to when and
+// OBSOLETE    where error messages are returned, and what has actually been sent.
+// OBSOLETE 
+// OBSOLETE    Each call represents a chunk of memory to be sent to the target.
+// OBSOLETE    We break that chunk into an S0 header record, some number of S3
+// OBSOLETE    data records each containing srec_bytes, and an S7 termination
+// OBSOLETE    record.  */
+// OBSOLETE 
+// OBSOLETE static char *srecord_strings[] =
+// OBSOLETE {
+// OBSOLETE   "S-RECORD",
+// OBSOLETE   "-Bug>",
+// OBSOLETE   NULL,
+// OBSOLETE };
+// OBSOLETE 
+// OBSOLETE static int
+// OBSOLETE bug_write_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
+// OBSOLETE {
+// OBSOLETE   int done;
+// OBSOLETE   int checksum;
+// OBSOLETE   int x;
+// OBSOLETE   int retries;
+// OBSOLETE   char *buffer = alloca ((srec_bytes + 8) << 1);
+// OBSOLETE 
+// OBSOLETE   retries = 0;
+// OBSOLETE 
+// OBSOLETE   do
+// OBSOLETE     {
+// OBSOLETE       done = 0;
+// OBSOLETE 
+// OBSOLETE       if (retries > srec_max_retries)
+// OBSOLETE 	return (-1);
+// OBSOLETE 
+// OBSOLETE       if (retries > 0)
+// OBSOLETE 	{
+// OBSOLETE 	  if (sr_get_debug () > 0)
+// OBSOLETE 	    printf ("\n<retrying...>\n");
+// OBSOLETE 
+// OBSOLETE 	  /* This gr_expect_prompt call is extremely important.  Without
+// OBSOLETE 	     it, we will tend to resend our packet so fast that it
+// OBSOLETE 	     will arrive before the bug monitor is ready to receive
+// OBSOLETE 	     it.  This would lead to a very ugly resend loop.  */
+// OBSOLETE 
+// OBSOLETE 	  gr_expect_prompt ();
+// OBSOLETE 	}
+// OBSOLETE 
+// OBSOLETE       start_load ();
+// OBSOLETE 
+// OBSOLETE       while (done < len)
+// OBSOLETE 	{
+// OBSOLETE 	  int thisgo;
+// OBSOLETE 	  int idx;
+// OBSOLETE 	  char *buf = buffer;
+// OBSOLETE 	  CORE_ADDR address;
+// OBSOLETE 
+// OBSOLETE 	  checksum = 0;
+// OBSOLETE 	  thisgo = len - done;
+// OBSOLETE 	  if (thisgo > srec_bytes)
+// OBSOLETE 	    thisgo = srec_bytes;
+// OBSOLETE 
+// OBSOLETE 	  address = memaddr + done;
+// OBSOLETE 	  sprintf (buf, "S3%02X%08lX", thisgo + 4 + 1, (long) address);
+// OBSOLETE 	  buf += 12;
+// OBSOLETE 
+// OBSOLETE 	  checksum += (thisgo + 4 + 1
+// OBSOLETE 		       + (address & 0xff)
+// OBSOLETE 		       + ((address >> 8) & 0xff)
+// OBSOLETE 		       + ((address >> 16) & 0xff)
+// OBSOLETE 		       + ((address >> 24) & 0xff));
+// OBSOLETE 
+// OBSOLETE 	  for (idx = 0; idx < thisgo; idx++)
+// OBSOLETE 	    {
+// OBSOLETE 	      sprintf (buf, "%02X", myaddr[idx + done]);
+// OBSOLETE 	      checksum += myaddr[idx + done];
+// OBSOLETE 	      buf += 2;
+// OBSOLETE 	    }
+// OBSOLETE 
+// OBSOLETE 	  if (srec_noise > 0)
+// OBSOLETE 	    {
+// OBSOLETE 	      /* FIXME-NOW: insert a deliberate error every now and then.
+// OBSOLETE 	         This is intended for testing/debugging the error handling
+// OBSOLETE 	         stuff.  */
+// OBSOLETE 	      static int counter = 0;
+// OBSOLETE 	      if (++counter > srec_noise)
+// OBSOLETE 		{
+// OBSOLETE 		  counter = 0;
+// OBSOLETE 		  ++checksum;
+// OBSOLETE 		}
+// OBSOLETE 	    }
+// OBSOLETE 
+// OBSOLETE 	  sprintf (buf, "%02X", ~checksum & 0xff);
+// OBSOLETE 	  bug_srec_write_cr (buffer);
+// OBSOLETE 
+// OBSOLETE 	  if (srec_sleep != 0)
+// OBSOLETE 	    sleep (srec_sleep);
+// OBSOLETE 
+// OBSOLETE 	  /* This pollchar is probably redundant to the gr_multi_scan
+// OBSOLETE 	     below.  Trouble is, we can't be sure when or where an
+// OBSOLETE 	     error message will appear.  Apparently, when running at
+// OBSOLETE 	     full speed from a typical sun4, error messages tend to
+// OBSOLETE 	     appear to arrive only *after* the s7 record.   */
+// OBSOLETE 
+// OBSOLETE 	  if ((x = sr_pollchar ()) != 0)
+// OBSOLETE 	    {
+// OBSOLETE 	      if (sr_get_debug () > 0)
+// OBSOLETE 		printf ("\n<retrying...>\n");
+// OBSOLETE 
+// OBSOLETE 	      ++retries;
+// OBSOLETE 
+// OBSOLETE 	      /* flush any remaining input and verify that we are back
+// OBSOLETE 	         at the prompt level. */
+// OBSOLETE 	      gr_expect_prompt ();
+// OBSOLETE 	      /* start all over again. */
+// OBSOLETE 	      start_load ();
+// OBSOLETE 	      done = 0;
+// OBSOLETE 	      continue;
+// OBSOLETE 	    }
+// OBSOLETE 
+// OBSOLETE 	  done += thisgo;
+// OBSOLETE 	}
+// OBSOLETE 
+// OBSOLETE       bug_srec_write_cr ("S7060000000000F9");
+// OBSOLETE       ++retries;
+// OBSOLETE 
+// OBSOLETE       /* Having finished the load, we need to figure out whether we
+// OBSOLETE          had any errors.  */
+// OBSOLETE     }
+// OBSOLETE   while (gr_multi_scan (srecord_strings, 0) == 0);;
+// OBSOLETE 
+// OBSOLETE   return (0);
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Copy LEN bytes of data from debugger memory at MYADDR
+// OBSOLETE    to inferior's memory at MEMADDR.  Returns errno value.
+// OBSOLETE    * sb/sh instructions don't work on unaligned addresses, when TU=1.
+// OBSOLETE  */
+// OBSOLETE 
+// OBSOLETE /* Read LEN bytes from inferior memory at MEMADDR.  Put the result
+// OBSOLETE    at debugger address MYADDR.  Returns errno value.  */
+// OBSOLETE static int
+// OBSOLETE bug_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
+// OBSOLETE {
+// OBSOLETE   char request[100];
+// OBSOLETE   char *buffer;
+// OBSOLETE   char *p;
+// OBSOLETE   char type;
+// OBSOLETE   char size;
+// OBSOLETE   unsigned char c;
+// OBSOLETE   unsigned int inaddr;
+// OBSOLETE   unsigned int checksum;
+// OBSOLETE 
+// OBSOLETE   sprintf (request, "du 0 %lx:&%d", (long) memaddr, len);
+// OBSOLETE   sr_write_cr (request);
+// OBSOLETE 
+// OBSOLETE   p = buffer = alloca (len);
+// OBSOLETE 
+// OBSOLETE   /* scan up through the header */
+// OBSOLETE   sr_expect ("S0030000FC");
+// OBSOLETE 
+// OBSOLETE   while (p < buffer + len)
+// OBSOLETE     {
+// OBSOLETE       /* scan off any white space. */
+// OBSOLETE       while (sr_readchar () != 'S');;
+// OBSOLETE 
+// OBSOLETE       /* what kind of s-rec? */
+// OBSOLETE       type = sr_readchar ();
+// OBSOLETE 
+// OBSOLETE       /* scan record size */
+// OBSOLETE       sr_get_hex_byte (&size);
+// OBSOLETE       checksum = size;
+// OBSOLETE       --size;
+// OBSOLETE       inaddr = 0;
+// OBSOLETE 
+// OBSOLETE       switch (type)
+// OBSOLETE 	{
+// OBSOLETE 	case '7':
+// OBSOLETE 	case '8':
+// OBSOLETE 	case '9':
+// OBSOLETE 	  goto done;
+// OBSOLETE 
+// OBSOLETE 	case '3':
+// OBSOLETE 	  sr_get_hex_byte (&c);
+// OBSOLETE 	  inaddr = (inaddr << 8) + c;
+// OBSOLETE 	  checksum += c;
+// OBSOLETE 	  --size;
+// OBSOLETE 	  /* intentional fall through */
+// OBSOLETE 	case '2':
+// OBSOLETE 	  sr_get_hex_byte (&c);
+// OBSOLETE 	  inaddr = (inaddr << 8) + c;
+// OBSOLETE 	  checksum += c;
+// OBSOLETE 	  --size;
+// OBSOLETE 	  /* intentional fall through */
+// OBSOLETE 	case '1':
+// OBSOLETE 	  sr_get_hex_byte (&c);
+// OBSOLETE 	  inaddr = (inaddr << 8) + c;
+// OBSOLETE 	  checksum += c;
+// OBSOLETE 	  --size;
+// OBSOLETE 	  sr_get_hex_byte (&c);
+// OBSOLETE 	  inaddr = (inaddr << 8) + c;
+// OBSOLETE 	  checksum += c;
+// OBSOLETE 	  --size;
+// OBSOLETE 	  break;
+// OBSOLETE 
+// OBSOLETE 	default:
+// OBSOLETE 	  /* bonk */
+// OBSOLETE 	  error ("reading s-records.");
+// OBSOLETE 	}
+// OBSOLETE 
+// OBSOLETE       if (inaddr < memaddr
+// OBSOLETE 	  || (memaddr + len) < (inaddr + size))
+// OBSOLETE 	error ("srec out of memory range.");
+// OBSOLETE 
+// OBSOLETE       if (p != buffer + inaddr - memaddr)
+// OBSOLETE 	error ("srec out of sequence.");
+// OBSOLETE 
+// OBSOLETE       for (; size; --size, ++p)
+// OBSOLETE 	{
+// OBSOLETE 	  sr_get_hex_byte (p);
+// OBSOLETE 	  checksum += *p;
+// OBSOLETE 	}
+// OBSOLETE 
+// OBSOLETE       sr_get_hex_byte (&c);
+// OBSOLETE       if (c != (~checksum & 0xff))
+// OBSOLETE 	error ("bad s-rec checksum");
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE done:
+// OBSOLETE   gr_expect_prompt ();
+// OBSOLETE   if (p != buffer + len)
+// OBSOLETE     return (1);
+// OBSOLETE 
+// OBSOLETE   memcpy (myaddr, buffer, len);
+// OBSOLETE   return (0);
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE #define MAX_BREAKS	16
+// OBSOLETE static int num_brkpts = 0;
+// OBSOLETE 
+// OBSOLETE /* Insert a breakpoint at ADDR.  SAVE is normally the address of the
+// OBSOLETE    pattern buffer where the instruction that the breakpoint overwrites
+// OBSOLETE    is saved.  It is unused here since the bug is responsible for
+// OBSOLETE    saving/restoring the original instruction. */
+// OBSOLETE 
+// OBSOLETE static int
+// OBSOLETE bug_insert_breakpoint (CORE_ADDR addr, char *save)
+// OBSOLETE {
+// OBSOLETE   sr_check_open ();
+// OBSOLETE 
+// OBSOLETE   if (num_brkpts < MAX_BREAKS)
+// OBSOLETE     {
+// OBSOLETE       char buffer[100];
+// OBSOLETE 
+// OBSOLETE       num_brkpts++;
+// OBSOLETE       sprintf (buffer, "br %lx", (long) addr);
+// OBSOLETE       sr_write_cr (buffer);
+// OBSOLETE       gr_expect_prompt ();
+// OBSOLETE       return (0);
+// OBSOLETE     }
+// OBSOLETE   else
+// OBSOLETE     {
+// OBSOLETE       fprintf_filtered (gdb_stderr,
+// OBSOLETE 		      "Too many break points, break point not installed\n");
+// OBSOLETE       return (1);
+// OBSOLETE     }
+// OBSOLETE 
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Remove a breakpoint at ADDR.  SAVE is normally the previously
+// OBSOLETE    saved pattern, but is unused here since the bug is responsible
+// OBSOLETE    for saving/restoring instructions. */
+// OBSOLETE 
+// OBSOLETE static int
+// OBSOLETE bug_remove_breakpoint (CORE_ADDR addr, char *save)
+// OBSOLETE {
+// OBSOLETE   if (num_brkpts > 0)
+// OBSOLETE     {
+// OBSOLETE       char buffer[100];
+// OBSOLETE 
+// OBSOLETE       num_brkpts--;
+// OBSOLETE       sprintf (buffer, "nobr %lx", (long) addr);
+// OBSOLETE       sr_write_cr (buffer);
+// OBSOLETE       gr_expect_prompt ();
+// OBSOLETE 
+// OBSOLETE     }
+// OBSOLETE   return (0);
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE /* Clear the bugs notion of what the break points are */
+// OBSOLETE static int
+// OBSOLETE bug_clear_breakpoints (void)
+// OBSOLETE {
+// OBSOLETE 
+// OBSOLETE   if (sr_is_open ())
+// OBSOLETE     {
+// OBSOLETE       sr_write_cr ("nobr");
+// OBSOLETE       sr_expect ("nobr");
+// OBSOLETE       gr_expect_prompt ();
+// OBSOLETE     }
+// OBSOLETE   num_brkpts = 0;
+// OBSOLETE   return (0);
+// OBSOLETE }
+// OBSOLETE 
+// OBSOLETE struct target_ops bug_ops;
+// OBSOLETE 
+// OBSOLETE static void
+// OBSOLETE init_bug_ops (void)
+// OBSOLETE {
+// OBSOLETE   bug_ops.to_shortname = "bug";
+// OBSOLETE   "Remote BUG monitor",
+// OBSOLETE     bug_ops.to_longname = "Use the mvme187 board running the BUG monitor connected by a serial line.";
+// OBSOLETE   bug_ops.to_doc = " ";
+// OBSOLETE   bug_ops.to_open = bug_open;
+// OBSOLETE   bug_ops.to_close = gr_close;
+// OBSOLETE   bug_ops.to_attach = 0;
+// OBSOLETE   bug_ops.to_post_attach = NULL;
+// OBSOLETE   bug_ops.to_require_attach = NULL;
+// OBSOLETE   bug_ops.to_detach = gr_detach;
+// OBSOLETE   bug_ops.to_require_detach = NULL;
+// OBSOLETE   bug_ops.to_resume = bug_resume;
+// OBSOLETE   bug_ops.to_wait = bug_wait;
+// OBSOLETE   bug_ops.to_post_wait = NULL;
+// OBSOLETE   bug_ops.to_fetch_registers = bug_fetch_register;
+// OBSOLETE   bug_ops.to_store_registers = bug_store_register;
+// OBSOLETE   bug_ops.to_prepare_to_store = gr_prepare_to_store;
+// OBSOLETE   bug_ops.to_xfer_memory = bug_xfer_memory;
+// OBSOLETE   bug_ops.to_files_info = gr_files_info;
+// OBSOLETE   bug_ops.to_insert_breakpoint = bug_insert_breakpoint;
+// OBSOLETE   bug_ops.to_remove_breakpoint = bug_remove_breakpoint;
+// OBSOLETE   bug_ops.to_terminal_init = 0;
+// OBSOLETE   bug_ops.to_terminal_inferior = 0;
+// OBSOLETE   bug_ops.to_terminal_ours_for_output = 0;
+// OBSOLETE   bug_ops.to_terminal_ours = 0;
+// OBSOLETE   bug_ops.to_terminal_info = 0;
+// OBSOLETE   bug_ops.to_kill = gr_kill;
+// OBSOLETE   bug_ops.to_load = bug_load;
+// OBSOLETE   bug_ops.to_lookup_symbol = 0;
+// OBSOLETE   bug_ops.to_create_inferior = gr_create_inferior;
+// OBSOLETE   bug_ops.to_post_startup_inferior = NULL;
+// OBSOLETE   bug_ops.to_acknowledge_created_inferior = NULL;
+// OBSOLETE   bug_ops.to_clone_and_follow_inferior = NULL;
+// OBSOLETE   bug_ops.to_post_follow_inferior_by_clone = NULL;
+// OBSOLETE   bug_ops.to_insert_fork_catchpoint = NULL;
+// OBSOLETE   bug_ops.to_remove_fork_catchpoint = NULL;
+// OBSOLETE   bug_ops.to_insert_vfork_catchpoint = NULL;
+// OBSOLETE   bug_ops.to_remove_vfork_catchpoint = NULL;
+// OBSOLETE   bug_ops.to_has_forked = NULL;
+// OBSOLETE   bug_ops.to_has_vforked = NULL;
+// OBSOLETE   bug_ops.to_can_follow_vfork_prior_to_exec = NULL;
+// OBSOLETE   bug_ops.to_post_follow_vfork = NULL;
+// OBSOLETE   bug_ops.to_insert_exec_catchpoint = NULL;
+// OBSOLETE   bug_ops.to_remove_exec_catchpoint = NULL;
+// OBSOLETE   bug_ops.to_has_execd = NULL;
+// OBSOLETE   bug_ops.to_reported_exec_events_per_exec_call = NULL;
+// OBSOLETE   bug_ops.to_has_exited = NULL;
+// OBSOLETE   bug_ops.to_mourn_inferior = gr_mourn;
+// OBSOLETE   bug_ops.to_can_run = 0;
+// OBSOLETE   bug_ops.to_notice_signals = 0;
+// OBSOLETE   bug_ops.to_thread_alive = 0;
+// OBSOLETE   bug_ops.to_stop = 0;
+// OBSOLETE   bug_ops.to_pid_to_exec_file = NULL;
+// OBSOLETE   bug_ops.to_stratum = process_stratum;
+// OBSOLETE   bug_ops.DONT_USE = 0;
+// OBSOLETE   bug_ops.to_has_all_memory = 1;
+// OBSOLETE   bug_ops.to_has_memory = 1;
+// OBSOLETE   bug_ops.to_has_stack = 1;
+// OBSOLETE   bug_ops.to_has_registers = 0;
+// OBSOLETE   bug_ops.to_has_execution = 0;
+// OBSOLETE   bug_ops.to_sections = 0;
+// OBSOLETE   bug_ops.to_sections_end = 0;
+// OBSOLETE   bug_ops.to_magic = OPS_MAGIC;	/* Always the last thing */
+// OBSOLETE }				/* init_bug_ops */
+// OBSOLETE 
+// OBSOLETE void
+// OBSOLETE _initialize_remote_bug (void)
+// OBSOLETE {
+// OBSOLETE   init_bug_ops ();
+// OBSOLETE   add_target (&bug_ops);
+// OBSOLETE 
+// OBSOLETE   add_show_from_set
+// OBSOLETE     (add_set_cmd ("srec-bytes", class_support, var_uinteger,
+// OBSOLETE 		  (char *) &srec_bytes,
+// OBSOLETE 		  "\
+// OBSOLETE Set the number of bytes represented in each S-record.\n\
+// OBSOLETE This affects the communication protocol with the remote target.",
+// OBSOLETE 		  &setlist),
+// OBSOLETE      &showlist);
+// OBSOLETE 
+// OBSOLETE   add_show_from_set
+// OBSOLETE     (add_set_cmd ("srec-max-retries", class_support, var_uinteger,
+// OBSOLETE 		  (char *) &srec_max_retries,
+// OBSOLETE 		  "\
+// OBSOLETE Set the number of retries for shipping S-records.\n\
+// OBSOLETE This affects the communication protocol with the remote target.",
+// OBSOLETE 		  &setlist),
+// OBSOLETE      &showlist);
+// OBSOLETE 
+// OBSOLETE #if 0
+// OBSOLETE   /* This needs to set SREC_SIZE, not srec_frame which gets changed at the
+// OBSOLETE      end of a download.  But do we need the option at all?  */
+// OBSOLETE   add_show_from_set
+// OBSOLETE     (add_set_cmd ("srec-frame", class_support, var_uinteger,
+// OBSOLETE 		  (char *) &srec_frame,
+// OBSOLETE 		  "\
+// OBSOLETE Set the number of bytes in an S-record frame.\n\
+// OBSOLETE This affects the communication protocol with the remote target.",
+// OBSOLETE 		  &setlist),
+// OBSOLETE      &showlist);
+// OBSOLETE #endif /* 0 */
+// OBSOLETE 
+// OBSOLETE   add_show_from_set
+// OBSOLETE     (add_set_cmd ("srec-noise", class_support, var_zinteger,
+// OBSOLETE 		  (char *) &srec_noise,
+// OBSOLETE 		  "\
+// OBSOLETE Set number of S-record to send before deliberately flubbing a checksum.\n\
+// OBSOLETE Zero means flub none at all.  This affects the communication protocol\n\
+// OBSOLETE with the remote target.",
+// OBSOLETE 		  &setlist),
+// OBSOLETE      &showlist);
+// OBSOLETE 
+// OBSOLETE   add_show_from_set
+// OBSOLETE     (add_set_cmd ("srec-sleep", class_support, var_zinteger,
+// OBSOLETE 		  (char *) &srec_sleep,
+// OBSOLETE 		  "\
+// OBSOLETE Set number of seconds to sleep after an S-record for a possible error message to arrive.\n\
+// OBSOLETE This affects the communication protocol with the remote target.",
+// OBSOLETE 		  &setlist),
+// OBSOLETE      &showlist);
+// OBSOLETE 
+// OBSOLETE   add_show_from_set
+// OBSOLETE     (add_set_cmd ("srec-echo-pace", class_support, var_boolean,
+// OBSOLETE 		  (char *) &srec_echo_pace,
+// OBSOLETE 		  "\
+// OBSOLETE Set echo-verification.\n\
+// OBSOLETE When on, use verification by echo when downloading S-records.  This is\n\
+// OBSOLETE much slower, but generally more reliable.",
+// OBSOLETE 		  &setlist),
+// OBSOLETE      &showlist);
+// OBSOLETE }