gdb/remote-adapt.c

   1 /* OBSOLETE /* Remote debugging interface for AMD 290*0 Adapt Monitor Version 2.1d18.  */
   2 /* OBSOLETE    Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, */
   3 /* OBSOLETE    2001 Free Software Foundation, Inc. */
   4 /* OBSOLETE    Contributed by David Wood at New York University (wood@lab.ultra.nyu.edu). */
   5 /* OBSOLETE    Adapted from work done at Cygnus Support in remote-eb.c. */
   6 /* OBSOLETE  */
   7 /* OBSOLETE    This file is part of GDB. */
   8 /* OBSOLETE  */
   9 /* OBSOLETE    This program is free software; you can redistribute it and/or modify */
  10 /* OBSOLETE    it under the terms of the GNU General Public License as published by */
  11 /* OBSOLETE    the Free Software Foundation; either version 2 of the License, or */
  12 /* OBSOLETE    (at your option) any later version. */
  13 /* OBSOLETE  */
  14 /* OBSOLETE    This program is distributed in the hope that it will be useful, */
  15 /* OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of */
  16 /* OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the */
  17 /* OBSOLETE    GNU General Public License for more details. */
  18 /* OBSOLETE  */
  19 /* OBSOLETE    You should have received a copy of the GNU General Public License */
  20 /* OBSOLETE    along with this program; if not, write to the Free Software */
  21 /* OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330, */
  22 /* OBSOLETE    Boston, MA 02111-1307, USA.  */ */
  23 /* OBSOLETE  */
  24 /* OBSOLETE /* This is like remote.c but is for an esoteric situation-- */
  25 /* OBSOLETE    having a 29k board attached to an Adapt inline monitor.  */
  26 /* OBSOLETE    The  monitor is connected via serial line to a unix machine  */
  27 /* OBSOLETE    running gdb.  */
  28 /* OBSOLETE  */
  29 /* OBSOLETE    3/91 -  developed on Sun3 OS 4.1, by David Wood */
  30 /* OBSOLETE    o - I can't get binary coff to load.  */
  31 /* OBSOLETE    o - I can't get 19200 baud rate to work.  */
  32 /* OBSOLETE    7/91 o - Freeze mode tracing can be done on a 29050.  */ */
  33 /* OBSOLETE  */
  34 /* OBSOLETE  */
  35 /* OBSOLETE  */
  36 /* OBSOLETE #include "defs.h" */
  37 /* OBSOLETE #include "gdb_string.h" */
  38 /* OBSOLETE #include "inferior.h" */
  39 /* OBSOLETE #include "value.h" */
  40 /* OBSOLETE #include <ctype.h> */
  41 /* OBSOLETE #include <fcntl.h> */
  42 /* OBSOLETE #include <signal.h> */
  43 /* OBSOLETE #include <errno.h> */
  44 /* OBSOLETE #include "terminal.h" */
  45 /* OBSOLETE #include "target.h" */
  46 /* OBSOLETE #include "gdbcore.h" */
  47 /* OBSOLETE #include "regcache.h" */
  48 /* OBSOLETE  */
  49 /* OBSOLETE /* This processor is getting rusty but I am trying to keep it */
  50 /* OBSOLETE    up to date at least with data structure changes. */
  51 /* OBSOLETE    Activate this block to compile just this file. */
  52 /* OBSOLETE  */ */
  53 /* OBSOLETE #define COMPILE_CHECK 0 */
  54 /* OBSOLETE #if COMPILE_CHECK */
  55 /* OBSOLETE #define Q_REGNUM 0 */
  56 /* OBSOLETE #define VAB_REGNUM 0 */
  57 /* OBSOLETE #define CPS_REGNUM 0 */
  58 /* OBSOLETE #define IPA_REGNUM 0 */
  59 /* OBSOLETE #define IPB_REGNUM 0 */
  60 /* OBSOLETE #define GR1_REGNUM 0 */
  61 /* OBSOLETE #define LR0_REGNUM 0 */
  62 /* OBSOLETE #define IPC_REGNUM 0 */
  63 /* OBSOLETE #define CR_REGNUM 0 */
  64 /* OBSOLETE #define BP_REGNUM 0 */
  65 /* OBSOLETE #define FC_REGNUM 0 */
  66 /* OBSOLETE #define INTE_REGNUM 0 */
  67 /* OBSOLETE #define EXO_REGNUM 0 */
  68 /* OBSOLETE #define GR96_REGNUM 0 */
  69 /* OBSOLETE #define NPC_REGNUM */
  70 /* OBSOLETE #define FPE_REGNUM 0 */
  71 /* OBSOLETE #define PC2_REGNUM 0 */
  72 /* OBSOLETE #define FPS_REGNUM 0 */
  73 /* OBSOLETE #define ALU_REGNUM 0 */
  74 /* OBSOLETE #define LRU_REGNUM 0 */
  75 /* OBSOLETE #define TERMINAL int */
  76 /* OBSOLETE #define RAW 1 */
  77 /* OBSOLETE #define ANYP 1 */
  78 /* OBSOLETE extern int a29k_freeze_mode; */
  79 /* OBSOLETE extern int processor_type; */
  80 /* OBSOLETE extern char *processor_name; */
  81 /* OBSOLETE #endif */
  82 /* OBSOLETE  */
  83 /* OBSOLETE /* External data declarations */ */
  84 /* OBSOLETE extern int stop_soon_quietly;       /* for wait_for_inferior */ */
  85 /* OBSOLETE  */
  86 /* OBSOLETE /* Forward data declarations */ */
  87 /* OBSOLETE extern struct target_ops adapt_ops; /* Forward declaration */ */
  88 /* OBSOLETE  */
  89 /* OBSOLETE /* Forward function declarations */ */
  90 /* OBSOLETE static void adapt_fetch_registers (); */
  91 /* OBSOLETE static void adapt_store_registers (); */
  92 /* OBSOLETE static void adapt_close (); */
  93 /* OBSOLETE static int adapt_clear_breakpoints (); */
  94 /* OBSOLETE  */
  95 /* OBSOLETE #define FREEZE_MODE         (read_register(CPS_REGNUM) && 0x400) */
  96 /* OBSOLETE #define USE_SHADOW_PC       ((processor_type == a29k_freeze_mode) && FREEZE_MODE) */
  97 /* OBSOLETE  */
  98 /* OBSOLETE /* Can't seem to get binary coff working */ */
  99 /* OBSOLETE #define ASCII_COFF          /* Adapt will be downloaded with ascii coff */ */
 100 /* OBSOLETE  */
 101 /* OBSOLETE /* FIXME: Replace with `set remotedebug'.  */ */
 102 /* OBSOLETE #define LOG_FILE "adapt.log" */
 103 /* OBSOLETE #if defined (LOG_FILE) */
 104 /* OBSOLETE FILE *log_file = NULL; */
 105 /* OBSOLETE #endif */
 106 /* OBSOLETE  */
 107 /* OBSOLETE static int timeout = 5; */
 108 /* OBSOLETE static char *dev_name; */
 109 /* OBSOLETE  */
 110 /* OBSOLETE /* Descriptor for I/O to remote machine.  Initialize it to -1 so that */
 111 /* OBSOLETE    adapt_open knows that we don't have a file open when the program */
 112 /* OBSOLETE    starts.  */ */
 113 /* OBSOLETE int adapt_desc = -1; */
 114 /* OBSOLETE  */
 115 /* OBSOLETE /* stream which is fdopen'd from adapt_desc.  Only valid when */
 116 /* OBSOLETE    adapt_desc != -1.  */ */
 117 /* OBSOLETE FILE *adapt_stream; */
 118 /* OBSOLETE  */
 119 /* OBSOLETE #define ON  1 */
 120 /* OBSOLETE #define OFF 0 */
 121 /* OBSOLETE static void */
 122 /* OBSOLETE rawmode (int desc, int turnon) */
 123 /* OBSOLETE { */
 124 /* OBSOLETE  */
 125 /* OBSOLETE   TERMINAL sg; */
 126 /* OBSOLETE  */
 127 /* OBSOLETE   if (desc < 0) */
 128 /* OBSOLETE     return; */
 129 /* OBSOLETE  */
 130 /* OBSOLETE   ioctl (desc, TIOCGETP, &sg); */
 131 /* OBSOLETE  */
 132 /* OBSOLETE   if (turnon) */
 133 /* OBSOLETE     { */
 134 /* OBSOLETE #ifdef HAVE_TERMIO */
 135 /* OBSOLETE       sg.c_lflag &= ~(ICANON); */
 136 /* OBSOLETE #else */
 137 /* OBSOLETE       sg.sg_flags |= RAW; */
 138 /* OBSOLETE #endif */
 139 /* OBSOLETE     } */
 140 /* OBSOLETE   else */
 141 /* OBSOLETE     { */
 142 /* OBSOLETE #ifdef HAVE_TERMIO */
 143 /* OBSOLETE       sg.c_lflag |= ICANON; */
 144 /* OBSOLETE #else */
 145 /* OBSOLETE       sg.sg_flags &= ~(RAW); */
 146 /* OBSOLETE #endif */
 147 /* OBSOLETE     } */
 148 /* OBSOLETE   ioctl (desc, TIOCSETP, &sg); */
 149 /* OBSOLETE } */
 150 /* OBSOLETE  */
 151 /* OBSOLETE /* Suck up all the input from the adapt */ */
 152 /* OBSOLETE slurp_input (void) */
 153 /* OBSOLETE { */
 154 /* OBSOLETE   char buf[8]; */
 155 /* OBSOLETE  */
 156 /* OBSOLETE #ifdef HAVE_TERMIO */
 157 /* OBSOLETE   /* termio does the timeout for us.  */ */
 158 /* OBSOLETE   while (read (adapt_desc, buf, 8) > 0); */
 159 /* OBSOLETE #else */
 160 /* OBSOLETE   alarm (timeout); */
 161 /* OBSOLETE   while (read (adapt_desc, buf, 8) > 0); */
 162 /* OBSOLETE   alarm (0); */
 163 /* OBSOLETE #endif */
 164 /* OBSOLETE } */
 165 /* OBSOLETE  */
 166 /* OBSOLETE /* Read a character from the remote system, doing all the fancy */
 167 /* OBSOLETE    timeout stuff.  */ */
 168 /* OBSOLETE static int */
 169 /* OBSOLETE readchar (void) */
 170 /* OBSOLETE { */
 171 /* OBSOLETE   char buf; */
 172 /* OBSOLETE  */
 173 /* OBSOLETE   buf = '\0'; */
 174 /* OBSOLETE #ifdef HAVE_TERMIO */
 175 /* OBSOLETE   /* termio does the timeout for us.  */ */
 176 /* OBSOLETE   read (adapt_desc, &buf, 1); */
 177 /* OBSOLETE #else */
 178 /* OBSOLETE   alarm (timeout); */
 179 /* OBSOLETE   if (read (adapt_desc, &buf, 1) < 0) */
 180 /* OBSOLETE     { */
 181 /* OBSOLETE       if (errno == EINTR) */
 182 /* OBSOLETE     error ("Timeout reading from remote system."); */
 183 /* OBSOLETE       else */
 184 /* OBSOLETE     perror_with_name ("remote"); */
 185 /* OBSOLETE     } */
 186 /* OBSOLETE   alarm (0); */
 187 /* OBSOLETE #endif */
 188 /* OBSOLETE  */
 189 /* OBSOLETE   if (buf == '\0') */
 190 /* OBSOLETE     error ("Timeout reading from remote system."); */
 191 /* OBSOLETE #if defined (LOG_FILE) */
 192 /* OBSOLETE   putc (buf & 0x7f, log_file); */
 193 /* OBSOLETE #endif */
 194 /* OBSOLETE   return buf & 0x7f; */
 195 /* OBSOLETE } */
 196 /* OBSOLETE  */
 197 /* OBSOLETE /* Keep discarding input from the remote system, until STRING is found.  */
 198 /* OBSOLETE    Let the user break out immediately.  */ */
 199 /* OBSOLETE static void */
 200 /* OBSOLETE expect (char *string) */
 201 /* OBSOLETE { */
 202 /* OBSOLETE   char *p = string; */
 203 /* OBSOLETE  */
 204 /* OBSOLETE   fflush (adapt_stream); */
 205 /* OBSOLETE   immediate_quit++; */
 206 /* OBSOLETE   while (1) */
 207 /* OBSOLETE     { */
 208 /* OBSOLETE       if (readchar () == *p) */
 209 /* OBSOLETE     { */
 210 /* OBSOLETE       p++; */
 211 /* OBSOLETE       if (*p == '\0') */
 212 /* OBSOLETE         { */
 213 /* OBSOLETE           immediate_quit--; */
 214 /* OBSOLETE           return; */
 215 /* OBSOLETE         } */
 216 /* OBSOLETE     } */
 217 /* OBSOLETE       else */
 218 /* OBSOLETE     p = string; */
 219 /* OBSOLETE     } */
 220 /* OBSOLETE } */
 221 /* OBSOLETE  */
 222 /* OBSOLETE /* Keep discarding input until we see the adapt prompt. */
 223 /* OBSOLETE  */
 224 /* OBSOLETE    The convention for dealing with the prompt is that you */
 225 /* OBSOLETE    o give your command */
 226 /* OBSOLETE    o *then* wait for the prompt. */
 227 /* OBSOLETE  */
 228 /* OBSOLETE    Thus the last thing that a procedure does with the serial line */
 229 /* OBSOLETE    will be an expect_prompt().  Exception:  adapt_resume does not */
 230 /* OBSOLETE    wait for the prompt, because the terminal is being handed over */
 231 /* OBSOLETE    to the inferior.  However, the next thing which happens after that */
 232 /* OBSOLETE    is a adapt_wait which does wait for the prompt. */
 233 /* OBSOLETE    Note that this includes abnormal exit, e.g. error().  This is */
 234 /* OBSOLETE    necessary to prevent getting into states from which we can't */
 235 /* OBSOLETE    recover.  */ */
 236 /* OBSOLETE static void */
 237 /* OBSOLETE expect_prompt (void) */
 238 /* OBSOLETE { */
 239 /* OBSOLETE #if defined (LOG_FILE) */
 240 /* OBSOLETE   /* This is a convenient place to do this.  The idea is to do it often */
 241 /* OBSOLETE      enough that we never lose much data if we terminate abnormally.  */ */
 242 /* OBSOLETE   fflush (log_file); */
 243 /* OBSOLETE #endif */
 244 /* OBSOLETE   fflush (adapt_stream); */
 245 /* OBSOLETE   expect ("\n# "); */
 246 /* OBSOLETE } */
 247 /* OBSOLETE  */
 248 /* OBSOLETE /* Get a hex digit from the remote system & return its value. */
 249 /* OBSOLETE    If ignore_space is nonzero, ignore spaces (not newline, tab, etc).  */ */
 250 /* OBSOLETE static int */
 251 /* OBSOLETE get_hex_digit (int ignore_space) */
 252 /* OBSOLETE { */
 253 /* OBSOLETE   int ch; */
 254 /* OBSOLETE   while (1) */
 255 /* OBSOLETE     { */
 256 /* OBSOLETE       ch = readchar (); */
 257 /* OBSOLETE       if (ch >= '0' && ch <= '9') */
 258 /* OBSOLETE     return ch - '0'; */
 259 /* OBSOLETE       else if (ch >= 'A' && ch <= 'F') */
 260 /* OBSOLETE     return ch - 'A' + 10; */
 261 /* OBSOLETE       else if (ch >= 'a' && ch <= 'f') */
 262 /* OBSOLETE     return ch - 'a' + 10; */
 263 /* OBSOLETE       else if (ch == ' ' && ignore_space) */
 264 /* OBSOLETE     ; */
 265 /* OBSOLETE       else */
 266 /* OBSOLETE     { */
 267 /* OBSOLETE       expect_prompt (); */
 268 /* OBSOLETE       error ("Invalid hex digit from remote system."); */
 269 /* OBSOLETE     } */
 270 /* OBSOLETE     } */
 271 /* OBSOLETE } */
 272 /* OBSOLETE  */
 273 /* OBSOLETE /* Get a byte from adapt_desc and put it in *BYT.  Accept any number */
 274 /* OBSOLETE    leading spaces.  */ */
 275 /* OBSOLETE static void */
 276 /* OBSOLETE get_hex_byte (char *byt) */
 277 /* OBSOLETE { */
 278 /* OBSOLETE   int val; */
 279 /* OBSOLETE  */
 280 /* OBSOLETE   val = get_hex_digit (1) << 4; */
 281 /* OBSOLETE   val |= get_hex_digit (0); */
 282 /* OBSOLETE   *byt = val; */
 283 /* OBSOLETE } */
 284 /* OBSOLETE  */
 285 /* OBSOLETE /* Read a 32-bit hex word from the adapt, preceded by a space  */ */
 286 /* OBSOLETE static long */
 287 /* OBSOLETE get_hex_word (void) */
 288 /* OBSOLETE { */
 289 /* OBSOLETE   long val; */
 290 /* OBSOLETE   int j; */
 291 /* OBSOLETE  */
 292 /* OBSOLETE   val = 0; */
 293 /* OBSOLETE   for (j = 0; j < 8; j++) */
 294 /* OBSOLETE     val = (val << 4) + get_hex_digit (j == 0); */
 295 /* OBSOLETE   return val; */
 296 /* OBSOLETE } */
 297 /* OBSOLETE /* Get N 32-bit hex words from remote, each preceded by a space  */
 298 /* OBSOLETE    and put them in registers starting at REGNO.  */ */
 299 /* OBSOLETE static void */
 300 /* OBSOLETE get_hex_regs (int n, int regno) */
 301 /* OBSOLETE { */
 302 /* OBSOLETE   long val; */
 303 /* OBSOLETE   while (n--) */
 304 /* OBSOLETE     { */
 305 /* OBSOLETE       val = get_hex_word (); */
 306 /* OBSOLETE       supply_register (regno++, (char *) &val); */
 307 /* OBSOLETE     } */
 308 /* OBSOLETE } */
 309 /* OBSOLETE /* Called when SIGALRM signal sent due to alarm() timeout.  */ */
 310 /* OBSOLETE #ifndef HAVE_TERMIO */
 311 /* OBSOLETE  */
 312 /* OBSOLETE volatile int n_alarms; */
 313 /* OBSOLETE  */
 314 /* OBSOLETE void */
 315 /* OBSOLETE adapt_timer (void) */
 316 /* OBSOLETE { */
 317 /* OBSOLETE #if 0 */
 318 /* OBSOLETE   if (kiodebug) */
 319 /* OBSOLETE     printf ("adapt_timer called\n"); */
 320 /* OBSOLETE #endif */
 321 /* OBSOLETE   n_alarms++; */
 322 /* OBSOLETE } */
 323 /* OBSOLETE #endif */
 324 /* OBSOLETE  */
 325 /* OBSOLETE /* malloc'd name of the program on the remote system.  */ */
 326 /* OBSOLETE static char *prog_name = NULL; */
 327 /* OBSOLETE  */
 328 /* OBSOLETE /* Number of SIGTRAPs we need to simulate.  That is, the next */
 329 /* OBSOLETE    NEED_ARTIFICIAL_TRAP calls to adapt_wait should just return */
 330 /* OBSOLETE    SIGTRAP without actually waiting for anything.  */ */
 331 /* OBSOLETE  */
 332 /* OBSOLETE static int need_artificial_trap = 0; */
 333 /* OBSOLETE  */
 334 /* OBSOLETE void */
 335 /* OBSOLETE adapt_kill (char *arg, int from_tty) */
 336 /* OBSOLETE { */
 337 /* OBSOLETE   fprintf (adapt_stream, "K"); */
 338 /* OBSOLETE   fprintf (adapt_stream, "\r"); */
 339 /* OBSOLETE   expect_prompt (); */
 340 /* OBSOLETE } */
 341 /* OBSOLETE /* */
 342 /* OBSOLETE  * Download a file specified in 'args', to the adapt.  */
 343 /* OBSOLETE  * FIXME: Assumes the file to download is a binary coff file. */
 344 /* OBSOLETE  */ */
 345 /* OBSOLETE static void */
 346 /* OBSOLETE adapt_load (char *args, int fromtty) */
 347 /* OBSOLETE { */
 348 /* OBSOLETE   FILE *fp; */
 349 /* OBSOLETE   int n; */
 350 /* OBSOLETE   char buffer[1024]; */
 351 /* OBSOLETE  */
 352 /* OBSOLETE   if (!adapt_stream) */
 353 /* OBSOLETE     { */
 354 /* OBSOLETE       printf_filtered ("Adapt not open. Use 'target' command to open adapt\n"); */
 355 /* OBSOLETE       return; */
 356 /* OBSOLETE     } */
 357 /* OBSOLETE  */
 358 /* OBSOLETE   /* OK, now read in the file.  Y=read, C=COFF, T=dTe port */
 359 /* OBSOLETE      0=start address.  */ */
 360 /* OBSOLETE  */
 361 /* OBSOLETE #ifdef ASCII_COFF           /* Ascii coff */ */
 362 /* OBSOLETE   fprintf (adapt_stream, "YA T,0\r"); */
 363 /* OBSOLETE   fflush (adapt_stream);    /* Just in case */ */
 364 /* OBSOLETE   /* FIXME: should check args for only 1 argument */ */
 365 /* OBSOLETE   sprintf (buffer, "cat %s | btoa > /tmp/#adapt-btoa", args); */
 366 /* OBSOLETE   system (buffer); */
 367 /* OBSOLETE   fp = fopen ("/tmp/#adapt-btoa", "r"); */
 368 /* OBSOLETE   rawmode (adapt_desc, OFF); */
 369 /* OBSOLETE   while (n = fread (buffer, 1, 1024, fp)) */
 370 /* OBSOLETE     { */
 371 /* OBSOLETE       do */
 372 /* OBSOLETE     { */
 373 /* OBSOLETE       n -= write (adapt_desc, buffer, n); */
 374 /* OBSOLETE     } */
 375 /* OBSOLETE       while (n > 0); */
 376 /* OBSOLETE       if (n < 0) */
 377 /* OBSOLETE     { */
 378 /* OBSOLETE       perror ("writing ascii coff"); */
 379 /* OBSOLETE       break; */
 380 /* OBSOLETE     } */
 381 /* OBSOLETE     } */
 382 /* OBSOLETE   fclose (fp); */
 383 /* OBSOLETE   rawmode (adapt_desc, ON); */
 384 /* OBSOLETE   system ("rm /tmp/#adapt-btoa"); */
 385 /* OBSOLETE #else /* Binary coff - can't get it to work . */ */
 386 /* OBSOLETE   fprintf (adapt_stream, "YC T,0\r"); */
 387 /* OBSOLETE   fflush (adapt_stream);    /* Just in case */ */
 388 /* OBSOLETE   if (!(fp = fopen (args, "r"))) */
 389 /* OBSOLETE     { */
 390 /* OBSOLETE       printf_filtered ("Can't open %s\n", args); */
 391 /* OBSOLETE       return; */
 392 /* OBSOLETE     } */
 393 /* OBSOLETE   while (n = fread (buffer, 1, 512, fp)) */
 394 /* OBSOLETE     { */
 395 /* OBSOLETE       do */
 396 /* OBSOLETE     { */
 397 /* OBSOLETE       n -= write (adapt_desc, buffer, n); */
 398 /* OBSOLETE     } */
 399 /* OBSOLETE       while (n > 0); */
 400 /* OBSOLETE       if (n < 0) */
 401 /* OBSOLETE     { */
 402 /* OBSOLETE       perror ("writing ascii coff"); */
 403 /* OBSOLETE       break; */
 404 /* OBSOLETE     } */
 405 /* OBSOLETE     } */
 406 /* OBSOLETE   fclose (fp); */
 407 /* OBSOLETE #endif */
 408 /* OBSOLETE   expect_prompt ();         /* Skip garbage that comes out */ */
 409 /* OBSOLETE   fprintf (adapt_stream, "\r"); */
 410 /* OBSOLETE   expect_prompt (); */
 411 /* OBSOLETE } */
 412 /* OBSOLETE  */
 413 /* OBSOLETE /* This is called not only when we first attach, but also when the */
 414 /* OBSOLETE    user types "run" after having attached.  */ */
 415 /* OBSOLETE void */
 416 /* OBSOLETE adapt_create_inferior (char *execfile, char *args, char **env) */
 417 /* OBSOLETE { */
 418 /* OBSOLETE   int entry_pt; */
 419 /* OBSOLETE  */
 420 /* OBSOLETE   if (args && *args) */
 421 /* OBSOLETE     error ("Can't pass arguments to remote adapt process."); */
 422 /* OBSOLETE  */
 423 /* OBSOLETE   if (execfile == 0 || exec_bfd == 0) */
 424 /* OBSOLETE     error ("No executable file specified"); */
 425 /* OBSOLETE  */
 426 /* OBSOLETE   entry_pt = (int) bfd_get_start_address (exec_bfd); */
 427 /* OBSOLETE  */
 428 /* OBSOLETE   if (adapt_stream) */
 429 /* OBSOLETE     { */
 430 /* OBSOLETE       adapt_kill (NULL, NULL); */
 431 /* OBSOLETE       adapt_clear_breakpoints (); */
 432 /* OBSOLETE       init_wait_for_inferior (); */
 433 /* OBSOLETE       /* Clear the input because what the adapt sends back is different */
 434 /* OBSOLETE        * depending on whether it was running or not. */
 435 /* OBSOLETE        */ */
 436 /* OBSOLETE       slurp_input ();               /* After this there should be a prompt */ */
 437 /* OBSOLETE       fprintf (adapt_stream, "\r"); */
 438 /* OBSOLETE       expect_prompt (); */
 439 /* OBSOLETE       printf_filtered ("Do you want to download '%s' (y/n)? [y] : ", prog_name); */
 440 /* OBSOLETE       { */
 441 /* OBSOLETE     char buffer[10]; */
 442 /* OBSOLETE     gets (buffer); */
 443 /* OBSOLETE     if (*buffer != 'n') */
 444 /* OBSOLETE       { */
 445 /* OBSOLETE         adapt_load (prog_name, 0); */
 446 /* OBSOLETE       } */
 447 /* OBSOLETE       } */
 448 /* OBSOLETE  */
 449 /* OBSOLETE #ifdef NOTDEF */
 450 /* OBSOLETE       /* Set the PC and wait for a go/cont */ */
 451 /* OBSOLETE       fprintf (adapt_stream, "G %x,N\r", entry_pt); */
 452 /* OBSOLETE       printf_filtered ("Now use the 'continue' command to start.\n"); */
 453 /* OBSOLETE       expect_prompt (); */
 454 /* OBSOLETE #else */
 455 /* OBSOLETE       insert_breakpoints ();        /* Needed to get correct instruction in cache */ */
 456 /* OBSOLETE       proceed (entry_pt, TARGET_SIGNAL_DEFAULT, 0); */
 457 /* OBSOLETE #endif */
 458 /* OBSOLETE  */
 459 /* OBSOLETE     } */
 460 /* OBSOLETE   else */
 461 /* OBSOLETE     { */
 462 /* OBSOLETE       printf_filtered ("Adapt not open yet.\n"); */
 463 /* OBSOLETE     } */
 464 /* OBSOLETE } */
 465 /* OBSOLETE  */
 466 /* OBSOLETE /* Translate baud rates from integers to damn B_codes.  Unix should */
 467 /* OBSOLETE    have outgrown this crap years ago, but even POSIX wouldn't buck it.  */ */
 468 /* OBSOLETE  */
 469 /* OBSOLETE #ifndef B19200 */
 470 /* OBSOLETE #define B19200 EXTA */
 471 /* OBSOLETE #endif */
 472 /* OBSOLETE #ifndef B38400 */
 473 /* OBSOLETE #define B38400 EXTB */
 474 /* OBSOLETE #endif */
 475 /* OBSOLETE  */
 476 /* OBSOLETE static struct */
 477 /* OBSOLETE { */
 478 /* OBSOLETE   int rate, damn_b; */
 479 /* OBSOLETE } */
 480 /* OBSOLETE baudtab[] = */
 481 /* OBSOLETE { */
 482 /* OBSOLETE   { */
 483 /* OBSOLETE     0, B0 */
 484 /* OBSOLETE   } */
 485 /* OBSOLETE   , */
 486 /* OBSOLETE   { */
 487 /* OBSOLETE     50, B50 */
 488 /* OBSOLETE   } */
 489 /* OBSOLETE   , */
 490 /* OBSOLETE   { */
 491 /* OBSOLETE     75, B75 */
 492 /* OBSOLETE   } */
 493 /* OBSOLETE   , */
 494 /* OBSOLETE   { */
 495 /* OBSOLETE     110, B110 */
 496 /* OBSOLETE   } */
 497 /* OBSOLETE   , */
 498 /* OBSOLETE   { */
 499 /* OBSOLETE     134, B134 */
 500 /* OBSOLETE   } */
 501 /* OBSOLETE   , */
 502 /* OBSOLETE   { */
 503 /* OBSOLETE     150, B150 */
 504 /* OBSOLETE   } */
 505 /* OBSOLETE   , */
 506 /* OBSOLETE   { */
 507 /* OBSOLETE     200, B200 */
 508 /* OBSOLETE   } */
 509 /* OBSOLETE   , */
 510 /* OBSOLETE   { */
 511 /* OBSOLETE     300, B300 */
 512 /* OBSOLETE   } */
 513 /* OBSOLETE   , */
 514 /* OBSOLETE   { */
 515 /* OBSOLETE     600, B600 */
 516 /* OBSOLETE   } */
 517 /* OBSOLETE   , */
 518 /* OBSOLETE   { */
 519 /* OBSOLETE     1200, B1200 */
 520 /* OBSOLETE   } */
 521 /* OBSOLETE   , */
 522 /* OBSOLETE   { */
 523 /* OBSOLETE     1800, B1800 */
 524 /* OBSOLETE   } */
 525 /* OBSOLETE   , */
 526 /* OBSOLETE   { */
 527 /* OBSOLETE     2400, B2400 */
 528 /* OBSOLETE   } */
 529 /* OBSOLETE   , */
 530 /* OBSOLETE   { */
 531 /* OBSOLETE     4800, B4800 */
 532 /* OBSOLETE   } */
 533 /* OBSOLETE   , */
 534 /* OBSOLETE   { */
 535 /* OBSOLETE     9600, B9600 */
 536 /* OBSOLETE   } */
 537 /* OBSOLETE   , */
 538 /* OBSOLETE   { */
 539 /* OBSOLETE     19200, B19200 */
 540 /* OBSOLETE   } */
 541 /* OBSOLETE   , */
 542 /* OBSOLETE   { */
 543 /* OBSOLETE     38400, B38400 */
 544 /* OBSOLETE   } */
 545 /* OBSOLETE   , */
 546 /* OBSOLETE   { */
 547 /* OBSOLETE     -1, -1 */
 548 /* OBSOLETE   } */
 549 /* OBSOLETE   , */
 550 /* OBSOLETE }; */
 551 /* OBSOLETE  */
 552 /* OBSOLETE static int */
 553 /* OBSOLETE damn_b (int rate) */
 554 /* OBSOLETE { */
 555 /* OBSOLETE   int i; */
 556 /* OBSOLETE  */
 557 /* OBSOLETE   for (i = 0; baudtab[i].rate != -1; i++) */
 558 /* OBSOLETE     if (rate == baudtab[i].rate) */
 559 /* OBSOLETE       return baudtab[i].damn_b; */
 560 /* OBSOLETE   return B38400;            /* Random */ */
 561 /* OBSOLETE } */
 562 /* OBSOLETE  */
 563 /* OBSOLETE  */
 564 /* OBSOLETE /* Open a connection to a remote debugger. */
 565 /* OBSOLETE    NAME is the filename used for communication, then a space, */
 566 /* OBSOLETE    then the baud rate. */
 567 /* OBSOLETE  */ */
 568 /* OBSOLETE  */
 569 /* OBSOLETE static int baudrate = 9600; */
 570 /* OBSOLETE static void */
 571 /* OBSOLETE adapt_open (char *name, int from_tty) */
 572 /* OBSOLETE { */
 573 /* OBSOLETE   TERMINAL sg; */
 574 /* OBSOLETE   unsigned int prl; */
 575 /* OBSOLETE   char *p; */
 576 /* OBSOLETE  */
 577 /* OBSOLETE   /* Find the first whitespace character, it separates dev_name from */
 578 /* OBSOLETE      prog_name.  */ */
 579 /* OBSOLETE   if (name == 0) */
 580 /* OBSOLETE     goto erroid; */
 581 /* OBSOLETE  */
 582 /* OBSOLETE   for (p = name; */
 583 /* OBSOLETE        *p != '\0' && !isspace (*p); p++) */
 584 /* OBSOLETE     ; */
 585 /* OBSOLETE   if (*p == '\0') */
 586 /* OBSOLETE   erroid: */
 587 /* OBSOLETE     error ("\ */
 588 /* OBSOLETE Please include the name of the device for the serial port,\n\ */
 589 /* OBSOLETE the baud rate, and the name of the program to run on the remote system."); */
 590 /* OBSOLETE   dev_name = (char *) xmalloc (p - name + 1); */
 591 /* OBSOLETE   strncpy (dev_name, name, p - name); */
 592 /* OBSOLETE   dev_name[p - name] = '\0'; */
 593 /* OBSOLETE  */
 594 /* OBSOLETE   /* Skip over the whitespace after dev_name */ */
 595 /* OBSOLETE   for (; isspace (*p); p++) */
 596 /* OBSOLETE     /*EMPTY */ ; */
 597 /* OBSOLETE  */
 598 /* OBSOLETE   if (1 != sscanf (p, "%d ", &baudrate)) */
 599 /* OBSOLETE     goto erroid; */
 600 /* OBSOLETE  */
 601 /* OBSOLETE   /* Skip the number and then the spaces */ */
 602 /* OBSOLETE   for (; isdigit (*p); p++) */
 603 /* OBSOLETE     /*EMPTY */ ; */
 604 /* OBSOLETE   for (; isspace (*p); p++) */
 605 /* OBSOLETE     /*EMPTY */ ; */
 606 /* OBSOLETE  */
 607 /* OBSOLETE   if (prog_name != NULL) */
 608 /* OBSOLETE     xfree (prog_name); */
 609 /* OBSOLETE   prog_name = savestring (p, strlen (p)); */
 610 /* OBSOLETE  */
 611 /* OBSOLETE   adapt_close (0); */
 612 /* OBSOLETE  */
 613 /* OBSOLETE   adapt_desc = open (dev_name, O_RDWR); */
 614 /* OBSOLETE   if (adapt_desc < 0) */
 615 /* OBSOLETE     perror_with_name (dev_name); */
 616 /* OBSOLETE   ioctl (adapt_desc, TIOCGETP, &sg); */
 617 /* OBSOLETE #if ! defined(COMPILE_CHECK) */
 618 /* OBSOLETE #ifdef HAVE_TERMIO */
 619 /* OBSOLETE   sg.c_cc[VMIN] = 0;                /* read with timeout.  */ */
 620 /* OBSOLETE   sg.c_cc[VTIME] = timeout * 10; */
 621 /* OBSOLETE   sg.c_lflag &= ~(ICANON | ECHO); */
 622 /* OBSOLETE   sg.c_cflag = (sg.c_cflag & ~CBAUD) | damn_b (baudrate); */
 623 /* OBSOLETE #else */
 624 /* OBSOLETE   sg.sg_ispeed = damn_b (baudrate); */
 625 /* OBSOLETE   sg.sg_ospeed = damn_b (baudrate); */
 626 /* OBSOLETE   sg.sg_flags |= RAW | ANYP; */
 627 /* OBSOLETE   sg.sg_flags &= ~ECHO; */
 628 /* OBSOLETE #endif */
 629 /* OBSOLETE  */
 630 /* OBSOLETE   ioctl (adapt_desc, TIOCSETP, &sg); */
 631 /* OBSOLETE   adapt_stream = fdopen (adapt_desc, "r+"); */
 632 /* OBSOLETE #endif /* compile_check */ */
 633 /* OBSOLETE   push_target (&adapt_ops); */
 634 /* OBSOLETE  */
 635 /* OBSOLETE #ifndef HAVE_TERMIO */
 636 /* OBSOLETE #ifndef NO_SIGINTERRUPT */
 637 /* OBSOLETE   /* Cause SIGALRM's to make reads fail with EINTR instead of resuming */
 638 /* OBSOLETE      the read.  */ */
 639 /* OBSOLETE   if (siginterrupt (SIGALRM, 1) != 0) */
 640 /* OBSOLETE     perror ("adapt_open: error in siginterrupt"); */
 641 /* OBSOLETE #endif */
 642 /* OBSOLETE  */
 643 /* OBSOLETE   /* Set up read timeout timer.  */ */
 644 /* OBSOLETE   if ((void (*)) signal (SIGALRM, adapt_timer) == (void (*)) -1) */
 645 /* OBSOLETE     perror ("adapt_open: error in signal"); */
 646 /* OBSOLETE #endif */
 647 /* OBSOLETE  */
 648 /* OBSOLETE #if defined (LOG_FILE) */
 649 /* OBSOLETE   log_file = fopen (LOG_FILE, "w"); */
 650 /* OBSOLETE   if (log_file == NULL) */
 651 /* OBSOLETE     perror_with_name (LOG_FILE); */
 652 /* OBSOLETE #endif */
 653 /* OBSOLETE  */
 654 /* OBSOLETE   /* Put this port into NORMAL mode, send the 'normal' character */ */
 655 /* OBSOLETE   write (adapt_desc, "\ 1", 1);       /* Control A */ */
 656 /* OBSOLETE   write (adapt_desc, "\r", 1); */
 657 /* OBSOLETE   expect_prompt (); */
 658 /* OBSOLETE  */
 659 /* OBSOLETE   /* Hello?  Are you there?  */ */
 660 /* OBSOLETE   write (adapt_desc, "\r", 1); */
 661 /* OBSOLETE  */
 662 /* OBSOLETE   expect_prompt (); */
 663 /* OBSOLETE  */
 664 /* OBSOLETE   /* Clear any break points */ */
 665 /* OBSOLETE   adapt_clear_breakpoints (); */
 666 /* OBSOLETE  */
 667 /* OBSOLETE   /* Print out some stuff, letting the user now what's going on */ */
 668 /* OBSOLETE   printf_filtered ("Connected to an Adapt via %s.\n", dev_name); */
 669 /* OBSOLETE   /* FIXME: can this restriction be removed? */ */
 670 /* OBSOLETE   printf_filtered ("Remote debugging using virtual addresses works only\n"); */
 671 /* OBSOLETE   printf_filtered ("\twhen virtual addresses map 1:1 to physical addresses.\n"); */
 672 /* OBSOLETE   if (processor_type != a29k_freeze_mode) */
 673 /* OBSOLETE     { */
 674 /* OBSOLETE       fprintf_filtered (gdb_stderr, */
 675 /* OBSOLETE                     "Freeze-mode debugging not available, and can only be done on an A29050.\n"); */
 676 /* OBSOLETE     } */
 677 /* OBSOLETE } */
 678 /* OBSOLETE  */
 679 /* OBSOLETE /* Close out all files and local state before this target loses control. */ */
 680 /* OBSOLETE  */
 681 /* OBSOLETE static void */
 682 /* OBSOLETE adapt_close (int quitting) */
 683 /* OBSOLETE { */
 684 /* OBSOLETE  */
 685 /* OBSOLETE   /* Clear any break points */ */
 686 /* OBSOLETE   adapt_clear_breakpoints (); */
 687 /* OBSOLETE  */
 688 /* OBSOLETE   /* Put this port back into REMOTE mode */ */
 689 /* OBSOLETE   if (adapt_stream) */
 690 /* OBSOLETE     { */
 691 /* OBSOLETE       fflush (adapt_stream); */
 692 /* OBSOLETE       sleep (1);            /* Let any output make it all the way back */ */
 693 /* OBSOLETE       write (adapt_desc, "R\r", 2); */
 694 /* OBSOLETE     } */
 695 /* OBSOLETE  */
 696 /* OBSOLETE   /* Due to a bug in Unix, fclose closes not only the stdio stream, */
 697 /* OBSOLETE      but also the file descriptor.  So we don't actually close */
 698 /* OBSOLETE      adapt_desc.  */ */
 699 /* OBSOLETE   if (adapt_stream) */
 700 /* OBSOLETE     fclose (adapt_stream);  /* This also closes adapt_desc */ */
 701 /* OBSOLETE   if (adapt_desc >= 0) */
 702 /* OBSOLETE     /* close (adapt_desc); */ */
 703 /* OBSOLETE  */
 704 /* OBSOLETE     /* Do not try to close adapt_desc again, later in the program.  */ */
 705 /* OBSOLETE     adapt_stream = NULL; */
 706 /* OBSOLETE   adapt_desc = -1; */
 707 /* OBSOLETE  */
 708 /* OBSOLETE #if defined (LOG_FILE) */
 709 /* OBSOLETE   if (log_file) */
 710 /* OBSOLETE     { */
 711 /* OBSOLETE       if (ferror (log_file)) */
 712 /* OBSOLETE     printf_filtered ("Error writing log file.\n"); */
 713 /* OBSOLETE       if (fclose (log_file) != 0) */
 714 /* OBSOLETE     printf_filtered ("Error closing log file.\n"); */
 715 /* OBSOLETE       log_file = NULL; */
 716 /* OBSOLETE     } */
 717 /* OBSOLETE #endif */
 718 /* OBSOLETE } */
 719 /* OBSOLETE  */
 720 /* OBSOLETE /* Attach to the target that is already loaded and possibly running */ */
 721 /* OBSOLETE static void */
 722 /* OBSOLETE adapt_attach (char *args, int from_tty) */
 723 /* OBSOLETE { */
 724 /* OBSOLETE  */
 725 /* OBSOLETE   if (from_tty) */
 726 /* OBSOLETE     printf_filtered ("Attaching to remote program %s.\n", prog_name); */
 727 /* OBSOLETE  */
 728 /* OBSOLETE   /* Send the adapt a kill. It is ok if it is not already running */ */
 729 /* OBSOLETE   fprintf (adapt_stream, "K\r"); */
 730 /* OBSOLETE   fflush (adapt_stream); */
 731 /* OBSOLETE   expect_prompt ();         /* Slurp the echo */ */
 732 /* OBSOLETE } */
 733 /* OBSOLETE  */
 734 /* OBSOLETE  */
 735 /* OBSOLETE /* Terminate the open connection to the remote debugger. */
 736 /* OBSOLETE    Use this when you want to detach and do something else */
 737 /* OBSOLETE    with your gdb.  */ */
 738 /* OBSOLETE void */
 739 /* OBSOLETE adapt_detach (char *args, int from_tty) */
 740 /* OBSOLETE { */
 741 /* OBSOLETE  */
 742 /* OBSOLETE   if (adapt_stream) */
 743 /* OBSOLETE     {                               /* Send it on its way (tell it to continue)  */ */
 744 /* OBSOLETE       adapt_clear_breakpoints (); */
 745 /* OBSOLETE       fprintf (adapt_stream, "G\r"); */
 746 /* OBSOLETE     } */
 747 /* OBSOLETE  */
 748 /* OBSOLETE   pop_target ();            /* calls adapt_close to do the real work */ */
 749 /* OBSOLETE   if (from_tty) */
 750 /* OBSOLETE     printf_filtered ("Ending remote %s debugging\n", target_shortname); */
 751 /* OBSOLETE } */
 752 /* OBSOLETE  */
 753 /* OBSOLETE /* Tell the remote machine to resume.  */ */
 754 /* OBSOLETE  */
 755 /* OBSOLETE void */
 756 /* OBSOLETE adapt_resume (ptid_t ptid, int step, enum target_signal sig) */
 757 /* OBSOLETE { */
 758 /* OBSOLETE   if (step) */
 759 /* OBSOLETE     { */
 760 /* OBSOLETE       write (adapt_desc, "t 1,s\r", 6); */
 761 /* OBSOLETE       /* Wait for the echo.  */ */
 762 /* OBSOLETE       expect ("t 1,s\r\n"); */
 763 /* OBSOLETE       /* Then comes a line containing the instruction we stepped to.  */ */
 764 /* OBSOLETE       expect ("@"); */
 765 /* OBSOLETE       /* Then we get the prompt.  */ */
 766 /* OBSOLETE       expect_prompt (); */
 767 /* OBSOLETE  */
 768 /* OBSOLETE       /* Force the next adapt_wait to return a trap.  Not doing anything */
 769 /* OBSOLETE          about I/O from the target means that the user has to type */
 770 /* OBSOLETE          "continue" to see any.  FIXME, this should be fixed.  */ */
 771 /* OBSOLETE       need_artificial_trap = 1; */
 772 /* OBSOLETE     } */
 773 /* OBSOLETE   else */
 774 /* OBSOLETE     { */
 775 /* OBSOLETE       write (adapt_desc, "G\r", 2); */
 776 /* OBSOLETE       /* Swallow the echo.  */ */
 777 /* OBSOLETE       expect_prompt (); */
 778 /* OBSOLETE     } */
 779 /* OBSOLETE } */
 780 /* OBSOLETE  */
 781 /* OBSOLETE /* Wait until the remote machine stops, then return, */
 782 /* OBSOLETE    storing status in STATUS just as `wait' would.  */ */
 783 /* OBSOLETE  */
 784 /* OBSOLETE ptid_t */
 785 /* OBSOLETE adapt_wait (ptid_t ptid, struct target_waitstatus *status) */
 786 /* OBSOLETE { */
 787 /* OBSOLETE   /* Strings to look for.  '?' means match any single character.   */
 788 /* OBSOLETE      Note that with the algorithm we use, the initial character */
 789 /* OBSOLETE      of the string cannot recur in the string, or we will not */
 790 /* OBSOLETE      find some cases of the string in the input.  */ */
 791 /* OBSOLETE  */
 792 /* OBSOLETE   static char bpt[] = "@"; */
 793 /* OBSOLETE   /* It would be tempting to look for "\n[__exit + 0x8]\n" */
 794 /* OBSOLETE      but that requires loading symbols with "yc i" and even if */
 795 /* OBSOLETE      we did do that we don't know that the file has symbols.  */ */
 796 /* OBSOLETE   static char exitmsg[] = "@????????I    JMPTI     GR121,LR0"; */
 797 /* OBSOLETE   char *bp = bpt; */
 798 /* OBSOLETE   char *ep = exitmsg; */
 799 /* OBSOLETE  */
 800 /* OBSOLETE   /* Large enough for either sizeof (bpt) or sizeof (exitmsg) chars.  */ */
 801 /* OBSOLETE   char swallowed[50]; */
 802 /* OBSOLETE   /* Current position in swallowed.  */ */
 803 /* OBSOLETE   char *swallowed_p = swallowed; */
 804 /* OBSOLETE  */
 805 /* OBSOLETE   int ch; */
 806 /* OBSOLETE   int ch_handled; */
 807 /* OBSOLETE   int old_timeout = timeout; */
 808 /* OBSOLETE   int old_immediate_quit = immediate_quit; */
 809 /* OBSOLETE  */
 810 /* OBSOLETE   status->kind = TARGET_WAITKIND_EXITED; */
 811 /* OBSOLETE   status->value.integer = 0; */
 812 /* OBSOLETE  */
 813 /* OBSOLETE   if (need_artificial_trap != 0) */
 814 /* OBSOLETE     { */
 815 /* OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED; */
 816 /* OBSOLETE       status->value.sig = TARGET_SIGNAL_TRAP; */
 817 /* OBSOLETE       need_artificial_trap--; */
 818 /* OBSOLETE       return inferior_ptid; */
 819 /* OBSOLETE     } */
 820 /* OBSOLETE  */
 821 /* OBSOLETE   timeout = 0;                      /* Don't time out -- user program is running. */ */
 822 /* OBSOLETE   immediate_quit = 1;               /* Helps ability to QUIT */ */
 823 /* OBSOLETE   while (1) */
 824 /* OBSOLETE     { */
 825 /* OBSOLETE       QUIT;                 /* Let user quit and leave process running */ */
 826 /* OBSOLETE       ch_handled = 0; */
 827 /* OBSOLETE       ch = readchar (); */
 828 /* OBSOLETE       if (ch == *bp) */
 829 /* OBSOLETE     { */
 830 /* OBSOLETE       bp++; */
 831 /* OBSOLETE       if (*bp == '\0') */
 832 /* OBSOLETE         break; */
 833 /* OBSOLETE       ch_handled = 1; */
 834 /* OBSOLETE  */
 835 /* OBSOLETE       *swallowed_p++ = ch; */
 836 /* OBSOLETE     } */
 837 /* OBSOLETE       else */
 838 /* OBSOLETE     bp = bpt; */
 839 /* OBSOLETE       if (ch == *ep || *ep == '?') */
 840 /* OBSOLETE     { */
 841 /* OBSOLETE       ep++; */
 842 /* OBSOLETE       if (*ep == '\0') */
 843 /* OBSOLETE         break; */
 844 /* OBSOLETE  */
 845 /* OBSOLETE       if (!ch_handled) */
 846 /* OBSOLETE         *swallowed_p++ = ch; */
 847 /* OBSOLETE       ch_handled = 1; */
 848 /* OBSOLETE     } */
 849 /* OBSOLETE       else */
 850 /* OBSOLETE     ep = exitmsg; */
 851 /* OBSOLETE       if (!ch_handled) */
 852 /* OBSOLETE     { */
 853 /* OBSOLETE       char *p; */
 854 /* OBSOLETE       /* Print out any characters which have been swallowed.  */ */
 855 /* OBSOLETE       for (p = swallowed; p < swallowed_p; ++p) */
 856 /* OBSOLETE         putc (*p, stdout); */
 857 /* OBSOLETE       swallowed_p = swallowed; */
 858 /* OBSOLETE       putc (ch, stdout); */
 859 /* OBSOLETE     } */
 860 /* OBSOLETE     } */
 861 /* OBSOLETE   expect_prompt (); */
 862 /* OBSOLETE   if (*bp == '\0') */
 863 /* OBSOLETE     { */
 864 /* OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED; */
 865 /* OBSOLETE       status->value.sig = TARGET_SIGNAL_TRAP; */
 866 /* OBSOLETE     } */
 867 /* OBSOLETE   else */
 868 /* OBSOLETE     { */
 869 /* OBSOLETE       status->kind = TARGET_WAITKIND_EXITED; */
 870 /* OBSOLETE       status->value.integer = 0; */
 871 /* OBSOLETE     } */
 872 /* OBSOLETE   timeout = old_timeout; */
 873 /* OBSOLETE   immediate_quit = old_immediate_quit; */
 874 /* OBSOLETE   return inferior_ptid; */
 875 /* OBSOLETE } */
 876 /* OBSOLETE  */
 877 /* OBSOLETE /* Return the name of register number REGNO */
 878 /* OBSOLETE    in the form input and output by adapt. */
 879 /* OBSOLETE  */
 880 /* OBSOLETE    Returns a pointer to a static buffer containing the answer.  */ */
 881 /* OBSOLETE static char * */
 882 /* OBSOLETE get_reg_name (int regno) */
 883 /* OBSOLETE { */
 884 /* OBSOLETE   static char buf[80]; */
 885 /* OBSOLETE   if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32) */
 886 /* OBSOLETE     sprintf (buf, "GR%03d", regno - GR96_REGNUM + 96); */
 887 /* OBSOLETE #if defined(GR64_REGNUM) */
 888 /* OBSOLETE   else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32) */
 889 /* OBSOLETE     sprintf (buf, "GR%03d", regno - GR64_REGNUM + 64); */
 890 /* OBSOLETE #endif */
 891 /* OBSOLETE   else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) */
 892 /* OBSOLETE     sprintf (buf, "LR%03d", regno - LR0_REGNUM); */
 893 /* OBSOLETE   else if (regno == Q_REGNUM) */
 894 /* OBSOLETE     strcpy (buf, "SR131"); */
 895 /* OBSOLETE   else if (regno >= BP_REGNUM && regno <= CR_REGNUM) */
 896 /* OBSOLETE     sprintf (buf, "SR%03d", regno - BP_REGNUM + 133); */
 897 /* OBSOLETE   else if (regno == ALU_REGNUM) */
 898 /* OBSOLETE     strcpy (buf, "SR132"); */
 899 /* OBSOLETE   else if (regno >= IPC_REGNUM && regno <= IPB_REGNUM) */
 900 /* OBSOLETE     sprintf (buf, "SR%03d", regno - IPC_REGNUM + 128); */
 901 /* OBSOLETE   else if (regno >= VAB_REGNUM && regno <= LRU_REGNUM) */
 902 /* OBSOLETE     { */
 903 /* OBSOLETE       /* When a 29050 is in freeze-mode, read shadow pcs instead */ */
 904 /* OBSOLETE       if ((regno >= NPC_REGNUM && regno <= PC2_REGNUM) && USE_SHADOW_PC) */
 905 /* OBSOLETE     sprintf (buf, "SR%03d", regno - NPC_REGNUM + 20); */
 906 /* OBSOLETE       else */
 907 /* OBSOLETE     sprintf (buf, "SR%03d", regno - VAB_REGNUM); */
 908 /* OBSOLETE     } */
 909 /* OBSOLETE   else if (regno == GR1_REGNUM) */
 910 /* OBSOLETE     strcpy (buf, "GR001"); */
 911 /* OBSOLETE   return buf; */
 912 /* OBSOLETE } */
 913 /* OBSOLETE  */
 914 /* OBSOLETE /* Read the remote registers.  */ */
 915 /* OBSOLETE  */
 916 /* OBSOLETE static void */
 917 /* OBSOLETE adapt_fetch_registers (void) */
 918 /* OBSOLETE { */
 919 /* OBSOLETE   int reg_index; */
 920 /* OBSOLETE   int regnum_index; */
 921 /* OBSOLETE   char tempbuf[10]; */
 922 /* OBSOLETE   int sreg_buf[16]; */
 923 /* OBSOLETE   int i, j; */
 924 /* OBSOLETE  */
 925 /* OBSOLETE /*  */
 926 /* OBSOLETE  * Global registers */
 927 /* OBSOLETE  */ */
 928 /* OBSOLETE #if defined(GR64_REGNUM) */
 929 /* OBSOLETE   write (adapt_desc, "dw gr64,gr95\r", 13); */
 930 /* OBSOLETE   for (reg_index = 64, regnum_index = GR64_REGNUM; */
 931 /* OBSOLETE        reg_index < 96; */
 932 /* OBSOLETE        reg_index += 4, regnum_index += 4) */
 933 /* OBSOLETE     { */
 934 /* OBSOLETE       sprintf (tempbuf, "GR%03d ", reg_index); */
 935 /* OBSOLETE       expect (tempbuf); */
 936 /* OBSOLETE       get_hex_regs (4, regnum_index); */
 937 /* OBSOLETE       expect ("\n"); */
 938 /* OBSOLETE     } */
 939 /* OBSOLETE #endif */
 940 /* OBSOLETE   write (adapt_desc, "dw gr96,gr127\r", 14); */
 941 /* OBSOLETE   for (reg_index = 96, regnum_index = GR96_REGNUM; */
 942 /* OBSOLETE        reg_index < 128; */
 943 /* OBSOLETE        reg_index += 4, regnum_index += 4) */
 944 /* OBSOLETE     { */
 945 /* OBSOLETE       sprintf (tempbuf, "GR%03d ", reg_index); */
 946 /* OBSOLETE       expect (tempbuf); */
 947 /* OBSOLETE       get_hex_regs (4, regnum_index); */
 948 /* OBSOLETE       expect ("\n"); */
 949 /* OBSOLETE     } */
 950 /* OBSOLETE  */
 951 /* OBSOLETE /*  */
 952 /* OBSOLETE  * Local registers */
 953 /* OBSOLETE  */ */
 954 /* OBSOLETE   for (i = 0; i < 128; i += 32) */
 955 /* OBSOLETE     { */
 956 /* OBSOLETE       /* The PC has a tendency to hang if we get these */
 957 /* OBSOLETE          all in one fell swoop ("dw lr0,lr127").  */ */
 958 /* OBSOLETE       sprintf (tempbuf, "dw lr%d\r", i); */
 959 /* OBSOLETE       write (adapt_desc, tempbuf, strlen (tempbuf)); */
 960 /* OBSOLETE       for (reg_index = i, regnum_index = LR0_REGNUM + i; */
 961 /* OBSOLETE        reg_index < i + 32; */
 962 /* OBSOLETE        reg_index += 4, regnum_index += 4) */
 963 /* OBSOLETE     { */
 964 /* OBSOLETE       sprintf (tempbuf, "LR%03d ", reg_index); */
 965 /* OBSOLETE       expect (tempbuf); */
 966 /* OBSOLETE       get_hex_regs (4, regnum_index); */
 967 /* OBSOLETE       expect ("\n"); */
 968 /* OBSOLETE     } */
 969 /* OBSOLETE     } */
 970 /* OBSOLETE  */
 971 /* OBSOLETE /*  */
 972 /* OBSOLETE  * Special registers */
 973 /* OBSOLETE  */ */
 974 /* OBSOLETE   sprintf (tempbuf, "dw sr0\r"); */
 975 /* OBSOLETE   write (adapt_desc, tempbuf, strlen (tempbuf)); */
 976 /* OBSOLETE   for (i = 0; i < 4; i++) */
 977 /* OBSOLETE     {                               /* SR0 - SR14 */ */
 978 /* OBSOLETE       sprintf (tempbuf, "SR%3d", i * 4); */
 979 /* OBSOLETE       expect (tempbuf); */
 980 /* OBSOLETE       for (j = 0; j < (i == 3 ? 3 : 4); j++) */
 981 /* OBSOLETE     sreg_buf[i * 4 + j] = get_hex_word (); */
 982 /* OBSOLETE     } */
 983 /* OBSOLETE   expect_prompt (); */
 984 /* OBSOLETE   /*  */
 985 /* OBSOLETE    * Read the pcs individually if we are in freeze mode. */
 986 /* OBSOLETE    * See get_reg_name(), it translates the register names for the pcs to */
 987 /* OBSOLETE    * the names of the shadow pcs. */
 988 /* OBSOLETE    */ */
 989 /* OBSOLETE   if (USE_SHADOW_PC) */
 990 /* OBSOLETE     { */
 991 /* OBSOLETE       sreg_buf[10] = read_register (NPC_REGNUM);    /* pc0 */ */
 992 /* OBSOLETE       sreg_buf[11] = read_register (PC_REGNUM);             /* pc1 */ */
 993 /* OBSOLETE       sreg_buf[12] = read_register (PC2_REGNUM);    /* pc2 */ */
 994 /* OBSOLETE     } */
 995 /* OBSOLETE   for (i = 0; i < 14; i++)  /* Supply vab -> lru */ */
 996 /* OBSOLETE     supply_register (VAB_REGNUM + i, (char *) &sreg_buf[i]); */
 997 /* OBSOLETE   sprintf (tempbuf, "dw sr128\r"); */
 998 /* OBSOLETE   write (adapt_desc, tempbuf, strlen (tempbuf)); */
 999 /* OBSOLETE   for (i = 0; i < 2; i++) */
