gdb/sparcl-tdep.c

   1 /* Target dependent code for the Fujitsu SPARClite for GDB, the GNU debugger.
   2    Copyright 1994, 1995  Free Software Foundation, Inc.
   3
   4 This file is part of GDB.
   5
   6 This program is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2 of the License, or
   9 (at your option) any later version.
  10
  11 This program is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with this program; if not, write to the Free Software
  18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20 #include "defs.h"
  21 #include "gdbcore.h"
  22 #include "breakpoint.h"
  23 #include "target.h"
  24 #include "serial.h"
  25 #include <sys/types.h>
  26 #include <sys/time.h>
  27 #ifndef __GO32__
  28 #include <unistd.h>
  29 #include <sys/socket.h>
  30 #include <netinet/in.h>
  31 #include <netdb.h>
  32 #endif
  33
  34 extern struct target_ops sparclite_ops; /* Forward decl */
  35 extern struct target_ops remote_ops;
  36
  37 static char *remote_target_name = NULL;
  38 static serial_t remote_desc = NULL;
  39 static int serial_flag;
  40 #ifndef __GO32__
  41 static int udp_fd = -1;
  42 #endif
  43
  44 static serial_t open_tty PARAMS ((char *name));
  45 static int send_resp PARAMS ((serial_t desc, char c));
  46 static void close_tty PARAMS ((int ignore));
  47 #ifndef __GO32__
  48 static int recv_udp_buf PARAMS ((int fd, unsigned char *buf, int len, int timeout));
  49 static int send_udp_buf PARAMS ((int fd, unsigned char *buf, int len));
  50 #endif
  51 static void sparclite_open PARAMS ((char *name, int from_tty));
  52 static void sparclite_close PARAMS ((int quitting));
  53 static void download PARAMS ((char *target_name, char *args, int from_tty,
  54                               void (*write_routine) (bfd *from_bfd,
  55                                                      asection *from_sec,
  56                                                      file_ptr from_addr,
  57                                                      bfd_vma to_addr, int len),
  58                               void (*start_routine) (bfd_vma entry)));
  59 static void sparclite_serial_start PARAMS ((bfd_vma entry));
  60 static void sparclite_serial_write PARAMS ((bfd *from_bfd, asection *from_sec,
  61                                             file_ptr from_addr,
  62                                             bfd_vma to_addr, int len));
  63 #ifndef __GO32__
  64 static unsigned short calc_checksum PARAMS ((unsigned char *buffer,
  65                                              int count));
  66 static void sparclite_udp_start PARAMS ((bfd_vma entry));
  67 static void sparclite_udp_write PARAMS ((bfd *from_bfd, asection *from_sec,
  68                                          file_ptr from_addr, bfd_vma to_addr,
  69                                          int len));
  70 #endif
  71 static void sparclite_download PARAMS ((char *filename, int from_tty));
  72
  73 #define DDA2_SUP_ASI            0xb000000
  74 #define DDA1_SUP_ASI            0xb0000
  75
  76 #define DDA2_ASI_MASK           0xff000000
  77 #define DDA1_ASI_MASK           0xff0000
  78 #define DIA2_SUP_MODE           0x8000
  79 #define DIA1_SUP_MODE           0x4000
  80 #define DDA2_ENABLE             0x100
  81 #define DDA1_ENABLE             0x80
  82 #define DIA2_ENABLE             0x40
  83 #define DIA1_ENABLE             0x20
  84 #define DSINGLE_STEP            0x10
  85 #define DDV_TYPE_MASK           0xc
  86 #define DDV_TYPE_LOAD           0x0
  87 #define DDV_TYPE_STORE          0x4
  88 #define DDV_TYPE_ACCESS         0x8
  89 #define DDV_TYPE_ALWAYS         0xc
  90 #define DDV_COND                0x2
  91 #define DDV_MASK                0x1
  92
  93 int
  94 sparclite_insert_watchpoint (addr, len, type)
  95      CORE_ADDR addr;
  96      int len;
  97      int type;
  98 {
  99   CORE_ADDR dcr;
 100
 101   dcr = read_register (DCR_REGNUM);
 102
 103   if (!(dcr & DDA1_ENABLE))
 104     {
 105       write_register (DDA1_REGNUM, addr);
 106       dcr &= ~(DDA1_ASI_MASK | DDV_TYPE_MASK);
 107       dcr |= (DDA1_SUP_ASI | DDA1_ENABLE);
 108       if (type == 1)
 109         {
 110           write_register (DDV1_REGNUM, 0);
 111           write_register (DDV2_REGNUM, 0xffffffff);
 112           dcr |= (DDV_TYPE_LOAD & (~DDV_COND & ~DDV_MASK));
 113         }
 114       else if (type == 0)
 115         {
 116           write_register (DDV1_REGNUM, 0);
 117           write_register (DDV2_REGNUM, 0xffffffff);
 118           dcr |= (DDV_TYPE_STORE & (~DDV_COND & ~DDV_MASK));
 119         }
 120       else
 121         {
 122           write_register (DDV1_REGNUM, 0);
 123           write_register (DDV2_REGNUM, 0xffffffff);
 124           dcr |= (DDV_TYPE_ACCESS);
 125         }
 126       write_register (DCR_REGNUM, dcr);
 127     }
 128   else if (!(dcr & DDA2_ENABLE))
 129     {
 130       write_register (DDA2_REGNUM, addr);
 131       dcr &= ~(DDA2_ASI_MASK & DDV_TYPE_MASK);
 132       dcr |= (DDA2_SUP_ASI | DDA2_ENABLE);
 133       if (type == 1)
 134         {
 135           write_register (DDV1_REGNUM, 0);
 136           write_register (DDV2_REGNUM, 0xffffffff);
 137           dcr |= (DDV_TYPE_LOAD & ~DDV_COND & ~DDV_MASK);
 138         }
 139       else if (type == 0)
 140         {
 141           write_register (DDV1_REGNUM, 0);
 142           write_register (DDV2_REGNUM, 0xffffffff);
 143           dcr |= (DDV_TYPE_STORE & ~DDV_COND & ~DDV_MASK);
 144         }
 145       else
 146         {
 147           write_register (DDV1_REGNUM, 0);
 148           write_register (DDV2_REGNUM, 0xffffffff);
 149           dcr |= (DDV_TYPE_ACCESS);
 150         }
 151       write_register (DCR_REGNUM, dcr);
 152     }
 153   else
 154     return -1;
 155
 156   return 0;
 157 }
 158
 159 int
 160 sparclite_remove_watchpoint (addr, len, type)
 161      CORE_ADDR addr;
 162      int len;
 163      int type;
 164 {
 165   CORE_ADDR dcr, dda1, dda2;
 166
 167   dcr = read_register (DCR_REGNUM);
 168   dda1 = read_register (DDA1_REGNUM);
 169   dda2 = read_register (DDA2_REGNUM);
 170
 171   if ((dcr & DDA1_ENABLE) && addr == dda1)
 172     write_register (DCR_REGNUM, (dcr & ~DDA1_ENABLE));
 173   else if ((dcr & DDA2_ENABLE) && addr == dda2)
 174     write_register (DCR_REGNUM, (dcr & ~DDA2_ENABLE));
 175   else
 176     return -1;
 177
 178   return 0;
 179 }
 180
 181 int
 182 sparclite_insert_hw_breakpoint (addr, len)
 183      CORE_ADDR addr;
 184      int len;
 185 {
 186   CORE_ADDR dcr;
 187
 188   dcr = read_register (DCR_REGNUM);
 189
 190   if (!(dcr & DIA1_ENABLE))
 191     {
 192       write_register (DIA1_REGNUM, addr);
 193       write_register (DCR_REGNUM, (dcr | DIA1_ENABLE | DIA1_SUP_MODE));
 194     }
 195   else if (!(dcr & DIA2_ENABLE))
 196     {
 197       write_register (DIA2_REGNUM, addr);
 198       write_register (DCR_REGNUM, (dcr | DIA2_ENABLE | DIA2_SUP_MODE));
 199     }
 200   else
 201     return -1;
 202
 203   return 0;
 204 }
 205
 206 int
 207 sparclite_remove_hw_breakpoint (addr, shadow)
 208      CORE_ADDR addr;
 209      int shadow;
 210 {
 211   CORE_ADDR dcr, dia1, dia2;
 212
 213   dcr = read_register (DCR_REGNUM);
 214   dia1 = read_register (DIA1_REGNUM);
 215   dia2 = read_register (DIA2_REGNUM);
 216
 217   if ((dcr & DIA1_ENABLE) && addr == dia1)
 218     write_register (DCR_REGNUM, (dcr & ~DIA1_ENABLE));
 219   else if ((dcr & DIA2_ENABLE) && addr == dia2)
 220     write_register (DCR_REGNUM, (dcr & ~DIA2_ENABLE));
 221   else
 222     return -1;
 223
 224   return 0;
 225 }
 226
 227 int
 228 sparclite_check_watch_resources (type, cnt, ot)
 229      int type;
 230      int cnt;
 231      int ot;
 232 {
 233   if (type == bp_hardware_breakpoint)
 234     if (TARGET_HW_BREAK_LIMIT == 0)
 235       return 0;
 236     else if (cnt <= TARGET_HW_BREAK_LIMIT)
 237       return 1;
 238   else
 239     if (TARGET_HW_WATCH_LIMIT == 0)
 240       return 0;
 241     else if (ot)
 242       return -1;
 243     else if (cnt <= TARGET_HW_WATCH_LIMIT)
 244       return 1;
 245   return -1;
 246 }
 247
 248 CORE_ADDR
 249 sparclite_stopped_data_address ()
 250 {
 251   CORE_ADDR dsr, dda1, dda2;
 252
 253   dsr = read_register (DSR_REGNUM);
 254   dda1 = read_register (DDA1_REGNUM);
 255   dda2 = read_register (DDA2_REGNUM);
 256
 257   if (dsr & 0x10)
 258     return dda1;
 259   else if (dsr & 0x20)
 260     return dda2;
 261   else
 262     return 0;
 263 }
 264 \f
 265 static serial_t
 266 open_tty (name)
 267      char *name;
 268 {
 269   serial_t desc;
 270
 271   desc = SERIAL_OPEN (name);
 272   if (!desc)
 273     perror_with_name (name);
 274
 275   if (baud_rate != -1)
 276     {
 277       if (SERIAL_SETBAUDRATE (desc, baud_rate))
 278         {
 279           SERIAL_CLOSE (desc);
 280           perror_with_name (name);
 281         }
 282     }
 283
 284   SERIAL_RAW (desc);
 285
 286   SERIAL_FLUSH_INPUT (desc);
 287
 288   return desc;
 289 }
 290
 291 static int
 292 send_resp (desc, c)
 293      serial_t desc;
 294      char c;
 295 {
 296   int i;
 297
 298   SERIAL_WRITE (desc, &c, 1);
 299   i = SERIAL_READCHAR (desc, 2);
 300
 301   if (i >= 0)
 302     return i;
 303
 304   switch (i)
 305     {
 306     case SERIAL_ERROR:
 307       perror_with_name ("Remote communication error");
 308     case SERIAL_TIMEOUT:
 309       error ("Remote timeout");
 310     case SERIAL_EOF:
 311       error ("Remote connection closed");
 312     }
 313 }
 314
 315 static void
 316 close_tty (ignore)
 317      int ignore;
 318 {
 319   if (!remote_desc)
 320     return;
 321
 322   SERIAL_CLOSE (remote_desc);
 323
 324   remote_desc = NULL;
 325 }
 326
 327 #ifndef __GO32__
 328 static int
 329 recv_udp_buf (fd, buf, len, timeout)
 330      int fd, len;
 331      unsigned char *buf;
 332      int timeout;
 333 {
 334   int cc;
 335   fd_set readfds;
 336
 337   FD_ZERO (&readfds);
 338   FD_SET (fd, &readfds);
 339
 340   if (timeout >= 0)
 341     {
 342       struct timeval timebuf;
 343
 344       timebuf.tv_sec = timeout;
 345       timebuf.tv_usec = 0;
 346       cc = select (fd + 1, &readfds, 0, 0, &timebuf);
 347     }
 348   else
 349     cc = select (fd + 1, &readfds, 0, 0, 0);
 350
 351   if (cc == 0)
 352     return 0;
 353
 354   if (cc != 1)
 355     perror_with_name ("recv_udp_buf: Bad return value from select:");
 356
 357   cc = recv (fd, buf, len, 0);
 358
 359   if (cc < 0)
 360     perror_with_name ("Got an error from recv: ");
 361 }
 362
 363 static int
 364 send_udp_buf (fd, buf, len)
 365      int fd, len;
 366      unsigned char *buf;
 367 {
 368   int cc;
 369
 370   cc = send (fd, buf, len, 0);
 371
 372   if (cc == len)
 373     return;
 374
 375   if (cc < 0)
 376     perror_with_name ("Got an error from send: ");
 377
 378   error ("Short count in send: tried %d, sent %d\n", len, cc);
 379 }
 380 #endif /* __GO32__ */
 381
 382 static void
 383 sparclite_open (name, from_tty)
 384      char *name;
 385      int from_tty;
 386 {
 387   struct cleanup *old_chain;
 388   int c;
 389   char *p;
 390
 391   if (!name)
 392     error ("You need to specify what device or hostname is associated with the SparcLite board.");
 393
 394   target_preopen (from_tty);
 395
 396   unpush_target (&sparclite_ops);
 397
 398   if (remote_target_name)
 399     free (remote_target_name);
 400
 401   remote_target_name = strsave (name);
 402
 403   /* We need a 'serial' or 'udp' keyword to disambiguate host:port, which can
 404      mean either a serial port on a terminal server, or the IP address of a
 405      SPARClite demo board.  If there's no colon, then it pretty much has to be
 406      a local device (except for DOS... grrmble) */
 407
 408   p = strchr (name, ' ');
 409
 410   if (p)
 411     {
 412       *p++ = '\000';
 413       while ((*p != '\000') && isspace (*p)) p++;
 414
 415       if (strncmp (name, "serial", strlen (name)) == 0)
 416         serial_flag = 1;
 417       else if (strncmp (name, "udp", strlen (name)) == 0)
 418         serial_flag = 0;
 419       else
 420         error ("Must specify either `serial' or `udp'.");
 421     }
 422   else
 423     {
 424       p = name;
 425
 426       if (!strchr (name, ':'))
 427         serial_flag = 1;        /* No colon is unambiguous (local device) */
 428       else
 429         error ("Usage: target sparclite serial /dev/ttyb\n\
 430 or: target sparclite udp host");
 431     }
 432
 433   if (serial_flag)
 434     {
 435       remote_desc = open_tty (p);
 436
 437       old_chain = make_cleanup (close_tty, 0);
 438
 439       c = send_resp (remote_desc, 0x00);
 440
 441       if (c != 0xaa)
 442         error ("Unknown response (0x%x) from SparcLite.  Try resetting the board.",
 443                c);
 444
 445       c = send_resp (remote_desc, 0x55);
 446
 447       if (c != 0x55)
 448         error ("Sparclite appears to be ill.");
 449     }
 450   else
 451     {
 452 #ifndef __GO32__
 453       struct hostent *he;
 454       struct sockaddr_in sockaddr;
 455       unsigned char buffer[100];
 456       int cc;
 457
 458       /* Setup the socket.  Must be raw UDP. */
 459
 460       he = gethostbyname (p);
 461
 462       if (!he)
 463         error ("No such host %s.", p);
 464
 465       udp_fd = socket (PF_INET, SOCK_DGRAM, 0);
 466
 467       old_chain = make_cleanup (close, udp_fd);
 468
 469       sockaddr.sin_family = PF_INET;
 470       sockaddr.sin_port = htons(7000);
 471       memcpy (&sockaddr.sin_addr.s_addr, he->h_addr, sizeof (struct in_addr));
 472
 473       if (connect (udp_fd, &sockaddr, sizeof(sockaddr)))
 474         perror_with_name ("Connect failed");
 475
 476       buffer[0] = 0x5;
 477       buffer[1] = 0;
 478
 479       send_udp_buf (udp_fd, buffer, 2); /* Request version */
 480       cc = recv_udp_buf (udp_fd, buffer, sizeof(buffer), 5); /* Get response */
 481       if (cc == 0)
 482         error ("SPARClite isn't responding.");
 483
 484       if (cc < 3)
 485         error ("SPARClite appears to be ill.");
 486 #else
 487       error ("UDP downloading is not supported for DOS hosts.");
 488 #endif /* __GO32__ */
 489     }
 490
 491   printf_unfiltered ("[SPARClite appears to be alive]\n");
 492
 493   push_target (&sparclite_ops);
 494
 495   discard_cleanups (old_chain);
 496
 497   return;
 498 }
 499
 500 static void
 501 sparclite_close (quitting)
 502      int quitting;
 503 {
 504   if (serial_flag)
 505     close_tty (0);
 506 #ifndef __GO32__
 507   else
 508     if (udp_fd != -1)
 509       close (udp_fd);
 510 #endif
 511 }
 512
 513 #define LOAD_ADDRESS 0x40000000
 514
 515 static void
 516 download (target_name, args, from_tty, write_routine, start_routine)
 517      char *target_name;
 518      char *args;
 519      int from_tty;
 520      void (*write_routine)();
 521      void (*start_routine)();
 522 {
 523   struct cleanup *old_chain;
 524   asection *section;
 525   bfd *pbfd;
 526   bfd_vma entry;
 527   int i;
 528 #define WRITESIZE 1024
 529   char *filename;
 530   int quiet;
 531   int nostart;
 532
 533   quiet = 0;
 534   nostart = 0;
 535   filename = NULL;
 536
 537   while (*args != '\000')
 538     {
 539       char *arg;
 540
 541       while (isspace (*args)) args++;
 542
 543       arg = args;
 544
 545       while ((*args != '\000') && !isspace (*args)) args++;
 546
 547       if (*args != '\000')
 548         *args++ = '\000';
 549
 550       if (*arg != '-')
 551         filename = arg;
 552       else if (strncmp (arg, "-quiet", strlen (arg)) == 0)
 553         quiet = 1;
 554       else if (strncmp (arg, "-nostart", strlen (arg)) == 0)
 555         nostart = 1;
 556       else
 557         error ("unknown option `%s'", arg);
 558     }
 559
 560   if (!filename)
 561     filename = get_exec_file (1);
 562
 563   pbfd = bfd_openr (filename, gnutarget);
 564   if (pbfd == NULL)
 565     {
 566       perror_with_name (filename);
 567       return;
 568     }
 569   old_chain = make_cleanup (bfd_close, pbfd);
 570
 571   if (!bfd_check_format (pbfd, bfd_object))
 572     error ("\"%s\" is not an object file: %s", filename,
 573            bfd_errmsg (bfd_get_error ()));
 574
 575   for (section = pbfd->sections; section; section = section->next)
 576     {
 577       if (bfd_get_section_flags (pbfd, section) & SEC_LOAD)
 578         {
 579           bfd_vma section_address;
 580           bfd_size_type section_size;
 581           file_ptr fptr;
 582
 583           section_address = bfd_get_section_vma (pbfd, section);
 584           /* Adjust sections from a.out files, since they don't
 585              carry their addresses with.  */
 586           if (bfd_get_flavour (pbfd) == bfd_target_aout_flavour)
 587             section_address += LOAD_ADDRESS;
 588
 589           section_size = bfd_get_section_size_before_reloc (section);
 590
 591           if (!quiet)
 592             printf_filtered ("[Loading section %s at 0x%x (%d bytes)]\n",
 593                              bfd_get_section_name (pbfd, section),
 594                              section_address,
 595                              section_size);
 596
 597           fptr = 0;
 598           while (section_size > 0)
 599             {
 600               int count;
 601               static char inds[] = "|/-\\";
 602               static int k = 0;
 603
 604               QUIT;
 605
 606               count = min (section_size, WRITESIZE);
 607
 608               write_routine (pbfd, section, fptr, section_address, count);
 609
 610               if (!quiet)
 611                 {
 612                   printf_unfiltered ("\r%c", inds[k++ % 4]);
 613                   gdb_flush (gdb_stdout);
 614                 }
 615
 616               section_address += count;
 617               fptr += count;
 618               section_size -= count;
 619             }
 620         }
 621     }
 622
 623   if (!nostart)
 624     {
 625       entry = bfd_get_start_address (pbfd);
 626
 627       if (!quiet)
 628         printf_unfiltered ("[Starting %s at 0x%x]\n", filename, entry);
 629
 630       start_routine (entry);
 631     }
 632
 633   do_cleanups (old_chain);
 634 }
 635
 636 static void
 637 sparclite_serial_start (entry)
 638      bfd_vma entry;
 639 {
 640   char buffer[5];
 641   int i;
 642
 643   buffer[0] = 0x03;
 644   store_unsigned_integer (buffer + 1, 4, entry);
 645
 646   SERIAL_WRITE (remote_desc, buffer, 1 + 4);
 647   i = SERIAL_READCHAR (remote_desc, 2);
 648   if (i != 0x55)
 649     error ("Can't start SparcLite.  Error code %d\n", i);
 650 }
 651
 652 static void
 653 sparclite_serial_write (from_bfd, from_sec, from_addr, to_addr, len)
 654      bfd *from_bfd;
 655      asection *from_sec;
 656      file_ptr from_addr;
 657      bfd_vma to_addr;
 658      int len;
 659 {
 660   char buffer[4 + 4 + WRITESIZE]; /* addr + len + data */
 661   unsigned char checksum;
 662   int i;
 663
 664   store_unsigned_integer (buffer, 4, to_addr); /* Address */
 665   store_unsigned_integer (buffer + 4, 4, len); /* Length */
 666
 667   bfd_get_section_contents (from_bfd, from_sec, buffer + 8, from_addr, len);
 668
 669   checksum = 0;
 670   for (i = 0; i < len; i++)
 671     checksum += buffer[8 + i];
 672
 673   i = send_resp (remote_desc, 0x01);
 674
 675   if (i != 0x5a)
 676     error ("Bad response from load command (0x%x)", i);
 677
 678   SERIAL_WRITE (remote_desc, buffer, 4 + 4 + len);
 679   i = SERIAL_READCHAR (remote_desc, 2);
 680   if (i < 0)
 681     error ("I/O error in serial code.  Return code %d\n", i);
 682
 683   if (i != checksum)
 684     error ("Bad checksum from load command (0x%x)", i);
 685 }
 686
 687 #ifndef __GO32__
 688
 689 static unsigned short
 690 calc_checksum (buffer, count)
 691      unsigned char *buffer;
 692      int count;
 693 {
 694   unsigned short checksum;
 695
 696   checksum = 0;
 697   for (; count > 0; count -= 2, buffer += 2)
 698     checksum += (*buffer << 8) | *(buffer + 1);
 699
 700   if (count != 0)
 701     checksum += *buffer << 8;
 702
 703   return checksum;
 704 }
 705
 706 static void
 707 sparclite_udp_start (entry)
 708      bfd_vma entry;
 709 {
 710   unsigned char buffer[6];
 711   int i;
 712
 713   buffer[0] = 0x3;
 714   buffer[1] = 0;
 715   buffer[2] = entry >> 24;
 716   buffer[3] = entry >> 16;
 717   buffer[4] = entry >> 8;
 718   buffer[5] = entry;
 719
 720   send_udp_buf (udp_fd, buffer, 6); /* Send start addr */
 721   i = recv_udp_buf (udp_fd, buffer, sizeof(buffer), -1); /* Get response */
 722
 723   if (i < 1 || buffer[0] != 0x55)
 724     error ("Failed to take start address.");
 725 }
 726
 727 static void
 728 sparclite_udp_write (from_bfd, from_sec, from_addr, to_addr, len)
 729      bfd *from_bfd;
 730      asection *from_sec;
 731      file_ptr from_addr;
 732      bfd_vma to_addr;
 733      int len;
 734 {
 735   unsigned char buffer[2000];
 736   unsigned short checksum;
 737   static int pkt_num = 0;
 738   static unsigned long old_addr = -1;
 739   int i;
 740
 741   while (1)
 742     {
 743       if (to_addr != old_addr)
 744         {
 745           buffer[0] = 0x1;      /* Load command */
 746           buffer[1] = 0x1;      /* Loading address */
 747           buffer[2] = to_addr >> 24;
 748           buffer[3] = to_addr >> 16;
 749           buffer[4] = to_addr >> 8;
 750           buffer[5] = to_addr;
 751
 752           checksum = 0;
 753           for (i = 0; i < 6; i++)
 754             checksum += buffer[i];
 755           checksum &= 0xff;
 756
 757           send_udp_buf (udp_fd, buffer, 6);
 758           i = recv_udp_buf (udp_fd, buffer, sizeof buffer, -1);
 759
 760           if (i < 1)
 761             error ("Got back short checksum for load addr.");
 762
 763           if (checksum != buffer[0])
 764             error ("Got back bad checksum for load addr.");
 765
 766           pkt_num = 0;          /* Load addr resets packet seq # */
 767           old_addr = to_addr;
 768         }
 769
 770       bfd_get_section_contents (from_bfd, from_sec, buffer + 6, from_addr,
 771                                 len);
 772
 773       checksum = calc_checksum (buffer + 6, len);
 774
 775       buffer[0] = 0x1;          /* Load command */
 776       buffer[1] = 0x2;          /* Loading data */
 777       buffer[2] = pkt_num >> 8;
 778       buffer[3] = pkt_num;
 779       buffer[4] = checksum >> 8;
 780       buffer[5] = checksum;
 781
 782       send_udp_buf (udp_fd, buffer, len + 6);
 783       i = recv_udp_buf (udp_fd, buffer, sizeof buffer, 3);
 784
 785       if (i == 0)
 786         {
 787           fprintf_unfiltered (gdb_stderr, "send_data: timeout sending %d bytes to address 0x%x retrying\n", len, to_addr);
 788           continue;
 789         }
 790
 791       if (buffer[0] != 0xff)
 792         error ("Got back bad response for load data.");
 793
 794       old_addr += len;
 795       pkt_num++;
 796
 797       return;
 798     }
 799 }
 800
 801 #endif /* __GO32__ */
 802
 803 static void
 804 sparclite_download (filename, from_tty)
 805      char *filename;
 806      int from_tty;
 807 {
 808   if (!serial_flag)
 809 #ifndef __GO32__
 810     download (remote_target_name, filename, from_tty, sparclite_udp_write,
 811               sparclite_udp_start);
 812 #else
 813     abort ();                   /* sparclite_open should prevent this! */
 814 #endif
 815   else
 816     download (remote_target_name, filename, from_tty, sparclite_serial_write,
 817               sparclite_serial_start);
 818 }
 819 \f
 820 /* Define the target subroutine names */
 821
 822 static struct target_ops sparclite_ops =
 823 {
 824   "sparclite",                  /* to_shortname */
 825   "SPARClite remote target",    /* to_longname */
 826   "Use a remote SPARClite target board via a serial line, using a gdb-specific protocol.\n\
 827 Specify the serial device it is connected to (e.g. /dev/ttya).",  /* to_doc */
 828   sparclite_open,               /* to_open */
 829   sparclite_close,              /* to_close */
 830   0,                            /* to_attach */
 831   0,                            /* to_detach */
 832   0,                            /* to_resume */
 833   0,                            /* to_wait */
 834   0,                            /* to_fetch_registers */
 835   0,                            /* to_store_registers */
 836   0,                            /* to_prepare_to_store */
 837   0,                            /* to_xfer_memory */
 838   0,                            /* to_files_info */
 839   0,                            /* to_insert_breakpoint */
 840   0,                            /* to_remove_breakpoint */
 841   0,                            /* to_terminal_init */
 842   0,                            /* to_terminal_inferior */
 843   0,                            /* to_terminal_ours_for_output */
 844   0,                            /* to_terminal_ours */
 845   0,                            /* to_terminal_info */
 846   0,                            /* to_kill */
 847   sparclite_download,           /* to_load */
 848   0,                            /* to_lookup_symbol */
 849   0,                            /* to_create_inferior */
 850   0,                            /* to_mourn_inferior */
 851   0,                            /* to_can_run */
 852   0,                            /* to_notice_signals */
 853   0,                            /* to_stop */
 854   download_stratum,             /* to_stratum */
 855   0,                            /* to_next */
 856   0,                            /* to_has_all_memory */
 857   0,                            /* to_has_memory */
 858   0,                            /* to_has_stack */
 859   0,                            /* to_has_registers */
 860   0,                            /* to_has_execution */
 861   0,                            /* sections */
 862   0,                            /* sections_end */
 863   OPS_MAGIC                     /* to_magic */
 864   };
 865
 866 void
 867 _initialize_sparcl_tdep ()
 868 {
 869   add_target (&sparclite_ops);
 870 }