* MAINTAINERS: Mark a29k target as obsolete.

* Makefile.in (a29k-tdep.o, remote-adapt.o, remote-eb.o)
(remote-mm.o, remote-udi.o): Obsolete.  Remove references in
comments.
* NEWS: Note that a29k targets are obsolete.
* a29k-tdep.c: Mark as obsolete.
* configure.tgt: Mark a29k-*-aout*, a29k-*-coff*, a29k-*-elf*,
a29k-*-ebmon*, a29k-*-kern*, a29k-*-none*, a29k-*-udi* and
a29k-*-vxworks* targets as obsolete.
* remote-adapt.c: Obsolete.
* remote-eb.c: Obsolete.
* remote-mm.c: Obsolete.
* remote-udi.c: Obsolete.
* config/a29k/a29k-udi.mt: Obsolete.
* config/a29k/a29k.mt: Obsolete.
* config/a29k/tm-a29k.h: Obsolete.
* config/a29k/tm-vx29k.h: Obsolete.
* config/a29k/vx29k.mt: Obsolete.

1 files changed, 1524 insertions, 1524 deletions

diff --git a/gdb/remote-adapt.c b/gdb/remote-adapt.c
index 9d31d52b8fc..7e87360d178 100644
--- a/gdb/remote-adapt.c
+++ b/gdb/remote-adapt.c
@@ -1,1524 +1,1524 @@
-/* Remote debugging interface for AMD 290*0 Adapt Monitor Version 2.1d18. 
-   Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000,
-   2001 Free Software Foundation, Inc.
-   Contributed by David Wood at New York University (wood@lab.ultra.nyu.edu).
-   Adapted from work done at Cygnus Support in remote-eb.c.
-
-   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.  */
-
-/* This is like remote.c but is for an esoteric situation--
-   having a 29k board attached to an Adapt inline monitor. 
-   The  monitor is connected via serial line to a unix machine 
-   running gdb. 
-
-   3/91 -  developed on Sun3 OS 4.1, by David Wood
-   o - I can't get binary coff to load. 
-   o - I can't get 19200 baud rate to work. 
-   7/91 o - Freeze mode tracing can be done on a 29050.  */
-
-
-
-#include "defs.h"
-#include "gdb_string.h"
-#include "inferior.h"
-#include "value.h"
-#include <ctype.h>
-#include <fcntl.h>
-#include <signal.h>
-#include <errno.h>
-#include "terminal.h"
-#include "target.h"
-#include "gdbcore.h"
-#include "regcache.h"
-
-/* This processor is getting rusty but I am trying to keep it
-   up to date at least with data structure changes.
-   Activate this block to compile just this file.
- */
-#define COMPILE_CHECK 0
-#if COMPILE_CHECK
-#define Q_REGNUM 0
-#define VAB_REGNUM 0
-#define CPS_REGNUM 0
-#define IPA_REGNUM 0
-#define IPB_REGNUM 0
-#define GR1_REGNUM 0
-#define LR0_REGNUM 0
-#define IPC_REGNUM 0
-#define CR_REGNUM 0
-#define BP_REGNUM 0
-#define FC_REGNUM 0
-#define INTE_REGNUM 0
-#define EXO_REGNUM 0
-#define GR96_REGNUM 0
-#define NPC_REGNUM
-#define FPE_REGNUM 0
-#define PC2_REGNUM 0
-#define FPS_REGNUM 0
-#define ALU_REGNUM 0
-#define LRU_REGNUM 0
-#define TERMINAL int
-#define RAW 1
-#define ANYP 1
-extern int a29k_freeze_mode;
-extern int processor_type;
-extern char *processor_name;
-#endif
-
-/* External data declarations */
-extern int stop_soon_quietly;	/* for wait_for_inferior */
-
-/* Forward data declarations */
-extern struct target_ops adapt_ops;	/* Forward declaration */
-
-/* Forward function declarations */
-static void adapt_fetch_registers ();
-static void adapt_store_registers ();
-static void adapt_close ();
-static int adapt_clear_breakpoints ();
-
-#define FREEZE_MODE 	(read_register(CPS_REGNUM) && 0x400)
-#define USE_SHADOW_PC	((processor_type == a29k_freeze_mode) && FREEZE_MODE)
-
-/* Can't seem to get binary coff working */
-#define ASCII_COFF		/* Adapt will be downloaded with ascii coff */
-
-/* FIXME: Replace with `set remotedebug'.  */
-#define LOG_FILE "adapt.log"
-#if defined (LOG_FILE)
-FILE *log_file = NULL;
-#endif
-
-static int timeout = 5;
-static char *dev_name;
-
-/* Descriptor for I/O to remote machine.  Initialize it to -1 so that
-   adapt_open knows that we don't have a file open when the program
-   starts.  */
-int adapt_desc = -1;
-
-/* stream which is fdopen'd from adapt_desc.  Only valid when
-   adapt_desc != -1.  */
-FILE *adapt_stream;
-
-#define ON	1
-#define OFF	0
-static void
-rawmode (int desc, int turnon)
-{
-
-  TERMINAL sg;
-
-  if (desc < 0)
-    return;
-
-  ioctl (desc, TIOCGETP, &sg);
-
-  if (turnon)
-    {
-#ifdef HAVE_TERMIO
-      sg.c_lflag &= ~(ICANON);
-#else
-      sg.sg_flags |= RAW;
-#endif
-    }
-  else
-    {
-#ifdef HAVE_TERMIO
-      sg.c_lflag |= ICANON;
-#else
-      sg.sg_flags &= ~(RAW);
-#endif
-    }
-  ioctl (desc, TIOCSETP, &sg);
-}
-
-/* Suck up all the input from the adapt */
-slurp_input (void)
-{
-  char buf[8];
-
-#ifdef HAVE_TERMIO
-  /* termio does the timeout for us.  */
-  while (read (adapt_desc, buf, 8) > 0);
-#else
-  alarm (timeout);
-  while (read (adapt_desc, buf, 8) > 0);
-  alarm (0);
-#endif
-}
-
-/* Read a character from the remote system, doing all the fancy
-   timeout stuff.  */
-static int
-readchar (void)
-{
-  char buf;
-
-  buf = '\0';
-#ifdef HAVE_TERMIO
-  /* termio does the timeout for us.  */
-  read (adapt_desc, &buf, 1);
-#else
-  alarm (timeout);
-  if (read (adapt_desc, &buf, 1) < 0)
-    {
-      if (errno == EINTR)
-	error ("Timeout reading from remote system.");
-      else
-	perror_with_name ("remote");
-    }
-  alarm (0);
-#endif
-
-  if (buf == '\0')
-    error ("Timeout reading from remote system.");
-#if defined (LOG_FILE)
-  putc (buf & 0x7f, log_file);
-#endif
-  return buf & 0x7f;
-}
-
-/* Keep discarding input from the remote system, until STRING is found. 
-   Let the user break out immediately.  */
-static void
-expect (char *string)
-{
-  char *p = string;
-
-  fflush (adapt_stream);
-  immediate_quit++;
-  while (1)
-    {
-      if (readchar () == *p)
-	{
-	  p++;
-	  if (*p == '\0')
-	    {
-	      immediate_quit--;
-	      return;
-	    }
-	}
-      else
-	p = string;
-    }
-}
-
-/* Keep discarding input until we see the adapt prompt.
-
-   The convention for dealing with the prompt is that you
-   o give your command
-   o *then* wait for the prompt.
-
-   Thus the last thing that a procedure does with the serial line
-   will be an expect_prompt().  Exception:  adapt_resume does not
-   wait for the prompt, because the terminal is being handed over
-   to the inferior.  However, the next thing which happens after that
-   is a adapt_wait which does wait for the prompt.
-   Note that this includes abnormal exit, e.g. error().  This is
-   necessary to prevent getting into states from which we can't
-   recover.  */
-static void
-expect_prompt (void)
-{
-#if defined (LOG_FILE)
-  /* This is a convenient place to do this.  The idea is to do it often
-     enough that we never lose much data if we terminate abnormally.  */
-  fflush (log_file);
-#endif
-  fflush (adapt_stream);
-  expect ("\n# ");
-}
-
-/* Get a hex digit from the remote system & return its value.
-   If ignore_space is nonzero, ignore spaces (not newline, tab, etc).  */
-static int
-get_hex_digit (int ignore_space)
-{
-  int ch;
-  while (1)
-    {
-      ch = readchar ();
-      if (ch >= '0' && ch <= '9')
-	return ch - '0';
-      else if (ch >= 'A' && ch <= 'F')
-	return ch - 'A' + 10;
-      else if (ch >= 'a' && ch <= 'f')
-	return ch - 'a' + 10;
-      else if (ch == ' ' && ignore_space)
-	;
-      else
-	{
-	  expect_prompt ();
-	  error ("Invalid hex digit from remote system.");
-	}
-    }
-}
-
-/* Get a byte from adapt_desc and put it in *BYT.  Accept any number
-   leading spaces.  */
-static void
-get_hex_byte (char *byt)
-{
-  int val;
-
-  val = get_hex_digit (1) << 4;
-  val |= get_hex_digit (0);
-  *byt = val;
-}
-
-/* Read a 32-bit hex word from the adapt, preceded by a space  */
-static long
-get_hex_word (void)
-{
-  long val;
-  int j;
-
-  val = 0;
-  for (j = 0; j < 8; j++)
-    val = (val << 4) + get_hex_digit (j == 0);
-  return val;
-}
-/* Get N 32-bit hex words from remote, each preceded by a space 
-   and put them in registers starting at REGNO.  */
-static void
-get_hex_regs (int n, int regno)
-{
-  long val;
-  while (n--)
-    {
-      val = get_hex_word ();
-      supply_register (regno++, (char *) &val);
-    }
-}
-/* Called when SIGALRM signal sent due to alarm() timeout.  */
-#ifndef HAVE_TERMIO
-
-volatile int n_alarms;
-
-void
-adapt_timer (void)
-{
-#if 0
-  if (kiodebug)
-    printf ("adapt_timer called\n");
-#endif
-  n_alarms++;
-}
-#endif
-
-/* malloc'd name of the program on the remote system.  */
-static char *prog_name = NULL;
-
-/* Number of SIGTRAPs we need to simulate.  That is, the next
-   NEED_ARTIFICIAL_TRAP calls to adapt_wait should just return
-   SIGTRAP without actually waiting for anything.  */
-
-static int need_artificial_trap = 0;
-
-void
-adapt_kill (char *arg, int from_tty)
-{
-  fprintf (adapt_stream, "K");
-  fprintf (adapt_stream, "\r");
-  expect_prompt ();
-}
-/*
- * Download a file specified in 'args', to the adapt. 
- * FIXME: Assumes the file to download is a binary coff file.
- */
-static void
-adapt_load (char *args, int fromtty)
-{
-  FILE *fp;
-  int n;
-  char buffer[1024];
-
-  if (!adapt_stream)
-    {
-      printf_filtered ("Adapt not open. Use 'target' command to open adapt\n");
-      return;
-    }
-
-  /* OK, now read in the file.  Y=read, C=COFF, T=dTe port
-     0=start address.  */
-
-#ifdef ASCII_COFF		/* Ascii coff */
-  fprintf (adapt_stream, "YA T,0\r");
-  fflush (adapt_stream);	/* Just in case */
-  /* FIXME: should check args for only 1 argument */
-  sprintf (buffer, "cat %s | btoa > /tmp/#adapt-btoa", args);
-  system (buffer);
-  fp = fopen ("/tmp/#adapt-btoa", "r");
-  rawmode (adapt_desc, OFF);
-  while (n = fread (buffer, 1, 1024, fp))
-    {
-      do
-	{
-	  n -= write (adapt_desc, buffer, n);
-	}
-      while (n > 0);
-      if (n < 0)
-	{
-	  perror ("writing ascii coff");
-	  break;
-	}
-    }
-  fclose (fp);
-  rawmode (adapt_desc, ON);
-  system ("rm /tmp/#adapt-btoa");
-#else /* Binary coff - can't get it to work . */
-  fprintf (adapt_stream, "YC T,0\r");
-  fflush (adapt_stream);	/* Just in case */
-  if (!(fp = fopen (args, "r")))
-    {
-      printf_filtered ("Can't open %s\n", args);
-      return;
-    }
-  while (n = fread (buffer, 1, 512, fp))
-    {
-      do
-	{
-	  n -= write (adapt_desc, buffer, n);
-	}
-      while (n > 0);
-      if (n < 0)
-	{
-	  perror ("writing ascii coff");
-	  break;
-	}
-    }
-  fclose (fp);
-#endif
-  expect_prompt ();		/* Skip garbage that comes out */
-  fprintf (adapt_stream, "\r");
-  expect_prompt ();
-}
-
-/* This is called not only when we first attach, but also when the
-   user types "run" after having attached.  */
-void
-adapt_create_inferior (char *execfile, char *args, char **env)
-{
-  int entry_pt;
-
-  if (args && *args)
-    error ("Can't pass arguments to remote adapt process.");
-
-  if (execfile == 0 || exec_bfd == 0)
-    error ("No executable file specified");
-
-  entry_pt = (int) bfd_get_start_address (exec_bfd);
-
-  if (adapt_stream)
-    {
-      adapt_kill (NULL, NULL);
-      adapt_clear_breakpoints ();
-      init_wait_for_inferior ();
-      /* Clear the input because what the adapt sends back is different
-       * depending on whether it was running or not.
-       */
-      slurp_input ();		/* After this there should be a prompt */
-      fprintf (adapt_stream, "\r");
-      expect_prompt ();
-      printf_filtered ("Do you want to download '%s' (y/n)? [y] : ", prog_name);
-      {
-	char buffer[10];
-	gets (buffer);
-	if (*buffer != 'n')
-	  {
-	    adapt_load (prog_name, 0);
-	  }
-      }
-
-#ifdef NOTDEF
-      /* Set the PC and wait for a go/cont */
-      fprintf (adapt_stream, "G %x,N\r", entry_pt);
-      printf_filtered ("Now use the 'continue' command to start.\n");
-      expect_prompt ();
-#else
-      insert_breakpoints ();	/* Needed to get correct instruction in cache */
-      proceed (entry_pt, TARGET_SIGNAL_DEFAULT, 0);
-#endif
-
-    }
-  else
-    {
-      printf_filtered ("Adapt not open yet.\n");
-    }
-}
-
-/* Translate baud rates from integers to damn B_codes.  Unix should
-   have outgrown this crap years ago, but even POSIX wouldn't buck it.  */
-
-#ifndef B19200
-#define B19200 EXTA
-#endif
-#ifndef B38400
-#define B38400 EXTB
-#endif
-
-static struct
-{
-  int rate, damn_b;
-}
-baudtab[] =
-{
-  {
-    0, B0
-  }
-  ,
-  {
-    50, B50
-  }
-  ,
-  {
-    75, B75
-  }
-  ,
-  {
-    110, B110
-  }
-  ,
-  {
-    134, B134
-  }
-  ,
-  {
-    150, B150
-  }
-  ,
-  {
-    200, B200
-  }
-  ,
-  {
-    300, B300
-  }
-  ,
-  {
-    600, B600
-  }
-  ,
-  {
-    1200, B1200
-  }
-  ,
-  {
-    1800, B1800
-  }
-  ,
-  {
-    2400, B2400
-  }
-  ,
-  {
-    4800, B4800
-  }
-  ,
-  {
-    9600, B9600
-  }
-  ,
-  {
-    19200, B19200
-  }
-  ,
-  {
-    38400, B38400
-  }
-  ,
-  {
-    -1, -1
-  }
-  ,
-};
-
-static int
-damn_b (int rate)
-{
-  int i;
-
-  for (i = 0; baudtab[i].rate != -1; i++)
-    if (rate == baudtab[i].rate)
-      return baudtab[i].damn_b;
-  return B38400;		/* Random */
-}
-
-
-/* Open a connection to a remote debugger.
-   NAME is the filename used for communication, then a space,
-   then the baud rate.
- */
-
-static int baudrate = 9600;
-static void
-adapt_open (char *name, int from_tty)
-{
-  TERMINAL sg;
-  unsigned int prl;
-  char *p;
-
-  /* Find the first whitespace character, it separates dev_name from
-     prog_name.  */
-  if (name == 0)
-    goto erroid;
-
-  for (p = name;
-       *p != '\0' && !isspace (*p); p++)
-    ;
-  if (*p == '\0')
-  erroid:
-    error ("\
-Please include the name of the device for the serial port,\n\
-the baud rate, and the name of the program to run on the remote system.");
-  dev_name = (char *) xmalloc (p - name + 1);
-  strncpy (dev_name, name, p - name);
-  dev_name[p - name] = '\0';
-
-  /* Skip over the whitespace after dev_name */
-  for (; isspace (*p); p++)
-    /*EMPTY */ ;
-
-  if (1 != sscanf (p, "%d ", &baudrate))
-    goto erroid;
-
-  /* Skip the number and then the spaces */
-  for (; isdigit (*p); p++)
-    /*EMPTY */ ;
-  for (; isspace (*p); p++)
-    /*EMPTY */ ;
-
-  if (prog_name != NULL)
-    xfree (prog_name);
-  prog_name = savestring (p, strlen (p));
-
-  adapt_close (0);
-
-  adapt_desc = open (dev_name, O_RDWR);
-  if (adapt_desc < 0)
-    perror_with_name (dev_name);
-  ioctl (adapt_desc, TIOCGETP, &sg);
-#if ! defined(COMPILE_CHECK)
-#ifdef HAVE_TERMIO
-  sg.c_cc[VMIN] = 0;		/* read with timeout.  */
-  sg.c_cc[VTIME] = timeout * 10;
-  sg.c_lflag &= ~(ICANON | ECHO);
-  sg.c_cflag = (sg.c_cflag & ~CBAUD) | damn_b (baudrate);
-#else
-  sg.sg_ispeed = damn_b (baudrate);
-  sg.sg_ospeed = damn_b (baudrate);
-  sg.sg_flags |= RAW | ANYP;
-  sg.sg_flags &= ~ECHO;
-#endif
-
-  ioctl (adapt_desc, TIOCSETP, &sg);
-  adapt_stream = fdopen (adapt_desc, "r+");
-#endif /* compile_check */
-  push_target (&adapt_ops);
-
-#ifndef HAVE_TERMIO
-#ifndef NO_SIGINTERRUPT
-  /* Cause SIGALRM's to make reads fail with EINTR instead of resuming
-     the read.  */
-  if (siginterrupt (SIGALRM, 1) != 0)
-    perror ("adapt_open: error in siginterrupt");
-#endif
-
-  /* Set up read timeout timer.  */
-  if ((void (*)) signal (SIGALRM, adapt_timer) == (void (*)) -1)
-    perror ("adapt_open: error in signal");
-#endif
-
-#if defined (LOG_FILE)
-  log_file = fopen (LOG_FILE, "w");
-  if (log_file == NULL)
-    perror_with_name (LOG_FILE);
-#endif
-
-  /* Put this port into NORMAL mode, send the 'normal' character */
-  write (adapt_desc, "
", 1);	/* Control A */
-  write (adapt_desc, "\r", 1);
-  expect_prompt ();
-
-  /* Hello?  Are you there?  */
-  write (adapt_desc, "\r", 1);
-
-  expect_prompt ();
-
-  /* Clear any break points */
-  adapt_clear_breakpoints ();
-
-  /* Print out some stuff, letting the user now what's going on */
-  printf_filtered ("Connected to an Adapt via %s.\n", dev_name);
-  /* FIXME: can this restriction be removed? */
-  printf_filtered ("Remote debugging using virtual addresses works only\n");
-  printf_filtered ("\twhen virtual addresses map 1:1 to physical addresses.\n");
-  if (processor_type != a29k_freeze_mode)
-    {
-      fprintf_filtered (gdb_stderr,
-			"Freeze-mode debugging not available, and can only be done on an A29050.\n");
-    }
-}
-
-/* Close out all files and local state before this target loses control. */
-
-static void
-adapt_close (int quitting)
-{
-
-  /* Clear any break points */
-  adapt_clear_breakpoints ();
-
-  /* Put this port back into REMOTE mode */
-  if (adapt_stream)
-    {
-      fflush (adapt_stream);
-      sleep (1);		/* Let any output make it all the way back */
-      write (adapt_desc, "R\r", 2);
-    }
-
-  /* Due to a bug in Unix, fclose closes not only the stdio stream,
-     but also the file descriptor.  So we don't actually close
-     adapt_desc.  */
-  if (adapt_stream)
-    fclose (adapt_stream);	/* This also closes adapt_desc */
-  if (adapt_desc >= 0)
-    /* close (adapt_desc); */
-
-    /* Do not try to close adapt_desc again, later in the program.  */
-    adapt_stream = NULL;
-  adapt_desc = -1;
-
-#if defined (LOG_FILE)
-  if (log_file)
-    {
-      if (ferror (log_file))
-	printf_filtered ("Error writing log file.\n");
-      if (fclose (log_file) != 0)
-	printf_filtered ("Error closing log file.\n");
-      log_file = NULL;
-    }
-#endif
-}
-
-/* Attach to the target that is already loaded and possibly running */
-static void
-adapt_attach (char *args, int from_tty)
-{
-
-  if (from_tty)
-    printf_filtered ("Attaching to remote program %s.\n", prog_name);
-
-  /* Send the adapt a kill. It is ok if it is not already running */
-  fprintf (adapt_stream, "K\r");
-  fflush (adapt_stream);
-  expect_prompt ();		/* Slurp the echo */
-}
-
-
-/* Terminate the open connection to the remote debugger.
-   Use this when you want to detach and do something else
-   with your gdb.  */
-void
-adapt_detach (char *args, int from_tty)
-{
-
-  if (adapt_stream)
-    {				/* Send it on its way (tell it to continue)  */
-      adapt_clear_breakpoints ();
-      fprintf (adapt_stream, "G\r");
-    }
-
-  pop_target ();		/* calls adapt_close to do the real work */
-  if (from_tty)
-    printf_filtered ("Ending remote %s debugging\n", target_shortname);
-}
-
-/* Tell the remote machine to resume.  */
-
-void
-adapt_resume (ptid_t ptid, int step, enum target_signal sig)
-{
-  if (step)
-    {
-      write (adapt_desc, "t 1,s\r", 6);
-      /* Wait for the echo.  */
-      expect ("t 1,s\r\n");
-      /* Then comes a line containing the instruction we stepped to.  */
-      expect ("@");
-      /* Then we get the prompt.  */
-      expect_prompt ();
-
-      /* Force the next adapt_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
-    {
-      write (adapt_desc, "G\r", 2);
-      /* Swallow the echo.  */
-      expect_prompt ();
-    }
-}
-
-/* Wait until the remote machine stops, then return,
-   storing status in STATUS just as `wait' would.  */
-
-ptid_t
-adapt_wait (ptid_t ptid, struct target_waitstatus *status)
-{
-  /* Strings to look for.  '?' means match any single character.  
-     Note that with the algorithm we use, the initial character
-     of the string cannot recur in the string, or we will not
-     find some cases of the string in the input.  */
-
-  static char bpt[] = "@";
-  /* It would be tempting to look for "\n[__exit + 0x8]\n"
-     but that requires loading symbols with "yc i" and even if
-     we did do that we don't know that the file has symbols.  */
-  static char exitmsg[] = "@????????I    JMPTI     GR121,LR0";
-  char *bp = bpt;
-  char *ep = exitmsg;
-
-  /* Large enough for either sizeof (bpt) or sizeof (exitmsg) chars.  */
-  char swallowed[50];
-  /* Current position in swallowed.  */
-  char *swallowed_p = swallowed;
-
-  int ch;
-  int ch_handled;
-  int old_timeout = timeout;
-  int old_immediate_quit = immediate_quit;
-
-  status->kind = TARGET_WAITKIND_EXITED;
-  status->value.integer = 0;
-
-  if (need_artificial_trap != 0)
-    {
-      status->kind = TARGET_WAITKIND_STOPPED;
-      status->value.sig = TARGET_SIGNAL_TRAP;
-      need_artificial_trap--;
-      return inferior_ptid;
-    }
-
-  timeout = 0;			/* Don't time out -- user program is running. */
-  immediate_quit = 1;		/* Helps ability to QUIT */
-  while (1)
-    {
-      QUIT;			/* Let user quit and leave process running */
-      ch_handled = 0;
-      ch = readchar ();
-      if (ch == *bp)
-	{
-	  bp++;
-	  if (*bp == '\0')
-	    break;
-	  ch_handled = 1;
-
-	  *swallowed_p++ = ch;
-	}
-      else
-	bp = bpt;
-      if (ch == *ep || *ep == '?')
-	{
-	  ep++;
-	  if (*ep == '\0')
-	    break;
-
-	  if (!ch_handled)
-	    *swallowed_p++ = ch;
-	  ch_handled = 1;
-	}
-      else
-	ep = exitmsg;
-      if (!ch_handled)
-	{
-	  char *p;
-	  /* Print out any characters which have been swallowed.  */
-	  for (p = swallowed; p < swallowed_p; ++p)
-	    putc (*p, stdout);
-	  swallowed_p = swallowed;
-	  putc (ch, stdout);
-	}
-    }
-  expect_prompt ();
-  if (*bp == '\0')
-    {
-      status->kind = TARGET_WAITKIND_STOPPED;
-      status->value.sig = TARGET_SIGNAL_TRAP;
-    }
-  else
-    {
-      status->kind = TARGET_WAITKIND_EXITED;
-      status->value.integer = 0;
-    }
-  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 adapt.
-
-   Returns a pointer to a static buffer containing the answer.  */
-static char *
-get_reg_name (int regno)
-{
-  static char buf[80];
-  if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32)
-    sprintf (buf, "GR%03d", regno - GR96_REGNUM + 96);
-#if defined(GR64_REGNUM)
-  else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32)
-    sprintf (buf, "GR%03d", regno - GR64_REGNUM + 64);
-#endif
-  else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128)
-    sprintf (buf, "LR%03d", regno - LR0_REGNUM);
-  else if (regno == Q_REGNUM)
-    strcpy (buf, "SR131");
-  else if (regno >= BP_REGNUM && regno <= CR_REGNUM)
-    sprintf (buf, "SR%03d", regno - BP_REGNUM + 133);
-  else if (regno == ALU_REGNUM)
-    strcpy (buf, "SR132");
-  else if (regno >= IPC_REGNUM && regno <= IPB_REGNUM)
-    sprintf (buf, "SR%03d", regno - IPC_REGNUM + 128);
-  else if (regno >= VAB_REGNUM && regno <= LRU_REGNUM)
-    {
-      /* When a 29050 is in freeze-mode, read shadow pcs instead */
-      if ((regno >= NPC_REGNUM && regno <= PC2_REGNUM) && USE_SHADOW_PC)
-	sprintf (buf, "SR%03d", regno - NPC_REGNUM + 20);
-      else
-	sprintf (buf, "SR%03d", regno - VAB_REGNUM);
-    }
-  else if (regno == GR1_REGNUM)
-    strcpy (buf, "GR001");
-  return buf;
-}
-
-/* Read the remote registers.  */
-
-static void
-adapt_fetch_registers (void)
-{
-  int reg_index;
-  int regnum_index;
-  char tempbuf[10];
-  int sreg_buf[16];
-  int i, j;
-
-/* 
- * Global registers
- */
-#if defined(GR64_REGNUM)
-  write (adapt_desc, "dw gr64,gr95\r", 13);
-  for (reg_index = 64, regnum_index = GR64_REGNUM;
-       reg_index < 96;
-       reg_index += 4, regnum_index += 4)
-    {
-      sprintf (tempbuf, "GR%03d ", reg_index);
-      expect (tempbuf);
-      get_hex_regs (4, regnum_index);
-      expect ("\n");
-    }
-#endif
-  write (adapt_desc, "dw gr96,gr127\r", 14);
-  for (reg_index = 96, regnum_index = GR96_REGNUM;
-       reg_index < 128;
-       reg_index += 4, regnum_index += 4)
-    {
-      sprintf (tempbuf, "GR%03d ", reg_index);
-      expect (tempbuf);
-      get_hex_regs (4, regnum_index);
-      expect ("\n");
-    }
-
-/* 
- * Local registers
- */
-  for (i = 0; i < 128; i += 32)
-    {
-      /* The PC has a tendency to hang if we get these
-         all in one fell swoop ("dw lr0,lr127").  */
-      sprintf (tempbuf, "dw lr%d\r", i);
-      write (adapt_desc, tempbuf, strlen (tempbuf));
-      for (reg_index = i, regnum_index = LR0_REGNUM + i;
-	   reg_index < i + 32;
-	   reg_index += 4, regnum_index += 4)
-	{
-	  sprintf (tempbuf, "LR%03d ", reg_index);
-	  expect (tempbuf);
-	  get_hex_regs (4, regnum_index);
-	  expect ("\n");
-	}
-    }
-
-/* 
- * Special registers
- */
-  sprintf (tempbuf, "dw sr0\r");
-  write (adapt_desc, tempbuf, strlen (tempbuf));
-  for (i = 0; i < 4; i++)
-    {				/* SR0 - SR14 */
-      sprintf (tempbuf, "SR%3d", i * 4);
-      expect (tempbuf);
-      for (j = 0; j < (i == 3 ? 3 : 4); j++)
-	sreg_buf[i * 4 + j] = get_hex_word ();
-    }
-  expect_prompt ();
-  /* 
-   * Read the pcs individually if we are in freeze mode.
-   * See get_reg_name(), it translates the register names for the pcs to
-   * the names of the shadow pcs.
-   */
-  if (USE_SHADOW_PC)
-    {
-      sreg_buf[10] = read_register (NPC_REGNUM);	/* pc0 */
-      sreg_buf[11] = read_register (PC_REGNUM);		/* pc1 */
-      sreg_buf[12] = read_register (PC2_REGNUM);	/* pc2 */
-    }
-  for (i = 0; i < 14; i++)	/* Supply vab -> lru */
-    supply_register (VAB_REGNUM + i, (char *) &sreg_buf[i]);
-  sprintf (tempbuf, "dw sr128\r");
-  write (adapt_desc, tempbuf, strlen (tempbuf));
-  for (i = 0; i < 2; i++)
-    {				/* SR128 - SR135 */
-      sprintf (tempbuf, "SR%3d", 128 + i * 4);
-      expect (tempbuf);
-      for (j = 0; j < 4; j++)
-	sreg_buf[i * 4 + j] = get_hex_word ();
-    }
-  expect_prompt ();
-  supply_register (IPC_REGNUM, (char *) &sreg_buf[0]);
-  supply_register (IPA_REGNUM, (char *) &sreg_buf[1]);
-  supply_register (IPB_REGNUM, (char *) &sreg_buf[2]);
-  supply_register (Q_REGNUM, (char *) &sreg_buf[3]);
-  /* Skip ALU */
-  supply_register (BP_REGNUM, (char *) &sreg_buf[5]);
-  supply_register (FC_REGNUM, (char *) &sreg_buf[6]);
-  supply_register (CR_REGNUM, (char *) &sreg_buf[7]);
-
-  /* There doesn't seem to be any way to get these.  */
-  {
-    int val = -1;
-    supply_register (FPE_REGNUM, (char *) &val);
-    supply_register (INTE_REGNUM, (char *) &val);
-    supply_register (FPS_REGNUM, (char *) &val);
-    supply_register (EXO_REGNUM, (char *) &val);
-  }
-
-  write (adapt_desc, "dw gr1,gr1\r", 11);
-  expect ("GR001 ");
-  get_hex_regs (1, GR1_REGNUM);
-  expect_prompt ();
-}
-
-/* Fetch register REGNO, or all registers if REGNO is -1.
- */
-static void
-adapt_fetch_register (int regno)
-{
-  if (regno == -1)
-    adapt_fetch_registers ();
-  else
-    {
-      char *name = get_reg_name (regno);
-      fprintf (adapt_stream, "dw %s,%s\r", name, name);
-      expect (name);
-      expect (" ");
-      get_hex_regs (1, regno);
-      expect_prompt ();
-    }
-}
-
-/* Store the remote registers from the contents of the block REGS.  */
-
-static void
-adapt_store_registers (void)
-{
-  int i, j;
-
-  fprintf (adapt_stream, "s gr1,%x\r", read_register (GR1_REGNUM));
-  expect_prompt ();
-
-#if defined(GR64_REGNUM)
-  for (j = 0; j < 32; j += 16)
-    {
-      fprintf (adapt_stream, "s gr%d,", j + 64);
-      for (i = 0; i < 15; ++i)
-	fprintf (adapt_stream, "%x,", read_register (GR64_REGNUM + j + i));
-      fprintf (adapt_stream, "%x\r", read_register (GR64_REGNUM + j + 15));
-      expect_prompt ();
-    }
-#endif
-  for (j = 0; j < 32; j += 16)
-    {
-      fprintf (adapt_stream, "s gr%d,", j + 96);
-      for (i = 0; i < 15; ++i)
-	fprintf (adapt_stream, "%x,", read_register (GR96_REGNUM + j + i));
-      fprintf (adapt_stream, "%x\r", read_register (GR96_REGNUM + j + 15));
-      expect_prompt ();
-    }
-
-  for (j = 0; j < 128; j += 16)
-    {
-      fprintf (adapt_stream, "s lr%d,", j);
-      for (i = 0; i < 15; ++i)
-	fprintf (adapt_stream, "%x,", read_register (LR0_REGNUM + j + i));
-      fprintf (adapt_stream, "%x\r", read_register (LR0_REGNUM + j + 15));
-      expect_prompt ();
-    }
-
-  fprintf (adapt_stream, "s sr128,%x,%x,%x\r", read_register (IPC_REGNUM),
-	   read_register (IPA_REGNUM), read_register (IPB_REGNUM));
-  expect_prompt ();
-  fprintf (adapt_stream, "s sr133,%x,%x,%x\r", read_register (BP_REGNUM),
-	   read_register (FC_REGNUM), read_register (CR_REGNUM));
-  expect_prompt ();
-  fprintf (adapt_stream, "s sr131,%x\r", read_register (Q_REGNUM));
-  expect_prompt ();
-  fprintf (adapt_stream, "s sr0,");
-  for (i = 0; i < 7; ++i)
-    fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i));
-  expect_prompt ();
-  fprintf (adapt_stream, "s sr7,");
-  for (i = 7; i < 14; ++i)
-    fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i));
-  expect_prompt ();
-}
-
-/* Store register REGNO, or all if REGNO == -1.
-   Return errno value.  */
-void
-adapt_store_register (int regno)
-{
-  /* printf("adapt_store_register() called.\n"); fflush(stdout); /* */
-  if (regno == -1)
-    adapt_store_registers ();
-  else
-    {
-      char *name = get_reg_name (regno);
-      fprintf (adapt_stream, "s %s,%x\r", name, read_register (regno));
-      /* Setting GR1 changes the numbers of all the locals, so
-         invalidate the register cache.  Do this *after* calling
-         read_register, because we want read_register to return the
-         value that write_register has just stuffed into the registers
-         array, not the value of the register fetched from the
-         inferior.  */
-      if (regno == GR1_REGNUM)
-	registers_changed ();
-      expect_prompt ();
-    }
-}
-
-/* Get ready to modify the registers array.  On machines which store
-   individual registers, this doesn't need to do anything.  On machines
-   which store all the registers in one fell swoop, this makes sure
-   that registers contains all the registers from the program being
-   debugged.  */
-
-void
-adapt_prepare_to_store (void)
-{
-  /* Do nothing, since we can store individual regs */
-}
-
-static CORE_ADDR
-translate_addr (CORE_ADDR addr)
-{
-#if defined(KERNEL_DEBUGGING)
-  /* Check for a virtual address in the kernel */
-  /* Assume physical address of ublock is in  paddr_u register */
-  if (addr >= UVADDR)
-    {
-      /* PADDR_U register holds the physical address of the ublock */
-      CORE_ADDR i = (CORE_ADDR) read_register (PADDR_U_REGNUM);
-      return (i + addr - (CORE_ADDR) UVADDR);
-    }
-  else
-    {
-      return (addr);
-    }
-#else
-  return (addr);
-#endif
-}
-
-
-/* FIXME!  Merge these two.  */
-int
-adapt_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len, int write,
-			    struct mem_attrib *attrib ATTRIBUTE_UNUSED,
-			    struct target_ops *target ATTRIBUTE_UNUSED)
-{
-
-  memaddr = translate_addr (memaddr);
-
-  if (write)
-    return adapt_write_inferior_memory (memaddr, myaddr, len);
-  else
-    return adapt_read_inferior_memory (memaddr, myaddr, len);
-}
-
-void
-adapt_files_info (void)
-{
-  printf_filtered ("\tAttached to %s at %d baud and running program %s\n",
-		   dev_name, baudrate, prog_name);
-  printf_filtered ("\ton an %s processor.\n", processor_name[processor_type]);
-}
-
-/* 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. 
- */
-int
-adapt_write_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len)
-{
-  int i;
-  unsigned int cps;
-
-  /* Turn TU bit off so we can do 'sb' commands */
-  cps = read_register (CPS_REGNUM);
-  if (cps & 0x00000800)
-    write_register (CPS_REGNUM, cps & ~(0x00000800));
-
-  for (i = 0; i < len; i++)
-    {
-      if ((i % 16) == 0)
-	fprintf (adapt_stream, "sb %x,", memaddr + i);
-      if ((i % 16) == 15 || i == len - 1)
-	{
-	  fprintf (adapt_stream, "%x\r", ((unsigned char *) myaddr)[i]);
-	  expect_prompt ();
-	}
-      else
-	fprintf (adapt_stream, "%x,", ((unsigned char *) myaddr)[i]);
-    }
-  /* Restore the old value of cps if the TU bit was on */
-  if (cps & 0x00000800)
-    write_register (CPS_REGNUM, cps);
-  return len;
-}
-
-/* Read LEN bytes from inferior memory at MEMADDR.  Put the result
-   at debugger address MYADDR.  Returns errno value.  */
-int
-adapt_read_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len)
-{
-  int i;
-
-  /* Number of bytes read so far.  */
-  int count;
-
-  /* Starting address of this pass.  */
-  unsigned long startaddr;
-
-  /* Number of bytes to read in this pass.  */
-  int len_this_pass;
-
-  /* Note that this code works correctly if startaddr is just less
-     than UINT_MAX (well, really CORE_ADDR_MAX if there was such a
-     thing).  That is, something like
-     adapt_read_bytes (CORE_ADDR_MAX - 4, foo, 4)
-     works--it never adds len to memaddr and gets 0.  */
-  /* However, something like
-     adapt_read_bytes (CORE_ADDR_MAX - 3, foo, 4)
-     doesn't need to work.  Detect it and give up if there's an attempt
-     to do that.  */
-
-  if (((memaddr - 1) + len) < memaddr)
-    return EIO;
-
-  startaddr = memaddr;
-  count = 0;
-  while (count < len)
-    {
-      len_this_pass = 16;
-      if ((startaddr % 16) != 0)
-	len_this_pass -= startaddr % 16;
-      if (len_this_pass > (len - count))
-	len_this_pass = (len - count);
-
-      fprintf (adapt_stream, "db %x,%x\r", startaddr,
-	       (startaddr - 1) + len_this_pass);
-
-#ifdef NOTDEF			/* Why do this */
-      expect ("\n");
-      /* Look for 8 hex digits.  */
-      i = 0;
-      while (1)
-	{
-	  if (isxdigit (readchar ()))
-	    ++i;
-	  else
-	    {
-	      expect_prompt ();
-	      error ("Hex digit expected from remote system.");
-	    }
-	  if (i >= 8)
-	    break;
-	}
-#endif /* NOTDEF */
-
-      expect ("  ");
-
-      for (i = 0; i < len_this_pass; i++)
-	get_hex_byte (&myaddr[count++]);
-
-      expect_prompt ();
-
-      startaddr += len_this_pass;
-    }
-  return count;
-}
-
-#define MAX_BREAKS	8
-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 Adapt Monitor is responsible
-   for saving/restoring the original instruction. */
-
-static int
-adapt_insert_breakpoint (CORE_ADDR addr, char *save)
-{
-  if (num_brkpts < MAX_BREAKS)
-    {
-      num_brkpts++;
-      fprintf (adapt_stream, "B %x", addr);
-      fprintf (adapt_stream, "\r");
-      expect_prompt ();
-      return (0);		/* Success */
-    }
-  else
-    {
-      fprintf_filtered (gdb_stderr,
-		      "Too many break points, break point not installed\n");
-      return (1);		/* Failure */
-    }
-
-}
-
-/* Remove a breakpoint at ADDR.  SAVE is normally the previously
-   saved pattern, but is unused here as the Adapt Monitor is
-   responsible for saving/restoring instructions. */
-
-static int
-adapt_remove_breakpoint (CORE_ADDR addr, char *save)
-{
-  if (num_brkpts > 0)
-    {
-      num_brkpts--;
-      fprintf (adapt_stream, "BR %x", addr);
-      fprintf (adapt_stream, "\r");
-      fflush (adapt_stream);
-      expect_prompt ();
-    }
-  return (0);
-}
-
-/* Clear the adapts notion of what the break points are */
-static int
-adapt_clear_breakpoints (void)
-{
-  if (adapt_stream)
-    {
-      fprintf (adapt_stream, "BR");	/* Clear all break points */
-      fprintf (adapt_stream, "\r");
-      fflush (adapt_stream);
-      expect_prompt ();
-    }
-  num_brkpts = 0;
-}
-static void
-adapt_mourn (void)
-{
-  adapt_clear_breakpoints ();
-  pop_target ();		/* Pop back to no-child state */
-  generic_mourn_inferior ();
-}
-
-/* Display everthing we read in from the adapt until we match/see the
- * specified string
- */
-static int
-display_until (char *str)
-{
-  int i = 0, j, c;
-
-  while (c = readchar ())
-    {
-      if (c == str[i])
-	{
-	  i++;
-	  if (i == strlen (str))
-	    return;
-	}
-      else
-	{
-	  if (i)
-	    {
-	      for (j = 0; j < i; j++)	/* Put everthing we matched */
-		putchar (str[j]);
-	      i = 0;
-	    }
-	  putchar (c);
-	}
-    }
-
-}
-
-
-/* Put a command string, in args, out to the adapt.  The adapt is assumed to
-   be in raw mode, all writing/reading done through adapt_desc.
-   Ouput from the adapt is placed on the users terminal until the
-   prompt from the adapt is seen.
-   FIXME: Can't handle commands that take input.  */
-
-void
-adapt_com (char *args, int fromtty)
-{
-  if (!adapt_stream)
-    {
-      printf_filtered ("Adapt not open.  Use the 'target' command to open.\n");
-      return;
-    }
-
-  /* Clear all input so only command relative output is displayed */
-  slurp_input ();
-
-  switch (islower (args[0]) ? toupper (args[0]) : args[0])
-    {
-    default:
-      printf_filtered ("Unknown/Unimplemented adapt command '%s'\n", args);
-      break;
-    case 'G':			/* Go, begin execution */
-      write (adapt_desc, args, strlen (args));
-      write (adapt_desc, "\r", 1);
-      expect_prompt ();
-      break;
-    case 'B':			/* Break points, B or BR */
-    case 'C':			/* Check current 29k status (running/halted) */
-    case 'D':			/* Display data/registers */
-    case 'I':			/* Input from i/o space */
-    case 'J':			/* Jam an instruction */
-    case 'K':			/* Kill, stop execution */
-    case 'L':			/* Disassemble */
-    case 'O':			/* Output to i/o space */
-    case 'T':			/* Trace */
-    case 'P':			/* Pulse an input line */
-    case 'X':			/* Examine special purpose registers */
-    case 'Z':			/* Display trace buffer */
-      write (adapt_desc, args, strlen (args));
-      write (adapt_desc, "\r", 1);
-      expect (args);		/* Don't display the command */
-      display_until ("# ");
-      break;
-      /* Begin commands that take input in the form 'c x,y[,z...]' */
-    case 'S':			/* Set memory or register */
-      if (strchr (args, ','))
-	{			/* Assume it is properly formatted */
-	  write (adapt_desc, args, strlen (args));
-	  write (adapt_desc, "\r", 1);
-	  expect_prompt ();
-	}
-      break;
-    }
-}
-
-/* Define the target subroutine names */
-
-struct target_ops adapt_ops;
-
-static void
-init_adapt_ops (void)
-{
-  adapt_ops.to_shortname = "adapt";
-  adapt_ops.to_longname = "Remote AMD `Adapt' target";
-  adapt_ops.to_doc = "Remote debug an AMD 290*0 using an `Adapt' monitor via RS232";
-  adapt_ops.to_open = adapt_open;
-  adapt_ops.to_close = adapt_close;
-  adapt_ops.to_attach = adapt_attach;
-  adapt_ops.to_post_attach = NULL;
-  adapt_ops.to_require_attach = NULL;
-  adapt_ops.to_detach = adapt_detach;
-  adapt_ops.to_require_detach = NULL;
-  adapt_ops.to_resume = adapt_resume;
-  adapt_ops.to_wait = adapt_wait;
-  adapt_ops.to_post_wait = NULL;
-  adapt_ops.to_fetch_registers = adapt_fetch_register;
-  adapt_ops.to_store_registers = adapt_store_register;
-  adapt_ops.to_prepare_to_store = adapt_prepare_to_store;
-  adapt_ops.to_xfer_memory = adapt_xfer_inferior_memory;
-  adapt_ops.to_files_info = adapt_files_info;
-  adapt_ops.to_insert_breakpoint = adapt_insert_breakpoint;
-  adapt_ops.to_remove_breakpoint = adapt_remove_breakpoint;
-  adapt_ops.to_terminal_init = 0;
-  adapt_ops.to_terminal_inferior = 0;
-  adapt_ops.to_terminal_ours_for_output = 0;
-  adapt_ops.to_terminal_ours = 0;
-  adapt_ops.to_terminal_info = 0;
-  adapt_ops.to_kill = adapt_kill;
-  adapt_ops.to_load = adapt_load;
-  adapt_ops.to_lookup_symbol = 0;
-  adapt_ops.to_create_inferior = adapt_create_inferior;
-  adapt_ops.to_post_startup_inferior = NULL;
-  adapt_ops.to_acknowledge_created_inferior = NULL;
-  adapt_ops.to_clone_and_follow_inferior = NULL;
-  adapt_ops.to_post_follow_inferior_by_clone = NULL;
-  adapt_ops.to_insert_fork_catchpoint = NULL;
-  adapt_ops.to_remove_fork_catchpoint = NULL;
-  adapt_ops.to_insert_vfork_catchpoint = NULL;
-  adapt_ops.to_remove_vfork_catchpoint = NULL;
-  adapt_ops.to_has_forked = NULL;
-  adapt_ops.to_has_vforked = NULL;
-  adapt_ops.to_can_follow_vfork_prior_to_exec = NULL;
-  adapt_ops.to_post_follow_vfork = NULL;
-  adapt_ops.to_insert_exec_catchpoint = NULL;
-  adapt_ops.to_remove_exec_catchpoint = NULL;
-  adapt_ops.to_has_execd = NULL;
-  adapt_ops.to_reported_exec_events_per_exec_call = NULL;
-  adapt_ops.to_has_exited = NULL;
-  adapt_ops.to_mourn_inferior = adapt_mourn;
-  adapt_ops.to_can_run = 0;
-  adapt_ops.to_notice_signals = 0;
-  adapt_ops.to_thread_alive = 0;
-  adapt_ops.to_stop = 0;	/* process_stratum; */
-  adapt_ops.to_pid_to_exec_file = NULL;
-  adapt_ops.to_stratum = 0;
-  adapt_ops.DONT_USE = 0;
-  adapt_ops.to_has_all_memory = 1;
-  adapt_ops.to_has_memory = 1;
-  adapt_ops.to_has_stack = 1;
-  adapt_ops.to_has_registers = 1;
-  adapt_ops.to_has_execution = 0;
-  adapt_ops.to_sections = 0;
-  adapt_ops.to_sections_end = 0;
-  adapt_ops.to_magic = OPS_MAGIC;
-}				/* init_adapt_ops */
-
-void
-_initialize_remote_adapt (void)
-{
-  init_adapt_ops ();
-  add_target (&adapt_ops);
-  add_com ("adapt <command>", class_obscure, adapt_com,
-	   "Send a command to the AMD Adapt remote monitor.");
-}
+/* OBSOLETE /* Remote debugging interface for AMD 290*0 Adapt Monitor Version 2.1d18.  */
+/* OBSOLETE    Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, */
+/* OBSOLETE    2001 Free Software Foundation, Inc. */
+/* OBSOLETE    Contributed by David Wood at New York University (wood@lab.ultra.nyu.edu). */
+/* OBSOLETE    Adapted from work done at Cygnus Support in remote-eb.c. */
+/* 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 /* This is like remote.c but is for an esoteric situation-- */
+/* OBSOLETE    having a 29k board attached to an Adapt inline monitor.  */
+/* OBSOLETE    The  monitor is connected via serial line to a unix machine  */
+/* OBSOLETE    running gdb.  */
+/* OBSOLETE  */
+/* OBSOLETE    3/91 -  developed on Sun3 OS 4.1, by David Wood */
+/* OBSOLETE    o - I can't get binary coff to load.  */
+/* OBSOLETE    o - I can't get 19200 baud rate to work.  */
+/* OBSOLETE    7/91 o - Freeze mode tracing can be done on a 29050.  */ */
+/* OBSOLETE  */
+/* OBSOLETE  */
+/* OBSOLETE  */
+/* OBSOLETE #include "defs.h" */
+/* OBSOLETE #include "gdb_string.h" */
+/* OBSOLETE #include "inferior.h" */
+/* OBSOLETE #include "value.h" */
+/* OBSOLETE #include <ctype.h> */
+/* OBSOLETE #include <fcntl.h> */
+/* OBSOLETE #include <signal.h> */
+/* OBSOLETE #include <errno.h> */
+/* OBSOLETE #include "terminal.h" */
+/* OBSOLETE #include "target.h" */
+/* OBSOLETE #include "gdbcore.h" */
+/* OBSOLETE #include "regcache.h" */
+/* OBSOLETE  */
+/* OBSOLETE /* This processor is getting rusty but I am trying to keep it */
+/* OBSOLETE    up to date at least with data structure changes. */
+/* OBSOLETE    Activate this block to compile just this file. */
+/* OBSOLETE  */ */
+/* OBSOLETE #define COMPILE_CHECK 0 */
+/* OBSOLETE #if COMPILE_CHECK */
+/* OBSOLETE #define Q_REGNUM 0 */
+/* OBSOLETE #define VAB_REGNUM 0 */
+/* OBSOLETE #define CPS_REGNUM 0 */
+/* OBSOLETE #define IPA_REGNUM 0 */
+/* OBSOLETE #define IPB_REGNUM 0 */
+/* OBSOLETE #define GR1_REGNUM 0 */
+/* OBSOLETE #define LR0_REGNUM 0 */
+/* OBSOLETE #define IPC_REGNUM 0 */
+/* OBSOLETE #define CR_REGNUM 0 */
+/* OBSOLETE #define BP_REGNUM 0 */
+/* OBSOLETE #define FC_REGNUM 0 */
+/* OBSOLETE #define INTE_REGNUM 0 */
+/* OBSOLETE #define EXO_REGNUM 0 */
+/* OBSOLETE #define GR96_REGNUM 0 */
+/* OBSOLETE #define NPC_REGNUM */
+/* OBSOLETE #define FPE_REGNUM 0 */
+/* OBSOLETE #define PC2_REGNUM 0 */
+/* OBSOLETE #define FPS_REGNUM 0 */
+/* OBSOLETE #define ALU_REGNUM 0 */
+/* OBSOLETE #define LRU_REGNUM 0 */
+/* OBSOLETE #define TERMINAL int */
+/* OBSOLETE #define RAW 1 */
+/* OBSOLETE #define ANYP 1 */
+/* OBSOLETE extern int a29k_freeze_mode; */
+/* OBSOLETE extern int processor_type; */
+/* OBSOLETE extern char *processor_name; */
+/* OBSOLETE #endif */
+/* 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 adapt_ops;	/* Forward declaration */ */
+/* OBSOLETE  */
+/* OBSOLETE /* Forward function declarations */ */
+/* OBSOLETE static void adapt_fetch_registers (); */
+/* OBSOLETE static void adapt_store_registers (); */
+/* OBSOLETE static void adapt_close (); */
+/* OBSOLETE static int adapt_clear_breakpoints (); */
+/* OBSOLETE  */
+/* OBSOLETE #define FREEZE_MODE 	(read_register(CPS_REGNUM) && 0x400) */
+/* OBSOLETE #define USE_SHADOW_PC	((processor_type == a29k_freeze_mode) && FREEZE_MODE) */
+/* OBSOLETE  */
+/* OBSOLETE /* Can't seem to get binary coff working */ */
+/* OBSOLETE #define ASCII_COFF		/* Adapt will be downloaded with ascii coff */ */
+/* OBSOLETE  */
+/* OBSOLETE /* FIXME: Replace with `set remotedebug'.  */ */
+/* OBSOLETE #define LOG_FILE "adapt.log" */
+/* OBSOLETE #if defined (LOG_FILE) */
+/* OBSOLETE FILE *log_file = NULL; */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE static int timeout = 5; */
+/* OBSOLETE static char *dev_name; */
+/* OBSOLETE  */
+/* OBSOLETE /* Descriptor for I/O to remote machine.  Initialize it to -1 so that */
+/* OBSOLETE    adapt_open knows that we don't have a file open when the program */
+/* OBSOLETE    starts.  */ */
+/* OBSOLETE int adapt_desc = -1; */
+/* OBSOLETE  */
+/* OBSOLETE /* stream which is fdopen'd from adapt_desc.  Only valid when */
+/* OBSOLETE    adapt_desc != -1.  */ */
+/* OBSOLETE FILE *adapt_stream; */
+/* OBSOLETE  */
+/* OBSOLETE #define ON	1 */
+/* OBSOLETE #define OFF	0 */
+/* OBSOLETE static void */
+/* OBSOLETE rawmode (int desc, int turnon) */
+/* OBSOLETE { */
+/* OBSOLETE  */
+/* OBSOLETE   TERMINAL sg; */
+/* OBSOLETE  */
+/* OBSOLETE   if (desc < 0) */
+/* OBSOLETE     return; */
+/* OBSOLETE  */
+/* OBSOLETE   ioctl (desc, TIOCGETP, &sg); */
+/* OBSOLETE  */
+/* OBSOLETE   if (turnon) */
+/* OBSOLETE     { */
+/* OBSOLETE #ifdef HAVE_TERMIO */
+/* OBSOLETE       sg.c_lflag &= ~(ICANON); */
+/* OBSOLETE #else */
+/* OBSOLETE       sg.sg_flags |= RAW; */
+/* OBSOLETE #endif */
+/* OBSOLETE     } */
+/* OBSOLETE   else */
+/* OBSOLETE     { */
+/* OBSOLETE #ifdef HAVE_TERMIO */
+/* OBSOLETE       sg.c_lflag |= ICANON; */
+/* OBSOLETE #else */
+/* OBSOLETE       sg.sg_flags &= ~(RAW); */
+/* OBSOLETE #endif */
+/* OBSOLETE     } */
+/* OBSOLETE   ioctl (desc, TIOCSETP, &sg); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Suck up all the input from the adapt */ */
+/* OBSOLETE slurp_input (void) */
+/* OBSOLETE { */
+/* OBSOLETE   char buf[8]; */
+/* OBSOLETE  */
+/* OBSOLETE #ifdef HAVE_TERMIO */
+/* OBSOLETE   /* termio does the timeout for us.  */ */
+/* OBSOLETE   while (read (adapt_desc, buf, 8) > 0); */
+/* OBSOLETE #else */
+/* OBSOLETE   alarm (timeout); */
+/* OBSOLETE   while (read (adapt_desc, buf, 8) > 0); */
+/* OBSOLETE   alarm (0); */
+/* OBSOLETE #endif */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Read a character from the remote system, doing all the fancy */
+/* OBSOLETE    timeout stuff.  */ */
+/* OBSOLETE static int */
+/* OBSOLETE readchar (void) */
+/* OBSOLETE { */
+/* OBSOLETE   char buf; */
+/* OBSOLETE  */
+/* OBSOLETE   buf = '\0'; */
+/* OBSOLETE #ifdef HAVE_TERMIO */
+/* OBSOLETE   /* termio does the timeout for us.  */ */
+/* OBSOLETE   read (adapt_desc, &buf, 1); */
+/* OBSOLETE #else */
+/* OBSOLETE   alarm (timeout); */
+/* OBSOLETE   if (read (adapt_desc, &buf, 1) < 0) */
+/* OBSOLETE     { */
+/* OBSOLETE       if (errno == EINTR) */
+/* OBSOLETE 	error ("Timeout reading from remote system."); */
+/* OBSOLETE       else */
+/* OBSOLETE 	perror_with_name ("remote"); */
+/* OBSOLETE     } */
+/* OBSOLETE   alarm (0); */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE   if (buf == '\0') */
+/* OBSOLETE     error ("Timeout reading from remote system."); */
+/* OBSOLETE #if defined (LOG_FILE) */
+/* OBSOLETE   putc (buf & 0x7f, log_file); */
+/* OBSOLETE #endif */
+/* OBSOLETE   return buf & 0x7f; */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Keep discarding input from the remote system, until STRING is found.  */
+/* OBSOLETE    Let the user break out immediately.  */ */
+/* OBSOLETE static void */
+/* OBSOLETE expect (char *string) */
+/* OBSOLETE { */
+/* OBSOLETE   char *p = string; */
+/* OBSOLETE  */
+/* OBSOLETE   fflush (adapt_stream); */
+/* OBSOLETE   immediate_quit++; */
+/* OBSOLETE   while (1) */
+/* OBSOLETE     { */
+/* OBSOLETE       if (readchar () == *p) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  p++; */
+/* OBSOLETE 	  if (*p == '\0') */
+/* OBSOLETE 	    { */
+/* OBSOLETE 	      immediate_quit--; */
+/* OBSOLETE 	      return; */
+/* OBSOLETE 	    } */
+/* OBSOLETE 	} */
+/* OBSOLETE       else */
+/* OBSOLETE 	p = string; */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Keep discarding input until we see the adapt prompt. */
+/* OBSOLETE  */
+/* OBSOLETE    The convention for dealing with the prompt is that you */
+/* OBSOLETE    o give your command */
+/* OBSOLETE    o *then* wait for the prompt. */
+/* OBSOLETE  */
+/* OBSOLETE    Thus the last thing that a procedure does with the serial line */
+/* OBSOLETE    will be an expect_prompt().  Exception:  adapt_resume does not */
+/* OBSOLETE    wait for the prompt, because the terminal is being handed over */
+/* OBSOLETE    to the inferior.  However, the next thing which happens after that */
+/* OBSOLETE    is a adapt_wait which does wait for the prompt. */
+/* OBSOLETE    Note that this includes abnormal exit, e.g. error().  This is */
+/* OBSOLETE    necessary to prevent getting into states from which we can't */
+/* OBSOLETE    recover.  */ */
+/* OBSOLETE static void */
+/* OBSOLETE expect_prompt (void) */
+/* OBSOLETE { */
+/* OBSOLETE #if defined (LOG_FILE) */
+/* OBSOLETE   /* This is a convenient place to do this.  The idea is to do it often */
+/* OBSOLETE      enough that we never lose much data if we terminate abnormally.  */ */
+/* OBSOLETE   fflush (log_file); */
+/* OBSOLETE #endif */
+/* OBSOLETE   fflush (adapt_stream); */
+/* OBSOLETE   expect ("\n# "); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Get a hex digit from the remote system & return its value. */
+/* OBSOLETE    If ignore_space is nonzero, ignore spaces (not newline, tab, etc).  */ */
+/* OBSOLETE static int */
+/* OBSOLETE get_hex_digit (int ignore_space) */
+/* OBSOLETE { */
+/* OBSOLETE   int ch; */
+/* OBSOLETE   while (1) */
+/* OBSOLETE     { */
+/* OBSOLETE       ch = readchar (); */
+/* OBSOLETE       if (ch >= '0' && ch <= '9') */
+/* OBSOLETE 	return ch - '0'; */
+/* OBSOLETE       else if (ch >= 'A' && ch <= 'F') */
+/* OBSOLETE 	return ch - 'A' + 10; */
+/* OBSOLETE       else if (ch >= 'a' && ch <= 'f') */
+/* OBSOLETE 	return ch - 'a' + 10; */
+/* OBSOLETE       else if (ch == ' ' && ignore_space) */
+/* OBSOLETE 	; */
+/* OBSOLETE       else */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  expect_prompt (); */
+/* OBSOLETE 	  error ("Invalid hex digit from remote system."); */
+/* OBSOLETE 	} */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Get a byte from adapt_desc and put it in *BYT.  Accept any number */
+/* OBSOLETE    leading spaces.  */ */
+/* OBSOLETE static void */
+/* OBSOLETE get_hex_byte (char *byt) */
+/* OBSOLETE { */
+/* OBSOLETE   int val; */
+/* OBSOLETE  */
+/* OBSOLETE   val = get_hex_digit (1) << 4; */
+/* OBSOLETE   val |= get_hex_digit (0); */
+/* OBSOLETE   *byt = val; */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Read a 32-bit hex word from the adapt, preceded by a space  */ */
+/* OBSOLETE static long */
+/* OBSOLETE get_hex_word (void) */
+/* OBSOLETE { */
+/* OBSOLETE   long val; */
+/* OBSOLETE   int j; */
+/* OBSOLETE  */
+/* OBSOLETE   val = 0; */
+/* OBSOLETE   for (j = 0; j < 8; j++) */
+/* OBSOLETE     val = (val << 4) + get_hex_digit (j == 0); */
+/* OBSOLETE   return val; */
+/* OBSOLETE } */
+/* OBSOLETE /* Get N 32-bit hex words from remote, each preceded by a space  */
+/* OBSOLETE    and put them in registers starting at REGNO.  */ */
+/* OBSOLETE static void */
+/* OBSOLETE get_hex_regs (int n, int regno) */
+/* OBSOLETE { */
+/* OBSOLETE   long val; */
+/* OBSOLETE   while (n--) */
+/* OBSOLETE     { */
+/* OBSOLETE       val = get_hex_word (); */
+/* OBSOLETE       supply_register (regno++, (char *) &val); */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE /* Called when SIGALRM signal sent due to alarm() timeout.  */ */
+/* OBSOLETE #ifndef HAVE_TERMIO */
+/* OBSOLETE  */
+/* OBSOLETE volatile int n_alarms; */
+/* OBSOLETE  */
+/* OBSOLETE void */
+/* OBSOLETE adapt_timer (void) */
+/* OBSOLETE { */
+/* OBSOLETE #if 0 */
+/* OBSOLETE   if (kiodebug) */
+/* OBSOLETE     printf ("adapt_timer called\n"); */
+/* OBSOLETE #endif */
+/* OBSOLETE   n_alarms++; */
+/* OBSOLETE } */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE /* malloc'd name of the program on the remote system.  */ */
+/* OBSOLETE static char *prog_name = NULL; */
+/* OBSOLETE  */
+/* OBSOLETE /* Number of SIGTRAPs we need to simulate.  That is, the next */
+/* OBSOLETE    NEED_ARTIFICIAL_TRAP calls to adapt_wait should just return */
+/* OBSOLETE    SIGTRAP without actually waiting for anything.  */ */
+/* OBSOLETE  */
+/* OBSOLETE static int need_artificial_trap = 0; */
+/* OBSOLETE  */
+/* OBSOLETE void */
+/* OBSOLETE adapt_kill (char *arg, int from_tty) */
+/* OBSOLETE { */
+/* OBSOLETE   fprintf (adapt_stream, "K"); */
+/* OBSOLETE   fprintf (adapt_stream, "\r"); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE } */
+/* OBSOLETE /* */
+/* OBSOLETE  * Download a file specified in 'args', to the adapt.  */
+/* OBSOLETE  * FIXME: Assumes the file to download is a binary coff file. */
+/* OBSOLETE  */ */
+/* OBSOLETE static void */
+/* OBSOLETE adapt_load (char *args, int fromtty) */
+/* OBSOLETE { */
+/* OBSOLETE   FILE *fp; */
+/* OBSOLETE   int n; */
+/* OBSOLETE   char buffer[1024]; */
+/* OBSOLETE  */
+/* OBSOLETE   if (!adapt_stream) */
+/* OBSOLETE     { */
+/* OBSOLETE       printf_filtered ("Adapt not open. Use 'target' command to open adapt\n"); */
+/* OBSOLETE       return; */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE   /* OK, now read in the file.  Y=read, C=COFF, T=dTe port */
+/* OBSOLETE      0=start address.  */ */
+/* OBSOLETE  */
+/* OBSOLETE #ifdef ASCII_COFF		/* Ascii coff */ */
+/* OBSOLETE   fprintf (adapt_stream, "YA T,0\r"); */
+/* OBSOLETE   fflush (adapt_stream);	/* Just in case */ */
+/* OBSOLETE   /* FIXME: should check args for only 1 argument */ */
+/* OBSOLETE   sprintf (buffer, "cat %s | btoa > /tmp/#adapt-btoa", args); */
+/* OBSOLETE   system (buffer); */
+/* OBSOLETE   fp = fopen ("/tmp/#adapt-btoa", "r"); */
+/* OBSOLETE   rawmode (adapt_desc, OFF); */
+/* OBSOLETE   while (n = fread (buffer, 1, 1024, fp)) */
+/* OBSOLETE     { */
+/* OBSOLETE       do */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  n -= write (adapt_desc, buffer, n); */
+/* OBSOLETE 	} */
+/* OBSOLETE       while (n > 0); */
+/* OBSOLETE       if (n < 0) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  perror ("writing ascii coff"); */
+/* OBSOLETE 	  break; */
+/* OBSOLETE 	} */
+/* OBSOLETE     } */
+/* OBSOLETE   fclose (fp); */
+/* OBSOLETE   rawmode (adapt_desc, ON); */
+/* OBSOLETE   system ("rm /tmp/#adapt-btoa"); */
+/* OBSOLETE #else /* Binary coff - can't get it to work . */ */
+/* OBSOLETE   fprintf (adapt_stream, "YC T,0\r"); */
+/* OBSOLETE   fflush (adapt_stream);	/* Just in case */ */
+/* OBSOLETE   if (!(fp = fopen (args, "r"))) */
+/* OBSOLETE     { */
+/* OBSOLETE       printf_filtered ("Can't open %s\n", args); */
+/* OBSOLETE       return; */
+/* OBSOLETE     } */
+/* OBSOLETE   while (n = fread (buffer, 1, 512, fp)) */
+/* OBSOLETE     { */
+/* OBSOLETE       do */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  n -= write (adapt_desc, buffer, n); */
+/* OBSOLETE 	} */
+/* OBSOLETE       while (n > 0); */
+/* OBSOLETE       if (n < 0) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  perror ("writing ascii coff"); */
+/* OBSOLETE 	  break; */
+/* OBSOLETE 	} */
+/* OBSOLETE     } */
+/* OBSOLETE   fclose (fp); */
+/* OBSOLETE #endif */
+/* OBSOLETE   expect_prompt ();		/* Skip garbage that comes out */ */
+/* OBSOLETE   fprintf (adapt_stream, "\r"); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* This is called not only when we first attach, but also when the */
+/* OBSOLETE    user types "run" after having attached.  */ */
+/* OBSOLETE void */
+/* OBSOLETE adapt_create_inferior (char *execfile, char *args, char **env) */
+/* OBSOLETE { */
+/* OBSOLETE   int entry_pt; */
+/* OBSOLETE  */
+/* OBSOLETE   if (args && *args) */
+/* OBSOLETE     error ("Can't pass arguments to remote adapt process."); */
+/* OBSOLETE  */
+/* OBSOLETE   if (execfile == 0 || exec_bfd == 0) */
+/* OBSOLETE     error ("No executable file specified"); */
+/* OBSOLETE  */
+/* OBSOLETE   entry_pt = (int) bfd_get_start_address (exec_bfd); */
+/* OBSOLETE  */
+/* OBSOLETE   if (adapt_stream) */
+/* OBSOLETE     { */
+/* OBSOLETE       adapt_kill (NULL, NULL); */
+/* OBSOLETE       adapt_clear_breakpoints (); */
+/* OBSOLETE       init_wait_for_inferior (); */
+/* OBSOLETE       /* Clear the input because what the adapt sends back is different */
+/* OBSOLETE        * depending on whether it was running or not. */
+/* OBSOLETE        */ */
+/* OBSOLETE       slurp_input ();		/* After this there should be a prompt */ */
+/* OBSOLETE       fprintf (adapt_stream, "\r"); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE       printf_filtered ("Do you want to download '%s' (y/n)? [y] : ", prog_name); */
+/* OBSOLETE       { */
+/* OBSOLETE 	char buffer[10]; */
+/* OBSOLETE 	gets (buffer); */
+/* OBSOLETE 	if (*buffer != 'n') */
+/* OBSOLETE 	  { */
+/* OBSOLETE 	    adapt_load (prog_name, 0); */
+/* OBSOLETE 	  } */
+/* OBSOLETE       } */
+/* OBSOLETE  */
+/* OBSOLETE #ifdef NOTDEF */
+/* OBSOLETE       /* Set the PC and wait for a go/cont */ */
+/* OBSOLETE       fprintf (adapt_stream, "G %x,N\r", entry_pt); */
+/* OBSOLETE       printf_filtered ("Now use the 'continue' command to start.\n"); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE #else */
+/* OBSOLETE       insert_breakpoints ();	/* Needed to get correct instruction in cache */ */
+/* OBSOLETE       proceed (entry_pt, TARGET_SIGNAL_DEFAULT, 0); */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE     } */
+/* OBSOLETE   else */
+/* OBSOLETE     { */
+/* OBSOLETE       printf_filtered ("Adapt not open yet.\n"); */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Translate baud rates from integers to damn B_codes.  Unix should */
+/* OBSOLETE    have outgrown this crap years ago, but even POSIX wouldn't buck it.  */ */
+/* OBSOLETE  */
+/* OBSOLETE #ifndef B19200 */
+/* OBSOLETE #define B19200 EXTA */
+/* OBSOLETE #endif */
+/* OBSOLETE #ifndef B38400 */
+/* OBSOLETE #define B38400 EXTB */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE static struct */
+/* OBSOLETE { */
+/* OBSOLETE   int rate, damn_b; */
+/* OBSOLETE } */
+/* OBSOLETE baudtab[] = */
+/* OBSOLETE { */
+/* OBSOLETE   { */
+/* OBSOLETE     0, B0 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     50, B50 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     75, B75 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     110, B110 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     134, B134 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     150, B150 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     200, B200 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     300, B300 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     600, B600 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     1200, B1200 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     1800, B1800 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     2400, B2400 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     4800, B4800 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     9600, B9600 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     19200, B19200 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     38400, B38400 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE   { */
+/* OBSOLETE     -1, -1 */
+/* OBSOLETE   } */
+/* OBSOLETE   , */
+/* OBSOLETE }; */
+/* OBSOLETE  */
+/* OBSOLETE static int */
+/* OBSOLETE damn_b (int rate) */
+/* OBSOLETE { */
+/* OBSOLETE   int i; */
+/* OBSOLETE  */
+/* OBSOLETE   for (i = 0; baudtab[i].rate != -1; i++) */
+/* OBSOLETE     if (rate == baudtab[i].rate) */
+/* OBSOLETE       return baudtab[i].damn_b; */
+/* OBSOLETE   return B38400;		/* Random */ */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE  */
+/* OBSOLETE /* Open a connection to a remote debugger. */
+/* OBSOLETE    NAME is the filename used for communication, then a space, */
+/* OBSOLETE    then the baud rate. */
+/* OBSOLETE  */ */
+/* OBSOLETE  */
+/* OBSOLETE static int baudrate = 9600; */
+/* OBSOLETE static void */
+/* OBSOLETE adapt_open (char *name, int from_tty) */
+/* OBSOLETE { */
+/* OBSOLETE   TERMINAL sg; */
+/* OBSOLETE   unsigned int prl; */
+/* OBSOLETE   char *p; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Find the first whitespace character, it separates dev_name from */
+/* OBSOLETE      prog_name.  */ */
+/* OBSOLETE   if (name == 0) */
+/* OBSOLETE     goto erroid; */
+/* OBSOLETE  */
+/* OBSOLETE   for (p = name; */
+/* OBSOLETE        *p != '\0' && !isspace (*p); p++) */
+/* OBSOLETE     ; */
+/* OBSOLETE   if (*p == '\0') */
+/* OBSOLETE   erroid: */
+/* OBSOLETE     error ("\ */
+/* OBSOLETE Please include the name of the device for the serial port,\n\ */
+/* OBSOLETE the baud rate, and the name of the program to run on the remote system."); */
+/* OBSOLETE   dev_name = (char *) xmalloc (p - name + 1); */
+/* OBSOLETE   strncpy (dev_name, name, p - name); */
+/* OBSOLETE   dev_name[p - name] = '\0'; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Skip over the whitespace after dev_name */ */
+/* OBSOLETE   for (; isspace (*p); p++) */
+/* OBSOLETE     /*EMPTY */ ; */
+/* OBSOLETE  */
+/* OBSOLETE   if (1 != sscanf (p, "%d ", &baudrate)) */
+/* OBSOLETE     goto erroid; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Skip the number and then the spaces */ */
+/* OBSOLETE   for (; isdigit (*p); p++) */
+/* OBSOLETE     /*EMPTY */ ; */
+/* OBSOLETE   for (; isspace (*p); p++) */
+/* OBSOLETE     /*EMPTY */ ; */
+/* OBSOLETE  */
+/* OBSOLETE   if (prog_name != NULL) */
+/* OBSOLETE     xfree (prog_name); */
+/* OBSOLETE   prog_name = savestring (p, strlen (p)); */
+/* OBSOLETE  */
+/* OBSOLETE   adapt_close (0); */
+/* OBSOLETE  */
+/* OBSOLETE   adapt_desc = open (dev_name, O_RDWR); */
+/* OBSOLETE   if (adapt_desc < 0) */
+/* OBSOLETE     perror_with_name (dev_name); */
+/* OBSOLETE   ioctl (adapt_desc, TIOCGETP, &sg); */
+/* OBSOLETE #if ! defined(COMPILE_CHECK) */
+/* OBSOLETE #ifdef HAVE_TERMIO */
+/* OBSOLETE   sg.c_cc[VMIN] = 0;		/* read with timeout.  */ */
+/* OBSOLETE   sg.c_cc[VTIME] = timeout * 10; */
+/* OBSOLETE   sg.c_lflag &= ~(ICANON | ECHO); */
+/* OBSOLETE   sg.c_cflag = (sg.c_cflag & ~CBAUD) | damn_b (baudrate); */
+/* OBSOLETE #else */
+/* OBSOLETE   sg.sg_ispeed = damn_b (baudrate); */
+/* OBSOLETE   sg.sg_ospeed = damn_b (baudrate); */
+/* OBSOLETE   sg.sg_flags |= RAW | ANYP; */
+/* OBSOLETE   sg.sg_flags &= ~ECHO; */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE   ioctl (adapt_desc, TIOCSETP, &sg); */
+/* OBSOLETE   adapt_stream = fdopen (adapt_desc, "r+"); */
+/* OBSOLETE #endif /* compile_check */ */
+/* OBSOLETE   push_target (&adapt_ops); */
+/* OBSOLETE  */
+/* OBSOLETE #ifndef HAVE_TERMIO */
+/* OBSOLETE #ifndef NO_SIGINTERRUPT */
+/* OBSOLETE   /* Cause SIGALRM's to make reads fail with EINTR instead of resuming */
+/* OBSOLETE      the read.  */ */
+/* OBSOLETE   if (siginterrupt (SIGALRM, 1) != 0) */
+/* OBSOLETE     perror ("adapt_open: error in siginterrupt"); */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE   /* Set up read timeout timer.  */ */
+/* OBSOLETE   if ((void (*)) signal (SIGALRM, adapt_timer) == (void (*)) -1) */
+/* OBSOLETE     perror ("adapt_open: error in signal"); */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE #if defined (LOG_FILE) */
+/* OBSOLETE   log_file = fopen (LOG_FILE, "w"); */
+/* OBSOLETE   if (log_file == NULL) */
+/* OBSOLETE     perror_with_name (LOG_FILE); */
+/* OBSOLETE #endif */
+/* OBSOLETE  */
+/* OBSOLETE   /* Put this port into NORMAL mode, send the 'normal' character */ */
+/* OBSOLETE   write (adapt_desc, "
", 1);	/* Control A */ */
+/* OBSOLETE   write (adapt_desc, "\r", 1); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE  */
+/* OBSOLETE   /* Hello?  Are you there?  */ */
+/* OBSOLETE   write (adapt_desc, "\r", 1); */
+/* OBSOLETE  */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE  */
+/* OBSOLETE   /* Clear any break points */ */
+/* OBSOLETE   adapt_clear_breakpoints (); */
+/* OBSOLETE  */
+/* OBSOLETE   /* Print out some stuff, letting the user now what's going on */ */
+/* OBSOLETE   printf_filtered ("Connected to an Adapt via %s.\n", dev_name); */
+/* OBSOLETE   /* FIXME: can this restriction be removed? */ */
+/* OBSOLETE   printf_filtered ("Remote debugging using virtual addresses works only\n"); */
+/* OBSOLETE   printf_filtered ("\twhen virtual addresses map 1:1 to physical addresses.\n"); */
+/* OBSOLETE   if (processor_type != a29k_freeze_mode) */
+/* OBSOLETE     { */
+/* OBSOLETE       fprintf_filtered (gdb_stderr, */
+/* OBSOLETE 			"Freeze-mode debugging not available, and can only be done on an A29050.\n"); */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Close out all files and local state before this target loses control. */ */
+/* OBSOLETE  */
+/* OBSOLETE static void */
+/* OBSOLETE adapt_close (int quitting) */
+/* OBSOLETE { */
+/* OBSOLETE  */
+/* OBSOLETE   /* Clear any break points */ */
+/* OBSOLETE   adapt_clear_breakpoints (); */
+/* OBSOLETE  */
+/* OBSOLETE   /* Put this port back into REMOTE mode */ */
+/* OBSOLETE   if (adapt_stream) */
+/* OBSOLETE     { */
+/* OBSOLETE       fflush (adapt_stream); */
+/* OBSOLETE       sleep (1);		/* Let any output make it all the way back */ */
+/* OBSOLETE       write (adapt_desc, "R\r", 2); */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE   /* Due to a bug in Unix, fclose closes not only the stdio stream, */
+/* OBSOLETE      but also the file descriptor.  So we don't actually close */
+/* OBSOLETE      adapt_desc.  */ */
+/* OBSOLETE   if (adapt_stream) */
+/* OBSOLETE     fclose (adapt_stream);	/* This also closes adapt_desc */ */
+/* OBSOLETE   if (adapt_desc >= 0) */
+/* OBSOLETE     /* close (adapt_desc); */ */
+/* OBSOLETE  */
+/* OBSOLETE     /* Do not try to close adapt_desc again, later in the program.  */ */
+/* OBSOLETE     adapt_stream = NULL; */
+/* OBSOLETE   adapt_desc = -1; */
+/* OBSOLETE  */
+/* OBSOLETE #if defined (LOG_FILE) */
+/* OBSOLETE   if (log_file) */
+/* OBSOLETE     { */
+/* OBSOLETE       if (ferror (log_file)) */
+/* OBSOLETE 	printf_filtered ("Error writing log file.\n"); */
+/* OBSOLETE       if (fclose (log_file) != 0) */
+/* OBSOLETE 	printf_filtered ("Error closing log file.\n"); */
+/* OBSOLETE       log_file = NULL; */
+/* OBSOLETE     } */
+/* OBSOLETE #endif */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Attach to the target that is already loaded and possibly running */ */
+/* OBSOLETE static void */
+/* OBSOLETE adapt_attach (char *args, int from_tty) */
+/* OBSOLETE { */
+/* OBSOLETE  */
+/* OBSOLETE   if (from_tty) */
+/* OBSOLETE     printf_filtered ("Attaching to remote program %s.\n", prog_name); */
+/* OBSOLETE  */
+/* OBSOLETE   /* Send the adapt a kill. It is ok if it is not already running */ */
+/* OBSOLETE   fprintf (adapt_stream, "K\r"); */
+/* OBSOLETE   fflush (adapt_stream); */
+/* OBSOLETE   expect_prompt ();		/* Slurp the echo */ */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE  */
+/* OBSOLETE /* Terminate the open connection to the remote debugger. */
+/* OBSOLETE    Use this when you want to detach and do something else */
+/* OBSOLETE    with your gdb.  */ */
+/* OBSOLETE void */
+/* OBSOLETE adapt_detach (char *args, int from_tty) */
+/* OBSOLETE { */
+/* OBSOLETE  */
+/* OBSOLETE   if (adapt_stream) */
+/* OBSOLETE     {				/* Send it on its way (tell it to continue)  */ */
+/* OBSOLETE       adapt_clear_breakpoints (); */
+/* OBSOLETE       fprintf (adapt_stream, "G\r"); */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE   pop_target ();		/* calls adapt_close to do the real work */ */
+/* OBSOLETE   if (from_tty) */
+/* OBSOLETE     printf_filtered ("Ending remote %s debugging\n", target_shortname); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Tell the remote machine to resume.  */ */
+/* OBSOLETE  */
+/* OBSOLETE void */
+/* OBSOLETE adapt_resume (ptid_t ptid, int step, enum target_signal sig) */
+/* OBSOLETE { */
+/* OBSOLETE   if (step) */
+/* OBSOLETE     { */
+/* OBSOLETE       write (adapt_desc, "t 1,s\r", 6); */
+/* OBSOLETE       /* Wait for the echo.  */ */
+/* OBSOLETE       expect ("t 1,s\r\n"); */
+/* OBSOLETE       /* Then comes a line containing the instruction we stepped to.  */ */
+/* OBSOLETE       expect ("@"); */
+/* OBSOLETE       /* Then we get the prompt.  */ */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE  */
+/* OBSOLETE       /* Force the next adapt_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     { */
+/* OBSOLETE       write (adapt_desc, "G\r", 2); */
+/* OBSOLETE       /* Swallow the echo.  */ */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Wait until the remote machine stops, then return, */
+/* OBSOLETE    storing status in STATUS just as `wait' would.  */ */
+/* OBSOLETE  */
+/* OBSOLETE ptid_t */
+/* OBSOLETE adapt_wait (ptid_t ptid, struct target_waitstatus *status) */
+/* OBSOLETE { */
+/* OBSOLETE   /* Strings to look for.  '?' means match any single character.   */
+/* OBSOLETE      Note that with the algorithm we use, the initial character */
+/* OBSOLETE      of the string cannot recur in the string, or we will not */
+/* OBSOLETE      find some cases of the string in the input.  */ */
+/* OBSOLETE  */
+/* OBSOLETE   static char bpt[] = "@"; */
+/* OBSOLETE   /* It would be tempting to look for "\n[__exit + 0x8]\n" */
+/* OBSOLETE      but that requires loading symbols with "yc i" and even if */
+/* OBSOLETE      we did do that we don't know that the file has symbols.  */ */
+/* OBSOLETE   static char exitmsg[] = "@????????I    JMPTI     GR121,LR0"; */
+/* OBSOLETE   char *bp = bpt; */
+/* OBSOLETE   char *ep = exitmsg; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Large enough for either sizeof (bpt) or sizeof (exitmsg) chars.  */ */
+/* OBSOLETE   char swallowed[50]; */
+/* OBSOLETE   /* Current position in swallowed.  */ */
+/* OBSOLETE   char *swallowed_p = swallowed; */
+/* OBSOLETE  */
+/* OBSOLETE   int ch; */
+/* OBSOLETE   int ch_handled; */
+/* OBSOLETE   int old_timeout = timeout; */
+/* OBSOLETE   int old_immediate_quit = immediate_quit; */
+/* OBSOLETE  */
+/* OBSOLETE   status->kind = TARGET_WAITKIND_EXITED; */
+/* OBSOLETE   status->value.integer = 0; */
+/* OBSOLETE  */
+/* OBSOLETE   if (need_artificial_trap != 0) */
+/* OBSOLETE     { */
+/* OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED; */
+/* OBSOLETE       status->value.sig = TARGET_SIGNAL_TRAP; */
+/* OBSOLETE       need_artificial_trap--; */
+/* OBSOLETE       return inferior_ptid; */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE   timeout = 0;			/* Don't time out -- user program is running. */ */
+/* OBSOLETE   immediate_quit = 1;		/* Helps ability to QUIT */ */
+/* OBSOLETE   while (1) */
+/* OBSOLETE     { */
+/* OBSOLETE       QUIT;			/* Let user quit and leave process running */ */
+/* OBSOLETE       ch_handled = 0; */
+/* OBSOLETE       ch = readchar (); */
+/* OBSOLETE       if (ch == *bp) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  bp++; */
+/* OBSOLETE 	  if (*bp == '\0') */
+/* OBSOLETE 	    break; */
+/* OBSOLETE 	  ch_handled = 1; */
+/* OBSOLETE  */
+/* OBSOLETE 	  *swallowed_p++ = ch; */
+/* OBSOLETE 	} */
+/* OBSOLETE       else */
+/* OBSOLETE 	bp = bpt; */
+/* OBSOLETE       if (ch == *ep || *ep == '?') */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  ep++; */
+/* OBSOLETE 	  if (*ep == '\0') */
+/* OBSOLETE 	    break; */
+/* OBSOLETE  */
+/* OBSOLETE 	  if (!ch_handled) */
+/* OBSOLETE 	    *swallowed_p++ = ch; */
+/* OBSOLETE 	  ch_handled = 1; */
+/* OBSOLETE 	} */
+/* OBSOLETE       else */
+/* OBSOLETE 	ep = exitmsg; */
+/* OBSOLETE       if (!ch_handled) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  char *p; */
+/* OBSOLETE 	  /* Print out any characters which have been swallowed.  */ */
+/* OBSOLETE 	  for (p = swallowed; p < swallowed_p; ++p) */
+/* OBSOLETE 	    putc (*p, stdout); */
+/* OBSOLETE 	  swallowed_p = swallowed; */
+/* OBSOLETE 	  putc (ch, stdout); */
+/* OBSOLETE 	} */
+/* OBSOLETE     } */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE   if (*bp == '\0') */
+/* OBSOLETE     { */
+/* OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED; */
+/* OBSOLETE       status->value.sig = TARGET_SIGNAL_TRAP; */
+/* OBSOLETE     } */
+/* OBSOLETE   else */
+/* OBSOLETE     { */
+/* OBSOLETE       status->kind = TARGET_WAITKIND_EXITED; */
+/* OBSOLETE       status->value.integer = 0; */
+/* OBSOLETE     } */
+/* OBSOLETE   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 adapt. */
+/* 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 buf[80]; */
+/* OBSOLETE   if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32) */
+/* OBSOLETE     sprintf (buf, "GR%03d", regno - GR96_REGNUM + 96); */
+/* OBSOLETE #if defined(GR64_REGNUM) */
+/* OBSOLETE   else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32) */
+/* OBSOLETE     sprintf (buf, "GR%03d", regno - GR64_REGNUM + 64); */
+/* OBSOLETE #endif */
+/* OBSOLETE   else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) */
+/* OBSOLETE     sprintf (buf, "LR%03d", regno - LR0_REGNUM); */
+/* OBSOLETE   else if (regno == Q_REGNUM) */
+/* OBSOLETE     strcpy (buf, "SR131"); */
+/* OBSOLETE   else if (regno >= BP_REGNUM && regno <= CR_REGNUM) */
+/* OBSOLETE     sprintf (buf, "SR%03d", regno - BP_REGNUM + 133); */
+/* OBSOLETE   else if (regno == ALU_REGNUM) */
+/* OBSOLETE     strcpy (buf, "SR132"); */
+/* OBSOLETE   else if (regno >= IPC_REGNUM && regno <= IPB_REGNUM) */
+/* OBSOLETE     sprintf (buf, "SR%03d", regno - IPC_REGNUM + 128); */
+/* OBSOLETE   else if (regno >= VAB_REGNUM && regno <= LRU_REGNUM) */
+/* OBSOLETE     { */
+/* OBSOLETE       /* When a 29050 is in freeze-mode, read shadow pcs instead */ */
+/* OBSOLETE       if ((regno >= NPC_REGNUM && regno <= PC2_REGNUM) && USE_SHADOW_PC) */
+/* OBSOLETE 	sprintf (buf, "SR%03d", regno - NPC_REGNUM + 20); */
+/* OBSOLETE       else */
+/* OBSOLETE 	sprintf (buf, "SR%03d", regno - VAB_REGNUM); */
+/* OBSOLETE     } */
+/* OBSOLETE   else if (regno == GR1_REGNUM) */
+/* OBSOLETE     strcpy (buf, "GR001"); */
+/* OBSOLETE   return buf; */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Read the remote registers.  */ */
+/* OBSOLETE  */
+/* OBSOLETE static void */
+/* OBSOLETE adapt_fetch_registers (void) */
+/* OBSOLETE { */
+/* OBSOLETE   int reg_index; */
+/* OBSOLETE   int regnum_index; */
+/* OBSOLETE   char tempbuf[10]; */
+/* OBSOLETE   int sreg_buf[16]; */
+/* OBSOLETE   int i, j; */
+/* OBSOLETE  */
+/* OBSOLETE /*  */
+/* OBSOLETE  * Global registers */
+/* OBSOLETE  */ */
+/* OBSOLETE #if defined(GR64_REGNUM) */
+/* OBSOLETE   write (adapt_desc, "dw gr64,gr95\r", 13); */
+/* OBSOLETE   for (reg_index = 64, regnum_index = GR64_REGNUM; */
+/* OBSOLETE        reg_index < 96; */
+/* OBSOLETE        reg_index += 4, regnum_index += 4) */
+/* OBSOLETE     { */
+/* OBSOLETE       sprintf (tempbuf, "GR%03d ", reg_index); */
+/* OBSOLETE       expect (tempbuf); */
+/* OBSOLETE       get_hex_regs (4, regnum_index); */
+/* OBSOLETE       expect ("\n"); */
+/* OBSOLETE     } */
+/* OBSOLETE #endif */
+/* OBSOLETE   write (adapt_desc, "dw gr96,gr127\r", 14); */
+/* OBSOLETE   for (reg_index = 96, regnum_index = GR96_REGNUM; */
+/* OBSOLETE        reg_index < 128; */
+/* OBSOLETE        reg_index += 4, regnum_index += 4) */
+/* OBSOLETE     { */
+/* OBSOLETE       sprintf (tempbuf, "GR%03d ", reg_index); */
+/* OBSOLETE       expect (tempbuf); */
+/* OBSOLETE       get_hex_regs (4, regnum_index); */
+/* OBSOLETE       expect ("\n"); */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE /*  */
+/* OBSOLETE  * Local registers */
+/* OBSOLETE  */ */
+/* OBSOLETE   for (i = 0; i < 128; i += 32) */
+/* OBSOLETE     { */
+/* OBSOLETE       /* The PC has a tendency to hang if we get these */
+/* OBSOLETE          all in one fell swoop ("dw lr0,lr127").  */ */
+/* OBSOLETE       sprintf (tempbuf, "dw lr%d\r", i); */
+/* OBSOLETE       write (adapt_desc, tempbuf, strlen (tempbuf)); */
+/* OBSOLETE       for (reg_index = i, regnum_index = LR0_REGNUM + i; */
+/* OBSOLETE 	   reg_index < i + 32; */
+/* OBSOLETE 	   reg_index += 4, regnum_index += 4) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  sprintf (tempbuf, "LR%03d ", reg_index); */
+/* OBSOLETE 	  expect (tempbuf); */
+/* OBSOLETE 	  get_hex_regs (4, regnum_index); */
+/* OBSOLETE 	  expect ("\n"); */
+/* OBSOLETE 	} */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE /*  */
+/* OBSOLETE  * Special registers */
+/* OBSOLETE  */ */
+/* OBSOLETE   sprintf (tempbuf, "dw sr0\r"); */
+/* OBSOLETE   write (adapt_desc, tempbuf, strlen (tempbuf)); */
+/* OBSOLETE   for (i = 0; i < 4; i++) */
+/* OBSOLETE     {				/* SR0 - SR14 */ */
+/* OBSOLETE       sprintf (tempbuf, "SR%3d", i * 4); */
+/* OBSOLETE       expect (tempbuf); */
+/* OBSOLETE       for (j = 0; j < (i == 3 ? 3 : 4); j++) */
+/* OBSOLETE 	sreg_buf[i * 4 + j] = get_hex_word (); */
+/* OBSOLETE     } */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE   /*  */
+/* OBSOLETE    * Read the pcs individually if we are in freeze mode. */
+/* OBSOLETE    * See get_reg_name(), it translates the register names for the pcs to */
+/* OBSOLETE    * the names of the shadow pcs. */
+/* OBSOLETE    */ */
+/* OBSOLETE   if (USE_SHADOW_PC) */
+/* OBSOLETE     { */
+/* OBSOLETE       sreg_buf[10] = read_register (NPC_REGNUM);	/* pc0 */ */
+/* OBSOLETE       sreg_buf[11] = read_register (PC_REGNUM);		/* pc1 */ */
+/* OBSOLETE       sreg_buf[12] = read_register (PC2_REGNUM);	/* pc2 */ */
+/* OBSOLETE     } */
+/* OBSOLETE   for (i = 0; i < 14; i++)	/* Supply vab -> lru */ */
+/* OBSOLETE     supply_register (VAB_REGNUM + i, (char *) &sreg_buf[i]); */
+/* OBSOLETE   sprintf (tempbuf, "dw sr128\r"); */
+/* OBSOLETE   write (adapt_desc, tempbuf, strlen (tempbuf)); */
+/* OBSOLETE   for (i = 0; i < 2; i++) */
+/* OBSOLETE     {				/* SR128 - SR135 */ */
+/* OBSOLETE       sprintf (tempbuf, "SR%3d", 128 + i * 4); */
+/* OBSOLETE       expect (tempbuf); */
+/* OBSOLETE       for (j = 0; j < 4; j++) */
+/* OBSOLETE 	sreg_buf[i * 4 + j] = get_hex_word (); */
+/* OBSOLETE     } */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE   supply_register (IPC_REGNUM, (char *) &sreg_buf[0]); */
+/* OBSOLETE   supply_register (IPA_REGNUM, (char *) &sreg_buf[1]); */
+/* OBSOLETE   supply_register (IPB_REGNUM, (char *) &sreg_buf[2]); */
+/* OBSOLETE   supply_register (Q_REGNUM, (char *) &sreg_buf[3]); */
+/* OBSOLETE   /* Skip ALU */ */
+/* OBSOLETE   supply_register (BP_REGNUM, (char *) &sreg_buf[5]); */
+/* OBSOLETE   supply_register (FC_REGNUM, (char *) &sreg_buf[6]); */
+/* OBSOLETE   supply_register (CR_REGNUM, (char *) &sreg_buf[7]); */
+/* OBSOLETE  */
+/* OBSOLETE   /* There doesn't seem to be any way to get these.  */ */
+/* OBSOLETE   { */
+/* OBSOLETE     int val = -1; */
+/* OBSOLETE     supply_register (FPE_REGNUM, (char *) &val); */
+/* OBSOLETE     supply_register (INTE_REGNUM, (char *) &val); */
+/* OBSOLETE     supply_register (FPS_REGNUM, (char *) &val); */
+/* OBSOLETE     supply_register (EXO_REGNUM, (char *) &val); */
+/* OBSOLETE   } */
+/* OBSOLETE  */
+/* OBSOLETE   write (adapt_desc, "dw gr1,gr1\r", 11); */
+/* OBSOLETE   expect ("GR001 "); */
+/* OBSOLETE   get_hex_regs (1, GR1_REGNUM); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Fetch register REGNO, or all registers if REGNO is -1. */
+/* OBSOLETE  */ */
+/* OBSOLETE static void */
+/* OBSOLETE adapt_fetch_register (int regno) */
+/* OBSOLETE { */
+/* OBSOLETE   if (regno == -1) */
+/* OBSOLETE     adapt_fetch_registers (); */
+/* OBSOLETE   else */
+/* OBSOLETE     { */
+/* OBSOLETE       char *name = get_reg_name (regno); */
+/* OBSOLETE       fprintf (adapt_stream, "dw %s,%s\r", name, name); */
+/* OBSOLETE       expect (name); */
+/* OBSOLETE       expect (" "); */
+/* OBSOLETE       get_hex_regs (1, regno); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Store the remote registers from the contents of the block REGS.  */ */
+/* OBSOLETE  */
+/* OBSOLETE static void */
+/* OBSOLETE adapt_store_registers (void) */
+/* OBSOLETE { */
+/* OBSOLETE   int i, j; */
+/* OBSOLETE  */
+/* OBSOLETE   fprintf (adapt_stream, "s gr1,%x\r", read_register (GR1_REGNUM)); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE  */
+/* OBSOLETE #if defined(GR64_REGNUM) */
+/* OBSOLETE   for (j = 0; j < 32; j += 16) */
+/* OBSOLETE     { */
+/* OBSOLETE       fprintf (adapt_stream, "s gr%d,", j + 64); */
+/* OBSOLETE       for (i = 0; i < 15; ++i) */
+/* OBSOLETE 	fprintf (adapt_stream, "%x,", read_register (GR64_REGNUM + j + i)); */
+/* OBSOLETE       fprintf (adapt_stream, "%x\r", read_register (GR64_REGNUM + j + 15)); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE     } */
+/* OBSOLETE #endif */
+/* OBSOLETE   for (j = 0; j < 32; j += 16) */
+/* OBSOLETE     { */
+/* OBSOLETE       fprintf (adapt_stream, "s gr%d,", j + 96); */
+/* OBSOLETE       for (i = 0; i < 15; ++i) */
+/* OBSOLETE 	fprintf (adapt_stream, "%x,", read_register (GR96_REGNUM + j + i)); */
+/* OBSOLETE       fprintf (adapt_stream, "%x\r", read_register (GR96_REGNUM + j + 15)); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE   for (j = 0; j < 128; j += 16) */
+/* OBSOLETE     { */
+/* OBSOLETE       fprintf (adapt_stream, "s lr%d,", j); */
+/* OBSOLETE       for (i = 0; i < 15; ++i) */
+/* OBSOLETE 	fprintf (adapt_stream, "%x,", read_register (LR0_REGNUM + j + i)); */
+/* OBSOLETE       fprintf (adapt_stream, "%x\r", read_register (LR0_REGNUM + j + 15)); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE   fprintf (adapt_stream, "s sr128,%x,%x,%x\r", read_register (IPC_REGNUM), */
+/* OBSOLETE 	   read_register (IPA_REGNUM), read_register (IPB_REGNUM)); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE   fprintf (adapt_stream, "s sr133,%x,%x,%x\r", read_register (BP_REGNUM), */
+/* OBSOLETE 	   read_register (FC_REGNUM), read_register (CR_REGNUM)); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE   fprintf (adapt_stream, "s sr131,%x\r", read_register (Q_REGNUM)); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE   fprintf (adapt_stream, "s sr0,"); */
+/* OBSOLETE   for (i = 0; i < 7; ++i) */
+/* OBSOLETE     fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i)); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE   fprintf (adapt_stream, "s sr7,"); */
+/* OBSOLETE   for (i = 7; i < 14; ++i) */
+/* OBSOLETE     fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i)); */
+/* OBSOLETE   expect_prompt (); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Store register REGNO, or all if REGNO == -1. */
+/* OBSOLETE    Return errno value.  */ */
+/* OBSOLETE void */
+/* OBSOLETE adapt_store_register (int regno) */
+/* OBSOLETE { */
+/* OBSOLETE   /* printf("adapt_store_register() called.\n"); fflush(stdout); /* */ */
+/* OBSOLETE   if (regno == -1) */
+/* OBSOLETE     adapt_store_registers (); */
+/* OBSOLETE   else */
+/* OBSOLETE     { */
+/* OBSOLETE       char *name = get_reg_name (regno); */
+/* OBSOLETE       fprintf (adapt_stream, "s %s,%x\r", name, read_register (regno)); */
+/* OBSOLETE       /* Setting GR1 changes the numbers of all the locals, so */
+/* OBSOLETE          invalidate the register cache.  Do this *after* calling */
+/* OBSOLETE          read_register, because we want read_register to return the */
+/* OBSOLETE          value that write_register has just stuffed into the registers */
+/* OBSOLETE          array, not the value of the register fetched from the */
+/* OBSOLETE          inferior.  */ */
+/* OBSOLETE       if (regno == GR1_REGNUM) */
+/* OBSOLETE 	registers_changed (); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Get ready to modify the registers array.  On machines which store */
+/* OBSOLETE    individual registers, this doesn't need to do anything.  On machines */
+/* OBSOLETE    which store all the registers in one fell swoop, this makes sure */
+/* OBSOLETE    that registers contains all the registers from the program being */
+/* OBSOLETE    debugged.  */ */
+/* OBSOLETE  */
+/* OBSOLETE void */
+/* OBSOLETE adapt_prepare_to_store (void) */
+/* OBSOLETE { */
+/* OBSOLETE   /* Do nothing, since we can store individual regs */ */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE static CORE_ADDR */
+/* OBSOLETE translate_addr (CORE_ADDR addr) */
+/* OBSOLETE { */
+/* OBSOLETE #if defined(KERNEL_DEBUGGING) */
+/* OBSOLETE   /* Check for a virtual address in the kernel */ */
+/* OBSOLETE   /* Assume physical address of ublock is in  paddr_u register */ */
+/* OBSOLETE   if (addr >= UVADDR) */
+/* OBSOLETE     { */
+/* OBSOLETE       /* PADDR_U register holds the physical address of the ublock */ */
+/* OBSOLETE       CORE_ADDR i = (CORE_ADDR) read_register (PADDR_U_REGNUM); */
+/* OBSOLETE       return (i + addr - (CORE_ADDR) UVADDR); */
+/* OBSOLETE     } */
+/* OBSOLETE   else */
+/* OBSOLETE     { */
+/* OBSOLETE       return (addr); */
+/* OBSOLETE     } */
+/* OBSOLETE #else */
+/* OBSOLETE   return (addr); */
+/* OBSOLETE #endif */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE  */
+/* OBSOLETE /* FIXME!  Merge these two.  */ */
+/* OBSOLETE int */
+/* OBSOLETE adapt_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len, int write, */
+/* OBSOLETE 			    struct mem_attrib *attrib ATTRIBUTE_UNUSED, */
+/* OBSOLETE 			    struct target_ops *target ATTRIBUTE_UNUSED) */
+/* OBSOLETE { */
+/* OBSOLETE  */
+/* OBSOLETE   memaddr = translate_addr (memaddr); */
+/* OBSOLETE  */
+/* OBSOLETE   if (write) */
+/* OBSOLETE     return adapt_write_inferior_memory (memaddr, myaddr, len); */
+/* OBSOLETE   else */
+/* OBSOLETE     return adapt_read_inferior_memory (memaddr, myaddr, len); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE void */
+/* OBSOLETE adapt_files_info (void) */
+/* OBSOLETE { */
+/* OBSOLETE   printf_filtered ("\tAttached to %s at %d baud and running program %s\n", */
+/* OBSOLETE 		   dev_name, baudrate, prog_name); */
+/* OBSOLETE   printf_filtered ("\ton an %s processor.\n", processor_name[processor_type]); */
+/* 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 int */
+/* OBSOLETE adapt_write_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len) */
+/* OBSOLETE { */
+/* OBSOLETE   int i; */
+/* OBSOLETE   unsigned int cps; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Turn TU bit off so we can do 'sb' commands */ */
+/* OBSOLETE   cps = read_register (CPS_REGNUM); */
+/* OBSOLETE   if (cps & 0x00000800) */
+/* OBSOLETE     write_register (CPS_REGNUM, cps & ~(0x00000800)); */
+/* OBSOLETE  */
+/* OBSOLETE   for (i = 0; i < len; i++) */
+/* OBSOLETE     { */
+/* OBSOLETE       if ((i % 16) == 0) */
+/* OBSOLETE 	fprintf (adapt_stream, "sb %x,", memaddr + i); */
+/* OBSOLETE       if ((i % 16) == 15 || i == len - 1) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  fprintf (adapt_stream, "%x\r", ((unsigned char *) myaddr)[i]); */
+/* OBSOLETE 	  expect_prompt (); */
+/* OBSOLETE 	} */
+/* OBSOLETE       else */
+/* OBSOLETE 	fprintf (adapt_stream, "%x,", ((unsigned char *) myaddr)[i]); */
+/* OBSOLETE     } */
+/* OBSOLETE   /* Restore the old value of cps if the TU bit was on */ */
+/* OBSOLETE   if (cps & 0x00000800) */
+/* OBSOLETE     write_register (CPS_REGNUM, cps); */
+/* OBSOLETE   return len; */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Read LEN bytes from inferior memory at MEMADDR.  Put the result */
+/* OBSOLETE    at debugger address MYADDR.  Returns errno value.  */ */
+/* OBSOLETE int */
+/* OBSOLETE adapt_read_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len) */
+/* OBSOLETE { */
+/* OBSOLETE   int i; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Number of bytes read so far.  */ */
+/* OBSOLETE   int count; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Starting address of this pass.  */ */
+/* OBSOLETE   unsigned long startaddr; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Number of bytes to read in this pass.  */ */
+/* OBSOLETE   int len_this_pass; */
+/* OBSOLETE  */
+/* OBSOLETE   /* Note that this code works correctly if startaddr is just less */
+/* OBSOLETE      than UINT_MAX (well, really CORE_ADDR_MAX if there was such a */
+/* OBSOLETE      thing).  That is, something like */
+/* OBSOLETE      adapt_read_bytes (CORE_ADDR_MAX - 4, foo, 4) */
+/* OBSOLETE      works--it never adds len to memaddr and gets 0.  */ */
+/* OBSOLETE   /* However, something like */
+/* OBSOLETE      adapt_read_bytes (CORE_ADDR_MAX - 3, foo, 4) */
+/* OBSOLETE      doesn't need to work.  Detect it and give up if there's an attempt */
+/* OBSOLETE      to do that.  */ */
+/* OBSOLETE  */
+/* OBSOLETE   if (((memaddr - 1) + len) < memaddr) */
+/* OBSOLETE     return EIO; */
+/* OBSOLETE  */
+/* OBSOLETE   startaddr = memaddr; */
+/* OBSOLETE   count = 0; */
+/* OBSOLETE   while (count < len) */
+/* OBSOLETE     { */
+/* OBSOLETE       len_this_pass = 16; */
+/* OBSOLETE       if ((startaddr % 16) != 0) */
+/* OBSOLETE 	len_this_pass -= startaddr % 16; */
+/* OBSOLETE       if (len_this_pass > (len - count)) */
+/* OBSOLETE 	len_this_pass = (len - count); */
+/* OBSOLETE  */
+/* OBSOLETE       fprintf (adapt_stream, "db %x,%x\r", startaddr, */
+/* OBSOLETE 	       (startaddr - 1) + len_this_pass); */
+/* OBSOLETE  */
+/* OBSOLETE #ifdef NOTDEF			/* Why do this */ */
+/* OBSOLETE       expect ("\n"); */
+/* OBSOLETE       /* Look for 8 hex digits.  */ */
+/* OBSOLETE       i = 0; */
+/* OBSOLETE       while (1) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  if (isxdigit (readchar ())) */
+/* OBSOLETE 	    ++i; */
+/* OBSOLETE 	  else */
+/* OBSOLETE 	    { */
+/* OBSOLETE 	      expect_prompt (); */
+/* OBSOLETE 	      error ("Hex digit expected from remote system."); */
+/* OBSOLETE 	    } */
+/* OBSOLETE 	  if (i >= 8) */
+/* OBSOLETE 	    break; */
+/* OBSOLETE 	} */
+/* OBSOLETE #endif /* NOTDEF */ */
+/* OBSOLETE  */
+/* OBSOLETE       expect ("  "); */
+/* OBSOLETE  */
+/* OBSOLETE       for (i = 0; i < len_this_pass; i++) */
+/* OBSOLETE 	get_hex_byte (&myaddr[count++]); */
+/* OBSOLETE  */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE  */
+/* OBSOLETE       startaddr += len_this_pass; */
+/* OBSOLETE     } */
+/* OBSOLETE   return count; */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE #define MAX_BREAKS	8 */
+/* 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 Adapt Monitor is responsible */
+/* OBSOLETE    for saving/restoring the original instruction. */ */
+/* OBSOLETE  */
+/* OBSOLETE static int */
+/* OBSOLETE adapt_insert_breakpoint (CORE_ADDR addr, char *save) */
+/* OBSOLETE { */
+/* OBSOLETE   if (num_brkpts < MAX_BREAKS) */
+/* OBSOLETE     { */
+/* OBSOLETE       num_brkpts++; */
+/* OBSOLETE       fprintf (adapt_stream, "B %x", addr); */
+/* OBSOLETE       fprintf (adapt_stream, "\r"); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE       return (0);		/* Success */ */
+/* OBSOLETE     } */
+/* OBSOLETE   else */
+/* OBSOLETE     { */
+/* OBSOLETE       fprintf_filtered (gdb_stderr, */
+/* OBSOLETE 		      "Too many break points, break point not installed\n"); */
+/* OBSOLETE       return (1);		/* Failure */ */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Remove a breakpoint at ADDR.  SAVE is normally the previously */
+/* OBSOLETE    saved pattern, but is unused here as the Adapt Monitor is */
+/* OBSOLETE    responsible for saving/restoring instructions. */ */
+/* OBSOLETE  */
+/* OBSOLETE static int */
+/* OBSOLETE adapt_remove_breakpoint (CORE_ADDR addr, char *save) */
+/* OBSOLETE { */
+/* OBSOLETE   if (num_brkpts > 0) */
+/* OBSOLETE     { */
+/* OBSOLETE       num_brkpts--; */
+/* OBSOLETE       fprintf (adapt_stream, "BR %x", addr); */
+/* OBSOLETE       fprintf (adapt_stream, "\r"); */
+/* OBSOLETE       fflush (adapt_stream); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE     } */
+/* OBSOLETE   return (0); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Clear the adapts notion of what the break points are */ */
+/* OBSOLETE static int */
+/* OBSOLETE adapt_clear_breakpoints (void) */
+/* OBSOLETE { */
+/* OBSOLETE   if (adapt_stream) */
+/* OBSOLETE     { */
+/* OBSOLETE       fprintf (adapt_stream, "BR");	/* Clear all break points */ */
+/* OBSOLETE       fprintf (adapt_stream, "\r"); */
+/* OBSOLETE       fflush (adapt_stream); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE     } */
+/* OBSOLETE   num_brkpts = 0; */
+/* OBSOLETE } */
+/* OBSOLETE static void */
+/* OBSOLETE adapt_mourn (void) */
+/* OBSOLETE { */
+/* OBSOLETE   adapt_clear_breakpoints (); */
+/* OBSOLETE   pop_target ();		/* Pop back to no-child state */ */
+/* OBSOLETE   generic_mourn_inferior (); */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Display everthing we read in from the adapt until we match/see the */
+/* OBSOLETE  * specified string */
+/* OBSOLETE  */ */
+/* OBSOLETE static int */
+/* OBSOLETE display_until (char *str) */
+/* OBSOLETE { */
+/* OBSOLETE   int i = 0, j, c; */
+/* OBSOLETE  */
+/* OBSOLETE   while (c = readchar ()) */
+/* OBSOLETE     { */
+/* OBSOLETE       if (c == str[i]) */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  i++; */
+/* OBSOLETE 	  if (i == strlen (str)) */
+/* OBSOLETE 	    return; */
+/* OBSOLETE 	} */
+/* OBSOLETE       else */
+/* OBSOLETE 	{ */
+/* OBSOLETE 	  if (i) */
+/* OBSOLETE 	    { */
+/* OBSOLETE 	      for (j = 0; j < i; j++)	/* Put everthing we matched */ */
+/* OBSOLETE 		putchar (str[j]); */
+/* OBSOLETE 	      i = 0; */
+/* OBSOLETE 	    } */
+/* OBSOLETE 	  putchar (c); */
+/* OBSOLETE 	} */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE  */
+/* OBSOLETE /* Put a command string, in args, out to the adapt.  The adapt is assumed to */
+/* OBSOLETE    be in raw mode, all writing/reading done through adapt_desc. */
+/* OBSOLETE    Ouput from the adapt is placed on the users terminal until the */
+/* OBSOLETE    prompt from the adapt is seen. */
+/* OBSOLETE    FIXME: Can't handle commands that take input.  */ */
+/* OBSOLETE  */
+/* OBSOLETE void */
+/* OBSOLETE adapt_com (char *args, int fromtty) */
+/* OBSOLETE { */
+/* OBSOLETE   if (!adapt_stream) */
+/* OBSOLETE     { */
+/* OBSOLETE       printf_filtered ("Adapt not open.  Use the 'target' command to open.\n"); */
+/* OBSOLETE       return; */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE   /* Clear all input so only command relative output is displayed */ */
+/* OBSOLETE   slurp_input (); */
+/* OBSOLETE  */
+/* OBSOLETE   switch (islower (args[0]) ? toupper (args[0]) : args[0]) */
+/* OBSOLETE     { */
+/* OBSOLETE     default: */
+/* OBSOLETE       printf_filtered ("Unknown/Unimplemented adapt command '%s'\n", args); */
+/* OBSOLETE       break; */
+/* OBSOLETE     case 'G':			/* Go, begin execution */ */
+/* OBSOLETE       write (adapt_desc, args, strlen (args)); */
+/* OBSOLETE       write (adapt_desc, "\r", 1); */
+/* OBSOLETE       expect_prompt (); */
+/* OBSOLETE       break; */
+/* OBSOLETE     case 'B':			/* Break points, B or BR */ */
+/* OBSOLETE     case 'C':			/* Check current 29k status (running/halted) */ */
+/* OBSOLETE     case 'D':			/* Display data/registers */ */
+/* OBSOLETE     case 'I':			/* Input from i/o space */ */
+/* OBSOLETE     case 'J':			/* Jam an instruction */ */
+/* OBSOLETE     case 'K':			/* Kill, stop execution */ */
+/* OBSOLETE     case 'L':			/* Disassemble */ */
+/* OBSOLETE     case 'O':			/* Output to i/o space */ */
+/* OBSOLETE     case 'T':			/* Trace */ */
+/* OBSOLETE     case 'P':			/* Pulse an input line */ */
+/* OBSOLETE     case 'X':			/* Examine special purpose registers */ */
+/* OBSOLETE     case 'Z':			/* Display trace buffer */ */
+/* OBSOLETE       write (adapt_desc, args, strlen (args)); */
+/* OBSOLETE       write (adapt_desc, "\r", 1); */
+/* OBSOLETE       expect (args);		/* Don't display the command */ */
+/* OBSOLETE       display_until ("# "); */
+/* OBSOLETE       break; */
+/* OBSOLETE       /* Begin commands that take input in the form 'c x,y[,z...]' */ */
+/* OBSOLETE     case 'S':			/* Set memory or register */ */
+/* OBSOLETE       if (strchr (args, ',')) */
+/* OBSOLETE 	{			/* Assume it is properly formatted */ */
+/* OBSOLETE 	  write (adapt_desc, args, strlen (args)); */
+/* OBSOLETE 	  write (adapt_desc, "\r", 1); */
+/* OBSOLETE 	  expect_prompt (); */
+/* OBSOLETE 	} */
+/* OBSOLETE       break; */
+/* OBSOLETE     } */
+/* OBSOLETE } */
+/* OBSOLETE  */
+/* OBSOLETE /* Define the target subroutine names */ */
+/* OBSOLETE  */
+/* OBSOLETE struct target_ops adapt_ops; */
+/* OBSOLETE  */
+/* OBSOLETE static void */
+/* OBSOLETE init_adapt_ops (void) */
+/* OBSOLETE { */
+/* OBSOLETE   adapt_ops.to_shortname = "adapt"; */
+/* OBSOLETE   adapt_ops.to_longname = "Remote AMD `Adapt' target"; */
+/* OBSOLETE   adapt_ops.to_doc = "Remote debug an AMD 290*0 using an `Adapt' monitor via RS232"; */
+/* OBSOLETE   adapt_ops.to_open = adapt_open; */
+/* OBSOLETE   adapt_ops.to_close = adapt_close; */
+/* OBSOLETE   adapt_ops.to_attach = adapt_attach; */
+/* OBSOLETE   adapt_ops.to_post_attach = NULL; */
+/* OBSOLETE   adapt_ops.to_require_attach = NULL; */
+/* OBSOLETE   adapt_ops.to_detach = adapt_detach; */
+/* OBSOLETE   adapt_ops.to_require_detach = NULL; */
+/* OBSOLETE   adapt_ops.to_resume = adapt_resume; */
+/* OBSOLETE   adapt_ops.to_wait = adapt_wait; */
+/* OBSOLETE   adapt_ops.to_post_wait = NULL; */
+/* OBSOLETE   adapt_ops.to_fetch_registers = adapt_fetch_register; */
+/* OBSOLETE   adapt_ops.to_store_registers = adapt_store_register; */
+/* OBSOLETE   adapt_ops.to_prepare_to_store = adapt_prepare_to_store; */
+/* OBSOLETE   adapt_ops.to_xfer_memory = adapt_xfer_inferior_memory; */
+/* OBSOLETE   adapt_ops.to_files_info = adapt_files_info; */
+/* OBSOLETE   adapt_ops.to_insert_breakpoint = adapt_insert_breakpoint; */
+/* OBSOLETE   adapt_ops.to_remove_breakpoint = adapt_remove_breakpoint; */
+/* OBSOLETE   adapt_ops.to_terminal_init = 0; */
+/* OBSOLETE   adapt_ops.to_terminal_inferior = 0; */
+/* OBSOLETE   adapt_ops.to_terminal_ours_for_output = 0; */
+/* OBSOLETE   adapt_ops.to_terminal_ours = 0; */
+/* OBSOLETE   adapt_ops.to_terminal_info = 0; */
+/* OBSOLETE   adapt_ops.to_kill = adapt_kill; */
+/* OBSOLETE   adapt_ops.to_load = adapt_load; */
+/* OBSOLETE   adapt_ops.to_lookup_symbol = 0; */
+/* OBSOLETE   adapt_ops.to_create_inferior = adapt_create_inferior; */
+/* OBSOLETE   adapt_ops.to_post_startup_inferior = NULL; */
+/* OBSOLETE   adapt_ops.to_acknowledge_created_inferior = NULL; */
+/* OBSOLETE   adapt_ops.to_clone_and_follow_inferior = NULL; */
+/* OBSOLETE   adapt_ops.to_post_follow_inferior_by_clone = NULL; */
+/* OBSOLETE   adapt_ops.to_insert_fork_catchpoint = NULL; */
+/* OBSOLETE   adapt_ops.to_remove_fork_catchpoint = NULL; */
+/* OBSOLETE   adapt_ops.to_insert_vfork_catchpoint = NULL; */
+/* OBSOLETE   adapt_ops.to_remove_vfork_catchpoint = NULL; */
+/* OBSOLETE   adapt_ops.to_has_forked = NULL; */
+/* OBSOLETE   adapt_ops.to_has_vforked = NULL; */
+/* OBSOLETE   adapt_ops.to_can_follow_vfork_prior_to_exec = NULL; */
+/* OBSOLETE   adapt_ops.to_post_follow_vfork = NULL; */
+/* OBSOLETE   adapt_ops.to_insert_exec_catchpoint = NULL; */
+/* OBSOLETE   adapt_ops.to_remove_exec_catchpoint = NULL; */
+/* OBSOLETE   adapt_ops.to_has_execd = NULL; */
+/* OBSOLETE   adapt_ops.to_reported_exec_events_per_exec_call = NULL; */
+/* OBSOLETE   adapt_ops.to_has_exited = NULL; */
+/* OBSOLETE   adapt_ops.to_mourn_inferior = adapt_mourn; */
+/* OBSOLETE   adapt_ops.to_can_run = 0; */
+/* OBSOLETE   adapt_ops.to_notice_signals = 0; */
+/* OBSOLETE   adapt_ops.to_thread_alive = 0; */
+/* OBSOLETE   adapt_ops.to_stop = 0;	/* process_stratum; */ */
+/* OBSOLETE   adapt_ops.to_pid_to_exec_file = NULL; */
+/* OBSOLETE   adapt_ops.to_stratum = 0; */
+/* OBSOLETE   adapt_ops.DONT_USE = 0; */
+/* OBSOLETE   adapt_ops.to_has_all_memory = 1; */
+/* OBSOLETE   adapt_ops.to_has_memory = 1; */
+/* OBSOLETE   adapt_ops.to_has_stack = 1; */
+/* OBSOLETE   adapt_ops.to_has_registers = 1; */
+/* OBSOLETE   adapt_ops.to_has_execution = 0; */
+/* OBSOLETE   adapt_ops.to_sections = 0; */
+/* OBSOLETE   adapt_ops.to_sections_end = 0; */
+/* OBSOLETE   adapt_ops.to_magic = OPS_MAGIC; */
+/* OBSOLETE }				/* init_adapt_ops */ */
+/* OBSOLETE  */
+/* OBSOLETE void */
+/* OBSOLETE _initialize_remote_adapt (void) */
+/* OBSOLETE { */
+/* OBSOLETE   init_adapt_ops (); */
+/* OBSOLETE   add_target (&adapt_ops); */
+/* OBSOLETE   add_com ("adapt <command>", class_obscure, adapt_com, */
+/* OBSOLETE 	   "Send a command to the AMD Adapt remote monitor."); */
+/* OBSOLETE } */