1000 /* OBSOLETE     {                               /* SR128 - SR135 */ */
1001 /* OBSOLETE       sprintf (tempbuf, "SR%3d", 128 + i * 4); */
1002 /* OBSOLETE       expect (tempbuf); */
1003 /* OBSOLETE       for (j = 0; j < 4; j++) */
1004 /* OBSOLETE     sreg_buf[i * 4 + j] = get_hex_word (); */
1005 /* OBSOLETE     } */
1006 /* OBSOLETE   expect_prompt (); */
1007 /* OBSOLETE   supply_register (IPC_REGNUM, (char *) &sreg_buf[0]); */
1008 /* OBSOLETE   supply_register (IPA_REGNUM, (char *) &sreg_buf[1]); */
1009 /* OBSOLETE   supply_register (IPB_REGNUM, (char *) &sreg_buf[2]); */
1010 /* OBSOLETE   supply_register (Q_REGNUM, (char *) &sreg_buf[3]); */
1011 /* OBSOLETE   /* Skip ALU */ */
1012 /* OBSOLETE   supply_register (BP_REGNUM, (char *) &sreg_buf[5]); */
1013 /* OBSOLETE   supply_register (FC_REGNUM, (char *) &sreg_buf[6]); */
1014 /* OBSOLETE   supply_register (CR_REGNUM, (char *) &sreg_buf[7]); */
1015 /* OBSOLETE  */
1016 /* OBSOLETE   /* There doesn't seem to be any way to get these.  */ */
1017 /* OBSOLETE   { */
1018 /* OBSOLETE     int val = -1; */
1019 /* OBSOLETE     supply_register (FPE_REGNUM, (char *) &val); */
1020 /* OBSOLETE     supply_register (INTE_REGNUM, (char *) &val); */
1021 /* OBSOLETE     supply_register (FPS_REGNUM, (char *) &val); */
1022 /* OBSOLETE     supply_register (EXO_REGNUM, (char *) &val); */
1023 /* OBSOLETE   } */
1024 /* OBSOLETE  */
1025 /* OBSOLETE   write (adapt_desc, "dw gr1,gr1\r", 11); */
1026 /* OBSOLETE   expect ("GR001 "); */
1027 /* OBSOLETE   get_hex_regs (1, GR1_REGNUM); */
1028 /* OBSOLETE   expect_prompt (); */
1029 /* OBSOLETE } */
1030 /* OBSOLETE  */
1031 /* OBSOLETE /* Fetch register REGNO, or all registers if REGNO is -1. */
1032 /* OBSOLETE  */ */
1033 /* OBSOLETE static void */
1034 /* OBSOLETE adapt_fetch_register (int regno) */
1035 /* OBSOLETE { */
1036 /* OBSOLETE   if (regno == -1) */
1037 /* OBSOLETE     adapt_fetch_registers (); */
1038 /* OBSOLETE   else */
1039 /* OBSOLETE     { */
1040 /* OBSOLETE       char *name = get_reg_name (regno); */
1041 /* OBSOLETE       fprintf (adapt_stream, "dw %s,%s\r", name, name); */
1042 /* OBSOLETE       expect (name); */
1043 /* OBSOLETE       expect (" "); */
1044 /* OBSOLETE       get_hex_regs (1, regno); */
1045 /* OBSOLETE       expect_prompt (); */
1046 /* OBSOLETE     } */
1047 /* OBSOLETE } */
1048 /* OBSOLETE  */
1049 /* OBSOLETE /* Store the remote registers from the contents of the block REGS.  */ */
1050 /* OBSOLETE  */
1051 /* OBSOLETE static void */
1052 /* OBSOLETE adapt_store_registers (void) */
1053 /* OBSOLETE { */
1054 /* OBSOLETE   int i, j; */
1055 /* OBSOLETE  */
1056 /* OBSOLETE   fprintf (adapt_stream, "s gr1,%x\r", read_register (GR1_REGNUM)); */
1057 /* OBSOLETE   expect_prompt (); */
1058 /* OBSOLETE  */
1059 /* OBSOLETE #if defined(GR64_REGNUM) */
1060 /* OBSOLETE   for (j = 0; j < 32; j += 16) */
1061 /* OBSOLETE     { */
1062 /* OBSOLETE       fprintf (adapt_stream, "s gr%d,", j + 64); */
1063 /* OBSOLETE       for (i = 0; i < 15; ++i) */
1064 /* OBSOLETE     fprintf (adapt_stream, "%x,", read_register (GR64_REGNUM + j + i)); */
1065 /* OBSOLETE       fprintf (adapt_stream, "%x\r", read_register (GR64_REGNUM + j + 15)); */
1066 /* OBSOLETE       expect_prompt (); */
1067 /* OBSOLETE     } */
1068 /* OBSOLETE #endif */
1069 /* OBSOLETE   for (j = 0; j < 32; j += 16) */
1070 /* OBSOLETE     { */
1071 /* OBSOLETE       fprintf (adapt_stream, "s gr%d,", j + 96); */
1072 /* OBSOLETE       for (i = 0; i < 15; ++i) */
1073 /* OBSOLETE     fprintf (adapt_stream, "%x,", read_register (GR96_REGNUM + j + i)); */
1074 /* OBSOLETE       fprintf (adapt_stream, "%x\r", read_register (GR96_REGNUM + j + 15)); */
1075 /* OBSOLETE       expect_prompt (); */
1076 /* OBSOLETE     } */
1077 /* OBSOLETE  */
1078 /* OBSOLETE   for (j = 0; j < 128; j += 16) */
1079 /* OBSOLETE     { */
1080 /* OBSOLETE       fprintf (adapt_stream, "s lr%d,", j); */
1081 /* OBSOLETE       for (i = 0; i < 15; ++i) */
1082 /* OBSOLETE     fprintf (adapt_stream, "%x,", read_register (LR0_REGNUM + j + i)); */
1083 /* OBSOLETE       fprintf (adapt_stream, "%x\r", read_register (LR0_REGNUM + j + 15)); */
1084 /* OBSOLETE       expect_prompt (); */
1085 /* OBSOLETE     } */
1086 /* OBSOLETE  */
1087 /* OBSOLETE   fprintf (adapt_stream, "s sr128,%x,%x,%x\r", read_register (IPC_REGNUM), */
1088 /* OBSOLETE        read_register (IPA_REGNUM), read_register (IPB_REGNUM)); */
1089 /* OBSOLETE   expect_prompt (); */
1090 /* OBSOLETE   fprintf (adapt_stream, "s sr133,%x,%x,%x\r", read_register (BP_REGNUM), */
1091 /* OBSOLETE        read_register (FC_REGNUM), read_register (CR_REGNUM)); */
1092 /* OBSOLETE   expect_prompt (); */
1093 /* OBSOLETE   fprintf (adapt_stream, "s sr131,%x\r", read_register (Q_REGNUM)); */
1094 /* OBSOLETE   expect_prompt (); */
1095 /* OBSOLETE   fprintf (adapt_stream, "s sr0,"); */
1096 /* OBSOLETE   for (i = 0; i < 7; ++i) */
1097 /* OBSOLETE     fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i)); */
1098 /* OBSOLETE   expect_prompt (); */
1099 /* OBSOLETE   fprintf (adapt_stream, "s sr7,"); */
1100 /* OBSOLETE   for (i = 7; i < 14; ++i) */
1101 /* OBSOLETE     fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i)); */
1102 /* OBSOLETE   expect_prompt (); */
1103 /* OBSOLETE } */
1104 /* OBSOLETE  */
1105 /* OBSOLETE /* Store register REGNO, or all if REGNO == -1. */
1106 /* OBSOLETE    Return errno value.  */ */
1107 /* OBSOLETE void */
1108 /* OBSOLETE adapt_store_register (int regno) */
1109 /* OBSOLETE { */
1110 /* OBSOLETE   /* printf("adapt_store_register() called.\n"); fflush(stdout); /* */ */
1111 /* OBSOLETE   if (regno == -1) */
1112 /* OBSOLETE     adapt_store_registers (); */
1113 /* OBSOLETE   else */
1114 /* OBSOLETE     { */
1115 /* OBSOLETE       char *name = get_reg_name (regno); */
1116 /* OBSOLETE       fprintf (adapt_stream, "s %s,%x\r", name, read_register (regno)); */
1117 /* OBSOLETE       /* Setting GR1 changes the numbers of all the locals, so */
1118 /* OBSOLETE          invalidate the register cache.  Do this *after* calling */
1119 /* OBSOLETE          read_register, because we want read_register to return the */
1120 /* OBSOLETE          value that write_register has just stuffed into the registers */
1121 /* OBSOLETE          array, not the value of the register fetched from the */
1122 /* OBSOLETE          inferior.  */ */
1123 /* OBSOLETE       if (regno == GR1_REGNUM) */
1124 /* OBSOLETE     registers_changed (); */
1125 /* OBSOLETE       expect_prompt (); */
1126 /* OBSOLETE     } */
1127 /* OBSOLETE } */
1128 /* OBSOLETE  */
1129 /* OBSOLETE /* Get ready to modify the registers array.  On machines which store */
1130 /* OBSOLETE    individual registers, this doesn't need to do anything.  On machines */
1131 /* OBSOLETE    which store all the registers in one fell swoop, this makes sure */
1132 /* OBSOLETE    that registers contains all the registers from the program being */
1133 /* OBSOLETE    debugged.  */ */
1134 /* OBSOLETE  */
1135 /* OBSOLETE void */
1136 /* OBSOLETE adapt_prepare_to_store (void) */
1137 /* OBSOLETE { */
1138 /* OBSOLETE   /* Do nothing, since we can store individual regs */ */
1139 /* OBSOLETE } */
1140 /* OBSOLETE  */
1141 /* OBSOLETE static CORE_ADDR */
1142 /* OBSOLETE translate_addr (CORE_ADDR addr) */
1143 /* OBSOLETE { */
1144 /* OBSOLETE #if defined(KERNEL_DEBUGGING) */
1145 /* OBSOLETE   /* Check for a virtual address in the kernel */ */
1146 /* OBSOLETE   /* Assume physical address of ublock is in  paddr_u register */ */
1147 /* OBSOLETE   if (addr >= UVADDR) */
1148 /* OBSOLETE     { */
1149 /* OBSOLETE       /* PADDR_U register holds the physical address of the ublock */ */
1150 /* OBSOLETE       CORE_ADDR i = (CORE_ADDR) read_register (PADDR_U_REGNUM); */
1151 /* OBSOLETE       return (i + addr - (CORE_ADDR) UVADDR); */
1152 /* OBSOLETE     } */
1153 /* OBSOLETE   else */
1154 /* OBSOLETE     { */
1155 /* OBSOLETE       return (addr); */
1156 /* OBSOLETE     } */
1157 /* OBSOLETE #else */
1158 /* OBSOLETE   return (addr); */
1159 /* OBSOLETE #endif */
1160 /* OBSOLETE } */
1161 /* OBSOLETE  */
1162 /* OBSOLETE  */
1163 /* OBSOLETE /* FIXME!  Merge these two.  */ */
1164 /* OBSOLETE int */
1165 /* OBSOLETE adapt_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len, int write, */
1166 /* OBSOLETE                         struct mem_attrib *attrib ATTRIBUTE_UNUSED, */
1167 /* OBSOLETE                         struct target_ops *target ATTRIBUTE_UNUSED) */
1168 /* OBSOLETE { */
1169 /* OBSOLETE  */
1170 /* OBSOLETE   memaddr = translate_addr (memaddr); */
1171 /* OBSOLETE  */
1172 /* OBSOLETE   if (write) */
1173 /* OBSOLETE     return adapt_write_inferior_memory (memaddr, myaddr, len); */
1174 /* OBSOLETE   else */
1175 /* OBSOLETE     return adapt_read_inferior_memory (memaddr, myaddr, len); */
1176 /* OBSOLETE } */
1177 /* OBSOLETE  */
1178 /* OBSOLETE void */
1179 /* OBSOLETE adapt_files_info (void) */
1180 /* OBSOLETE { */
1181 /* OBSOLETE   printf_filtered ("\tAttached to %s at %d baud and running program %s\n", */
1182 /* OBSOLETE                dev_name, baudrate, prog_name); */
1183 /* OBSOLETE   printf_filtered ("\ton an %s processor.\n", processor_name[processor_type]); */
1184 /* OBSOLETE } */
1185 /* OBSOLETE  */
1186 /* OBSOLETE /* Copy LEN bytes of data from debugger memory at MYADDR */
1187 /* OBSOLETE    to inferior's memory at MEMADDR.  Returns errno value.   */
1188 /* OBSOLETE    * sb/sh instructions don't work on unaligned addresses, when TU=1.  */
1189 /* OBSOLETE  */ */
1190 /* OBSOLETE int */
1191 /* OBSOLETE adapt_write_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len) */
1192 /* OBSOLETE { */
1193 /* OBSOLETE   int i; */
1194 /* OBSOLETE   unsigned int cps; */
1195 /* OBSOLETE  */
1196 /* OBSOLETE   /* Turn TU bit off so we can do 'sb' commands */ */
1197 /* OBSOLETE   cps = read_register (CPS_REGNUM); */
1198 /* OBSOLETE   if (cps & 0x00000800) */
1199 /* OBSOLETE     write_register (CPS_REGNUM, cps & ~(0x00000800)); */
1200 /* OBSOLETE  */
1201 /* OBSOLETE   for (i = 0; i < len; i++) */
1202 /* OBSOLETE     { */
1203 /* OBSOLETE       if ((i % 16) == 0) */
1204 /* OBSOLETE     fprintf (adapt_stream, "sb %x,", memaddr + i); */
1205 /* OBSOLETE       if ((i % 16) == 15 || i == len - 1) */
1206 /* OBSOLETE     { */
1207 /* OBSOLETE       fprintf (adapt_stream, "%x\r", ((unsigned char *) myaddr)[i]); */
1208 /* OBSOLETE       expect_prompt (); */
1209 /* OBSOLETE     } */
1210 /* OBSOLETE       else */
1211 /* OBSOLETE     fprintf (adapt_stream, "%x,", ((unsigned char *) myaddr)[i]); */
1212 /* OBSOLETE     } */
1213 /* OBSOLETE   /* Restore the old value of cps if the TU bit was on */ */
1214 /* OBSOLETE   if (cps & 0x00000800) */
1215 /* OBSOLETE     write_register (CPS_REGNUM, cps); */
1216 /* OBSOLETE   return len; */
1217 /* OBSOLETE } */
1218 /* OBSOLETE  */
1219 /* OBSOLETE /* Read LEN bytes from inferior memory at MEMADDR.  Put the result */
1220 /* OBSOLETE    at debugger address MYADDR.  Returns errno value.  */ */
1221 /* OBSOLETE int */
1222 /* OBSOLETE adapt_read_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len) */
1223 /* OBSOLETE { */
1224 /* OBSOLETE   int i; */
1225 /* OBSOLETE  */
1226 /* OBSOLETE   /* Number of bytes read so far.  */ */
1227 /* OBSOLETE   int count; */
1228 /* OBSOLETE  */
1229 /* OBSOLETE   /* Starting address of this pass.  */ */
1230 /* OBSOLETE   unsigned long startaddr; */
1231 /* OBSOLETE  */
1232 /* OBSOLETE   /* Number of bytes to read in this pass.  */ */
1233 /* OBSOLETE   int len_this_pass; */
1234 /* OBSOLETE  */
1235 /* OBSOLETE   /* Note that this code works correctly if startaddr is just less */
1236 /* OBSOLETE      than UINT_MAX (well, really CORE_ADDR_MAX if there was such a */
1237 /* OBSOLETE      thing).  That is, something like */
1238 /* OBSOLETE      adapt_read_bytes (CORE_ADDR_MAX - 4, foo, 4) */
1239 /* OBSOLETE      works--it never adds len to memaddr and gets 0.  */ */
1240 /* OBSOLETE   /* However, something like */
1241 /* OBSOLETE      adapt_read_bytes (CORE_ADDR_MAX - 3, foo, 4) */
1242 /* OBSOLETE      doesn't need to work.  Detect it and give up if there's an attempt */
1243 /* OBSOLETE      to do that.  */ */
1244 /* OBSOLETE  */
1245 /* OBSOLETE   if (((memaddr - 1) + len) < memaddr) */
1246 /* OBSOLETE     return EIO; */
1247 /* OBSOLETE  */
1248 /* OBSOLETE   startaddr = memaddr; */
1249 /* OBSOLETE   count = 0; */
1250 /* OBSOLETE   while (count < len) */
1251 /* OBSOLETE     { */
1252 /* OBSOLETE       len_this_pass = 16; */
1253 /* OBSOLETE       if ((startaddr % 16) != 0) */
1254 /* OBSOLETE     len_this_pass -= startaddr % 16; */
1255 /* OBSOLETE       if (len_this_pass > (len - count)) */
1256 /* OBSOLETE     len_this_pass = (len - count); */
1257 /* OBSOLETE  */
1258 /* OBSOLETE       fprintf (adapt_stream, "db %x,%x\r", startaddr, */
1259 /* OBSOLETE            (startaddr - 1) + len_this_pass); */
1260 /* OBSOLETE  */
1261 /* OBSOLETE #ifdef NOTDEF                       /* Why do this */ */
1262 /* OBSOLETE       expect ("\n"); */
1263 /* OBSOLETE       /* Look for 8 hex digits.  */ */
1264 /* OBSOLETE       i = 0; */
1265 /* OBSOLETE       while (1) */
1266 /* OBSOLETE     { */
1267 /* OBSOLETE       if (isxdigit (readchar ())) */
1268 /* OBSOLETE         ++i; */
1269 /* OBSOLETE       else */
1270 /* OBSOLETE         { */
1271 /* OBSOLETE           expect_prompt (); */
1272 /* OBSOLETE           error ("Hex digit expected from remote system."); */
1273 /* OBSOLETE         } */
1274 /* OBSOLETE       if (i >= 8) */
1275 /* OBSOLETE         break; */
1276 /* OBSOLETE     } */
1277 /* OBSOLETE #endif /* NOTDEF */ */
1278 /* OBSOLETE  */
1279 /* OBSOLETE       expect ("  "); */
1280 /* OBSOLETE  */
1281 /* OBSOLETE       for (i = 0; i < len_this_pass; i++) */
1282 /* OBSOLETE     get_hex_byte (&myaddr[count++]); */
1283 /* OBSOLETE  */
1284 /* OBSOLETE       expect_prompt (); */
1285 /* OBSOLETE  */
1286 /* OBSOLETE       startaddr += len_this_pass; */
1287 /* OBSOLETE     } */
1288 /* OBSOLETE   return count; */
1289 /* OBSOLETE } */
1290 /* OBSOLETE  */
1291 /* OBSOLETE #define MAX_BREAKS  8 */
1292 /* OBSOLETE static int num_brkpts = 0; */
1293 /* OBSOLETE  */
1294 /* OBSOLETE /* Insert a breakpoint at ADDR.  SAVE is normally the address of the */
1295 /* OBSOLETE    pattern buffer where the instruction that the breakpoint overwrites */
1296 /* OBSOLETE    is saved.  It is unused here since the Adapt Monitor is responsible */
1297 /* OBSOLETE    for saving/restoring the original instruction. */ */
1298 /* OBSOLETE  */
1299 /* OBSOLETE static int */
1300 /* OBSOLETE adapt_insert_breakpoint (CORE_ADDR addr, char *save) */
1301 /* OBSOLETE { */
1302 /* OBSOLETE   if (num_brkpts < MAX_BREAKS) */
1303 /* OBSOLETE     { */
1304 /* OBSOLETE       num_brkpts++; */
1305 /* OBSOLETE       fprintf (adapt_stream, "B %x", addr); */
1306 /* OBSOLETE       fprintf (adapt_stream, "\r"); */
1307 /* OBSOLETE       expect_prompt (); */
1308 /* OBSOLETE       return (0);           /* Success */ */
1309 /* OBSOLETE     } */
1310 /* OBSOLETE   else */
1311 /* OBSOLETE     { */
1312 /* OBSOLETE       fprintf_filtered (gdb_stderr, */
1313 /* OBSOLETE                   "Too many break points, break point not installed\n"); */
1314 /* OBSOLETE       return (1);           /* Failure */ */
1315 /* OBSOLETE     } */
1316 /* OBSOLETE  */
1317 /* OBSOLETE } */
1318 /* OBSOLETE  */
1319 /* OBSOLETE /* Remove a breakpoint at ADDR.  SAVE is normally the previously */
1320 /* OBSOLETE    saved pattern, but is unused here as the Adapt Monitor is */
1321 /* OBSOLETE    responsible for saving/restoring instructions. */ */
1322 /* OBSOLETE  */
1323 /* OBSOLETE static int */
1324 /* OBSOLETE adapt_remove_breakpoint (CORE_ADDR addr, char *save) */
1325 /* OBSOLETE { */
1326 /* OBSOLETE   if (num_brkpts > 0) */
1327 /* OBSOLETE     { */
1328 /* OBSOLETE       num_brkpts--; */
1329 /* OBSOLETE       fprintf (adapt_stream, "BR %x", addr); */
1330 /* OBSOLETE       fprintf (adapt_stream, "\r"); */
1331 /* OBSOLETE       fflush (adapt_stream); */
1332 /* OBSOLETE       expect_prompt (); */
1333 /* OBSOLETE     } */
1334 /* OBSOLETE   return (0); */
1335 /* OBSOLETE } */
1336 /* OBSOLETE  */
1337 /* OBSOLETE /* Clear the adapts notion of what the break points are */ */
1338 /* OBSOLETE static int */
1339 /* OBSOLETE adapt_clear_breakpoints (void) */
1340 /* OBSOLETE { */
1341 /* OBSOLETE   if (adapt_stream) */
1342 /* OBSOLETE     { */
1343 /* OBSOLETE       fprintf (adapt_stream, "BR"); /* Clear all break points */ */
1344 /* OBSOLETE       fprintf (adapt_stream, "\r"); */
1345 /* OBSOLETE       fflush (adapt_stream); */
1346 /* OBSOLETE       expect_prompt (); */
1347 /* OBSOLETE     } */
1348 /* OBSOLETE   num_brkpts = 0; */
1349 /* OBSOLETE } */
1350 /* OBSOLETE static void */
1351 /* OBSOLETE adapt_mourn (void) */
1352 /* OBSOLETE { */
1353 /* OBSOLETE   adapt_clear_breakpoints (); */
1354 /* OBSOLETE   pop_target ();            /* Pop back to no-child state */ */
1355 /* OBSOLETE   generic_mourn_inferior (); */
1356 /* OBSOLETE } */
1357 /* OBSOLETE  */
1358 /* OBSOLETE /* Display everthing we read in from the adapt until we match/see the */
1359 /* OBSOLETE  * specified string */
1360 /* OBSOLETE  */ */
1361 /* OBSOLETE static int */
1362 /* OBSOLETE display_until (char *str) */
1363 /* OBSOLETE { */
1364 /* OBSOLETE   int i = 0, j, c; */
1365 /* OBSOLETE  */
1366 /* OBSOLETE   while (c = readchar ()) */
1367 /* OBSOLETE     { */
1368 /* OBSOLETE       if (c == str[i]) */
1369 /* OBSOLETE     { */
1370 /* OBSOLETE       i++; */
1371 /* OBSOLETE       if (i == strlen (str)) */
1372 /* OBSOLETE         return; */
1373 /* OBSOLETE     } */
1374 /* OBSOLETE       else */
1375 /* OBSOLETE     { */
1376 /* OBSOLETE       if (i) */
1377 /* OBSOLETE         { */
1378 /* OBSOLETE           for (j = 0; j < i; j++)   /* Put everthing we matched */ */
1379 /* OBSOLETE             putchar (str[j]); */
1380 /* OBSOLETE           i = 0; */
1381 /* OBSOLETE         } */
1382 /* OBSOLETE       putchar (c); */
1383 /* OBSOLETE     } */
1384 /* OBSOLETE     } */
1385 /* OBSOLETE  */
1386 /* OBSOLETE } */
1387 /* OBSOLETE  */
1388 /* OBSOLETE  */
1389 /* OBSOLETE /* Put a command string, in args, out to the adapt.  The adapt is assumed to */
1390 /* OBSOLETE    be in raw mode, all writing/reading done through adapt_desc. */
1391 /* OBSOLETE    Ouput from the adapt is placed on the users terminal until the */
1392 /* OBSOLETE    prompt from the adapt is seen. */
1393 /* OBSOLETE    FIXME: Can't handle commands that take input.  */ */
1394 /* OBSOLETE  */
1395 /* OBSOLETE void */
1396 /* OBSOLETE adapt_com (char *args, int fromtty) */
1397 /* OBSOLETE { */
1398 /* OBSOLETE   if (!adapt_stream) */
1399 /* OBSOLETE     { */
1400 /* OBSOLETE       printf_filtered ("Adapt not open.  Use the 'target' command to open.\n"); */
1401 /* OBSOLETE       return; */
1402 /* OBSOLETE     } */
1403 /* OBSOLETE  */
1404 /* OBSOLETE   /* Clear all input so only command relative output is displayed */ */
1405 /* OBSOLETE   slurp_input (); */
1406 /* OBSOLETE  */
1407 /* OBSOLETE   switch (islower (args[0]) ? toupper (args[0]) : args[0]) */
1408 /* OBSOLETE     { */
1409 /* OBSOLETE     default: */
1410 /* OBSOLETE       printf_filtered ("Unknown/Unimplemented adapt command '%s'\n", args); */
1411 /* OBSOLETE       break; */
1412 /* OBSOLETE     case 'G':                       /* Go, begin execution */ */
1413 /* OBSOLETE       write (adapt_desc, args, strlen (args)); */
1414 /* OBSOLETE       write (adapt_desc, "\r", 1); */
1415 /* OBSOLETE       expect_prompt (); */
1416 /* OBSOLETE       break; */
1417 /* OBSOLETE     case 'B':                       /* Break points, B or BR */ */
1418 /* OBSOLETE     case 'C':                       /* Check current 29k status (running/halted) */ */
1419 /* OBSOLETE     case 'D':                       /* Display data/registers */ */
1420 /* OBSOLETE     case 'I':                       /* Input from i/o space */ */
1421 /* OBSOLETE     case 'J':                       /* Jam an instruction */ */
1422 /* OBSOLETE     case 'K':                       /* Kill, stop execution */ */
1423 /* OBSOLETE     case 'L':                       /* Disassemble */ */
1424 /* OBSOLETE     case 'O':                       /* Output to i/o space */ */
1425 /* OBSOLETE     case 'T':                       /* Trace */ */
1426 /* OBSOLETE     case 'P':                       /* Pulse an input line */ */
1427 /* OBSOLETE     case 'X':                       /* Examine special purpose registers */ */
1428 /* OBSOLETE     case 'Z':                       /* Display trace buffer */ */
1429 /* OBSOLETE       write (adapt_desc, args, strlen (args)); */
1430 /* OBSOLETE       write (adapt_desc, "\r", 1); */
1431 /* OBSOLETE       expect (args);                /* Don't display the command */ */
1432 /* OBSOLETE       display_until ("# "); */
1433 /* OBSOLETE       break; */
1434 /* OBSOLETE       /* Begin commands that take input in the form 'c x,y[,z...]' */ */
1435 /* OBSOLETE     case 'S':                       /* Set memory or register */ */
1436 /* OBSOLETE       if (strchr (args, ',')) */
1437 /* OBSOLETE     {                       /* Assume it is properly formatted */ */
1438 /* OBSOLETE       write (adapt_desc, args, strlen (args)); */
1439 /* OBSOLETE       write (adapt_desc, "\r", 1); */
1440 /* OBSOLETE       expect_prompt (); */
1441 /* OBSOLETE     } */
1442 /* OBSOLETE       break; */
1443 /* OBSOLETE     } */
1444 /* OBSOLETE } */
1445 /* OBSOLETE  */
1446 /* OBSOLETE /* Define the target subroutine names */ */
1447 /* OBSOLETE  */
1448 /* OBSOLETE struct target_ops adapt_ops; */
1449 /* OBSOLETE  */
1450 /* OBSOLETE static void */
1451 /* OBSOLETE init_adapt_ops (void) */
1452 /* OBSOLETE { */
1453 /* OBSOLETE   adapt_ops.to_shortname = "adapt"; */
1454 /* OBSOLETE   adapt_ops.to_longname = "Remote AMD `Adapt' target"; */
1455 /* OBSOLETE   adapt_ops.to_doc = "Remote debug an AMD 290*0 using an `Adapt' monitor via RS232"; */
1456 /* OBSOLETE   adapt_ops.to_open = adapt_open; */
1457 /* OBSOLETE   adapt_ops.to_close = adapt_close; */
1458 /* OBSOLETE   adapt_ops.to_attach = adapt_attach; */
1459 /* OBSOLETE   adapt_ops.to_post_attach = NULL; */
1460 /* OBSOLETE   adapt_ops.to_require_attach = NULL; */
1461 /* OBSOLETE   adapt_ops.to_detach = adapt_detach; */
1462 /* OBSOLETE   adapt_ops.to_require_detach = NULL; */
1463 /* OBSOLETE   adapt_ops.to_resume = adapt_resume; */
1464 /* OBSOLETE   adapt_ops.to_wait = adapt_wait; */
1465 /* OBSOLETE   adapt_ops.to_post_wait = NULL; */
1466 /* OBSOLETE   adapt_ops.to_fetch_registers = adapt_fetch_register; */
1467 /* OBSOLETE   adapt_ops.to_store_registers = adapt_store_register; */
1468 /* OBSOLETE   adapt_ops.to_prepare_to_store = adapt_prepare_to_store; */
1469 /* OBSOLETE   adapt_ops.to_xfer_memory = adapt_xfer_inferior_memory; */
1470 /* OBSOLETE   adapt_ops.to_files_info = adapt_files_info; */
1471 /* OBSOLETE   adapt_ops.to_insert_breakpoint = adapt_insert_breakpoint; */
1472 /* OBSOLETE   adapt_ops.to_remove_breakpoint = adapt_remove_breakpoint; */
1473 /* OBSOLETE   adapt_ops.to_terminal_init = 0; */
1474 /* OBSOLETE   adapt_ops.to_terminal_inferior = 0; */
1475 /* OBSOLETE   adapt_ops.to_terminal_ours_for_output = 0; */
1476 /* OBSOLETE   adapt_ops.to_terminal_ours = 0; */
1477 /* OBSOLETE   adapt_ops.to_terminal_info = 0; */
1478 /* OBSOLETE   adapt_ops.to_kill = adapt_kill; */
1479 /* OBSOLETE   adapt_ops.to_load = adapt_load; */
1480 /* OBSOLETE   adapt_ops.to_lookup_symbol = 0; */
1481 /* OBSOLETE   adapt_ops.to_create_inferior = adapt_create_inferior; */
1482 /* OBSOLETE   adapt_ops.to_post_startup_inferior = NULL; */
1483 /* OBSOLETE   adapt_ops.to_acknowledge_created_inferior = NULL; */
1484 /* OBSOLETE   adapt_ops.to_clone_and_follow_inferior = NULL; */
1485 /* OBSOLETE   adapt_ops.to_post_follow_inferior_by_clone = NULL; */
1486 /* OBSOLETE   adapt_ops.to_insert_fork_catchpoint = NULL; */
1487 /* OBSOLETE   adapt_ops.to_remove_fork_catchpoint = NULL; */
1488 /* OBSOLETE   adapt_ops.to_insert_vfork_catchpoint = NULL; */
1489 /* OBSOLETE   adapt_ops.to_remove_vfork_catchpoint = NULL; */
1490 /* OBSOLETE   adapt_ops.to_has_forked = NULL; */
1491 /* OBSOLETE   adapt_ops.to_has_vforked = NULL; */
1492 /* OBSOLETE   adapt_ops.to_can_follow_vfork_prior_to_exec = NULL; */
1493 /* OBSOLETE   adapt_ops.to_post_follow_vfork = NULL; */
1494 /* OBSOLETE   adapt_ops.to_insert_exec_catchpoint = NULL; */
1495 /* OBSOLETE   adapt_ops.to_remove_exec_catchpoint = NULL; */
1496 /* OBSOLETE   adapt_ops.to_has_execd = NULL; */
1497 /* OBSOLETE   adapt_ops.to_reported_exec_events_per_exec_call = NULL; */
1498 /* OBSOLETE   adapt_ops.to_has_exited = NULL; */
1499 /* OBSOLETE   adapt_ops.to_mourn_inferior = adapt_mourn; */
1500 /* OBSOLETE   adapt_ops.to_can_run = 0; */
1501 /* OBSOLETE   adapt_ops.to_notice_signals = 0; */
1502 /* OBSOLETE   adapt_ops.to_thread_alive = 0; */
1503 /* OBSOLETE   adapt_ops.to_stop = 0;    /* process_stratum; */ */
1504 /* OBSOLETE   adapt_ops.to_pid_to_exec_file = NULL; */
1505 /* OBSOLETE   adapt_ops.to_stratum = 0; */
1506 /* OBSOLETE   adapt_ops.DONT_USE = 0; */
1507 /* OBSOLETE   adapt_ops.to_has_all_memory = 1; */
1508 /* OBSOLETE   adapt_ops.to_has_memory = 1; */
1509 /* OBSOLETE   adapt_ops.to_has_stack = 1; */
1510 /* OBSOLETE   adapt_ops.to_has_registers = 1; */
1511 /* OBSOLETE   adapt_ops.to_has_execution = 0; */
1512 /* OBSOLETE   adapt_ops.to_sections = 0; */
1513 /* OBSOLETE   adapt_ops.to_sections_end = 0; */
1514 /* OBSOLETE   adapt_ops.to_magic = OPS_MAGIC; */
1515 /* OBSOLETE }                           /* init_adapt_ops */ */
1516 /* OBSOLETE  */
1517 /* OBSOLETE void */
1518 /* OBSOLETE _initialize_remote_adapt (void) */
1519 /* OBSOLETE { */
1520 /* OBSOLETE   init_adapt_ops (); */
1521 /* OBSOLETE   add_target (&adapt_ops); */
1522 /* OBSOLETE   add_com ("adapt <command>", class_obscure, adapt_com, */
1523 /* OBSOLETE        "Send a command to the AMD Adapt remote monitor."); */
1524 /* OBSOLETE } */