gdb/remote-nindy.c

   1 /* Memory-access and commands for remote NINDY process, for GDB.
   2    Copyright (C) 1990-1991 Free Software Foundation, Inc.
   3    Contributed by Intel Corporation.  Modified from remote.c by Chris Benenati.
   4
   5 GDB is distributed in the hope that it will be useful, but WITHOUT ANY
   6 WARRANTY.  No author or distributor accepts responsibility to anyone
   7 for the consequences of using it or for whether it serves any
   8 particular purpose or works at all, unless he says so in writing.
   9 Refer to the GDB General Public License for full details.
  10
  11 Everyone is granted permission to copy, modify and redistribute GDB,
  12 but only under the conditions described in the GDB General Public
  13 License.  A copy of this license is supposed to have been given to you
  14 along with GDB so you can know your rights and responsibilities.  It
  15 should be in a file named COPYING.  Among other things, the copyright
  16 notice and this notice must be preserved on all copies.
  17
  18 In other words, go ahead and share GDB, but don't try to stop
  19 anyone else from sharing it farther.  Help stamp out software hoarding!
  20 */
  21
  22 /*
  23 Except for the data cache routines, this file bears little resemblence
  24 to remote.c.  A new (although similar) protocol has been specified, and
  25 portions of the code are entirely dependent on having an i80960 with a
  26 NINDY ROM monitor at the other end of the line.
  27 */
  28
  29 /*****************************************************************************
  30  *
  31  * REMOTE COMMUNICATION PROTOCOL BETWEEN GDB960 AND THE NINDY ROM MONITOR.
  32  *
  33  *
  34  * MODES OF OPERATION
  35  * ----- -- ---------
  36  *
  37  * As far as NINDY is concerned, GDB is always in one of two modes: command
  38  * mode or passthrough mode.
  39  *
  40  * In command mode (the default) pre-defined packets containing requests
  41  * are sent by GDB to NINDY.  NINDY never talks except in reponse to a request.
  42  *
  43  * Once the the user program is started, GDB enters passthrough mode, to give
  44  * the user program access to the terminal.  GDB remains in this mode until
  45  * NINDY indicates that the program has stopped.
  46  *
  47  *
  48  * PASSTHROUGH MODE
  49  * ----------- ----
  50  *
  51  * GDB writes all input received from the keyboard directly to NINDY, and writes
  52  * all characters received from NINDY directly to the monitor.
  53  *
  54  * Keyboard input is neither buffered nor echoed to the monitor.
  55  *
  56  * GDB remains in passthrough mode until NINDY sends a single ^P character,
  57  * to indicate that the user process has stopped.
  58  *
  59  * Note:
  60  *      GDB assumes NINDY performs a 'flushreg' when the user program stops.
  61  *
  62  *
  63  * COMMAND MODE
  64  * ------- ----
  65  *
  66  * All info (except for message ack and nak) is transferred between gdb
  67  * and the remote processor in messages of the following format:
  68  *
  69  *              <info>#<checksum>
  70  *
  71  * where
  72  *      #       is a literal character
  73  *
  74  *      <info>  ASCII information;  all numeric information is in the
  75  *              form of hex digits ('0'-'9' and lowercase 'a'-'f').
  76  *
  77  *      <checksum>
  78  *              is a pair of ASCII hex digits representing an 8-bit
  79  *              checksum formed by adding together each of the
  80  *              characters in <info>.
  81  *
  82  * The receiver of a message always sends a single character to the sender
  83  * to indicate that the checksum was good ('+') or bad ('-');  the sender
  84  * re-transmits the entire message over until a '+' is received.
  85  *
  86  * In response to a command NINDY always sends back either data or
  87  * a result code of the form "Xnn", where "nn" are hex digits and "X00"
  88  * means no errors.  (Exceptions: the "s" and "c" commands don't respond.)
  89  *
  90  * SEE THE HEADER OF THE FILE "gdb.c" IN THE NINDY MONITOR SOURCE CODE FOR A
  91  * FULL DESCRIPTION OF LEGAL COMMANDS.
  92  *
  93  * SEE THE FILE "stop.h" IN THE NINDY MONITOR SOURCE CODE FOR A LIST
  94  * OF STOP CODES.
  95  *
  96  ******************************************************************************/
  97
  98 #include <stdio.h>
  99 #include <signal.h>
 100 #include <sys/types.h>
 101 #include <setjmp.h>
 102
 103 #include "defs.h"
 104 #include "param.h"
 105 #include "frame.h"
 106 #include "inferior.h"
 107 #include "target.h"
 108 #include "gdbcore.h"
 109 #include "command.h"
 110 #include "bfd.h"
 111 #include "ieee-float.h"
 112
 113 #include "wait.h"
 114 #include <sys/ioctl.h>
 115 #include <sys/file.h>
 116 #include <ctype.h>
 117 #include "nindy-share/ttycntl.h"
 118 #include "nindy-share/demux.h"
 119 #include "nindy-share/env.h"
 120 #include "nindy-share/stop.h"
 121
 122 extern int unlink();
 123 extern char *getenv();
 124 extern char *mktemp();
 125
 126 extern char *coffstrip();
 127 extern void add_syms_addr_command ();
 128 extern value call_function_by_hand ();
 129 extern void generic_mourn_inferior ();
 130
 131 extern struct target_ops nindy_ops;
 132 extern jmp_buf to_top_level;
 133 extern FILE *instream;
 134 extern struct ext_format ext_format_i960[];     /* i960-tdep.c */
 135
 136 extern char ninStopWhy ();
 137
 138 int nindy_initial_brk;  /* nonzero if want to send an initial BREAK to nindy */
 139 int nindy_old_protocol; /* nonzero if want to use old protocol */
 140 char *nindy_ttyname;    /* name of tty to talk to nindy on, or null */
 141
 142 #define DLE     '\020'  /* Character NINDY sends to indicate user program has
 143                          * halted.  */
 144 #define TRUE    1
 145 #define FALSE   0
 146
 147 int nindy_fd = 0;       /* Descriptor for I/O to NINDY  */
 148 static int have_regs = 0;       /* 1 iff regs read since i960 last halted */
 149 static int regs_changed = 0;    /* 1 iff regs were modified since last read */
 150
 151 extern char *exists();
 152 static void dcache_flush (), dcache_poke (), dcache_init();
 153 static int dcache_fetch ();
 154 \f
 155 /* FIXME, we can probably use the normal terminal_inferior stuff here.
 156    We have to do terminal_inferior and then set up the passthrough
 157    settings initially.  Thereafter, terminal_ours and terminal_inferior
 158    will automatically swap the settings around for us.  */
 159
 160 /* Restore TTY to normal operation */
 161
 162 static TTY_STRUCT orig_tty;     /* TTY attributes before entering passthrough */
 163
 164 static void
 165 restore_tty()
 166 {
 167         ioctl( 0, TIOCSETN, &orig_tty );
 168 }
 169
 170
 171 /* Recover from ^Z or ^C while remote process is running */
 172
 173 static void (*old_ctrlc)();    /* Signal handlers before entering passthrough */
 174
 175 #ifdef SIGTSTP
 176 static void (*old_ctrlz)();
 177 #endif
 178
 179 static
 180 #ifdef USG
 181 void
 182 #endif
 183 cleanup()
 184 {
 185         restore_tty();
 186         signal(SIGINT, old_ctrlc);
 187 #ifdef SIGTSTP
 188         signal(SIGTSTP, old_ctrlz);
 189 #endif
 190         error("\n\nYou may need to reset the 80960 and/or reload your program.\n");
 191 }
 192 \f
 193 /* Clean up anything that needs cleaning when losing control.  */
 194
 195 static char *savename;
 196
 197 static void
 198 nindy_close (quitting)
 199      int quitting;
 200 {
 201   if (nindy_fd)
 202     close (nindy_fd);
 203   nindy_fd = 0;
 204
 205   if (savename)
 206     free (savename);
 207   savename = 0;
 208 }
 209
 210 /* Open a connection to a remote debugger.
 211    FIXME, there should be a way to specify the various options that are
 212    now specified with gdb command-line options.  (baud_rate, old_protocol,
 213    and initial_brk)  */
 214 void
 215 nindy_open (name, from_tty)
 216     char *name;         /* "/dev/ttyXX", "ttyXX", or "XX": tty to be opened */
 217     int from_tty;
 218 {
 219
 220   if (!name)
 221     error_no_arg ("serial port device name");
 222
 223   nindy_close (0);
 224
 225         have_regs = regs_changed = 0;
 226         dcache_init();
 227
 228         /* Allow user to interrupt the following -- we could hang if
 229          * there's no NINDY at the other end of the remote tty.
 230          */
 231         immediate_quit++;
 232         nindy_fd = ninConnect( name, baud_rate? baud_rate: "9600",
 233                         nindy_initial_brk, !from_tty, nindy_old_protocol );
 234         immediate_quit--;
 235
 236         if ( nindy_fd < 0 ){
 237                 nindy_fd = 0;
 238                 error( "Can't open tty '%s'", name );
 239         }
 240
 241         savename = savestring (name, strlen (name));
 242         push_target (&nindy_ops);
 243         target_fetch_registers(-1);
 244 }
 245
 246 /* User-initiated quit of nindy operations.  */
 247
 248 static void
 249 nindy_detach (name, from_tty)
 250      char *name;
 251      int from_tty;
 252 {
 253   dont_repeat ();
 254   if (name)
 255     error ("Too many arguments");
 256   pop_target ();
 257 }
 258
 259 static void
 260 nindy_files_info ()
 261 {
 262   printf("\tAttached to %s at %s bps%s%s.\n", savename,
 263          baud_rate? baud_rate: "9600",
 264          nindy_old_protocol? " in old protocol": "",
 265          nindy_initial_brk? " with initial break": "");
 266 }
 267 \f
 268 /******************************************************************************
 269  * remote_load:
 270  *      Download an object file to the remote system by invoking the "comm960"
 271  *      utility.  We look for "comm960" in $G960BIN, $G960BASE/bin, and
 272  *      DEFAULT_BASE/bin/HOST/bin where
 273  *              DEFAULT_BASE is defined in env.h, and
 274  *              HOST must be defined on the compiler invocation line.
 275  ******************************************************************************/
 276
 277 static void
 278 nindy_load( filename, from_tty )
 279     char *filename;
 280     int from_tty;
 281 {
 282   char *tmpfile;
 283   struct cleanup *old_chain;
 284   char *scratch_pathname;
 285   int scratch_chan;
 286
 287   if (!filename)
 288     filename = get_exec_file (1);
 289
 290   filename = tilde_expand (filename);
 291   make_cleanup (free, filename);
 292
 293   scratch_chan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0,
 294                         &scratch_pathname);
 295   if (scratch_chan < 0)
 296     perror_with_name (filename);
 297   close (scratch_chan);         /* Slightly wasteful FIXME */
 298
 299   have_regs = regs_changed = 0;
 300   mark_breakpoints_out();
 301   inferior_pid = 0;
 302   dcache_flush();
 303
 304   tmpfile = coffstrip(scratch_pathname);
 305   if ( tmpfile ){
 306           old_chain = make_cleanup(unlink,tmpfile);
 307           immediate_quit++;
 308           ninDownload( tmpfile, !from_tty );
 309 /* FIXME, don't we want this merged in here? */
 310           immediate_quit--;
 311           do_cleanups (old_chain);
 312   }
 313 }
 314
 315
 316
 317 /* Return the number of characters in the buffer before the first DLE character.
 318  */
 319
 320 static
 321 int
 322 non_dle( buf, n )
 323     char *buf;          /* Character buffer; NOT '\0'-terminated */
 324     int n;              /* Number of characters in buffer */
 325 {
 326         int i;
 327
 328         for ( i = 0; i < n; i++ ){
 329                 if ( buf[i] == DLE ){
 330                         break;
 331                 }
 332         }
 333         return i;
 334 }
 335 \f
 336 /* Tell the remote machine to resume.  */
 337
 338 void
 339 nindy_resume (step, siggnal)
 340      int step, siggnal;
 341 {
 342         if (siggnal != 0 && siggnal != stop_signal)
 343           error ("Can't send signals to remote NINDY targets.");
 344
 345         dcache_flush();
 346         if ( regs_changed ){
 347                 nindy_store_registers ();
 348                 regs_changed = 0;
 349         }
 350         have_regs = 0;
 351         ninGo( step );
 352 }
 353
 354 /* Wait until the remote machine stops. While waiting, operate in passthrough
 355  * mode; i.e., pass everything NINDY sends to stdout, and everything from
 356  * stdin to NINDY.
 357  *
 358  * Return to caller, storing status in 'status' just as `wait' would.
 359  */
 360
 361 void
 362 nindy_wait( status )
 363     WAITTYPE *status;
 364 {
 365         DEMUX_DECL;     /* OS-dependent data needed by DEMUX... macros */
 366         char buf[500];  /* FIXME, what is "500" here? */
 367         int i, n;
 368         unsigned char stop_exit;
 369         unsigned char stop_code;
 370         TTY_STRUCT tty;
 371         long ip_value, fp_value, sp_value;      /* Reg values from stop */
 372
 373
 374         WSETEXIT( (*status), 0 );
 375
 376         /* OPERATE IN PASSTHROUGH MODE UNTIL NINDY SENDS A DLE CHARACTER */
 377
 378         /* Save current tty attributes, set up signals to restore them.
 379          */
 380         ioctl( 0, TIOCGETP, &orig_tty );
 381         old_ctrlc = signal( SIGINT, cleanup );
 382 #ifdef SIGTSTP
 383         old_ctrlz = signal( SIGTSTP, cleanup );
 384 #endif
 385
 386         /* Pass input from keyboard to NINDY as it arrives.
 387          * NINDY will interpret <CR> and perform echo.
 388          */
 389         tty = orig_tty;
 390         TTY_NINDYTERM( tty );
 391         ioctl( 0, TIOCSETN, &tty );
 392
 393         while ( 1 ){
 394                 /* Go to sleep until there's something for us on either
 395                  * the remote port or stdin.
 396                  */
 397
 398                 DEMUX_WAIT( nindy_fd );
 399
 400                 /* Pass input through to correct place */
 401
 402                 n = DEMUX_READ( 0, buf, sizeof(buf) );
 403                 if ( n ){                               /* Input on stdin */
 404                         write( nindy_fd, buf, n );
 405                 }
 406
 407                 n = DEMUX_READ( nindy_fd, buf, sizeof(buf) );
 408                 if ( n ){                               /* Input on remote */
 409                         /* Write out any characters in buffer preceding DLE */
 410                         i = non_dle( buf, n );
 411                         if ( i > 0 ){
 412                                 write( 1, buf, i );
 413                         }
 414
 415                         if ( i != n ){
 416                                 /* There *was* a DLE in the buffer */
 417                                 stop_exit = ninStopWhy( &stop_code,
 418                                         &ip_value, &fp_value, &sp_value);
 419                                 if ( !stop_exit && (stop_code==STOP_SRQ) ){
 420                                         immediate_quit++;
 421                                         ninSrq();
 422                                         immediate_quit--;
 423                                 } else {
 424                                         /* Get out of loop */
 425                                         supply_register (IP_REGNUM, &ip_value);
 426                                         supply_register (FP_REGNUM, &fp_value);
 427                                         supply_register (SP_REGNUM, &sp_value);
 428                                         break;
 429                                 }
 430                         }
 431                 }
 432         }
 433
 434         signal( SIGINT, old_ctrlc );
 435 #ifdef SIGTSTP
 436         signal( SIGTSTP, old_ctrlz );
 437 #endif
 438         restore_tty();
 439
 440         if ( stop_exit ){                       /* User program exited */
 441                 WSETEXIT( (*status), stop_code );
 442         } else {                                /* Fault or trace */
 443                 switch (stop_code){
 444                 case STOP_GDB_BPT:
 445                 case TRACE_STEP:
 446                         /* Make it look like a VAX trace trap */
 447                         stop_code = SIGTRAP;
 448                         break;
 449                 default:
 450                         /* The target is not running Unix, and its
 451                            faults/traces do not map nicely into Unix signals.
 452                            Make sure they do not get confused with Unix signals
 453                            by numbering them with values higher than the highest
 454                            legal Unix signal.  code in i960_print_fault(),
 455                            called via PRINT_RANDOM_SIGNAL, will interpret the
 456                            value.  */
 457                         stop_code += NSIG;
 458                         break;
 459                 }
 460                 WSETSTOP( (*status), stop_code );
 461         }
 462 }
 463
 464 /* Read the remote registers into the block REGS.  */
 465
 466 /* This is the block that ninRegsGet and ninRegsPut handles.  */
 467 struct nindy_regs {
 468   char  local_regs[16 * 4];
 469   char  global_regs[16 * 4];
 470   char  pcw_acw[2 * 4];
 471   char  ip[4];
 472   char  tcw[4];
 473   char  fp_as_double[4 * 8];
 474 };
 475
 476 static int
 477 nindy_fetch_registers(regno)
 478      int regno;
 479 {
 480   struct nindy_regs nindy_regs;
 481   int regnum, inv;
 482   double dub;
 483
 484   immediate_quit++;
 485   ninRegsGet( (char *) &nindy_regs );
 486   immediate_quit--;
 487
 488   bcopy (nindy_regs.local_regs, &registers[REGISTER_BYTE (R0_REGNUM)], 16*4);
 489   bcopy (nindy_regs.global_regs, &registers[REGISTER_BYTE (G0_REGNUM)], 16*4);
 490   bcopy (nindy_regs.pcw_acw, &registers[REGISTER_BYTE (PCW_REGNUM)], 2*4);
 491   bcopy (nindy_regs.ip, &registers[REGISTER_BYTE (IP_REGNUM)], 1*4);
 492   bcopy (nindy_regs.tcw, &registers[REGISTER_BYTE (TCW_REGNUM)], 1*4);
 493   for (regnum = FP0_REGNUM; regnum < FP0_REGNUM + 4; regnum++) {
 494     dub = unpack_double (builtin_type_double,
 495                          &nindy_regs.fp_as_double[8 * (regnum - FP0_REGNUM)],
 496                          &inv);
 497     /* dub now in host byte order */
 498     double_to_ieee_extended (ext_format_i960, &dub,
 499                              &registers[REGISTER_BYTE (regnum)]);
 500   }
 501
 502   registers_fetched ();
 503   return 0;
 504 }
 505
 506 static void
 507 nindy_prepare_to_store()
 508 {
 509   nindy_fetch_registers(-1);
 510 }
 511
 512 static int
 513 nindy_store_registers(regno)
 514      int regno;
 515 {
 516   struct nindy_regs nindy_regs;
 517   int regnum, inv;
 518   double dub;
 519
 520   bcopy (&registers[REGISTER_BYTE (R0_REGNUM)], nindy_regs.local_regs,  16*4);
 521   bcopy (&registers[REGISTER_BYTE (G0_REGNUM)], nindy_regs.global_regs, 16*4);
 522   bcopy (&registers[REGISTER_BYTE (PCW_REGNUM)], nindy_regs.pcw_acw,     2*4);
 523   bcopy (&registers[REGISTER_BYTE (IP_REGNUM)], nindy_regs.ip,           1*4);
 524   bcopy (&registers[REGISTER_BYTE (TCW_REGNUM)], nindy_regs.tcw,         1*4);
 525   /* Float regs.  Only works on IEEE_FLOAT hosts.  */
 526   for (regnum = FP0_REGNUM; regnum < FP0_REGNUM + 4; regnum++) {
 527     ieee_extended_to_double (ext_format_i960,
 528                              &registers[REGISTER_BYTE (regnum)], &dub);
 529     /* dub now in host byte order */
 530     /* FIXME-someday, the arguments to unpack_double are backward.
 531        It expects a target double and returns a host; we pass the opposite.
 532        This mostly works but not quite.  */
 533     dub = unpack_double (builtin_type_double, &dub, &inv);
 534     /* dub now in target byte order */
 535     bcopy ((char *)&dub, &nindy_regs.fp_as_double[8 * (regnum - FP0_REGNUM)],
 536         8);
 537   }
 538
 539   immediate_quit++;
 540   ninRegsPut( (char *) &nindy_regs );
 541   immediate_quit--;
 542   return 0;
 543 }
 544
 545 /* Read a word from remote address ADDR and return it.
 546  * This goes through the data cache.
 547  */
 548 int
 549 nindy_fetch_word (addr)
 550      CORE_ADDR addr;
 551 {
 552         return dcache_fetch (addr);
 553 }
 554
 555 /* Write a word WORD into remote address ADDR.
 556    This goes through the data cache.  */
 557
 558 void
 559 nindy_store_word (addr, word)
 560      CORE_ADDR addr;
 561      int word;
 562 {
 563         dcache_poke (addr, word);
 564 }
 565
 566 /* Copy LEN bytes to or from inferior's memory starting at MEMADDR
 567    to debugger memory starting at MYADDR.   Copy to inferior if
 568    WRITE is nonzero.  Returns the length copied.
 569
 570    This is stolen almost directly from infptrace.c's child_xfer_memory,
 571    which also deals with a word-oriented memory interface.  Sometime,
 572    FIXME, rewrite this to not use the word-oriented routines.  */
 573
 574 int
 575 nindy_xfer_inferior_memory(memaddr, myaddr, len, write)
 576      CORE_ADDR memaddr;
 577      char *myaddr;
 578      int len;
 579      int write;
 580 {
 581   register int i;
 582   /* Round starting address down to longword boundary.  */
 583   register CORE_ADDR addr = memaddr & - sizeof (int);
 584   /* Round ending address up; get number of longwords that makes.  */
 585   register int count
 586     = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int);
 587   /* Allocate buffer of that many longwords.  */
 588   register int *buffer = (int *) alloca (count * sizeof (int));
 589
 590   if (write)
 591     {
 592       /* Fill start and end extra bytes of buffer with existing memory data.  */
 593
 594       if (addr != memaddr || len < (int)sizeof (int)) {
 595         /* Need part of initial word -- fetch it.  */
 596         buffer[0] = nindy_fetch_word (addr);
 597       }
 598
 599       if (count > 1)            /* FIXME, avoid if even boundary */
 600         {
 601           buffer[count - 1]
 602             = nindy_fetch_word (addr + (count - 1) * sizeof (int));
 603         }
 604
 605       /* Copy data to be written over corresponding part of buffer */
 606
 607       bcopy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len);
 608
 609       /* Write the entire buffer.  */
 610
 611       for (i = 0; i < count; i++, addr += sizeof (int))
 612         {
 613           errno = 0;
 614           nindy_store_word (addr, buffer[i]);
 615           if (errno)
 616             return 0;
 617         }
 618     }
 619   else
 620     {
 621       /* Read all the longwords */
 622       for (i = 0; i < count; i++, addr += sizeof (int))
 623         {
 624           errno = 0;
 625           buffer[i] = nindy_fetch_word (addr);
 626           if (errno)
 627             return 0;
 628           QUIT;
 629         }
 630
 631       /* Copy appropriate bytes out of the buffer.  */
 632       bcopy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len);
 633     }
 634   return len;
 635 }
 636 \f
 637 /* The data cache records all the data read from the remote machine
 638    since the last time it stopped.
 639
 640    Each cache block holds 16 bytes of data
 641    starting at a multiple-of-16 address.  */
 642
 643 #define DCACHE_SIZE 64          /* Number of cache blocks */
 644
 645 struct dcache_block {
 646         struct dcache_block *next, *last;
 647         unsigned int addr;      /* Address for which data is recorded.  */
 648         int data[4];
 649 };
 650
 651 struct dcache_block dcache_free, dcache_valid;
 652
 653 /* Free all the data cache blocks, thus discarding all cached data.  */
 654 static
 655 void
 656 dcache_flush ()
 657 {
 658   register struct dcache_block *db;
 659
 660   while ((db = dcache_valid.next) != &dcache_valid)
 661     {
 662       remque (db);
 663       insque (db, &dcache_free);
 664     }
 665 }
 666
 667 /*
 668  * If addr is present in the dcache, return the address of the block
 669  * containing it.
 670  */
 671 static
 672 struct dcache_block *
 673 dcache_hit (addr)
 674      unsigned int addr;
 675 {
 676   register struct dcache_block *db;
 677
 678   if (addr & 3)
 679     abort ();
 680
 681   /* Search all cache blocks for one that is at this address.  */
 682   db = dcache_valid.next;
 683   while (db != &dcache_valid)
 684     {
 685       if ((addr & 0xfffffff0) == db->addr)
 686         return db;
 687       db = db->next;
 688     }
 689   return NULL;
 690 }
 691
 692 /*  Return the int data at address ADDR in dcache block DC.  */
 693 static
 694 int
 695 dcache_value (db, addr)
 696      struct dcache_block *db;
 697      unsigned int addr;
 698 {
 699   if (addr & 3)
 700     abort ();
 701   return (db->data[(addr>>2)&3]);
 702 }
 703
 704 /* Get a free cache block, put or keep it on the valid list,
 705    and return its address.  The caller should store into the block
 706    the address and data that it describes, then remque it from the
 707    free list and insert it into the valid list.  This procedure
 708    prevents errors from creeping in if a ninMemGet is interrupted
 709    (which used to put garbage blocks in the valid list...).  */
 710 static
 711 struct dcache_block *
 712 dcache_alloc ()
 713 {
 714   register struct dcache_block *db;
 715
 716   if ((db = dcache_free.next) == &dcache_free)
 717     {
 718       /* If we can't get one from the free list, take last valid and put
 719          it on the free list.  */
 720       db = dcache_valid.last;
 721       remque (db);
 722       insque (db, &dcache_free);
 723     }
 724
 725   remque (db);
 726   insque (db, &dcache_valid);
 727   return (db);
 728 }
 729
 730 /* Return the contents of the word at address ADDR in the remote machine,
 731    using the data cache.  */
 732 static
 733 int
 734 dcache_fetch (addr)
 735      CORE_ADDR addr;
 736 {
 737   register struct dcache_block *db;
 738
 739   db = dcache_hit (addr);
 740   if (db == 0)
 741     {
 742       db = dcache_alloc ();
 743       immediate_quit++;
 744       ninMemGet(addr & ~0xf, (unsigned char *)db->data, 16);
 745       immediate_quit--;
 746       db->addr = addr & ~0xf;
 747       remque (db);                      /* Off the free list */
 748       insque (db, &dcache_valid);       /* On the valid list */
 749     }
 750   return (dcache_value (db, addr));
 751 }
 752
 753 /* Write the word at ADDR both in the data cache and in the remote machine.  */
 754 static void
 755 dcache_poke (addr, data)
 756      CORE_ADDR addr;
 757      int data;
 758 {
 759   register struct dcache_block *db;
 760
 761   /* First make sure the word is IN the cache.  DB is its cache block.  */
 762   db = dcache_hit (addr);
 763   if (db == 0)
 764     {
 765       db = dcache_alloc ();
 766       immediate_quit++;
 767       ninMemGet(addr & ~0xf, (unsigned char *)db->data, 16);
 768       immediate_quit--;
 769       db->addr = addr & ~0xf;
 770       remque (db);                      /* Off the free list */
 771       insque (db, &dcache_valid);       /* On the valid list */
 772     }
 773
 774   /* Modify the word in the cache.  */
 775   db->data[(addr>>2)&3] = data;
 776
 777   /* Send the changed word.  */
 778   immediate_quit++;
 779   ninMemPut(addr, (unsigned char *)&data, 4);
 780   immediate_quit--;
 781 }
 782
 783 /* The cache itself. */
 784 struct dcache_block the_cache[DCACHE_SIZE];
 785
 786 /* Initialize the data cache.  */
 787 static void
 788 dcache_init ()
 789 {
 790   register i;
 791   register struct dcache_block *db;
 792
 793   db = the_cache;
 794   dcache_free.next = dcache_free.last = &dcache_free;
 795   dcache_valid.next = dcache_valid.last = &dcache_valid;
 796   for (i=0;i<DCACHE_SIZE;i++,db++)
 797     insque (db, &dcache_free);
 798 }
 799
 800
 801 static void
 802 nindy_create_inferior (execfile, args, env)
 803      char *execfile;
 804      char *args;
 805      char **env;
 806 {
 807   int entry_pt;
 808   int pid;
 809
 810   if (args && *args)
 811     error ("Can't pass arguments to remote NINDY process");
 812
 813   if (execfile == 0 || exec_bfd == 0)
 814     error ("No exec file specified");
 815
 816   entry_pt = (int) bfd_get_start_address (exec_bfd);
 817
 818   pid = 42;
 819
 820 #ifdef CREATE_INFERIOR_HOOK
 821   CREATE_INFERIOR_HOOK (pid);
 822 #endif
 823
 824 /* The "process" (board) is already stopped awaiting our commands, and
 825    the program is already downloaded.  We just set its PC and go.  */
 826
 827   inferior_pid = pid;           /* Needed for wait_for_inferior below */
 828
 829   clear_proceed_status ();
 830
 831 #if defined (START_INFERIOR_HOOK)
 832   START_INFERIOR_HOOK ();
 833 #endif
 834
 835   /* Tell wait_for_inferior that we've started a new process.  */
 836   init_wait_for_inferior ();
 837
 838   /* Set up the "saved terminal modes" of the inferior
 839      based on what modes we are starting it with.  */
 840   target_terminal_init ();
 841
 842   /* Install inferior's terminal modes.  */
 843   target_terminal_inferior ();
 844
 845   /* remote_start(args); */
 846   /* trap_expected = 0; */
 847   /* insert_step_breakpoint ();  FIXME, do we need this?  */
 848   proceed ((CORE_ADDR)entry_pt, -1, 0);         /* Let 'er rip... */
 849 }
 850
 851 static void
 852 reset_command(args, from_tty)
 853      char *args;
 854      int from_tty;
 855 {
 856         if ( !nindy_fd ){
 857             error( "No target system to reset -- use 'target nindy' command.");
 858         }
 859         if ( query("Really reset the target system?",0,0) ){
 860                 send_break( nindy_fd );
 861                 tty_flush( nindy_fd );
 862         }
 863 }
 864
 865 void
 866 nindy_kill (args, from_tty)
 867      char *args;
 868      int from_tty;
 869 {
 870   return;               /* Ignore attempts to kill target system */
 871 }
 872
 873 /* Clean up when a program exits.
 874
 875    The program actually lives on in the remote processor's RAM, and may be
 876    run again without a download.  Don't leave it full of breakpoint
 877    instructions.  */
 878
 879 void
 880 nindy_mourn_inferior ()
 881 {
 882   remove_breakpoints ();
 883   generic_mourn_inferior ();    /* Do all the proper things now */
 884 }
 885 \f
 886 /* This routine is run as a hook, just before the main command loop is
 887    entered.  If gdb is configured for the i960, but has not had its
 888    nindy target specified yet, this will loop prompting the user to do so.
 889
 890    Unlike the loop provided by Intel, we actually let the user get out
 891    of this with a RETURN.  This is useful when e.g. simply examining
 892    an i960 object file on the host system.  */
 893
 894 nindy_before_main_loop ()
 895 {
 896   char ttyname[100];
 897   char *p, *p2;
 898
 899   setjmp(to_top_level);
 900   while (current_target != &nindy_ops) { /* remote tty not specified yet */
 901         if ( instream == stdin ){
 902                 printf("\nAttach /dev/ttyNN -- specify NN, or \"quit\" to quit:  ");
 903                 fflush( stdout );
 904         }
 905         fgets( ttyname, sizeof(ttyname)-1, stdin );
 906
 907         /* Strip leading and trailing whitespace */
 908         for ( p = ttyname; isspace(*p); p++ ){
 909                 ;
 910         }
 911         if ( *p == '\0' ){
 912                 return;         /* User just hit spaces or return, wants out */
 913         }
 914         for ( p2= p; !isspace(*p2) && (*p2 != '\0'); p2++ ){
 915                 ;
 916         }
 917         *p2= '\0';
 918         if ( !strcmp("quit",p) ){
 919                 exit(1);
 920         }
 921
 922         nindy_open( p, 1 );
 923
 924         /* Now that we have a tty open for talking to the remote machine,
 925            download the executable file if one was specified.  */
 926         if ( !setjmp(to_top_level) && exec_bfd ) {
 927               target_load (bfd_get_filename (exec_bfd), 1);
 928         }
 929   }
 930 }
 931 \f
 932 /* Define the target subroutine names */
 933
 934 struct target_ops nindy_ops = {
 935         "nindy", "Remote serial target in i960 NINDY-specific protocol",
 936         nindy_open, nindy_close,
 937         0, nindy_detach, nindy_resume, nindy_wait,
 938         nindy_fetch_registers, nindy_store_registers,
 939         nindy_prepare_to_store, 0, 0, /* conv_from, conv_to */
 940         nindy_xfer_inferior_memory, nindy_files_info,
 941         0, 0, /* insert_breakpoint, remove_breakpoint, */
 942         0, 0, 0, 0, 0,  /* Terminal crud */
 943         nindy_kill,
 944         nindy_load, add_syms_addr_command,
 945         call_function_by_hand,
 946         0, /* lookup_symbol */
 947         nindy_create_inferior,
 948         nindy_mourn_inferior,
 949         process_stratum, 0, /* next */
 950         1, 1, 1, 1, 1,  /* all mem, mem, stack, regs, exec */
 951         OPS_MAGIC,              /* Always the last thing */
 952 };
 953
 954 void
 955 _initialize_nindy ()
 956 {
 957   add_target (&nindy_ops);
 958   add_com ("reset", class_obscure, reset_command,
 959            "Send a 'break' to the remote target system.\n\
 960 Only useful if the target has been equipped with a circuit\n\
 961 to perform a hard reset when a break is detected.");
 962 }