2002-12-16 Andrew Cagney <ac131313@redhat.com>
authorAndrew Cagney <cagney@redhat.com>
Mon, 16 Dec 2002 20:39:23 +0000 (20:39 +0000)
committerAndrew Cagney <cagney@redhat.com>
Mon, 16 Dec 2002 20:39:23 +0000 (20:39 +0000)
* config/arc/arc.mt, config/arc/tm-arc.h: Delete.
* config/d30v/d30v.mt, config/d30v/tm-d30v.h: Delete.
* config/fr30/fr30.mt, config/fr30/tm-fr30.h: Delete.
* config/i386/i386aix.mh, config/i386/i386aix.mt: Delete.
* config/i386/i386m3.mh, config/i386/i386m3.mt: Delete.
* config/i386/i386mach.mh, config/i386/i386os9k.mt: Delete.
* config/i386/nm-i386aix.h, config/i386/nm-i386mach.h: Delete.
* config/i386/nm-m3.h, config/i386/tm-i386aix.h: Delete.
* config/i386/tm-i386m3.h, config/i386/tm-i386mk.h: Delete.
* config/i386/xm-i386aix.h, config/i386/xm-i386m3.h: Delete.
* config/i386/xm-i386mach.h, config/i386/xm-i386mk.h: Delete.
* config/i960/mon960.mt, config/i960/nindy960.mt: Delete.
* config/i960/tm-i960.h, config/i960/tm-mon960.h: Delete.
* config/i960/tm-nindy960.h, config/i960/tm-vx960.h: Delete.
* config/i960/vxworks960.mt, config/m68k/apollo68b.mh: Delete.
* config/m68k/apollo68b.mt, config/m68k/apollo68v.mh: Delete.
* config/m68k/hp300bsd.mh, config/m68k/hp300bsd.mt: Delete.
* config/m68k/hp300hpux.mh, config/m68k/hp300hpux.mt: Delete.
* config/m88k/delta88.mh, config/m88k/delta88.mt: Delete.
* config/m88k/delta88v4.mh, config/m88k/delta88v4.mt: Delete.
* config/m88k/m88k.mh, config/m88k/m88k.mt: Delete.
* config/m88k/nm-delta88v4.h, config/m88k/nm-m88k.h: Delete.
* config/m88k/tm-delta88.h, config/m88k/tm-delta88v4.h: Delete.
* config/m88k/tm-m88k.h, config/m88k/xm-delta88.h: Delete.
* config/m88k/xm-dgux.h: Delete.
* fr30-tdep.c, i386aix-nat.c, i386m3-nat.c: Delete.
* i386mach-nat.c, i960-tdep.c, m88k-nat.c: Delete.
* os9kread.c, remote-bug.c, remote-nindy.c: Delete.
* remote-nrom.c, remote-os9k.c, remote-vx960.c: Delete.
* d30v-tdep.c, arc-tdep.c, cxux-nat.c, dst.h, dstread.c: Delete.
* ch-exp.c, ch-lang.c, ch-lang.h, ch-typeprint.c: Delete.
* ch-valprint.c: Delete.

73 files changed:
gdb/ChangeLog
gdb/arc-tdep.c [deleted file]
gdb/ch-exp.c [deleted file]
gdb/ch-lang.c [deleted file]
gdb/ch-lang.h [deleted file]
gdb/ch-typeprint.c [deleted file]
gdb/ch-valprint.c [deleted file]
gdb/config/arc/arc.mt [deleted file]
gdb/config/arc/tm-arc.h [deleted file]
gdb/config/d30v/d30v.mt [deleted file]
gdb/config/d30v/tm-d30v.h [deleted file]
gdb/config/fr30/fr30.mt [deleted file]
gdb/config/fr30/tm-fr30.h [deleted file]
gdb/config/i386/i386aix.mh [deleted file]
gdb/config/i386/i386aix.mt [deleted file]
gdb/config/i386/i386m3.mh [deleted file]
gdb/config/i386/i386m3.mt [deleted file]
gdb/config/i386/i386mach.mh [deleted file]
gdb/config/i386/i386os9k.mt [deleted file]
gdb/config/i386/nm-i386aix.h [deleted file]
gdb/config/i386/nm-i386mach.h [deleted file]
gdb/config/i386/nm-m3.h [deleted file]
gdb/config/i386/tm-i386aix.h [deleted file]
gdb/config/i386/tm-i386m3.h [deleted file]
gdb/config/i386/tm-i386mk.h [deleted file]
gdb/config/i386/xm-i386aix.h [deleted file]
gdb/config/i386/xm-i386m3.h [deleted file]
gdb/config/i386/xm-i386mach.h [deleted file]
gdb/config/i386/xm-i386mk.h [deleted file]
gdb/config/i960/mon960.mt [deleted file]
gdb/config/i960/nindy960.mt [deleted file]
gdb/config/i960/tm-i960.h [deleted file]
gdb/config/i960/tm-mon960.h [deleted file]
gdb/config/i960/tm-nindy960.h [deleted file]
gdb/config/i960/tm-vx960.h [deleted file]
gdb/config/i960/vxworks960.mt [deleted file]
gdb/config/m68k/apollo68b.mh [deleted file]
gdb/config/m68k/apollo68b.mt [deleted file]
gdb/config/m68k/apollo68v.mh [deleted file]
gdb/config/m68k/hp300bsd.mh [deleted file]
gdb/config/m68k/hp300bsd.mt [deleted file]
gdb/config/m68k/hp300hpux.mh [deleted file]
gdb/config/m68k/hp300hpux.mt [deleted file]
gdb/config/m88k/delta88.mh [deleted file]
gdb/config/m88k/delta88.mt [deleted file]
gdb/config/m88k/delta88v4.mh [deleted file]
gdb/config/m88k/delta88v4.mt [deleted file]
gdb/config/m88k/m88k.mh [deleted file]
gdb/config/m88k/m88k.mt [deleted file]
gdb/config/m88k/nm-delta88v4.h [deleted file]
gdb/config/m88k/nm-m88k.h [deleted file]
gdb/config/m88k/tm-delta88.h [deleted file]
gdb/config/m88k/tm-delta88v4.h [deleted file]
gdb/config/m88k/tm-m88k.h [deleted file]
gdb/config/m88k/xm-delta88.h [deleted file]
gdb/config/m88k/xm-dgux.h [deleted file]
gdb/cxux-nat.c [deleted file]
gdb/d30v-tdep.c [deleted file]
gdb/dst.h [deleted file]
gdb/dstread.c [deleted file]
gdb/fr30-tdep.c [deleted file]
gdb/i386aix-nat.c [deleted file]
gdb/i386m3-nat.c [deleted file]
gdb/i386mach-nat.c [deleted file]
gdb/i960-tdep.c [deleted file]
gdb/m88k-nat.c [deleted file]
gdb/m88k-tdep.c [deleted file]
gdb/os9kread.c [deleted file]
gdb/remote-bug.c [deleted file]
gdb/remote-nindy.c [deleted file]
gdb/remote-nrom.c [deleted file]
gdb/remote-os9k.c [deleted file]
gdb/remote-vx960.c [deleted file]

index 01c2960..b7e6d20 100644 (file)
@@ -1,3 +1,38 @@
+2002-12-16  Andrew Cagney  <ac131313@redhat.com>
+
+       * config/arc/arc.mt, config/arc/tm-arc.h: Delete.
+       * config/d30v/d30v.mt, config/d30v/tm-d30v.h: Delete.
+       * config/fr30/fr30.mt, config/fr30/tm-fr30.h: Delete.
+       * config/i386/i386aix.mh, config/i386/i386aix.mt: Delete.
+       * config/i386/i386m3.mh, config/i386/i386m3.mt: Delete.
+       * config/i386/i386mach.mh, config/i386/i386os9k.mt: Delete.
+       * config/i386/nm-i386aix.h, config/i386/nm-i386mach.h: Delete.
+       * config/i386/nm-m3.h, config/i386/tm-i386aix.h: Delete.
+       * config/i386/tm-i386m3.h, config/i386/tm-i386mk.h: Delete.
+       * config/i386/xm-i386aix.h, config/i386/xm-i386m3.h: Delete.
+       * config/i386/xm-i386mach.h, config/i386/xm-i386mk.h: Delete.
+       * config/i960/mon960.mt, config/i960/nindy960.mt: Delete.
+       * config/i960/tm-i960.h, config/i960/tm-mon960.h: Delete.
+       * config/i960/tm-nindy960.h, config/i960/tm-vx960.h: Delete.
+       * config/i960/vxworks960.mt, config/m68k/apollo68b.mh: Delete.
+       * config/m68k/apollo68b.mt, config/m68k/apollo68v.mh: Delete.
+       * config/m68k/hp300bsd.mh, config/m68k/hp300bsd.mt: Delete.
+       * config/m68k/hp300hpux.mh, config/m68k/hp300hpux.mt: Delete.
+       * config/m88k/delta88.mh, config/m88k/delta88.mt: Delete.
+       * config/m88k/delta88v4.mh, config/m88k/delta88v4.mt: Delete.
+       * config/m88k/m88k.mh, config/m88k/m88k.mt: Delete.
+       * config/m88k/nm-delta88v4.h, config/m88k/nm-m88k.h: Delete.
+       * config/m88k/tm-delta88.h, config/m88k/tm-delta88v4.h: Delete.
+       * config/m88k/tm-m88k.h, config/m88k/xm-delta88.h: Delete.
+       * config/m88k/xm-dgux.h: Delete.
+       * fr30-tdep.c, i386aix-nat.c, i386m3-nat.c: Delete.
+       * i386mach-nat.c, i960-tdep.c, m88k-nat.c: Delete.
+       * os9kread.c, remote-bug.c, remote-nindy.c: Delete.
+       * remote-nrom.c, remote-os9k.c, remote-vx960.c: Delete.
+       * d30v-tdep.c, arc-tdep.c, cxux-nat.c, dst.h, dstread.c: Delete.
+       * ch-exp.c, ch-lang.c, ch-lang.h, ch-typeprint.c: Delete.
+       * ch-valprint.c: Delete.
+       
 2002-12-15  Daniel Jacobowitz  <drow@mvista.com>
 
        * infrun.c (handle_inferior_event): Rearrange code to resume if
diff --git a/gdb/arc-tdep.c b/gdb/arc-tdep.c
deleted file mode 100644 (file)
index 5c44915..0000000
+++ /dev/null
@@ -1,738 +0,0 @@
-// OBSOLETE /* ARC target-dependent stuff.
-// OBSOLETE    Copyright 1995, 1996, 1999, 2000, 2001 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "floatformat.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "gdbcmd.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE 
-// OBSOLETE /* Local functions */
-// OBSOLETE 
-// OBSOLETE static int arc_set_cpu_type (char *str);
-// OBSOLETE 
-// OBSOLETE /* Current CPU, set with the "set cpu" command.  */
-// OBSOLETE static int arc_bfd_mach_type;
-// OBSOLETE char *arc_cpu_type;
-// OBSOLETE char *tmp_arc_cpu_type;
-// OBSOLETE 
-// OBSOLETE /* Table of cpu names.  */
-// OBSOLETE struct
-// OBSOLETE   {
-// OBSOLETE     char *name;
-// OBSOLETE     int value;
-// OBSOLETE   }
-// OBSOLETE arc_cpu_type_table[] =
-// OBSOLETE {
-// OBSOLETE   { "arc5", bfd_mach_arc_5 },
-// OBSOLETE   { "arc6", bfd_mach_arc_6 },
-// OBSOLETE   { "arc7", bfd_mach_arc_7 },
-// OBSOLETE   { "arc8", bfd_mach_arc_8 },
-// OBSOLETE   {  NULL,  0 }
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE /* Used by simulator.  */
-// OBSOLETE int display_pipeline_p;
-// OBSOLETE int cpu_timer;
-// OBSOLETE /* This one must have the same type as used in the emulator.
-// OBSOLETE    It's currently an enum so this should be ok for now.  */
-// OBSOLETE int debug_pipeline_p;
-// OBSOLETE 
-// OBSOLETE #define ARC_CALL_SAVED_REG(r) ((r) >= 16 && (r) < 24)
-// OBSOLETE 
-// OBSOLETE #define OPMASK     0xf8000000
-// OBSOLETE 
-// OBSOLETE /* Instruction field accessor macros.
-// OBSOLETE    See the Programmer's Reference Manual.  */
-// OBSOLETE #define X_OP(i) (((i) >> 27) & 0x1f)
-// OBSOLETE #define X_A(i) (((i) >> 21) & 0x3f)
-// OBSOLETE #define X_B(i) (((i) >> 15) & 0x3f)
-// OBSOLETE #define X_C(i) (((i) >> 9) & 0x3f)
-// OBSOLETE #define X_D(i) ((((i) & 0x1ff) ^ 0x100) - 0x100)
-// OBSOLETE #define X_L(i) (((((i) >> 5) & 0x3ffffc) ^ 0x200000) - 0x200000)
-// OBSOLETE #define X_N(i) (((i) >> 5) & 3)
-// OBSOLETE #define X_Q(i) ((i) & 0x1f)
-// OBSOLETE 
-// OBSOLETE /* Return non-zero if X is a short immediate data indicator.  */
-// OBSOLETE #define SHIMM_P(x) ((x) == 61 || (x) == 63)
-// OBSOLETE 
-// OBSOLETE /* Return non-zero if X is a "long" (32 bit) immediate data indicator.  */
-// OBSOLETE #define LIMM_P(x) ((x) == 62)
-// OBSOLETE 
-// OBSOLETE /* Build a simple instruction.  */
-// OBSOLETE #define BUILD_INSN(op, a, b, c, d) \
-// OBSOLETE   ((((op) & 31) << 27) \
-// OBSOLETE    | (((a) & 63) << 21) \
-// OBSOLETE    | (((b) & 63) << 15) \
-// OBSOLETE    | (((c) & 63) << 9) \
-// OBSOLETE    | ((d) & 511))
-// OBSOLETE \f
-// OBSOLETE /* Codestream stuff.  */
-// OBSOLETE static void codestream_read (unsigned int *, int);
-// OBSOLETE static void codestream_seek (CORE_ADDR);
-// OBSOLETE static unsigned int codestream_fill (int);
-// OBSOLETE 
-// OBSOLETE #define CODESTREAM_BUFSIZ 16
-// OBSOLETE static CORE_ADDR codestream_next_addr;
-// OBSOLETE static CORE_ADDR codestream_addr;
-// OBSOLETE /* FIXME assumes sizeof (int) == 32? */
-// OBSOLETE static unsigned int codestream_buf[CODESTREAM_BUFSIZ];
-// OBSOLETE static int codestream_off;
-// OBSOLETE static int codestream_cnt;
-// OBSOLETE 
-// OBSOLETE #define codestream_tell() \
-// OBSOLETE   (codestream_addr + codestream_off * sizeof (codestream_buf[0]))
-// OBSOLETE #define codestream_peek() \
-// OBSOLETE   (codestream_cnt == 0 \
-// OBSOLETE    ? codestream_fill (1) \
-// OBSOLETE    : codestream_buf[codestream_off])
-// OBSOLETE #define codestream_get() \
-// OBSOLETE   (codestream_cnt-- == 0 \
-// OBSOLETE    ? codestream_fill (0) \
-// OBSOLETE    : codestream_buf[codestream_off++])
-// OBSOLETE 
-// OBSOLETE static unsigned int
-// OBSOLETE codestream_fill (int peek_flag)
-// OBSOLETE {
-// OBSOLETE   codestream_addr = codestream_next_addr;
-// OBSOLETE   codestream_next_addr += CODESTREAM_BUFSIZ * sizeof (codestream_buf[0]);
-// OBSOLETE   codestream_off = 0;
-// OBSOLETE   codestream_cnt = CODESTREAM_BUFSIZ;
-// OBSOLETE   read_memory (codestream_addr, (char *) codestream_buf,
-// OBSOLETE           CODESTREAM_BUFSIZ * sizeof (codestream_buf[0]));
-// OBSOLETE   /* FIXME: check return code?  */
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE   /* Handle byte order differences -> convert to host byte ordering.  */
-// OBSOLETE   {
-// OBSOLETE     int i;
-// OBSOLETE     for (i = 0; i < CODESTREAM_BUFSIZ; i++)
-// OBSOLETE       codestream_buf[i] =
-// OBSOLETE    extract_unsigned_integer (&codestream_buf[i],
-// OBSOLETE                              sizeof (codestream_buf[i]));
-// OBSOLETE   }
-// OBSOLETE 
-// OBSOLETE   if (peek_flag)
-// OBSOLETE     return codestream_peek ();
-// OBSOLETE   else
-// OBSOLETE     return codestream_get ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE codestream_seek (CORE_ADDR place)
-// OBSOLETE {
-// OBSOLETE   codestream_next_addr = place / CODESTREAM_BUFSIZ;
-// OBSOLETE   codestream_next_addr *= CODESTREAM_BUFSIZ;
-// OBSOLETE   codestream_cnt = 0;
-// OBSOLETE   codestream_fill (1);
-// OBSOLETE   while (codestream_tell () != place)
-// OBSOLETE     codestream_get ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* This function is currently unused but leave in for now.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE codestream_read (unsigned int *buf, int count)
-// OBSOLETE {
-// OBSOLETE   unsigned int *p;
-// OBSOLETE   int i;
-// OBSOLETE   p = buf;
-// OBSOLETE   for (i = 0; i < count; i++)
-// OBSOLETE     *p++ = codestream_get ();
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Set up prologue scanning and return the first insn.  */
-// OBSOLETE 
-// OBSOLETE static unsigned int
-// OBSOLETE setup_prologue_scan (CORE_ADDR pc)
-// OBSOLETE {
-// OBSOLETE   unsigned int insn;
-// OBSOLETE 
-// OBSOLETE   codestream_seek (pc);
-// OBSOLETE   insn = codestream_get ();
-// OBSOLETE 
-// OBSOLETE   return insn;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Find & return amount a local space allocated, and advance codestream to
-// OBSOLETE  * first register push (if any).
-// OBSOLETE  * If entry sequence doesn't make sense, return -1, and leave 
-// OBSOLETE  * codestream pointer random.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static long
-// OBSOLETE arc_get_frame_setup (CORE_ADDR pc)
-// OBSOLETE {
-// OBSOLETE   unsigned int insn;
-// OBSOLETE   /* Size of frame or -1 if unrecognizable prologue.  */
-// OBSOLETE   int frame_size = -1;
-// OBSOLETE   /* An initial "sub sp,sp,N" may or may not be for a stdarg fn.  */
-// OBSOLETE   int maybe_stdarg_decr = -1;
-// OBSOLETE 
-// OBSOLETE   insn = setup_prologue_scan (pc);
-// OBSOLETE 
-// OBSOLETE   /* The authority for what appears here is the home-grown ABI.
-// OBSOLETE      The most recent version is 1.2.  */
-// OBSOLETE 
-// OBSOLETE   /* First insn may be "sub sp,sp,N" if stdarg fn.  */
-// OBSOLETE   if ((insn & BUILD_INSN (-1, -1, -1, -1, 0))
-// OBSOLETE       == BUILD_INSN (10, SP_REGNUM, SP_REGNUM, SHIMM_REGNUM, 0))
-// OBSOLETE     {
-// OBSOLETE       maybe_stdarg_decr = X_D (insn);
-// OBSOLETE       insn = codestream_get ();
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if ((insn & BUILD_INSN (-1, 0, -1, -1, -1))      /* st blink,[sp,4] */
-// OBSOLETE       == BUILD_INSN (2, 0, SP_REGNUM, BLINK_REGNUM, 4))
-// OBSOLETE     {
-// OBSOLETE       insn = codestream_get ();
-// OBSOLETE       /* Frame may not be necessary, even though blink is saved.
-// OBSOLETE          At least this is something we recognize.  */
-// OBSOLETE       frame_size = 0;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if ((insn & BUILD_INSN (-1, 0, -1, -1, -1))      /* st fp,[sp] */
-// OBSOLETE       == BUILD_INSN (2, 0, SP_REGNUM, FP_REGNUM, 0))
-// OBSOLETE     {
-// OBSOLETE       insn = codestream_get ();
-// OBSOLETE       if ((insn & BUILD_INSN (-1, -1, -1, -1, 0))
-// OBSOLETE      != BUILD_INSN (12, FP_REGNUM, SP_REGNUM, SP_REGNUM, 0))
-// OBSOLETE    return -1;
-// OBSOLETE 
-// OBSOLETE       /* Check for stack adjustment sub sp,sp,N.  */
-// OBSOLETE       insn = codestream_peek ();
-// OBSOLETE       if ((insn & BUILD_INSN (-1, -1, -1, 0, 0))
-// OBSOLETE      == BUILD_INSN (10, SP_REGNUM, SP_REGNUM, 0, 0))
-// OBSOLETE    {
-// OBSOLETE      if (LIMM_P (X_C (insn)))
-// OBSOLETE        frame_size = codestream_get ();
-// OBSOLETE      else if (SHIMM_P (X_C (insn)))
-// OBSOLETE        frame_size = X_D (insn);
-// OBSOLETE      else
-// OBSOLETE        return -1;
-// OBSOLETE      if (frame_size < 0)
-// OBSOLETE        return -1;
-// OBSOLETE 
-// OBSOLETE      codestream_get ();
-// OBSOLETE 
-// OBSOLETE      /* This sequence is used to get the address of the return
-// OBSOLETE         buffer for a function that returns a structure.  */
-// OBSOLETE      insn = codestream_peek ();
-// OBSOLETE      if ((insn & OPMASK) == 0x60000000)
-// OBSOLETE        codestream_get ();
-// OBSOLETE    }
-// OBSOLETE       /* Frameless fn.  */
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      frame_size = 0;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* If we found a "sub sp,sp,N" and nothing else, it may or may not be a
-// OBSOLETE      stdarg fn.  The stdarg decrement is not treated as part of the frame size,
-// OBSOLETE      so we have a dilemma: what do we return?  For now, if we get a
-// OBSOLETE      "sub sp,sp,N" and nothing else assume this isn't a stdarg fn.  One way
-// OBSOLETE      to fix this completely would be to add a bit to the function descriptor
-// OBSOLETE      that says the function is a stdarg function.  */
-// OBSOLETE 
-// OBSOLETE   if (frame_size < 0 && maybe_stdarg_decr > 0)
-// OBSOLETE     return maybe_stdarg_decr;
-// OBSOLETE   return frame_size;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Given a pc value, skip it forward past the function prologue by
-// OBSOLETE    disassembling instructions that appear to be a prologue.
-// OBSOLETE 
-// OBSOLETE    If FRAMELESS_P is set, we are only testing to see if the function
-// OBSOLETE    is frameless.  If it is a frameless function, return PC unchanged.
-// OBSOLETE    This allows a quicker answer.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE arc_skip_prologue (CORE_ADDR pc, int frameless_p)
-// OBSOLETE {
-// OBSOLETE   unsigned int insn;
-// OBSOLETE   int i, frame_size;
-// OBSOLETE 
-// OBSOLETE   if ((frame_size = arc_get_frame_setup (pc)) < 0)
-// OBSOLETE     return (pc);
-// OBSOLETE 
-// OBSOLETE   if (frameless_p)
-// OBSOLETE     return frame_size == 0 ? pc : codestream_tell ();
-// OBSOLETE 
-// OBSOLETE   /* Skip over register saves.  */
-// OBSOLETE   for (i = 0; i < 8; i++)
-// OBSOLETE     {
-// OBSOLETE       insn = codestream_peek ();
-// OBSOLETE       if ((insn & BUILD_INSN (-1, 0, -1, 0, 0))
-// OBSOLETE      != BUILD_INSN (2, 0, SP_REGNUM, 0, 0))
-// OBSOLETE    break;                  /* not st insn */
-// OBSOLETE       if (!ARC_CALL_SAVED_REG (X_C (insn)))
-// OBSOLETE    break;
-// OBSOLETE       codestream_get ();
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return codestream_tell ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Is the prologue at PC frameless?  */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE arc_prologue_frameless_p (CORE_ADDR pc)
-// OBSOLETE {
-// OBSOLETE   return (pc == arc_skip_prologue (pc, 1));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return the return address for a frame.
-// OBSOLETE    This is used to implement FRAME_SAVED_PC.
-// OBSOLETE    This is taken from frameless_look_for_prologue.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE arc_frame_saved_pc (struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE   CORE_ADDR func_start;
-// OBSOLETE   unsigned int insn;
-// OBSOLETE 
-// OBSOLETE   func_start = get_pc_function_start (frame->pc) + FUNCTION_START_OFFSET;
-// OBSOLETE   if (func_start == 0)
-// OBSOLETE     {
-// OBSOLETE       /* Best guess.  */
-// OBSOLETE       return ARC_PC_TO_REAL_ADDRESS (read_memory_integer (FRAME_FP (frame) + 4, 4));
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* The authority for what appears here is the home-grown ABI.
-// OBSOLETE      The most recent version is 1.2.  */
-// OBSOLETE 
-// OBSOLETE   insn = setup_prologue_scan (func_start);
-// OBSOLETE 
-// OBSOLETE   /* First insn may be "sub sp,sp,N" if stdarg fn.  */
-// OBSOLETE   if ((insn & BUILD_INSN (-1, -1, -1, -1, 0))
-// OBSOLETE       == BUILD_INSN (10, SP_REGNUM, SP_REGNUM, SHIMM_REGNUM, 0))
-// OBSOLETE     insn = codestream_get ();
-// OBSOLETE 
-// OBSOLETE   /* If the next insn is "st blink,[sp,4]" we can get blink from there.
-// OBSOLETE      Otherwise this is a leaf function and we can use blink.  Note that
-// OBSOLETE      this still allows for the case where a leaf function saves/clobbers/
-// OBSOLETE      restores blink.  */
-// OBSOLETE 
-// OBSOLETE   if ((insn & BUILD_INSN (-1, 0, -1, -1, -1))      /* st blink,[sp,4] */
-// OBSOLETE       != BUILD_INSN (2, 0, SP_REGNUM, BLINK_REGNUM, 4))
-// OBSOLETE     return ARC_PC_TO_REAL_ADDRESS (read_register (BLINK_REGNUM));
-// OBSOLETE   else
-// OBSOLETE     return ARC_PC_TO_REAL_ADDRESS (read_memory_integer (FRAME_FP (frame) + 4, 4));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Parse the first few instructions of the function to see
-// OBSOLETE  * what registers were stored.
-// OBSOLETE  *
-// OBSOLETE  * The startup sequence can be at the start of the function.
-// OBSOLETE  * 'st blink,[sp+4], st fp,[sp], mov fp,sp' 
-// OBSOLETE  *
-// OBSOLETE  * Local space is allocated just below by sub sp,sp,nnn.
-// OBSOLETE  * Next, the registers used by this function are stored (as offsets from sp).
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE frame_find_saved_regs (struct frame_info *fip, struct frame_saved_regs *fsrp)
-// OBSOLETE {
-// OBSOLETE   long locals;
-// OBSOLETE   unsigned int insn;
-// OBSOLETE   CORE_ADDR dummy_bottom;
-// OBSOLETE   CORE_ADDR adr;
-// OBSOLETE   int i, regnum, offset;
-// OBSOLETE 
-// OBSOLETE   memset (fsrp, 0, sizeof *fsrp);
-// OBSOLETE 
-// OBSOLETE   /* If frame is the end of a dummy, compute where the beginning would be.  */
-// OBSOLETE   dummy_bottom = fip->frame - 4 - REGISTER_BYTES - CALL_DUMMY_LENGTH;
-// OBSOLETE 
-// OBSOLETE   /* Check if the PC is in the stack, in a dummy frame.  */
-// OBSOLETE   if (dummy_bottom <= fip->pc && fip->pc <= fip->frame)
-// OBSOLETE     {
-// OBSOLETE       /* all regs were saved by push_call_dummy () */
-// OBSOLETE       adr = fip->frame;
-// OBSOLETE       for (i = 0; i < NUM_REGS; i++)
-// OBSOLETE    {
-// OBSOLETE      adr -= REGISTER_RAW_SIZE (i);
-// OBSOLETE      fsrp->regs[i] = adr;
-// OBSOLETE    }
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   locals = arc_get_frame_setup (get_pc_function_start (fip->pc));
-// OBSOLETE 
-// OBSOLETE   if (locals >= 0)
-// OBSOLETE     {
-// OBSOLETE       /* Set `adr' to the value of `sp'.  */
-// OBSOLETE       adr = fip->frame - locals;
-// OBSOLETE       for (i = 0; i < 8; i++)
-// OBSOLETE    {
-// OBSOLETE      insn = codestream_get ();
-// OBSOLETE      if ((insn & BUILD_INSN (-1, 0, -1, 0, 0))
-// OBSOLETE          != BUILD_INSN (2, 0, SP_REGNUM, 0, 0))
-// OBSOLETE        break;
-// OBSOLETE      regnum = X_C (insn);
-// OBSOLETE      offset = X_D (insn);
-// OBSOLETE      fsrp->regs[regnum] = adr + offset;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   fsrp->regs[PC_REGNUM] = fip->frame + 4;
-// OBSOLETE   fsrp->regs[FP_REGNUM] = fip->frame;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE arc_push_dummy_frame (void)
-// OBSOLETE {
-// OBSOLETE   CORE_ADDR sp = read_register (SP_REGNUM);
-// OBSOLETE   int regnum;
-// OBSOLETE   char regbuf[MAX_REGISTER_RAW_SIZE];
-// OBSOLETE 
-// OBSOLETE   read_register_gen (PC_REGNUM, regbuf);
-// OBSOLETE   write_memory (sp + 4, regbuf, REGISTER_SIZE);
-// OBSOLETE   read_register_gen (FP_REGNUM, regbuf);
-// OBSOLETE   write_memory (sp, regbuf, REGISTER_SIZE);
-// OBSOLETE   write_register (FP_REGNUM, sp);
-// OBSOLETE   for (regnum = 0; regnum < NUM_REGS; regnum++)
-// OBSOLETE     {
-// OBSOLETE       read_register_gen (regnum, regbuf);
-// OBSOLETE       sp = push_bytes (sp, regbuf, REGISTER_RAW_SIZE (regnum));
-// OBSOLETE     }
-// OBSOLETE   sp += (2 * REGISTER_SIZE);
-// OBSOLETE   write_register (SP_REGNUM, sp);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE arc_pop_frame (void)
-// OBSOLETE {
-// OBSOLETE   struct frame_info *frame = get_current_frame ();
-// OBSOLETE   CORE_ADDR fp;
-// OBSOLETE   int regnum;
-// OBSOLETE   struct frame_saved_regs fsr;
-// OBSOLETE   char regbuf[MAX_REGISTER_RAW_SIZE];
-// OBSOLETE 
-// OBSOLETE   fp = FRAME_FP (frame);
-// OBSOLETE   get_frame_saved_regs (frame, &fsr);
-// OBSOLETE   for (regnum = 0; regnum < NUM_REGS; regnum++)
-// OBSOLETE     {
-// OBSOLETE       CORE_ADDR adr;
-// OBSOLETE       adr = fsr.regs[regnum];
-// OBSOLETE       if (adr)
-// OBSOLETE    {
-// OBSOLETE      read_memory (adr, regbuf, REGISTER_RAW_SIZE (regnum));
-// OBSOLETE      write_register_bytes (REGISTER_BYTE (regnum), regbuf,
-// OBSOLETE                            REGISTER_RAW_SIZE (regnum));
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   write_register (FP_REGNUM, read_memory_integer (fp, 4));
-// OBSOLETE   write_register (PC_REGNUM, read_memory_integer (fp + 4, 4));
-// OBSOLETE   write_register (SP_REGNUM, fp + 8);
-// OBSOLETE   flush_cached_frames ();
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Simulate single-step.  */
-// OBSOLETE 
-// OBSOLETE typedef enum
-// OBSOLETE {
-// OBSOLETE   NORMAL4,                 /* a normal 4 byte insn */
-// OBSOLETE   NORMAL8,                 /* a normal 8 byte insn */
-// OBSOLETE   BRANCH4,                 /* a 4 byte branch insn, including ones without delay slots */
-// OBSOLETE   BRANCH8,                 /* an 8 byte branch insn, including ones with delay slots */
-// OBSOLETE }
-// OBSOLETE insn_type;
-// OBSOLETE 
-// OBSOLETE /* Return the type of INSN and store in TARGET the destination address of a
-// OBSOLETE    branch if this is one.  */
-// OBSOLETE /* ??? Need to verify all cases are properly handled.  */
-// OBSOLETE 
-// OBSOLETE static insn_type
-// OBSOLETE get_insn_type (unsigned long insn, CORE_ADDR pc, CORE_ADDR *target)
-// OBSOLETE {
-// OBSOLETE   unsigned long limm;
-// OBSOLETE 
-// OBSOLETE   switch (insn >> 27)
-// OBSOLETE     {
-// OBSOLETE     case 0:
-// OBSOLETE     case 1:
-// OBSOLETE     case 2:                        /* load/store insns */
-// OBSOLETE       if (LIMM_P (X_A (insn))
-// OBSOLETE      || LIMM_P (X_B (insn))
-// OBSOLETE      || LIMM_P (X_C (insn)))
-// OBSOLETE    return NORMAL8;
-// OBSOLETE       return NORMAL4;
-// OBSOLETE     case 4:
-// OBSOLETE     case 5:
-// OBSOLETE     case 6:                        /* branch insns */
-// OBSOLETE       *target = pc + 4 + X_L (insn);
-// OBSOLETE       /* ??? It isn't clear that this is always the right answer.
-// OBSOLETE          The problem occurs when the next insn is an 8 byte insn.  If the
-// OBSOLETE          branch is conditional there's no worry as there shouldn't be an 8
-// OBSOLETE          byte insn following.  The programmer may be cheating if s/he knows
-// OBSOLETE          the branch will never be taken, but we don't deal with that.
-// OBSOLETE          Note that the programmer is also allowed to play games by putting
-// OBSOLETE          an insn with long immediate data in the delay slot and then duplicate
-// OBSOLETE          the long immediate data at the branch target.  Ugh!  */
-// OBSOLETE       if (X_N (insn) == 0)
-// OBSOLETE    return BRANCH4;
-// OBSOLETE       return BRANCH8;
-// OBSOLETE     case 7:                        /* jump insns */
-// OBSOLETE       if (LIMM_P (X_B (insn)))
-// OBSOLETE    {
-// OBSOLETE      limm = read_memory_integer (pc + 4, 4);
-// OBSOLETE      *target = ARC_PC_TO_REAL_ADDRESS (limm);
-// OBSOLETE      return BRANCH8;
-// OBSOLETE    }
-// OBSOLETE       if (SHIMM_P (X_B (insn)))
-// OBSOLETE    *target = ARC_PC_TO_REAL_ADDRESS (X_D (insn));
-// OBSOLETE       else
-// OBSOLETE    *target = ARC_PC_TO_REAL_ADDRESS (read_register (X_B (insn)));
-// OBSOLETE       if (X_Q (insn) == 0 && X_N (insn) == 0)
-// OBSOLETE    return BRANCH4;
-// OBSOLETE       return BRANCH8;
-// OBSOLETE     default:                       /* arithmetic insns, etc. */
-// OBSOLETE       if (LIMM_P (X_A (insn))
-// OBSOLETE      || LIMM_P (X_B (insn))
-// OBSOLETE      || LIMM_P (X_C (insn)))
-// OBSOLETE    return NORMAL8;
-// OBSOLETE       return NORMAL4;
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* single_step() is called just before we want to resume the inferior, if we
-// OBSOLETE    want to single-step it but there is no hardware or kernel single-step
-// OBSOLETE    support.  We find all the possible targets of the coming instruction and
-// OBSOLETE    breakpoint them.
-// OBSOLETE 
-// OBSOLETE    single_step is also called just after the inferior stops.  If we had
-// OBSOLETE    set up a simulated single-step, we undo our damage.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE arc_software_single_step (enum target_signal ignore,       /* sig but we don't need it */
-// OBSOLETE                      int insert_breakpoints_p)
-// OBSOLETE {
-// OBSOLETE   static CORE_ADDR next_pc, target;
-// OBSOLETE   static int brktrg_p;
-// OBSOLETE   typedef char binsn_quantum[BREAKPOINT_MAX];
-// OBSOLETE   static binsn_quantum break_mem[2];
-// OBSOLETE 
-// OBSOLETE   if (insert_breakpoints_p)
-// OBSOLETE     {
-// OBSOLETE       insn_type type;
-// OBSOLETE       CORE_ADDR pc;
-// OBSOLETE       unsigned long insn;
-// OBSOLETE 
-// OBSOLETE       pc = read_register (PC_REGNUM);
-// OBSOLETE       insn = read_memory_integer (pc, 4);
-// OBSOLETE       type = get_insn_type (insn, pc, &target);
-// OBSOLETE 
-// OBSOLETE       /* Always set a breakpoint for the insn after the branch.  */
-// OBSOLETE       next_pc = pc + ((type == NORMAL8 || type == BRANCH8) ? 8 : 4);
-// OBSOLETE       target_insert_breakpoint (next_pc, break_mem[0]);
-// OBSOLETE 
-// OBSOLETE       brktrg_p = 0;
-// OBSOLETE 
-// OBSOLETE       if ((type == BRANCH4 || type == BRANCH8)
-// OBSOLETE       /* Watch out for branches to the following location.
-// OBSOLETE          We just stored a breakpoint there and another call to
-// OBSOLETE          target_insert_breakpoint will think the real insn is the
-// OBSOLETE          breakpoint we just stored there.  */
-// OBSOLETE      && target != next_pc)
-// OBSOLETE    {
-// OBSOLETE      brktrg_p = 1;
-// OBSOLETE      target_insert_breakpoint (target, break_mem[1]);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       /* Remove breakpoints.  */
-// OBSOLETE       target_remove_breakpoint (next_pc, break_mem[0]);
-// OBSOLETE 
-// OBSOLETE       if (brktrg_p)
-// OBSOLETE    target_remove_breakpoint (target, break_mem[1]);
-// OBSOLETE 
-// OBSOLETE       /* Fix the pc.  */
-// OBSOLETE       stop_pc -= DECR_PC_AFTER_BREAK;
-// OBSOLETE       write_pc (stop_pc);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Because of Multi-arch, GET_LONGJMP_TARGET is always defined.  So test
-// OBSOLETE    for a definition of JB_PC.  */
-// OBSOLETE #ifdef JB_PC
-// OBSOLETE /* Figure out where the longjmp will land.  Slurp the args out of the stack.
-// OBSOLETE    We expect the first arg to be a pointer to the jmp_buf structure from which
-// OBSOLETE    we extract the pc (JB_PC) that we will land at.  The pc is copied into PC.
-// OBSOLETE    This routine returns true on success. */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE get_longjmp_target (CORE_ADDR *pc)
-// OBSOLETE {
-// OBSOLETE   char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT];
-// OBSOLETE   CORE_ADDR sp, jb_addr;
-// OBSOLETE 
-// OBSOLETE   sp = read_register (SP_REGNUM);
-// OBSOLETE 
-// OBSOLETE   if (target_read_memory (sp + SP_ARG0,            /* Offset of first arg on stack */
-// OBSOLETE                      buf,
-// OBSOLETE                      TARGET_PTR_BIT / TARGET_CHAR_BIT))
-// OBSOLETE     return 0;
-// OBSOLETE 
-// OBSOLETE   jb_addr = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT);
-// OBSOLETE 
-// OBSOLETE   if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf,
-// OBSOLETE                      TARGET_PTR_BIT / TARGET_CHAR_BIT))
-// OBSOLETE     return 0;
-// OBSOLETE 
-// OBSOLETE   *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT);
-// OBSOLETE 
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE #endif /* GET_LONGJMP_TARGET */
-// OBSOLETE \f
-// OBSOLETE /* Disassemble one instruction.  */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE arc_print_insn (bfd_vma vma, disassemble_info *info)
-// OBSOLETE {
-// OBSOLETE   static int current_mach;
-// OBSOLETE   static int current_endian;
-// OBSOLETE   static disassembler_ftype current_disasm;
-// OBSOLETE 
-// OBSOLETE   if (current_disasm == NULL
-// OBSOLETE       || arc_bfd_mach_type != current_mach
-// OBSOLETE       || TARGET_BYTE_ORDER != current_endian)
-// OBSOLETE     {
-// OBSOLETE       current_mach = arc_bfd_mach_type;
-// OBSOLETE       current_endian = TARGET_BYTE_ORDER;
-// OBSOLETE       current_disasm = arc_get_disassembler (NULL);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return (*current_disasm) (vma, info);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Command to set cpu type.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE arc_set_cpu_type_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   if (tmp_arc_cpu_type == NULL || *tmp_arc_cpu_type == '\0')
-// OBSOLETE     {
-// OBSOLETE       printf_unfiltered ("The known ARC cpu types are as follows:\n");
-// OBSOLETE       for (i = 0; arc_cpu_type_table[i].name != NULL; ++i)
-// OBSOLETE    printf_unfiltered ("%s\n", arc_cpu_type_table[i].name);
-// OBSOLETE 
-// OBSOLETE       /* Restore the value.  */
-// OBSOLETE       tmp_arc_cpu_type = xstrdup (arc_cpu_type);
-// OBSOLETE 
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (!arc_set_cpu_type (tmp_arc_cpu_type))
-// OBSOLETE     {
-// OBSOLETE       error ("Unknown cpu type `%s'.", tmp_arc_cpu_type);
-// OBSOLETE       /* Restore its value.  */
-// OBSOLETE       tmp_arc_cpu_type = xstrdup (arc_cpu_type);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE arc_show_cpu_type_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Modify the actual cpu type.
-// OBSOLETE    Result is a boolean indicating success.  */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE arc_set_cpu_type (char *str)
-// OBSOLETE {
-// OBSOLETE   int i, j;
-// OBSOLETE 
-// OBSOLETE   if (str == NULL)
-// OBSOLETE     return 0;
-// OBSOLETE 
-// OBSOLETE   for (i = 0; arc_cpu_type_table[i].name != NULL; ++i)
-// OBSOLETE     {
-// OBSOLETE       if (strcasecmp (str, arc_cpu_type_table[i].name) == 0)
-// OBSOLETE    {
-// OBSOLETE      arc_cpu_type = str;
-// OBSOLETE      arc_bfd_mach_type = arc_cpu_type_table[i].value;
-// OBSOLETE      return 1;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return 0;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE void
-// OBSOLETE _initialize_arc_tdep (void)
-// OBSOLETE {
-// OBSOLETE   struct cmd_list_element *c;
-// OBSOLETE 
-// OBSOLETE   c = add_set_cmd ("cpu", class_support, var_string_noescape,
-// OBSOLETE               (char *) &tmp_arc_cpu_type,
-// OBSOLETE               "Set the type of ARC cpu in use.\n\
-// OBSOLETE This command has two purposes.  In a multi-cpu system it lets one\n\
-// OBSOLETE change the cpu being debugged.  It also gives one access to\n\
-// OBSOLETE cpu-type-specific registers and recognize cpu-type-specific instructions.\
-// OBSOLETE ",
-// OBSOLETE               &setlist);
-// OBSOLETE   set_cmd_cfunc (c, arc_set_cpu_type_command);
-// OBSOLETE   c = add_show_from_set (c, &showlist);
-// OBSOLETE   set_cmd_cfunc (c, arc_show_cpu_type_command);
-// OBSOLETE 
-// OBSOLETE   /* We have to use xstrdup() here because the `set' command frees it
-// OBSOLETE      before setting a new value.  */
-// OBSOLETE   tmp_arc_cpu_type = xstrdup (DEFAULT_ARC_CPU_TYPE);
-// OBSOLETE   arc_set_cpu_type (tmp_arc_cpu_type);
-// OBSOLETE 
-// OBSOLETE   c = add_set_cmd ("displaypipeline", class_support, var_zinteger,
-// OBSOLETE               (char *) &display_pipeline_p,
-// OBSOLETE               "Set pipeline display (simulator only).\n\
-// OBSOLETE When enabled, the state of the pipeline after each cycle is displayed.",
-// OBSOLETE               &setlist);
-// OBSOLETE   c = add_show_from_set (c, &showlist);
-// OBSOLETE 
-// OBSOLETE   c = add_set_cmd ("debugpipeline", class_support, var_zinteger,
-// OBSOLETE               (char *) &debug_pipeline_p,
-// OBSOLETE               "Set pipeline debug display (simulator only).\n\
-// OBSOLETE When enabled, debugging information about the pipeline is displayed.",
-// OBSOLETE               &setlist);
-// OBSOLETE   c = add_show_from_set (c, &showlist);
-// OBSOLETE 
-// OBSOLETE   c = add_set_cmd ("cputimer", class_support, var_zinteger,
-// OBSOLETE               (char *) &cpu_timer,
-// OBSOLETE               "Set maximum cycle count (simulator only).\n\
-// OBSOLETE Control will return to gdb if the timer expires.\n\
-// OBSOLETE A negative value disables the timer.",
-// OBSOLETE               &setlist);
-// OBSOLETE   c = add_show_from_set (c, &showlist);
-// OBSOLETE 
-// OBSOLETE   tm_print_insn = arc_print_insn;
-// OBSOLETE }
diff --git a/gdb/ch-exp.c b/gdb/ch-exp.c
deleted file mode 100644 (file)
index d588ec2..0000000
+++ /dev/null
@@ -1,2233 +0,0 @@
-// OBSOLETE /* Parser for GNU CHILL (CCITT High-Level Language)  -*- C -*-
-// OBSOLETE    Copyright 1992, 1993, 1995, 1996, 1997, 1999, 2000, 2001
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* Parse a Chill expression from text in a string,
-// OBSOLETE    and return the result as a  struct expression  pointer.
-// OBSOLETE    That structure contains arithmetic operations in reverse polish,
-// OBSOLETE    with constants represented by operations that are followed by special data.
-// OBSOLETE    See expression.h for the details of the format.
-// OBSOLETE    What is important here is that it can be built up sequentially
-// OBSOLETE    during the process of parsing; the lower levels of the tree always
-// OBSOLETE    come first in the result.
-// OBSOLETE 
-// OBSOLETE    Note that the language accepted by this parser is more liberal
-// OBSOLETE    than the one accepted by an actual Chill compiler.  For example, the
-// OBSOLETE    language rule that a simple name string can not be one of the reserved
-// OBSOLETE    simple name strings is not enforced (e.g "case" is not treated as a
-// OBSOLETE    reserved name).  Another example is that Chill is a strongly typed
-// OBSOLETE    language, and certain expressions that violate the type constraints
-// OBSOLETE    may still be evaluated if gdb can do so in a meaningful manner, while
-// OBSOLETE    such expressions would be rejected by the compiler.  The reason for
-// OBSOLETE    this more liberal behavior is the philosophy that the debugger
-// OBSOLETE    is intended to be a tool that is used by the programmer when things
-// OBSOLETE    go wrong, and as such, it should provide as few artificial barriers
-// OBSOLETE    to it's use as possible.  If it can do something meaningful, even
-// OBSOLETE    something that violates language contraints that are enforced by the
-// OBSOLETE    compiler, it should do so without complaint.
-// OBSOLETE 
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE #include <ctype.h>
-// OBSOLETE #include "expression.h"
-// OBSOLETE #include "language.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "parser-defs.h"
-// OBSOLETE #include "ch-lang.h"
-// OBSOLETE #include "bfd.h"           /* Required by objfiles.h.  */
-// OBSOLETE #include "symfile.h"               /* Required by objfiles.h.  */
-// OBSOLETE #include "objfiles.h"              /* For have_full_symbols and have_partial_symbols */
-// OBSOLETE 
-// OBSOLETE #ifdef __GNUC__
-// OBSOLETE #define INLINE __inline__
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE typedef union
-// OBSOLETE 
-// OBSOLETE   {
-// OBSOLETE     LONGEST lval;
-// OBSOLETE     ULONGEST ulval;
-// OBSOLETE     struct
-// OBSOLETE       {
-// OBSOLETE    LONGEST val;
-// OBSOLETE    struct type *type;
-// OBSOLETE       }
-// OBSOLETE     typed_val;
-// OBSOLETE     double dval;
-// OBSOLETE     struct symbol *sym;
-// OBSOLETE     struct type *tval;
-// OBSOLETE     struct stoken sval;
-// OBSOLETE     struct ttype tsym;
-// OBSOLETE     struct symtoken ssym;
-// OBSOLETE   }
-// OBSOLETE YYSTYPE;
-// OBSOLETE 
-// OBSOLETE enum ch_terminal
-// OBSOLETE   {
-// OBSOLETE     END_TOKEN = 0,
-// OBSOLETE     /* '\001' ... '\xff' come first. */
-// OBSOLETE     OPEN_PAREN = '(',
-// OBSOLETE     TOKEN_NOT_READ = 999,
-// OBSOLETE     INTEGER_LITERAL,
-// OBSOLETE     BOOLEAN_LITERAL,
-// OBSOLETE     CHARACTER_LITERAL,
-// OBSOLETE     FLOAT_LITERAL,
-// OBSOLETE     GENERAL_PROCEDURE_NAME,
-// OBSOLETE     LOCATION_NAME,
-// OBSOLETE     EMPTINESS_LITERAL,
-// OBSOLETE     CHARACTER_STRING_LITERAL,
-// OBSOLETE     BIT_STRING_LITERAL,
-// OBSOLETE     TYPENAME,
-// OBSOLETE     DOT_FIELD_NAME,                /* '.' followed by <field name> */
-// OBSOLETE     CASE,
-// OBSOLETE     OF,
-// OBSOLETE     ESAC,
-// OBSOLETE     LOGIOR,
-// OBSOLETE     ORIF,
-// OBSOLETE     LOGXOR,
-// OBSOLETE     LOGAND,
-// OBSOLETE     ANDIF,
-// OBSOLETE     NOTEQUAL,
-// OBSOLETE     GEQ,
-// OBSOLETE     LEQ,
-// OBSOLETE     IN,
-// OBSOLETE     SLASH_SLASH,
-// OBSOLETE     MOD,
-// OBSOLETE     REM,
-// OBSOLETE     NOT,
-// OBSOLETE     POINTER,
-// OBSOLETE     RECEIVE,
-// OBSOLETE     UP,
-// OBSOLETE     IF,
-// OBSOLETE     THEN,
-// OBSOLETE     ELSE,
-// OBSOLETE     FI,
-// OBSOLETE     ELSIF,
-// OBSOLETE     ILLEGAL_TOKEN,
-// OBSOLETE     NUM,
-// OBSOLETE     PRED,
-// OBSOLETE     SUCC,
-// OBSOLETE     ABS,
-// OBSOLETE     CARD,
-// OBSOLETE     MAX_TOKEN,
-// OBSOLETE     MIN_TOKEN,
-// OBSOLETE     ADDR_TOKEN,
-// OBSOLETE     SIZE,
-// OBSOLETE     UPPER,
-// OBSOLETE     LOWER,
-// OBSOLETE     LENGTH,
-// OBSOLETE     ARRAY,
-// OBSOLETE     GDB_VARIABLE,
-// OBSOLETE     GDB_ASSIGNMENT
-// OBSOLETE   };
-// OBSOLETE 
-// OBSOLETE /* Forward declarations. */
-// OBSOLETE 
-// OBSOLETE static void write_lower_upper_value (enum exp_opcode, struct type *);
-// OBSOLETE static enum ch_terminal match_bitstring_literal (void);
-// OBSOLETE static enum ch_terminal match_integer_literal (void);
-// OBSOLETE static enum ch_terminal match_character_literal (void);
-// OBSOLETE static enum ch_terminal match_string_literal (void);
-// OBSOLETE static enum ch_terminal match_float_literal (void);
-// OBSOLETE static int decode_integer_literal (LONGEST *, char **);
-// OBSOLETE static int decode_integer_value (int, char **, LONGEST *);
-// OBSOLETE static char *match_simple_name_string (void);
-// OBSOLETE static void growbuf_by_size (int);
-// OBSOLETE static void parse_case_label (void);
-// OBSOLETE static void parse_untyped_expr (void);
-// OBSOLETE static void parse_if_expression (void);
-// OBSOLETE static void parse_if_expression_body (void);
-// OBSOLETE static void parse_else_alternative (void);
-// OBSOLETE static void parse_then_alternative (void);
-// OBSOLETE static void parse_expr (void);
-// OBSOLETE static void parse_operand0 (void);
-// OBSOLETE static void parse_operand1 (void);
-// OBSOLETE static void parse_operand2 (void);
-// OBSOLETE static void parse_operand3 (void);
-// OBSOLETE static void parse_operand4 (void);
-// OBSOLETE static void parse_operand5 (void);
-// OBSOLETE static void parse_operand6 (void);
-// OBSOLETE static void parse_primval (void);
-// OBSOLETE static void parse_tuple (struct type *);
-// OBSOLETE static void parse_opt_element_list (struct type *);
-// OBSOLETE static void parse_tuple_element (struct type *);
-// OBSOLETE static void parse_named_record_element (void);
-// OBSOLETE static void parse_call (void);
-// OBSOLETE static struct type *parse_mode_or_normal_call (void);
-// OBSOLETE #if 0
-// OBSOLETE static struct type *parse_mode_call (void);
-// OBSOLETE #endif
-// OBSOLETE static void parse_unary_call (void);
-// OBSOLETE static int parse_opt_untyped_expr (void);
-// OBSOLETE static int expect (enum ch_terminal, char *);
-// OBSOLETE static enum ch_terminal ch_lex (void);
-// OBSOLETE INLINE static enum ch_terminal PEEK_TOKEN (void);
-// OBSOLETE static enum ch_terminal peek_token_ (int);
-// OBSOLETE static void forward_token_ (void);
-// OBSOLETE static void require (enum ch_terminal);
-// OBSOLETE static int check_token (enum ch_terminal);
-// OBSOLETE 
-// OBSOLETE #define MAX_LOOK_AHEAD 2
-// OBSOLETE static enum ch_terminal terminal_buffer[MAX_LOOK_AHEAD + 1] =
-// OBSOLETE {
-// OBSOLETE   TOKEN_NOT_READ, TOKEN_NOT_READ, TOKEN_NOT_READ};
-// OBSOLETE static YYSTYPE yylval;
-// OBSOLETE static YYSTYPE val_buffer[MAX_LOOK_AHEAD + 1];
-// OBSOLETE 
-// OBSOLETE /*int current_token, lookahead_token; */
-// OBSOLETE 
-// OBSOLETE INLINE static enum ch_terminal
-// OBSOLETE PEEK_TOKEN (void)
-// OBSOLETE {
-// OBSOLETE   if (terminal_buffer[0] == TOKEN_NOT_READ)
-// OBSOLETE     {
-// OBSOLETE       terminal_buffer[0] = ch_lex ();
-// OBSOLETE       val_buffer[0] = yylval;
-// OBSOLETE     }
-// OBSOLETE   return terminal_buffer[0];
-// OBSOLETE }
-// OBSOLETE #define PEEK_LVAL() val_buffer[0]
-// OBSOLETE #define PEEK_TOKEN1() peek_token_(1)
-// OBSOLETE #define PEEK_TOKEN2() peek_token_(2)
-// OBSOLETE static enum ch_terminal
-// OBSOLETE peek_token_ (int i)
-// OBSOLETE {
-// OBSOLETE   if (i > MAX_LOOK_AHEAD)
-// OBSOLETE     internal_error (__FILE__, __LINE__,
-// OBSOLETE                "too much lookahead");
-// OBSOLETE   if (terminal_buffer[i] == TOKEN_NOT_READ)
-// OBSOLETE     {
-// OBSOLETE       terminal_buffer[i] = ch_lex ();
-// OBSOLETE       val_buffer[i] = yylval;
-// OBSOLETE     }
-// OBSOLETE   return terminal_buffer[i];
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE pushback_token (enum ch_terminal code, YYSTYPE node)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE   if (terminal_buffer[MAX_LOOK_AHEAD] != TOKEN_NOT_READ)
-// OBSOLETE     internal_error (__FILE__, __LINE__,
-// OBSOLETE                "cannot pushback token");
-// OBSOLETE   for (i = MAX_LOOK_AHEAD; i > 0; i--)
-// OBSOLETE     {
-// OBSOLETE       terminal_buffer[i] = terminal_buffer[i - 1];
-// OBSOLETE       val_buffer[i] = val_buffer[i - 1];
-// OBSOLETE     }
-// OBSOLETE   terminal_buffer[0] = code;
-// OBSOLETE   val_buffer[0] = node;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE forward_token_ (void)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE   for (i = 0; i < MAX_LOOK_AHEAD; i++)
-// OBSOLETE     {
-// OBSOLETE       terminal_buffer[i] = terminal_buffer[i + 1];
-// OBSOLETE       val_buffer[i] = val_buffer[i + 1];
-// OBSOLETE     }
-// OBSOLETE   terminal_buffer[MAX_LOOK_AHEAD] = TOKEN_NOT_READ;
-// OBSOLETE }
-// OBSOLETE #define FORWARD_TOKEN() forward_token_()
-// OBSOLETE 
-// OBSOLETE /* Skip the next token.
-// OBSOLETE    if it isn't TOKEN, the parser is broken. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE require (enum ch_terminal token)
-// OBSOLETE {
-// OBSOLETE   if (PEEK_TOKEN () != token)
-// OBSOLETE     {
-// OBSOLETE       internal_error (__FILE__, __LINE__,
-// OBSOLETE                  "expected token %d", (int) token);
-// OBSOLETE     }
-// OBSOLETE   FORWARD_TOKEN ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE check_token (enum ch_terminal token)
-// OBSOLETE {
-// OBSOLETE   if (PEEK_TOKEN () != token)
-// OBSOLETE     return 0;
-// OBSOLETE   FORWARD_TOKEN ();
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* return 0 if expected token was not found,
-// OBSOLETE    else return 1.
-// OBSOLETE  */
-// OBSOLETE static int
-// OBSOLETE expect (enum ch_terminal token, char *message)
-// OBSOLETE {
-// OBSOLETE   if (PEEK_TOKEN () != token)
-// OBSOLETE     {
-// OBSOLETE       if (message)
-// OBSOLETE    error (message);
-// OBSOLETE       else if (token < 256)
-// OBSOLETE    error ("syntax error - expected a '%c' here \"%s\"", token, lexptr);
-// OBSOLETE       else
-// OBSOLETE    error ("syntax error");
-// OBSOLETE       return 0;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     FORWARD_TOKEN ();
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE /* Parse a name string.  If ALLOW_ALL is 1, ALL is allowed as a postfix. */
-// OBSOLETE 
-// OBSOLETE static tree
-// OBSOLETE parse_opt_name_string (int allow_all)
-// OBSOLETE {
-// OBSOLETE   int token = PEEK_TOKEN ();
-// OBSOLETE   tree name;
-// OBSOLETE   if (token != NAME)
-// OBSOLETE     {
-// OBSOLETE       if (token == ALL && allow_all)
-// OBSOLETE    {
-// OBSOLETE      FORWARD_TOKEN ();
-// OBSOLETE      return ALL_POSTFIX;
-// OBSOLETE    }
-// OBSOLETE       return NULL_TREE;
-// OBSOLETE     }
-// OBSOLETE   name = PEEK_LVAL ();
-// OBSOLETE   for (;;)
-// OBSOLETE     {
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       token = PEEK_TOKEN ();
-// OBSOLETE       if (token != '!')
-// OBSOLETE    return name;
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       token = PEEK_TOKEN ();
-// OBSOLETE       if (token == ALL && allow_all)
-// OBSOLETE    return get_identifier3 (IDENTIFIER_POINTER (name), "!", "*");
-// OBSOLETE       if (token != NAME)
-// OBSOLETE    {
-// OBSOLETE      if (pass == 1)
-// OBSOLETE        error ("'%s!' is not followed by an identifier",
-// OBSOLETE               IDENTIFIER_POINTER (name));
-// OBSOLETE      return name;
-// OBSOLETE    }
-// OBSOLETE       name = get_identifier3 (IDENTIFIER_POINTER (name),
-// OBSOLETE                          "!", IDENTIFIER_POINTER (PEEK_LVAL ()));
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static tree
-// OBSOLETE parse_simple_name_string (void)
-// OBSOLETE {
-// OBSOLETE   int token = PEEK_TOKEN ();
-// OBSOLETE   tree name;
-// OBSOLETE   if (token != NAME)
-// OBSOLETE     {
-// OBSOLETE       error ("expected a name here");
-// OBSOLETE       return error_mark_node;
-// OBSOLETE     }
-// OBSOLETE   name = PEEK_LVAL ();
-// OBSOLETE   FORWARD_TOKEN ();
-// OBSOLETE   return name;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static tree
-// OBSOLETE parse_name_string (void)
-// OBSOLETE {
-// OBSOLETE   tree name = parse_opt_name_string (0);
-// OBSOLETE   if (name)
-// OBSOLETE     return name;
-// OBSOLETE   if (pass == 1)
-// OBSOLETE     error ("expected a name string here");
-// OBSOLETE   return error_mark_node;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Matches: <name_string>
-// OBSOLETE    Returns if pass 1: the identifier.
-// OBSOLETE    Returns if pass 2: a decl or value for identifier. */
-// OBSOLETE 
-// OBSOLETE static tree
-// OBSOLETE parse_name (void)
-// OBSOLETE {
-// OBSOLETE   tree name = parse_name_string ();
-// OBSOLETE   if (pass == 1 || ignoring)
-// OBSOLETE     return name;
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       tree decl = lookup_name (name);
-// OBSOLETE       if (decl == NULL_TREE)
-// OBSOLETE    {
-// OBSOLETE      error ("`%s' undeclared", IDENTIFIER_POINTER (name));
-// OBSOLETE      return error_mark_node;
-// OBSOLETE    }
-// OBSOLETE       else if (TREE_CODE (TREE_TYPE (decl)) == ERROR_MARK)
-// OBSOLETE    return error_mark_node;
-// OBSOLETE       else if (TREE_CODE (decl) == CONST_DECL)
-// OBSOLETE    return DECL_INITIAL (decl);
-// OBSOLETE       else if (TREE_CODE (TREE_TYPE (decl)) == REFERENCE_TYPE)
-// OBSOLETE    return convert_from_reference (decl);
-// OBSOLETE       else
-// OBSOLETE    return decl;
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE static void
-// OBSOLETE pushback_paren_expr (tree expr)
-// OBSOLETE {
-// OBSOLETE   if (pass == 1 && !ignoring)
-// OBSOLETE     expr = build1 (PAREN_EXPR, NULL_TREE, expr);
-// OBSOLETE   pushback_token (EXPR, expr);
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE /* Matches: <case label> */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_case_label (void)
-// OBSOLETE {
-// OBSOLETE   if (check_token (ELSE))
-// OBSOLETE     error ("ELSE in tuples labels not implemented");
-// OBSOLETE   /* Does not handle the case of a mode name.  FIXME */
-// OBSOLETE   parse_expr ();
-// OBSOLETE   if (check_token (':'))
-// OBSOLETE     {
-// OBSOLETE       parse_expr ();
-// OBSOLETE       write_exp_elt_opcode (BINOP_RANGE);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE parse_opt_untyped_expr (void)
-// OBSOLETE {
-// OBSOLETE   switch (PEEK_TOKEN ())
-// OBSOLETE     {
-// OBSOLETE     case ',':
-// OBSOLETE     case ':':
-// OBSOLETE     case ')':
-// OBSOLETE       return 0;
-// OBSOLETE     default:
-// OBSOLETE       parse_untyped_expr ();
-// OBSOLETE       return 1;
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_unary_call (void)
-// OBSOLETE {
-// OBSOLETE   FORWARD_TOKEN ();
-// OBSOLETE   expect ('(', NULL);
-// OBSOLETE   parse_expr ();
-// OBSOLETE   expect (')', NULL);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Parse NAME '(' MODENAME ')'. */
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE 
-// OBSOLETE static struct type *
-// OBSOLETE parse_mode_call (void)
-// OBSOLETE {
-// OBSOLETE   struct type *type;
-// OBSOLETE   FORWARD_TOKEN ();
-// OBSOLETE   expect ('(', NULL);
-// OBSOLETE   if (PEEK_TOKEN () != TYPENAME)
-// OBSOLETE     error ("expect MODENAME here `%s'", lexptr);
-// OBSOLETE   type = PEEK_LVAL ().tsym.type;
-// OBSOLETE   FORWARD_TOKEN ();
-// OBSOLETE   expect (')', NULL);
-// OBSOLETE   return type;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE static struct type *
-// OBSOLETE parse_mode_or_normal_call (void)
-// OBSOLETE {
-// OBSOLETE   struct type *type;
-// OBSOLETE   FORWARD_TOKEN ();
-// OBSOLETE   expect ('(', NULL);
-// OBSOLETE   if (PEEK_TOKEN () == TYPENAME)
-// OBSOLETE     {
-// OBSOLETE       type = PEEK_LVAL ().tsym.type;
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       parse_expr ();
-// OBSOLETE       type = NULL;
-// OBSOLETE     }
-// OBSOLETE   expect (')', NULL);
-// OBSOLETE   return type;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Parse something that looks like a function call.
-// OBSOLETE    Assume we have parsed the function, and are at the '('. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_call (void)
-// OBSOLETE {
-// OBSOLETE   int arg_count;
-// OBSOLETE   require ('(');
-// OBSOLETE   /* This is to save the value of arglist_len
-// OBSOLETE      being accumulated for each dimension. */
-// OBSOLETE   start_arglist ();
-// OBSOLETE   if (parse_opt_untyped_expr ())
-// OBSOLETE     {
-// OBSOLETE       int tok = PEEK_TOKEN ();
-// OBSOLETE       arglist_len = 1;
-// OBSOLETE       if (tok == UP || tok == ':')
-// OBSOLETE    {
-// OBSOLETE      FORWARD_TOKEN ();
-// OBSOLETE      parse_expr ();
-// OBSOLETE      expect (')', "expected ')' to terminate slice");
-// OBSOLETE      end_arglist ();
-// OBSOLETE      write_exp_elt_opcode (tok == UP ? TERNOP_SLICE_COUNT
-// OBSOLETE                            : TERNOP_SLICE);
-// OBSOLETE      return;
-// OBSOLETE    }
-// OBSOLETE       while (check_token (','))
-// OBSOLETE    {
-// OBSOLETE      parse_untyped_expr ();
-// OBSOLETE      arglist_len++;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     arglist_len = 0;
-// OBSOLETE   expect (')', NULL);
-// OBSOLETE   arg_count = end_arglist ();
-// OBSOLETE   write_exp_elt_opcode (MULTI_SUBSCRIPT);
-// OBSOLETE   write_exp_elt_longcst (arg_count);
-// OBSOLETE   write_exp_elt_opcode (MULTI_SUBSCRIPT);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_named_record_element (void)
-// OBSOLETE {
-// OBSOLETE   struct stoken label;
-// OBSOLETE   char buf[256];
-// OBSOLETE 
-// OBSOLETE   label = PEEK_LVAL ().sval;
-// OBSOLETE   sprintf (buf, "expected a field name here `%s'", lexptr);
-// OBSOLETE   expect (DOT_FIELD_NAME, buf);
-// OBSOLETE   if (check_token (','))
-// OBSOLETE     parse_named_record_element ();
-// OBSOLETE   else if (check_token (':'))
-// OBSOLETE     parse_expr ();
-// OBSOLETE   else
-// OBSOLETE     error ("syntax error near `%s' in named record tuple element", lexptr);
-// OBSOLETE   write_exp_elt_opcode (OP_LABELED);
-// OBSOLETE   write_exp_string (label);
-// OBSOLETE   write_exp_elt_opcode (OP_LABELED);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Returns one or more TREE_LIST nodes, in reverse order. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_tuple_element (struct type *type)
-// OBSOLETE {
-// OBSOLETE   if (PEEK_TOKEN () == DOT_FIELD_NAME)
-// OBSOLETE     {
-// OBSOLETE       /* Parse a labelled structure tuple. */
-// OBSOLETE       parse_named_record_element ();
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (check_token ('('))
-// OBSOLETE     {
-// OBSOLETE       if (check_token ('*'))
-// OBSOLETE    {
-// OBSOLETE      expect (')', "missing ')' after '*' case label list");
-// OBSOLETE      if (type)
-// OBSOLETE        {
-// OBSOLETE          if (TYPE_CODE (type) == TYPE_CODE_ARRAY)
-// OBSOLETE            {
-// OBSOLETE              /* do this as a range from low to high */
-// OBSOLETE              struct type *range_type = TYPE_FIELD_TYPE (type, 0);
-// OBSOLETE              LONGEST low_bound, high_bound;
-// OBSOLETE              if (get_discrete_bounds (range_type, &low_bound, &high_bound) < 0)
-// OBSOLETE                error ("cannot determine bounds for (*)");
-// OBSOLETE              /* lower bound */
-// OBSOLETE              write_exp_elt_opcode (OP_LONG);
-// OBSOLETE              write_exp_elt_type (range_type);
-// OBSOLETE              write_exp_elt_longcst (low_bound);
-// OBSOLETE              write_exp_elt_opcode (OP_LONG);
-// OBSOLETE              /* upper bound */
-// OBSOLETE              write_exp_elt_opcode (OP_LONG);
-// OBSOLETE              write_exp_elt_type (range_type);
-// OBSOLETE              write_exp_elt_longcst (high_bound);
-// OBSOLETE              write_exp_elt_opcode (OP_LONG);
-// OBSOLETE              write_exp_elt_opcode (BINOP_RANGE);
-// OBSOLETE            }
-// OBSOLETE          else
-// OBSOLETE            error ("(*) in invalid context");
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        error ("(*) only possible with modename in front of tuple (mode[..])");
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      parse_case_label ();
-// OBSOLETE      while (check_token (','))
-// OBSOLETE        {
-// OBSOLETE          parse_case_label ();
-// OBSOLETE          write_exp_elt_opcode (BINOP_COMMA);
-// OBSOLETE        }
-// OBSOLETE      expect (')', NULL);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     parse_untyped_expr ();
-// OBSOLETE   if (check_token (':'))
-// OBSOLETE     {
-// OBSOLETE       /* A powerset range or a labeled Array. */
-// OBSOLETE       parse_untyped_expr ();
-// OBSOLETE       write_exp_elt_opcode (BINOP_RANGE);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Matches:  a COMMA-separated list of tuple elements.
-// OBSOLETE    Returns a list (of TREE_LIST nodes). */
-// OBSOLETE static void
-// OBSOLETE parse_opt_element_list (struct type *type)
-// OBSOLETE {
-// OBSOLETE   arglist_len = 0;
-// OBSOLETE   if (PEEK_TOKEN () == ']')
-// OBSOLETE     return;
-// OBSOLETE   for (;;)
-// OBSOLETE     {
-// OBSOLETE       parse_tuple_element (type);
-// OBSOLETE       arglist_len++;
-// OBSOLETE       if (PEEK_TOKEN () == ']')
-// OBSOLETE    break;
-// OBSOLETE       if (!check_token (','))
-// OBSOLETE    error ("bad syntax in tuple");
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Parses: '[' elements ']'
-// OBSOLETE    If modename is non-NULL it prefixed the tuple.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_tuple (struct type *mode)
-// OBSOLETE {
-// OBSOLETE   struct type *type;
-// OBSOLETE   if (mode)
-// OBSOLETE     type = check_typedef (mode);
-// OBSOLETE   else
-// OBSOLETE     type = 0;
-// OBSOLETE   require ('[');
-// OBSOLETE   start_arglist ();
-// OBSOLETE   parse_opt_element_list (type);
-// OBSOLETE   expect (']', "missing ']' after tuple");
-// OBSOLETE   write_exp_elt_opcode (OP_ARRAY);
-// OBSOLETE   write_exp_elt_longcst ((LONGEST) 0);
-// OBSOLETE   write_exp_elt_longcst ((LONGEST) end_arglist () - 1);
-// OBSOLETE   write_exp_elt_opcode (OP_ARRAY);
-// OBSOLETE   if (type)
-// OBSOLETE     {
-// OBSOLETE       if (TYPE_CODE (type) != TYPE_CODE_ARRAY
-// OBSOLETE      && TYPE_CODE (type) != TYPE_CODE_STRUCT
-// OBSOLETE      && TYPE_CODE (type) != TYPE_CODE_SET)
-// OBSOLETE    error ("invalid tuple mode");
-// OBSOLETE       write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE       write_exp_elt_type (mode);
-// OBSOLETE       write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_primval (void)
-// OBSOLETE {
-// OBSOLETE   struct type *type;
-// OBSOLETE   enum exp_opcode op;
-// OBSOLETE   char *op_name;
-// OBSOLETE   switch (PEEK_TOKEN ())
-// OBSOLETE     {
-// OBSOLETE     case INTEGER_LITERAL:
-// OBSOLETE     case CHARACTER_LITERAL:
-// OBSOLETE       write_exp_elt_opcode (OP_LONG);
-// OBSOLETE       write_exp_elt_type (PEEK_LVAL ().typed_val.type);
-// OBSOLETE       write_exp_elt_longcst (PEEK_LVAL ().typed_val.val);
-// OBSOLETE       write_exp_elt_opcode (OP_LONG);
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE     case BOOLEAN_LITERAL:
-// OBSOLETE       write_exp_elt_opcode (OP_BOOL);
-// OBSOLETE       write_exp_elt_longcst ((LONGEST) PEEK_LVAL ().ulval);
-// OBSOLETE       write_exp_elt_opcode (OP_BOOL);
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE     case FLOAT_LITERAL:
-// OBSOLETE       write_exp_elt_opcode (OP_DOUBLE);
-// OBSOLETE       write_exp_elt_type (builtin_type_double);
-// OBSOLETE       write_exp_elt_dblcst (PEEK_LVAL ().dval);
-// OBSOLETE       write_exp_elt_opcode (OP_DOUBLE);
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE     case EMPTINESS_LITERAL:
-// OBSOLETE       write_exp_elt_opcode (OP_LONG);
-// OBSOLETE       write_exp_elt_type (lookup_pointer_type (builtin_type_void));
-// OBSOLETE       write_exp_elt_longcst (0);
-// OBSOLETE       write_exp_elt_opcode (OP_LONG);
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE     case CHARACTER_STRING_LITERAL:
-// OBSOLETE       write_exp_elt_opcode (OP_STRING);
-// OBSOLETE       write_exp_string (PEEK_LVAL ().sval);
-// OBSOLETE       write_exp_elt_opcode (OP_STRING);
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE     case BIT_STRING_LITERAL:
-// OBSOLETE       write_exp_elt_opcode (OP_BITSTRING);
-// OBSOLETE       write_exp_bitstring (PEEK_LVAL ().sval);
-// OBSOLETE       write_exp_elt_opcode (OP_BITSTRING);
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE     case ARRAY:
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       /* This is pseudo-Chill, similar to C's '(TYPE[])EXPR'
-// OBSOLETE          which casts to an artificial array. */
-// OBSOLETE       expect ('(', NULL);
-// OBSOLETE       expect (')', NULL);
-// OBSOLETE       if (PEEK_TOKEN () != TYPENAME)
-// OBSOLETE    error ("missing MODENAME after ARRAY()");
-// OBSOLETE       type = PEEK_LVAL ().tsym.type;
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       expect ('(', NULL);
-// OBSOLETE       parse_expr ();
-// OBSOLETE       expect (')', "missing right parenthesis");
-// OBSOLETE       type = create_array_type ((struct type *) NULL, type,
-// OBSOLETE                            create_range_type ((struct type *) NULL,
-// OBSOLETE                                               builtin_type_int, 0, 0));
-// OBSOLETE       TYPE_ARRAY_UPPER_BOUND_TYPE (type) = BOUND_CANNOT_BE_DETERMINED;
-// OBSOLETE       write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE       write_exp_elt_type (type);
-// OBSOLETE       write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE       break;
-// OBSOLETE #if 0
-// OBSOLETE     case CONST:
-// OBSOLETE     case EXPR:
-// OBSOLETE       val = PEEK_LVAL ();
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE #endif
-// OBSOLETE     case '(':
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       parse_expr ();
-// OBSOLETE       expect (')', "missing right parenthesis");
-// OBSOLETE       break;
-// OBSOLETE     case '[':
-// OBSOLETE       parse_tuple (NULL);
-// OBSOLETE       break;
-// OBSOLETE     case GENERAL_PROCEDURE_NAME:
-// OBSOLETE     case LOCATION_NAME:
-// OBSOLETE       write_exp_elt_opcode (OP_VAR_VALUE);
-// OBSOLETE       write_exp_elt_block (NULL);
-// OBSOLETE       write_exp_elt_sym (PEEK_LVAL ().ssym.sym);
-// OBSOLETE       write_exp_elt_opcode (OP_VAR_VALUE);
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE     case GDB_VARIABLE:             /* gdb specific */
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       break;
-// OBSOLETE     case NUM:
-// OBSOLETE       parse_unary_call ();
-// OBSOLETE       write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE       write_exp_elt_type (builtin_type_int);
-// OBSOLETE       write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE       break;
-// OBSOLETE     case CARD:
-// OBSOLETE       parse_unary_call ();
-// OBSOLETE       write_exp_elt_opcode (UNOP_CARD);
-// OBSOLETE       break;
-// OBSOLETE     case MAX_TOKEN:
-// OBSOLETE       parse_unary_call ();
-// OBSOLETE       write_exp_elt_opcode (UNOP_CHMAX);
-// OBSOLETE       break;
-// OBSOLETE     case MIN_TOKEN:
-// OBSOLETE       parse_unary_call ();
-// OBSOLETE       write_exp_elt_opcode (UNOP_CHMIN);
-// OBSOLETE       break;
-// OBSOLETE     case PRED:
-// OBSOLETE       op_name = "PRED";
-// OBSOLETE       goto unimplemented_unary_builtin;
-// OBSOLETE     case SUCC:
-// OBSOLETE       op_name = "SUCC";
-// OBSOLETE       goto unimplemented_unary_builtin;
-// OBSOLETE     case ABS:
-// OBSOLETE       op_name = "ABS";
-// OBSOLETE       goto unimplemented_unary_builtin;
-// OBSOLETE     unimplemented_unary_builtin:
-// OBSOLETE       parse_unary_call ();
-// OBSOLETE       error ("not implemented:  %s builtin function", op_name);
-// OBSOLETE       break;
-// OBSOLETE     case ADDR_TOKEN:
-// OBSOLETE       parse_unary_call ();
-// OBSOLETE       write_exp_elt_opcode (UNOP_ADDR);
-// OBSOLETE       break;
-// OBSOLETE     case SIZE:
-// OBSOLETE       type = parse_mode_or_normal_call ();
-// OBSOLETE       if (type)
-// OBSOLETE    {
-// OBSOLETE      write_exp_elt_opcode (OP_LONG);
-// OBSOLETE      write_exp_elt_type (builtin_type_int);
-// OBSOLETE      CHECK_TYPEDEF (type);
-// OBSOLETE      write_exp_elt_longcst ((LONGEST) TYPE_LENGTH (type));
-// OBSOLETE      write_exp_elt_opcode (OP_LONG);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    write_exp_elt_opcode (UNOP_SIZEOF);
-// OBSOLETE       break;
-// OBSOLETE     case LOWER:
-// OBSOLETE       op = UNOP_LOWER;
-// OBSOLETE       goto lower_upper;
-// OBSOLETE     case UPPER:
-// OBSOLETE       op = UNOP_UPPER;
-// OBSOLETE       goto lower_upper;
-// OBSOLETE     lower_upper:
-// OBSOLETE       type = parse_mode_or_normal_call ();
-// OBSOLETE       write_lower_upper_value (op, type);
-// OBSOLETE       break;
-// OBSOLETE     case LENGTH:
-// OBSOLETE       parse_unary_call ();
-// OBSOLETE       write_exp_elt_opcode (UNOP_LENGTH);
-// OBSOLETE       break;
-// OBSOLETE     case TYPENAME:
-// OBSOLETE       type = PEEK_LVAL ().tsym.type;
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       switch (PEEK_TOKEN ())
-// OBSOLETE    {
-// OBSOLETE    case '[':
-// OBSOLETE      parse_tuple (type);
-// OBSOLETE      break;
-// OBSOLETE    case '(':
-// OBSOLETE      FORWARD_TOKEN ();
-// OBSOLETE      parse_expr ();
-// OBSOLETE      expect (')', "missing right parenthesis");
-// OBSOLETE      write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE      write_exp_elt_type (type);
-// OBSOLETE      write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      error ("typename in invalid context");
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     default:
-// OBSOLETE       error ("invalid expression syntax at `%s'", lexptr);
-// OBSOLETE     }
-// OBSOLETE   for (;;)
-// OBSOLETE     {
-// OBSOLETE       switch (PEEK_TOKEN ())
-// OBSOLETE    {
-// OBSOLETE    case DOT_FIELD_NAME:
-// OBSOLETE      write_exp_elt_opcode (STRUCTOP_STRUCT);
-// OBSOLETE      write_exp_string (PEEK_LVAL ().sval);
-// OBSOLETE      write_exp_elt_opcode (STRUCTOP_STRUCT);
-// OBSOLETE      FORWARD_TOKEN ();
-// OBSOLETE      continue;
-// OBSOLETE    case POINTER:
-// OBSOLETE      FORWARD_TOKEN ();
-// OBSOLETE      if (PEEK_TOKEN () == TYPENAME)
-// OBSOLETE        {
-// OBSOLETE          type = PEEK_LVAL ().tsym.type;
-// OBSOLETE          write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE          write_exp_elt_type (lookup_pointer_type (type));
-// OBSOLETE          write_exp_elt_opcode (UNOP_CAST);
-// OBSOLETE          FORWARD_TOKEN ();
-// OBSOLETE        }
-// OBSOLETE      write_exp_elt_opcode (UNOP_IND);
-// OBSOLETE      continue;
-// OBSOLETE    case OPEN_PAREN:
-// OBSOLETE      parse_call ();
-// OBSOLETE      continue;
-// OBSOLETE    case CHARACTER_STRING_LITERAL:
-// OBSOLETE    case CHARACTER_LITERAL:
-// OBSOLETE    case BIT_STRING_LITERAL:
-// OBSOLETE      /* Handle string repetition. (See comment in parse_operand5.) */
-// OBSOLETE      parse_primval ();
-// OBSOLETE      write_exp_elt_opcode (MULTI_SUBSCRIPT);
-// OBSOLETE      write_exp_elt_longcst (1);
-// OBSOLETE      write_exp_elt_opcode (MULTI_SUBSCRIPT);
-// OBSOLETE      continue;
-// OBSOLETE    case END_TOKEN:
-// OBSOLETE    case TOKEN_NOT_READ:
-// OBSOLETE    case INTEGER_LITERAL:
-// OBSOLETE    case BOOLEAN_LITERAL:
-// OBSOLETE    case FLOAT_LITERAL:
-// OBSOLETE    case GENERAL_PROCEDURE_NAME:
-// OBSOLETE    case LOCATION_NAME:
-// OBSOLETE    case EMPTINESS_LITERAL:
-// OBSOLETE    case TYPENAME:
-// OBSOLETE    case CASE:
-// OBSOLETE    case OF:
-// OBSOLETE    case ESAC:
-// OBSOLETE    case LOGIOR:
-// OBSOLETE    case ORIF:
-// OBSOLETE    case LOGXOR:
-// OBSOLETE    case LOGAND:
-// OBSOLETE    case ANDIF:
-// OBSOLETE    case NOTEQUAL:
-// OBSOLETE    case GEQ:
-// OBSOLETE    case LEQ:
-// OBSOLETE    case IN:
-// OBSOLETE    case SLASH_SLASH:
-// OBSOLETE    case MOD:
-// OBSOLETE    case REM:
-// OBSOLETE    case NOT:
-// OBSOLETE    case RECEIVE:
-// OBSOLETE    case UP:
-// OBSOLETE    case IF:
-// OBSOLETE    case THEN:
-// OBSOLETE    case ELSE:
-// OBSOLETE    case FI:
-// OBSOLETE    case ELSIF:
-// OBSOLETE    case ILLEGAL_TOKEN:
-// OBSOLETE    case NUM:
-// OBSOLETE    case PRED:
-// OBSOLETE    case SUCC:
-// OBSOLETE    case ABS:
-// OBSOLETE    case CARD:
-// OBSOLETE    case MAX_TOKEN:
-// OBSOLETE    case MIN_TOKEN:
-// OBSOLETE    case ADDR_TOKEN:
-// OBSOLETE    case SIZE:
-// OBSOLETE    case UPPER:
-// OBSOLETE    case LOWER:
-// OBSOLETE    case LENGTH:
-// OBSOLETE    case ARRAY:
-// OBSOLETE    case GDB_VARIABLE:
-// OBSOLETE    case GDB_ASSIGNMENT:
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   return;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_operand6 (void)
-// OBSOLETE {
-// OBSOLETE   if (check_token (RECEIVE))
-// OBSOLETE     {
-// OBSOLETE       parse_primval ();
-// OBSOLETE       error ("not implemented:  RECEIVE expression");
-// OBSOLETE     }
-// OBSOLETE   else if (check_token (POINTER))
-// OBSOLETE     {
-// OBSOLETE       parse_primval ();
-// OBSOLETE       write_exp_elt_opcode (UNOP_ADDR);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     parse_primval ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_operand5 (void)
-// OBSOLETE {
-// OBSOLETE   enum exp_opcode op;
-// OBSOLETE   /* We are supposed to be looking for a <string repetition operator>,
-// OBSOLETE      but in general we can't distinguish that from a parenthesized
-// OBSOLETE      expression.  This is especially difficult if we allow the
-// OBSOLETE      string operand to be a constant expression (as requested by
-// OBSOLETE      some users), and not just a string literal.
-// OBSOLETE      Consider:  LPRN expr RPRN LPRN expr RPRN
-// OBSOLETE      Is that a function call or string repetition?
-// OBSOLETE      Instead, we handle string repetition in parse_primval,
-// OBSOLETE      and build_generalized_call. */
-// OBSOLETE   switch (PEEK_TOKEN ())
-// OBSOLETE     {
-// OBSOLETE     case NOT:
-// OBSOLETE       op = UNOP_LOGICAL_NOT;
-// OBSOLETE       break;
-// OBSOLETE     case '-':
-// OBSOLETE       op = UNOP_NEG;
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       op = OP_NULL;
-// OBSOLETE     }
-// OBSOLETE   if (op != OP_NULL)
-// OBSOLETE     FORWARD_TOKEN ();
-// OBSOLETE   parse_operand6 ();
-// OBSOLETE   if (op != OP_NULL)
-// OBSOLETE     write_exp_elt_opcode (op);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_operand4 (void)
-// OBSOLETE {
-// OBSOLETE   enum exp_opcode op;
-// OBSOLETE   parse_operand5 ();
-// OBSOLETE   for (;;)
-// OBSOLETE     {
-// OBSOLETE       switch (PEEK_TOKEN ())
-// OBSOLETE    {
-// OBSOLETE    case '*':
-// OBSOLETE      op = BINOP_MUL;
-// OBSOLETE      break;
-// OBSOLETE    case '/':
-// OBSOLETE      op = BINOP_DIV;
-// OBSOLETE      break;
-// OBSOLETE    case MOD:
-// OBSOLETE      op = BINOP_MOD;
-// OBSOLETE      break;
-// OBSOLETE    case REM:
-// OBSOLETE      op = BINOP_REM;
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      return;
-// OBSOLETE    }
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       parse_operand5 ();
-// OBSOLETE       write_exp_elt_opcode (op);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_operand3 (void)
-// OBSOLETE {
-// OBSOLETE   enum exp_opcode op;
-// OBSOLETE   parse_operand4 ();
-// OBSOLETE   for (;;)
-// OBSOLETE     {
-// OBSOLETE       switch (PEEK_TOKEN ())
-// OBSOLETE    {
-// OBSOLETE    case '+':
-// OBSOLETE      op = BINOP_ADD;
-// OBSOLETE      break;
-// OBSOLETE    case '-':
-// OBSOLETE      op = BINOP_SUB;
-// OBSOLETE      break;
-// OBSOLETE    case SLASH_SLASH:
-// OBSOLETE      op = BINOP_CONCAT;
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      return;
-// OBSOLETE    }
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       parse_operand4 ();
-// OBSOLETE       write_exp_elt_opcode (op);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_operand2 (void)
-// OBSOLETE {
-// OBSOLETE   enum exp_opcode op;
-// OBSOLETE   parse_operand3 ();
-// OBSOLETE   for (;;)
-// OBSOLETE     {
-// OBSOLETE       if (check_token (IN))
-// OBSOLETE    {
-// OBSOLETE      parse_operand3 ();
-// OBSOLETE      write_exp_elt_opcode (BINOP_IN);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      switch (PEEK_TOKEN ())
-// OBSOLETE        {
-// OBSOLETE        case '>':
-// OBSOLETE          op = BINOP_GTR;
-// OBSOLETE          break;
-// OBSOLETE        case GEQ:
-// OBSOLETE          op = BINOP_GEQ;
-// OBSOLETE          break;
-// OBSOLETE        case '<':
-// OBSOLETE          op = BINOP_LESS;
-// OBSOLETE          break;
-// OBSOLETE        case LEQ:
-// OBSOLETE          op = BINOP_LEQ;
-// OBSOLETE          break;
-// OBSOLETE        case '=':
-// OBSOLETE          op = BINOP_EQUAL;
-// OBSOLETE          break;
-// OBSOLETE        case NOTEQUAL:
-// OBSOLETE          op = BINOP_NOTEQUAL;
-// OBSOLETE          break;
-// OBSOLETE        default:
-// OBSOLETE          return;
-// OBSOLETE        }
-// OBSOLETE      FORWARD_TOKEN ();
-// OBSOLETE      parse_operand3 ();
-// OBSOLETE      write_exp_elt_opcode (op);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_operand1 (void)
-// OBSOLETE {
-// OBSOLETE   enum exp_opcode op;
-// OBSOLETE   parse_operand2 ();
-// OBSOLETE   for (;;)
-// OBSOLETE     {
-// OBSOLETE       switch (PEEK_TOKEN ())
-// OBSOLETE    {
-// OBSOLETE    case LOGAND:
-// OBSOLETE      op = BINOP_BITWISE_AND;
-// OBSOLETE      break;
-// OBSOLETE    case ANDIF:
-// OBSOLETE      op = BINOP_LOGICAL_AND;
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      return;
-// OBSOLETE    }
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       parse_operand2 ();
-// OBSOLETE       write_exp_elt_opcode (op);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_operand0 (void)
-// OBSOLETE {
-// OBSOLETE   enum exp_opcode op;
-// OBSOLETE   parse_operand1 ();
-// OBSOLETE   for (;;)
-// OBSOLETE     {
-// OBSOLETE       switch (PEEK_TOKEN ())
-// OBSOLETE    {
-// OBSOLETE    case LOGIOR:
-// OBSOLETE      op = BINOP_BITWISE_IOR;
-// OBSOLETE      break;
-// OBSOLETE    case LOGXOR:
-// OBSOLETE      op = BINOP_BITWISE_XOR;
-// OBSOLETE      break;
-// OBSOLETE    case ORIF:
-// OBSOLETE      op = BINOP_LOGICAL_OR;
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      return;
-// OBSOLETE    }
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE       parse_operand1 ();
-// OBSOLETE       write_exp_elt_opcode (op);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_expr (void)
-// OBSOLETE {
-// OBSOLETE   parse_operand0 ();
-// OBSOLETE   if (check_token (GDB_ASSIGNMENT))
-// OBSOLETE     {
-// OBSOLETE       parse_expr ();
-// OBSOLETE       write_exp_elt_opcode (BINOP_ASSIGN);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_then_alternative (void)
-// OBSOLETE {
-// OBSOLETE   expect (THEN, "missing 'THEN' in 'IF' expression");
-// OBSOLETE   parse_expr ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_else_alternative (void)
-// OBSOLETE {
-// OBSOLETE   if (check_token (ELSIF))
-// OBSOLETE     parse_if_expression_body ();
-// OBSOLETE   else if (check_token (ELSE))
-// OBSOLETE     parse_expr ();
-// OBSOLETE   else
-// OBSOLETE     error ("missing ELSE/ELSIF in IF expression");
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Matches: <boolean expression> <then alternative> <else alternative> */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_if_expression_body (void)
-// OBSOLETE {
-// OBSOLETE   parse_expr ();
-// OBSOLETE   parse_then_alternative ();
-// OBSOLETE   parse_else_alternative ();
-// OBSOLETE   write_exp_elt_opcode (TERNOP_COND);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_if_expression (void)
-// OBSOLETE {
-// OBSOLETE   require (IF);
-// OBSOLETE   parse_if_expression_body ();
-// OBSOLETE   expect (FI, "missing 'FI' at end of conditional expression");
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* An <untyped_expr> is a superset of <expr>.  It also includes
-// OBSOLETE    <conditional expressions> and untyped <tuples>, whose types
-// OBSOLETE    are not given by their constituents.  Hence, these are only
-// OBSOLETE    allowed in certain contexts that expect a certain type.
-// OBSOLETE    You should call convert() to fix up the <untyped_expr>. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE parse_untyped_expr (void)
-// OBSOLETE {
-// OBSOLETE   switch (PEEK_TOKEN ())
-// OBSOLETE     {
-// OBSOLETE     case IF:
-// OBSOLETE       parse_if_expression ();
-// OBSOLETE       return;
-// OBSOLETE     case CASE:
-// OBSOLETE       error ("not implemented:  CASE expression");
-// OBSOLETE     case '(':
-// OBSOLETE       switch (PEEK_TOKEN1 ())
-// OBSOLETE    {
-// OBSOLETE    case IF:
-// OBSOLETE    case CASE:
-// OBSOLETE      goto skip_lprn;
-// OBSOLETE    case '[':
-// OBSOLETE    skip_lprn:
-// OBSOLETE      FORWARD_TOKEN ();
-// OBSOLETE      parse_untyped_expr ();
-// OBSOLETE      expect (')', "missing ')'");
-// OBSOLETE      return;
-// OBSOLETE    default:;
-// OBSOLETE      /* fall through */
-// OBSOLETE    }
-// OBSOLETE     default:
-// OBSOLETE       parse_operand0 ();
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE chill_parse (void)
-// OBSOLETE {
-// OBSOLETE   terminal_buffer[0] = TOKEN_NOT_READ;
-// OBSOLETE   if (PEEK_TOKEN () == TYPENAME && PEEK_TOKEN1 () == END_TOKEN)
-// OBSOLETE     {
-// OBSOLETE       write_exp_elt_opcode (OP_TYPE);
-// OBSOLETE       write_exp_elt_type (PEEK_LVAL ().tsym.type);
-// OBSOLETE       write_exp_elt_opcode (OP_TYPE);
-// OBSOLETE       FORWARD_TOKEN ();
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     parse_expr ();
-// OBSOLETE   if (terminal_buffer[0] != END_TOKEN)
-// OBSOLETE     {
-// OBSOLETE       if (comma_terminates && terminal_buffer[0] == ',')
-// OBSOLETE    lexptr--;               /* Put the comma back.  */
-// OBSOLETE       else
-// OBSOLETE    error ("Junk after end of expression.");
-// OBSOLETE     }
-// OBSOLETE   return 0;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Implementation of a dynamically expandable buffer for processing input
-// OBSOLETE    characters acquired through lexptr and building a value to return in
-// OBSOLETE    yylval. */
-// OBSOLETE 
-// OBSOLETE static char *tempbuf;              /* Current buffer contents */
-// OBSOLETE static int tempbufsize;            /* Size of allocated buffer */
-// OBSOLETE static int tempbufindex;   /* Current index into buffer */
-// OBSOLETE 
-// OBSOLETE #define GROWBY_MIN_SIZE 64 /* Minimum amount to grow buffer by */
-// OBSOLETE 
-// OBSOLETE #define CHECKBUF(size) \
-// OBSOLETE   do { \
-// OBSOLETE     if (tempbufindex + (size) >= tempbufsize) \
-// OBSOLETE       { \
-// OBSOLETE    growbuf_by_size (size); \
-// OBSOLETE       } \
-// OBSOLETE   } while (0);
-// OBSOLETE 
-// OBSOLETE /* Grow the static temp buffer if necessary, including allocating the first one
-// OBSOLETE    on demand. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE growbuf_by_size (int count)
-// OBSOLETE {
-// OBSOLETE   int growby;
-// OBSOLETE 
-// OBSOLETE   growby = max (count, GROWBY_MIN_SIZE);
-// OBSOLETE   tempbufsize += growby;
-// OBSOLETE   if (tempbuf == NULL)
-// OBSOLETE     {
-// OBSOLETE       tempbuf = (char *) xmalloc (tempbufsize);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       tempbuf = (char *) xrealloc (tempbuf, tempbufsize);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Try to consume a simple name string token.  If successful, returns
-// OBSOLETE    a pointer to a nullbyte terminated copy of the name that can be used
-// OBSOLETE    in symbol table lookups.  If not successful, returns NULL. */
-// OBSOLETE 
-// OBSOLETE static char *
-// OBSOLETE match_simple_name_string (void)
-// OBSOLETE {
-// OBSOLETE   char *tokptr = lexptr;
-// OBSOLETE 
-// OBSOLETE   if (isalpha (*tokptr) || *tokptr == '_')
-// OBSOLETE     {
-// OBSOLETE       char *result;
-// OBSOLETE       do
-// OBSOLETE    {
-// OBSOLETE      tokptr++;
-// OBSOLETE    }
-// OBSOLETE       while (isalnum (*tokptr) || (*tokptr == '_'));
-// OBSOLETE       yylval.sval.ptr = lexptr;
-// OBSOLETE       yylval.sval.length = tokptr - lexptr;
-// OBSOLETE       lexptr = tokptr;
-// OBSOLETE       result = copy_name (yylval.sval);
-// OBSOLETE       return result;
-// OBSOLETE     }
-// OBSOLETE   return (NULL);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Start looking for a value composed of valid digits as set by the base
-// OBSOLETE    in use.  Note that '_' characters are valid anywhere, in any quantity,
-// OBSOLETE    and are simply ignored.  Since we must find at least one valid digit,
-// OBSOLETE    or reject this token as an integer literal, we keep track of how many
-// OBSOLETE    digits we have encountered. */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE decode_integer_value (int base, char **tokptrptr, LONGEST *ivalptr)
-// OBSOLETE {
-// OBSOLETE   char *tokptr = *tokptrptr;
-// OBSOLETE   int temp;
-// OBSOLETE   int digits = 0;
-// OBSOLETE 
-// OBSOLETE   while (*tokptr != '\0')
-// OBSOLETE     {
-// OBSOLETE       temp = *tokptr;
-// OBSOLETE       if (isupper (temp))
-// OBSOLETE    temp = tolower (temp);
-// OBSOLETE       tokptr++;
-// OBSOLETE       switch (temp)
-// OBSOLETE    {
-// OBSOLETE    case '_':
-// OBSOLETE      continue;
-// OBSOLETE    case '0':
-// OBSOLETE    case '1':
-// OBSOLETE    case '2':
-// OBSOLETE    case '3':
-// OBSOLETE    case '4':
-// OBSOLETE    case '5':
-// OBSOLETE    case '6':
-// OBSOLETE    case '7':
-// OBSOLETE    case '8':
-// OBSOLETE    case '9':
-// OBSOLETE      temp -= '0';
-// OBSOLETE      break;
-// OBSOLETE    case 'a':
-// OBSOLETE    case 'b':
-// OBSOLETE    case 'c':
-// OBSOLETE    case 'd':
-// OBSOLETE    case 'e':
-// OBSOLETE    case 'f':
-// OBSOLETE      temp -= 'a';
-// OBSOLETE      temp += 10;
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      temp = base;
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       if (temp < base)
-// OBSOLETE    {
-// OBSOLETE      digits++;
-// OBSOLETE      *ivalptr *= base;
-// OBSOLETE      *ivalptr += temp;
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      /* Found something not in domain for current base. */
-// OBSOLETE      tokptr--;             /* Unconsume what gave us indigestion. */
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* If we didn't find any digits, then we don't have a valid integer
-// OBSOLETE      value, so reject the entire token.  Otherwise, update the lexical
-// OBSOLETE      scan pointer, and return non-zero for success. */
-// OBSOLETE 
-// OBSOLETE   if (digits == 0)
-// OBSOLETE     {
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       *tokptrptr = tokptr;
-// OBSOLETE       return (1);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE decode_integer_literal (LONGEST *valptr, char **tokptrptr)
-// OBSOLETE {
-// OBSOLETE   char *tokptr = *tokptrptr;
-// OBSOLETE   int base = 0;
-// OBSOLETE   LONGEST ival = 0;
-// OBSOLETE   int explicit_base = 0;
-// OBSOLETE 
-// OBSOLETE   /* Look for an explicit base specifier, which is optional. */
-// OBSOLETE 
-// OBSOLETE   switch (*tokptr)
-// OBSOLETE     {
-// OBSOLETE     case 'd':
-// OBSOLETE     case 'D':
-// OBSOLETE       explicit_base++;
-// OBSOLETE       base = 10;
-// OBSOLETE       tokptr++;
-// OBSOLETE       break;
-// OBSOLETE     case 'b':
-// OBSOLETE     case 'B':
-// OBSOLETE       explicit_base++;
-// OBSOLETE       base = 2;
-// OBSOLETE       tokptr++;
-// OBSOLETE       break;
-// OBSOLETE     case 'h':
-// OBSOLETE     case 'H':
-// OBSOLETE       explicit_base++;
-// OBSOLETE       base = 16;
-// OBSOLETE       tokptr++;
-// OBSOLETE       break;
-// OBSOLETE     case 'o':
-// OBSOLETE     case 'O':
-// OBSOLETE       explicit_base++;
-// OBSOLETE       base = 8;
-// OBSOLETE       tokptr++;
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       base = 10;
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* If we found an explicit base ensure that the character after the
-// OBSOLETE      explicit base is a single quote. */
-// OBSOLETE 
-// OBSOLETE   if (explicit_base && (*tokptr++ != '\''))
-// OBSOLETE     {
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Attempt to decode whatever follows as an integer value in the
-// OBSOLETE      indicated base, updating the token pointer in the process and
-// OBSOLETE      computing the value into ival.  Also, if we have an explicit
-// OBSOLETE      base, then the next character must not be a single quote, or we
-// OBSOLETE      have a bitstring literal, so reject the entire token in this case.
-// OBSOLETE      Otherwise, update the lexical scan pointer, and return non-zero
-// OBSOLETE      for success. */
-// OBSOLETE 
-// OBSOLETE   if (!decode_integer_value (base, &tokptr, &ival))
-// OBSOLETE     {
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE   else if (explicit_base && (*tokptr == '\''))
-// OBSOLETE     {
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       *valptr = ival;
-// OBSOLETE       *tokptrptr = tokptr;
-// OBSOLETE       return (1);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*  If it wasn't for the fact that floating point values can contain '_'
-// OBSOLETE    characters, we could just let strtod do all the hard work by letting it
-// OBSOLETE    try to consume as much of the current token buffer as possible and
-// OBSOLETE    find a legal conversion.  Unfortunately we need to filter out the '_'
-// OBSOLETE    characters before calling strtod, which we do by copying the other
-// OBSOLETE    legal chars to a local buffer to be converted.  However since we also
-// OBSOLETE    need to keep track of where the last unconsumed character in the input
-// OBSOLETE    buffer is, we have transfer only as many characters as may compose a
-// OBSOLETE    legal floating point value. */
-// OBSOLETE 
-// OBSOLETE static enum ch_terminal
-// OBSOLETE match_float_literal (void)
-// OBSOLETE {
-// OBSOLETE   char *tokptr = lexptr;
-// OBSOLETE   char *buf;
-// OBSOLETE   char *copy;
-// OBSOLETE   double dval;
-// OBSOLETE   extern double strtod ();
-// OBSOLETE 
-// OBSOLETE   /* Make local buffer in which to build the string to convert.  This is
-// OBSOLETE      required because underscores are valid in chill floating point numbers
-// OBSOLETE      but not in the string passed to strtod to convert.  The string will be
-// OBSOLETE      no longer than our input string. */
-// OBSOLETE 
-// OBSOLETE   copy = buf = (char *) alloca (strlen (tokptr) + 1);
-// OBSOLETE 
-// OBSOLETE   /* Transfer all leading digits to the conversion buffer, discarding any
-// OBSOLETE      underscores. */
-// OBSOLETE 
-// OBSOLETE   while (isdigit (*tokptr) || *tokptr == '_')
-// OBSOLETE     {
-// OBSOLETE       if (*tokptr != '_')
-// OBSOLETE    {
-// OBSOLETE      *copy++ = *tokptr;
-// OBSOLETE    }
-// OBSOLETE       tokptr++;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Now accept either a '.', or one of [eEdD].  Dot is legal regardless
-// OBSOLETE      of whether we found any leading digits, and we simply accept it and
-// OBSOLETE      continue on to look for the fractional part and/or exponent.  One of
-// OBSOLETE      [eEdD] is legal only if we have seen digits, and means that there
-// OBSOLETE      is no fractional part.  If we find neither of these, then this is
-// OBSOLETE      not a floating point number, so return failure. */
-// OBSOLETE 
-// OBSOLETE   switch (*tokptr++)
-// OBSOLETE     {
-// OBSOLETE     case '.':
-// OBSOLETE       /* Accept and then look for fractional part and/or exponent. */
-// OBSOLETE       *copy++ = '.';
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case 'e':
-// OBSOLETE     case 'E':
-// OBSOLETE     case 'd':
-// OBSOLETE     case 'D':
-// OBSOLETE       if (copy == buf)
-// OBSOLETE    {
-// OBSOLETE      return (0);
-// OBSOLETE    }
-// OBSOLETE       *copy++ = 'e';
-// OBSOLETE       goto collect_exponent;
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     default:
-// OBSOLETE       return (0);
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* We found a '.', copy any fractional digits to the conversion buffer, up
-// OBSOLETE      to the first nondigit, non-underscore character. */
-// OBSOLETE 
-// OBSOLETE   while (isdigit (*tokptr) || *tokptr == '_')
-// OBSOLETE     {
-// OBSOLETE       if (*tokptr != '_')
-// OBSOLETE    {
-// OBSOLETE      *copy++ = *tokptr;
-// OBSOLETE    }
-// OBSOLETE       tokptr++;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Look for an exponent, which must start with one of [eEdD].  If none
-// OBSOLETE      is found, jump directly to trying to convert what we have collected
-// OBSOLETE      so far. */
-// OBSOLETE 
-// OBSOLETE   switch (*tokptr)
-// OBSOLETE     {
-// OBSOLETE     case 'e':
-// OBSOLETE     case 'E':
-// OBSOLETE     case 'd':
-// OBSOLETE     case 'D':
-// OBSOLETE       *copy++ = 'e';
-// OBSOLETE       tokptr++;
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       goto convert_float;
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Accept an optional '-' or '+' following one of [eEdD]. */
-// OBSOLETE 
-// OBSOLETE collect_exponent:
-// OBSOLETE   if (*tokptr == '+' || *tokptr == '-')
-// OBSOLETE     {
-// OBSOLETE       *copy++ = *tokptr++;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Now copy an exponent into the conversion buffer.  Note that at the 
-// OBSOLETE      moment underscores are *not* allowed in exponents. */
-// OBSOLETE 
-// OBSOLETE   while (isdigit (*tokptr))
-// OBSOLETE     {
-// OBSOLETE       *copy++ = *tokptr++;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* If we transfered any chars to the conversion buffer, try to interpret its
-// OBSOLETE      contents as a floating point value.  If any characters remain, then we
-// OBSOLETE      must not have a valid floating point string. */
-// OBSOLETE 
-// OBSOLETE convert_float:
-// OBSOLETE   *copy = '\0';
-// OBSOLETE   if (copy != buf)
-// OBSOLETE     {
-// OBSOLETE       dval = strtod (buf, &copy);
-// OBSOLETE       if (*copy == '\0')
-// OBSOLETE    {
-// OBSOLETE      yylval.dval = dval;
-// OBSOLETE      lexptr = tokptr;
-// OBSOLETE      return (FLOAT_LITERAL);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Recognize a string literal.  A string literal is a sequence
-// OBSOLETE    of characters enclosed in matching single or double quotes, except that
-// OBSOLETE    a single character inside single quotes is a character literal, which
-// OBSOLETE    we reject as a string literal.  To embed the terminator character inside
-// OBSOLETE    a string, it is simply doubled (I.E. "this""is""one""string") */
-// OBSOLETE 
-// OBSOLETE static enum ch_terminal
-// OBSOLETE match_string_literal (void)
-// OBSOLETE {
-// OBSOLETE   char *tokptr = lexptr;
-// OBSOLETE   int in_ctrlseq = 0;
-// OBSOLETE   LONGEST ival;
-// OBSOLETE 
-// OBSOLETE   for (tempbufindex = 0, tokptr++; *tokptr != '\0'; tokptr++)
-// OBSOLETE     {
-// OBSOLETE       CHECKBUF (1);
-// OBSOLETE     tryagain:;
-// OBSOLETE       if (in_ctrlseq)
-// OBSOLETE    {
-// OBSOLETE      /* skip possible whitespaces */
-// OBSOLETE      while ((*tokptr == ' ' || *tokptr == '\t') && *tokptr)
-// OBSOLETE        tokptr++;
-// OBSOLETE      if (*tokptr == ')')
-// OBSOLETE        {
-// OBSOLETE          in_ctrlseq = 0;
-// OBSOLETE          tokptr++;
-// OBSOLETE          goto tryagain;
-// OBSOLETE        }
-// OBSOLETE      else if (*tokptr != ',')
-// OBSOLETE        error ("Invalid control sequence");
-// OBSOLETE      tokptr++;
-// OBSOLETE      /* skip possible whitespaces */
-// OBSOLETE      while ((*tokptr == ' ' || *tokptr == '\t') && *tokptr)
-// OBSOLETE        tokptr++;
-// OBSOLETE      if (!decode_integer_literal (&ival, &tokptr))
-// OBSOLETE        error ("Invalid control sequence");
-// OBSOLETE      tokptr--;
-// OBSOLETE    }
-// OBSOLETE       else if (*tokptr == *lexptr)
-// OBSOLETE    {
-// OBSOLETE      if (*(tokptr + 1) == *lexptr)
-// OBSOLETE        {
-// OBSOLETE          ival = *tokptr++;
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else if (*tokptr == '^')
-// OBSOLETE    {
-// OBSOLETE      if (*(tokptr + 1) == '(')
-// OBSOLETE        {
-// OBSOLETE          in_ctrlseq = 1;
-// OBSOLETE          tokptr += 2;
-// OBSOLETE          if (!decode_integer_literal (&ival, &tokptr))
-// OBSOLETE            error ("Invalid control sequence");
-// OBSOLETE          tokptr--;
-// OBSOLETE        }
-// OBSOLETE      else if (*(tokptr + 1) == '^')
-// OBSOLETE        ival = *tokptr++;
-// OBSOLETE      else
-// OBSOLETE        error ("Invalid control sequence");
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    ival = *tokptr;
-// OBSOLETE       tempbuf[tempbufindex++] = ival;
-// OBSOLETE     }
-// OBSOLETE   if (in_ctrlseq)
-// OBSOLETE     error ("Invalid control sequence");
-// OBSOLETE 
-// OBSOLETE   if (*tokptr == '\0'              /* no terminator */
-// OBSOLETE       || (tempbufindex == 1 && *tokptr == '\''))   /* char literal */
-// OBSOLETE     {
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       tempbuf[tempbufindex] = '\0';
-// OBSOLETE       yylval.sval.ptr = tempbuf;
-// OBSOLETE       yylval.sval.length = tempbufindex;
-// OBSOLETE       lexptr = ++tokptr;
-// OBSOLETE       return (CHARACTER_STRING_LITERAL);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Recognize a character literal.  A character literal is single character
-// OBSOLETE    or a control sequence, enclosed in single quotes.  A control sequence
-// OBSOLETE    is a comma separated list of one or more integer literals, enclosed
-// OBSOLETE    in parenthesis and introduced with a circumflex character.
-// OBSOLETE 
-// OBSOLETE    EX:  'a'  '^(7)'  '^(7,8)'
-// OBSOLETE 
-// OBSOLETE    As a GNU chill extension, the syntax C'xx' is also recognized as a 
-// OBSOLETE    character literal, where xx is a hex value for the character.
-// OBSOLETE 
-// OBSOLETE    Note that more than a single character, enclosed in single quotes, is
-// OBSOLETE    a string literal.
-// OBSOLETE 
-// OBSOLETE    Returns CHARACTER_LITERAL if a match is found.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static enum ch_terminal
-// OBSOLETE match_character_literal (void)
-// OBSOLETE {
-// OBSOLETE   char *tokptr = lexptr;
-// OBSOLETE   LONGEST ival = 0;
-// OBSOLETE 
-// OBSOLETE   if ((*tokptr == 'c' || *tokptr == 'C') && (*(tokptr + 1) == '\''))
-// OBSOLETE     {
-// OBSOLETE       /* We have a GNU chill extension form, so skip the leading "C'",
-// OBSOLETE          decode the hex value, and then ensure that we have a trailing
-// OBSOLETE          single quote character. */
-// OBSOLETE       tokptr += 2;
-// OBSOLETE       if (!decode_integer_value (16, &tokptr, &ival) || (*tokptr != '\''))
-// OBSOLETE    {
-// OBSOLETE      return (0);
-// OBSOLETE    }
-// OBSOLETE       tokptr++;
-// OBSOLETE     }
-// OBSOLETE   else if (*tokptr == '\'')
-// OBSOLETE     {
-// OBSOLETE       tokptr++;
-// OBSOLETE 
-// OBSOLETE       /* Determine which form we have, either a control sequence or the
-// OBSOLETE          single character form. */
-// OBSOLETE 
-// OBSOLETE       if (*tokptr == '^')
-// OBSOLETE    {
-// OBSOLETE      if (*(tokptr + 1) == '(')
-// OBSOLETE        {
-// OBSOLETE          /* Match and decode a control sequence.  Return zero if we don't
-// OBSOLETE             find a valid integer literal, or if the next unconsumed character
-// OBSOLETE             after the integer literal is not the trailing ')'. */
-// OBSOLETE          tokptr += 2;
-// OBSOLETE          if (!decode_integer_literal (&ival, &tokptr) || (*tokptr++ != ')'))
-// OBSOLETE            {
-// OBSOLETE              return (0);
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE      else if (*(tokptr + 1) == '^')
-// OBSOLETE        {
-// OBSOLETE          ival = *tokptr;
-// OBSOLETE          tokptr += 2;
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        /* fail */
-// OBSOLETE        error ("Invalid control sequence");
-// OBSOLETE    }
-// OBSOLETE       else if (*tokptr == '\'')
-// OBSOLETE    {
-// OBSOLETE      /* this must be duplicated */
-// OBSOLETE      ival = *tokptr;
-// OBSOLETE      tokptr += 2;
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      ival = *tokptr++;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       /* The trailing quote has not yet been consumed.  If we don't find
-// OBSOLETE          it, then we have no match. */
-// OBSOLETE 
-// OBSOLETE       if (*tokptr++ != '\'')
-// OBSOLETE    {
-// OBSOLETE      return (0);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       /* Not a character literal. */
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE   yylval.typed_val.val = ival;
-// OBSOLETE   yylval.typed_val.type = builtin_type_chill_char;
-// OBSOLETE   lexptr = tokptr;
-// OBSOLETE   return (CHARACTER_LITERAL);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Recognize an integer literal, as specified in Z.200 sec 5.2.4.2.
-// OBSOLETE    Note that according to 5.2.4.2, a single "_" is also a valid integer
-// OBSOLETE    literal, however GNU-chill requires there to be at least one "digit"
-// OBSOLETE    in any integer literal. */
-// OBSOLETE 
-// OBSOLETE static enum ch_terminal
-// OBSOLETE match_integer_literal (void)
-// OBSOLETE {
-// OBSOLETE   char *tokptr = lexptr;
-// OBSOLETE   LONGEST ival;
-// OBSOLETE 
-// OBSOLETE   if (!decode_integer_literal (&ival, &tokptr))
-// OBSOLETE     {
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       yylval.typed_val.val = ival;
-// OBSOLETE #if defined(CC_HAS_LONG_LONG)
-// OBSOLETE       if (ival > (LONGEST) 2147483647U || ival < -(LONGEST) 2147483648U)
-// OBSOLETE    yylval.typed_val.type = builtin_type_long_long;
-// OBSOLETE       else
-// OBSOLETE #endif
-// OBSOLETE    yylval.typed_val.type = builtin_type_int;
-// OBSOLETE       lexptr = tokptr;
-// OBSOLETE       return (INTEGER_LITERAL);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Recognize a bit-string literal, as specified in Z.200 sec 5.2.4.8
-// OBSOLETE    Note that according to 5.2.4.8, a single "_" is also a valid bit-string
-// OBSOLETE    literal, however GNU-chill requires there to be at least one "digit"
-// OBSOLETE    in any bit-string literal. */
-// OBSOLETE 
-// OBSOLETE static enum ch_terminal
-// OBSOLETE match_bitstring_literal (void)
-// OBSOLETE {
-// OBSOLETE   register char *tokptr = lexptr;
-// OBSOLETE   int bitoffset = 0;
-// OBSOLETE   int bitcount = 0;
-// OBSOLETE   int bits_per_char;
-// OBSOLETE   int digit;
-// OBSOLETE 
-// OBSOLETE   tempbufindex = 0;
-// OBSOLETE   CHECKBUF (1);
-// OBSOLETE   tempbuf[0] = 0;
-// OBSOLETE 
-// OBSOLETE   /* Look for the required explicit base specifier. */
-// OBSOLETE 
-// OBSOLETE   switch (*tokptr++)
-// OBSOLETE     {
-// OBSOLETE     case 'b':
-// OBSOLETE     case 'B':
-// OBSOLETE       bits_per_char = 1;
-// OBSOLETE       break;
-// OBSOLETE     case 'o':
-// OBSOLETE     case 'O':
-// OBSOLETE       bits_per_char = 3;
-// OBSOLETE       break;
-// OBSOLETE     case 'h':
-// OBSOLETE     case 'H':
-// OBSOLETE       bits_per_char = 4;
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       return (0);
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Ensure that the character after the explicit base is a single quote. */
-// OBSOLETE 
-// OBSOLETE   if (*tokptr++ != '\'')
-// OBSOLETE     {
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   while (*tokptr != '\0' && *tokptr != '\'')
-// OBSOLETE     {
-// OBSOLETE       digit = *tokptr;
-// OBSOLETE       if (isupper (digit))
-// OBSOLETE    digit = tolower (digit);
-// OBSOLETE       tokptr++;
-// OBSOLETE       switch (digit)
-// OBSOLETE    {
-// OBSOLETE    case '_':
-// OBSOLETE      continue;
-// OBSOLETE    case '0':
-// OBSOLETE    case '1':
-// OBSOLETE    case '2':
-// OBSOLETE    case '3':
-// OBSOLETE    case '4':
-// OBSOLETE    case '5':
-// OBSOLETE    case '6':
-// OBSOLETE    case '7':
-// OBSOLETE    case '8':
-// OBSOLETE    case '9':
-// OBSOLETE      digit -= '0';
-// OBSOLETE      break;
-// OBSOLETE    case 'a':
-// OBSOLETE    case 'b':
-// OBSOLETE    case 'c':
-// OBSOLETE    case 'd':
-// OBSOLETE    case 'e':
-// OBSOLETE    case 'f':
-// OBSOLETE      digit -= 'a';
-// OBSOLETE      digit += 10;
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      /* this is not a bitstring literal, probably an integer */
-// OBSOLETE      return 0;
-// OBSOLETE    }
-// OBSOLETE       if (digit >= 1 << bits_per_char)
-// OBSOLETE    {
-// OBSOLETE      /* Found something not in domain for current base. */
-// OBSOLETE      error ("Too-large digit in bitstring or integer.");
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      /* Extract bits from digit, packing them into the bitstring byte. */
-// OBSOLETE      int k = TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? bits_per_char - 1 : 0;
-// OBSOLETE      for (; TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? k >= 0 : k < bits_per_char;
-// OBSOLETE           TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? k-- : k++)
-// OBSOLETE        {
-// OBSOLETE          bitcount++;
-// OBSOLETE          if (digit & (1 << k))
-// OBSOLETE            {
-// OBSOLETE              tempbuf[tempbufindex] |=
-// OBSOLETE                (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
-// OBSOLETE                ? (1 << (HOST_CHAR_BIT - 1 - bitoffset))
-// OBSOLETE                : (1 << bitoffset);
-// OBSOLETE            }
-// OBSOLETE          bitoffset++;
-// OBSOLETE          if (bitoffset == HOST_CHAR_BIT)
-// OBSOLETE            {
-// OBSOLETE              bitoffset = 0;
-// OBSOLETE              tempbufindex++;
-// OBSOLETE              CHECKBUF (1);
-// OBSOLETE              tempbuf[tempbufindex] = 0;
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Verify that we consumed everything up to the trailing single quote,
-// OBSOLETE      and that we found some bits (IE not just underbars). */
-// OBSOLETE 
-// OBSOLETE   if (*tokptr++ != '\'')
-// OBSOLETE     {
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       yylval.sval.ptr = tempbuf;
-// OBSOLETE       yylval.sval.length = bitcount;
-// OBSOLETE       lexptr = tokptr;
-// OBSOLETE       return (BIT_STRING_LITERAL);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE struct token
-// OBSOLETE {
-// OBSOLETE   char *operator;
-// OBSOLETE   int token;
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static const struct token idtokentab[] =
-// OBSOLETE {
-// OBSOLETE   {"array", ARRAY},
-// OBSOLETE   {"length", LENGTH},
-// OBSOLETE   {"lower", LOWER},
-// OBSOLETE   {"upper", UPPER},
-// OBSOLETE   {"andif", ANDIF},
-// OBSOLETE   {"pred", PRED},
-// OBSOLETE   {"succ", SUCC},
-// OBSOLETE   {"card", CARD},
-// OBSOLETE   {"size", SIZE},
-// OBSOLETE   {"orif", ORIF},
-// OBSOLETE   {"num", NUM},
-// OBSOLETE   {"abs", ABS},
-// OBSOLETE   {"max", MAX_TOKEN},
-// OBSOLETE   {"min", MIN_TOKEN},
-// OBSOLETE   {"mod", MOD},
-// OBSOLETE   {"rem", REM},
-// OBSOLETE   {"not", NOT},
-// OBSOLETE   {"xor", LOGXOR},
-// OBSOLETE   {"and", LOGAND},
-// OBSOLETE   {"in", IN},
-// OBSOLETE   {"or", LOGIOR},
-// OBSOLETE   {"up", UP},
-// OBSOLETE   {"addr", ADDR_TOKEN},
-// OBSOLETE   {"null", EMPTINESS_LITERAL}
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static const struct token tokentab2[] =
-// OBSOLETE {
-// OBSOLETE   {":=", GDB_ASSIGNMENT},
-// OBSOLETE   {"//", SLASH_SLASH},
-// OBSOLETE   {"->", POINTER},
-// OBSOLETE   {"/=", NOTEQUAL},
-// OBSOLETE   {"<=", LEQ},
-// OBSOLETE   {">=", GEQ}
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE /* Read one token, getting characters through lexptr.  */
-// OBSOLETE /* This is where we will check to make sure that the language and the
-// OBSOLETE    operators used are compatible.  */
-// OBSOLETE 
-// OBSOLETE static enum ch_terminal
-// OBSOLETE ch_lex (void)
-// OBSOLETE {
-// OBSOLETE   unsigned int i;
-// OBSOLETE   enum ch_terminal token;
-// OBSOLETE   char *inputname;
-// OBSOLETE   struct symbol *sym;
-// OBSOLETE 
-// OBSOLETE   /* Skip over any leading whitespace. */
-// OBSOLETE   while (isspace (*lexptr))
-// OBSOLETE     {
-// OBSOLETE       lexptr++;
-// OBSOLETE     }
-// OBSOLETE   /* Look for special single character cases which can't be the first
-// OBSOLETE      character of some other multicharacter token. */
-// OBSOLETE   switch (*lexptr)
-// OBSOLETE     {
-// OBSOLETE     case '\0':
-// OBSOLETE       return END_TOKEN;
-// OBSOLETE     case ',':
-// OBSOLETE     case '=':
-// OBSOLETE     case ';':
-// OBSOLETE     case '!':
-// OBSOLETE     case '+':
-// OBSOLETE     case '*':
-// OBSOLETE     case '(':
-// OBSOLETE     case ')':
-// OBSOLETE     case '[':
-// OBSOLETE     case ']':
-// OBSOLETE       return (*lexptr++);
-// OBSOLETE     }
-// OBSOLETE   /* Look for characters which start a particular kind of multicharacter
-// OBSOLETE      token, such as a character literal, register name, convenience
-// OBSOLETE      variable name, string literal, etc. */
-// OBSOLETE   switch (*lexptr)
-// OBSOLETE     {
-// OBSOLETE     case '\'':
-// OBSOLETE     case '\"':
-// OBSOLETE       /* First try to match a string literal, which is any
-// OBSOLETE          sequence of characters enclosed in matching single or double
-// OBSOLETE          quotes, except that a single character inside single quotes
-// OBSOLETE          is a character literal, so we have to catch that case also. */
-// OBSOLETE       token = match_string_literal ();
-// OBSOLETE       if (token != 0)
-// OBSOLETE    {
-// OBSOLETE      return (token);
-// OBSOLETE    }
-// OBSOLETE       if (*lexptr == '\'')
-// OBSOLETE    {
-// OBSOLETE      token = match_character_literal ();
-// OBSOLETE      if (token != 0)
-// OBSOLETE        {
-// OBSOLETE          return (token);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE     case 'C':
-// OBSOLETE     case 'c':
-// OBSOLETE       token = match_character_literal ();
-// OBSOLETE       if (token != 0)
-// OBSOLETE    {
-// OBSOLETE      return (token);
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE     case '$':
-// OBSOLETE       yylval.sval.ptr = lexptr;
-// OBSOLETE       do
-// OBSOLETE    {
-// OBSOLETE      lexptr++;
-// OBSOLETE    }
-// OBSOLETE       while (isalnum (*lexptr) || *lexptr == '_' || *lexptr == '$');
-// OBSOLETE       yylval.sval.length = lexptr - yylval.sval.ptr;
-// OBSOLETE       write_dollar_variable (yylval.sval);
-// OBSOLETE       return GDB_VARIABLE;
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   /* See if it is a special token of length 2.  */
-// OBSOLETE   for (i = 0; i < sizeof (tokentab2) / sizeof (tokentab2[0]); i++)
-// OBSOLETE     {
-// OBSOLETE       if (STREQN (lexptr, tokentab2[i].operator, 2))
-// OBSOLETE    {
-// OBSOLETE      lexptr += 2;
-// OBSOLETE      return (tokentab2[i].token);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   /* Look for single character cases which which could be the first
-// OBSOLETE      character of some other multicharacter token, but aren't, or we
-// OBSOLETE      would already have found it. */
-// OBSOLETE   switch (*lexptr)
-// OBSOLETE     {
-// OBSOLETE     case '-':
-// OBSOLETE     case ':':
-// OBSOLETE     case '/':
-// OBSOLETE     case '<':
-// OBSOLETE     case '>':
-// OBSOLETE       return (*lexptr++);
-// OBSOLETE     }
-// OBSOLETE   /* Look for a float literal before looking for an integer literal, so
-// OBSOLETE      we match as much of the input stream as possible. */
-// OBSOLETE   token = match_float_literal ();
-// OBSOLETE   if (token != 0)
-// OBSOLETE     {
-// OBSOLETE       return (token);
-// OBSOLETE     }
-// OBSOLETE   token = match_bitstring_literal ();
-// OBSOLETE   if (token != 0)
-// OBSOLETE     {
-// OBSOLETE       return (token);
-// OBSOLETE     }
-// OBSOLETE   token = match_integer_literal ();
-// OBSOLETE   if (token != 0)
-// OBSOLETE     {
-// OBSOLETE       return (token);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Try to match a simple name string, and if a match is found, then
-// OBSOLETE      further classify what sort of name it is and return an appropriate
-// OBSOLETE      token.  Note that attempting to match a simple name string consumes
-// OBSOLETE      the token from lexptr, so we can't back out if we later find that
-// OBSOLETE      we can't classify what sort of name it is. */
-// OBSOLETE 
-// OBSOLETE   inputname = match_simple_name_string ();
-// OBSOLETE 
-// OBSOLETE   if (inputname != NULL)
-// OBSOLETE     {
-// OBSOLETE       char *simplename = (char *) alloca (strlen (inputname) + 1);
-// OBSOLETE 
-// OBSOLETE       char *dptr = simplename, *sptr = inputname;
-// OBSOLETE       for (; *sptr; sptr++)
-// OBSOLETE    *dptr++ = isupper (*sptr) ? tolower (*sptr) : *sptr;
-// OBSOLETE       *dptr = '\0';
-// OBSOLETE 
-// OBSOLETE       /* See if it is a reserved identifier. */
-// OBSOLETE       for (i = 0; i < sizeof (idtokentab) / sizeof (idtokentab[0]); i++)
-// OBSOLETE    {
-// OBSOLETE      if (STREQ (simplename, idtokentab[i].operator))
-// OBSOLETE        {
-// OBSOLETE          return (idtokentab[i].token);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       /* Look for other special tokens. */
-// OBSOLETE       if (STREQ (simplename, "true"))
-// OBSOLETE    {
-// OBSOLETE      yylval.ulval = 1;
-// OBSOLETE      return (BOOLEAN_LITERAL);
-// OBSOLETE    }
-// OBSOLETE       if (STREQ (simplename, "false"))
-// OBSOLETE    {
-// OBSOLETE      yylval.ulval = 0;
-// OBSOLETE      return (BOOLEAN_LITERAL);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       sym = lookup_symbol (inputname, expression_context_block,
-// OBSOLETE                       VAR_NAMESPACE, (int *) NULL,
-// OBSOLETE                       (struct symtab **) NULL);
-// OBSOLETE       if (sym == NULL && strcmp (inputname, simplename) != 0)
-// OBSOLETE    {
-// OBSOLETE      sym = lookup_symbol (simplename, expression_context_block,
-// OBSOLETE                           VAR_NAMESPACE, (int *) NULL,
-// OBSOLETE                           (struct symtab **) NULL);
-// OBSOLETE    }
-// OBSOLETE       if (sym != NULL)
-// OBSOLETE    {
-// OBSOLETE      yylval.ssym.stoken.ptr = NULL;
-// OBSOLETE      yylval.ssym.stoken.length = 0;
-// OBSOLETE      yylval.ssym.sym = sym;
-// OBSOLETE      yylval.ssym.is_a_field_of_this = 0;   /* FIXME, C++'ism */
-// OBSOLETE      switch (SYMBOL_CLASS (sym))
-// OBSOLETE        {
-// OBSOLETE        case LOC_BLOCK:
-// OBSOLETE          /* Found a procedure name. */
-// OBSOLETE          return (GENERAL_PROCEDURE_NAME);
-// OBSOLETE        case LOC_STATIC:
-// OBSOLETE          /* Found a global or local static variable. */
-// OBSOLETE          return (LOCATION_NAME);
-// OBSOLETE        case LOC_REGISTER:
-// OBSOLETE        case LOC_ARG:
-// OBSOLETE        case LOC_REF_ARG:
-// OBSOLETE        case LOC_REGPARM:
-// OBSOLETE        case LOC_REGPARM_ADDR:
-// OBSOLETE        case LOC_LOCAL:
-// OBSOLETE        case LOC_LOCAL_ARG:
-// OBSOLETE        case LOC_BASEREG:
-// OBSOLETE        case LOC_BASEREG_ARG:
-// OBSOLETE          if (innermost_block == NULL
-// OBSOLETE              || contained_in (block_found, innermost_block))
-// OBSOLETE            {
-// OBSOLETE              innermost_block = block_found;
-// OBSOLETE            }
-// OBSOLETE          return (LOCATION_NAME);
-// OBSOLETE          break;
-// OBSOLETE        case LOC_CONST:
-// OBSOLETE        case LOC_LABEL:
-// OBSOLETE          return (LOCATION_NAME);
-// OBSOLETE          break;
-// OBSOLETE        case LOC_TYPEDEF:
-// OBSOLETE          yylval.tsym.type = SYMBOL_TYPE (sym);
-// OBSOLETE          return TYPENAME;
-// OBSOLETE        case LOC_UNDEF:
-// OBSOLETE        case LOC_CONST_BYTES:
-// OBSOLETE        case LOC_OPTIMIZED_OUT:
-// OBSOLETE          error ("Symbol \"%s\" names no location.", inputname);
-// OBSOLETE          break;
-// OBSOLETE        default:
-// OBSOLETE          internal_error (__FILE__, __LINE__,
-// OBSOLETE                          "unhandled SYMBOL_CLASS in ch_lex()");
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else if (!have_full_symbols () && !have_partial_symbols ())
-// OBSOLETE    {
-// OBSOLETE      error ("No symbol table is loaded.  Use the \"file\" command.");
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      error ("No symbol \"%s\" in current context.", inputname);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Catch single character tokens which are not part of some
-// OBSOLETE      longer token. */
-// OBSOLETE 
-// OBSOLETE   switch (*lexptr)
-// OBSOLETE     {
-// OBSOLETE     case '.':                      /* Not float for example. */
-// OBSOLETE       lexptr++;
-// OBSOLETE       while (isspace (*lexptr))
-// OBSOLETE    lexptr++;
-// OBSOLETE       inputname = match_simple_name_string ();
-// OBSOLETE       if (!inputname)
-// OBSOLETE    return '.';
-// OBSOLETE       return DOT_FIELD_NAME;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return (ILLEGAL_TOKEN);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE write_lower_upper_value (enum exp_opcode opcode,   /* Either UNOP_LOWER or UNOP_UPPER */
-// OBSOLETE                     struct type *type)
-// OBSOLETE {
-// OBSOLETE   if (type == NULL)
-// OBSOLETE     write_exp_elt_opcode (opcode);
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       struct type *result_type;
-// OBSOLETE       LONGEST val = type_lower_upper (opcode, type, &result_type);
-// OBSOLETE       write_exp_elt_opcode (OP_LONG);
-// OBSOLETE       write_exp_elt_type (result_type);
-// OBSOLETE       write_exp_elt_longcst (val);
-// OBSOLETE       write_exp_elt_opcode (OP_LONG);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE chill_error (char *msg)
-// OBSOLETE {
-// OBSOLETE   /* Never used. */
-// OBSOLETE }
diff --git a/gdb/ch-lang.c b/gdb/ch-lang.c
deleted file mode 100644 (file)
index 50b446e..0000000
+++ /dev/null
@@ -1,663 +0,0 @@
-// OBSOLETE /* Chill language support routines for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1992, 1993, 1994, 1995, 1996, 2000, 2001, 2002
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "gdbtypes.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "expression.h"
-// OBSOLETE #include "parser-defs.h"
-// OBSOLETE #include "language.h"
-// OBSOLETE #include "ch-lang.h"
-// OBSOLETE #include "valprint.h"
-// OBSOLETE 
-// OBSOLETE extern void _initialize_chill_language (void);
-// OBSOLETE 
-// OBSOLETE static struct value *evaluate_subexp_chill (struct type *, struct expression *,
-// OBSOLETE                                        int *, enum noside);
-// OBSOLETE 
-// OBSOLETE static struct value *value_chill_max_min (enum exp_opcode, struct value *);
-// OBSOLETE 
-// OBSOLETE static struct value *value_chill_card (struct value *);
-// OBSOLETE 
-// OBSOLETE static struct value *value_chill_length (struct value *);
-// OBSOLETE 
-// OBSOLETE static struct type *chill_create_fundamental_type (struct objfile *, int);
-// OBSOLETE 
-// OBSOLETE static void chill_printstr (struct ui_file * stream, char *string,
-// OBSOLETE                        unsigned int length, int width,
-// OBSOLETE                        int force_ellipses);
-// OBSOLETE 
-// OBSOLETE static void chill_printchar (int, struct ui_file *);
-// OBSOLETE 
-// OBSOLETE /* For now, Chill uses a simple mangling algorithm whereby you simply
-// OBSOLETE    discard everything after the occurance of two successive CPLUS_MARKER
-// OBSOLETE    characters to derive the demangled form. */
-// OBSOLETE 
-// OBSOLETE char *
-// OBSOLETE chill_demangle (const char *mangled)
-// OBSOLETE {
-// OBSOLETE   const char *joiner = NULL;
-// OBSOLETE   char *demangled;
-// OBSOLETE   const char *cp = mangled;
-// OBSOLETE 
-// OBSOLETE   while (*cp)
-// OBSOLETE     {
-// OBSOLETE       if (is_cplus_marker (*cp))
-// OBSOLETE    {
-// OBSOLETE      joiner = cp;
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       cp++;
-// OBSOLETE     }
-// OBSOLETE   if (joiner != NULL && *(joiner + 1) == *joiner)
-// OBSOLETE     {
-// OBSOLETE       demangled = savestring (mangled, joiner - mangled);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       demangled = NULL;
-// OBSOLETE     }
-// OBSOLETE   return (demangled);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE chill_printchar (register int c, struct ui_file *stream)
-// OBSOLETE {
-// OBSOLETE   c &= 0xFF;                       /* Avoid sign bit follies */
-// OBSOLETE 
-// OBSOLETE   if (PRINT_LITERAL_FORM (c))
-// OBSOLETE     {
-// OBSOLETE       if (c == '\'' || c == '^')
-// OBSOLETE    fprintf_filtered (stream, "'%c%c'", c, c);
-// OBSOLETE       else
-// OBSOLETE    fprintf_filtered (stream, "'%c'", c);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       fprintf_filtered (stream, "'^(%u)'", (unsigned int) c);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Print the character string STRING, printing at most LENGTH characters.
-// OBSOLETE    Printing stops early if the number hits print_max; repeat counts
-// OBSOLETE    are printed as appropriate.  Print ellipses at the end if we
-// OBSOLETE    had to stop before printing LENGTH characters, or if FORCE_ELLIPSES.
-// OBSOLETE    Note that gdb maintains the length of strings without counting the
-// OBSOLETE    terminating null byte, while chill strings are typically written with
-// OBSOLETE    an explicit null byte.  So we always assume an implied null byte
-// OBSOLETE    until gdb is able to maintain non-null terminated strings as well
-// OBSOLETE    as null terminated strings (FIXME).
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE chill_printstr (struct ui_file *stream, char *string, unsigned int length,
-// OBSOLETE            int width, int force_ellipses)
-// OBSOLETE {
-// OBSOLETE   register unsigned int i;
-// OBSOLETE   unsigned int things_printed = 0;
-// OBSOLETE   int in_literal_form = 0;
-// OBSOLETE   int in_control_form = 0;
-// OBSOLETE   int need_slashslash = 0;
-// OBSOLETE   unsigned int c;
-// OBSOLETE 
-// OBSOLETE   if (length == 0)
-// OBSOLETE     {
-// OBSOLETE       fputs_filtered ("\"\"", stream);
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   for (i = 0; i < length && things_printed < print_max; ++i)
-// OBSOLETE     {
-// OBSOLETE       /* Position of the character we are examining
-// OBSOLETE          to see whether it is repeated.  */
-// OBSOLETE       unsigned int rep1;
-// OBSOLETE       /* Number of repetitions we have detected so far.  */
-// OBSOLETE       unsigned int reps;
-// OBSOLETE 
-// OBSOLETE       QUIT;
-// OBSOLETE 
-// OBSOLETE       if (need_slashslash)
-// OBSOLETE    {
-// OBSOLETE      fputs_filtered ("//", stream);
-// OBSOLETE      need_slashslash = 0;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       rep1 = i + 1;
-// OBSOLETE       reps = 1;
-// OBSOLETE       while (rep1 < length && string[rep1] == string[i])
-// OBSOLETE    {
-// OBSOLETE      ++rep1;
-// OBSOLETE      ++reps;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       c = string[i];
-// OBSOLETE       if (reps > repeat_count_threshold)
-// OBSOLETE    {
-// OBSOLETE      if (in_control_form || in_literal_form)
-// OBSOLETE        {
-// OBSOLETE          if (in_control_form)
-// OBSOLETE            fputs_filtered (")", stream);
-// OBSOLETE          fputs_filtered ("\"//", stream);
-// OBSOLETE          in_control_form = in_literal_form = 0;
-// OBSOLETE        }
-// OBSOLETE      chill_printchar (c, stream);
-// OBSOLETE      fprintf_filtered (stream, "<repeats %u times>", reps);
-// OBSOLETE      i = rep1 - 1;
-// OBSOLETE      things_printed += repeat_count_threshold;
-// OBSOLETE      need_slashslash = 1;
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      if (!in_literal_form && !in_control_form)
-// OBSOLETE        fputs_filtered ("\"", stream);
-// OBSOLETE      if (PRINT_LITERAL_FORM (c))
-// OBSOLETE        {
-// OBSOLETE          if (!in_literal_form)
-// OBSOLETE            {
-// OBSOLETE              if (in_control_form)
-// OBSOLETE                {
-// OBSOLETE                  fputs_filtered (")", stream);
-// OBSOLETE                  in_control_form = 0;
-// OBSOLETE                }
-// OBSOLETE              in_literal_form = 1;
-// OBSOLETE            }
-// OBSOLETE          fprintf_filtered (stream, "%c", c);
-// OBSOLETE          if (c == '"' || c == '^')
-// OBSOLETE            /* duplicate this one as must be done at input */
-// OBSOLETE            fprintf_filtered (stream, "%c", c);
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          if (!in_control_form)
-// OBSOLETE            {
-// OBSOLETE              if (in_literal_form)
-// OBSOLETE                {
-// OBSOLETE                  in_literal_form = 0;
-// OBSOLETE                }
-// OBSOLETE              fputs_filtered ("^(", stream);
-// OBSOLETE              in_control_form = 1;
-// OBSOLETE            }
-// OBSOLETE          else
-// OBSOLETE            fprintf_filtered (stream, ",");
-// OBSOLETE          c = c & 0xff;
-// OBSOLETE          fprintf_filtered (stream, "%u", (unsigned int) c);
-// OBSOLETE        }
-// OBSOLETE      ++things_printed;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Terminate the quotes if necessary.  */
-// OBSOLETE   if (in_control_form)
-// OBSOLETE     {
-// OBSOLETE       fputs_filtered (")", stream);
-// OBSOLETE     }
-// OBSOLETE   if (in_literal_form || in_control_form)
-// OBSOLETE     {
-// OBSOLETE       fputs_filtered ("\"", stream);
-// OBSOLETE     }
-// OBSOLETE   if (force_ellipses || (i < length))
-// OBSOLETE     {
-// OBSOLETE       fputs_filtered ("...", stream);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct type *
-// OBSOLETE chill_create_fundamental_type (struct objfile *objfile, int typeid)
-// OBSOLETE {
-// OBSOLETE   register struct type *type = NULL;
-// OBSOLETE 
-// OBSOLETE   switch (typeid)
-// OBSOLETE     {
-// OBSOLETE     default:
-// OBSOLETE       /* FIXME:  For now, if we are asked to produce a type not in this
-// OBSOLETE          language, create the equivalent of a C integer type with the
-// OBSOLETE          name "<?type?>".  When all the dust settles from the type
-// OBSOLETE          reconstruction work, this should probably become an error. */
-// OBSOLETE       type = init_type (TYPE_CODE_INT, 2, 0, "<?type?>", objfile);
-// OBSOLETE       warning ("internal error: no chill fundamental type %d", typeid);
-// OBSOLETE       break;
-// OBSOLETE     case FT_VOID:
-// OBSOLETE       /* FIXME:  Currently the GNU Chill compiler emits some DWARF entries for
-// OBSOLETE          typedefs, unrelated to anything directly in the code being compiled,
-// OBSOLETE          that have some FT_VOID types.  Just fake it for now. */
-// OBSOLETE       type = init_type (TYPE_CODE_VOID, 0, 0, "<?VOID?>", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_BOOLEAN:
-// OBSOLETE       type = init_type (TYPE_CODE_BOOL, 1, TYPE_FLAG_UNSIGNED, "BOOL", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_CHAR:
-// OBSOLETE       type = init_type (TYPE_CODE_CHAR, 1, TYPE_FLAG_UNSIGNED, "CHAR", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_SIGNED_CHAR:
-// OBSOLETE       type = init_type (TYPE_CODE_INT, 1, 0, "BYTE", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_UNSIGNED_CHAR:
-// OBSOLETE       type = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED, "UBYTE", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_SHORT:         /* Chill ints are 2 bytes */
-// OBSOLETE       type = init_type (TYPE_CODE_INT, 2, 0, "INT", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_UNSIGNED_SHORT:        /* Chill ints are 2 bytes */
-// OBSOLETE       type = init_type (TYPE_CODE_INT, 2, TYPE_FLAG_UNSIGNED, "UINT", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_INTEGER:               /* FIXME? */
-// OBSOLETE     case FT_SIGNED_INTEGER:        /* FIXME? */
-// OBSOLETE     case FT_LONG:          /* Chill longs are 4 bytes */
-// OBSOLETE     case FT_SIGNED_LONG:   /* Chill longs are 4 bytes */
-// OBSOLETE       type = init_type (TYPE_CODE_INT, 4, 0, "LONG", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_UNSIGNED_INTEGER:      /* FIXME? */
-// OBSOLETE     case FT_UNSIGNED_LONG: /* Chill longs are 4 bytes */
-// OBSOLETE       type = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED, "ULONG", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_FLOAT:
-// OBSOLETE       type = init_type (TYPE_CODE_FLT, 4, 0, "REAL", objfile);
-// OBSOLETE       break;
-// OBSOLETE     case FT_DBL_PREC_FLOAT:
-// OBSOLETE       type = init_type (TYPE_CODE_FLT, 8, 0, "LONG_REAL", objfile);
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   return (type);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Table of operators and their precedences for printing expressions.  */
-// OBSOLETE 
-// OBSOLETE static const struct op_print chill_op_print_tab[] =
-// OBSOLETE {
-// OBSOLETE   {"AND", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0},
-// OBSOLETE   {"OR", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0},
-// OBSOLETE   {"NOT", UNOP_LOGICAL_NOT, PREC_PREFIX, 0},
-// OBSOLETE   {"MOD", BINOP_MOD, PREC_MUL, 0},
-// OBSOLETE   {"REM", BINOP_REM, PREC_MUL, 0},
-// OBSOLETE   {"SIZE", UNOP_SIZEOF, PREC_BUILTIN_FUNCTION, 0},
-// OBSOLETE   {"LOWER", UNOP_LOWER, PREC_BUILTIN_FUNCTION, 0},
-// OBSOLETE   {"UPPER", UNOP_UPPER, PREC_BUILTIN_FUNCTION, 0},
-// OBSOLETE   {"CARD", UNOP_CARD, PREC_BUILTIN_FUNCTION, 0},
-// OBSOLETE   {"MAX", UNOP_CHMAX, PREC_BUILTIN_FUNCTION, 0},
-// OBSOLETE   {"MIN", UNOP_CHMIN, PREC_BUILTIN_FUNCTION, 0},
-// OBSOLETE   {":=", BINOP_ASSIGN, PREC_ASSIGN, 1},
-// OBSOLETE   {"=", BINOP_EQUAL, PREC_EQUAL, 0},
-// OBSOLETE   {"/=", BINOP_NOTEQUAL, PREC_EQUAL, 0},
-// OBSOLETE   {"<=", BINOP_LEQ, PREC_ORDER, 0},
-// OBSOLETE   {">=", BINOP_GEQ, PREC_ORDER, 0},
-// OBSOLETE   {">", BINOP_GTR, PREC_ORDER, 0},
-// OBSOLETE   {"<", BINOP_LESS, PREC_ORDER, 0},
-// OBSOLETE   {"+", BINOP_ADD, PREC_ADD, 0},
-// OBSOLETE   {"-", BINOP_SUB, PREC_ADD, 0},
-// OBSOLETE   {"*", BINOP_MUL, PREC_MUL, 0},
-// OBSOLETE   {"/", BINOP_DIV, PREC_MUL, 0},
-// OBSOLETE   {"//", BINOP_CONCAT, PREC_PREFIX, 0},            /* FIXME: precedence? */
-// OBSOLETE   {"-", UNOP_NEG, PREC_PREFIX, 0},
-// OBSOLETE   {"->", UNOP_IND, PREC_SUFFIX, 1},
-// OBSOLETE   {"->", UNOP_ADDR, PREC_PREFIX, 0},
-// OBSOLETE   {":", BINOP_RANGE, PREC_ASSIGN, 0},
-// OBSOLETE   {NULL, 0, 0, 0}
-// OBSOLETE };
-// OBSOLETE \f
-// OBSOLETE /* The built-in types of Chill.  */
-// OBSOLETE 
-// OBSOLETE struct type *builtin_type_chill_bool;
-// OBSOLETE struct type *builtin_type_chill_char;
-// OBSOLETE struct type *builtin_type_chill_long;
-// OBSOLETE struct type *builtin_type_chill_ulong;
-// OBSOLETE struct type *builtin_type_chill_real;
-// OBSOLETE 
-// OBSOLETE struct type **const (chill_builtin_types[]) =
-// OBSOLETE {
-// OBSOLETE   &builtin_type_chill_bool,
-// OBSOLETE     &builtin_type_chill_char,
-// OBSOLETE     &builtin_type_chill_long,
-// OBSOLETE     &builtin_type_chill_ulong,
-// OBSOLETE     &builtin_type_chill_real,
-// OBSOLETE     0
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE /* Calculate LOWER or UPPER of TYPE.
-// OBSOLETE    Returns the result as an integer.
-// OBSOLETE    *RESULT_TYPE is the appropriate type for the result. */
-// OBSOLETE 
-// OBSOLETE LONGEST
-// OBSOLETE type_lower_upper (enum exp_opcode op,      /* Either UNOP_LOWER or UNOP_UPPER */
-// OBSOLETE              struct type *type, struct type **result_type)
-// OBSOLETE {
-// OBSOLETE   LONGEST low, high;
-// OBSOLETE   *result_type = type;
-// OBSOLETE   CHECK_TYPEDEF (type);
-// OBSOLETE   switch (TYPE_CODE (type))
-// OBSOLETE     {
-// OBSOLETE     case TYPE_CODE_STRUCT:
-// OBSOLETE       *result_type = builtin_type_int;
-// OBSOLETE       if (chill_varying_type (type))
-// OBSOLETE    return type_lower_upper (op, TYPE_FIELD_TYPE (type, 1), result_type);
-// OBSOLETE       break;
-// OBSOLETE     case TYPE_CODE_ARRAY:
-// OBSOLETE     case TYPE_CODE_BITSTRING:
-// OBSOLETE     case TYPE_CODE_STRING:
-// OBSOLETE       type = TYPE_FIELD_TYPE (type, 0);            /* Get index type */
-// OBSOLETE 
-// OBSOLETE       /* ... fall through ... */
-// OBSOLETE     case TYPE_CODE_RANGE:
-// OBSOLETE       *result_type = TYPE_TARGET_TYPE (type);
-// OBSOLETE       return op == UNOP_LOWER ? TYPE_LOW_BOUND (type) : TYPE_HIGH_BOUND (type);
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_ENUM:
-// OBSOLETE     case TYPE_CODE_BOOL:
-// OBSOLETE     case TYPE_CODE_INT:
-// OBSOLETE     case TYPE_CODE_CHAR:
-// OBSOLETE       if (get_discrete_bounds (type, &low, &high) >= 0)
-// OBSOLETE    {
-// OBSOLETE      *result_type = type;
-// OBSOLETE      return op == UNOP_LOWER ? low : high;
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE     case TYPE_CODE_UNDEF:
-// OBSOLETE     case TYPE_CODE_PTR:
-// OBSOLETE     case TYPE_CODE_UNION:
-// OBSOLETE     case TYPE_CODE_FUNC:
-// OBSOLETE     case TYPE_CODE_FLT:
-// OBSOLETE     case TYPE_CODE_VOID:
-// OBSOLETE     case TYPE_CODE_SET:
-// OBSOLETE     case TYPE_CODE_ERROR:
-// OBSOLETE     case TYPE_CODE_MEMBER:
-// OBSOLETE     case TYPE_CODE_METHOD:
-// OBSOLETE     case TYPE_CODE_REF:
-// OBSOLETE     case TYPE_CODE_COMPLEX:
-// OBSOLETE     default:
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   error ("unknown mode for LOWER/UPPER builtin");
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct value *
-// OBSOLETE value_chill_length (struct value *val)
-// OBSOLETE {
-// OBSOLETE   LONGEST tmp;
-// OBSOLETE   struct type *type = VALUE_TYPE (val);
-// OBSOLETE   struct type *ttype;
-// OBSOLETE   CHECK_TYPEDEF (type);
-// OBSOLETE   switch (TYPE_CODE (type))
-// OBSOLETE     {
-// OBSOLETE     case TYPE_CODE_ARRAY:
-// OBSOLETE     case TYPE_CODE_BITSTRING:
-// OBSOLETE     case TYPE_CODE_STRING:
-// OBSOLETE       tmp = type_lower_upper (UNOP_UPPER, type, &ttype)
-// OBSOLETE    - type_lower_upper (UNOP_LOWER, type, &ttype) + 1;
-// OBSOLETE       break;
-// OBSOLETE     case TYPE_CODE_STRUCT:
-// OBSOLETE       if (chill_varying_type (type))
-// OBSOLETE    {
-// OBSOLETE      tmp = unpack_long (TYPE_FIELD_TYPE (type, 0), VALUE_CONTENTS (val));
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       /* ... else fall through ... */
-// OBSOLETE     default:
-// OBSOLETE       error ("bad argument to LENGTH builtin");
-// OBSOLETE     }
-// OBSOLETE   return value_from_longest (builtin_type_int, tmp);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct value *
-// OBSOLETE value_chill_card (struct value *val)
-// OBSOLETE {
-// OBSOLETE   LONGEST tmp = 0;
-// OBSOLETE   struct type *type = VALUE_TYPE (val);
-// OBSOLETE   CHECK_TYPEDEF (type);
-// OBSOLETE 
-// OBSOLETE   if (TYPE_CODE (type) == TYPE_CODE_SET)
-// OBSOLETE     {
-// OBSOLETE       struct type *range_type = TYPE_INDEX_TYPE (type);
-// OBSOLETE       LONGEST lower_bound, upper_bound;
-// OBSOLETE       int i;
-// OBSOLETE 
-// OBSOLETE       get_discrete_bounds (range_type, &lower_bound, &upper_bound);
-// OBSOLETE       for (i = lower_bound; i <= upper_bound; i++)
-// OBSOLETE    if (value_bit_index (type, VALUE_CONTENTS (val), i) > 0)
-// OBSOLETE      tmp++;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     error ("bad argument to CARD builtin");
-// OBSOLETE 
-// OBSOLETE   return value_from_longest (builtin_type_int, tmp);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct value *
-// OBSOLETE value_chill_max_min (enum exp_opcode op, struct value *val)
-// OBSOLETE {
-// OBSOLETE   LONGEST tmp = 0;
-// OBSOLETE   struct type *type = VALUE_TYPE (val);
-// OBSOLETE   struct type *elttype;
-// OBSOLETE   CHECK_TYPEDEF (type);
-// OBSOLETE 
-// OBSOLETE   if (TYPE_CODE (type) == TYPE_CODE_SET)
-// OBSOLETE     {
-// OBSOLETE       LONGEST lower_bound, upper_bound;
-// OBSOLETE       int i, empty = 1;
-// OBSOLETE 
-// OBSOLETE       elttype = TYPE_INDEX_TYPE (type);
-// OBSOLETE       CHECK_TYPEDEF (elttype);
-// OBSOLETE       get_discrete_bounds (elttype, &lower_bound, &upper_bound);
-// OBSOLETE 
-// OBSOLETE       if (op == UNOP_CHMAX)
-// OBSOLETE    {
-// OBSOLETE      for (i = upper_bound; i >= lower_bound; i--)
-// OBSOLETE        {
-// OBSOLETE          if (value_bit_index (type, VALUE_CONTENTS (val), i) > 0)
-// OBSOLETE            {
-// OBSOLETE              tmp = i;
-// OBSOLETE              empty = 0;
-// OBSOLETE              break;
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      for (i = lower_bound; i <= upper_bound; i++)
-// OBSOLETE        {
-// OBSOLETE          if (value_bit_index (type, VALUE_CONTENTS (val), i) > 0)
-// OBSOLETE            {
-// OBSOLETE              tmp = i;
-// OBSOLETE              empty = 0;
-// OBSOLETE              break;
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       if (empty)
-// OBSOLETE    error ("%s for empty powerset", op == UNOP_CHMAX ? "MAX" : "MIN");
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     error ("bad argument to %s builtin", op == UNOP_CHMAX ? "MAX" : "MIN");
-// OBSOLETE 
-// OBSOLETE   return value_from_longest (TYPE_CODE (elttype) == TYPE_CODE_RANGE
-// OBSOLETE                         ? TYPE_TARGET_TYPE (elttype)
-// OBSOLETE                         : elttype,
-// OBSOLETE                         tmp);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct value *
-// OBSOLETE evaluate_subexp_chill (struct type *expect_type,
-// OBSOLETE                   register struct expression *exp, register int *pos,
-// OBSOLETE                   enum noside noside)
-// OBSOLETE {
-// OBSOLETE   int pc = *pos;
-// OBSOLETE   struct type *type;
-// OBSOLETE   int tem, nargs;
-// OBSOLETE   struct value *arg1;
-// OBSOLETE   struct value **argvec;
-// OBSOLETE   enum exp_opcode op = exp->elts[*pos].opcode;
-// OBSOLETE   switch (op)
-// OBSOLETE     {
-// OBSOLETE     case MULTI_SUBSCRIPT:
-// OBSOLETE       if (noside == EVAL_SKIP)
-// OBSOLETE    break;
-// OBSOLETE       (*pos) += 3;
-// OBSOLETE       nargs = longest_to_int (exp->elts[pc + 1].longconst);
-// OBSOLETE       arg1 = evaluate_subexp_with_coercion (exp, pos, noside);
-// OBSOLETE       type = check_typedef (VALUE_TYPE (arg1));
-// OBSOLETE 
-// OBSOLETE       if (nargs == 1 && TYPE_CODE (type) == TYPE_CODE_INT)
-// OBSOLETE    {
-// OBSOLETE      /* Looks like string repetition. */
-// OBSOLETE      struct value *string = evaluate_subexp_with_coercion (exp, pos,
-// OBSOLETE                                                            noside);
-// OBSOLETE      return value_concat (arg1, string);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       switch (TYPE_CODE (type))
-// OBSOLETE    {
-// OBSOLETE    case TYPE_CODE_PTR:
-// OBSOLETE      type = check_typedef (TYPE_TARGET_TYPE (type));
-// OBSOLETE      if (!type || TYPE_CODE (type) != TYPE_CODE_FUNC)
-// OBSOLETE        error ("reference value used as function");
-// OBSOLETE      /* ... fall through ... */
-// OBSOLETE    case TYPE_CODE_FUNC:
-// OBSOLETE      /* It's a function call. */
-// OBSOLETE      if (noside == EVAL_AVOID_SIDE_EFFECTS)
-// OBSOLETE        break;
-// OBSOLETE 
-// OBSOLETE      /* Allocate arg vector, including space for the function to be
-// OBSOLETE         called in argvec[0] and a terminating NULL */
-// OBSOLETE      argvec = (struct value **) alloca (sizeof (struct value *)
-// OBSOLETE                                         * (nargs + 2));
-// OBSOLETE      argvec[0] = arg1;
-// OBSOLETE      tem = 1;
-// OBSOLETE      for (; tem <= nargs && tem <= TYPE_NFIELDS (type); tem++)
-// OBSOLETE        {
-// OBSOLETE          argvec[tem]
-// OBSOLETE            = evaluate_subexp_chill (TYPE_FIELD_TYPE (type, tem - 1),
-// OBSOLETE                                     exp, pos, noside);
-// OBSOLETE        }
-// OBSOLETE      for (; tem <= nargs; tem++)
-// OBSOLETE        argvec[tem] = evaluate_subexp_with_coercion (exp, pos, noside);
-// OBSOLETE      argvec[tem] = 0;      /* signal end of arglist */
-// OBSOLETE 
-// OBSOLETE      return call_function_by_hand (argvec[0], nargs, argvec + 1);
-// OBSOLETE    default:
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       while (nargs-- > 0)
-// OBSOLETE    {
-// OBSOLETE      struct value *index = evaluate_subexp_with_coercion (exp, pos,
-// OBSOLETE                                                           noside);
-// OBSOLETE      arg1 = value_subscript (arg1, index);
-// OBSOLETE    }
-// OBSOLETE       return (arg1);
-// OBSOLETE 
-// OBSOLETE     case UNOP_LOWER:
-// OBSOLETE     case UNOP_UPPER:
-// OBSOLETE       (*pos)++;
-// OBSOLETE       if (noside == EVAL_SKIP)
-// OBSOLETE    {
-// OBSOLETE      (*exp->language_defn->evaluate_exp) (NULL_TYPE, exp, pos, EVAL_SKIP);
-// OBSOLETE      goto nosideret;
-// OBSOLETE    }
-// OBSOLETE       arg1 = (*exp->language_defn->evaluate_exp) (NULL_TYPE, exp, pos,
-// OBSOLETE                                              EVAL_AVOID_SIDE_EFFECTS);
-// OBSOLETE       tem = type_lower_upper (op, VALUE_TYPE (arg1), &type);
-// OBSOLETE       return value_from_longest (type, tem);
-// OBSOLETE 
-// OBSOLETE     case UNOP_LENGTH:
-// OBSOLETE       (*pos)++;
-// OBSOLETE       arg1 = (*exp->language_defn->evaluate_exp) (NULL_TYPE, exp, pos, noside);
-// OBSOLETE       return value_chill_length (arg1);
-// OBSOLETE 
-// OBSOLETE     case UNOP_CARD:
-// OBSOLETE       (*pos)++;
-// OBSOLETE       arg1 = (*exp->language_defn->evaluate_exp) (NULL_TYPE, exp, pos, noside);
-// OBSOLETE       return value_chill_card (arg1);
-// OBSOLETE 
-// OBSOLETE     case UNOP_CHMAX:
-// OBSOLETE     case UNOP_CHMIN:
-// OBSOLETE       (*pos)++;
-// OBSOLETE       arg1 = (*exp->language_defn->evaluate_exp) (NULL_TYPE, exp, pos, noside);
-// OBSOLETE       return value_chill_max_min (op, arg1);
-// OBSOLETE 
-// OBSOLETE     case BINOP_COMMA:
-// OBSOLETE       error ("',' operator used in invalid context");
-// OBSOLETE 
-// OBSOLETE     default:
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return evaluate_subexp_standard (expect_type, exp, pos, noside);
-// OBSOLETE nosideret:
-// OBSOLETE   return value_from_longest (builtin_type_long, (LONGEST) 1);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE const struct language_defn chill_language_defn =
-// OBSOLETE {
-// OBSOLETE   "chill",
-// OBSOLETE   language_chill,
-// OBSOLETE   chill_builtin_types,
-// OBSOLETE   range_check_on,
-// OBSOLETE   type_check_on,
-// OBSOLETE   case_sensitive_on,
-// OBSOLETE   chill_parse,                     /* parser */
-// OBSOLETE   chill_error,                     /* parser error function */
-// OBSOLETE   evaluate_subexp_chill,
-// OBSOLETE   chill_printchar,         /* print a character constant */
-// OBSOLETE   chill_printstr,          /* function to print a string constant */
-// OBSOLETE   NULL,                            /* Function to print a single char */
-// OBSOLETE   chill_create_fundamental_type,   /* Create fundamental type in this language */
-// OBSOLETE   chill_print_type,                /* Print a type using appropriate syntax */
-// OBSOLETE   chill_val_print,         /* Print a value using appropriate syntax */
-// OBSOLETE   chill_value_print,               /* Print a top-levl value */
-// OBSOLETE   {"", "B'", "", ""},              /* Binary format info */
-// OBSOLETE   {"O'%lo", "O'", "o", ""},        /* Octal format info */
-// OBSOLETE   {"D'%ld", "D'", "d", ""},        /* Decimal format info */
-// OBSOLETE   {"H'%lx", "H'", "x", ""},        /* Hex format info */
-// OBSOLETE   chill_op_print_tab,              /* expression operators for printing */
-// OBSOLETE   0,                               /* arrays are first-class (not c-style) */
-// OBSOLETE   0,                               /* String lower bound */
-// OBSOLETE   &builtin_type_chill_char,        /* Type of string elements */
-// OBSOLETE   LANG_MAGIC
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE /* Initialization for Chill */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_chill_language (void)
-// OBSOLETE {
-// OBSOLETE   builtin_type_chill_bool =
-// OBSOLETE     init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
-// OBSOLETE           TYPE_FLAG_UNSIGNED,
-// OBSOLETE           "BOOL", (struct objfile *) NULL);
-// OBSOLETE   builtin_type_chill_char =
-// OBSOLETE     init_type (TYPE_CODE_CHAR, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
-// OBSOLETE           TYPE_FLAG_UNSIGNED,
-// OBSOLETE           "CHAR", (struct objfile *) NULL);
-// OBSOLETE   builtin_type_chill_long =
-// OBSOLETE     init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT,
-// OBSOLETE           0,
-// OBSOLETE           "LONG", (struct objfile *) NULL);
-// OBSOLETE   builtin_type_chill_ulong =
-// OBSOLETE     init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT,
-// OBSOLETE           TYPE_FLAG_UNSIGNED,
-// OBSOLETE           "ULONG", (struct objfile *) NULL);
-// OBSOLETE   builtin_type_chill_real =
-// OBSOLETE     init_type (TYPE_CODE_FLT, TARGET_DOUBLE_BIT / TARGET_CHAR_BIT,
-// OBSOLETE           0,
-// OBSOLETE           "LONG_REAL", (struct objfile *) NULL);
-// OBSOLETE 
-// OBSOLETE   add_language (&chill_language_defn);
-// OBSOLETE }
diff --git a/gdb/ch-lang.h b/gdb/ch-lang.h
deleted file mode 100644 (file)
index d4e5356..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-// OBSOLETE /* Chill language support definitions for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1992, 1994, 1996, 1998, 1999, 2000
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* Forward decls for prototypes */
-// OBSOLETE struct value;
-// OBSOLETE 
-// OBSOLETE extern int chill_parse (void);     /* Defined in ch-exp.y */
-// OBSOLETE 
-// OBSOLETE extern void chill_error (char *);  /* Defined in ch-exp.y */
-// OBSOLETE 
-// OBSOLETE /* Defined in ch-typeprint.c */
-// OBSOLETE extern void chill_print_type (struct type *, char *, struct ui_file *, int,
-// OBSOLETE                          int);
-// OBSOLETE 
-// OBSOLETE extern int chill_val_print (struct type *, char *, int, CORE_ADDR,
-// OBSOLETE                        struct ui_file *, int, int, int,
-// OBSOLETE                        enum val_prettyprint);
-// OBSOLETE 
-// OBSOLETE extern int chill_value_print (struct value *, struct ui_file *,
-// OBSOLETE                          int, enum val_prettyprint);
-// OBSOLETE 
-// OBSOLETE extern LONGEST
-// OBSOLETE type_lower_upper (enum exp_opcode, struct type *, struct type **);
diff --git a/gdb/ch-typeprint.c b/gdb/ch-typeprint.c
deleted file mode 100644 (file)
index 32590f8..0000000
+++ /dev/null
@@ -1,340 +0,0 @@
-// OBSOLETE /* Support for printing Chill types for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994, 1995, 2000
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "gdb_obstack.h"
-// OBSOLETE #include "bfd.h"           /* Binary File Description */
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "gdbtypes.h"
-// OBSOLETE #include "expression.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "language.h"
-// OBSOLETE #include "ch-lang.h"
-// OBSOLETE #include "typeprint.h"
-// OBSOLETE 
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE #include <errno.h>
-// OBSOLETE 
-// OBSOLETE static void chill_type_print_base (struct type *, struct ui_file *, int, int);
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE chill_print_type (struct type *type, char *varstring, struct ui_file *stream,
-// OBSOLETE              int show, int level)
-// OBSOLETE {
-// OBSOLETE   if (varstring != NULL && *varstring != '\0')
-// OBSOLETE     {
-// OBSOLETE       fputs_filtered (varstring, stream);
-// OBSOLETE       fputs_filtered (" ", stream);
-// OBSOLETE     }
-// OBSOLETE   chill_type_print_base (type, stream, show, level);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Print the name of the type (or the ultimate pointer target,
-// OBSOLETE    function value or array element).
-// OBSOLETE 
-// OBSOLETE    SHOW nonzero means don't print this type as just its name;
-// OBSOLETE    show its real definition even if it has a name.
-// OBSOLETE    SHOW zero means print just typename or tag if there is one
-// OBSOLETE    SHOW negative means abbreviate structure elements.
-// OBSOLETE    SHOW is decremented for printing of structure elements.
-// OBSOLETE 
-// OBSOLETE    LEVEL is the depth to indent by.
-// OBSOLETE    We increase it for some recursive calls.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE chill_type_print_base (struct type *type, struct ui_file *stream, int show,
-// OBSOLETE                   int level)
-// OBSOLETE {
-// OBSOLETE   register int len;
-// OBSOLETE   register int i;
-// OBSOLETE   struct type *index_type;
-// OBSOLETE   struct type *range_type;
-// OBSOLETE   LONGEST low_bound;
-// OBSOLETE   LONGEST high_bound;
-// OBSOLETE 
-// OBSOLETE   QUIT;
-// OBSOLETE 
-// OBSOLETE   wrap_here ("    ");
-// OBSOLETE   if (type == NULL)
-// OBSOLETE     {
-// OBSOLETE       fputs_filtered ("<type unknown>", stream);
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* When SHOW is zero or less, and there is a valid type name, then always
-// OBSOLETE      just print the type name directly from the type. */
-// OBSOLETE 
-// OBSOLETE   if ((show <= 0) && (TYPE_NAME (type) != NULL))
-// OBSOLETE     {
-// OBSOLETE       fputs_filtered (TYPE_NAME (type), stream);
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (TYPE_CODE (type) != TYPE_CODE_TYPEDEF)
-// OBSOLETE     CHECK_TYPEDEF (type);
-// OBSOLETE 
-// OBSOLETE   switch (TYPE_CODE (type))
-// OBSOLETE     {
-// OBSOLETE     case TYPE_CODE_TYPEDEF:
-// OBSOLETE       chill_type_print_base (TYPE_TARGET_TYPE (type), stream, 0, level);
-// OBSOLETE       break;
-// OBSOLETE     case TYPE_CODE_PTR:
-// OBSOLETE       if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID)
-// OBSOLETE    {
-// OBSOLETE      fprintf_filtered (stream,
-// OBSOLETE                        TYPE_NAME (type) ? TYPE_NAME (type) : "PTR");
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       fprintf_filtered (stream, "REF ");
-// OBSOLETE       chill_type_print_base (TYPE_TARGET_TYPE (type), stream, 0, level);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_BOOL:
-// OBSOLETE       /* FIXME: we should probably just print the TYPE_NAME, in case
-// OBSOLETE          anyone ever fixes the compiler to give us the real names
-// OBSOLETE          in the presence of the chill equivalent of typedef (assuming
-// OBSOLETE          there is one).  */
-// OBSOLETE       fprintf_filtered (stream,
-// OBSOLETE                    TYPE_NAME (type) ? TYPE_NAME (type) : "BOOL");
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_ARRAY:
-// OBSOLETE       fputs_filtered ("ARRAY (", stream);
-// OBSOLETE       range_type = TYPE_FIELD_TYPE (type, 0);
-// OBSOLETE       if (TYPE_CODE (range_type) != TYPE_CODE_RANGE)
-// OBSOLETE    chill_print_type (range_type, "", stream, 0, level);
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      index_type = TYPE_TARGET_TYPE (range_type);
-// OBSOLETE      low_bound = TYPE_FIELD_BITPOS (range_type, 0);
-// OBSOLETE      high_bound = TYPE_FIELD_BITPOS (range_type, 1);
-// OBSOLETE      print_type_scalar (index_type, low_bound, stream);
-// OBSOLETE      fputs_filtered (":", stream);
-// OBSOLETE      print_type_scalar (index_type, high_bound, stream);
-// OBSOLETE    }
-// OBSOLETE       fputs_filtered (") ", stream);
-// OBSOLETE       chill_print_type (TYPE_TARGET_TYPE (type), "", stream, 0, level);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_BITSTRING:
-// OBSOLETE       fprintf_filtered (stream, "BOOLS (%d)",
-// OBSOLETE                  TYPE_FIELD_BITPOS (TYPE_FIELD_TYPE (type, 0), 1) + 1);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_SET:
-// OBSOLETE       fputs_filtered ("POWERSET ", stream);
-// OBSOLETE       chill_print_type (TYPE_INDEX_TYPE (type), "", stream,
-// OBSOLETE                    show - 1, level);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_STRING:
-// OBSOLETE       range_type = TYPE_FIELD_TYPE (type, 0);
-// OBSOLETE       index_type = TYPE_TARGET_TYPE (range_type);
-// OBSOLETE       high_bound = TYPE_FIELD_BITPOS (range_type, 1);
-// OBSOLETE       fputs_filtered ("CHARS (", stream);
-// OBSOLETE       print_type_scalar (index_type, high_bound + 1, stream);
-// OBSOLETE       fputs_filtered (")", stream);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_MEMBER:
-// OBSOLETE       fprintf_filtered (stream, "MEMBER ");
-// OBSOLETE       chill_type_print_base (TYPE_TARGET_TYPE (type), stream, 0, level);
-// OBSOLETE       break;
-// OBSOLETE     case TYPE_CODE_REF:
-// OBSOLETE       fprintf_filtered (stream, "/*LOC*/ ");
-// OBSOLETE       chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
-// OBSOLETE       break;
-// OBSOLETE     case TYPE_CODE_FUNC:
-// OBSOLETE       fprintf_filtered (stream, "PROC (");
-// OBSOLETE       len = TYPE_NFIELDS (type);
-// OBSOLETE       for (i = 0; i < len; i++)
-// OBSOLETE    {
-// OBSOLETE      struct type *param_type = TYPE_FIELD_TYPE (type, i);
-// OBSOLETE      if (i > 0)
-// OBSOLETE        {
-// OBSOLETE          fputs_filtered (", ", stream);
-// OBSOLETE          wrap_here ("    ");
-// OBSOLETE        }
-// OBSOLETE      if (TYPE_CODE (param_type) == TYPE_CODE_REF)
-// OBSOLETE        {
-// OBSOLETE          chill_type_print_base (TYPE_TARGET_TYPE (param_type),
-// OBSOLETE                                 stream, 0, level);
-// OBSOLETE          fputs_filtered (" LOC", stream);
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        chill_type_print_base (param_type, stream, show, level);
-// OBSOLETE    }
-// OBSOLETE       fprintf_filtered (stream, ")");
-// OBSOLETE       if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
-// OBSOLETE    {
-// OBSOLETE      fputs_filtered (" RETURNS (", stream);
-// OBSOLETE      chill_type_print_base (TYPE_TARGET_TYPE (type), stream, 0, level);
-// OBSOLETE      fputs_filtered (")", stream);
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_STRUCT:
-// OBSOLETE       if (chill_varying_type (type))
-// OBSOLETE    {
-// OBSOLETE      chill_type_print_base (TYPE_FIELD_TYPE (type, 1),
-// OBSOLETE                             stream, 0, level);
-// OBSOLETE      fputs_filtered (" VARYING", stream);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      fprintf_filtered (stream, "STRUCT ");
-// OBSOLETE 
-// OBSOLETE      fprintf_filtered (stream, "(\n");
-// OBSOLETE      if ((TYPE_NFIELDS (type) == 0) && (TYPE_NFN_FIELDS (type) == 0))
-// OBSOLETE        {
-// OBSOLETE          if (TYPE_STUB (type))
-// OBSOLETE            {
-// OBSOLETE              fprintfi_filtered (level + 4, stream, "<incomplete type>\n");
-// OBSOLETE            }
-// OBSOLETE          else
-// OBSOLETE            {
-// OBSOLETE              fprintfi_filtered (level + 4, stream, "<no data fields>\n");
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          len = TYPE_NFIELDS (type);
-// OBSOLETE          for (i = TYPE_N_BASECLASSES (type); i < len; i++)
-// OBSOLETE            {
-// OBSOLETE              struct type *field_type = TYPE_FIELD_TYPE (type, i);
-// OBSOLETE              QUIT;
-// OBSOLETE              print_spaces_filtered (level + 4, stream);
-// OBSOLETE              if (TYPE_CODE (field_type) == TYPE_CODE_UNION)
-// OBSOLETE                {
-// OBSOLETE                  int j;    /* variant number */
-// OBSOLETE                  fputs_filtered ("CASE OF\n", stream);
-// OBSOLETE                  for (j = 0; j < TYPE_NFIELDS (field_type); j++)
-// OBSOLETE                    {
-// OBSOLETE                      int k;        /* variant field index */
-// OBSOLETE                      struct type *variant_type
-// OBSOLETE                      = TYPE_FIELD_TYPE (field_type, j);
-// OBSOLETE                      int var_len = TYPE_NFIELDS (variant_type);
-// OBSOLETE                      print_spaces_filtered (level + 4, stream);
-// OBSOLETE                      if (strcmp (TYPE_FIELD_NAME (field_type, j),
-// OBSOLETE                                  "else") == 0)
-// OBSOLETE                        fputs_filtered ("ELSE\n", stream);
-// OBSOLETE                      else
-// OBSOLETE                        fputs_filtered (":\n", stream);
-// OBSOLETE                      if (TYPE_CODE (variant_type) != TYPE_CODE_STRUCT)
-// OBSOLETE                        error ("variant record confusion");
-// OBSOLETE                      for (k = 0; k < var_len; k++)
-// OBSOLETE                        {
-// OBSOLETE                          print_spaces_filtered (level + 8, stream);
-// OBSOLETE                          chill_print_type (TYPE_FIELD_TYPE (variant_type, k),
-// OBSOLETE                                      TYPE_FIELD_NAME (variant_type, k),
-// OBSOLETE                                            stream, show - 1, level + 8);
-// OBSOLETE                          if (k < (var_len - 1))
-// OBSOLETE                            fputs_filtered (",", stream);
-// OBSOLETE                          fputs_filtered ("\n", stream);
-// OBSOLETE                        }
-// OBSOLETE                    }
-// OBSOLETE                  print_spaces_filtered (level + 4, stream);
-// OBSOLETE                  fputs_filtered ("ESAC", stream);
-// OBSOLETE                }
-// OBSOLETE              else
-// OBSOLETE                chill_print_type (field_type,
-// OBSOLETE                                  TYPE_FIELD_NAME (type, i),
-// OBSOLETE                                  stream, show - 1, level + 4);
-// OBSOLETE              if (i < (len - 1))
-// OBSOLETE                {
-// OBSOLETE                  fputs_filtered (",", stream);
-// OBSOLETE                }
-// OBSOLETE              fputs_filtered ("\n", stream);
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE      fprintfi_filtered (level, stream, ")");
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_RANGE:
-// OBSOLETE       {
-// OBSOLETE    struct type *target = TYPE_TARGET_TYPE (type);
-// OBSOLETE    if (target && TYPE_NAME (target))
-// OBSOLETE      fputs_filtered (TYPE_NAME (target), stream);
-// OBSOLETE    else
-// OBSOLETE      fputs_filtered ("RANGE", stream);
-// OBSOLETE    if (target == NULL)
-// OBSOLETE      target = builtin_type_long;
-// OBSOLETE    fputs_filtered (" (", stream);
-// OBSOLETE    print_type_scalar (target, TYPE_LOW_BOUND (type), stream);
-// OBSOLETE    fputs_filtered (":", stream);
-// OBSOLETE    print_type_scalar (target, TYPE_HIGH_BOUND (type), stream);
-// OBSOLETE    fputs_filtered (")", stream);
-// OBSOLETE       }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_ENUM:
-// OBSOLETE       {
-// OBSOLETE    register int lastval = 0;
-// OBSOLETE    fprintf_filtered (stream, "SET (");
-// OBSOLETE    len = TYPE_NFIELDS (type);
-// OBSOLETE    for (i = 0; i < len; i++)
-// OBSOLETE      {
-// OBSOLETE        QUIT;
-// OBSOLETE        if (i)
-// OBSOLETE          fprintf_filtered (stream, ", ");
-// OBSOLETE        wrap_here ("    ");
-// OBSOLETE        fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
-// OBSOLETE        if (lastval != TYPE_FIELD_BITPOS (type, i))
-// OBSOLETE          {
-// OBSOLETE            fprintf_filtered (stream, " = %d", TYPE_FIELD_BITPOS (type, i));
-// OBSOLETE            lastval = TYPE_FIELD_BITPOS (type, i);
-// OBSOLETE          }
-// OBSOLETE        lastval++;
-// OBSOLETE      }
-// OBSOLETE    fprintf_filtered (stream, ")");
-// OBSOLETE       }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_VOID:
-// OBSOLETE     case TYPE_CODE_UNDEF:
-// OBSOLETE     case TYPE_CODE_ERROR:
-// OBSOLETE     case TYPE_CODE_UNION:
-// OBSOLETE     case TYPE_CODE_METHOD:
-// OBSOLETE       error ("missing language support in chill_type_print_base");
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     default:
-// OBSOLETE 
-// OBSOLETE       /* Handle types not explicitly handled by the other cases,
-// OBSOLETE          such as fundamental types.  For these, just print whatever
-// OBSOLETE          the type name is, as recorded in the type itself.  If there
-// OBSOLETE          is no type name, then complain. */
-// OBSOLETE 
-// OBSOLETE       if (TYPE_NAME (type) != NULL)
-// OBSOLETE    {
-// OBSOLETE      fputs_filtered (TYPE_NAME (type), stream);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      error ("Unrecognized type code (%d) in symbol table.",
-// OBSOLETE             TYPE_CODE (type));
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE }
diff --git a/gdb/ch-valprint.c b/gdb/ch-valprint.c
deleted file mode 100644 (file)
index f2a35b3..0000000
+++ /dev/null
@@ -1,605 +0,0 @@
-// OBSOLETE /* Support for printing Chill values for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
-// OBSOLETE    1998, 2000, 2001
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "gdb_obstack.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "gdbtypes.h"
-// OBSOLETE #include "valprint.h"
-// OBSOLETE #include "expression.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "language.h"
-// OBSOLETE #include "demangle.h"
-// OBSOLETE #include "c-lang.h"                /* For c_val_print */
-// OBSOLETE #include "typeprint.h"
-// OBSOLETE #include "ch-lang.h"
-// OBSOLETE #include "annotate.h"
-// OBSOLETE 
-// OBSOLETE static void chill_print_value_fields (struct type *, char *,
-// OBSOLETE                                  struct ui_file *, int, int,
-// OBSOLETE                                  enum val_prettyprint, struct type **);
-// OBSOLETE 
-// OBSOLETE static void chill_print_type_scalar (struct type *, LONGEST,
-// OBSOLETE                                 struct ui_file *);
-// OBSOLETE 
-// OBSOLETE static void chill_val_print_array_elements (struct type *, char *,
-// OBSOLETE                                        CORE_ADDR, struct ui_file *,
-// OBSOLETE                                        int, int, int,
-// OBSOLETE                                        enum val_prettyprint);
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Print integral scalar data VAL, of type TYPE, onto stdio stream STREAM.
-// OBSOLETE    Used to print data from type structures in a specified type.  For example,
-// OBSOLETE    array bounds may be characters or booleans in some languages, and this
-// OBSOLETE    allows the ranges to be printed in their "natural" form rather than as
-// OBSOLETE    decimal integer values. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE chill_print_type_scalar (struct type *type, LONGEST val, struct ui_file *stream)
-// OBSOLETE {
-// OBSOLETE   switch (TYPE_CODE (type))
-// OBSOLETE     {
-// OBSOLETE     case TYPE_CODE_RANGE:
-// OBSOLETE       if (TYPE_TARGET_TYPE (type))
-// OBSOLETE    {
-// OBSOLETE      chill_print_type_scalar (TYPE_TARGET_TYPE (type), val, stream);
-// OBSOLETE      return;
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE     case TYPE_CODE_UNDEF:
-// OBSOLETE     case TYPE_CODE_PTR:
-// OBSOLETE     case TYPE_CODE_ARRAY:
-// OBSOLETE     case TYPE_CODE_STRUCT:
-// OBSOLETE     case TYPE_CODE_UNION:
-// OBSOLETE     case TYPE_CODE_ENUM:
-// OBSOLETE     case TYPE_CODE_FUNC:
-// OBSOLETE     case TYPE_CODE_INT:
-// OBSOLETE     case TYPE_CODE_FLT:
-// OBSOLETE     case TYPE_CODE_VOID:
-// OBSOLETE     case TYPE_CODE_SET:
-// OBSOLETE     case TYPE_CODE_STRING:
-// OBSOLETE     case TYPE_CODE_BITSTRING:
-// OBSOLETE     case TYPE_CODE_ERROR:
-// OBSOLETE     case TYPE_CODE_MEMBER:
-// OBSOLETE     case TYPE_CODE_METHOD:
-// OBSOLETE     case TYPE_CODE_REF:
-// OBSOLETE     case TYPE_CODE_CHAR:
-// OBSOLETE     case TYPE_CODE_BOOL:
-// OBSOLETE     case TYPE_CODE_COMPLEX:
-// OBSOLETE     case TYPE_CODE_TYPEDEF:
-// OBSOLETE     default:
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   print_type_scalar (type, val, stream);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Print the elements of an array.
-// OBSOLETE    Similar to val_print_array_elements, but prints
-// OBSOLETE    element indexes (in Chill syntax). */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE chill_val_print_array_elements (struct type *type, char *valaddr,
-// OBSOLETE                            CORE_ADDR address, struct ui_file *stream,
-// OBSOLETE                            int format, int deref_ref, int recurse,
-// OBSOLETE                            enum val_prettyprint pretty)
-// OBSOLETE {
-// OBSOLETE   unsigned int i = 0;
-// OBSOLETE   unsigned int things_printed = 0;
-// OBSOLETE   unsigned len;
-// OBSOLETE   struct type *elttype;
-// OBSOLETE   struct type *range_type = TYPE_FIELD_TYPE (type, 0);
-// OBSOLETE   struct type *index_type = TYPE_TARGET_TYPE (range_type);
-// OBSOLETE   unsigned eltlen;
-// OBSOLETE   /* Position of the array element we are examining to see
-// OBSOLETE      whether it is repeated.  */
-// OBSOLETE   unsigned int rep1;
-// OBSOLETE   /* Number of repetitions we have detected so far.  */
-// OBSOLETE   unsigned int reps;
-// OBSOLETE   LONGEST low_bound = TYPE_FIELD_BITPOS (range_type, 0);
-// OBSOLETE 
-// OBSOLETE   elttype = check_typedef (TYPE_TARGET_TYPE (type));
-// OBSOLETE   eltlen = TYPE_LENGTH (elttype);
-// OBSOLETE   len = TYPE_LENGTH (type) / eltlen;
-// OBSOLETE 
-// OBSOLETE   annotate_array_section_begin (i, elttype);
-// OBSOLETE 
-// OBSOLETE   for (; i < len && things_printed < print_max; i++)
-// OBSOLETE     {
-// OBSOLETE       if (i != 0)
-// OBSOLETE    {
-// OBSOLETE      if (prettyprint_arrays)
-// OBSOLETE        {
-// OBSOLETE          fprintf_filtered (stream, ",\n");
-// OBSOLETE          print_spaces_filtered (2 + 2 * recurse, stream);
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          fprintf_filtered (stream, ", ");
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       wrap_here (n_spaces (2 + 2 * recurse));
-// OBSOLETE 
-// OBSOLETE       rep1 = i + 1;
-// OBSOLETE       reps = 1;
-// OBSOLETE       while ((rep1 < len) &&
-// OBSOLETE         !memcmp (valaddr + i * eltlen, valaddr + rep1 * eltlen, eltlen))
-// OBSOLETE    {
-// OBSOLETE      ++reps;
-// OBSOLETE      ++rep1;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       fputs_filtered ("(", stream);
-// OBSOLETE       chill_print_type_scalar (index_type, low_bound + i, stream);
-// OBSOLETE       if (reps > 1)
-// OBSOLETE    {
-// OBSOLETE      fputs_filtered (":", stream);
-// OBSOLETE      chill_print_type_scalar (index_type, low_bound + i + reps - 1,
-// OBSOLETE                               stream);
-// OBSOLETE      fputs_filtered ("): ", stream);
-// OBSOLETE      val_print (elttype, valaddr + i * eltlen, 0, 0, stream, format,
-// OBSOLETE                 deref_ref, recurse + 1, pretty);
-// OBSOLETE 
-// OBSOLETE      i = rep1 - 1;
-// OBSOLETE      things_printed += 1;
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      fputs_filtered ("): ", stream);
-// OBSOLETE      val_print (elttype, valaddr + i * eltlen, 0, 0, stream, format,
-// OBSOLETE                 deref_ref, recurse + 1, pretty);
-// OBSOLETE      annotate_elt ();
-// OBSOLETE      things_printed++;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   annotate_array_section_end ();
-// OBSOLETE   if (i < len)
-// OBSOLETE     {
-// OBSOLETE       fprintf_filtered (stream, "...");
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Print data of type TYPE located at VALADDR (within GDB), which came from
-// OBSOLETE    the inferior at address ADDRESS, onto stdio stream STREAM according to
-// OBSOLETE    FORMAT (a letter or 0 for natural format).  The data at VALADDR is in
-// OBSOLETE    target byte order.
-// OBSOLETE 
-// OBSOLETE    If the data are a string pointer, returns the number of string characters
-// OBSOLETE    printed.
-// OBSOLETE 
-// OBSOLETE    If DEREF_REF is nonzero, then dereference references, otherwise just print
-// OBSOLETE    them like pointers.
-// OBSOLETE 
-// OBSOLETE    The PRETTY parameter controls prettyprinting.  */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE chill_val_print (struct type *type, char *valaddr, int embedded_offset,
-// OBSOLETE             CORE_ADDR address, struct ui_file *stream, int format,
-// OBSOLETE             int deref_ref, int recurse, enum val_prettyprint pretty)
-// OBSOLETE {
-// OBSOLETE   LONGEST val;
-// OBSOLETE   unsigned int i = 0;              /* Number of characters printed.  */
-// OBSOLETE   struct type *elttype;
-// OBSOLETE   CORE_ADDR addr;
-// OBSOLETE 
-// OBSOLETE   CHECK_TYPEDEF (type);
-// OBSOLETE 
-// OBSOLETE   switch (TYPE_CODE (type))
-// OBSOLETE     {
-// OBSOLETE     case TYPE_CODE_ARRAY:
-// OBSOLETE       if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0)
-// OBSOLETE    {
-// OBSOLETE      if (prettyprint_arrays)
-// OBSOLETE        {
-// OBSOLETE          print_spaces_filtered (2 + 2 * recurse, stream);
-// OBSOLETE        }
-// OBSOLETE      fprintf_filtered (stream, "[");
-// OBSOLETE      chill_val_print_array_elements (type, valaddr, address, stream,
-// OBSOLETE                                    format, deref_ref, recurse, pretty);
-// OBSOLETE      fprintf_filtered (stream, "]");
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      error ("unimplemented in chill_val_print; unspecified array length");
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_INT:
-// OBSOLETE       format = format ? format : output_format;
-// OBSOLETE       if (format)
-// OBSOLETE    {
-// OBSOLETE      print_scalar_formatted (valaddr, type, format, 0, stream);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      val_print_type_code_int (type, valaddr, stream);
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_CHAR:
-// OBSOLETE       format = format ? format : output_format;
-// OBSOLETE       if (format)
-// OBSOLETE    {
-// OBSOLETE      print_scalar_formatted (valaddr, type, format, 0, stream);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr),
-// OBSOLETE                     stream);
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_FLT:
-// OBSOLETE       if (format)
-// OBSOLETE    {
-// OBSOLETE      print_scalar_formatted (valaddr, type, format, 0, stream);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      print_floating (valaddr, type, stream);
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_BOOL:
-// OBSOLETE       format = format ? format : output_format;
-// OBSOLETE       if (format)
-// OBSOLETE    {
-// OBSOLETE      print_scalar_formatted (valaddr, type, format, 0, stream);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      /* FIXME: Why is this using builtin_type_chill_bool not type?  */
-// OBSOLETE      val = unpack_long (builtin_type_chill_bool, valaddr);
-// OBSOLETE      fprintf_filtered (stream, val ? "TRUE" : "FALSE");
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_UNDEF:
-// OBSOLETE       /* This happens (without TYPE_FLAG_STUB set) on systems which don't use
-// OBSOLETE          dbx xrefs (NO_DBX_XREFS in gcc) if a file has a "struct foo *bar"
-// OBSOLETE          and no complete type for struct foo in that file.  */
-// OBSOLETE       fprintf_filtered (stream, "<incomplete type>");
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_PTR:
-// OBSOLETE       if (format && format != 's')
-// OBSOLETE    {
-// OBSOLETE      print_scalar_formatted (valaddr, type, format, 0, stream);
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       addr = unpack_pointer (type, valaddr);
-// OBSOLETE       elttype = check_typedef (TYPE_TARGET_TYPE (type));
-// OBSOLETE 
-// OBSOLETE       /* We assume a NULL pointer is all zeros ... */
-// OBSOLETE       if (addr == 0)
-// OBSOLETE    {
-// OBSOLETE      fputs_filtered ("NULL", stream);
-// OBSOLETE      return 0;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       if (TYPE_CODE (elttype) == TYPE_CODE_FUNC)
-// OBSOLETE    {
-// OBSOLETE      /* Try to print what function it points to.  */
-// OBSOLETE      print_address_demangle (addr, stream, demangle);
-// OBSOLETE      /* Return value is irrelevant except for string pointers.  */
-// OBSOLETE      return (0);
-// OBSOLETE    }
-// OBSOLETE       if (addressprint && format != 's')
-// OBSOLETE    {
-// OBSOLETE      print_address_numeric (addr, 1, stream);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       /* For a pointer to char or unsigned char, also print the string
-// OBSOLETE          pointed to, unless pointer is null.  */
-// OBSOLETE       if (TYPE_LENGTH (elttype) == 1
-// OBSOLETE      && TYPE_CODE (elttype) == TYPE_CODE_CHAR
-// OBSOLETE      && (format == 0 || format == 's')
-// OBSOLETE      && addr != 0
-// OBSOLETE      &&                    /* If print_max is UINT_MAX, the alloca below will fail.
-// OBSOLETE                               In that case don't try to print the string.  */
-// OBSOLETE      print_max < UINT_MAX)
-// OBSOLETE    i = val_print_string (addr, -1, TYPE_LENGTH (elttype), stream);
-// OBSOLETE 
-// OBSOLETE       /* Return number of characters printed, plus one for the
-// OBSOLETE          terminating null if we have "reached the end".  */
-// OBSOLETE       return (i + (print_max && i != print_max));
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_STRING:
-// OBSOLETE       i = TYPE_LENGTH (type);
-// OBSOLETE       LA_PRINT_STRING (stream, valaddr, i, 1, 0);
-// OBSOLETE       /* Return number of characters printed, plus one for the terminating
-// OBSOLETE          null if we have "reached the end".  */
-// OBSOLETE       return (i + (print_max && i != print_max));
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_BITSTRING:
-// OBSOLETE     case TYPE_CODE_SET:
-// OBSOLETE       elttype = TYPE_INDEX_TYPE (type);
-// OBSOLETE       CHECK_TYPEDEF (elttype);
-// OBSOLETE       if (TYPE_STUB (elttype))
-// OBSOLETE    {
-// OBSOLETE      fprintf_filtered (stream, "<incomplete type>");
-// OBSOLETE      gdb_flush (stream);
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       {
-// OBSOLETE    struct type *range = elttype;
-// OBSOLETE    LONGEST low_bound, high_bound;
-// OBSOLETE    int i;
-// OBSOLETE    int is_bitstring = TYPE_CODE (type) == TYPE_CODE_BITSTRING;
-// OBSOLETE    int need_comma = 0;
-// OBSOLETE 
-// OBSOLETE    if (is_bitstring)
-// OBSOLETE      fputs_filtered ("B'", stream);
-// OBSOLETE    else
-// OBSOLETE      fputs_filtered ("[", stream);
-// OBSOLETE 
-// OBSOLETE    i = get_discrete_bounds (range, &low_bound, &high_bound);
-// OBSOLETE       maybe_bad_bstring:
-// OBSOLETE    if (i < 0)
-// OBSOLETE      {
-// OBSOLETE        fputs_filtered ("<error value>", stream);
-// OBSOLETE        goto done;
-// OBSOLETE      }
-// OBSOLETE 
-// OBSOLETE    for (i = low_bound; i <= high_bound; i++)
-// OBSOLETE      {
-// OBSOLETE        int element = value_bit_index (type, valaddr, i);
-// OBSOLETE        if (element < 0)
-// OBSOLETE          {
-// OBSOLETE            i = element;
-// OBSOLETE            goto maybe_bad_bstring;
-// OBSOLETE          }
-// OBSOLETE        if (is_bitstring)
-// OBSOLETE          fprintf_filtered (stream, "%d", element);
-// OBSOLETE        else if (element)
-// OBSOLETE          {
-// OBSOLETE            if (need_comma)
-// OBSOLETE              fputs_filtered (", ", stream);
-// OBSOLETE            chill_print_type_scalar (range, (LONGEST) i, stream);
-// OBSOLETE            need_comma = 1;
-// OBSOLETE 
-// OBSOLETE            /* Look for a continuous range of true elements. */
-// OBSOLETE            if (i + 1 <= high_bound && value_bit_index (type, valaddr, ++i))
-// OBSOLETE              {
-// OBSOLETE                int j = i;  /* j is the upper bound so far of the range */
-// OBSOLETE                fputs_filtered (":", stream);
-// OBSOLETE                while (i + 1 <= high_bound
-// OBSOLETE                       && value_bit_index (type, valaddr, ++i))
-// OBSOLETE                  j = i;
-// OBSOLETE                chill_print_type_scalar (range, (LONGEST) j, stream);
-// OBSOLETE              }
-// OBSOLETE          }
-// OBSOLETE      }
-// OBSOLETE       done:
-// OBSOLETE    if (is_bitstring)
-// OBSOLETE      fputs_filtered ("'", stream);
-// OBSOLETE    else
-// OBSOLETE      fputs_filtered ("]", stream);
-// OBSOLETE       }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_STRUCT:
-// OBSOLETE       if (chill_varying_type (type))
-// OBSOLETE    {
-// OBSOLETE      struct type *inner = check_typedef (TYPE_FIELD_TYPE (type, 1));
-// OBSOLETE      long length = unpack_long (TYPE_FIELD_TYPE (type, 0), valaddr);
-// OBSOLETE      char *data_addr = valaddr + TYPE_FIELD_BITPOS (type, 1) / 8;
-// OBSOLETE 
-// OBSOLETE      switch (TYPE_CODE (inner))
-// OBSOLETE        {
-// OBSOLETE        case TYPE_CODE_STRING:
-// OBSOLETE          if (length > TYPE_LENGTH (type) - 2)
-// OBSOLETE            {
-// OBSOLETE              fprintf_filtered (stream,
-// OBSOLETE                    "<dynamic length %ld > static length %d> *invalid*",
-// OBSOLETE                                length, TYPE_LENGTH (type));
-// OBSOLETE 
-// OBSOLETE              /* Don't print the string; doing so might produce a
-// OBSOLETE                 segfault.  */
-// OBSOLETE              return length;
-// OBSOLETE            }
-// OBSOLETE          LA_PRINT_STRING (stream, data_addr, length, 1, 0);
-// OBSOLETE          return length;
-// OBSOLETE        default:
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       chill_print_value_fields (type, valaddr, stream, format, recurse, pretty,
-// OBSOLETE                            0);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_REF:
-// OBSOLETE       if (addressprint)
-// OBSOLETE    {
-// OBSOLETE      fprintf_filtered (stream, "LOC(");
-// OBSOLETE      print_address_numeric
-// OBSOLETE        (extract_address (valaddr, TARGET_PTR_BIT / HOST_CHAR_BIT),
-// OBSOLETE         1,
-// OBSOLETE         stream);
-// OBSOLETE      fprintf_filtered (stream, ")");
-// OBSOLETE      if (deref_ref)
-// OBSOLETE        fputs_filtered (": ", stream);
-// OBSOLETE    }
-// OBSOLETE       /* De-reference the reference.  */
-// OBSOLETE       if (deref_ref)
-// OBSOLETE    {
-// OBSOLETE      if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_UNDEF)
-// OBSOLETE        {
-// OBSOLETE          struct value *deref_val =
-// OBSOLETE          value_at
-// OBSOLETE          (TYPE_TARGET_TYPE (type),
-// OBSOLETE           unpack_pointer (lookup_pointer_type (builtin_type_void),
-// OBSOLETE                           valaddr),
-// OBSOLETE           NULL);
-// OBSOLETE          val_print (VALUE_TYPE (deref_val),
-// OBSOLETE                     VALUE_CONTENTS (deref_val),
-// OBSOLETE                     0,
-// OBSOLETE                     VALUE_ADDRESS (deref_val), stream, format,
-// OBSOLETE                     deref_ref, recurse + 1, pretty);
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        fputs_filtered ("???", stream);
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_ENUM:
-// OBSOLETE       c_val_print (type, valaddr, 0, address, stream, format,
-// OBSOLETE               deref_ref, recurse, pretty);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_RANGE:
-// OBSOLETE       if (TYPE_TARGET_TYPE (type))
-// OBSOLETE    chill_val_print (TYPE_TARGET_TYPE (type), valaddr, 0, address, stream,
-// OBSOLETE                     format, deref_ref, recurse, pretty);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case TYPE_CODE_MEMBER:
-// OBSOLETE     case TYPE_CODE_UNION:
-// OBSOLETE     case TYPE_CODE_FUNC:
-// OBSOLETE     case TYPE_CODE_VOID:
-// OBSOLETE     case TYPE_CODE_ERROR:
-// OBSOLETE     default:
-// OBSOLETE       /* Let's defer printing to the C printer, rather than
-// OBSOLETE          print an error message.  FIXME! */
-// OBSOLETE       c_val_print (type, valaddr, 0, address, stream, format,
-// OBSOLETE               deref_ref, recurse, pretty);
-// OBSOLETE     }
-// OBSOLETE   gdb_flush (stream);
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Mutually recursive subroutines of cplus_print_value and c_val_print to
-// OBSOLETE    print out a structure's fields: cp_print_value_fields and cplus_print_value.
-// OBSOLETE 
-// OBSOLETE    TYPE, VALADDR, STREAM, RECURSE, and PRETTY have the
-// OBSOLETE    same meanings as in cplus_print_value and c_val_print.
-// OBSOLETE 
-// OBSOLETE    DONT_PRINT is an array of baseclass types that we
-// OBSOLETE    should not print, or zero if called from top level.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE chill_print_value_fields (struct type *type, char *valaddr,
-// OBSOLETE                      struct ui_file *stream, int format, int recurse,
-// OBSOLETE                      enum val_prettyprint pretty, struct type **dont_print)
-// OBSOLETE {
-// OBSOLETE   int i, len;
-// OBSOLETE   int fields_seen = 0;
-// OBSOLETE 
-// OBSOLETE   CHECK_TYPEDEF (type);
-// OBSOLETE 
-// OBSOLETE   fprintf_filtered (stream, "[");
-// OBSOLETE   len = TYPE_NFIELDS (type);
-// OBSOLETE   if (len == 0)
-// OBSOLETE     {
-// OBSOLETE       fprintf_filtered (stream, "<No data fields>");
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       for (i = 0; i < len; i++)
-// OBSOLETE    {
-// OBSOLETE      if (fields_seen)
-// OBSOLETE        {
-// OBSOLETE          fprintf_filtered (stream, ", ");
-// OBSOLETE        }
-// OBSOLETE      fields_seen = 1;
-// OBSOLETE      if (pretty)
-// OBSOLETE        {
-// OBSOLETE          fprintf_filtered (stream, "\n");
-// OBSOLETE          print_spaces_filtered (2 + 2 * recurse, stream);
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          wrap_here (n_spaces (2 + 2 * recurse));
-// OBSOLETE        }
-// OBSOLETE      fputs_filtered (".", stream);
-// OBSOLETE      fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i),
-// OBSOLETE                               language_chill, DMGL_NO_OPTS);
-// OBSOLETE      fputs_filtered (": ", stream);
-// OBSOLETE      if (TYPE_FIELD_PACKED (type, i))
-// OBSOLETE        {
-// OBSOLETE          struct value *v;
-// OBSOLETE 
-// OBSOLETE          /* Bitfields require special handling, especially due to byte
-// OBSOLETE             order problems.  */
-// OBSOLETE          v = value_from_longest (TYPE_FIELD_TYPE (type, i),
-// OBSOLETE                               unpack_field_as_long (type, valaddr, i));
-// OBSOLETE 
-// OBSOLETE          chill_val_print (TYPE_FIELD_TYPE (type, i), VALUE_CONTENTS (v), 0, 0,
-// OBSOLETE                           stream, format, 0, recurse + 1, pretty);
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          chill_val_print (TYPE_FIELD_TYPE (type, i),
-// OBSOLETE                           valaddr + TYPE_FIELD_BITPOS (type, i) / 8, 0,
-// OBSOLETE                           0, stream, format, 0, recurse + 1, pretty);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       if (pretty)
-// OBSOLETE    {
-// OBSOLETE      fprintf_filtered (stream, "\n");
-// OBSOLETE      print_spaces_filtered (2 * recurse, stream);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   fprintf_filtered (stream, "]");
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE int
-// OBSOLETE chill_value_print (struct value *val, struct ui_file *stream, int format,
-// OBSOLETE               enum val_prettyprint pretty)
-// OBSOLETE {
-// OBSOLETE   struct type *type = VALUE_TYPE (val);
-// OBSOLETE   struct type *real_type = check_typedef (type);
-// OBSOLETE 
-// OBSOLETE   /* If it is a pointer, indicate what it points to.
-// OBSOLETE 
-// OBSOLETE      Print type also if it is a reference. */
-// OBSOLETE 
-// OBSOLETE   if (TYPE_CODE (real_type) == TYPE_CODE_PTR ||
-// OBSOLETE       TYPE_CODE (real_type) == TYPE_CODE_REF)
-// OBSOLETE     {
-// OBSOLETE       char *valaddr = VALUE_CONTENTS (val);
-// OBSOLETE       CORE_ADDR addr = unpack_pointer (type, valaddr);
-// OBSOLETE       if (TYPE_CODE (type) != TYPE_CODE_PTR || addr != 0)
-// OBSOLETE    {
-// OBSOLETE      int i;
-// OBSOLETE      char *name = TYPE_NAME (type);
-// OBSOLETE      if (name)
-// OBSOLETE        fputs_filtered (name, stream);
-// OBSOLETE      else if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID)
-// OBSOLETE        fputs_filtered ("PTR", stream);
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          fprintf_filtered (stream, "(");
-// OBSOLETE          type_print (type, "", stream, -1);
-// OBSOLETE          fprintf_filtered (stream, ")");
-// OBSOLETE        }
-// OBSOLETE      fprintf_filtered (stream, "(");
-// OBSOLETE      i = val_print (type, valaddr, 0, VALUE_ADDRESS (val),
-// OBSOLETE                     stream, format, 1, 0, pretty);
-// OBSOLETE      fprintf_filtered (stream, ")");
-// OBSOLETE      return i;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   return (val_print (type, VALUE_CONTENTS (val), 0,
-// OBSOLETE                 VALUE_ADDRESS (val), stream, format, 1, 0, pretty));
-// OBSOLETE }
diff --git a/gdb/config/arc/arc.mt b/gdb/config/arc/arc.mt
deleted file mode 100644 (file)
index 3ed7410..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: ARC processor
-# OBSOLETE TDEPFILES = arc-tdep.o
-# OBSOLETE TM_FILE = tm-arc.h
diff --git a/gdb/config/arc/tm-arc.h b/gdb/config/arc/tm-arc.h
deleted file mode 100644 (file)
index 1c7c74f..0000000
+++ /dev/null
@@ -1,336 +0,0 @@
-// OBSOLETE /* Parameters for target machine ARC, for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1995, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
-// OBSOLETE    Contributed by Cygnus Support.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE /* Used by arc-tdep.c to set the default cpu type.  */
-// OBSOLETE #define DEFAULT_ARC_CPU_TYPE "base"
-// OBSOLETE 
-// OBSOLETE /* Offset from address of function to start of its code.
-// OBSOLETE    Zero on most machines.  */
-// OBSOLETE #define FUNCTION_START_OFFSET 0
-// OBSOLETE 
-// OBSOLETE /* Advance PC across any function entry prologue instructions
-// OBSOLETE    to reach some "real" code.  */
-// OBSOLETE 
-// OBSOLETE #define SKIP_PROLOGUE(pc) (arc_skip_prologue (pc, 0))
-// OBSOLETE extern CORE_ADDR arc_skip_prologue (CORE_ADDR, int);
-// OBSOLETE 
-// OBSOLETE #define PROLOGUE_FRAMELESS_P(pc) arc_prologue_frameless_p(pc)
-// OBSOLETE extern int arc_prologue_frameless_p (CORE_ADDR);
-// OBSOLETE 
-// OBSOLETE /* Sequence of bytes for breakpoint instruction.
-// OBSOLETE    ??? The current value is "sr -1,[-1]" and is for the simulator only.
-// OBSOLETE    The simulator watches for this and does the right thing.
-// OBSOLETE    The hardware version will have to associate with each breakpoint
-// OBSOLETE    the sequence "flag 1; nop; nop; nop".  IE: The breakpoint insn will not
-// OBSOLETE    be a fixed set of bits but instead will be a branch to a semi-random
-// OBSOLETE    address.  Presumably this will be cleaned up for "second silicon".  */
-// OBSOLETE #define BIG_BREAKPOINT { 0x12, 0x1f, 0xff, 0xff }
-// OBSOLETE #define LITTLE_BREAKPOINT { 0xff, 0xff, 0x1f, 0x12 }
-// OBSOLETE 
-// OBSOLETE /* Given the exposed pipeline, there isn't any one correct value.
-// OBSOLETE    However, this value must be 4.  GDB can't handle any other value (other than
-// OBSOLETE    zero).  See for example infrun.c:
-// OBSOLETE    "prev_pc != stop_pc - DECR_PC_AFTER_BREAK"  */
-// OBSOLETE /* FIXME */
-// OBSOLETE #define DECR_PC_AFTER_BREAK 8
-// OBSOLETE 
-// OBSOLETE /* We don't have a reliable single step facility.
-// OBSOLETE    ??? We do have a cycle single step facility, but that won't work.  */
-// OBSOLETE #define SOFTWARE_SINGLE_STEP_P() 1
-// OBSOLETE extern void arc_software_single_step (enum target_signal, int);
-// OBSOLETE #define SOFTWARE_SINGLE_STEP(sig,bp_p) arc_software_single_step (sig, bp_p)
-// OBSOLETE 
-// OBSOLETE /* FIXME: Need to set STEP_SKIPS_DELAY.  */
-// OBSOLETE 
-// OBSOLETE /* Given a pc value as defined by the hardware, return the real address.
-// OBSOLETE    Remember that on the ARC blink contains that status register which
-// OBSOLETE    includes PC + flags (so we have to mask out the flags).  */
-// OBSOLETE #define ARC_PC_TO_REAL_ADDRESS(pc) (((pc) & 0xffffff) << 2)
-// OBSOLETE 
-// OBSOLETE /* Immediately after a function call, return the saved pc.
-// OBSOLETE    Can't always go through the frames for this because on some machines
-// OBSOLETE    the new frame is not set up until the new function
-// OBSOLETE    executes some instructions.  */
-// OBSOLETE 
-// OBSOLETE #define SAVED_PC_AFTER_CALL(frame) \
-// OBSOLETE   (ARC_PC_TO_REAL_ADDRESS (read_register (BLINK_REGNUM)))
-// OBSOLETE 
-// OBSOLETE /* Stack grows upward */
-// OBSOLETE 
-// OBSOLETE #define INNER_THAN(lhs,rhs) ((lhs) < (rhs))
-// OBSOLETE 
-// OBSOLETE /* Say how long (ordinary) registers are.  This is a piece of bogosity
-// OBSOLETE    used in push_word and a few other places; REGISTER_RAW_SIZE is the
-// OBSOLETE    real way to know how big a register is.  */
-// OBSOLETE #define REGISTER_SIZE 4
-// OBSOLETE 
-// OBSOLETE /* Number of machine registers */
-// OBSOLETE #define NUM_REGS 92
-// OBSOLETE 
-// OBSOLETE /* Initializer for an array of names of registers.
-// OBSOLETE    There should be NUM_REGS strings in this initializer.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_NAMES \
-// OBSOLETE { \
-// OBSOLETE     /*  0 */ "r0",  "r1",  "r2",  "r3",  "r4",  "r5",  "r6",  "r7", \
-// OBSOLETE     /*  8 */ "r8",  "r9",  "r10", "r11", "r12", "r13", "r14", "r15", \
-// OBSOLETE     /* 16 */ "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", \
-// OBSOLETE     /* 24 */ "r24", "r25", "r26", "fp", "sp", "ilink1", "ilink2", "blink", \
-// OBSOLETE     /* 32 */ "r32", "r33", "r34", "r35", "r36", "r37", "r38", "r39", \
-// OBSOLETE     /* 40 */ "r40", "r41", "r42", "r43", "r44", "r45", "r46", "r47", \
-// OBSOLETE     /* 48 */ "r48", "r49", "r50", "r51", "r52", "r53", "r54", "r55", \
-// OBSOLETE     /* 56 */ "r56", "mlo", "mmid", "mhi", "lp_count", \
-// OBSOLETE     /* 61 */ "status", "sema", "lp_start", "lp_end", "identity", "debug", \
-// OBSOLETE     /* 67 */ "aux10", "aux11", "aux12", "aux13", "aux14", \
-// OBSOLETE     /* 72 */ "aux15", "aux16", "aux17", "aux18", "aux19", \
-// OBSOLETE     /* 77 */ "aux1a", "aux1b", "aux1c", "aux1d", "aux1e", \
-// OBSOLETE     /* 82 */ "aux1f", "aux20", "aux21", "aux22", \
-// OBSOLETE     /* 86 */ "aux30", "aux31", "aux32", "aux33", "aux40", \
-// OBSOLETE     /* 91 */ "pc" \
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Register numbers of various important registers (used to index
-// OBSOLETE    into arrays of register names and register values).  */
-// OBSOLETE 
-// OBSOLETE #define R0_REGNUM   0              /* First local register           */
-// OBSOLETE #define R59_REGNUM 59              /* Last local register            */
-// OBSOLETE #define FP_REGNUM  27              /* Contains address of executing stack frame */
-// OBSOLETE #define SP_REGNUM  28              /* stack pointer */
-// OBSOLETE #define BLINK_REGNUM 31            /* link register */
-// OBSOLETE #define    STA_REGNUM 61           /* processor status word */
-// OBSOLETE #define PC_REGNUM  91              /* instruction pointer */
-// OBSOLETE #define AUX_BEG_REGNUM  61 /* aux reg begins */
-// OBSOLETE #define AUX_END_REGNUM  90 /* aux reg ends, pc not real aux reg */
-// OBSOLETE 
-// OBSOLETE /* Fake registers used to mark immediate data.  */
-// OBSOLETE #define SHIMM_FLAG_REGNUM 61
-// OBSOLETE #define LIMM_REGNUM 62
-// OBSOLETE #define SHIMM_REGNUM 63
-// OBSOLETE 
-// OBSOLETE #define AUX_REG_MAP \
-// OBSOLETE { \
-// OBSOLETE    {  0,  1,  2,  3,  4,  5, \
-// OBSOLETE      16, -1, -1, -1, -1, \
-// OBSOLETE      -1, -1, -1, -1, -1, \
-// OBSOLETE      -1, -1, -1, -1, 30, \
-// OBSOLETE      -1, 32, 33, -1, \
-// OBSOLETE       48, 49, 50, 51, 64, \
-// OBSOLETE       0 \
-// OBSOLETE     }, \
-// OBSOLETE    {  0,  1,  2,  3,  4,  5, \
-// OBSOLETE      16, -1, -1, -1, -1, \
-// OBSOLETE      -1, -1, -1, -1, -1, \
-// OBSOLETE      -1, -1, -1, -1, 30, \
-// OBSOLETE      31, 32, 33, -1, \
-// OBSOLETE      -1, -1, -1, -1, -1, \
-// OBSOLETE       0 \
-// OBSOLETE     }, \
-// OBSOLETE    {  0,  1,  2,  3,  4,  5, \
-// OBSOLETE       16, 17, 18, 19, 20, \
-// OBSOLETE       21, 22, 23, 24, 25, \
-// OBSOLETE       26, 27, 28, 29, 30, \
-// OBSOLETE       31, 32, 33, 34, \
-// OBSOLETE      -1, -1, -1, -1, -1, \
-// OBSOLETE       0 \
-// OBSOLETE     } \
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #define PFP_REGNUM R0_REGNUM       /* Previous frame pointer */
-// OBSOLETE 
-// OBSOLETE /* Total amount of space needed to store our copies of the machine's
-// OBSOLETE    register state, the array `registers'.  */
-// OBSOLETE #define REGISTER_BYTES (NUM_REGS * 4)
-// OBSOLETE 
-// OBSOLETE /* Index within `registers' of the first byte of the space for register N.  */
-// OBSOLETE #define REGISTER_BYTE(N) (4*(N))
-// OBSOLETE 
-// OBSOLETE /* Number of bytes of storage in the actual machine representation
-// OBSOLETE    for register N. */
-// OBSOLETE #define REGISTER_RAW_SIZE(N) 4
-// OBSOLETE 
-// OBSOLETE /* Number of bytes of storage in the program's representation for register N. */
-// OBSOLETE #define REGISTER_VIRTUAL_SIZE(N) 4
-// OBSOLETE 
-// OBSOLETE /* Largest value REGISTER_RAW_SIZE can have.  */
-// OBSOLETE #define MAX_REGISTER_RAW_SIZE 4
-// OBSOLETE 
-// OBSOLETE /* Largest value REGISTER_VIRTUAL_SIZE can have.  */
-// OBSOLETE #define MAX_REGISTER_VIRTUAL_SIZE 4
-// OBSOLETE 
-// OBSOLETE /* Return the GDB type object for the "standard" data type
-// OBSOLETE    of data in register N.  */
-// OBSOLETE #define REGISTER_VIRTUAL_TYPE(N) (builtin_type_int)
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Macros for understanding function return values... */
-// OBSOLETE 
-// OBSOLETE /* Does the specified function use the "struct returning" convention
-// OBSOLETE    or the "value returning" convention?  The "value returning" convention
-// OBSOLETE    almost invariably returns the entire value in registers.  The
-// OBSOLETE    "struct returning" convention often returns the entire value in
-// OBSOLETE    memory, and passes a pointer (out of or into the function) saying
-// OBSOLETE    where the value (is or should go).
-// OBSOLETE 
-// OBSOLETE    Since this sometimes depends on whether it was compiled with GCC,
-// OBSOLETE    this is also an argument.  This is used in call_function to build a
-// OBSOLETE    stack, and in value_being_returned to print return values.
-// OBSOLETE 
-// OBSOLETE    On arc, a structure is always retunred with pointer in r0. */
-// OBSOLETE 
-// OBSOLETE #define USE_STRUCT_CONVENTION(gcc_p, type) 1
-// OBSOLETE 
-// OBSOLETE /* Extract from an array REGBUF containing the (raw) register state
-// OBSOLETE    a function return value of type TYPE, and copy that, in virtual format,
-// OBSOLETE    into VALBUF.  This is only called if USE_STRUCT_CONVENTION for this
-// OBSOLETE    type is 0.
-// OBSOLETE  */
-// OBSOLETE #define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \
-// OBSOLETE    memcpy(VALBUF, REGBUF+REGISTER_BYTE(R0_REGNUM), TYPE_LENGTH (TYPE))
-// OBSOLETE 
-// OBSOLETE /* If USE_STRUCT_CONVENTION produces a 1, 
-// OBSOLETE    extract from an array REGBUF containing the (raw) register state
-// OBSOLETE    the address in which a function should return its structure value,
-// OBSOLETE    as a CORE_ADDR (or an expression that can be used as one). */
-// OBSOLETE #define DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \
-// OBSOLETE    (error("Don't know where large structure is returned on arc"), 0)
-// OBSOLETE 
-// OBSOLETE /* Write into appropriate registers a function return value
-// OBSOLETE    of type TYPE, given in virtual format, for "value returning" functions.
-// OBSOLETE    For 'return' command:  not (yet) implemented for arc.  */
-// OBSOLETE #define STORE_RETURN_VALUE(TYPE,VALBUF) \
-// OBSOLETE     error ("Returning values from functions is not implemented in arc gdb")
-// OBSOLETE 
-// OBSOLETE /* Store the address of the place in which to copy the structure the
-// OBSOLETE    subroutine will return.  This is called from call_function. */
-// OBSOLETE #define STORE_STRUCT_RETURN(ADDR, SP) \
-// OBSOLETE     error ("Returning values from functions is not implemented in arc gdb")
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Describe the pointer in each stack frame to the previous stack frame
-// OBSOLETE    (its caller).  */
-// OBSOLETE 
-// OBSOLETE /* We cache information about saved registers in the frame structure,
-// OBSOLETE    to save us from having to re-scan function prologues every time
-// OBSOLETE    a register in a non-current frame is accessed.  */
-// OBSOLETE 
-// OBSOLETE #define EXTRA_FRAME_INFO \
-// OBSOLETE    struct frame_saved_regs *fsr; \
-// OBSOLETE    CORE_ADDR arg_pointer;
-// OBSOLETE 
-// OBSOLETE /* Zero the frame_saved_regs pointer when the frame is initialized,
-// OBSOLETE    so that FRAME_FIND_SAVED_REGS () will know to allocate and
-// OBSOLETE    initialize a frame_saved_regs struct the first time it is called.
-// OBSOLETE    Set the arg_pointer to -1, which is not valid; 0 and other values
-// OBSOLETE    indicate real, cached values.  */
-// OBSOLETE 
-// OBSOLETE #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \
-// OBSOLETE    ((fi)->fsr = 0, (fi)->arg_pointer = -1)
-// OBSOLETE 
-// OBSOLETE /* FRAME_CHAIN takes a frame's nominal address
-// OBSOLETE    and produces the frame's chain-pointer.
-// OBSOLETE    However, if FRAME_CHAIN_VALID returns zero,
-// OBSOLETE    it means the given frame is the outermost one and has no caller.  */
-// OBSOLETE /* On the arc, we get the chain pointer by reading the PFP saved
-// OBSOLETE    on the stack. */
-// OBSOLETE /* The PFP and RPC is in fp and fp+4.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_CHAIN(thisframe) \
-// OBSOLETE   (read_memory_integer (FRAME_FP (thisframe), 4))
-// OBSOLETE 
-// OBSOLETE /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one
-// OBSOLETE    and has no caller.  */
-// OBSOLETE #define FRAME_CHAIN_VALID(chain, thisframe) nonnull_frame_chain_valid (chain, thisframe)
-// OBSOLETE 
-// OBSOLETE /* An expression that tells us whether the function invocation represented
-// OBSOLETE    by FI does not have a frame on the stack associated with it. */
-// OBSOLETE 
-// OBSOLETE #define FRAMELESS_FUNCTION_INVOCATION(FI) \
-// OBSOLETE      (((FI)->signal_handler_caller) ? 0 : frameless_look_for_prologue (FI))
-// OBSOLETE 
-// OBSOLETE /* Where is the PC for a specific frame.
-// OBSOLETE    A leaf function may never save blink, so we have to check for that here.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_SAVED_PC(frame) (arc_frame_saved_pc (frame))
-// OBSOLETE struct frame_info;         /* in case frame.h not included yet */
-// OBSOLETE CORE_ADDR arc_frame_saved_pc (struct frame_info *);
-// OBSOLETE 
-// OBSOLETE /* If the argument is on the stack, it will be here.
-// OBSOLETE    We cache this value in the frame info if we've already looked it up.  */
-// OBSOLETE /* ??? Is the arg_pointer check necessary?  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_ARGS_ADDRESS(fi) \
-// OBSOLETE   (((fi)->arg_pointer != -1) ? (fi)->arg_pointer : (fi)->frame)
-// OBSOLETE 
-// OBSOLETE /* This is the same except it should return 0 when
-// OBSOLETE    it does not really know where the args are, rather than guessing.
-// OBSOLETE    This value is not cached since it is only used infrequently.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_LOCALS_ADDRESS(fi)   ((fi)->frame)
-// OBSOLETE 
-// OBSOLETE /* Set NUMARGS to the number of args passed to a frame.
-// OBSOLETE    Can return -1, meaning no way to tell.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_NUM_ARGS(fi) (-1)
-// OBSOLETE 
-// OBSOLETE /* Return number of bytes at start of arglist that are not really args.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_ARGS_SKIP 0
-// OBSOLETE 
-// OBSOLETE /* Produce the positions of the saved registers in a stack frame.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_FIND_SAVED_REGS(frame_info_addr, sr) \
-// OBSOLETE    frame_find_saved_regs (frame_info_addr, &sr)
-// OBSOLETE extern void frame_find_saved_regs ();      /* See arc-tdep.c */
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Things needed for making calls to functions in the inferior process */
-// OBSOLETE void arc_push_dummy_frame (void);
-// OBSOLETE #define PUSH_DUMMY_FRAME \
-// OBSOLETE    arc_push_dummy_frame ()
-// OBSOLETE 
-// OBSOLETE /* Discard from the stack the innermost frame, restoring all registers.  */
-// OBSOLETE void arc_pop_frame (void);
-// OBSOLETE #define POP_FRAME \
-// OBSOLETE    arc_pop_frame ()
-// OBSOLETE 
-// OBSOLETE /* This sequence of words is the instructions  bl xxxx, flag 1 */
-// OBSOLETE #define CALL_DUMMY { 0x28000000, 0x1fbe8001 }
-// OBSOLETE #define CALL_DUMMY_LENGTH 8
-// OBSOLETE 
-// OBSOLETE /* Start execution at beginning of dummy */
-// OBSOLETE #define CALL_DUMMY_START_OFFSET 0
-// OBSOLETE 
-// OBSOLETE /* Insert the specified number of args and function address
-// OBSOLETE    into a call sequence of the above form stored at 'dummyname'. */
-// OBSOLETE #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \
-// OBSOLETE { \
-// OBSOLETE         int from, to, delta, loc; \
-// OBSOLETE         loc = (int)(read_register (SP_REGNUM) - CALL_DUMMY_LENGTH); \
-// OBSOLETE         from = loc + 4; \
-// OBSOLETE         to = (int)(fun); \
-// OBSOLETE         delta = (to - from) >> 2; \
-// OBSOLETE         *((char *)(dummyname) + 1) = (delta & 0x1); \
-// OBSOLETE         *((char *)(dummyname) + 2) = ((delta >> 1) & 0xff); \
-// OBSOLETE         *((char *)(dummyname) + 3) = ((delta >> 9) & 0xff); \
-// OBSOLETE         *((char *)(dummyname) + 4) = ((delta >> 17) & 0x7); \
-// OBSOLETE }
diff --git a/gdb/config/d30v/d30v.mt b/gdb/config/d30v/d30v.mt
deleted file mode 100644 (file)
index 49bd83b..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-# OBSOLETE # Target: Mitsubishi D30V processor
-# OBSOLETE TDEPFILES= d30v-tdep.o
-# OBSOLETE TM_FILE= tm-d30v.h
-# OBSOLETE SIM_OBS= remote-sim.o
-# OBSOLETE SIM= ../sim/d30v/libsim.a
diff --git a/gdb/config/d30v/tm-d30v.h b/gdb/config/d30v/tm-d30v.h
deleted file mode 100644 (file)
index 3e1ea3f..0000000
+++ /dev/null
@@ -1,323 +0,0 @@
-/* OBSOLETE /* Target-specific definition for the Mitsubishi D30V */
-/* OBSOLETE    Copyright 1997, 1998, 1999, 2000 Free Software Foundation, Inc. */
-/* OBSOLETE  */
-/* OBSOLETE    This file is part of GDB. */
-/* OBSOLETE  */
-/* OBSOLETE    This program is free software; you can redistribute it and/or modify */
-/* OBSOLETE    it under the terms of the GNU General Public License as published by */
-/* OBSOLETE    the Free Software Foundation; either version 2 of the License, or */
-/* OBSOLETE    (at your option) any later version. */
-/* OBSOLETE  */
-/* OBSOLETE    This program is distributed in the hope that it will be useful, */
-/* OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of */
-/* OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the */
-/* OBSOLETE    GNU General Public License for more details. */
-/* OBSOLETE  */
-/* OBSOLETE    You should have received a copy of the GNU General Public License */
-/* OBSOLETE    along with this program; if not, write to the Free Software */
-/* OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330, */
-/* OBSOLETE    Boston, MA 02111-1307, USA.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #ifndef TM_D30V_H */
-/* OBSOLETE #define TM_D30V_H */
-/* OBSOLETE  */
-/* OBSOLETE #include "regcache.h" */
-/* OBSOLETE  */
-/* OBSOLETE /* Offset from address of function to start of its code. */
-/* OBSOLETE    Zero on most machines.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define FUNCTION_START_OFFSET 0 */
-/* OBSOLETE  */
-/* OBSOLETE /* these are the addresses the D30V-EVA board maps data */ */
-/* OBSOLETE /* and instruction memory to. */ */
-/* OBSOLETE  */
-/* OBSOLETE #define DMEM_START 0x20000000 */
-/* OBSOLETE #define IMEM_START 0x00000000      /* was 0x10000000 */ */
-/* OBSOLETE #define STACK_START        0x20007ffe */
-/* OBSOLETE  */
-/* OBSOLETE /* Forward decls for prototypes */ */
-/* OBSOLETE struct frame_info; */
-/* OBSOLETE struct frame_saved_regs; */
-/* OBSOLETE struct type; */
-/* OBSOLETE struct value; */
-/* OBSOLETE  */
-/* OBSOLETE /* Advance PC across any function entry prologue instructions */
-/* OBSOLETE    to reach some "real" code.  */ */
-/* OBSOLETE  */
-/* OBSOLETE extern CORE_ADDR d30v_skip_prologue (CORE_ADDR); */
-/* OBSOLETE #define SKIP_PROLOGUE(ip) (d30v_skip_prologue (ip)) */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE /* Stack grows downward.  */ */
-/* OBSOLETE #define INNER_THAN(lhs,rhs) ((lhs) < (rhs)) */
-/* OBSOLETE  */
-/* OBSOLETE /* for a breakpoint, use "dbt || nop" */ */
-/* OBSOLETE #define BREAKPOINT {0x00, 0xb0, 0x00, 0x00,\ */
-/* OBSOLETE                0x00, 0xf0, 0x00, 0x00} */
-/* OBSOLETE  */
-/* OBSOLETE /* If your kernel resets the pc after the trap happens you may need to */
-/* OBSOLETE    define this before including this file.  */ */
-/* OBSOLETE #define DECR_PC_AFTER_BREAK 0 */
-/* OBSOLETE  */
-/* OBSOLETE #define REGISTER_NAMES \ */
-/* OBSOLETE {   "r0",  "r1",  "r2",  "r3",  "r4",  "r5",  "r6",  "r7", \ */
-/* OBSOLETE     "r8",  "r9",  "r10", "r11", "r12", "r13", "r14", "r15",        \ */
-/* OBSOLETE     "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23",        \ */
-/* OBSOLETE     "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31",        \ */
-/* OBSOLETE     "r32", "r33", "r34", "r35", "r36", "r37", "r38", "r39",        \ */
-/* OBSOLETE     "r40", "r41", "r42", "r43", "r44", "r45", "r46", "r47",        \ */
-/* OBSOLETE     "r48", "r49", "r50", "r51", "r52", "r53", "r54", "r55",        \ */
-/* OBSOLETE     "r56", "r57", "r58", "r59", "r60", "r61", "r62", "r63",        \ */
-/* OBSOLETE     "spi", "spu", \ */
-/* OBSOLETE     "psw", "bpsw", "pc", "bpc", "dpsw", "dpc", "cr6", "rpt_c",     \ */
-/* OBSOLETE     "rpt_s", "rpt_e", "mod_s", "mod_e", "cr12", "cr13", "iba", "eit_vb",\ */
-/* OBSOLETE     "int_s", "int_m", "a0", "a1" \ */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE #define NUM_REGS 86 */
-/* OBSOLETE  */
-/* OBSOLETE /* Register numbers of various important registers. */
-/* OBSOLETE    Note that some of these values are "real" register numbers, */
-/* OBSOLETE    and correspond to the general registers of the machine, */
-/* OBSOLETE    and some are "phony" register numbers which are too large */
-/* OBSOLETE    to be actual register numbers as far as the user is concerned */
-/* OBSOLETE    but do serve to get the desired values when passed to read_register.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define R0_REGNUM  0 */
-/* OBSOLETE #define FP_REGNUM  61 */
-/* OBSOLETE #define LR_REGNUM  62 */
-/* OBSOLETE #define SP_REGNUM  63 */
-/* OBSOLETE #define SPI_REGNUM 64      /* Interrupt stack pointer */ */
-/* OBSOLETE #define SPU_REGNUM 65      /* User stack pointer */ */
-/* OBSOLETE #define CREGS_START        66 */
-/* OBSOLETE  */
-/* OBSOLETE #define PSW_REGNUM         (CREGS_START + 0)       /* psw, bpsw, or dpsw??? */ */
-/* OBSOLETE #define     PSW_SM (((unsigned long)0x80000000) >> 0)      /* Stack mode: 0/SPI */ */
-/* OBSOLETE                                                    /*             1/SPU */ */
-/* OBSOLETE #define     PSW_EA (((unsigned long)0x80000000) >> 2)      /* Execution status */ */
-/* OBSOLETE #define     PSW_DB (((unsigned long)0x80000000) >> 3)      /* Debug mode */ */
-/* OBSOLETE #define     PSW_DS (((unsigned long)0x80000000) >> 4)      /* Debug EIT status */ */
-/* OBSOLETE #define     PSW_IE (((unsigned long)0x80000000) >> 5)      /* Interrupt enable */ */
-/* OBSOLETE #define     PSW_RP (((unsigned long)0x80000000) >> 6)      /* Repeat enable */ */
-/* OBSOLETE #define     PSW_MD (((unsigned long)0x80000000) >> 7)      /* Modulo enable */ */
-/* OBSOLETE #define     PSW_F0 (((unsigned long)0x80000000) >> 17)     /* F0 flag */ */
-/* OBSOLETE #define     PSW_F1 (((unsigned long)0x80000000) >> 19)     /* F1 flag */ */
-/* OBSOLETE #define     PSW_F2 (((unsigned long)0x80000000) >> 21)     /* F2 flag */ */
-/* OBSOLETE #define     PSW_F3 (((unsigned long)0x80000000) >> 23)     /* F3 flag */ */
-/* OBSOLETE #define     PSW_S  (((unsigned long)0x80000000) >> 25)     /* Saturation flag */ */
-/* OBSOLETE #define     PSW_V  (((unsigned long)0x80000000) >> 27)     /* Overflow flag */ */
-/* OBSOLETE #define     PSW_VA (((unsigned long)0x80000000) >> 29)     /* Accum. overflow */ */
-/* OBSOLETE #define     PSW_C  (((unsigned long)0x80000000) >> 31)     /* Carry/Borrow flag */ */
-/* OBSOLETE  */
-/* OBSOLETE #define BPSW_REGNUM        (CREGS_START + 1)       /* Backup PSW (on interrupt) */ */
-/* OBSOLETE #define PC_REGNUM  (CREGS_START + 2)       /* pc, bpc, or dpc??? */ */
-/* OBSOLETE #define BPC_REGNUM         (CREGS_START + 3)       /* Backup PC (on interrupt) */ */
-/* OBSOLETE #define DPSW_REGNUM        (CREGS_START + 4)       /* Backup PSW (on debug trap) */ */
-/* OBSOLETE #define DPC_REGNUM         (CREGS_START + 5)       /* Backup PC (on debug trap) */ */
-/* OBSOLETE #define RPT_C_REGNUM       (CREGS_START + 7)       /* Loop count */ */
-/* OBSOLETE #define RPT_S_REGNUM       (CREGS_START + 8)       /* Loop start address */ */
-/* OBSOLETE #define RPT_E_REGNUM       (CREGS_START + 9)       /* Loop end address */ */
-/* OBSOLETE #define MOD_S_REGNUM       (CREGS_START + 10) */
-/* OBSOLETE #define MOD_E_REGNUM       (CREGS_START + 11) */
-/* OBSOLETE #define IBA_REGNUM (CREGS_START + 14)      /* Instruction break address */ */
-/* OBSOLETE #define EIT_VB_REGNUM      (CREGS_START + 15)      /* Vector base address */ */
-/* OBSOLETE #define INT_S_REGNUM       (CREGS_START + 16)      /* Interrupt status */ */
-/* OBSOLETE #define INT_M_REGNUM       (CREGS_START + 17)      /* Interrupt mask */ */
-/* OBSOLETE #define A0_REGNUM  84 */
-/* OBSOLETE #define A1_REGNUM  85 */
-/* OBSOLETE  */
-/* OBSOLETE /* Say how much memory is needed to store a copy of the register set */ */
-/* OBSOLETE #define REGISTER_BYTES    ((NUM_REGS - 2) * 4 + 2 * 8) */
-/* OBSOLETE  */
-/* OBSOLETE /* Index within `registers' of the first byte of the space for */
-/* OBSOLETE    register N.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define REGISTER_BYTE(N)  \ */
-/* OBSOLETE ( ((N) >= A0_REGNUM) ? ( ((N) - A0_REGNUM) * 8 + A0_REGNUM * 4 ) : ((N) * 4) ) */
-/* OBSOLETE  */
-/* OBSOLETE /* Number of bytes of storage in the actual machine representation */
-/* OBSOLETE    for register N.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define REGISTER_RAW_SIZE(N) ( ((N) >= A0_REGNUM) ? 8 : 4 ) */
-/* OBSOLETE  */
-/* OBSOLETE /* Number of bytes of storage in the program's representation */
-/* OBSOLETE    for register N.  */ */
-/* OBSOLETE #define REGISTER_VIRTUAL_SIZE(N) REGISTER_RAW_SIZE(N) */
-/* OBSOLETE  */
-/* OBSOLETE /* Largest value REGISTER_RAW_SIZE can have.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define MAX_REGISTER_RAW_SIZE 8 */
-/* OBSOLETE  */
-/* OBSOLETE /* Largest value REGISTER_VIRTUAL_SIZE can have.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define MAX_REGISTER_VIRTUAL_SIZE 8 */
-/* OBSOLETE  */
-/* OBSOLETE /* Return the GDB type object for the "standard" data type */
-/* OBSOLETE    of data in register N.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define REGISTER_VIRTUAL_TYPE(N) \ */
-/* OBSOLETE ( ((N) < A0_REGNUM ) ? builtin_type_long : builtin_type_long_long) */
-/* OBSOLETE  */
-/* OBSOLETE /* Writing to r0 is a noop (not an error or exception or anything like */
-/* OBSOLETE    that, however).  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define CANNOT_STORE_REGISTER(regno) ((regno) == R0_REGNUM) */
-/* OBSOLETE  */
-/* OBSOLETE void d30v_do_registers_info (int regnum, int fpregs); */
-/* OBSOLETE  */
-/* OBSOLETE #define DO_REGISTERS_INFO d30v_do_registers_info */
-/* OBSOLETE  */
-/* OBSOLETE /* Store the address of the place in which to copy the structure the */
-/* OBSOLETE    subroutine will return.  This is called from call_function.  */
-/* OBSOLETE  */
-/* OBSOLETE    We store structs through a pointer passed in R2 */ */
-/* OBSOLETE  */
-/* OBSOLETE #define STORE_STRUCT_RETURN(ADDR, SP) \ */
-/* OBSOLETE     { write_register (2, (ADDR));  } */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE /* Write into appropriate registers a function return value */
-/* OBSOLETE    of type TYPE, given in virtual format.   */
-/* OBSOLETE  */
-/* OBSOLETE    Things always get returned in R2/R3 */ */
-/* OBSOLETE  */
-/* OBSOLETE #define STORE_RETURN_VALUE(TYPE,VALBUF) \ */
-/* OBSOLETE   write_register_bytes (REGISTER_BYTE(2), VALBUF, TYPE_LENGTH (TYPE)) */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE /* Extract from an array REGBUF containing the (raw) register state */
-/* OBSOLETE    the address in which a function should return its structure value, */
-/* OBSOLETE    as a CORE_ADDR (or an expression that can be used as one).  */ */
-/* OBSOLETE #define DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (((CORE_ADDR *)(REGBUF))[2]) */
-/* OBSOLETE \f */
-/* OBSOLETE  */
-/* OBSOLETE /* Define other aspects of the stack frame.  */
-/* OBSOLETE    we keep a copy of the worked out return pc lying around, since it */
-/* OBSOLETE    is a useful bit of info */ */
-/* OBSOLETE  */
-/* OBSOLETE #define EXTRA_FRAME_INFO \ */
-/* OBSOLETE     CORE_ADDR return_pc; \ */
-/* OBSOLETE     CORE_ADDR dummy; \ */
-/* OBSOLETE     int frameless; \ */
-/* OBSOLETE     int size; */
-/* OBSOLETE  */
-/* OBSOLETE #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \ */
-/* OBSOLETE     d30v_init_extra_frame_info(fromleaf, fi) */
-/* OBSOLETE  */
-/* OBSOLETE extern void d30v_init_extra_frame_info (int fromleaf, struct frame_info *fi); */
-/* OBSOLETE  */
-/* OBSOLETE /* A macro that tells us whether the function invocation represented */
-/* OBSOLETE    by FI does not have a frame on the stack associated with it.  If it */
-/* OBSOLETE    does not, FRAMELESS is set to 1, else 0.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define FRAMELESS_FUNCTION_INVOCATION(FI) \ */
-/* OBSOLETE   (frameless_look_for_prologue (FI)) */
-/* OBSOLETE  */
-/* OBSOLETE CORE_ADDR d30v_frame_chain (struct frame_info *frame); */
-/* OBSOLETE #define FRAME_CHAIN(FRAME)       d30v_frame_chain(FRAME) */
-/* OBSOLETE extern int d30v_frame_chain_valid (CORE_ADDR, struct frame_info *); */
-/* OBSOLETE #define FRAME_CHAIN_VALID(chain, thisframe) d30v_frame_chain_valid (chain, thisframe) */
-/* OBSOLETE #define FRAME_SAVED_PC(FRAME)    ((FRAME)->return_pc) */
-/* OBSOLETE #define FRAME_ARGS_ADDRESS(fi)   (fi)->frame */
-/* OBSOLETE #define FRAME_LOCALS_ADDRESS(fi) (fi)->frame */
-/* OBSOLETE  */
-/* OBSOLETE void d30v_init_frame_pc (int fromleaf, struct frame_info *prev); */
-/* OBSOLETE #define INIT_FRAME_PC_FIRST(fromleaf, prev)        d30v_init_frame_pc(fromleaf, prev) */
-/* OBSOLETE #define INIT_FRAME_PC(fromleaf, prev)      /* nada */ */
-/* OBSOLETE  */
-/* OBSOLETE /* Immediately after a function call, return the saved pc.  We can't */ */
-/* OBSOLETE /* use frame->return_pc beause that is determined by reading R62 off the */ */
-/* OBSOLETE /* stack and that may not be written yet. */ */
-/* OBSOLETE  */
-/* OBSOLETE #define SAVED_PC_AFTER_CALL(frame) (read_register(LR_REGNUM)) */
-/* OBSOLETE  */
-/* OBSOLETE /* Set VAL to the number of args passed to frame described by FI. */
-/* OBSOLETE    Can set VAL to -1, meaning no way to tell.  */ */
-/* OBSOLETE /* We can't tell how many args there are */ */
-/* OBSOLETE  */
-/* OBSOLETE #define FRAME_NUM_ARGS(fi) (-1) */
-/* OBSOLETE  */
-/* OBSOLETE /* Return number of bytes at start of arglist that are not really args.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define FRAME_ARGS_SKIP 0 */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE /* Put here the code to store, into a struct frame_saved_regs, */
-/* OBSOLETE    the addresses of the saved registers of frame described by FRAME_INFO. */
-/* OBSOLETE    This includes special registers such as pc and fp saved in special */
-/* OBSOLETE    ways in the stack frame.  sp is even more special: */
-/* OBSOLETE    the address we return for it IS the sp for the next frame.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs)            \ */
-/* OBSOLETE    d30v_frame_find_saved_regs(frame_info, &(frame_saved_regs)) */
-/* OBSOLETE  */
-/* OBSOLETE extern void d30v_frame_find_saved_regs (struct frame_info *, */
-/* OBSOLETE                                    struct frame_saved_regs *); */
-/* OBSOLETE  */
-/* OBSOLETE /* DUMMY FRAMES.  Need these to support inferior function calls. */
-/* OBSOLETE    They work like this on D30V: */
-/* OBSOLETE    First we set a breakpoint at 0 or __start. */
-/* OBSOLETE    Then we push all the registers onto the stack. */
-/* OBSOLETE    Then put the function arguments in the proper registers and set r13 */
-/* OBSOLETE    to our breakpoint address. */
-/* OBSOLETE    Finally call the function directly. */
-/* OBSOLETE    When it hits the breakpoint, clear the break point and pop the old */
-/* OBSOLETE    register contents off the stack. */ */
-/* OBSOLETE  */
-/* OBSOLETE #define CALL_DUMMY         { 0 } */
-/* OBSOLETE #define PUSH_DUMMY_FRAME */
-/* OBSOLETE #define CALL_DUMMY_START_OFFSET    0 */
-/* OBSOLETE #define CALL_DUMMY_LOCATION        AT_ENTRY_POINT */
-/* OBSOLETE #define CALL_DUMMY_BREAKPOINT_OFFSET (0) */
-/* OBSOLETE  */
-/* OBSOLETE extern CORE_ADDR d30v_call_dummy_address (void); */
-/* OBSOLETE #define CALL_DUMMY_ADDRESS() d30v_call_dummy_address() */
-/* OBSOLETE  */
-/* OBSOLETE #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ */
-/* OBSOLETE sp = d30v_fix_call_dummy (dummyname, pc, fun, nargs, args, type, gcc_p) */
-/* OBSOLETE  */
-/* OBSOLETE #define PC_IN_CALL_DUMMY(pc, sp, frame_address)    ( pc == IMEM_START + 4 ) */
-/* OBSOLETE  */
-/* OBSOLETE extern CORE_ADDR d30v_fix_call_dummy (char *, CORE_ADDR, CORE_ADDR, */
-/* OBSOLETE                                  int, struct value **, */
-/* OBSOLETE                                  struct type *, int); */
-/* OBSOLETE #define PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr) \ */
-/* OBSOLETE   (d30v_push_arguments((nargs), (args), (sp), (struct_return), (struct_addr))) */
-/* OBSOLETE extern CORE_ADDR d30v_push_arguments (int, struct value **, CORE_ADDR, int, */
-/* OBSOLETE                                  CORE_ADDR); */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE /* Extract from an array REGBUF containing the (raw) register state */
-/* OBSOLETE    a function return value of type TYPE, and copy that, in virtual format, */
-/* OBSOLETE    into VALBUF.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ */
-/* OBSOLETE d30v_extract_return_value(TYPE, REGBUF, VALBUF) */
-/* OBSOLETE extern void d30v_extract_return_value (struct type *, char *, char *); */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE /* Discard from the stack the innermost frame, */
-/* OBSOLETE    restoring all saved registers.  */ */
-/* OBSOLETE #define POP_FRAME d30v_pop_frame(); */
-/* OBSOLETE extern void d30v_pop_frame (void); */
-/* OBSOLETE  */
-/* OBSOLETE #define REGISTER_SIZE 4 */
-/* OBSOLETE  */
-/* OBSOLETE /* Need to handle SP special, as we need to select between spu and spi.  */ */
-/* OBSOLETE #if 0                              /* XXX until the simulator is fixed */ */
-/* OBSOLETE #define TARGET_READ_SP() ((read_register (PSW_REGNUM) & PSW_SM) \ */
-/* OBSOLETE                      ? read_register (SPU_REGNUM) \ */
-/* OBSOLETE                      : read_register (SPI_REGNUM)) */
-/* OBSOLETE  */
-/* OBSOLETE #define TARGET_WRITE_SP(val) ((read_register (PSW_REGNUM) & PSW_SM) \ */
-/* OBSOLETE                      ? write_register (SPU_REGNUM, (val)) \ */
-/* OBSOLETE                      : write_register (SPI_REGNUM, (val))) */
-/* OBSOLETE #endif */
-/* OBSOLETE  */
-/* OBSOLETE #define STACK_ALIGN(len)   (((len) + 7 ) & ~7) */
-/* OBSOLETE  */
-/* OBSOLETE /* Turn this on to cause remote-sim.c to use sim_set/clear_breakpoint. */ */
-/* OBSOLETE  */
-/* OBSOLETE #define SIM_HAS_BREAKPOINTS */
-/* OBSOLETE  */
-/* OBSOLETE #endif /* TM_D30V_H */ */
diff --git a/gdb/config/fr30/fr30.mt b/gdb/config/fr30/fr30.mt
deleted file mode 100644 (file)
index b702970..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-# OBSOLETE # Target: Fujitsu FR30 processor
-# OBSOLETE TDEPFILES= fr30-tdep.o
-# OBSOLETE TM_FILE= tm-fr30.h
-# OBSOLETE SIM_OBS = remote-sim.o
-# OBSOLETE SIM = ../sim/fr30/libsim.a
diff --git a/gdb/config/fr30/tm-fr30.h b/gdb/config/fr30/tm-fr30.h
deleted file mode 100644 (file)
index 7a58337..0000000
+++ /dev/null
@@ -1,233 +0,0 @@
-// OBSOLETE /* Parameters for execution on a Fujitsu FR30 processor.
-// OBSOLETE    Copyright 1999, 2000 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE #define FR30_GENREGS               16
-// OBSOLETE #define FR30_DEDICATEDREGS 8
-// OBSOLETE #define FR30_REGSIZE               4       /* bytes */
-// OBSOLETE 
-// OBSOLETE #define NUM_REGS (FR30_GENREGS + FR30_DEDICATEDREGS)
-// OBSOLETE #define REGISTER_BYTES ((FR30_GENREGS + FR30_DEDICATEDREGS)*FR30_REGSIZE)
-// OBSOLETE 
-// OBSOLETE /* Index within `registers' of the first byte of the space for
-// OBSOLETE    register N.  */
-// OBSOLETE #define REGISTER_BYTE(N) ((N) * FR30_REGSIZE)
-// OBSOLETE 
-// OBSOLETE /* Initializer for an array of names of registers.
-// OBSOLETE    There should be NUM_REGS strings in this initializer.  */
-// OBSOLETE #define REGISTER_NAMES \
-// OBSOLETE { "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", \
-// OBSOLETE   "r9", "r10", "r11", "r12", "r13", "r14", "r15", \
-// OBSOLETE   "pc", "ps", "tbr", "rp", "ssp", "usp", "mdh", "mdl" }
-// OBSOLETE 
-// OBSOLETE /* Offset from address of function to start of its code.
-// OBSOLETE    Zero on most machines.  */
-// OBSOLETE #define FUNCTION_START_OFFSET 0
-// OBSOLETE 
-// OBSOLETE /* Amount PC must be decremented by after a breakpoint.
-// OBSOLETE    This is often the number of bytes in BREAKPOINT
-// OBSOLETE    but not always.  */
-// OBSOLETE 
-// OBSOLETE #define DECR_PC_AFTER_BREAK 0
-// OBSOLETE 
-// OBSOLETE /* Stack grows downward.  */
-// OBSOLETE 
-// OBSOLETE #define INNER_THAN(lhs,rhs) ((lhs) < (rhs))
-// OBSOLETE 
-// OBSOLETE #define R0_REGNUM  0
-// OBSOLETE #define R1_REGNUM  1
-// OBSOLETE #define R2_REGNUM  2
-// OBSOLETE #define R3_REGNUM  3
-// OBSOLETE #define R4_REGNUM  4
-// OBSOLETE #define R5_REGNUM  5
-// OBSOLETE #define R6_REGNUM  6
-// OBSOLETE #define R7_REGNUM  7
-// OBSOLETE #define R8_REGNUM  8
-// OBSOLETE #define R9_REGNUM  9
-// OBSOLETE #define R10_REGNUM  10
-// OBSOLETE #define R11_REGNUM  11
-// OBSOLETE #define R12_REGNUM  12
-// OBSOLETE #define R13_REGNUM  13
-// OBSOLETE #define FP_REGNUM 14               /* Frame pointer */
-// OBSOLETE #define SP_REGNUM 15               /* Stack pointer */
-// OBSOLETE #define PC_REGNUM 16               /* Program counter */
-// OBSOLETE #define RP_REGNUM 19               /* Return pointer */
-// OBSOLETE 
-// OBSOLETE #define FIRST_ARGREG       R4_REGNUM       /* first arg (or struct ret val addr) */
-// OBSOLETE #define LAST_ARGREG        R7_REGNUM       /* fourth (or third arg) */
-// OBSOLETE #define RETVAL_REG R4_REGNUM       /* return vaue */
-// OBSOLETE 
-// OBSOLETE /* Say how long (ordinary) registers are.  This is a piece of bogosity
-// OBSOLETE    used in push_word and a few other places; REGISTER_RAW_SIZE is the
-// OBSOLETE    real way to know how big a register is.  */
-// OBSOLETE #define REGISTER_SIZE FR30_REGSIZE
-// OBSOLETE 
-// OBSOLETE /* Number of bytes of storage in the actual machine representation
-// OBSOLETE    for register N.  */
-// OBSOLETE #define REGISTER_RAW_SIZE(N) FR30_REGSIZE
-// OBSOLETE 
-// OBSOLETE /* Largest value REGISTER_RAW_SIZE can have.  */
-// OBSOLETE #define MAX_REGISTER_RAW_SIZE FR30_REGSIZE
-// OBSOLETE 
-// OBSOLETE /* Number of bytes of storage in the program's representation
-// OBSOLETE    for register N.  */
-// OBSOLETE #define REGISTER_VIRTUAL_SIZE(N) REGISTER_RAW_SIZE(N)
-// OBSOLETE 
-// OBSOLETE /* Largest value REGISTER_VIRTUAL_SIZE can have.  */
-// OBSOLETE #define MAX_REGISTER_VIRTUAL_SIZE FR30_REGSIZE
-// OBSOLETE 
-// OBSOLETE extern void fr30_pop_frame (void);
-// OBSOLETE #define POP_FRAME fr30_pop_frame()
-// OBSOLETE 
-// OBSOLETE #define USE_GENERIC_DUMMY_FRAMES 1
-// OBSOLETE #define CALL_DUMMY                   {0}
-// OBSOLETE #define CALL_DUMMY_START_OFFSET      (0)
-// OBSOLETE #define CALL_DUMMY_BREAKPOINT_OFFSET (0)
-// OBSOLETE #define CALL_DUMMY_LOCATION          AT_ENTRY_POINT
-// OBSOLETE #define FIX_CALL_DUMMY(DUMMY, START, FUNADDR, NARGS, ARGS, TYPE, GCCP)
-// OBSOLETE #define CALL_DUMMY_ADDRESS()         entry_point_address ()
-// OBSOLETE #define PUSH_RETURN_ADDRESS(PC, SP)  (write_register(RP_REGNUM, CALL_DUMMY_ADDRESS()), SP)
-// OBSOLETE #define PUSH_DUMMY_FRAME   generic_push_dummy_frame ()
-// OBSOLETE 
-// OBSOLETE /* Number of bytes at start of arglist that are not really args.  */
-// OBSOLETE #define FRAME_ARGS_SKIP 0
-// OBSOLETE 
-// OBSOLETE /* Return the GDB type object for the "standard" data type
-// OBSOLETE    of data in register N.  */
-// OBSOLETE #define REGISTER_VIRTUAL_TYPE(REG) builtin_type_int
-// OBSOLETE 
-// OBSOLETE /* Extract from an array REGBUF containing the (raw) register state
-// OBSOLETE    a function return value of type TYPE, and copy that, in virtual format,
-// OBSOLETE    into VALBUF.  */
-// OBSOLETE #define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \
-// OBSOLETE     memcpy (VALBUF, REGBUF + REGISTER_BYTE(RETVAL_REG) +  \
-// OBSOLETE    (TYPE_LENGTH(TYPE) < 4 ? 4 - TYPE_LENGTH(TYPE) : 0), TYPE_LENGTH (TYPE))
-// OBSOLETE 
-// OBSOLETE /* Extract from an array REGBUF containing the (raw) register state
-// OBSOLETE    the address in which a function should return its structure value,
-// OBSOLETE    as a CORE_ADDR (or an expression that can be used as one).  */
-// OBSOLETE #define DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \
-// OBSOLETE   extract_address (REGBUF + REGISTER_BYTE (RETVAL_REG), \
-// OBSOLETE               REGISTER_RAW_SIZE (RETVAL_REG))
-// OBSOLETE 
-// OBSOLETE #define STORE_STRUCT_RETURN(ADDR, SP) \
-// OBSOLETE   { write_register (RETVAL_REG, (ADDR)); }
-// OBSOLETE 
-// OBSOLETE #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame)
-// OBSOLETE #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame)
-// OBSOLETE 
-// OBSOLETE /* Return number of args passed to a frame.
-// OBSOLETE    Can return -1, meaning no way to tell.  */
-// OBSOLETE #define FRAME_NUM_ARGS(fi) (-1)
-// OBSOLETE 
-// OBSOLETE /* Forward decls for prototypes */
-// OBSOLETE struct frame_info;
-// OBSOLETE struct frame_saved_regs;
-// OBSOLETE struct type;
-// OBSOLETE struct value;
-// OBSOLETE 
-// OBSOLETE #define EXTRA_FRAME_INFO \
-// OBSOLETE   struct frame_saved_regs fsr;  \
-// OBSOLETE   int framesize;           \
-// OBSOLETE   int frameoffset;         \
-// OBSOLETE   int framereg;
-// OBSOLETE 
-// OBSOLETE extern CORE_ADDR fr30_frame_chain (struct frame_info *fi);
-// OBSOLETE #define FRAME_CHAIN(fi) fr30_frame_chain (fi)
-// OBSOLETE 
-// OBSOLETE extern CORE_ADDR fr30_frame_saved_pc (struct frame_info *);
-// OBSOLETE #define FRAME_SAVED_PC(fi) (fr30_frame_saved_pc (fi))
-// OBSOLETE 
-// OBSOLETE #define SAVED_PC_AFTER_CALL(fi) read_register (RP_REGNUM)
-// OBSOLETE 
-// OBSOLETE extern CORE_ADDR fr30_skip_prologue (CORE_ADDR pc);
-// OBSOLETE #define SKIP_PROLOGUE(pc) (fr30_skip_prologue (pc))
-// OBSOLETE 
-// OBSOLETE /* Write into appropriate registers a function return value of type
-// OBSOLETE    TYPE, given in virtual format.  VALBUF is in the target byte order;
-// OBSOLETE    it's typically the VALUE_CONTENTS of some struct value, and those
-// OBSOLETE    are in the target's byte order.  */
-// OBSOLETE extern void fr30_store_return_value (struct type *type, char *valbuf);
-// OBSOLETE 
-// OBSOLETE #define STORE_RETURN_VALUE(TYPE,VALBUF) \
-// OBSOLETE   (fr30_store_return_value ((TYPE), (VALBUF)))
-// OBSOLETE 
-// OBSOLETE /* Put here the code to store, into a struct frame_saved_regs,
-// OBSOLETE    the addresses of the saved registers of frame described by FRAME_INFO.
-// OBSOLETE    This includes special registers such as pc and fp saved in special
-// OBSOLETE    ways in the stack frame.  sp is even more special:
-// OBSOLETE    the address we return for it IS the sp for the next frame.  */
-// OBSOLETE #define FRAME_FIND_SAVED_REGS(fi, regaddr) regaddr = fi->fsr
-// OBSOLETE 
-// OBSOLETE /* Use INT #BREAKPOINT_INTNUM instruction for breakpoint */
-// OBSOLETE #define FR30_BREAKOP       0x1f    /* opcode, type D instruction */
-// OBSOLETE #define BREAKPOINT_INTNUM 9        /* one of the reserved traps */
-// OBSOLETE #define BREAKPOINT {FR30_BREAKOP, BREAKPOINT_INTNUM}
-// OBSOLETE 
-// OBSOLETE /* Define this for Wingdb */
-// OBSOLETE #define TARGET_FR30
-// OBSOLETE 
-// OBSOLETE /* Define other aspects of the stack frame.  */
-// OBSOLETE 
-// OBSOLETE /* An expression that tells us whether the function invocation represented
-// OBSOLETE    by FI does not have a frame on the stack associated with it.  */
-// OBSOLETE extern int fr30_frameless_function_invocation (struct frame_info *frame);
-// OBSOLETE #define FRAMELESS_FUNCTION_INVOCATION(FI) (fr30_frameless_function_invocation (FI));
-// OBSOLETE 
-// OBSOLETE extern void fr30_init_extra_frame_info (struct frame_info *fi);
-// OBSOLETE #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) fr30_init_extra_frame_info (fi)
-// OBSOLETE 
-// OBSOLETE #define FRAME_CHAIN_VALID(FP, FI)  generic_file_frame_chain_valid (FP, FI)
-// OBSOLETE 
-// OBSOLETE extern CORE_ADDR
-// OBSOLETE fr30_push_arguments (int nargs, struct value **args, CORE_ADDR sp,
-// OBSOLETE                 int struct_return, CORE_ADDR struct_addr);
-// OBSOLETE #define PUSH_ARGUMENTS(NARGS, ARGS, SP, STRUCT_RETURN, STRUCT_ADDR) \
-// OBSOLETE   (fr30_push_arguments (NARGS, ARGS, SP, STRUCT_RETURN, STRUCT_ADDR))
-// OBSOLETE 
-// OBSOLETE #define PC_IN_CALL_DUMMY(PC, SP, FP) generic_pc_in_call_dummy (PC, SP, FP)
-// OBSOLETE 
-// OBSOLETE /* Fujitsu's ABI requires all structs to be passed using a pointer.
-// OBSOLETE    That is obviously not very efficient, so I am leaving the definitions
-// OBSOLETE    to make gdb work with GCC style struct passing, in case we decide
-// OBSOLETE    to go for better performance, rather than for compatibility with
-// OBSOLETE    Fujitsu (just change STRUCT_ALWAYS_BY_ADDR to 0) */
-// OBSOLETE 
-// OBSOLETE #define STRUCT_ALWAYS_BY_ADDR      1
-// OBSOLETE 
-// OBSOLETE #if(STRUCT_ALWAYS_BY_ADDR)
-// OBSOLETE #define REG_STRUCT_HAS_ADDR(gcc_p,type)            1
-// OBSOLETE #else
-// OBSOLETE /* more standard GCC (optimized) */
-// OBSOLETE #define REG_STRUCT_HAS_ADDR(gcc_p,type)            \
-// OBSOLETE            ((TYPE_LENGTH(type) > 4) && (TYPE_LENGTH(type) & 0x3))
-// OBSOLETE #endif
-// OBSOLETE /* alway return struct by value by input pointer */
-// OBSOLETE #define USE_STRUCT_CONVENTION(GCC_P, TYPE) 1
-// OBSOLETE 
-// OBSOLETE /* The stack should always be aligned on a four-word boundary.  */
-// OBSOLETE #define STACK_ALIGN(len) (((len) + 3) & ~3)
-// OBSOLETE 
-// OBSOLETE /* I think the comment about this in value_arg_coerce is wrong; this
-// OBSOLETE    should be true on any system where you can rely on the prototyping
-// OBSOLETE    information.  When this is true, value_arg_coerce will promote
-// OBSOLETE    floats to doubles iff the function is not prototyped.  */
-// OBSOLETE #define COERCE_FLOAT_TO_DOUBLE(formal, actual) (1)
diff --git a/gdb/config/i386/i386aix.mh b/gdb/config/i386/i386aix.mh
deleted file mode 100644 (file)
index df571bf..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-# OBSOLETE # Host: IBM PS/2 (i386) running AIX PS/2
-# OBSOLETE 
-# OBSOLETE XM_FILE= xm-i386aix.h
-# OBSOLETE 
-# OBSOLETE NAT_FILE= nm-i386aix.h
-# OBSOLETE NATDEPFILES= infptrace.o inftarg.o fork-child.o corelow.o i386aix-nat.o
-# OBSOLETE 
-# OBSOLETE # Use gcc. Only coff output can be debugged
-# OBSOLETE CC=gcc
diff --git a/gdb/config/i386/i386aix.mt b/gdb/config/i386/i386aix.mt
deleted file mode 100644 (file)
index 57d124d..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-# OBSOLETE # This port, for aix ps/2 (i386), will allow you to debug the coff
-# OBSOLETE # output generated gcc-2.3.3 + gas.  It will not understand IBM's
-# OBSOLETE # proprietary debug info.
-# OBSOLETE #
-# OBSOLETE # Target: IBM PS/2 (i386) running AIX PS/2
-# OBSOLETE TDEPFILES= i386-tdep.o i387-tdep.o
-# OBSOLETE TM_FILE= tm-i386aix.h
diff --git a/gdb/config/i386/i386m3.mh b/gdb/config/i386/i386m3.mh
deleted file mode 100644 (file)
index 7b840e2..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-# OBSOLETE # Host: Intel 386 running Mach3
-# OBSOLETE 
-# OBSOLETE NATDEPFILES= i386m3-nat.o m3-nat.o fork-child.o i387-tdep.o core-aout.o
-# OBSOLETE NAT_CLIBS= -lmachid -lnetname -lmach
-# OBSOLETE XM_FILE= xm-i386m3.h
-# OBSOLETE NAT_FILE= nm-m3.h
diff --git a/gdb/config/i386/i386m3.mt b/gdb/config/i386/i386m3.mt
deleted file mode 100644 (file)
index 550e92e..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: Intel 386 with a.out under Mach 3
-# OBSOLETE TDEPFILES= i386-tdep.o 
-# OBSOLETE TM_FILE= tm-i386m3.h
diff --git a/gdb/config/i386/i386mach.mh b/gdb/config/i386/i386mach.mh
deleted file mode 100644 (file)
index 4e4e097..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-# OBSOLETE # Host: Intel 386 running Mach
-# OBSOLETE 
-# OBSOLETE # This is for mach2, maybe, or is obsolete (and seems to have only
-# OBSOLETE # host and native, not target).  Once we get the mach3 stuff working,
-# OBSOLETE # I think it can go away.
-# OBSOLETE 
-# OBSOLETE XM_FILE= xm-i386mach.h
-# OBSOLETE NAT_FILE= nm-i386mach.h
-# OBSOLETE NATDEPFILES= infptrace.o inftarg.o fork-child.o i386mach-nat.o
diff --git a/gdb/config/i386/i386os9k.mt b/gdb/config/i386/i386os9k.mt
deleted file mode 100644 (file)
index 939e9e2..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: Intel 386 running OS9000
-# OBSOLETE TDEPFILES= i386-tdep.o remote-os9k.o
-# OBSOLETE TM_FILE= tm-i386os9k.h
diff --git a/gdb/config/i386/nm-i386aix.h b/gdb/config/i386/nm-i386aix.h
deleted file mode 100644 (file)
index 08f0779..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-// OBSOLETE /* Native support for i386 aix ps/2.
-// OBSOLETE    Copyright 1986, 1987, 1989, 1992, 1993 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Changes for IBM AIX PS/2 by Minh Tran-Le (tranle@intellicorp.com)
-// OBSOLETE  * Revision:     5-May-93 00:11:35
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE #ifndef NM_I386AIX_H
-// OBSOLETE #define NM_I386AIX_H 1
-// OBSOLETE 
-// OBSOLETE /* code to execute to print interesting information about the
-// OBSOLETE  * floating point processor (if any)
-// OBSOLETE  * No need to define if there is nothing to do.
-// OBSOLETE  */
-// OBSOLETE #define FLOAT_INFO { i386_float_info (); }
-// OBSOLETE 
-// OBSOLETE /* This is the amount to subtract from u.u_ar0
-// OBSOLETE    to get the offset in the core file of the register values.  */
-// OBSOLETE #undef  KERNEL_U_ADDR
-// OBSOLETE #define KERNEL_U_ADDR 0xf03fd000
-// OBSOLETE 
-// OBSOLETE /* Override copies of {fetch,store}_inferior_registers in infptrace.c.  */
-// OBSOLETE #define FETCH_INFERIOR_REGISTERS
-// OBSOLETE 
-// OBSOLETE #endif /* NM_I386AIX_H */
diff --git a/gdb/config/i386/nm-i386mach.h b/gdb/config/i386/nm-i386mach.h
deleted file mode 100644 (file)
index 21f3c61..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-// OBSOLETE /* Native definitions for Mach on an Intel 386
-// OBSOLETE    Copyright 1986, 1987, 1989, 1991, 1992, 1996
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE /* Do implement the attach and detach commands.  */
-// OBSOLETE /* #define ATTACH_DETACH        1 */
-// OBSOLETE 
-// OBSOLETE /* Override copies of {fetch,store}_inferior_registers in infptrace.c.  */
-// OBSOLETE #define FETCH_INFERIOR_REGISTERS
-// OBSOLETE 
-// OBSOLETE #define CHILD_PREPARE_TO_STORE() read_register_bytes (0, NULL, REGISTER_BYTES)
diff --git a/gdb/config/i386/nm-m3.h b/gdb/config/i386/nm-m3.h
deleted file mode 100644 (file)
index 87d587b..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-// OBSOLETE /* Native-dependent definitions for Intel 386 running Mach 3.
-// OBSOLETE    Copyright 1994 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* Include the generic Mach 3 definitions.  */
-// OBSOLETE 
-// OBSOLETE #include "config/nm-m3.h"
diff --git a/gdb/config/i386/tm-i386aix.h b/gdb/config/i386/tm-i386aix.h
deleted file mode 100644 (file)
index fe11420..0000000
+++ /dev/null
@@ -1,48 +0,0 @@
-// OBSOLETE /* Macro defintions for IBM AIX PS/2 (i386).
-// OBSOLETE    Copyright 1986, 1987, 1989, 1992, 1993, 1994, 1995, 2000
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* Changes for IBM AIX PS/2 by Minh Tran-Le (tranle@intellicorp.com).  */
-// OBSOLETE 
-// OBSOLETE #ifndef TM_I386AIX_H
-// OBSOLETE #define TM_I386AIX_H 1
-// OBSOLETE 
-// OBSOLETE #include "i386/tm-i386.h"
-// OBSOLETE #include <sys/reg.h>
-// OBSOLETE 
-// OBSOLETE #ifndef I386
-// OBSOLETE #define I386 1
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE /* AIX/i386 has FPU support.  However, the native configuration (which
-// OBSOLETE    is the only supported configuration) doesn't make the FPU control
-// OBSOLETE    registers available.  Override the appropriate symbols such that
-// OBSOLETE    only the normal FPU registers are included in GDB's register array.  */
-// OBSOLETE 
-// OBSOLETE #undef NUM_FPREGS
-// OBSOLETE #define NUM_FPREGS (8)
-// OBSOLETE 
-// OBSOLETE #undef NUM_REGS
-// OBSOLETE #define NUM_REGS (NUM_GREGS + NUM_FPREGS)
-// OBSOLETE 
-// OBSOLETE #undef REGISTER_BYTES
-// OBSOLETE #define REGISTER_BYTES (SIZEOF_GREGS + SIZEOF_FPU_REGS)
-// OBSOLETE 
-// OBSOLETE #endif /* TM_I386AIX_H */
diff --git a/gdb/config/i386/tm-i386m3.h b/gdb/config/i386/tm-i386m3.h
deleted file mode 100644 (file)
index cadd5cd..0000000
+++ /dev/null
@@ -1,56 +0,0 @@
-// OBSOLETE /* Macro definitions for i386, Mach 3.0
-// OBSOLETE    Copyright 1992, 1993, 1995, 1999 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* Include common definitions for Mach3 systems */
-// OBSOLETE #include "config/nm-m3.h"
-// OBSOLETE 
-// OBSOLETE /* Define offsets to access CPROC stack when it does not have
-// OBSOLETE  * a kernel thread.
-// OBSOLETE  */
-// OBSOLETE #define MACHINE_CPROC_SP_OFFSET 20
-// OBSOLETE #define MACHINE_CPROC_PC_OFFSET 16
-// OBSOLETE #define MACHINE_CPROC_FP_OFFSET 12
-// OBSOLETE 
-// OBSOLETE /* Thread flavors used in re-setting the T bit.
-// OBSOLETE  * @@ this is also bad for cross debugging.
-// OBSOLETE  */
-// OBSOLETE #define TRACE_FLAVOR               i386_THREAD_STATE
-// OBSOLETE #define TRACE_FLAVOR_SIZE  i386_THREAD_STATE_COUNT
-// OBSOLETE #define TRACE_SET(x,state) \
-// OBSOLETE    ((struct i386_thread_state *)state)->efl |= 0x100
-// OBSOLETE #define TRACE_CLEAR(x,state) \
-// OBSOLETE    ((((struct i386_thread_state *)state)->efl &= ~0x100), 1)
-// OBSOLETE 
-// OBSOLETE /* we can do it */
-// OBSOLETE #define ATTACH_DETACH 1
-// OBSOLETE 
-// OBSOLETE /* Sigh. There should be a file for i386 but no sysv stuff in it */
-// OBSOLETE #include "i386/tm-i386.h"
-// OBSOLETE 
-// OBSOLETE /* I want to test this float info code. See comment in tm-i386v.h */
-// OBSOLETE #undef FLOAT_INFO
-// OBSOLETE #define FLOAT_INFO { i386_mach3_float_info (); }
-// OBSOLETE 
-// OBSOLETE /* Address of end of stack space.
-// OBSOLETE  * for MACH, see <machine/vmparam.h>
-// OBSOLETE  * @@@ I don't know what is in the 5 ints...
-// OBSOLETE  */
-// OBSOLETE #undef  STACK_END_ADDR
-// OBSOLETE #define STACK_END_ADDR (0xc0000000-sizeof(int [5]))
diff --git a/gdb/config/i386/tm-i386mk.h b/gdb/config/i386/tm-i386mk.h
deleted file mode 100644 (file)
index 74355a8..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-// OBSOLETE /* Macro definitions for i386, Mach 3.0, OSF 1/MK
-// OBSOLETE    Copyright 1992, 1993, 2000 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* Until OSF switches to a newer Mach kernel that has
-// OBSOLETE  * a different get_emul_vector() interface.
-// OBSOLETE  */
-// OBSOLETE #define MK67 1
-// OBSOLETE 
-// OBSOLETE #include "i386/tm-i386m3.h"
-// OBSOLETE 
-// OBSOLETE /* FIMXE: kettenis/2000-03-26: On OSF 1, `long double' is equivalent
-// OBSOLETE    to `double'.  However, I'm not sure what is the consequence of:
-// OBSOLETE 
-// OBSOLETE    #define TARGET_LONG_DOUBLE_FORMAT TARGET_DOUBLE_FORMAT
-// OBSOLETE    #define TARGET_LONG_DOUBLE_BIT TARGET_DOUBLE_BIT
-// OBSOLETE 
-// OBSOLETE    So I'll go with the current status quo instead.  It looks like this
-// OBSOLETE    target won't compile anyway.  Perhaps it should be obsoleted?  */
-// OBSOLETE    
-// OBSOLETE #undef TARGET_LONG_DOUBLE_FORMAT
-// OBSOLETE #undef TARGET_LONG_DOUBLE_BIT
diff --git a/gdb/config/i386/xm-i386aix.h b/gdb/config/i386/xm-i386aix.h
deleted file mode 100644 (file)
index 03cb86c..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-// OBSOLETE /* Macro defintions for AIX PS/2 (i386)
-// OBSOLETE    Copyright 1986, 1987, 1989, 1992, 1993 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Changed for IBM AIX ps/2 by Minh Tran Le (tranle@intellicorp.com)
-// OBSOLETE  * Revision:    23-Oct-92 17:42:49
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE #include "i386/xm-i386v.h"
-// OBSOLETE 
-// OBSOLETE #undef HAVE_TERMIO
-// OBSOLETE #define HAVE_SGTTY
diff --git a/gdb/config/i386/xm-i386m3.h b/gdb/config/i386/xm-i386m3.h
deleted file mode 100644 (file)
index da44215..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-// OBSOLETE /* Definitions to make GDB run on Mach 3 on an Intel 386
-// OBSOLETE    Copyright 1986, 1987, 1989, 1991, 1993, 1994, 1996
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* Do implement the attach and detach commands.  */
-// OBSOLETE #define ATTACH_DETACH      1
-// OBSOLETE 
-// OBSOLETE /* Not needeed */
-// OBSOLETE #define KERNEL_U_ADDR 0
-// OBSOLETE 
-// OBSOLETE #ifndef EMULATOR_BASE
-// OBSOLETE /* For EMULATOR_BASE and EMULATOR_END.
-// OBSOLETE  * OSF 1/MK has different values in some other place.
-// OBSOLETE  */
-// OBSOLETE #include <machine/vmparam.h>
-// OBSOLETE #endif /* EMULATOR_BASE */
diff --git a/gdb/config/i386/xm-i386mach.h b/gdb/config/i386/xm-i386mach.h
deleted file mode 100644 (file)
index b36c79c..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-// OBSOLETE /* Definitions to make GDB run on Mach on an Intel 386
-// OBSOLETE    Copyright 1986, 1987, 1989, 1991, 1992, 1994, 1996, 2001
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* This is the amount to subtract from u.u_ar0
-// OBSOLETE    to get the offset in the core file of the register values.  */
-// OBSOLETE 
-// OBSOLETE #define KERNEL_U_ADDR (0x80000000 - (UPAGES * NBPG))
-// OBSOLETE 
-// OBSOLETE /* <errno.h> only defines this if __STDC__!!! */
-// OBSOLETE extern int errno;
diff --git a/gdb/config/i386/xm-i386mk.h b/gdb/config/i386/xm-i386mk.h
deleted file mode 100644 (file)
index 4609604..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// OBSOLETE /* Definitions to make GDB run on Mach 3 OSF 1/MK on an Intel 386
-// OBSOLETE    Copyright 1992, 1993, 1998 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #define HAVE_TERMIO        1
-// OBSOLETE 
-// OBSOLETE #define EMULATOR_BASE      0xa0000000
-// OBSOLETE #define EMULATOR_END       0xa0040000
-// OBSOLETE 
-// OBSOLETE #include "i386/xm-i386m3.h"
diff --git a/gdb/config/i960/mon960.mt b/gdb/config/i960/mon960.mt
deleted file mode 100644 (file)
index c735d94..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-# OBSOLETE # Target: Intel 960 rom monitor
-# OBSOLETE TDEPFILES= i960-tdep.o monitor.o mon960-rom.o ttyflush.o xmodem.o dsrec.o
-# OBSOLETE TM_FILE= tm-mon960.h
-# OBSOLETE SIM_OBS = remote-sim.o
-# OBSOLETE SIM = ../sim/i960/libsim.a
diff --git a/gdb/config/i960/nindy960.mt b/gdb/config/i960/nindy960.mt
deleted file mode 100644 (file)
index 5ed15a8..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: Intel 80960, in an embedded system under the NINDY monitor
-# OBSOLETE TDEPFILES= i960-tdep.o nindy-tdep.o remote-nindy.o nindy.o Onindy.o ttyflush.o
-# OBSOLETE TM_FILE= tm-nindy960.h
diff --git a/gdb/config/i960/tm-i960.h b/gdb/config/i960/tm-i960.h
deleted file mode 100644 (file)
index 91bdf91..0000000
+++ /dev/null
@@ -1,345 +0,0 @@
-// OBSOLETE /* Parameters for target machine Intel 960, for GDB, the GNU debugger.
-// OBSOLETE 
-// OBSOLETE    Copyright 1990, 1991, 1993, 1994, 1996, 1998, 1999, 2000, 2002 Free
-// OBSOLETE    Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    Contributed by Intel Corporation.
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* Definitions to target GDB to any i960.  */
-// OBSOLETE 
-// OBSOLETE #ifndef I80960
-// OBSOLETE #define I80960
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #include "doublest.h"
-// OBSOLETE 
-// OBSOLETE /* Hook for the SYMBOL_CLASS of a parameter when decoding DBX symbol
-// OBSOLETE    information.  In the i960, parameters can be stored as locals or as
-// OBSOLETE    args, depending on the type of the debug record.
-// OBSOLETE 
-// OBSOLETE    From empirical observation, gcc960 uses N_LSYM to indicate
-// OBSOLETE    arguments passed in registers and then copied immediately
-// OBSOLETE    to the frame, and N_PSYM to indicate arguments passed in a
-// OBSOLETE    g14-relative argument block.  */
-// OBSOLETE 
-// OBSOLETE #define    DBX_PARM_SYMBOL_CLASS(type) ((type == N_LSYM)? LOC_LOCAL_ARG: LOC_ARG)
-// OBSOLETE 
-// OBSOLETE /* Offset from address of function to start of its code.
-// OBSOLETE    Zero on most machines.  */
-// OBSOLETE 
-// OBSOLETE #define FUNCTION_START_OFFSET 0
-// OBSOLETE 
-// OBSOLETE /* Advance ip across any function entry prologue instructions
-// OBSOLETE    to reach some "real" code.  */
-// OBSOLETE 
-// OBSOLETE #define SKIP_PROLOGUE(ip)  (i960_skip_prologue (ip))
-// OBSOLETE extern CORE_ADDR i960_skip_prologue ();
-// OBSOLETE 
-// OBSOLETE /* Immediately after a function call, return the saved ip.
-// OBSOLETE    Can't always go through the frames for this because on some machines
-// OBSOLETE    the new frame is not set up until the new function
-// OBSOLETE    executes some instructions.  */
-// OBSOLETE 
-// OBSOLETE #define SAVED_PC_AFTER_CALL(frame) (saved_pc_after_call (frame))
-// OBSOLETE extern CORE_ADDR saved_pc_after_call ();
-// OBSOLETE 
-// OBSOLETE /* Stack grows upward */
-// OBSOLETE 
-// OBSOLETE #define INNER_THAN(lhs,rhs) ((lhs) > (rhs))
-// OBSOLETE 
-// OBSOLETE /* Say how long (ordinary) registers are.  This is a piece of bogosity
-// OBSOLETE    used in push_word and a few other places; REGISTER_RAW_SIZE is the
-// OBSOLETE    real way to know how big a register is.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_SIZE 4
-// OBSOLETE 
-// OBSOLETE /* Number of machine registers */
-// OBSOLETE #define NUM_REGS 40
-// OBSOLETE 
-// OBSOLETE /* Initializer for an array of names of registers.
-// OBSOLETE    There should be NUM_REGS strings in this initializer.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_NAMES { \
-// OBSOLETE    /*  0 */ "pfp", "sp",  "rip", "r3",  "r4",  "r5",  "r6",  "r7", \
-// OBSOLETE    /*  8 */ "r8",  "r9",  "r10", "r11", "r12", "r13", "r14", "r15",\
-// OBSOLETE    /* 16 */ "g0",  "g1",  "g2",  "g3",  "g4",  "g5",  "g6",  "g7", \
-// OBSOLETE    /* 24 */ "g8",  "g9",  "g10", "g11", "g12", "g13", "g14", "fp", \
-// OBSOLETE    /* 32 */ "pcw", "ac",  "tc",  "ip",  "fp0", "fp1", "fp2", "fp3",\
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Register numbers of various important registers (used to index
-// OBSOLETE    into arrays of register names and register values).  */
-// OBSOLETE 
-// OBSOLETE #define R0_REGNUM   0              /* First local register           */
-// OBSOLETE #define SP_REGNUM   1              /* Contains address of top of stack */
-// OBSOLETE #define RIP_REGNUM  2              /* Return instruction pointer (local r2) */
-// OBSOLETE #define R15_REGNUM 15              /* Last local register            */
-// OBSOLETE #define G0_REGNUM  16              /* First global register  */
-// OBSOLETE #define G13_REGNUM 29              /* g13 - holds struct return address */
-// OBSOLETE #define G14_REGNUM 30              /* g14 - ptr to arg block / leafproc return address */
-// OBSOLETE #define FP_REGNUM  31              /* Contains address of executing stack frame */
-// OBSOLETE #define    PCW_REGNUM 32           /* process control word */
-// OBSOLETE #define    ACW_REGNUM 33           /* arithmetic control word */
-// OBSOLETE #define    TCW_REGNUM 34           /* trace control word */
-// OBSOLETE #define IP_REGNUM  35              /* instruction pointer */
-// OBSOLETE #define FP0_REGNUM 36              /* First floating point register */
-// OBSOLETE 
-// OBSOLETE /* Some registers have more than one name */
-// OBSOLETE 
-// OBSOLETE #define PC_REGNUM  IP_REGNUM       /* GDB refers to ip as the Program Counter */
-// OBSOLETE #define PFP_REGNUM R0_REGNUM       /* Previous frame pointer */
-// OBSOLETE 
-// OBSOLETE /* Total amount of space needed to store our copies of the machine's
-// OBSOLETE    register state, the array `registers'.  */
-// OBSOLETE #define REGISTER_BYTES ((36*4) + (4*10))
-// OBSOLETE 
-// OBSOLETE /* Index within `registers' of the first byte of the space for register N.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_BYTE(N) ( (N) < FP0_REGNUM ? \
-// OBSOLETE                            (4*(N)) : ((10*(N)) - (6*FP0_REGNUM)) )
-// OBSOLETE 
-// OBSOLETE /* The i960 has register windows, sort of.  */
-// OBSOLETE 
-// OBSOLETE extern void i960_get_saved_register (char *raw_buffer,
-// OBSOLETE                                 int *optimized,
-// OBSOLETE                                 CORE_ADDR *addrp,
-// OBSOLETE                                 struct frame_info *frame,
-// OBSOLETE                                 int regnum,
-// OBSOLETE                                 enum lval_type *lval);
-// OBSOLETE 
-// OBSOLETE #define GET_SAVED_REGISTER(raw_buffer, optimized, addrp, frame, regnum, lval) \
-// OBSOLETE   i960_get_saved_register(raw_buffer, optimized, addrp, frame, regnum, lval)
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Number of bytes of storage in the actual machine representation
-// OBSOLETE    for register N.  On the i960, all regs are 4 bytes except for floating
-// OBSOLETE    point, which are 10.  NINDY only sends us 8 byte values for these,
-// OBSOLETE    which is a pain, but VxWorks handles this correctly, so we must.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_RAW_SIZE(N)               ( (N) < FP0_REGNUM ? 4 : 10 )
-// OBSOLETE 
-// OBSOLETE /* Number of bytes of storage in the program's representation for register N. */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_VIRTUAL_SIZE(N)   ( (N) < FP0_REGNUM ? 4 : 8 )
-// OBSOLETE 
-// OBSOLETE /* Largest value REGISTER_RAW_SIZE can have.  */
-// OBSOLETE 
-// OBSOLETE #define MAX_REGISTER_RAW_SIZE 10
-// OBSOLETE 
-// OBSOLETE /* Largest value REGISTER_VIRTUAL_SIZE can have.  */
-// OBSOLETE 
-// OBSOLETE #define MAX_REGISTER_VIRTUAL_SIZE 8
-// OBSOLETE 
-// OBSOLETE #include "floatformat.h"
-// OBSOLETE 
-// OBSOLETE #define TARGET_LONG_DOUBLE_FORMAT &floatformat_i960_ext
-// OBSOLETE 
-// OBSOLETE /* Return the GDB type object for the "standard" data type
-// OBSOLETE    of data in register N.  */
-// OBSOLETE 
-// OBSOLETE struct type *i960_register_type (int regnum);
-// OBSOLETE #define REGISTER_VIRTUAL_TYPE(N) i960_register_type (N)
-// OBSOLETE \f
-// OBSOLETE /* Macros for understanding function return values... */
-// OBSOLETE 
-// OBSOLETE /* Does the specified function use the "struct returning" convention
-// OBSOLETE    or the "value returning" convention?  The "value returning" convention
-// OBSOLETE    almost invariably returns the entire value in registers.  The
-// OBSOLETE    "struct returning" convention often returns the entire value in
-// OBSOLETE    memory, and passes a pointer (out of or into the function) saying
-// OBSOLETE    where the value (is or should go).
-// OBSOLETE 
-// OBSOLETE    Since this sometimes depends on whether it was compiled with GCC,
-// OBSOLETE    this is also an argument.  This is used in call_function to build a
-// OBSOLETE    stack, and in value_being_returned to print return values.
-// OBSOLETE 
-// OBSOLETE    On i960, a structure is returned in registers g0-g3, if it will fit.
-// OBSOLETE    If it's more than 16 bytes long, g13 pointed to it on entry.  */
-// OBSOLETE 
-// OBSOLETE extern use_struct_convention_fn i960_use_struct_convention;
-// OBSOLETE #define USE_STRUCT_CONVENTION(gcc_p, type) i960_use_struct_convention (gcc_p, type)
-// OBSOLETE 
-// OBSOLETE /* Extract from an array REGBUF containing the (raw) register state
-// OBSOLETE    a function return value of type TYPE, and copy that, in virtual format,
-// OBSOLETE    into VALBUF.  This is only called if USE_STRUCT_CONVENTION for this
-// OBSOLETE    type is 0.
-// OBSOLETE 
-// OBSOLETE    On the i960 we just take as many bytes as we need from G0 through G3.  */
-// OBSOLETE 
-// OBSOLETE #define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \
-// OBSOLETE    memcpy(VALBUF, REGBUF+REGISTER_BYTE(G0_REGNUM), TYPE_LENGTH (TYPE))
-// OBSOLETE 
-// OBSOLETE /* If USE_STRUCT_CONVENTION produces a 1, 
-// OBSOLETE    extract from an array REGBUF containing the (raw) register state
-// OBSOLETE    the address in which a function should return its structure value,
-// OBSOLETE    as a CORE_ADDR (or an expression that can be used as one).
-// OBSOLETE 
-// OBSOLETE    Address of where to put structure was passed in in global
-// OBSOLETE    register g13 on entry.  God knows what's in g13 now.  The
-// OBSOLETE    (..., 0) below is to make it appear to return a value, though
-// OBSOLETE    actually all it does is call error().  */
-// OBSOLETE 
-// OBSOLETE #define DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \
-// OBSOLETE    (error("Don't know where large structure is returned on i960"), 0)
-// OBSOLETE 
-// OBSOLETE /* Write into appropriate registers a function return value
-// OBSOLETE    of type TYPE, given in virtual format, for "value returning" functions.
-// OBSOLETE 
-// OBSOLETE    For 'return' command:  not (yet) implemented for i960.  */
-// OBSOLETE 
-// OBSOLETE #define STORE_RETURN_VALUE(TYPE,VALBUF) \
-// OBSOLETE     error ("Returning values from functions is not implemented in i960 gdb")
-// OBSOLETE 
-// OBSOLETE /* Store the address of the place in which to copy the structure the
-// OBSOLETE    subroutine will return.  This is called from call_function. */
-// OBSOLETE 
-// OBSOLETE #define STORE_STRUCT_RETURN(ADDR, SP) \
-// OBSOLETE     error ("Returning values from functions is not implemented in i960 gdb")
-// OBSOLETE \f
-// OBSOLETE /* Describe the pointer in each stack frame to the previous stack frame
-// OBSOLETE    (its caller).  */
-// OBSOLETE 
-// OBSOLETE /* FRAME_CHAIN takes a frame's nominal address
-// OBSOLETE    and produces the frame's chain-pointer.
-// OBSOLETE 
-// OBSOLETE    However, if FRAME_CHAIN_VALID returns zero,
-// OBSOLETE    it means the given frame is the outermost one and has no caller.  */
-// OBSOLETE 
-// OBSOLETE /* We cache information about saved registers in the frame structure,
-// OBSOLETE    to save us from having to re-scan function prologues every time
-// OBSOLETE    a register in a non-current frame is accessed.  */
-// OBSOLETE 
-// OBSOLETE #define EXTRA_FRAME_INFO   \
-// OBSOLETE    struct frame_saved_regs *fsr;   \
-// OBSOLETE    CORE_ADDR arg_pointer;
-// OBSOLETE 
-// OBSOLETE /* Zero the frame_saved_regs pointer when the frame is initialized,
-// OBSOLETE    so that FRAME_FIND_SAVED_REGS () will know to allocate and
-// OBSOLETE    initialize a frame_saved_regs struct the first time it is called.
-// OBSOLETE    Set the arg_pointer to -1, which is not valid; 0 and other values
-// OBSOLETE    indicate real, cached values.  */
-// OBSOLETE 
-// OBSOLETE #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \
-// OBSOLETE    ((fi)->fsr = 0, (fi)->arg_pointer = -1)
-// OBSOLETE 
-// OBSOLETE /* On the i960, we get the chain pointer by reading the PFP saved
-// OBSOLETE    on the stack and clearing the status bits.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_CHAIN(thisframe) \
-// OBSOLETE   (read_memory_integer (FRAME_FP(thisframe), 4) & ~0xf)
-// OBSOLETE 
-// OBSOLETE /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one
-// OBSOLETE    and has no caller.
-// OBSOLETE 
-// OBSOLETE    On the i960, each various target system type must define FRAME_CHAIN_VALID,
-// OBSOLETE    since it differs between NINDY and VxWorks, the two currently supported
-// OBSOLETE    targets types.  We leave it undefined here.  */
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* A macro that tells us whether the function invocation represented
-// OBSOLETE    by FI does not have a frame on the stack associated with it.  If it
-// OBSOLETE    does not, FRAMELESS is set to 1, else 0.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR leafproc_return (CORE_ADDR ip);
-// OBSOLETE #define FRAMELESS_FUNCTION_INVOCATION(FI) \
-// OBSOLETE   (leafproc_return ((FI)->pc) != 0)
-// OBSOLETE 
-// OBSOLETE /* Note that in the i960 architecture the return pointer is saved in the
-// OBSOLETE    *caller's* stack frame.
-// OBSOLETE 
-// OBSOLETE    Make sure to zero low-order bits because of bug in 960CA A-step part
-// OBSOLETE    (instruction addresses should always be word-aligned anyway).  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_SAVED_PC(frame) \
-// OBSOLETE                    ((read_memory_integer(FRAME_CHAIN(frame)+8,4)) & ~3)
-// OBSOLETE 
-// OBSOLETE /* On the i960, FRAME_ARGS_ADDRESS should return the value of
-// OBSOLETE    g14 as passed into the frame, if known.  We need a function for this.
-// OBSOLETE    We cache this value in the frame info if we've already looked it up.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_ARGS_ADDRESS(fi)     \
-// OBSOLETE   (((fi)->arg_pointer != -1)? (fi)->arg_pointer: frame_args_address (fi, 0))
-// OBSOLETE extern CORE_ADDR frame_args_address ();            /* i960-tdep.c */
-// OBSOLETE 
-// OBSOLETE /* This is the same except it should return 0 when
-// OBSOLETE    it does not really know where the args are, rather than guessing.
-// OBSOLETE    This value is not cached since it is only used infrequently.  */
-// OBSOLETE 
-// OBSOLETE #define    FRAME_ARGS_ADDRESS_CORRECT(fi)  (frame_args_address (fi, 1))
-// OBSOLETE 
-// OBSOLETE #define FRAME_LOCALS_ADDRESS(fi)   (fi)->frame
-// OBSOLETE 
-// OBSOLETE /* Set NUMARGS to the number of args passed to a frame.
-// OBSOLETE    Can return -1, meaning no way to tell.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_NUM_ARGS(fi) (-1)
-// OBSOLETE 
-// OBSOLETE /* Return number of bytes at start of arglist that are not really args.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_ARGS_SKIP 0
-// OBSOLETE 
-// OBSOLETE /* Produce the positions of the saved registers in a stack frame.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_FIND_SAVED_REGS(frame_info_addr, sr) \
-// OBSOLETE    frame_find_saved_regs (frame_info_addr, &sr)
-// OBSOLETE extern void frame_find_saved_regs ();      /* See i960-tdep.c */
-// OBSOLETE \f
-// OBSOLETE /* Things needed for making calls to functions in the inferior process */
-// OBSOLETE 
-// OBSOLETE /* Push an empty stack frame, to record the current ip, etc.
-// OBSOLETE 
-// OBSOLETE    Not (yet?) implemented for i960.  */
-// OBSOLETE 
-// OBSOLETE #define PUSH_DUMMY_FRAME   \
-// OBSOLETE error("Function calls into the inferior process are not supported on the i960")
-// OBSOLETE 
-// OBSOLETE /* Discard from the stack the innermost frame, restoring all registers.  */
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE void i960_pop_frame (void);
-// OBSOLETE #define POP_FRAME \
-// OBSOLETE    i960_pop_frame ()
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* This sequence of words is the instructions
-// OBSOLETE 
-// OBSOLETE    callx 0x00000000
-// OBSOLETE    fmark
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE /* #define CALL_DUMMY { 0x86003000, 0x00000000, 0x66003e00 } */
-// OBSOLETE 
-// OBSOLETE                                                                                                                                                        /* #define CALL_DUMMY_START_OFFSET 0 *//* Start execution at beginning of dummy */
-// OBSOLETE 
-// OBSOLETE /* Indicate that we don't support calling inferior child functions.  */
-// OBSOLETE 
-// OBSOLETE #undef CALL_DUMMY
-// OBSOLETE 
-// OBSOLETE /* Insert the specified number of args and function address
-// OBSOLETE    into a call sequence of the above form stored at 'dummyname'.
-// OBSOLETE 
-// OBSOLETE    Ignore arg count on i960.  */
-// OBSOLETE 
-// OBSOLETE /* #define FIX_CALL_DUMMY(dummyname, fun, nargs) *(((int *)dummyname)+1) = fun */
-// OBSOLETE 
-// OBSOLETE #undef FIX_CALL_DUMMY
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Interface definitions for kernel debugger KDB */
-// OBSOLETE /* (Not relevant to i960.) */
diff --git a/gdb/config/i960/tm-mon960.h b/gdb/config/i960/tm-mon960.h
deleted file mode 100644 (file)
index dedce0e..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-// OBSOLETE /* Parameters for Intel 960 running MON960 monitor, for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1990, 1991, 1996, 1999, 2000 Free Software Foundation, Inc.
-// OBSOLETE    Contributed by Intel Corporation and Cygnus Support.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /*****************************************************************************
-// OBSOLETE  * Definitions to target GDB to an i960 debugged over a serial line.
-// OBSOLETE  ******************************************************************************/
-// OBSOLETE 
-// OBSOLETE #include "i960/tm-i960.h"
-// OBSOLETE 
-// OBSOLETE /* forward declarations */
-// OBSOLETE struct frame_info;
-// OBSOLETE 
-// OBSOLETE /* redefined from tm-i960.h */
-// OBSOLETE /* Number of machine registers */
-// OBSOLETE #undef NUM_REGS
-// OBSOLETE #define NUM_REGS 40
-// OBSOLETE 
-// OBSOLETE /* Initializer for an array of names of registers.
-// OBSOLETE    There should be NUM_REGS strings in this initializer.  */
-// OBSOLETE #undef REGISTER_NAMES
-// OBSOLETE #define REGISTER_NAMES { \
-// OBSOLETE    /*  0 */ "pfp", "sp",  "rip", "r3",  "r4",  "r5",  "r6",  "r7", \
-// OBSOLETE    /*  8 */ "r8",  "r9",  "r10", "r11", "r12", "r13", "r14", "r15",\
-// OBSOLETE    /* 16 */ "g0",  "g1",  "g2",  "g3",  "g4",  "g5",  "g6",  "g7", \
-// OBSOLETE    /* 24 */ "g8",  "g9",  "g10", "g11", "g12", "g13", "g14", "fp", \
-// OBSOLETE    /* 32 */ "pc",  "ac",  "tc",  "ip",  "fp0", "fp1", "fp2", "fp3",\
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Override the standard gdb prompt when compiled for this target.  */
-// OBSOLETE 
-// OBSOLETE #define    DEFAULT_PROMPT  "(gdb960) "
-// OBSOLETE 
-// OBSOLETE /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one
-// OBSOLETE    and has no caller.
-// OBSOLETE 
-// OBSOLETE    On the i960, each various target system type defines FRAME_CHAIN_VALID,
-// OBSOLETE    since it differs between Nindy, Mon960 and VxWorks, the currently supported
-// OBSOLETE    target types.  */
-// OBSOLETE 
-// OBSOLETE extern int mon960_frame_chain_valid (CORE_ADDR, struct frame_info *);
-// OBSOLETE #define    FRAME_CHAIN_VALID(chain, thisframe) mon960_frame_chain_valid (chain, thisframe)
-// OBSOLETE 
-// OBSOLETE /* Sequence of bytes for breakpoint instruction */
-// OBSOLETE 
-// OBSOLETE #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66}
-// OBSOLETE 
-// OBSOLETE /* Amount ip must be decremented by after a breakpoint.
-// OBSOLETE  * This is often the number of bytes in BREAKPOINT but not always.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE #define DECR_PC_AFTER_BREAK 4
diff --git a/gdb/config/i960/tm-nindy960.h b/gdb/config/i960/tm-nindy960.h
deleted file mode 100644 (file)
index 6a6dca2..0000000
+++ /dev/null
@@ -1,106 +0,0 @@
-// OBSOLETE /* Parameters for Intel 960 running NINDY monitor, for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1990, 1991, 1996, 1999, 2000 Free Software Foundation, Inc.
-// OBSOLETE    Contributed by Intel Corporation and Cygnus Support.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /*****************************************************************************
-// OBSOLETE  * Definitions to target GDB to an i960 debugged over a serial line.
-// OBSOLETE  ******************************************************************************/
-// OBSOLETE 
-// OBSOLETE #include "i960/tm-i960.h"
-// OBSOLETE 
-// OBSOLETE /* forward declarations */
-// OBSOLETE struct frame_info;
-// OBSOLETE 
-// OBSOLETE /* Override the standard gdb prompt when compiled for this target.  */
-// OBSOLETE 
-// OBSOLETE #define    DEFAULT_PROMPT  "(gdb960) "
-// OBSOLETE 
-// OBSOLETE /* Additional command line options accepted by nindy gdb's, for handling
-// OBSOLETE    the remote-nindy.c interface.  These should really be target-specific
-// OBSOLETE    rather than architecture-specific.  */
-// OBSOLETE 
-// OBSOLETE extern int nindy_old_protocol;     /* nonzero if old NINDY serial protocol */
-// OBSOLETE extern int nindy_initial_brk;      /* Send a BREAK to reset board first */
-// OBSOLETE extern char *nindy_ttyname;        /* Name of serial port to talk to nindy */
-// OBSOLETE 
-// OBSOLETE #define    ADDITIONAL_OPTIONS \
-// OBSOLETE    {"O", no_argument, &nindy_old_protocol, 1},     \
-// OBSOLETE    {"brk", no_argument, &nindy_initial_brk, 1},    \
-// OBSOLETE    {"ser", required_argument, 0, 1004},    /* 1004 is magic cookie for ADDL_CASES */
-// OBSOLETE 
-// OBSOLETE #define    ADDITIONAL_OPTION_CASES \
-// OBSOLETE    case 1004:      /* -ser option:  remote nindy auto-start */     \
-// OBSOLETE      nindy_ttyname = optarg;       \
-// OBSOLETE      break;
-// OBSOLETE 
-// OBSOLETE #define    ADDITIONAL_OPTION_HELP \
-// OBSOLETE    "\
-// OBSOLETE   -O                Use old protocol to talk to a Nindy target\n\
-// OBSOLETE   -brk              Send a break to a Nindy target to reset it.\n\
-// OBSOLETE   -ser SERIAL       Open remote Nindy session to SERIAL port.\n\
-// OBSOLETE "
-// OBSOLETE 
-// OBSOLETE /* If specified on the command line, open tty for talking to nindy,
-// OBSOLETE    and download the executable file if one was specified.  */
-// OBSOLETE 
-// OBSOLETE extern void nindy_open (char *name, int from_tty);
-// OBSOLETE #define    ADDITIONAL_OPTION_HANDLER                                       \
-// OBSOLETE    if (nindy_ttyname != NULL)                                      \
-// OBSOLETE           {                                                                \
-// OBSOLETE             if (catch_command_errors (nindy_open, nindy_ttyname,   \
-// OBSOLETE                                  !batch, RETURN_MASK_ALL))         \
-// OBSOLETE          {                                                         \
-// OBSOLETE                 if (execarg != NULL)                                       \
-// OBSOLETE                   catch_command_errors (target_load, execarg, !batch,      \
-// OBSOLETE                                    RETURN_MASK_ALL);               \
-// OBSOLETE          }                                                         \
-// OBSOLETE      }
-// OBSOLETE 
-// OBSOLETE /* If configured for i960 target, we take control before main loop
-// OBSOLETE    and demand that we configure for a nindy target.  */
-// OBSOLETE 
-// OBSOLETE #define    BEFORE_MAIN_LOOP_HOOK   \
-// OBSOLETE   nindy_before_main_loop();
-// OBSOLETE 
-// OBSOLETE extern void
-// OBSOLETE   nindy_before_main_loop ();       /* In remote-nindy.c */
-// OBSOLETE 
-// OBSOLETE /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one
-// OBSOLETE    and has no caller.
-// OBSOLETE 
-// OBSOLETE    On the i960, each various target system type defines FRAME_CHAIN_VALID,
-// OBSOLETE    since it differs between NINDY and VxWorks, the two currently supported
-// OBSOLETE    targets types.  */
-// OBSOLETE 
-// OBSOLETE extern int nindy_frame_chain_valid (CORE_ADDR, struct frame_info *);
-// OBSOLETE #define    FRAME_CHAIN_VALID(chain, thisframe) nindy_frame_chain_valid (chain, thisframe)
-// OBSOLETE 
-// OBSOLETE extern int
-// OBSOLETE   nindy_frame_chain_valid ();      /* See nindy-tdep.c */
-// OBSOLETE 
-// OBSOLETE /* Sequence of bytes for breakpoint instruction */
-// OBSOLETE 
-// OBSOLETE #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66}
-// OBSOLETE 
-// OBSOLETE /* Amount ip must be decremented by after a breakpoint.
-// OBSOLETE  * This is often the number of bytes in BREAKPOINT but not always.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE #define DECR_PC_AFTER_BREAK 0
diff --git a/gdb/config/i960/tm-vx960.h b/gdb/config/i960/tm-vx960.h
deleted file mode 100644 (file)
index 44ff627..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-// OBSOLETE /* Parameters for VxWorks Intel 960's, for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1998, 1999
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE    Contributed by Cygnus Support.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "i960/tm-i960.h"
-// OBSOLETE #include "config/tm-vxworks.h"
-// OBSOLETE 
-// OBSOLETE /* Under VxWorks the IP isn't filled in.  Skip it, go with RIP, which has
-// OBSOLETE    the real value.  */
-// OBSOLETE #undef PC_REGNUM
-// OBSOLETE #define PC_REGNUM RIP_REGNUM
-// OBSOLETE 
-// OBSOLETE /* We have more complex, useful breakpoints on the target.
-// OBSOLETE    Amount ip must be decremented by after a breakpoint.  */
-// OBSOLETE 
-// OBSOLETE #define    DECR_PC_AFTER_BREAK     0
-// OBSOLETE 
-// OBSOLETE /* We are guaranteed to have a zero frame pointer at bottom of stack, too. */
-// OBSOLETE 
-// OBSOLETE #define FRAME_CHAIN_VALID(chain, thisframe) nonnull_frame_chain_valid (chain, thisframe)
-// OBSOLETE 
-// OBSOLETE /* Breakpoint patching is handled at the target end in VxWorks.  */
-// OBSOLETE /* #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} */
-// OBSOLETE 
-// OBSOLETE /* Number of registers in a ptrace_getregs call. */
-// OBSOLETE 
-// OBSOLETE #define VX_NUM_REGS (16 + 16 + 3)
-// OBSOLETE 
-// OBSOLETE /* Number of registers in a ptrace_getfpregs call. */
-// OBSOLETE 
-// OBSOLETE     /* @@ Can't use this -- the rdb library for the 960 target
-// OBSOLETE        doesn't support setting or retrieving FP regs.  KR  */
-// OBSOLETE 
-// OBSOLETE /* #define VX_SIZE_FPREGS (REGISTER_RAW_SIZE (FP0_REGNUM) * 4) */
diff --git a/gdb/config/i960/vxworks960.mt b/gdb/config/i960/vxworks960.mt
deleted file mode 100644 (file)
index e7f04c4..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-# OBSOLETE # Target: VxWorks running on an Intel 960
-# OBSOLETE TDEPFILES= i960-tdep.o remote-vx.o remote-vx960.o xdr_ld.o xdr_ptrace.o xdr_rdb.o
-# OBSOLETE TM_FILE= tm-vx960.h
-# OBSOLETE 
-# OBSOLETE # Define this for the vx-share routines, which don't see param.h.
-# OBSOLETE MT_CFLAGS= -DI80960
diff --git a/gdb/config/m68k/apollo68b.mh b/gdb/config/m68k/apollo68b.mh
deleted file mode 100644 (file)
index 99d034b..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-# OBSOLETE # Host: Apollo m68k, BSD mode.
-# OBSOLETE 
-# OBSOLETE XM_FILE= xm-apollo68b.h
-# OBSOLETE NAT_FILE= nm-apollo68b.h
-# OBSOLETE NATDEPFILES= infptrace.o inftarg.o fork-child.o a68v-nat.o
diff --git a/gdb/config/m68k/apollo68b.mt b/gdb/config/m68k/apollo68b.mt
deleted file mode 100644 (file)
index 11c0c02..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: Apollo m68k in BSD mode
-# OBSOLETE TDEPFILES= m68k-tdep.o dstread.o
-# OBSOLETE TM_FILE= tm-apollo68b.h
diff --git a/gdb/config/m68k/apollo68v.mh b/gdb/config/m68k/apollo68v.mh
deleted file mode 100644 (file)
index 4ab84f0..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-# OBSOLETE # Host: Apollo, System V mode (?)
-# OBSOLETE 
-# OBSOLETE XM_FILE= xm-apollo68v.h
-# OBSOLETE XM_CLIBS= -lPW
-# OBSOLETE 
-# OBSOLETE NAT_FILE= nm-apollo68v.h
-# OBSOLETE NATDEPFILES= infptrace.o inftarg.o fork-child.o a68v-nat.o
-# OBSOLETE 
-# OBSOLETE RANLIB=echo >/dev/null
-# OBSOLETE CC= cc -A ansi -A runtype,any -A systype,any -U__STDC__ -DNO_SYS_FILE
diff --git a/gdb/config/m68k/hp300bsd.mh b/gdb/config/m68k/hp300bsd.mh
deleted file mode 100644 (file)
index 76aa9a5..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-# OBSOLETE # Host: Hewlett-Packard 9000 series 300, running BSD
-# OBSOLETE 
-# OBSOLETE XM_FILE= xm-hp300bsd.h
-# OBSOLETE 
-# OBSOLETE NAT_FILE= nm-hp300bsd.h
-# OBSOLETE NATDEPFILES= infptrace.o inftarg.o fork-child.o corelow.o core-aout.o
diff --git a/gdb/config/m68k/hp300bsd.mt b/gdb/config/m68k/hp300bsd.mt
deleted file mode 100644 (file)
index c3225e9..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: Hewlett-Packard 9000 series 300, running BSD
-# OBSOLETE TDEPFILES= m68k-tdep.o
-# OBSOLETE TM_FILE= tm-hp300bsd.h
diff --git a/gdb/config/m68k/hp300hpux.mh b/gdb/config/m68k/hp300hpux.mh
deleted file mode 100644 (file)
index 410c03c..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-# OBSOLETE # Host: Hewlett-Packard 9000 series 300, running HPUX
-# OBSOLETE # The following is true because gcc uses a different .o file format
-# OBSOLETE # than the native HPUX compiler
-# OBSOLETE 
-# OBSOLETE XM_FILE= xm-hp300hpux.h
-# OBSOLETE 
-# OBSOLETE NAT_FILE= nm-hp300hpux.h
-# OBSOLETE NATDEPFILES= infptrace.o inftarg.o fork-child.o hp300ux-nat.o corelow.o core-aout.o
diff --git a/gdb/config/m68k/hp300hpux.mt b/gdb/config/m68k/hp300hpux.mt
deleted file mode 100644 (file)
index a1848af..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-# OBSOLETE # Target: Hewlett-Packard 9000 series 300, running HPUX
-# OBSOLETE 
-# OBSOLETE #msg Note that GDB can only read symbols from programs that were
-# OBSOLETE #msg compiled with GCC using GAS.
-# OBSOLETE #msg
-# OBSOLETE 
-# OBSOLETE TDEPFILES= m68k-tdep.o
-# OBSOLETE TM_FILE= tm-hp300hpux.h
diff --git a/gdb/config/m88k/delta88.mh b/gdb/config/m88k/delta88.mh
deleted file mode 100644 (file)
index 3c079fe..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-# OBSOLETE # Host: Motorola 88k running SVR3
-# OBSOLETE 
-# OBSOLETE XM_FILE= xm-delta88.h
-# OBSOLETE 
-# OBSOLETE NAT_FILE= nm-m88k.h
-# OBSOLETE NATDEPFILES= infptrace.o inftarg.o fork-child.o m88k-nat.o corelow.o core-aout.o
diff --git a/gdb/config/m88k/delta88.mt b/gdb/config/m88k/delta88.mt
deleted file mode 100644 (file)
index 83d4ad1..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: Motorola 88k running SVR3
-# OBSOLETE TDEPFILES= m88k-tdep.o
-# OBSOLETE TM_FILE= tm-delta88.h
diff --git a/gdb/config/m88k/delta88v4.mh b/gdb/config/m88k/delta88v4.mh
deleted file mode 100644 (file)
index bc2abc5..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-# OBSOLETE # Host: Motorola 88k running SVR4
-# OBSOLETE 
-# OBSOLETE XM_FILE= xm-delta88v4.h
-# OBSOLETE 
-# OBSOLETE NAT_FILE= nm-delta88v4.h
-# OBSOLETE NATDEPFILES= fork-child.o m88k-nat.o corelow.o core-regset.o \
-# OBSOLETE     solib.o solib-svr4.o solib-legacy.o \
-# OBSOLETE     procfs.o proc-api.o proc-events.o proc-flags.o proc-why.o
diff --git a/gdb/config/m88k/delta88v4.mt b/gdb/config/m88k/delta88v4.mt
deleted file mode 100644 (file)
index c8f9df2..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: Motorola 88k running SVR4
-# OBSOLETE TDEPFILES= m88k-tdep.o
-# OBSOLETE TM_FILE= tm-delta88v4.h
diff --git a/gdb/config/m88k/m88k.mh b/gdb/config/m88k/m88k.mh
deleted file mode 100644 (file)
index a09e7a1..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-# OBSOLETE # Host: Motorola 88000 running DGUX
-# OBSOLETE XM_FILE= xm-dgux.h
-# OBSOLETE NAT_FILE= nm-m88k.h
-# OBSOLETE NATDEPFILES= infptrace.o inftarg.o fork-child.o m88k-nat.o
diff --git a/gdb/config/m88k/m88k.mt b/gdb/config/m88k/m88k.mt
deleted file mode 100644 (file)
index c4068e0..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-# OBSOLETE # Target: Motorola 88k Binary Compatibility Standard
-# OBSOLETE TDEPFILES= m88k-tdep.o remote-bug.o
-# OBSOLETE TM_FILE= tm-m88k.h
diff --git a/gdb/config/m88k/nm-delta88v4.h b/gdb/config/m88k/nm-delta88v4.h
deleted file mode 100644 (file)
index 976cfa0..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-// OBSOLETE /* Native machine description for Motorola Delta 88 box, for GDB.
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "m88k/nm-m88k.h"
-// OBSOLETE #include "config/nm-sysv4.h"
diff --git a/gdb/config/m88k/nm-m88k.h b/gdb/config/m88k/nm-m88k.h
deleted file mode 100644 (file)
index 6521a2a..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-// OBSOLETE /* Native support macros for m88k, for GDB.
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #define FETCH_INFERIOR_REGISTERS
-// OBSOLETE 
-// OBSOLETE #define REGISTER_U_ADDR(addr, blockend, regno) \
-// OBSOLETE         (addr) = m88k_register_u_addr ((blockend),(regno));
diff --git a/gdb/config/m88k/tm-delta88.h b/gdb/config/m88k/tm-delta88.h
deleted file mode 100644 (file)
index f63fca3..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-// OBSOLETE /* Target machine description for Motorola Delta 88 box, for GDB.
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "m88k/tm-m88k.h"
-// OBSOLETE 
-// OBSOLETE #define DELTA88
-// OBSOLETE 
-// OBSOLETE #define IN_SIGTRAMP(pc, name) ((name) && STREQ ("_sigcode", (name)))
-// OBSOLETE #define SIGTRAMP_FRAME_FIXUP(frame) (frame) += 0x20
-// OBSOLETE #define SIGTRAMP_SP_FIXUP(sp) (sp) = read_memory_integer((sp), 4)
diff --git a/gdb/config/m88k/tm-delta88v4.h b/gdb/config/m88k/tm-delta88v4.h
deleted file mode 100644 (file)
index e343a05..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-// OBSOLETE /* Target machine description for Motorola Delta 88 box, for GDB.
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, 1998, 1999
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #define DELTA88
-// OBSOLETE 
-// OBSOLETE #include "m88k/tm-m88k.h"
-// OBSOLETE #include "config/tm-sysv4.h"
-// OBSOLETE 
-// OBSOLETE /* If we don't define this, backtraces go on forever.  */
-// OBSOLETE #define FRAME_CHAIN_VALID(fp,fi) func_frame_chain_valid (fp, fi)
-// OBSOLETE 
-// OBSOLETE #define IN_SIGTRAMP(pc, name) ((name) && (STREQ ("signalhandler", (name)) \
-// OBSOLETE                                           || STREQ("sigacthandler", (name))))
-// OBSOLETE #define SIGTRAMP_SP_FIXUP(sp) (sp) = read_memory_integer((sp)+0xcd8, 4)
diff --git a/gdb/config/m88k/tm-m88k.h b/gdb/config/m88k/tm-m88k.h
deleted file mode 100644 (file)
index 2f08f1a..0000000
+++ /dev/null
@@ -1,587 +0,0 @@
-// OBSOLETE /* Target machine description for generic Motorola 88000, for GDB.
-// OBSOLETE 
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, 1996,
-// OBSOLETE    1998, 1999, 2000, 2002 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "doublest.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE /* g++ support is not yet included.  */
-// OBSOLETE 
-// OBSOLETE /* We cache information about saved registers in the frame structure,
-// OBSOLETE    to save us from having to re-scan function prologues every time
-// OBSOLETE    a register in a non-current frame is accessed.  */
-// OBSOLETE 
-// OBSOLETE #define EXTRA_FRAME_INFO   \
-// OBSOLETE    struct frame_saved_regs *fsr;   \
-// OBSOLETE    CORE_ADDR locals_pointer;       \
-// OBSOLETE    CORE_ADDR args_pointer;
-// OBSOLETE 
-// OBSOLETE /* Zero the frame_saved_regs pointer when the frame is initialized,
-// OBSOLETE    so that FRAME_FIND_SAVED_REGS () will know to allocate and
-// OBSOLETE    initialize a frame_saved_regs struct the first time it is called.
-// OBSOLETE    Set the arg_pointer to -1, which is not valid; 0 and other values
-// OBSOLETE    indicate real, cached values.  */
-// OBSOLETE 
-// OBSOLETE #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \
-// OBSOLETE    init_extra_frame_info (fromleaf, fi)
-// OBSOLETE extern void init_extra_frame_info ();
-// OBSOLETE 
-// OBSOLETE /* Offset from address of function to start of its code.
-// OBSOLETE    Zero on most machines.  */
-// OBSOLETE 
-// OBSOLETE #define FUNCTION_START_OFFSET 0
-// OBSOLETE 
-// OBSOLETE /* Advance PC across any function entry prologue instructions
-// OBSOLETE    to reach some "real" code.  */
-// OBSOLETE 
-// OBSOLETE extern CORE_ADDR m88k_skip_prologue (CORE_ADDR);
-// OBSOLETE #define SKIP_PROLOGUE(frompc) (m88k_skip_prologue (frompc))
-// OBSOLETE 
-// OBSOLETE /* The m88k kernel aligns all instructions on 4-byte boundaries.  The
-// OBSOLETE    kernel also uses the least significant two bits for its own hocus
-// OBSOLETE    pocus.  When gdb receives an address from the kernel, it needs to
-// OBSOLETE    preserve those right-most two bits, but gdb also needs to be careful
-// OBSOLETE    to realize that those two bits are not really a part of the address
-// OBSOLETE    of an instruction.  Shrug.  */
-// OBSOLETE 
-// OBSOLETE extern CORE_ADDR m88k_addr_bits_remove (CORE_ADDR);
-// OBSOLETE #define ADDR_BITS_REMOVE(addr) m88k_addr_bits_remove (addr)
-// OBSOLETE 
-// OBSOLETE /* Immediately after a function call, return the saved pc.
-// OBSOLETE    Can't always go through the frames for this because on some machines
-// OBSOLETE    the new frame is not set up until the new function executes
-// OBSOLETE    some instructions.  */
-// OBSOLETE 
-// OBSOLETE #define SAVED_PC_AFTER_CALL(frame) \
-// OBSOLETE   (ADDR_BITS_REMOVE (read_register (SRP_REGNUM)))
-// OBSOLETE 
-// OBSOLETE /* Stack grows downward.  */
-// OBSOLETE 
-// OBSOLETE #define INNER_THAN(lhs,rhs) ((lhs) < (rhs))
-// OBSOLETE 
-// OBSOLETE /* Sequence of bytes for breakpoint instruction.  */
-// OBSOLETE 
-// OBSOLETE /* instruction 0xF000D1FF is 'tb0 0,r0,511'
-// OBSOLETE    If Bit bit 0 of r0 is clear (always true),
-// OBSOLETE    initiate exception processing (trap).
-// OBSOLETE  */
-// OBSOLETE #define BREAKPOINT {0xF0, 0x00, 0xD1, 0xFF}
-// OBSOLETE 
-// OBSOLETE /* Amount PC must be decremented by after a breakpoint.
-// OBSOLETE    This is often the number of bytes in BREAKPOINT
-// OBSOLETE    but not always.  */
-// OBSOLETE 
-// OBSOLETE #define DECR_PC_AFTER_BREAK 0
-// OBSOLETE 
-// OBSOLETE /* Say how long (ordinary) registers are.  This is a piece of bogosity
-// OBSOLETE    used in push_word and a few other places; REGISTER_RAW_SIZE is the
-// OBSOLETE    real way to know how big a register is.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_SIZE 4
-// OBSOLETE 
-// OBSOLETE /* Number of machine registers */
-// OBSOLETE 
-// OBSOLETE #define GP_REGS (38)
-// OBSOLETE #define FP_REGS (32)
-// OBSOLETE #define NUM_REGS (GP_REGS + FP_REGS)
-// OBSOLETE 
-// OBSOLETE /* Initializer for an array of names of registers.
-// OBSOLETE    There should be NUM_REGS strings in this initializer.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_NAMES {\
-// OBSOLETE                      "r0",\
-// OBSOLETE                      "r1",\
-// OBSOLETE                      "r2",\
-// OBSOLETE                      "r3",\
-// OBSOLETE                      "r4",\
-// OBSOLETE                      "r5",\
-// OBSOLETE                      "r6",\
-// OBSOLETE                      "r7",\
-// OBSOLETE                      "r8",\
-// OBSOLETE                      "r9",\
-// OBSOLETE                      "r10",\
-// OBSOLETE                      "r11",\
-// OBSOLETE                      "r12",\
-// OBSOLETE                      "r13",\
-// OBSOLETE                      "r14",\
-// OBSOLETE                      "r15",\
-// OBSOLETE                      "r16",\
-// OBSOLETE                      "r17",\
-// OBSOLETE                      "r18",\
-// OBSOLETE                      "r19",\
-// OBSOLETE                      "r20",\
-// OBSOLETE                      "r21",\
-// OBSOLETE                      "r22",\
-// OBSOLETE                      "r23",\
-// OBSOLETE                      "r24",\
-// OBSOLETE                      "r25",\
-// OBSOLETE                      "r26",\
-// OBSOLETE                      "r27",\
-// OBSOLETE                      "r28",\
-// OBSOLETE                      "r29",\
-// OBSOLETE                      "r30",\
-// OBSOLETE                      "r31",\
-// OBSOLETE                      "psr",\
-// OBSOLETE                      "fpsr",\
-// OBSOLETE                      "fpcr",\
-// OBSOLETE                      "sxip",\
-// OBSOLETE                      "snip",\
-// OBSOLETE                      "sfip",\
-// OBSOLETE                      "x0",\
-// OBSOLETE                      "x1",\
-// OBSOLETE                      "x2",\
-// OBSOLETE                      "x3",\
-// OBSOLETE                      "x4",\
-// OBSOLETE                      "x5",\
-// OBSOLETE                      "x6",\
-// OBSOLETE                      "x7",\
-// OBSOLETE                      "x8",\
-// OBSOLETE                      "x9",\
-// OBSOLETE                      "x10",\
-// OBSOLETE                      "x11",\
-// OBSOLETE                      "x12",\
-// OBSOLETE                      "x13",\
-// OBSOLETE                      "x14",\
-// OBSOLETE                      "x15",\
-// OBSOLETE                      "x16",\
-// OBSOLETE                      "x17",\
-// OBSOLETE                      "x18",\
-// OBSOLETE                      "x19",\
-// OBSOLETE                      "x20",\
-// OBSOLETE                      "x21",\
-// OBSOLETE                      "x22",\
-// OBSOLETE                      "x23",\
-// OBSOLETE                      "x24",\
-// OBSOLETE                      "x25",\
-// OBSOLETE                      "x26",\
-// OBSOLETE                      "x27",\
-// OBSOLETE                      "x28",\
-// OBSOLETE                      "x29",\
-// OBSOLETE                      "x30",\
-// OBSOLETE                      "x31",\
-// OBSOLETE                      "vbr",\
-// OBSOLETE                      "dmt0",\
-// OBSOLETE                      "dmd0",\
-// OBSOLETE                      "dma0",\
-// OBSOLETE                      "dmt1",\
-// OBSOLETE                      "dmd1",\
-// OBSOLETE                      "dma1",\
-// OBSOLETE                      "dmt2",\
-// OBSOLETE                      "dmd2",\
-// OBSOLETE                      "dma2",\
-// OBSOLETE                      "sr0",\
-// OBSOLETE                      "sr1",\
-// OBSOLETE                      "sr2",\
-// OBSOLETE                      "sr3",\
-// OBSOLETE                      "fpecr",\
-// OBSOLETE                      "fphs1",\
-// OBSOLETE                      "fpls1",\
-// OBSOLETE                      "fphs2",\
-// OBSOLETE                      "fpls2",\
-// OBSOLETE                      "fppt",\
-// OBSOLETE                      "fprh",\
-// OBSOLETE                      "fprl",\
-// OBSOLETE                      "fpit",\
-// OBSOLETE                      "fpsr",\
-// OBSOLETE                      "fpcr",\
-// OBSOLETE                  }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Register numbers of various important registers.
-// OBSOLETE    Note that some of these values are "real" register numbers,
-// OBSOLETE    and correspond to the general registers of the machine,
-// OBSOLETE    and some are "phony" register numbers which are too large
-// OBSOLETE    to be actual register numbers as far as the user is concerned
-// OBSOLETE    but do serve to get the desired values when passed to read_register.  */
-// OBSOLETE 
-// OBSOLETE #define R0_REGNUM 0                /* Contains the constant zero */
-// OBSOLETE #define SRP_REGNUM 1               /* Contains subroutine return pointer */
-// OBSOLETE #define RV_REGNUM 2                /* Contains simple return values */
-// OBSOLETE #define SRA_REGNUM 12              /* Contains address of struct return values */
-// OBSOLETE #define SP_REGNUM 31               /* Contains address of top of stack */
-// OBSOLETE 
-// OBSOLETE /* Instruction pointer notes...
-// OBSOLETE 
-// OBSOLETE    On the m88100:
-// OBSOLETE 
-// OBSOLETE    * cr04 = sxip.  On exception, contains the excepting pc (probably).
-// OBSOLETE    On rte, is ignored.
-// OBSOLETE 
-// OBSOLETE    * cr05 = snip.  On exception, contains the NPC (next pc).  On rte,
-// OBSOLETE    pc is loaded from here.
-// OBSOLETE 
-// OBSOLETE    * cr06 = sfip.  On exception, contains the NNPC (next next pc).  On
-// OBSOLETE    rte, the NPC is loaded from here.
-// OBSOLETE 
-// OBSOLETE    * lower two bits of each are flag bits.  Bit 1 is V means address
-// OBSOLETE    is valid.  If address is not valid, bit 0 is ignored.  Otherwise,
-// OBSOLETE    bit 0 is E and asks for an exception to be taken if this
-// OBSOLETE    instruction is executed.
-// OBSOLETE 
-// OBSOLETE    On the m88110:
-// OBSOLETE 
-// OBSOLETE    * cr04 = exip.  On exception, contains the address of the excepting
-// OBSOLETE    pc (always).  On rte, pc is loaded from here.  Bit 0, aka the D
-// OBSOLETE    bit, is a flag saying that the offending instruction was in a
-// OBSOLETE    branch delay slot.  If set, then cr05 contains the NPC.
-// OBSOLETE 
-// OBSOLETE    * cr05 = enip.  On exception, if the instruction pointed to by cr04
-// OBSOLETE    was in a delay slot as indicated by the bit 0 of cr04, aka the D
-// OBSOLETE    bit, the cr05 contains the NPC.  Otherwise ignored.
-// OBSOLETE 
-// OBSOLETE    * cr06 is invalid  */
-// OBSOLETE 
-// OBSOLETE /* Note that the Harris Unix kernels emulate the m88100's behavior on
-// OBSOLETE    the m88110.  */
-// OBSOLETE 
-// OBSOLETE #define SXIP_REGNUM 35             /* On m88100, Contains Shadow Execute
-// OBSOLETE                               Instruction Pointer.  */
-// OBSOLETE #define SNIP_REGNUM 36             /* On m88100, Contains Shadow Next
-// OBSOLETE                               Instruction Pointer.  */
-// OBSOLETE #define SFIP_REGNUM 37             /* On m88100, Contains Shadow Fetched
-// OBSOLETE                               Intruction pointer.  */
-// OBSOLETE 
-// OBSOLETE #define EXIP_REGNUM 35             /* On m88110, Contains Exception
-// OBSOLETE                               Executing Instruction Pointer.  */
-// OBSOLETE #define ENIP_REGNUM 36             /* On m88110, Contains the Exception
-// OBSOLETE                               Next Instruction Pointer.  */
-// OBSOLETE 
-// OBSOLETE #define PC_REGNUM SXIP_REGNUM      /* Program Counter */
-// OBSOLETE #define NPC_REGNUM SNIP_REGNUM     /* Next Program Counter */
-// OBSOLETE #define M88K_NNPC_REGNUM SFIP_REGNUM        /* Next Next Program Counter */
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE #define PSR_REGNUM 32              /* Processor Status Register */
-// OBSOLETE #define FPSR_REGNUM 33             /* Floating Point Status Register */
-// OBSOLETE #define FPCR_REGNUM 34             /* Floating Point Control Register */
-// OBSOLETE #define XFP_REGNUM 38              /* First Extended Float Register */
-// OBSOLETE #define X0_REGNUM XFP_REGNUM       /* Which also contains the constant zero */
-// OBSOLETE 
-// OBSOLETE /* This is rather a confusing lie.  Our m88k port using a stack pointer value
-// OBSOLETE    for the frame address.  Hence, the frame address and the frame pointer are
-// OBSOLETE    only indirectly related.  The value of this macro is the register number
-// OBSOLETE    fetched by the machine "independent" portions of gdb when they want to know
-// OBSOLETE    about a frame address.  Thus, we lie here and claim that FP_REGNUM is
-// OBSOLETE    SP_REGNUM.  */
-// OBSOLETE #define FP_REGNUM SP_REGNUM        /* Reg fetched to locate frame when pgm stops */
-// OBSOLETE #define ACTUAL_FP_REGNUM 30
-// OBSOLETE 
-// OBSOLETE /* PSR status bit definitions.  */
-// OBSOLETE 
-// OBSOLETE #define PSR_MODE           0x80000000
-// OBSOLETE #define PSR_BYTE_ORDER             0x40000000
-// OBSOLETE #define PSR_SERIAL_MODE            0x20000000
-// OBSOLETE #define PSR_CARRY          0x10000000
-// OBSOLETE #define PSR_SFU_DISABLE            0x000003f0
-// OBSOLETE #define PSR_SFU1_DISABLE   0x00000008
-// OBSOLETE #define PSR_MXM                    0x00000004
-// OBSOLETE #define PSR_IND                    0x00000002
-// OBSOLETE #define PSR_SFRZ           0x00000001
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* The following two comments come from the days prior to the m88110
-// OBSOLETE    port.  The m88110 handles the instruction pointers differently.  I
-// OBSOLETE    do not know what any m88110 kernels do as the m88110 port I'm
-// OBSOLETE    working with is for an embedded system.  rich@cygnus.com
-// OBSOLETE    13-sept-93.  */
-// OBSOLETE 
-// OBSOLETE /* BCS requires that the SXIP_REGNUM (or PC_REGNUM) contain the
-// OBSOLETE    address of the next instr to be executed when a breakpoint occurs.
-// OBSOLETE    Because the kernel gets the next instr (SNIP_REGNUM), the instr in
-// OBSOLETE    SNIP needs to be put back into SFIP, and the instr in SXIP should
-// OBSOLETE    be shifted to SNIP */
-// OBSOLETE 
-// OBSOLETE /* Are you sitting down?  It turns out that the 88K BCS (binary
-// OBSOLETE    compatibility standard) folks originally felt that the debugger
-// OBSOLETE    should be responsible for backing up the IPs, not the kernel (as is
-// OBSOLETE    usually done).  Well, they have reversed their decision, and in
-// OBSOLETE    future releases our kernel will be handling the backing up of the
-// OBSOLETE    IPs.  So, eventually, we won't need to do the SHIFT_INST_REGS
-// OBSOLETE    stuff.  But, for now, since there are 88K systems out there that do
-// OBSOLETE    need the debugger to do the IP shifting, and since there will be
-// OBSOLETE    systems where the kernel does the shifting, the code is a little
-// OBSOLETE    more complex than perhaps it needs to be (we still go inside
-// OBSOLETE    SHIFT_INST_REGS, and if the shifting hasn't occurred then gdb goes
-// OBSOLETE    ahead and shifts).  */
-// OBSOLETE 
-// OBSOLETE extern int target_is_m88110;
-// OBSOLETE #define SHIFT_INST_REGS() \
-// OBSOLETE if (!target_is_m88110) \
-// OBSOLETE { \
-// OBSOLETE     CORE_ADDR pc = read_register (PC_REGNUM); \
-// OBSOLETE     CORE_ADDR npc = read_register (NPC_REGNUM); \
-// OBSOLETE     if (pc != npc) \
-// OBSOLETE     { \
-// OBSOLETE    write_register (M88K_NNPC_REGNUM, npc); \
-// OBSOLETE    write_register (NPC_REGNUM, pc); \
-// OBSOLETE     } \
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE     /* Storing the following registers is a no-op. */
-// OBSOLETE #define CANNOT_STORE_REGISTER(regno)       (((regno) == R0_REGNUM) \
-// OBSOLETE                                     || ((regno) == X0_REGNUM))
-// OBSOLETE 
-// OBSOLETE   /* Number of bytes of storage in the actual machine representation
-// OBSOLETE      for register N.  On the m88k,  the general purpose registers are 4
-// OBSOLETE      bytes and the 88110 extended registers are 10 bytes. */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_RAW_SIZE(N) ((N) < XFP_REGNUM ? 4 : 10)
-// OBSOLETE 
-// OBSOLETE   /* Total amount of space needed to store our copies of the machine's
-// OBSOLETE      register state, the array `registers'.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_BYTES ((GP_REGS * REGISTER_RAW_SIZE(0)) \
-// OBSOLETE                    + (FP_REGS * REGISTER_RAW_SIZE(XFP_REGNUM)))
-// OBSOLETE 
-// OBSOLETE   /* Index within `registers' of the first byte of the space for
-// OBSOLETE      register N.  */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_BYTE(N) (((N) * REGISTER_RAW_SIZE(0)) \
-// OBSOLETE                      + ((N) >= XFP_REGNUM \
-// OBSOLETE                         ? (((N) - XFP_REGNUM) \
-// OBSOLETE                            * REGISTER_RAW_SIZE(XFP_REGNUM)) \
-// OBSOLETE                         : 0))
-// OBSOLETE 
-// OBSOLETE   /* Number of bytes of storage in the program's representation for
-// OBSOLETE      register N.  On the m88k, all registers are 4 bytes excepting the
-// OBSOLETE      m88110 extended registers which are 8 byte doubles. */
-// OBSOLETE 
-// OBSOLETE #define REGISTER_VIRTUAL_SIZE(N) ((N) < XFP_REGNUM ? 4 : 8)
-// OBSOLETE 
-// OBSOLETE   /* Largest value REGISTER_RAW_SIZE can have.  */
-// OBSOLETE 
-// OBSOLETE #define MAX_REGISTER_RAW_SIZE (REGISTER_RAW_SIZE(XFP_REGNUM))
-// OBSOLETE 
-// OBSOLETE   /* Largest value REGISTER_VIRTUAL_SIZE can have.
-// OBSOLETE      Are FPS1, FPS2, FPR "virtual" regisers? */
-// OBSOLETE 
-// OBSOLETE #define MAX_REGISTER_VIRTUAL_SIZE (REGISTER_RAW_SIZE(XFP_REGNUM))
-// OBSOLETE 
-// OBSOLETE /* Return the GDB type object for the "standard" data type
-// OBSOLETE    of data in register N.  */
-// OBSOLETE 
-// OBSOLETE struct type *m88k_register_type (int regnum);
-// OBSOLETE #define REGISTER_VIRTUAL_TYPE(N) m88k_register_type (N)
-// OBSOLETE 
-// OBSOLETE /* The 88k call/return conventions call for "small" values to be returned
-// OBSOLETE    into consecutive registers starting from r2.  */
-// OBSOLETE 
-// OBSOLETE #define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \
-// OBSOLETE   memcpy ((VALBUF), &(((char *)REGBUF)[REGISTER_BYTE(RV_REGNUM)]), TYPE_LENGTH (TYPE))
-// OBSOLETE 
-// OBSOLETE #define DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF))
-// OBSOLETE 
-// OBSOLETE /* Write into appropriate registers a function return value
-// OBSOLETE    of type TYPE, given in virtual format.  */
-// OBSOLETE 
-// OBSOLETE #define STORE_RETURN_VALUE(TYPE,VALBUF) \
-// OBSOLETE   write_register_bytes (2*REGISTER_RAW_SIZE(0), (VALBUF), TYPE_LENGTH (TYPE))
-// OBSOLETE 
-// OBSOLETE /* In COFF, if PCC says a parameter is a short or a char, do not
-// OBSOLETE    change it to int (it seems the convention is to change it). */
-// OBSOLETE 
-// OBSOLETE #define BELIEVE_PCC_PROMOTION 1
-// OBSOLETE 
-// OBSOLETE /* Describe the pointer in each stack frame to the previous stack frame
-// OBSOLETE    (its caller).  */
-// OBSOLETE 
-// OBSOLETE /* FRAME_CHAIN takes a frame's nominal address
-// OBSOLETE    and produces the frame's chain-pointer.
-// OBSOLETE 
-// OBSOLETE    However, if FRAME_CHAIN_VALID returns zero,
-// OBSOLETE    it means the given frame is the outermost one and has no caller.  */
-// OBSOLETE 
-// OBSOLETE extern CORE_ADDR frame_chain ();
-// OBSOLETE extern int frame_chain_valid ();
-// OBSOLETE extern int frameless_function_invocation ();
-// OBSOLETE 
-// OBSOLETE #define FRAME_CHAIN(thisframe) \
-// OBSOLETE    frame_chain (thisframe)
-// OBSOLETE 
-// OBSOLETE #define    FRAMELESS_FUNCTION_INVOCATION(frame)    \
-// OBSOLETE    (frameless_function_invocation (frame))
-// OBSOLETE 
-// OBSOLETE /* Define other aspects of the stack frame.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_SAVED_PC(FRAME)      \
-// OBSOLETE    frame_saved_pc (FRAME)
-// OBSOLETE extern CORE_ADDR frame_saved_pc ();
-// OBSOLETE 
-// OBSOLETE #define FRAME_ARGS_ADDRESS(fi)     \
-// OBSOLETE    frame_args_address (fi)
-// OBSOLETE extern CORE_ADDR frame_args_address ();
-// OBSOLETE 
-// OBSOLETE #define FRAME_LOCALS_ADDRESS(fi) \
-// OBSOLETE    frame_locals_address (fi)
-// OBSOLETE extern CORE_ADDR frame_locals_address ();
-// OBSOLETE 
-// OBSOLETE /* Return number of args passed to a frame.
-// OBSOLETE    Can return -1, meaning no way to tell.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_NUM_ARGS(fi)  (-1)
-// OBSOLETE 
-// OBSOLETE /* Return number of bytes at start of arglist that are not really args.  */
-// OBSOLETE 
-// OBSOLETE #define FRAME_ARGS_SKIP 0
-// OBSOLETE 
-// OBSOLETE /* Put here the code to store, into a struct frame_saved_regs,
-// OBSOLETE    the addresses of the saved registers of frame described by FRAME_INFO.
-// OBSOLETE    This includes special registers such as pc and fp saved in special
-// OBSOLETE    ways in the stack frame.  sp is even more special:
-// OBSOLETE    the address we return for it IS the sp for the next frame.  */
-// OBSOLETE 
-// OBSOLETE /* On the 88k, parameter registers get stored into the so called "homing"
-// OBSOLETE    area.  This *always* happens when you compiled with GCC and use -g.
-// OBSOLETE    Also, (with GCC and -g) the saving of the parameter register values
-// OBSOLETE    always happens right within the function prologue code, so these register
-// OBSOLETE    values can generally be relied upon to be already copied into their
-// OBSOLETE    respective homing slots by the time you will normally try to look at
-// OBSOLETE    them (we hope).
-// OBSOLETE 
-// OBSOLETE    Note that homing area stack slots are always at *positive* offsets from
-// OBSOLETE    the frame pointer.  Thus, the homing area stack slots for the parameter
-// OBSOLETE    registers (passed values) for a given function are actually part of the
-// OBSOLETE    frame area of the caller.  This is unusual, but it should not present
-// OBSOLETE    any special problems for GDB.
-// OBSOLETE 
-// OBSOLETE    Note also that on the 88k, we are only interested in finding the
-// OBSOLETE    registers that might have been saved in memory.  This is a subset of
-// OBSOLETE    the whole set of registers because the standard calling sequence allows
-// OBSOLETE    the called routine to clobber many registers.
-// OBSOLETE 
-// OBSOLETE    We could manage to locate values for all of the so called "preserved"
-// OBSOLETE    registers (some of which may get saved within any particular frame) but
-// OBSOLETE    that would require decoding all of the tdesc information.  That would be
-// OBSOLETE    nice information for GDB to have, but it is not strictly manditory if we
-// OBSOLETE    can live without the ability to look at values within (or backup to)
-// OBSOLETE    previous frames.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE struct frame_saved_regs;
-// OBSOLETE struct frame_info;
-// OBSOLETE 
-// OBSOLETE void frame_find_saved_regs (struct frame_info *fi,
-// OBSOLETE                        struct frame_saved_regs *fsr);
-// OBSOLETE 
-// OBSOLETE #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \
-// OBSOLETE         frame_find_saved_regs (frame_info, &frame_saved_regs)
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE #define POP_FRAME pop_frame ()
-// OBSOLETE extern void pop_frame ();
-// OBSOLETE 
-// OBSOLETE /* Call function stuff contributed by Kevin Buettner of Motorola.  */
-// OBSOLETE 
-// OBSOLETE #define CALL_DUMMY_LOCATION AFTER_TEXT_END
-// OBSOLETE 
-// OBSOLETE extern void m88k_push_dummy_frame ();
-// OBSOLETE #define PUSH_DUMMY_FRAME   m88k_push_dummy_frame()
-// OBSOLETE 
-// OBSOLETE #define CALL_DUMMY {                               \
-// OBSOLETE 0x67ff00c0,        /*   0:   subu  #sp,#sp,0xc0 */ \
-// OBSOLETE 0x243f0004,        /*   4:   st    #r1,#sp,0x4 */ \
-// OBSOLETE 0x245f0008,        /*   8:   st    #r2,#sp,0x8 */ \
-// OBSOLETE 0x247f000c,        /*   c:   st    #r3,#sp,0xc */ \
-// OBSOLETE 0x249f0010,        /*  10:   st    #r4,#sp,0x10 */ \
-// OBSOLETE 0x24bf0014,        /*  14:   st    #r5,#sp,0x14 */ \
-// OBSOLETE 0x24df0018,        /*  18:   st    #r6,#sp,0x18 */ \
-// OBSOLETE 0x24ff001c,        /*  1c:   st    #r7,#sp,0x1c */ \
-// OBSOLETE 0x251f0020,        /*  20:   st    #r8,#sp,0x20 */ \
-// OBSOLETE 0x253f0024,        /*  24:   st    #r9,#sp,0x24 */ \
-// OBSOLETE 0x255f0028,        /*  28:   st    #r10,#sp,0x28 */ \
-// OBSOLETE 0x257f002c,        /*  2c:   st    #r11,#sp,0x2c */ \
-// OBSOLETE 0x259f0030,        /*  30:   st    #r12,#sp,0x30 */ \
-// OBSOLETE 0x25bf0034,        /*  34:   st    #r13,#sp,0x34 */ \
-// OBSOLETE 0x25df0038,        /*  38:   st    #r14,#sp,0x38 */ \
-// OBSOLETE 0x25ff003c,        /*  3c:   st    #r15,#sp,0x3c */ \
-// OBSOLETE 0x261f0040,        /*  40:   st    #r16,#sp,0x40 */ \
-// OBSOLETE 0x263f0044,        /*  44:   st    #r17,#sp,0x44 */ \
-// OBSOLETE 0x265f0048,        /*  48:   st    #r18,#sp,0x48 */ \
-// OBSOLETE 0x267f004c,        /*  4c:   st    #r19,#sp,0x4c */ \
-// OBSOLETE 0x269f0050,        /*  50:   st    #r20,#sp,0x50 */ \
-// OBSOLETE 0x26bf0054,        /*  54:   st    #r21,#sp,0x54 */ \
-// OBSOLETE 0x26df0058,        /*  58:   st    #r22,#sp,0x58 */ \
-// OBSOLETE 0x26ff005c,        /*  5c:   st    #r23,#sp,0x5c */ \
-// OBSOLETE 0x271f0060,        /*  60:   st    #r24,#sp,0x60 */ \
-// OBSOLETE 0x273f0064,        /*  64:   st    #r25,#sp,0x64 */ \
-// OBSOLETE 0x275f0068,        /*  68:   st    #r26,#sp,0x68 */ \
-// OBSOLETE 0x277f006c,        /*  6c:   st    #r27,#sp,0x6c */ \
-// OBSOLETE 0x279f0070,        /*  70:   st    #r28,#sp,0x70 */ \
-// OBSOLETE 0x27bf0074,        /*  74:   st    #r29,#sp,0x74 */ \
-// OBSOLETE 0x27df0078,        /*  78:   st    #r30,#sp,0x78 */ \
-// OBSOLETE 0x63df0000,        /*  7c:   addu  #r30,#sp,0x0 */ \
-// OBSOLETE 0x145f0000,        /*  80:   ld    #r2,#sp,0x0 */ \
-// OBSOLETE 0x147f0004,        /*  84:   ld    #r3,#sp,0x4 */ \
-// OBSOLETE 0x149f0008,        /*  88:   ld    #r4,#sp,0x8 */ \
-// OBSOLETE 0x14bf000c,        /*  8c:   ld    #r5,#sp,0xc */ \
-// OBSOLETE 0x14df0010,        /*  90:   ld    #r6,#sp,0x10 */ \
-// OBSOLETE 0x14ff0014,        /*  94:   ld    #r7,#sp,0x14 */ \
-// OBSOLETE 0x151f0018,        /*  98:   ld    #r8,#sp,0x18 */ \
-// OBSOLETE 0x153f001c,        /*  9c:   ld    #r9,#sp,0x1c */ \
-// OBSOLETE 0x5c200000,        /*  a0:   or.u  #r1,#r0,0x0 */ \
-// OBSOLETE 0x58210000,        /*  a4:   or    #r1,#r1,0x0 */ \
-// OBSOLETE 0xf400c801,        /*  a8:   jsr   #r1 */ \
-// OBSOLETE 0xf000d1ff /*  ac:   tb0   0x0,#r0,0x1ff */ \
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #define CALL_DUMMY_START_OFFSET 0x80
-// OBSOLETE #define CALL_DUMMY_LENGTH 0xb0
-// OBSOLETE 
-// OBSOLETE /* FIXME: byteswapping.  */
-// OBSOLETE #define FIX_CALL_DUMMY(dummy, pc, fun, nargs, args, type, gcc_p)   \
-// OBSOLETE {                                                                  \
-// OBSOLETE   *(unsigned long *)((char *) (dummy) + 0xa0) |=                   \
-// OBSOLETE    (((unsigned long) (fun)) >> 16);                                \
-// OBSOLETE   *(unsigned long *)((char *) (dummy) + 0xa4) |=                   \
-// OBSOLETE    (((unsigned long) (fun)) & 0xffff);                             \
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Stack must be aligned on 64-bit boundaries when synthesizing
-// OBSOLETE    function calls. */
-// OBSOLETE 
-// OBSOLETE #define STACK_ALIGN(addr) (((addr) + 7) & -8)
-// OBSOLETE 
-// OBSOLETE #define STORE_STRUCT_RETURN(addr, sp) \
-// OBSOLETE     write_register (SRA_REGNUM, (addr))
-// OBSOLETE 
-// OBSOLETE #define NEED_TEXT_START_END 1
-// OBSOLETE 
-// OBSOLETE /* According to the MC88100 RISC Microprocessor User's Manual, section
-// OBSOLETE    6.4.3.1.2:
-// OBSOLETE 
-// OBSOLETE    ... can be made to return to a particular instruction by placing a
-// OBSOLETE    valid instruction address in the SNIP and the next sequential
-// OBSOLETE    instruction address in the SFIP (with V bits set and E bits clear).
-// OBSOLETE    The rte resumes execution at the instruction pointed to by the 
-// OBSOLETE    SNIP, then the SFIP.
-// OBSOLETE 
-// OBSOLETE    The E bit is the least significant bit (bit 0).  The V (valid) bit is
-// OBSOLETE    bit 1.  This is why we logical or 2 into the values we are writing
-// OBSOLETE    below.  It turns out that SXIP plays no role when returning from an
-// OBSOLETE    exception so nothing special has to be done with it.  We could even
-// OBSOLETE    (presumably) give it a totally bogus value.
-// OBSOLETE 
-// OBSOLETE    -- Kevin Buettner
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE extern void m88k_target_write_pc (CORE_ADDR pc, ptid_t ptid);
-// OBSOLETE #define TARGET_WRITE_PC(VAL, PID) m88k_target_write_pc (VAL, PID)
diff --git a/gdb/config/m88k/xm-delta88.h b/gdb/config/m88k/xm-delta88.h
deleted file mode 100644 (file)
index df2b8e6..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-// OBSOLETE /* Host machine description for Motorola Delta 88 system, for GDB.
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #if !defined (USG)
-// OBSOLETE #define USG 1
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE #include <sys/time.h>
-// OBSOLETE 
-// OBSOLETE #define HAVE_TERMIO
-// OBSOLETE 
-// OBSOLETE /*#define USIZE 2048 */
-// OBSOLETE /*#define NBPG NBPC */
-// OBSOLETE /* Might be defined in <sys/param.h>.  I suspect this define was a relic
-// OBSOLETE    from before when BFD did core files.  */
-// OBSOLETE /* #define UPAGES USIZE */
-// OBSOLETE 
-// OBSOLETE /* This is the amount to subtract from u.u_ar0
-// OBSOLETE    to get the offset in the core file of the register values.  */
-// OBSOLETE 
-// OBSOLETE /* Since registers r0 through r31 are stored directly in the struct ptrace_user,
-// OBSOLETE    (for m88k BCS)
-// OBSOLETE    the ptrace_user offsets are sufficient and KERNEL_U_ADDRESS can be 0 */
-// OBSOLETE 
-// OBSOLETE #define KERNEL_U_ADDR 0
diff --git a/gdb/config/m88k/xm-dgux.h b/gdb/config/m88k/xm-dgux.h
deleted file mode 100644 (file)
index dc99f97..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-// OBSOLETE /* Host-machine dependent parameters for Motorola 88000, for GDB.
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1998
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #if !defined (USG)
-// OBSOLETE #define USG 1
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE 
-// OBSOLETE #ifdef __GNUC__
-// OBSOLETE #define memcpy __builtin_memcpy
-// OBSOLETE /* gcc doesn't have this, at least not gcc 1.92.  */
-// OBSOLETE /* #define memset __builtin_memset */
-// OBSOLETE #define strcmp __builtin_strcmp
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #define x_foff _x_x._x_offset
-// OBSOLETE #define x_fname _x_name
-// OBSOLETE #define USER ptrace_user
-// OBSOLETE #define _BSD_WAIT_FLAVOR
-// OBSOLETE 
-// OBSOLETE #define HAVE_TERMIO
-// OBSOLETE 
-// OBSOLETE #ifndef USIZE
-// OBSOLETE #define USIZE 2048
-// OBSOLETE #endif
-// OBSOLETE #define NBPG NBPC
-// OBSOLETE #define UPAGES USIZE
-// OBSOLETE 
-// OBSOLETE /* This is the amount to subtract from u.u_ar0
-// OBSOLETE    to get the offset in the core file of the register values.  */
-// OBSOLETE 
-// OBSOLETE /* Since registers r0 through r31 are stored directly in the struct ptrace_user,
-// OBSOLETE    (for m88k BCS)
-// OBSOLETE    the ptrace_user offsets are sufficient and KERNEL_U_ADDRESS can be 0 */
-// OBSOLETE 
-// OBSOLETE #define KERNEL_U_ADDR 0
diff --git a/gdb/cxux-nat.c b/gdb/cxux-nat.c
deleted file mode 100644 (file)
index e8f35a3..0000000
+++ /dev/null
@@ -1,537 +0,0 @@
-// OBSOLETE /* Native support for Motorola 88k running Harris CX/UX.
-// OBSOLETE    Copyright 1988, 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000,
-// OBSOLETE    2001 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE 
-// OBSOLETE #include <sys/types.h>
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE #include <sys/dir.h>
-// OBSOLETE #include <signal.h>
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include <sys/user.h>
-// OBSOLETE 
-// OBSOLETE #include "bfd.h"
-// OBSOLETE #include "symfile.h"
-// OBSOLETE #include "objfiles.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE #ifndef USER                       /* added to support BCS ptrace_user */
-// OBSOLETE #define USER ptrace_user
-// OBSOLETE #endif
-// OBSOLETE #include <sys/ioctl.h>
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE #include <sys/file.h>
-// OBSOLETE #include "gdb_stat.h"
-// OBSOLETE 
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "setjmp.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE 
-// OBSOLETE #include <sys/ptrace.h>
-// OBSOLETE 
-// OBSOLETE /* CX/UX provides them already, but as word offsets instead of char offsets */
-// OBSOLETE #define SXIP_OFFSET (PT_SXIP * 4)
-// OBSOLETE #define SNIP_OFFSET (PT_SNIP * 4)
-// OBSOLETE #define SFIP_OFFSET (PT_SFIP * 4)
-// OBSOLETE #define PSR_OFFSET  (PT_PSR  * sizeof(int))
-// OBSOLETE #define FPSR_OFFSET (PT_FPSR * sizeof(int))
-// OBSOLETE #define FPCR_OFFSET (PT_FPCR * sizeof(int))
-// OBSOLETE 
-// OBSOLETE #define XREGADDR(r) (((char *)&u.pt_x0-(char *)&u) + \
-// OBSOLETE                      ((r)-X0_REGNUM)*sizeof(X_REGISTER_RAW_TYPE))
-// OBSOLETE 
-// OBSOLETE extern int have_symbol_file_p ();
-// OBSOLETE 
-// OBSOLETE extern jmp_buf stack_jmp;
-// OBSOLETE 
-// OBSOLETE extern int errno;
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fetch_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   register unsigned int regaddr;
-// OBSOLETE   char buf[MAX_REGISTER_RAW_SIZE];
-// OBSOLETE   register int i;
-// OBSOLETE 
-// OBSOLETE   struct USER u;
-// OBSOLETE   unsigned int offset;
-// OBSOLETE 
-// OBSOLETE   offset = (char *) &u.pt_r0 - (char *) &u;
-// OBSOLETE   regaddr = offset;                /* byte offset to r0; */
-// OBSOLETE 
-// OBSOLETE /*  offset = ptrace (3, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; */
-// OBSOLETE   for (regno = 0; regno < PC_REGNUM; regno++)
-// OBSOLETE     {
-// OBSOLETE       /*regaddr = register_addr (regno, offset); */
-// OBSOLETE       /* 88k enhancement  */
-// OBSOLETE 
-// OBSOLETE       for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
-// OBSOLETE    {
-// OBSOLETE      *(int *) &buf[i] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                                 (PTRACE_ARG3_TYPE) regaddr, 0);
-// OBSOLETE      regaddr += sizeof (int);
-// OBSOLETE    }
-// OBSOLETE       supply_register (regno, buf);
-// OBSOLETE     }
-// OBSOLETE   /* now load up registers 32-37; special pc registers */
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) PSR_OFFSET, 0);
-// OBSOLETE   supply_register (PSR_REGNUM, buf);
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) FPSR_OFFSET, 0);
-// OBSOLETE   supply_register (FPSR_REGNUM, buf);
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) FPCR_OFFSET, 0);
-// OBSOLETE   supply_register (FPCR_REGNUM, buf);
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) SXIP_OFFSET, 0);
-// OBSOLETE   supply_register (SXIP_REGNUM, buf);
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) SNIP_OFFSET, 0);
-// OBSOLETE   supply_register (SNIP_REGNUM, buf);
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) SFIP_OFFSET, 0);
-// OBSOLETE   supply_register (SFIP_REGNUM, buf);
-// OBSOLETE 
-// OBSOLETE   if (target_is_m88110)
-// OBSOLETE     {
-// OBSOLETE       for (regaddr = XREGADDR (X0_REGNUM), regno = X0_REGNUM;
-// OBSOLETE       regno < NUM_REGS;
-// OBSOLETE       regno++, regaddr += 16)
-// OBSOLETE    {
-// OBSOLETE      X_REGISTER_RAW_TYPE xval;
-// OBSOLETE 
-// OBSOLETE      *(int *) &xval.w1 = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                                  (PTRACE_ARG3_TYPE) regaddr, 0);
-// OBSOLETE      *(int *) &xval.w2 = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                                  (PTRACE_ARG3_TYPE) (regaddr + 4), 0);
-// OBSOLETE      *(int *) &xval.w3 = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                                  (PTRACE_ARG3_TYPE) (regaddr + 8), 0);
-// OBSOLETE      *(int *) &xval.w4 = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                                  (PTRACE_ARG3_TYPE) (regaddr + 12), 0);
-// OBSOLETE      supply_register (regno, (void *) &xval);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store our register values back into the inferior.
-// OBSOLETE    If REGNO is -1, do this for all registers.
-// OBSOLETE    Otherwise, REGNO specifies which register (so we can save time).  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE store_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   register unsigned int regaddr;
-// OBSOLETE   char buf[80];
-// OBSOLETE 
-// OBSOLETE   struct USER u;
-// OBSOLETE 
-// OBSOLETE   unsigned int offset = (char *) &u.pt_r0 - (char *) &u;
-// OBSOLETE 
-// OBSOLETE   regaddr = offset;
-// OBSOLETE 
-// OBSOLETE   /* Don't try to deal with EXIP_REGNUM or ENIP_REGNUM, because I think either
-// OBSOLETE      svr3 doesn't run on an 88110, or the kernel isolates the different (not
-// OBSOLETE      completely sure this is true, but seems to be.  */
-// OBSOLETE   if (regno >= 0)
-// OBSOLETE     {
-// OBSOLETE       /*      regaddr = register_addr (regno, offset); */
-// OBSOLETE       if (regno < PC_REGNUM)
-// OBSOLETE    {
-// OBSOLETE      regaddr = offset + regno * sizeof (int);
-// OBSOLETE      errno = 0;
-// OBSOLETE      ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE              (PTRACE_ARG3_TYPE) regaddr, read_register (regno));
-// OBSOLETE      if (errno != 0)
-// OBSOLETE        {
-// OBSOLETE          sprintf (buf, "writing register number %d", regno);
-// OBSOLETE          perror_with_name (buf);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else if (regno == PSR_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) PSR_OFFSET, read_register (regno));
-// OBSOLETE       else if (regno == FPSR_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) FPSR_OFFSET, read_register (regno));
-// OBSOLETE       else if (regno == FPCR_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) FPCR_OFFSET, read_register (regno));
-// OBSOLETE       else if (regno == SXIP_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) SXIP_OFFSET, read_register (regno));
-// OBSOLETE       else if (regno == SNIP_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) SNIP_OFFSET, read_register (regno));
-// OBSOLETE       else if (regno == SFIP_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) SFIP_OFFSET, read_register (regno));
-// OBSOLETE       else if (target_is_m88110 && regno < NUM_REGS)
-// OBSOLETE    {
-// OBSOLETE      X_REGISTER_RAW_TYPE xval;
-// OBSOLETE 
-// OBSOLETE      read_register_bytes (REGISTER_BYTE (regno), (char *) &xval,
-// OBSOLETE                           sizeof (X_REGISTER_RAW_TYPE));
-// OBSOLETE      regaddr = XREGADDR (regno);
-// OBSOLETE      ptrace (6, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) regaddr, xval.w1);
-// OBSOLETE      ptrace (6, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) regaddr + 4, xval.w2);
-// OBSOLETE      ptrace (6, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) regaddr + 8, xval.w3);
-// OBSOLETE      ptrace (6, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) regaddr + 12, xval.w4);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    printf_unfiltered ("Bad register number for store_inferior routine\n");
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       for (regno = 0; regno < PC_REGNUM; regno++)
-// OBSOLETE    {
-// OBSOLETE      /*      regaddr = register_addr (regno, offset); */
-// OBSOLETE      errno = 0;
-// OBSOLETE      regaddr = offset + regno * sizeof (int);
-// OBSOLETE      ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE              (PTRACE_ARG3_TYPE) regaddr, read_register (regno));
-// OBSOLETE      if (errno != 0)
-// OBSOLETE        {
-// OBSOLETE          sprintf (buf, "writing register number %d", regno);
-// OBSOLETE          perror_with_name (buf);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) PSR_OFFSET, read_register (regno));
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) FPSR_OFFSET, read_register (regno));
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) FPCR_OFFSET, read_register (regno));
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) SXIP_OFFSET, read_register (SXIP_REGNUM));
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) SNIP_OFFSET, read_register (SNIP_REGNUM));
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) SFIP_OFFSET, read_register (SFIP_REGNUM));
-// OBSOLETE       if (target_is_m88110)
-// OBSOLETE    {
-// OBSOLETE      for (regno = X0_REGNUM; regno < NUM_REGS; regno++)
-// OBSOLETE        {
-// OBSOLETE          X_REGISTER_RAW_TYPE xval;
-// OBSOLETE 
-// OBSOLETE          read_register_bytes (REGISTER_BYTE (regno), (char *) &xval,
-// OBSOLETE                               sizeof (X_REGISTER_RAW_TYPE));
-// OBSOLETE          regaddr = XREGADDR (regno);
-// OBSOLETE          ptrace (6, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) regaddr, xval.w1);
-// OBSOLETE          ptrace (6, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) (regaddr + 4), xval.w2);
-// OBSOLETE          ptrace (6, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) (regaddr + 8), xval.w3);
-// OBSOLETE          ptrace (6, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) (regaddr + 12), xval.w4);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* blockend is the address of the end of the user structure */
-// OBSOLETE 
-// OBSOLETE m88k_register_u_addr (int blockend, int regnum)
-// OBSOLETE {
-// OBSOLETE   struct USER u;
-// OBSOLETE   int ustart = blockend - sizeof (struct USER);
-// OBSOLETE 
-// OBSOLETE   if (regnum < PSR_REGNUM)
-// OBSOLETE     return (ustart + ((int) &u.pt_r0 - (int) &u) +
-// OBSOLETE        REGISTER_SIZE * regnum);
-// OBSOLETE   else if (regnum == PSR_REGNUM)
-// OBSOLETE     return (ustart + ((int) &u.pt_psr) - (int) &u);
-// OBSOLETE   else if (regnum == FPSR_REGNUM)
-// OBSOLETE     return (ustart + ((int) &u.pt_fpsr) - (int) &u);
-// OBSOLETE   else if (regnum == FPCR_REGNUM)
-// OBSOLETE     return (ustart + ((int) &u.pt_fpcr) - (int) &u);
-// OBSOLETE   else if (regnum == SXIP_REGNUM)
-// OBSOLETE     return (ustart + SXIP_OFFSET);
-// OBSOLETE   else if (regnum == SNIP_REGNUM)
-// OBSOLETE     return (ustart + SNIP_OFFSET);
-// OBSOLETE   else if (regnum == SFIP_REGNUM)
-// OBSOLETE     return (ustart + SFIP_OFFSET);
-// OBSOLETE   else if (target_is_m88110)
-// OBSOLETE     return (ustart + ((int) &u.pt_x0 - (int) &u) + /* Must be X register */
-// OBSOLETE        sizeof (u.pt_x0) * (regnum - X0_REGNUM));
-// OBSOLETE   else
-// OBSOLETE     return (blockend + REGISTER_SIZE * regnum);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #ifdef USE_PROC_FS
-// OBSOLETE 
-// OBSOLETE #include <sys/procfs.h>
-// OBSOLETE 
-// OBSOLETE /* Prototypes for supply_gregset etc. */
-// OBSOLETE #include "gregset.h"
-// OBSOLETE 
-// OBSOLETE /*  Given a pointer to a general register set in /proc format (gregset_t *),
-// OBSOLETE    unpack the register contents and supply them as gdb's idea of the current
-// OBSOLETE    register values. */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE supply_gregset (gregset_t *gregsetp)
-// OBSOLETE {
-// OBSOLETE   register int regi;
-// OBSOLETE   register greg_t *regp = (greg_t *) gregsetp;
-// OBSOLETE 
-// OBSOLETE   for (regi = 0; regi <= SP_REGNUM; regi++)
-// OBSOLETE     supply_register (regi, (char *) (regp + regi));
-// OBSOLETE 
-// OBSOLETE   supply_register (SXIP_REGNUM, (char *) (regp + R_XIP));
-// OBSOLETE   supply_register (SNIP_REGNUM, (char *) (regp + R_NIP));
-// OBSOLETE   supply_register (SFIP_REGNUM, (char *) (regp + R_FIP));
-// OBSOLETE   supply_register (PSR_REGNUM, (char *) (regp + R_PSR));
-// OBSOLETE   supply_register (FPSR_REGNUM, (char *) (regp + R_FPSR));
-// OBSOLETE   supply_register (FPCR_REGNUM, (char *) (regp + R_FPCR));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fill_gregset (gregset_t *gregsetp, int regno)
-// OBSOLETE {
-// OBSOLETE   int regi;
-// OBSOLETE   register greg_t *regp = (greg_t *) gregsetp;
-// OBSOLETE 
-// OBSOLETE   for (regi = 0; regi <= R_R31; regi++)
-// OBSOLETE     if ((regno == -1) || (regno == regi))
-// OBSOLETE       *(regp + regi) = *(int *) &registers[REGISTER_BYTE (regi)];
-// OBSOLETE 
-// OBSOLETE   if ((regno == -1) || (regno == SXIP_REGNUM))
-// OBSOLETE     *(regp + R_XIP) = *(int *) &registers[REGISTER_BYTE (SXIP_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == SNIP_REGNUM))
-// OBSOLETE     *(regp + R_NIP) = *(int *) &registers[REGISTER_BYTE (SNIP_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == SFIP_REGNUM))
-// OBSOLETE     *(regp + R_FIP) = *(int *) &registers[REGISTER_BYTE (SFIP_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == PSR_REGNUM))
-// OBSOLETE     *(regp + R_PSR) = *(int *) &registers[REGISTER_BYTE (PSR_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == FPSR_REGNUM))
-// OBSOLETE     *(regp + R_FPSR) = *(int *) &registers[REGISTER_BYTE (FPSR_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == FPCR_REGNUM))
-// OBSOLETE     *(regp + R_FPCR) = *(int *) &registers[REGISTER_BYTE (FPCR_REGNUM)];
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #endif /* USE_PROC_FS */
-// OBSOLETE 
-// OBSOLETE /* This support adds the equivalent of adb's % command.  When
-// OBSOLETE    the `add-shared-symbol-files' command is given, this routine scans 
-// OBSOLETE    the dynamic linker's link map and reads the minimal symbols
-// OBSOLETE    from each shared object file listed in the map. */
-// OBSOLETE 
-// OBSOLETE struct link_map
-// OBSOLETE {
-// OBSOLETE   unsigned long l_addr;            /* address at which object is mapped */
-// OBSOLETE   char *l_name;                    /* full name of loaded object */
-// OBSOLETE   void *l_ld;                      /* dynamic structure of object */
-// OBSOLETE   struct link_map *l_next; /* next link object */
-// OBSOLETE   struct link_map *l_prev; /* previous link object */
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE #define LINKS_MAP_POINTER "_ld_tail"
-// OBSOLETE #define LIBC_FILE "/usr/lib/libc.so.1"
-// OBSOLETE #define SHARED_OFFSET 0xf0001000
-// OBSOLETE 
-// OBSOLETE #ifndef PATH_MAX
-// OBSOLETE #define PATH_MAX 1023              /* maximum size of path name on OS */
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE add_shared_symbol_files (void)
-// OBSOLETE {
-// OBSOLETE   void *desc;
-// OBSOLETE   struct link_map *ld_map, *lm, lms;
-// OBSOLETE   struct minimal_symbol *minsym;
-// OBSOLETE   struct objfile *objfile;
-// OBSOLETE   char *path_name;
-// OBSOLETE 
-// OBSOLETE   if (ptid_equal (inferior_ptid, null_ptid))
-// OBSOLETE     {
-// OBSOLETE       warning ("The program has not yet been started.");
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   objfile = symbol_file_add (LIBC_FILE, 0, NULL, 0, OBJF_READNOW);
-// OBSOLETE   minsym = lookup_minimal_symbol (LINKS_MAP_POINTER, objfile);
-// OBSOLETE 
-// OBSOLETE   ld_map = (struct link_map *)
-// OBSOLETE     read_memory_integer (((int) SYMBOL_VALUE_ADDRESS (minsym) + SHARED_OFFSET), 4);
-// OBSOLETE   lm = ld_map;
-// OBSOLETE   while (lm)
-// OBSOLETE     {
-// OBSOLETE       int local_errno = 0;
-// OBSOLETE 
-// OBSOLETE       read_memory ((CORE_ADDR) lm, (char *) &lms, sizeof (struct link_map));
-// OBSOLETE       if (lms.l_name)
-// OBSOLETE    {
-// OBSOLETE      if (target_read_string ((CORE_ADDR) lms.l_name, &path_name,
-// OBSOLETE                              PATH_MAX, &local_errno))
-// OBSOLETE        {
-// OBSOLETE          struct section_addr_info section_addrs;
-// OBSOLETE          memset (&section_addrs, 0, sizeof (section_addrs));
-// OBSOLETE          section_addrs.other[0].addr = lms.l_addr;
-// OBSOLETE               section_addrs.other[0].name = ".text";
-// OBSOLETE          symbol_file_add (path_name, 1, &section_addrs, 0, 0);
-// OBSOLETE          xfree (path_name);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       /* traverse links in reverse order so that we get the
-// OBSOLETE          the symbols the user actually gets. */
-// OBSOLETE       lm = lms.l_prev;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Getting new symbols may change our opinion about what is
-// OBSOLETE      frameless.  */
-// OBSOLETE   reinit_frame_cache ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #if defined(_ES_MP)
-// OBSOLETE 
-// OBSOLETE #include <sys/regset.h>
-// OBSOLETE 
-// OBSOLETE unsigned int
-// OBSOLETE m88k_harris_core_register_addr (int regno, int reg_ptr)
-// OBSOLETE {
-// OBSOLETE   unsigned int word_offset;
-// OBSOLETE 
-// OBSOLETE   switch (regno)
-// OBSOLETE     {
-// OBSOLETE     case PSR_REGNUM:
-// OBSOLETE       word_offset = R_EPSR;
-// OBSOLETE       break;
-// OBSOLETE     case FPSR_REGNUM:
-// OBSOLETE       word_offset = R_FPSR;
-// OBSOLETE       break;
-// OBSOLETE     case FPCR_REGNUM:
-// OBSOLETE       word_offset = R_FPCR;
-// OBSOLETE       break;
-// OBSOLETE     case SXIP_REGNUM:
-// OBSOLETE       word_offset = R_EXIP;
-// OBSOLETE       break;
-// OBSOLETE     case SNIP_REGNUM:
-// OBSOLETE       word_offset = R_ENIP;
-// OBSOLETE       break;
-// OBSOLETE     case SFIP_REGNUM:
-// OBSOLETE       word_offset = R_EFIP;
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       if (regno <= FP_REGNUM)
-// OBSOLETE    word_offset = regno;
-// OBSOLETE       else
-// OBSOLETE    word_offset = ((regno - X0_REGNUM) * 4);
-// OBSOLETE     }
-// OBSOLETE   return (word_offset * 4);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #endif /* _ES_MP */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_m88k_nat (void)
-// OBSOLETE {
-// OBSOLETE #ifdef _ES_MP
-// OBSOLETE   /* Enable 88110 support, as we don't support the 88100 under ES/MP.  */
-// OBSOLETE 
-// OBSOLETE   target_is_m88110 = 1;
-// OBSOLETE #elif defined(_CX_UX)
-// OBSOLETE   /* Determine whether we're running on an 88100 or an 88110.  */
-// OBSOLETE   target_is_m88110 = (sinfo (SYSMACHINE, 0) == SYS5800);
-// OBSOLETE #endif /* _CX_UX */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #ifdef _ES_MP
-// OBSOLETE /* Given a pointer to a general register set in /proc format (gregset_t *),
-// OBSOLETE    unpack the register contents and supply them as gdb's idea of the current
-// OBSOLETE    register values. */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE supply_gregset (gregset_t *gregsetp)
-// OBSOLETE {
-// OBSOLETE   register int regi;
-// OBSOLETE   register greg_t *regp = (greg_t *) gregsetp;
-// OBSOLETE 
-// OBSOLETE   for (regi = 0; regi < R_R31; regi++)
-// OBSOLETE     {
-// OBSOLETE       supply_register (regi, (char *) (regp + regi));
-// OBSOLETE     }
-// OBSOLETE   supply_register (PSR_REGNUM, (char *) (regp + R_EPSR));
-// OBSOLETE   supply_register (FPSR_REGNUM, (char *) (regp + R_FPSR));
-// OBSOLETE   supply_register (FPCR_REGNUM, (char *) (regp + R_FPCR));
-// OBSOLETE   supply_register (SXIP_REGNUM, (char *) (regp + R_EXIP));
-// OBSOLETE   supply_register (SNIP_REGNUM, (char *) (regp + R_ENIP));
-// OBSOLETE   supply_register (SFIP_REGNUM, (char *) (regp + R_EFIP));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Given a pointer to a floating point register set in /proc format
-// OBSOLETE    (fpregset_t *), unpack the register contents and supply them as gdb's
-// OBSOLETE    idea of the current floating point register values.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE supply_fpregset (fpregset_t *fpregsetp)
-// OBSOLETE {
-// OBSOLETE   register int regi;
-// OBSOLETE   char *from;
-// OBSOLETE 
-// OBSOLETE   for (regi = FP0_REGNUM; regi <= FPLAST_REGNUM; regi++)
-// OBSOLETE     {
-// OBSOLETE       from = (char *) &((*fpregsetp)[regi - FP0_REGNUM]);
-// OBSOLETE       supply_register (regi, from);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #endif /* _ES_MP */
-// OBSOLETE 
-// OBSOLETE #ifdef _CX_UX
-// OBSOLETE 
-// OBSOLETE #include <sys/regset.h>
-// OBSOLETE 
-// OBSOLETE unsigned int
-// OBSOLETE m88k_harris_core_register_addr (int regno, int reg_ptr)
-// OBSOLETE {
-// OBSOLETE   unsigned int word_offset;
-// OBSOLETE 
-// OBSOLETE   switch (regno)
-// OBSOLETE     {
-// OBSOLETE     case PSR_REGNUM:
-// OBSOLETE       word_offset = R_PSR;
-// OBSOLETE       break;
-// OBSOLETE     case FPSR_REGNUM:
-// OBSOLETE       word_offset = R_FPSR;
-// OBSOLETE       break;
-// OBSOLETE     case FPCR_REGNUM:
-// OBSOLETE       word_offset = R_FPCR;
-// OBSOLETE       break;
-// OBSOLETE     case SXIP_REGNUM:
-// OBSOLETE       word_offset = R_XIP;
-// OBSOLETE       break;
-// OBSOLETE     case SNIP_REGNUM:
-// OBSOLETE       word_offset = R_NIP;
-// OBSOLETE       break;
-// OBSOLETE     case SFIP_REGNUM:
-// OBSOLETE       word_offset = R_FIP;
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       if (regno <= FP_REGNUM)
-// OBSOLETE    word_offset = regno;
-// OBSOLETE       else
-// OBSOLETE    word_offset = ((regno - X0_REGNUM) * 4) + R_X0;
-// OBSOLETE     }
-// OBSOLETE   return (word_offset * 4);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #endif /* _CX_UX */
diff --git a/gdb/d30v-tdep.c b/gdb/d30v-tdep.c
deleted file mode 100644 (file)
index 0891370..0000000
+++ /dev/null
@@ -1,1365 +0,0 @@
-/* OBSOLETE /* Target-dependent code for Mitsubishi D30V, for GDB. */
-/* OBSOLETE  */
-/* OBSOLETE    Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002 Free Software */
-/* OBSOLETE    Foundation, Inc. */
-/* OBSOLETE  */
-/* OBSOLETE    This file is part of GDB. */
-/* OBSOLETE  */
-/* OBSOLETE    This program is free software; you can redistribute it and/or modify */
-/* OBSOLETE    it under the terms of the GNU General Public License as published by */
-/* OBSOLETE    the Free Software Foundation; either version 2 of the License, or */
-/* OBSOLETE    (at your option) any later version. */
-/* OBSOLETE  */
-/* OBSOLETE    This program is distributed in the hope that it will be useful, */
-/* OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of */
-/* OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the */
-/* OBSOLETE    GNU General Public License for more details. */
-/* OBSOLETE  */
-/* OBSOLETE    You should have received a copy of the GNU General Public License */
-/* OBSOLETE    along with this program; if not, write to the Free Software */
-/* OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330, */
-/* OBSOLETE    Boston, MA 02111-1307, USA.  */ */
-/* OBSOLETE  */
-/* OBSOLETE /*  Contributed by Martin Hunt, hunt@cygnus.com */ */
-/* OBSOLETE  */
-/* OBSOLETE #include "defs.h" */
-/* OBSOLETE #include "frame.h" */
-/* OBSOLETE #include "obstack.h" */
-/* OBSOLETE #include "symtab.h" */
-/* OBSOLETE #include "gdbtypes.h" */
-/* OBSOLETE #include "gdbcmd.h" */
-/* OBSOLETE #include "gdbcore.h" */
-/* OBSOLETE #include "gdb_string.h" */
-/* OBSOLETE #include "value.h" */
-/* OBSOLETE #include "inferior.h" */
-/* OBSOLETE #include "dis-asm.h" */
-/* OBSOLETE #include "symfile.h" */
-/* OBSOLETE #include "objfiles.h" */
-/* OBSOLETE #include "regcache.h" */
-/* OBSOLETE  */
-/* OBSOLETE #include "language.h" /* For local_hex_string() */ */
-/* OBSOLETE  */
-/* OBSOLETE void d30v_frame_find_saved_regs (struct frame_info *fi, */
-/* OBSOLETE                             struct frame_saved_regs *fsr); */
-/* OBSOLETE void d30v_frame_find_saved_regs_offsets (struct frame_info *fi, */
-/* OBSOLETE                                     struct frame_saved_regs *fsr); */
-/* OBSOLETE static void d30v_pop_dummy_frame (struct frame_info *fi); */
-/* OBSOLETE static void d30v_print_flags (void); */
-/* OBSOLETE static void print_flags_command (char *, int); */
-/* OBSOLETE  */
-/* OBSOLETE /* the following defines assume: */
-/* OBSOLETE    fp is r61, lr is r62, sp is r63, and ?? is r22 */
-/* OBSOLETE    if that changes, they will need to be updated */ */
-/* OBSOLETE  */
-/* OBSOLETE #define OP_MASK_ALL_BUT_RA 0x0ffc0fff      /* throw away Ra, keep the rest */ */
-/* OBSOLETE  */
-/* OBSOLETE #define OP_STW_SPM         0x054c0fc0      /* stw Ra, @(sp-) */ */
-/* OBSOLETE #define OP_STW_SP_R0               0x05400fc0      /* stw Ra, @(sp,r0) */ */
-/* OBSOLETE #define OP_STW_SP_IMM0             0x05480fc0      /* st Ra, @(sp, 0x0) */ */
-/* OBSOLETE #define OP_STW_R22P_R0             0x05440580      /* stw Ra, @(r22+,r0) */ */
-/* OBSOLETE  */
-/* OBSOLETE #define OP_ST2W_SPM                0x056c0fc0      /* st2w Ra, @(sp-) */ */
-/* OBSOLETE #define OP_ST2W_SP_R0              0x05600fc0      /* st2w Ra, @(sp, r0) */ */
-/* OBSOLETE #define OP_ST2W_SP_IMM0            0x05680fc0      /* st2w Ra, @(sp, 0x0) */ */
-/* OBSOLETE #define OP_ST2W_R22P_R0            0x05640580      /* st2w Ra, @(r22+, r0) */ */
-/* OBSOLETE  */
-/* OBSOLETE #define OP_MASK_OPCODE             0x0ffc0000      /* just the opcode, ign operands */ */
-/* OBSOLETE #define OP_NOP                     0x00f00000      /* nop */ */
-/* OBSOLETE  */
-/* OBSOLETE #define OP_MASK_ALL_BUT_IMM        0x0fffffc0      /* throw away imm, keep the rest */ */
-/* OBSOLETE #define OP_SUB_SP_IMM              0x082bffc0      /* sub sp,sp,imm */ */
-/* OBSOLETE #define OP_ADD_SP_IMM              0x080bffc0      /* add sp,sp,imm */ */
-/* OBSOLETE #define OP_ADD_R22_SP_IMM  0x08096fc0      /* add r22,sp,imm */ */
-/* OBSOLETE #define OP_STW_FP_SP_IMM   0x054bdfc0      /* stw fp,@(sp,imm) */ */
-/* OBSOLETE #define OP_OR_SP_R0_IMM            0x03abf000      /* or sp,r0,imm */ */
-/* OBSOLETE  */
-/* OBSOLETE /* no mask */ */
-/* OBSOLETE #define OP_OR_FP_R0_SP             0x03a3d03f      /* or fp,r0,sp */ */
-/* OBSOLETE #define OP_OR_FP_SP_R0             0x03a3dfc0      /* or fp,sp,r0 */ */
-/* OBSOLETE #define OP_OR_FP_IMM0_SP   0x03abd03f      /* or fp,0x0,sp */ */
-/* OBSOLETE #define OP_STW_FP_R22P_R0  0x0547d580      /* stw fp,@(r22+,r0) */ */
-/* OBSOLETE #define OP_STW_LR_R22P_R0  0x0547e580      /* stw lr,@(r22+,r0) */ */
-/* OBSOLETE  */
-/* OBSOLETE #define OP_MASK_OP_AND_RB  0x0ff80fc0      /* keep op and rb,throw away rest */ */
-/* OBSOLETE #define OP_STW_SP_IMM              0x05480fc0      /* stw Ra,@(sp,imm) */ */
-/* OBSOLETE #define OP_ST2W_SP_IMM             0x05680fc0      /* st2w Ra,@(sp,imm) */ */
-/* OBSOLETE #define OP_STW_FP_IMM              0x05480f40      /* stw Ra,@(fp,imm) */ */
-/* OBSOLETE #define OP_STW_FP_R0               0x05400f40      /* stw Ra,@(fp,r0) */ */
-/* OBSOLETE  */
-/* OBSOLETE #define OP_MASK_FM_BIT             0x80000000 */
-/* OBSOLETE #define OP_MASK_CC_BITS            0x70000000 */
-/* OBSOLETE #define OP_MASK_SUB_INST   0x0fffffff */
-/* OBSOLETE  */
-/* OBSOLETE #define EXTRACT_RA(op)             (((op) >> 12) & 0x3f) */
-/* OBSOLETE #define EXTRACT_RB(op)             (((op) >> 6) & 0x3f) */
-/* OBSOLETE #define EXTRACT_RC(op)             (((op) & 0x3f) */
-/* OBSOLETE #define EXTRACT_UIMM6(op)  ((op) & 0x3f) */
-/* OBSOLETE #define EXTRACT_IMM6(op)   ((((int)EXTRACT_UIMM6(op)) << 26) >> 26) */
-/* OBSOLETE #define EXTRACT_IMM26(op)  ((((op)&0x0ff00000) >> 2) | ((op)&0x0003ffff)) */
-/* OBSOLETE #define EXTRACT_IMM32(opl, opr)    ((EXTRACT_UIMM6(opl) << 26)|EXTRACT_IMM26(opr)) */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE int */
-/* OBSOLETE d30v_frame_chain_valid (CORE_ADDR chain, struct frame_info *fi) */
-/* OBSOLETE { */
-/* OBSOLETE #if 0 */
-/* OBSOLETE   return ((chain) != 0 && (fi) != 0 && (fi)->return_pc != 0); */
-/* OBSOLETE #else */
-/* OBSOLETE   return ((chain) != 0 && (fi) != 0 && (fi)->frame <= chain); */
-/* OBSOLETE #endif */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE /* Discard from the stack the innermost frame, restoring all saved */
-/* OBSOLETE    registers.  */ */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE d30v_pop_frame (void) */
-/* OBSOLETE { */
-/* OBSOLETE   struct frame_info *frame = get_current_frame (); */
-/* OBSOLETE   CORE_ADDR fp; */
-/* OBSOLETE   int regnum; */
-/* OBSOLETE   struct frame_saved_regs fsr; */
-/* OBSOLETE   char raw_buffer[8]; */
-/* OBSOLETE  */
-/* OBSOLETE   fp = FRAME_FP (frame); */
-/* OBSOLETE   if (frame->dummy) */
-/* OBSOLETE     { */
-/* OBSOLETE       d30v_pop_dummy_frame (frame); */
-/* OBSOLETE       return; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* fill out fsr with the address of where each */ */
-/* OBSOLETE   /* register was stored in the frame */ */
-/* OBSOLETE   get_frame_saved_regs (frame, &fsr); */
-/* OBSOLETE  */
-/* OBSOLETE   /* now update the current registers with the old values */ */
-/* OBSOLETE   for (regnum = A0_REGNUM; regnum < A0_REGNUM + 2; regnum++) */
-/* OBSOLETE     { */
-/* OBSOLETE       if (fsr.regs[regnum]) */
-/* OBSOLETE    { */
-/* OBSOLETE      read_memory (fsr.regs[regnum], raw_buffer, 8); */
-/* OBSOLETE      write_register_bytes (REGISTER_BYTE (regnum), raw_buffer, 8); */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE   for (regnum = 0; regnum < SP_REGNUM; regnum++) */
-/* OBSOLETE     { */
-/* OBSOLETE       if (fsr.regs[regnum]) */
-/* OBSOLETE    { */
-/* OBSOLETE      write_register (regnum, read_memory_unsigned_integer (fsr.regs[regnum], 4)); */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE   if (fsr.regs[PSW_REGNUM]) */
-/* OBSOLETE     { */
-/* OBSOLETE       write_register (PSW_REGNUM, read_memory_unsigned_integer (fsr.regs[PSW_REGNUM], 4)); */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   write_register (PC_REGNUM, read_register (LR_REGNUM)); */
-/* OBSOLETE   write_register (SP_REGNUM, fp + frame->size); */
-/* OBSOLETE   target_store_registers (-1); */
-/* OBSOLETE   flush_cached_frames (); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static int */
-/* OBSOLETE check_prologue (unsigned long op) */
-/* OBSOLETE { */
-/* OBSOLETE   /* add sp,sp,imm -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_IMM) == OP_ADD_SP_IMM) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* add r22,sp,imm -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_IMM) == OP_ADD_R22_SP_IMM) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* or  fp,r0,sp -- observed */ */
-/* OBSOLETE   if (op == OP_OR_FP_R0_SP) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* nop */ */
-/* OBSOLETE   if ((op & OP_MASK_OPCODE) == OP_NOP) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw  Ra,@(sp,r0) */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_STW_SP_R0) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw  Ra,@(sp,0x0) */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_STW_SP_IMM0) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* st2w  Ra,@(sp,r0) */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_ST2W_SP_R0) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* st2w  Ra,@(sp,0x0) */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_ST2W_SP_IMM0) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw fp, @(r22+,r0) -- observed */ */
-/* OBSOLETE   if (op == OP_STW_FP_R22P_R0) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw r62, @(r22+,r0) -- observed */ */
-/* OBSOLETE   if (op == OP_STW_LR_R22P_R0) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw Ra, @(fp,r0) -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_STW_FP_R0) */
-/* OBSOLETE     return 1;                      /* first arg */ */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw Ra, @(fp,imm) -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_OP_AND_RB) == OP_STW_FP_IMM) */
-/* OBSOLETE     return 1;                      /* second and subsequent args */ */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw fp,@(sp,imm) -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_IMM) == OP_STW_FP_SP_IMM) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* st2w Ra,@(r22+,r0) */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_ST2W_R22P_R0) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw  Ra, @(sp-) */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_STW_SPM) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* st2w  Ra, @(sp-) */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_ST2W_SPM) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* sub.?  sp,sp,imm */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_IMM) == OP_SUB_SP_IMM) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   return 0; */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE CORE_ADDR */
-/* OBSOLETE d30v_skip_prologue (CORE_ADDR pc) */
-/* OBSOLETE { */
-/* OBSOLETE   unsigned long op[2]; */
-/* OBSOLETE   unsigned long opl, opr;  /* left / right sub operations */ */
-/* OBSOLETE   unsigned long fm0, fm1;  /* left / right mode bits */ */
-/* OBSOLETE   unsigned long cc0, cc1; */
-/* OBSOLETE   unsigned long op1, op2; */
-/* OBSOLETE   CORE_ADDR func_addr, func_end; */
-/* OBSOLETE   struct symtab_and_line sal; */
-/* OBSOLETE  */
-/* OBSOLETE   /* If we have line debugging information, then the end of the */ */
-/* OBSOLETE   /* prologue should the first assembly instruction of  the first source line */ */
-/* OBSOLETE   if (find_pc_partial_function (pc, NULL, &func_addr, &func_end)) */
-/* OBSOLETE     { */
-/* OBSOLETE       sal = find_pc_line (func_addr, 0); */
-/* OBSOLETE       if (sal.end && sal.end < func_end) */
-/* OBSOLETE    return sal.end; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   if (target_read_memory (pc, (char *) &op[0], 8)) */
-/* OBSOLETE     return pc;                     /* Can't access it -- assume no prologue. */ */
-/* OBSOLETE  */
-/* OBSOLETE   while (1) */
-/* OBSOLETE     { */
-/* OBSOLETE       opl = (unsigned long) read_memory_integer (pc, 4); */
-/* OBSOLETE       opr = (unsigned long) read_memory_integer (pc + 4, 4); */
-/* OBSOLETE  */
-/* OBSOLETE       fm0 = (opl & OP_MASK_FM_BIT); */
-/* OBSOLETE       fm1 = (opr & OP_MASK_FM_BIT); */
-/* OBSOLETE  */
-/* OBSOLETE       cc0 = (opl & OP_MASK_CC_BITS); */
-/* OBSOLETE       cc1 = (opr & OP_MASK_CC_BITS); */
-/* OBSOLETE  */
-/* OBSOLETE       opl = (opl & OP_MASK_SUB_INST); */
-/* OBSOLETE       opr = (opr & OP_MASK_SUB_INST); */
-/* OBSOLETE  */
-/* OBSOLETE       if (fm0 && fm1) */
-/* OBSOLETE    { */
-/* OBSOLETE      /* long instruction (opl contains the opcode) */ */
-/* OBSOLETE      if (((opl & OP_MASK_ALL_BUT_IMM) != OP_ADD_SP_IMM) &&         /* add sp,sp,imm */ */
-/* OBSOLETE          ((opl & OP_MASK_ALL_BUT_IMM) != OP_ADD_R22_SP_IMM) &&     /* add r22,sp,imm */ */
-/* OBSOLETE          ((opl & OP_MASK_OP_AND_RB) != OP_STW_SP_IMM) &&   /* stw Ra, @(sp,imm) */ */
-/* OBSOLETE          ((opl & OP_MASK_OP_AND_RB) != OP_ST2W_SP_IMM))    /* st2w Ra, @(sp,imm) */ */
-/* OBSOLETE        break; */
-/* OBSOLETE    } */
-/* OBSOLETE       else */
-/* OBSOLETE    { */
-/* OBSOLETE      /* short instructions */ */
-/* OBSOLETE      if (fm0 && !fm1) */
-/* OBSOLETE        { */
-/* OBSOLETE          op1 = opr; */
-/* OBSOLETE          op2 = opl; */
-/* OBSOLETE        } */
-/* OBSOLETE      else */
-/* OBSOLETE        { */
-/* OBSOLETE          op1 = opl; */
-/* OBSOLETE          op2 = opr; */
-/* OBSOLETE        } */
-/* OBSOLETE      if (check_prologue (op1)) */
-/* OBSOLETE        { */
-/* OBSOLETE          if (!check_prologue (op2)) */
-/* OBSOLETE            { */
-/* OBSOLETE              /* if the previous opcode was really part of the prologue */ */
-/* OBSOLETE              /* and not just a NOP, then we want to break after both instructions */ */
-/* OBSOLETE              if ((op1 & OP_MASK_OPCODE) != OP_NOP) */
-/* OBSOLETE                pc += 8; */
-/* OBSOLETE              break; */
-/* OBSOLETE            } */
-/* OBSOLETE        } */
-/* OBSOLETE      else */
-/* OBSOLETE        break; */
-/* OBSOLETE    } */
-/* OBSOLETE       pc += 8; */
-/* OBSOLETE     } */
-/* OBSOLETE   return pc; */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static int end_of_stack; */
-/* OBSOLETE  */
-/* OBSOLETE /* Given a GDB frame, determine the address of the calling function's frame. */
-/* OBSOLETE    This will be used to create a new GDB frame struct, and then */
-/* OBSOLETE    INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame. */
-/* OBSOLETE  */ */
-/* OBSOLETE  */
-/* OBSOLETE CORE_ADDR */
-/* OBSOLETE d30v_frame_chain (struct frame_info *frame) */
-/* OBSOLETE { */
-/* OBSOLETE   struct frame_saved_regs fsr; */
-/* OBSOLETE  */
-/* OBSOLETE   d30v_frame_find_saved_regs (frame, &fsr); */
-/* OBSOLETE  */
-/* OBSOLETE   if (end_of_stack) */
-/* OBSOLETE     return (CORE_ADDR) 0; */
-/* OBSOLETE  */
-/* OBSOLETE   if (frame->return_pc == IMEM_START) */
-/* OBSOLETE     return (CORE_ADDR) 0; */
-/* OBSOLETE  */
-/* OBSOLETE   if (!fsr.regs[FP_REGNUM]) */
-/* OBSOLETE     { */
-/* OBSOLETE       if (!fsr.regs[SP_REGNUM] || fsr.regs[SP_REGNUM] == STACK_START) */
-/* OBSOLETE    return (CORE_ADDR) 0; */
-/* OBSOLETE  */
-/* OBSOLETE       return fsr.regs[SP_REGNUM]; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   if (!read_memory_unsigned_integer (fsr.regs[FP_REGNUM], 4)) */
-/* OBSOLETE     return (CORE_ADDR) 0; */
-/* OBSOLETE  */
-/* OBSOLETE   return read_memory_unsigned_integer (fsr.regs[FP_REGNUM], 4); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static int next_addr, uses_frame; */
-/* OBSOLETE static int frame_size; */
-/* OBSOLETE  */
-/* OBSOLETE static int */
-/* OBSOLETE prologue_find_regs (unsigned long op, struct frame_saved_regs *fsr, */
-/* OBSOLETE                CORE_ADDR addr) */
-/* OBSOLETE { */
-/* OBSOLETE   int n; */
-/* OBSOLETE   int offset; */
-/* OBSOLETE  */
-/* OBSOLETE   /* add sp,sp,imm -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_IMM) == OP_ADD_SP_IMM) */
-/* OBSOLETE     { */
-/* OBSOLETE       offset = EXTRACT_IMM6 (op); */
-/* OBSOLETE       /*next_addr += offset; */ */
-/* OBSOLETE       frame_size += -offset; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* add r22,sp,imm -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_IMM) == OP_ADD_R22_SP_IMM) */
-/* OBSOLETE     { */
-/* OBSOLETE       offset = EXTRACT_IMM6 (op); */
-/* OBSOLETE       next_addr = (offset - frame_size); */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw Ra, @(fp, offset) -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_OP_AND_RB) == OP_STW_FP_IMM) */
-/* OBSOLETE     { */
-/* OBSOLETE       n = EXTRACT_RA (op); */
-/* OBSOLETE       offset = EXTRACT_IMM6 (op); */
-/* OBSOLETE       fsr->regs[n] = (offset - frame_size); */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw Ra, @(fp, r0) -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_STW_FP_R0) */
-/* OBSOLETE     { */
-/* OBSOLETE       n = EXTRACT_RA (op); */
-/* OBSOLETE       fsr->regs[n] = (-frame_size); */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* or  fp,0,sp -- observed */ */
-/* OBSOLETE   if ((op == OP_OR_FP_R0_SP) || */
-/* OBSOLETE       (op == OP_OR_FP_SP_R0) || */
-/* OBSOLETE       (op == OP_OR_FP_IMM0_SP)) */
-/* OBSOLETE     { */
-/* OBSOLETE       uses_frame = 1; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* nop */ */
-/* OBSOLETE   if ((op & OP_MASK_OPCODE) == OP_NOP) */
-/* OBSOLETE     return 1; */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw Ra,@(r22+,r0) -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_STW_R22P_R0) */
-/* OBSOLETE     { */
-/* OBSOLETE       n = EXTRACT_RA (op); */
-/* OBSOLETE       fsr->regs[n] = next_addr; */
-/* OBSOLETE       next_addr += 4; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE #if 0                              /* subsumed in pattern above */ */
-/* OBSOLETE   /* stw fp,@(r22+,r0) -- observed */ */
-/* OBSOLETE   if (op == OP_STW_FP_R22P_R0) */
-/* OBSOLETE     { */
-/* OBSOLETE       fsr->regs[FP_REGNUM] = next_addr;            /* XXX */ */
-/* OBSOLETE       next_addr += 4; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw r62,@(r22+,r0) -- observed */ */
-/* OBSOLETE   if (op == OP_STW_LR_R22P_R0) */
-/* OBSOLETE     { */
-/* OBSOLETE       fsr->regs[LR_REGNUM] = next_addr; */
-/* OBSOLETE       next_addr += 4; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE #endif */
-/* OBSOLETE   /* st2w Ra,@(r22+,r0) -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_ST2W_R22P_R0) */
-/* OBSOLETE     { */
-/* OBSOLETE       n = EXTRACT_RA (op); */
-/* OBSOLETE       fsr->regs[n] = next_addr; */
-/* OBSOLETE       fsr->regs[n + 1] = next_addr + 4; */
-/* OBSOLETE       next_addr += 8; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw  rn, @(sp-) */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_RA) == OP_STW_SPM) */
-/* OBSOLETE     { */
-/* OBSOLETE       n = EXTRACT_RA (op); */
-/* OBSOLETE       fsr->regs[n] = next_addr; */
-/* OBSOLETE       next_addr -= 4; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* st2w  Ra, @(sp-) */ */
-/* OBSOLETE   else if ((op & OP_MASK_ALL_BUT_RA) == OP_ST2W_SPM) */
-/* OBSOLETE     { */
-/* OBSOLETE       n = EXTRACT_RA (op); */
-/* OBSOLETE       fsr->regs[n] = next_addr; */
-/* OBSOLETE       fsr->regs[n + 1] = next_addr + 4; */
-/* OBSOLETE       next_addr -= 8; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* sub  sp,sp,imm */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_IMM) == OP_SUB_SP_IMM) */
-/* OBSOLETE     { */
-/* OBSOLETE       offset = EXTRACT_IMM6 (op); */
-/* OBSOLETE       frame_size += -offset; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* st  rn, @(sp,0) -- observed */ */
-/* OBSOLETE   if (((op & OP_MASK_ALL_BUT_RA) == OP_STW_SP_R0) || */
-/* OBSOLETE       ((op & OP_MASK_ALL_BUT_RA) == OP_STW_SP_IMM0)) */
-/* OBSOLETE     { */
-/* OBSOLETE       n = EXTRACT_RA (op); */
-/* OBSOLETE       fsr->regs[n] = (-frame_size); */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* st2w  rn, @(sp,0) */ */
-/* OBSOLETE   if (((op & OP_MASK_ALL_BUT_RA) == OP_ST2W_SP_R0) || */
-/* OBSOLETE       ((op & OP_MASK_ALL_BUT_RA) == OP_ST2W_SP_IMM0)) */
-/* OBSOLETE     { */
-/* OBSOLETE       n = EXTRACT_RA (op); */
-/* OBSOLETE       fsr->regs[n] = (-frame_size); */
-/* OBSOLETE       fsr->regs[n + 1] = (-frame_size) + 4; */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* stw fp,@(sp,imm) -- observed */ */
-/* OBSOLETE   if ((op & OP_MASK_ALL_BUT_IMM) == OP_STW_FP_SP_IMM) */
-/* OBSOLETE     { */
-/* OBSOLETE       offset = EXTRACT_IMM6 (op); */
-/* OBSOLETE       fsr->regs[FP_REGNUM] = (offset - frame_size); */
-/* OBSOLETE       return 1; */
-/* OBSOLETE     } */
-/* OBSOLETE   return 0; */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE /* Put here the code to store, into a struct frame_saved_regs, the */
-/* OBSOLETE    addresses of the saved registers of frame described by FRAME_INFO. */
-/* OBSOLETE    This includes special registers such as pc and fp saved in special */
-/* OBSOLETE    ways in the stack frame.  sp is even more special: the address we */
-/* OBSOLETE    return for it IS the sp for the next frame. */ */
-/* OBSOLETE void */
-/* OBSOLETE d30v_frame_find_saved_regs (struct frame_info *fi, struct frame_saved_regs *fsr) */
-/* OBSOLETE { */
-/* OBSOLETE   CORE_ADDR fp, pc; */
-/* OBSOLETE   unsigned long opl, opr; */
-/* OBSOLETE   unsigned long op1, op2; */
-/* OBSOLETE   unsigned long fm0, fm1; */
-/* OBSOLETE   int i; */
-/* OBSOLETE  */
-/* OBSOLETE   fp = fi->frame; */
-/* OBSOLETE   memset (fsr, 0, sizeof (*fsr)); */
-/* OBSOLETE   next_addr = 0; */
-/* OBSOLETE   frame_size = 0; */
-/* OBSOLETE   end_of_stack = 0; */
-/* OBSOLETE  */
-/* OBSOLETE   uses_frame = 0; */
-/* OBSOLETE  */
-/* OBSOLETE   d30v_frame_find_saved_regs_offsets (fi, fsr); */
-/* OBSOLETE  */
-/* OBSOLETE   fi->size = frame_size; */
-/* OBSOLETE  */
-/* OBSOLETE   if (!fp) */
-/* OBSOLETE     fp = read_register (SP_REGNUM); */
-/* OBSOLETE  */
-/* OBSOLETE   for (i = 0; i < NUM_REGS - 1; i++) */
-/* OBSOLETE     if (fsr->regs[i]) */
-/* OBSOLETE       { */
-/* OBSOLETE    fsr->regs[i] = fsr->regs[i] + fp + frame_size; */
-/* OBSOLETE       } */
-/* OBSOLETE  */
-/* OBSOLETE   if (fsr->regs[LR_REGNUM]) */
-/* OBSOLETE     fi->return_pc = read_memory_unsigned_integer (fsr->regs[LR_REGNUM], 4); */
-/* OBSOLETE   else */
-/* OBSOLETE     fi->return_pc = read_register (LR_REGNUM); */
-/* OBSOLETE  */
-/* OBSOLETE   /* the SP is not normally (ever?) saved, but check anyway */ */
-/* OBSOLETE   if (!fsr->regs[SP_REGNUM]) */
-/* OBSOLETE     { */
-/* OBSOLETE       /* if the FP was saved, that means the current FP is valid, */ */
-/* OBSOLETE       /* otherwise, it isn't being used, so we use the SP instead */ */
-/* OBSOLETE       if (uses_frame) */
-/* OBSOLETE    fsr->regs[SP_REGNUM] = read_register (FP_REGNUM) + fi->size; */
-/* OBSOLETE       else */
-/* OBSOLETE    { */
-/* OBSOLETE      fsr->regs[SP_REGNUM] = fp + fi->size; */
-/* OBSOLETE      fi->frameless = 1; */
-/* OBSOLETE      fsr->regs[FP_REGNUM] = 0; */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE d30v_frame_find_saved_regs_offsets (struct frame_info *fi, */
-/* OBSOLETE                                struct frame_saved_regs *fsr) */
-/* OBSOLETE { */
-/* OBSOLETE   CORE_ADDR fp, pc; */
-/* OBSOLETE   unsigned long opl, opr; */
-/* OBSOLETE   unsigned long op1, op2; */
-/* OBSOLETE   unsigned long fm0, fm1; */
-/* OBSOLETE   int i; */
-/* OBSOLETE  */
-/* OBSOLETE   fp = fi->frame; */
-/* OBSOLETE   memset (fsr, 0, sizeof (*fsr)); */
-/* OBSOLETE   next_addr = 0; */
-/* OBSOLETE   frame_size = 0; */
-/* OBSOLETE   end_of_stack = 0; */
-/* OBSOLETE  */
-/* OBSOLETE   pc = get_pc_function_start (fi->pc); */
-/* OBSOLETE  */
-/* OBSOLETE   uses_frame = 0; */
-/* OBSOLETE   while (pc < fi->pc) */
-/* OBSOLETE     { */
-/* OBSOLETE       opl = (unsigned long) read_memory_integer (pc, 4); */
-/* OBSOLETE       opr = (unsigned long) read_memory_integer (pc + 4, 4); */
-/* OBSOLETE  */
-/* OBSOLETE       fm0 = (opl & OP_MASK_FM_BIT); */
-/* OBSOLETE       fm1 = (opr & OP_MASK_FM_BIT); */
-/* OBSOLETE  */
-/* OBSOLETE       opl = (opl & OP_MASK_SUB_INST); */
-/* OBSOLETE       opr = (opr & OP_MASK_SUB_INST); */
-/* OBSOLETE  */
-/* OBSOLETE       if (fm0 && fm1) */
-/* OBSOLETE    { */
-/* OBSOLETE      /* long instruction */ */
-/* OBSOLETE      if ((opl & OP_MASK_ALL_BUT_IMM) == OP_ADD_SP_IMM) */
-/* OBSOLETE        { */
-/* OBSOLETE          /* add sp,sp,n */ */
-/* OBSOLETE          long offset = EXTRACT_IMM32 (opl, opr); */
-/* OBSOLETE          frame_size += -offset; */
-/* OBSOLETE        } */
-/* OBSOLETE      else if ((opl & OP_MASK_ALL_BUT_IMM) == OP_ADD_R22_SP_IMM) */
-/* OBSOLETE        { */
-/* OBSOLETE          /* add r22,sp,offset */ */
-/* OBSOLETE          long offset = EXTRACT_IMM32 (opl, opr); */
-/* OBSOLETE          next_addr = (offset - frame_size); */
-/* OBSOLETE        } */
-/* OBSOLETE      else if ((opl & OP_MASK_OP_AND_RB) == OP_STW_SP_IMM) */
-/* OBSOLETE        { */
-/* OBSOLETE          /* st Ra, @(sp,imm) */ */
-/* OBSOLETE          long offset = EXTRACT_IMM32 (opl, opr); */
-/* OBSOLETE          short n = EXTRACT_RA (opl); */
-/* OBSOLETE          fsr->regs[n] = (offset - frame_size); */
-/* OBSOLETE        } */
-/* OBSOLETE      else if ((opl & OP_MASK_OP_AND_RB) == OP_ST2W_SP_IMM) */
-/* OBSOLETE        { */
-/* OBSOLETE          /* st2w Ra, @(sp,offset) */ */
-/* OBSOLETE          long offset = EXTRACT_IMM32 (opl, opr); */
-/* OBSOLETE          short n = EXTRACT_RA (opl); */
-/* OBSOLETE          fsr->regs[n] = (offset - frame_size); */
-/* OBSOLETE          fsr->regs[n + 1] = (offset - frame_size) + 4; */
-/* OBSOLETE        } */
-/* OBSOLETE      else if ((opl & OP_MASK_ALL_BUT_IMM) == OP_OR_SP_R0_IMM) */
-/* OBSOLETE        { */
-/* OBSOLETE          end_of_stack = 1; */
-/* OBSOLETE        } */
-/* OBSOLETE      else */
-/* OBSOLETE        break; */
-/* OBSOLETE    } */
-/* OBSOLETE       else */
-/* OBSOLETE    { */
-/* OBSOLETE      /* short instructions */ */
-/* OBSOLETE      if (fm0 && !fm1) */
-/* OBSOLETE        { */
-/* OBSOLETE          op2 = opl; */
-/* OBSOLETE          op1 = opr; */
-/* OBSOLETE        } */
-/* OBSOLETE      else */
-/* OBSOLETE        { */
-/* OBSOLETE          op1 = opl; */
-/* OBSOLETE          op2 = opr; */
-/* OBSOLETE        } */
-/* OBSOLETE      if (!prologue_find_regs (op1, fsr, pc) || !prologue_find_regs (op2, fsr, pc)) */
-/* OBSOLETE        break; */
-/* OBSOLETE    } */
-/* OBSOLETE       pc += 8; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE #if 0 */
-/* OBSOLETE   fi->size = frame_size; */
-/* OBSOLETE  */
-/* OBSOLETE   if (!fp) */
-/* OBSOLETE     fp = read_register (SP_REGNUM); */
-/* OBSOLETE  */
-/* OBSOLETE   for (i = 0; i < NUM_REGS - 1; i++) */
-/* OBSOLETE     if (fsr->regs[i]) */
-/* OBSOLETE       { */
-/* OBSOLETE    fsr->regs[i] = fsr->regs[i] + fp + frame_size; */
-/* OBSOLETE       } */
-/* OBSOLETE  */
-/* OBSOLETE   if (fsr->regs[LR_REGNUM]) */
-/* OBSOLETE     fi->return_pc = read_memory_unsigned_integer (fsr->regs[LR_REGNUM], 4); */
-/* OBSOLETE   else */
-/* OBSOLETE     fi->return_pc = read_register (LR_REGNUM); */
-/* OBSOLETE  */
-/* OBSOLETE   /* the SP is not normally (ever?) saved, but check anyway */ */
-/* OBSOLETE   if (!fsr->regs[SP_REGNUM]) */
-/* OBSOLETE     { */
-/* OBSOLETE       /* if the FP was saved, that means the current FP is valid, */ */
-/* OBSOLETE       /* otherwise, it isn't being used, so we use the SP instead */ */
-/* OBSOLETE       if (uses_frame) */
-/* OBSOLETE    fsr->regs[SP_REGNUM] = read_register (FP_REGNUM) + fi->size; */
-/* OBSOLETE       else */
-/* OBSOLETE    { */
-/* OBSOLETE      fsr->regs[SP_REGNUM] = fp + fi->size; */
-/* OBSOLETE      fi->frameless = 1; */
-/* OBSOLETE      fsr->regs[FP_REGNUM] = 0; */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE #endif */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE d30v_init_extra_frame_info (int fromleaf, struct frame_info *fi) */
-/* OBSOLETE { */
-/* OBSOLETE   struct frame_saved_regs dummy; */
-/* OBSOLETE  */
-/* OBSOLETE   if (fi->next && (fi->pc == 0)) */
-/* OBSOLETE     fi->pc = fi->next->return_pc; */
-/* OBSOLETE  */
-/* OBSOLETE   d30v_frame_find_saved_regs_offsets (fi, &dummy); */
-/* OBSOLETE  */
-/* OBSOLETE   if (uses_frame == 0) */
-/* OBSOLETE     fi->frameless = 1; */
-/* OBSOLETE   else */
-/* OBSOLETE     fi->frameless = 0; */
-/* OBSOLETE  */
-/* OBSOLETE   if ((fi->next == 0) && (uses_frame == 0)) */
-/* OBSOLETE     /* innermost frame and it's "frameless", */
-/* OBSOLETE        so the fi->frame field is wrong, fix it! */ */
-/* OBSOLETE     fi->frame = read_sp (); */
-/* OBSOLETE  */
-/* OBSOLETE   if (dummy.regs[LR_REGNUM]) */
-/* OBSOLETE     { */
-/* OBSOLETE       /* it was saved, grab it! */ */
-/* OBSOLETE       dummy.regs[LR_REGNUM] += (fi->frame + frame_size); */
-/* OBSOLETE       fi->return_pc = read_memory_unsigned_integer (dummy.regs[LR_REGNUM], 4); */
-/* OBSOLETE     } */
-/* OBSOLETE   else */
-/* OBSOLETE     fi->return_pc = read_register (LR_REGNUM); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE d30v_init_frame_pc (int fromleaf, struct frame_info *prev) */
-/* OBSOLETE { */
-/* OBSOLETE   /* default value, put here so we can breakpoint on it and */
-/* OBSOLETE      see if the default value is really the right thing to use */ */
-/* OBSOLETE   prev->pc = (fromleaf ? SAVED_PC_AFTER_CALL (prev->next) : \ */
-/* OBSOLETE          prev->next ? FRAME_SAVED_PC (prev->next) : read_pc ()); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static void d30v_print_register (int regnum, int tabular); */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE d30v_print_register (int regnum, int tabular) */
-/* OBSOLETE { */
-/* OBSOLETE   if (regnum < A0_REGNUM) */
-/* OBSOLETE     { */
-/* OBSOLETE       if (tabular) */
-/* OBSOLETE    printf_filtered ("%08lx", (long) read_register (regnum)); */
-/* OBSOLETE       else */
-/* OBSOLETE    printf_filtered ("0x%lx %ld", */
-/* OBSOLETE                     (long) read_register (regnum), */
-/* OBSOLETE                     (long) read_register (regnum)); */
-/* OBSOLETE     } */
-/* OBSOLETE   else */
-/* OBSOLETE     { */
-/* OBSOLETE       char regbuf[MAX_REGISTER_RAW_SIZE]; */
-/* OBSOLETE  */
-/* OBSOLETE       frame_register_read (selected_frame, regnum, regbuf); */
-/* OBSOLETE  */
-/* OBSOLETE       val_print (REGISTER_VIRTUAL_TYPE (regnum), regbuf, 0, 0, */
-/* OBSOLETE             gdb_stdout, 'x', 1, 0, Val_pretty_default); */
-/* OBSOLETE  */
-/* OBSOLETE       if (!tabular) */
-/* OBSOLETE    { */
-/* OBSOLETE      printf_filtered ("    "); */
-/* OBSOLETE      val_print (REGISTER_VIRTUAL_TYPE (regnum), regbuf, 0, 0, */
-/* OBSOLETE                 gdb_stdout, 'd', 1, 0, Val_pretty_default); */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE d30v_print_flags (void) */
-/* OBSOLETE { */
-/* OBSOLETE   long psw = read_register (PSW_REGNUM); */
-/* OBSOLETE   printf_filtered ("flags #1"); */
-/* OBSOLETE   printf_filtered ("   (sm) %d", (psw & PSW_SM) != 0); */
-/* OBSOLETE   printf_filtered ("   (ea) %d", (psw & PSW_EA) != 0); */
-/* OBSOLETE   printf_filtered ("   (db) %d", (psw & PSW_DB) != 0); */
-/* OBSOLETE   printf_filtered ("   (ds) %d", (psw & PSW_DS) != 0); */
-/* OBSOLETE   printf_filtered ("   (ie) %d", (psw & PSW_IE) != 0); */
-/* OBSOLETE   printf_filtered ("   (rp) %d", (psw & PSW_RP) != 0); */
-/* OBSOLETE   printf_filtered ("   (md) %d\n", (psw & PSW_MD) != 0); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("flags #2"); */
-/* OBSOLETE   printf_filtered ("   (f0) %d", (psw & PSW_F0) != 0); */
-/* OBSOLETE   printf_filtered ("   (f1) %d", (psw & PSW_F1) != 0); */
-/* OBSOLETE   printf_filtered ("   (f2) %d", (psw & PSW_F2) != 0); */
-/* OBSOLETE   printf_filtered ("   (f3) %d", (psw & PSW_F3) != 0); */
-/* OBSOLETE   printf_filtered ("    (s) %d", (psw & PSW_S) != 0); */
-/* OBSOLETE   printf_filtered ("    (v) %d", (psw & PSW_V) != 0); */
-/* OBSOLETE   printf_filtered ("   (va) %d", (psw & PSW_VA) != 0); */
-/* OBSOLETE   printf_filtered ("    (c) %d\n", (psw & PSW_C) != 0); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE print_flags_command (char *args, int from_tty) */
-/* OBSOLETE { */
-/* OBSOLETE   d30v_print_flags (); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE d30v_do_registers_info (int regnum, int fpregs) */
-/* OBSOLETE { */
-/* OBSOLETE   long long num1, num2; */
-/* OBSOLETE   long psw; */
-/* OBSOLETE  */
-/* OBSOLETE   if (regnum != -1) */
-/* OBSOLETE     { */
-/* OBSOLETE       if (REGISTER_NAME (0) == NULL || REGISTER_NAME (0)[0] == '\000') */
-/* OBSOLETE    return; */
-/* OBSOLETE  */
-/* OBSOLETE       printf_filtered ("%s ", REGISTER_NAME (regnum)); */
-/* OBSOLETE       d30v_print_register (regnum, 0); */
-/* OBSOLETE  */
-/* OBSOLETE       printf_filtered ("\n"); */
-/* OBSOLETE       return; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* Have to print all the registers.  Format them nicely.  */ */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("PC="); */
-/* OBSOLETE   print_address (read_pc (), gdb_stdout); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" PSW="); */
-/* OBSOLETE   d30v_print_register (PSW_REGNUM, 1); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" BPC="); */
-/* OBSOLETE   print_address (read_register (BPC_REGNUM), gdb_stdout); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" BPSW="); */
-/* OBSOLETE   d30v_print_register (BPSW_REGNUM, 1); */
-/* OBSOLETE   printf_filtered ("\n"); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("DPC="); */
-/* OBSOLETE   print_address (read_register (DPC_REGNUM), gdb_stdout); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" DPSW="); */
-/* OBSOLETE   d30v_print_register (DPSW_REGNUM, 1); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" IBA="); */
-/* OBSOLETE   print_address (read_register (IBA_REGNUM), gdb_stdout); */
-/* OBSOLETE   printf_filtered ("\n"); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("RPT_C="); */
-/* OBSOLETE   d30v_print_register (RPT_C_REGNUM, 1); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" RPT_S="); */
-/* OBSOLETE   print_address (read_register (RPT_S_REGNUM), gdb_stdout); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" RPT_E="); */
-/* OBSOLETE   print_address (read_register (RPT_E_REGNUM), gdb_stdout); */
-/* OBSOLETE   printf_filtered ("\n"); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("MOD_S="); */
-/* OBSOLETE   print_address (read_register (MOD_S_REGNUM), gdb_stdout); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" MOD_E="); */
-/* OBSOLETE   print_address (read_register (MOD_E_REGNUM), gdb_stdout); */
-/* OBSOLETE   printf_filtered ("\n"); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("EIT_VB="); */
-/* OBSOLETE   print_address (read_register (EIT_VB_REGNUM), gdb_stdout); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" INT_S="); */
-/* OBSOLETE   d30v_print_register (INT_S_REGNUM, 1); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered (" INT_M="); */
-/* OBSOLETE   d30v_print_register (INT_M_REGNUM, 1); */
-/* OBSOLETE   printf_filtered ("\n"); */
-/* OBSOLETE  */
-/* OBSOLETE   d30v_print_flags (); */
-/* OBSOLETE   for (regnum = 0; regnum <= 63;) */
-/* OBSOLETE     { */
-/* OBSOLETE       int i; */
-/* OBSOLETE  */
-/* OBSOLETE       printf_filtered ("R%d-R%d ", regnum, regnum + 7); */
-/* OBSOLETE       if (regnum < 10) */
-/* OBSOLETE    printf_filtered (" "); */
-/* OBSOLETE       if (regnum + 7 < 10) */
-/* OBSOLETE    printf_filtered (" "); */
-/* OBSOLETE  */
-/* OBSOLETE       for (i = 0; i < 8; i++) */
-/* OBSOLETE    { */
-/* OBSOLETE      printf_filtered (" "); */
-/* OBSOLETE      d30v_print_register (regnum++, 1); */
-/* OBSOLETE    } */
-/* OBSOLETE  */
-/* OBSOLETE       printf_filtered ("\n"); */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("A0-A1    "); */
-/* OBSOLETE  */
-/* OBSOLETE   d30v_print_register (A0_REGNUM, 1); */
-/* OBSOLETE   printf_filtered ("    "); */
-/* OBSOLETE   d30v_print_register (A1_REGNUM, 1); */
-/* OBSOLETE   printf_filtered ("\n"); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE CORE_ADDR */
-/* OBSOLETE d30v_fix_call_dummy (char *dummyname, CORE_ADDR start_sp, CORE_ADDR fun, */
-/* OBSOLETE                 int nargs, struct value **args, */
-/* OBSOLETE                 struct type *type, int gcc_p) */
-/* OBSOLETE { */
-/* OBSOLETE   int regnum; */
-/* OBSOLETE   CORE_ADDR sp; */
-/* OBSOLETE   char buffer[MAX_REGISTER_RAW_SIZE]; */
-/* OBSOLETE   struct frame_info *frame = get_current_frame (); */
-/* OBSOLETE   frame->dummy = start_sp; */
-/* OBSOLETE   /*start_sp |= DMEM_START; */ */
-/* OBSOLETE  */
-/* OBSOLETE   sp = start_sp; */
-/* OBSOLETE   for (regnum = 0; regnum < NUM_REGS; regnum++) */
-/* OBSOLETE     { */
-/* OBSOLETE       sp -= REGISTER_RAW_SIZE (regnum); */
-/* OBSOLETE       store_address (buffer, REGISTER_RAW_SIZE (regnum), read_register (regnum)); */
-/* OBSOLETE       write_memory (sp, buffer, REGISTER_RAW_SIZE (regnum)); */
-/* OBSOLETE     } */
-/* OBSOLETE   write_register (SP_REGNUM, (LONGEST) sp); */
-/* OBSOLETE   /* now we need to load LR with the return address */ */
-/* OBSOLETE   write_register (LR_REGNUM, (LONGEST) d30v_call_dummy_address ()); */
-/* OBSOLETE   return sp; */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE d30v_pop_dummy_frame (struct frame_info *fi) */
-/* OBSOLETE { */
-/* OBSOLETE   CORE_ADDR sp = fi->dummy; */
-/* OBSOLETE   int regnum; */
-/* OBSOLETE  */
-/* OBSOLETE   for (regnum = 0; regnum < NUM_REGS; regnum++) */
-/* OBSOLETE     { */
-/* OBSOLETE       sp -= REGISTER_RAW_SIZE (regnum); */
-/* OBSOLETE       write_register (regnum, read_memory_unsigned_integer (sp, REGISTER_RAW_SIZE (regnum))); */
-/* OBSOLETE     } */
-/* OBSOLETE   flush_cached_frames ();  /* needed? */ */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE CORE_ADDR */
-/* OBSOLETE d30v_push_arguments (int nargs, struct value **args, CORE_ADDR sp, */
-/* OBSOLETE                 int struct_return, CORE_ADDR struct_addr) */
-/* OBSOLETE { */
-/* OBSOLETE   int i, len, index = 0, regnum = 2; */
-/* OBSOLETE   char buffer[4], *contents; */
-/* OBSOLETE   LONGEST val; */
-/* OBSOLETE   CORE_ADDR ptrs[10]; */
-/* OBSOLETE  */
-/* OBSOLETE #if 0 */
-/* OBSOLETE   /* Pass 1. Put all large args on stack */ */
-/* OBSOLETE   for (i = 0; i < nargs; i++) */
-/* OBSOLETE     { */
-/* OBSOLETE       struct value *arg = args[i]; */
-/* OBSOLETE       struct type *arg_type = check_typedef (VALUE_TYPE (arg)); */
-/* OBSOLETE       len = TYPE_LENGTH (arg_type); */
-/* OBSOLETE       contents = VALUE_CONTENTS (arg); */
-/* OBSOLETE       val = extract_signed_integer (contents, len); */
-/* OBSOLETE       if (len > 4) */
-/* OBSOLETE    { */
-/* OBSOLETE      /* put on stack and pass pointers */ */
-/* OBSOLETE      sp -= len; */
-/* OBSOLETE      write_memory (sp, contents, len); */
-/* OBSOLETE      ptrs[index++] = sp; */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE #endif */
-/* OBSOLETE   index = 0; */
-/* OBSOLETE  */
-/* OBSOLETE   for (i = 0; i < nargs; i++) */
-/* OBSOLETE     { */
-/* OBSOLETE       struct value *arg = args[i]; */
-/* OBSOLETE       struct type *arg_type = check_typedef (VALUE_TYPE (arg)); */
-/* OBSOLETE       len = TYPE_LENGTH (arg_type); */
-/* OBSOLETE       contents = VALUE_CONTENTS (arg); */
-/* OBSOLETE       if (len > 4) */
-/* OBSOLETE    { */
-/* OBSOLETE      /* we need multiple registers */ */
-/* OBSOLETE      int ndx; */
-/* OBSOLETE  */
-/* OBSOLETE      for (ndx = 0; len > 0; ndx += 8, len -= 8) */
-/* OBSOLETE        { */
-/* OBSOLETE          if (regnum & 1) */
-/* OBSOLETE            regnum++;       /* all args > 4 bytes start in even register */ */
-/* OBSOLETE  */
-/* OBSOLETE          if (regnum < 18) */
-/* OBSOLETE            { */
-/* OBSOLETE              val = extract_signed_integer (&contents[ndx], 4); */
-/* OBSOLETE              write_register (regnum++, val); */
-/* OBSOLETE  */
-/* OBSOLETE              if (len >= 8) */
-/* OBSOLETE                val = extract_signed_integer (&contents[ndx + 4], 4); */
-/* OBSOLETE              else */
-/* OBSOLETE                val = extract_signed_integer (&contents[ndx + 4], len - 4); */
-/* OBSOLETE              write_register (regnum++, val); */
-/* OBSOLETE            } */
-/* OBSOLETE          else */
-/* OBSOLETE            { */
-/* OBSOLETE              /* no more registers available.  put it on the stack */ */
-/* OBSOLETE  */
-/* OBSOLETE              /* all args > 4 bytes are padded to a multiple of 8 bytes */
-/* OBSOLETE                 and start on an 8 byte boundary */ */
-/* OBSOLETE              if (sp & 7) */
-/* OBSOLETE                sp -= (sp & 7);     /* align it */ */
-/* OBSOLETE  */
-/* OBSOLETE              sp -= ((len + 7) & ~7);       /* allocate space */ */
-/* OBSOLETE              write_memory (sp, &contents[ndx], len); */
-/* OBSOLETE              break; */
-/* OBSOLETE            } */
-/* OBSOLETE        } */
-/* OBSOLETE    } */
-/* OBSOLETE       else */
-/* OBSOLETE    { */
-/* OBSOLETE      if (regnum < 18) */
-/* OBSOLETE        { */
-/* OBSOLETE          val = extract_signed_integer (contents, len); */
-/* OBSOLETE          write_register (regnum++, val); */
-/* OBSOLETE        } */
-/* OBSOLETE      else */
-/* OBSOLETE        { */
-/* OBSOLETE          /* all args are padded to a multiple of 4 bytes (at least) */ */
-/* OBSOLETE          sp -= ((len + 3) & ~3); */
-/* OBSOLETE          write_memory (sp, contents, len); */
-/* OBSOLETE        } */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE   if (sp & 7) */
-/* OBSOLETE     /* stack pointer is not on an 8 byte boundary -- align it */ */
-/* OBSOLETE     sp -= (sp & 7); */
-/* OBSOLETE   return sp; */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE  */
-/* OBSOLETE /* pick an out-of-the-way place to set the return value */ */
-/* OBSOLETE /* for an inferior function call.  The link register is set to this  */ */
-/* OBSOLETE /* value and a momentary breakpoint is set there.  When the breakpoint */ */
-/* OBSOLETE /* is hit, the dummy frame is popped and the previous environment is */ */
-/* OBSOLETE /* restored. */ */
-/* OBSOLETE  */
-/* OBSOLETE CORE_ADDR */
-/* OBSOLETE d30v_call_dummy_address (void) */
-/* OBSOLETE { */
-/* OBSOLETE   CORE_ADDR entry; */
-/* OBSOLETE   struct minimal_symbol *sym; */
-/* OBSOLETE  */
-/* OBSOLETE   entry = entry_point_address (); */
-/* OBSOLETE  */
-/* OBSOLETE   if (entry != 0) */
-/* OBSOLETE     return entry; */
-/* OBSOLETE  */
-/* OBSOLETE   sym = lookup_minimal_symbol ("_start", NULL, symfile_objfile); */
-/* OBSOLETE  */
-/* OBSOLETE   if (!sym || MSYMBOL_TYPE (sym) != mst_text) */
-/* OBSOLETE     return 0; */
-/* OBSOLETE   else */
-/* OBSOLETE     return SYMBOL_VALUE_ADDRESS (sym); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE /* Given a return value in `regbuf' with a type `valtype',  */
-/* OBSOLETE    extract and copy its value into `valbuf'.  */ */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE d30v_extract_return_value (struct type *valtype, char regbuf[REGISTER_BYTES], */
-/* OBSOLETE                       char *valbuf) */
-/* OBSOLETE { */
-/* OBSOLETE   memcpy (valbuf, regbuf + REGISTER_BYTE (2), TYPE_LENGTH (valtype)); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE /* The following code implements access to, and display of, the D30V's */
-/* OBSOLETE    instruction trace buffer.  The buffer consists of 64K or more */
-/* OBSOLETE    4-byte words of data, of which each words includes an 8-bit count, */
-/* OBSOLETE    an 8-bit segment number, and a 16-bit instruction address. */
-/* OBSOLETE  */
-/* OBSOLETE    In theory, the trace buffer is continuously capturing instruction */
-/* OBSOLETE    data that the CPU presents on its "debug bus", but in practice, the */
-/* OBSOLETE    ROMified GDB stub only enables tracing when it continues or steps */
-/* OBSOLETE    the program, and stops tracing when the program stops; so it */
-/* OBSOLETE    actually works for GDB to read the buffer counter out of memory and */
-/* OBSOLETE    then read each trace word.  The counter records where the tracing */
-/* OBSOLETE    stops, but there is no record of where it started, so we remember */
-/* OBSOLETE    the PC when we resumed and then search backwards in the trace */
-/* OBSOLETE    buffer for a word that includes that address.  This is not perfect, */
-/* OBSOLETE    because you will miss trace data if the resumption PC is the target */
-/* OBSOLETE    of a branch.  (The value of the buffer counter is semi-random, any */
-/* OBSOLETE    trace data from a previous program stop is gone.)  */ */
-/* OBSOLETE  */
-/* OBSOLETE /* The address of the last word recorded in the trace buffer.  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define DBBC_ADDR (0xd80000) */
-/* OBSOLETE  */
-/* OBSOLETE /* The base of the trace buffer, at least for the "Board_0".  */ */
-/* OBSOLETE  */
-/* OBSOLETE #define TRACE_BUFFER_BASE (0xf40000) */
-/* OBSOLETE  */
-/* OBSOLETE static void trace_command (char *, int); */
-/* OBSOLETE  */
-/* OBSOLETE static void untrace_command (char *, int); */
-/* OBSOLETE  */
-/* OBSOLETE static void trace_info (char *, int); */
-/* OBSOLETE  */
-/* OBSOLETE static void tdisassemble_command (char *, int); */
-/* OBSOLETE  */
-/* OBSOLETE static void display_trace (int, int); */
-/* OBSOLETE  */
-/* OBSOLETE /* True when instruction traces are being collected.  */ */
-/* OBSOLETE  */
-/* OBSOLETE static int tracing; */
-/* OBSOLETE  */
-/* OBSOLETE /* Remembered PC.  */ */
-/* OBSOLETE  */
-/* OBSOLETE static CORE_ADDR last_pc; */
-/* OBSOLETE  */
-/* OBSOLETE /* True when trace output should be displayed whenever program stops.  */ */
-/* OBSOLETE  */
-/* OBSOLETE static int trace_display; */
-/* OBSOLETE  */
-/* OBSOLETE /* True when trace listing should include source lines.  */ */
-/* OBSOLETE  */
-/* OBSOLETE static int default_trace_show_source = 1; */
-/* OBSOLETE  */
-/* OBSOLETE struct trace_buffer */
-/* OBSOLETE   { */
-/* OBSOLETE     int size; */
-/* OBSOLETE     short *counts; */
-/* OBSOLETE     CORE_ADDR *addrs; */
-/* OBSOLETE   } */
-/* OBSOLETE trace_data; */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE trace_command (char *args, int from_tty) */
-/* OBSOLETE { */
-/* OBSOLETE   /* Clear the host-side trace buffer, allocating space if needed.  */ */
-/* OBSOLETE   trace_data.size = 0; */
-/* OBSOLETE   if (trace_data.counts == NULL) */
-/* OBSOLETE     trace_data.counts = (short *) xmalloc (65536 * sizeof (short)); */
-/* OBSOLETE   if (trace_data.addrs == NULL) */
-/* OBSOLETE     trace_data.addrs = (CORE_ADDR *) xmalloc (65536 * sizeof (CORE_ADDR)); */
-/* OBSOLETE  */
-/* OBSOLETE   tracing = 1; */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("Tracing is now on.\n"); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE untrace_command (char *args, int from_tty) */
-/* OBSOLETE { */
-/* OBSOLETE   tracing = 0; */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("Tracing is now off.\n"); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE trace_info (char *args, int from_tty) */
-/* OBSOLETE { */
-/* OBSOLETE   int i; */
-/* OBSOLETE  */
-/* OBSOLETE   if (trace_data.size) */
-/* OBSOLETE     { */
-/* OBSOLETE       printf_filtered ("%d entries in trace buffer:\n", trace_data.size); */
-/* OBSOLETE  */
-/* OBSOLETE       for (i = 0; i < trace_data.size; ++i) */
-/* OBSOLETE    { */
-/* OBSOLETE      printf_filtered ("%d: %d instruction%s at 0x%s\n", */
-/* OBSOLETE                       i, trace_data.counts[i], */
-/* OBSOLETE                       (trace_data.counts[i] == 1 ? "" : "s"), */
-/* OBSOLETE                       paddr_nz (trace_data.addrs[i])); */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE   else */
-/* OBSOLETE     printf_filtered ("No entries in trace buffer.\n"); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("Tracing is currently %s.\n", (tracing ? "on" : "off")); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE /* Print the instruction at address MEMADDR in debugged memory, */
-/* OBSOLETE    on STREAM.  Returns length of the instruction, in bytes.  */ */
-/* OBSOLETE  */
-/* OBSOLETE static int */
-/* OBSOLETE print_insn (CORE_ADDR memaddr, struct ui_file *stream) */
-/* OBSOLETE { */
-/* OBSOLETE   /* If there's no disassembler, something is very wrong.  */ */
-/* OBSOLETE   if (tm_print_insn == NULL) */
-/* OBSOLETE     internal_error (__FILE__, __LINE__, */
-/* OBSOLETE                "print_insn: no disassembler"); */
-/* OBSOLETE  */
-/* OBSOLETE   if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG) */
-/* OBSOLETE     tm_print_insn_info.endian = BFD_ENDIAN_BIG; */
-/* OBSOLETE   else */
-/* OBSOLETE     tm_print_insn_info.endian = BFD_ENDIAN_LITTLE; */
-/* OBSOLETE   return TARGET_PRINT_INSN (memaddr, &tm_print_insn_info); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE d30v_eva_prepare_to_trace (void) */
-/* OBSOLETE { */
-/* OBSOLETE   if (!tracing) */
-/* OBSOLETE     return; */
-/* OBSOLETE  */
-/* OBSOLETE   last_pc = read_register (PC_REGNUM); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE /* Collect trace data from the target board and format it into a form */
-/* OBSOLETE    more useful for display.  */ */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE d30v_eva_get_trace_data (void) */
-/* OBSOLETE { */
-/* OBSOLETE   int count, i, j, oldsize; */
-/* OBSOLETE   int trace_addr, trace_seg, trace_cnt, next_cnt; */
-/* OBSOLETE   unsigned int last_trace, trace_word, next_word; */
-/* OBSOLETE   unsigned int *tmpspace; */
-/* OBSOLETE  */
-/* OBSOLETE   if (!tracing) */
-/* OBSOLETE     return; */
-/* OBSOLETE  */
-/* OBSOLETE   tmpspace = xmalloc (65536 * sizeof (unsigned int)); */
-/* OBSOLETE  */
-/* OBSOLETE   last_trace = read_memory_unsigned_integer (DBBC_ADDR, 2) << 2; */
-/* OBSOLETE  */
-/* OBSOLETE   /* Collect buffer contents from the target, stopping when we reach */
-/* OBSOLETE      the word recorded when execution resumed.  */ */
-/* OBSOLETE  */
-/* OBSOLETE   count = 0; */
-/* OBSOLETE   while (last_trace > 0) */
-/* OBSOLETE     { */
-/* OBSOLETE       QUIT; */
-/* OBSOLETE       trace_word = */
-/* OBSOLETE    read_memory_unsigned_integer (TRACE_BUFFER_BASE + last_trace, 4); */
-/* OBSOLETE       trace_addr = trace_word & 0xffff; */
-/* OBSOLETE       last_trace -= 4; */
-/* OBSOLETE       /* Ignore an apparently nonsensical entry.  */ */
-/* OBSOLETE       if (trace_addr == 0xffd5) */
-/* OBSOLETE    continue; */
-/* OBSOLETE       tmpspace[count++] = trace_word; */
-/* OBSOLETE       if (trace_addr == last_pc) */
-/* OBSOLETE    break; */
-/* OBSOLETE       if (count > 65535) */
-/* OBSOLETE    break; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   /* Move the data to the host-side trace buffer, adjusting counts to */
-/* OBSOLETE      include the last instruction executed and transforming the address */
-/* OBSOLETE      into something that GDB likes.  */ */
-/* OBSOLETE  */
-/* OBSOLETE   for (i = 0; i < count; ++i) */
-/* OBSOLETE     { */
-/* OBSOLETE       trace_word = tmpspace[i]; */
-/* OBSOLETE       next_word = ((i == 0) ? 0 : tmpspace[i - 1]); */
-/* OBSOLETE       trace_addr = trace_word & 0xffff; */
-/* OBSOLETE       next_cnt = (next_word >> 24) & 0xff; */
-/* OBSOLETE       j = trace_data.size + count - i - 1; */
-/* OBSOLETE       trace_data.addrs[j] = (trace_addr << 2) + 0x1000000; */
-/* OBSOLETE       trace_data.counts[j] = next_cnt + 1; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   oldsize = trace_data.size; */
-/* OBSOLETE   trace_data.size += count; */
-/* OBSOLETE  */
-/* OBSOLETE   xfree (tmpspace); */
-/* OBSOLETE  */
-/* OBSOLETE   if (trace_display) */
-/* OBSOLETE     display_trace (oldsize, trace_data.size); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE tdisassemble_command (char *arg, int from_tty) */
-/* OBSOLETE { */
-/* OBSOLETE   int i, count; */
-/* OBSOLETE   CORE_ADDR low, high; */
-/* OBSOLETE   char *space_index; */
-/* OBSOLETE  */
-/* OBSOLETE   if (!arg) */
-/* OBSOLETE     { */
-/* OBSOLETE       low = 0; */
-/* OBSOLETE       high = trace_data.size; */
-/* OBSOLETE     } */
-/* OBSOLETE   else if (!(space_index = (char *) strchr (arg, ' '))) */
-/* OBSOLETE     { */
-/* OBSOLETE       low = parse_and_eval_address (arg); */
-/* OBSOLETE       high = low + 5; */
-/* OBSOLETE     } */
-/* OBSOLETE   else */
-/* OBSOLETE     { */
-/* OBSOLETE       /* Two arguments.  */ */
-/* OBSOLETE       *space_index = '\0'; */
-/* OBSOLETE       low = parse_and_eval_address (arg); */
-/* OBSOLETE       high = parse_and_eval_address (space_index + 1); */
-/* OBSOLETE       if (high < low) */
-/* OBSOLETE    high = low; */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("Dump of trace from %s to %s:\n", */
-/* OBSOLETE               paddr_u (low), */
-/* OBSOLETE               paddr_u (high)); */
-/* OBSOLETE  */
-/* OBSOLETE   display_trace (low, high); */
-/* OBSOLETE  */
-/* OBSOLETE   printf_filtered ("End of trace dump.\n"); */
-/* OBSOLETE   gdb_flush (gdb_stdout); */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE static void */
-/* OBSOLETE display_trace (int low, int high) */
-/* OBSOLETE { */
-/* OBSOLETE   int i, count, trace_show_source, first, suppress; */
-/* OBSOLETE   CORE_ADDR next_address; */
-/* OBSOLETE  */
-/* OBSOLETE   trace_show_source = default_trace_show_source; */
-/* OBSOLETE   if (!have_full_symbols () && !have_partial_symbols ()) */
-/* OBSOLETE     { */
-/* OBSOLETE       trace_show_source = 0; */
-/* OBSOLETE       printf_filtered ("No symbol table is loaded.  Use the \"file\" command.\n"); */
-/* OBSOLETE       printf_filtered ("Trace will not display any source.\n"); */
-/* OBSOLETE     } */
-/* OBSOLETE  */
-/* OBSOLETE   first = 1; */
-/* OBSOLETE   suppress = 0; */
-/* OBSOLETE   for (i = low; i < high; ++i) */
-/* OBSOLETE     { */
-/* OBSOLETE       next_address = trace_data.addrs[i]; */
-/* OBSOLETE       count = trace_data.counts[i]; */
-/* OBSOLETE       while (count-- > 0) */
-/* OBSOLETE    { */
-/* OBSOLETE      QUIT; */
-/* OBSOLETE      if (trace_show_source) */
-/* OBSOLETE        { */
-/* OBSOLETE          struct symtab_and_line sal, sal_prev; */
-/* OBSOLETE  */
-/* OBSOLETE          sal_prev = find_pc_line (next_address - 4, 0); */
-/* OBSOLETE          sal = find_pc_line (next_address, 0); */
-/* OBSOLETE  */
-/* OBSOLETE          if (sal.symtab) */
-/* OBSOLETE            { */
-/* OBSOLETE              if (first || sal.line != sal_prev.line) */
-/* OBSOLETE                print_source_lines (sal.symtab, sal.line, sal.line + 1, 0); */
-/* OBSOLETE              suppress = 0; */
-/* OBSOLETE            } */
-/* OBSOLETE          else */
-/* OBSOLETE            { */
-/* OBSOLETE              if (!suppress) */
-/* OBSOLETE                /* FIXME-32x64--assumes sal.pc fits in long.  */ */
-/* OBSOLETE                printf_filtered ("No source file for address %s.\n", */
-/* OBSOLETE                             local_hex_string ((unsigned long) sal.pc)); */
-/* OBSOLETE              suppress = 1; */
-/* OBSOLETE            } */
-/* OBSOLETE        } */
-/* OBSOLETE      first = 0; */
-/* OBSOLETE      print_address (next_address, gdb_stdout); */
-/* OBSOLETE      printf_filtered (":"); */
-/* OBSOLETE      printf_filtered ("\t"); */
-/* OBSOLETE      wrap_here ("    "); */
-/* OBSOLETE      next_address = next_address + print_insn (next_address, gdb_stdout); */
-/* OBSOLETE      printf_filtered ("\n"); */
-/* OBSOLETE      gdb_flush (gdb_stdout); */
-/* OBSOLETE    } */
-/* OBSOLETE     } */
-/* OBSOLETE } */
-/* OBSOLETE  */
-/* OBSOLETE extern void (*target_resume_hook) (void); */
-/* OBSOLETE extern void (*target_wait_loop_hook) (void); */
-/* OBSOLETE  */
-/* OBSOLETE void */
-/* OBSOLETE _initialize_d30v_tdep (void) */
-/* OBSOLETE { */
-/* OBSOLETE   tm_print_insn = print_insn_d30v; */
-/* OBSOLETE  */
-/* OBSOLETE   target_resume_hook = d30v_eva_prepare_to_trace; */
-/* OBSOLETE   target_wait_loop_hook = d30v_eva_get_trace_data; */
-/* OBSOLETE  */
-/* OBSOLETE   add_info ("flags", print_flags_command, "Print d30v flags."); */
-/* OBSOLETE  */
-/* OBSOLETE   add_com ("trace", class_support, trace_command, */
-/* OBSOLETE       "Enable tracing of instruction execution."); */
-/* OBSOLETE  */
-/* OBSOLETE   add_com ("untrace", class_support, untrace_command, */
-/* OBSOLETE       "Disable tracing of instruction execution."); */
-/* OBSOLETE  */
-/* OBSOLETE   add_com ("tdisassemble", class_vars, tdisassemble_command, */
-/* OBSOLETE       "Disassemble the trace buffer.\n\ */
-/* OBSOLETE Two optional arguments specify a range of trace buffer entries\n\ */
-/* OBSOLETE as reported by info trace (NOT addresses!)."); */
-/* OBSOLETE  */
-/* OBSOLETE   add_info ("trace", trace_info, */
-/* OBSOLETE        "Display info about the trace data buffer."); */
-/* OBSOLETE  */
-/* OBSOLETE   add_show_from_set (add_set_cmd ("tracedisplay", no_class, */
-/* OBSOLETE                              var_integer, (char *) &trace_display, */
-/* OBSOLETE                         "Set automatic display of trace.\n", &setlist), */
-/* OBSOLETE                 &showlist); */
-/* OBSOLETE   add_show_from_set (add_set_cmd ("tracesource", no_class, */
-/* OBSOLETE                       var_integer, (char *) &default_trace_show_source, */
-/* OBSOLETE                  "Set display of source code with trace.\n", &setlist), */
-/* OBSOLETE                 &showlist); */
-/* OBSOLETE  */
-/* OBSOLETE } */
diff --git a/gdb/dst.h b/gdb/dst.h
deleted file mode 100644 (file)
index 89ad9ec..0000000
--- a/gdb/dst.h
+++ /dev/null
@@ -1,1671 +0,0 @@
-// OBSOLETE /* <apollo/dst.h> */
-// OBSOLETE /* Apollo object module DST (debug symbol table) description */
-// OBSOLETE 
-// OBSOLETE #ifndef apollo_dst_h
-// OBSOLETE #define apollo_dst_h
-// OBSOLETE 
-// OBSOLETE #if defined(apollo) && !defined(__GNUC__)
-// OBSOLETE #define ALIGNED1  __attribute( (aligned(1)) )
-// OBSOLETE #else
-// OBSOLETE /* Remove attribute directives from non-Apollo code: */
-// OBSOLETE #define ALIGNED1           /* nil */
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Identification of this version of the debug symbol table.  Producers of the
-// OBSOLETE    debug symbol table must write these values into the version number field of
-// OBSOLETE    the compilation unit record in .blocks .
-// OBSOLETE  */
-// OBSOLETE #define dst_version_major    1
-// OBSOLETE #define dst_version_minor    3
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    ** Enumeration of debug record types appearing in .blocks and .symbols ...
-// OBSOLETE  */
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_typ_pad,           /*  0 */
-// OBSOLETE     dst_typ_comp_unit,             /*  1 */
-// OBSOLETE     dst_typ_section_tab,   /*  2 */
-// OBSOLETE     dst_typ_file_tab,              /*  3 */
-// OBSOLETE     dst_typ_block,         /*  4 */
-// OBSOLETE     dst_typ_5,
-// OBSOLETE     dst_typ_var,
-// OBSOLETE     dst_typ_pointer,               /*  7 */
-// OBSOLETE     dst_typ_array,         /*  8 */
-// OBSOLETE     dst_typ_subrange,              /*  9 */
-// OBSOLETE     dst_typ_set,           /* 10 */
-// OBSOLETE     dst_typ_implicit_enum, /* 11 */
-// OBSOLETE     dst_typ_explicit_enum, /* 12 */
-// OBSOLETE     dst_typ_short_rec,             /* 13 */
-// OBSOLETE     dst_typ_old_record,
-// OBSOLETE     dst_typ_short_union,   /* 15 */
-// OBSOLETE     dst_typ_old_union,
-// OBSOLETE     dst_typ_file,          /* 17 */
-// OBSOLETE     dst_typ_offset,                /* 18 */
-// OBSOLETE     dst_typ_alias,         /* 19 */
-// OBSOLETE     dst_typ_signature,             /* 20 */
-// OBSOLETE     dst_typ_21,
-// OBSOLETE     dst_typ_old_label,             /* 22 */
-// OBSOLETE     dst_typ_scope,         /* 23 */
-// OBSOLETE     dst_typ_end_scope,             /* 24 */
-// OBSOLETE     dst_typ_25,
-// OBSOLETE     dst_typ_26,
-// OBSOLETE     dst_typ_string_tab,            /* 27 */
-// OBSOLETE     dst_typ_global_name_tab,       /* 28 */
-// OBSOLETE     dst_typ_forward,               /* 29 */
-// OBSOLETE     dst_typ_aux_size,              /* 30 */
-// OBSOLETE     dst_typ_aux_align,             /* 31 */
-// OBSOLETE     dst_typ_aux_field_size,        /* 32 */
-// OBSOLETE     dst_typ_aux_field_off, /* 33 */
-// OBSOLETE     dst_typ_aux_field_align,       /* 34 */
-// OBSOLETE     dst_typ_aux_qual,              /* 35 */
-// OBSOLETE     dst_typ_aux_var_bound, /* 36 */
-// OBSOLETE     dst_typ_extension,             /* 37 */
-// OBSOLETE     dst_typ_string,                /* 38 */
-// OBSOLETE     dst_typ_old_entry,
-// OBSOLETE     dst_typ_const,         /* 40 */
-// OBSOLETE     dst_typ_reference,             /* 41 */
-// OBSOLETE     dst_typ_record,                /* 42 */
-// OBSOLETE     dst_typ_union,         /* 43 */
-// OBSOLETE     dst_typ_aux_type_deriv,        /* 44 */
-// OBSOLETE     dst_typ_locpool,               /* 45 */
-// OBSOLETE     dst_typ_variable,              /* 46 */
-// OBSOLETE     dst_typ_label,         /* 47 */
-// OBSOLETE     dst_typ_entry,         /* 48 */
-// OBSOLETE     dst_typ_aux_lifetime,  /* 49 */
-// OBSOLETE     dst_typ_aux_ptr_base,  /* 50 */
-// OBSOLETE     dst_typ_aux_src_range, /* 51 */
-// OBSOLETE     dst_typ_aux_reg_val,   /* 52 */
-// OBSOLETE     dst_typ_aux_unit_names,        /* 53 */
-// OBSOLETE     dst_typ_aux_sect_info, /* 54 */
-// OBSOLETE     dst_typ_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_rec_type_t;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    ** Dummy bounds for variably dimensioned arrays:
-// OBSOLETE  */
-// OBSOLETE #define dst_dummy_array_size  100
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    ** Reference to another item in the symbol table.
-// OBSOLETE    **
-// OBSOLETE    ** The value of a dst_rel_offset_t is the relative offset from the start of the
-// OBSOLETE    ** referencing record to the start of the referenced record, string, etc. 
-// OBSOLETE    **
-// OBSOLETE    ** The value of a NIL dst_rel_offset_t is zero.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef long dst_rel_offset_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* FIXME: Here and many places we make assumptions about sizes of host
-// OBSOLETE    data types, structure layout, etc.  Only needs to be fixed if we care
-// OBSOLETE    about cross-debugging, though.  */
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    ** Section-relative reference. 
-// OBSOLETE    **
-// OBSOLETE    ** The section index field is an index into the local compilation unit's
-// OBSOLETE    ** section table (see dst_rec_section_tab_t)--NOT into the object module
-// OBSOLETE    ** section table!
-// OBSOLETE    **
-// OBSOLETE    ** The sect_offset field is the offset in bytes into the section.
-// OBSOLETE    **
-// OBSOLETE    ** A NIL dst_sect_ref_t has a sect_index field of zero.  Indexes originate
-// OBSOLETE    ** at one.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short sect_index;
-// OBSOLETE     unsigned long sect_offset ALIGNED1;
-// OBSOLETE   }
-// OBSOLETE dst_sect_ref_t;
-// OBSOLETE 
-// OBSOLETE #define dst_sect_index_nil    0
-// OBSOLETE #define dst_sect_index_origin 1
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    ** Source location descriptor.
-// OBSOLETE    **
-// OBSOLETE    ** The file_index field is an index into the local compilation unit's
-// OBSOLETE    ** file table (see dst_rec_file_tab_t).
-// OBSOLETE    **
-// OBSOLETE    ** A NIL dst_src_loc_t has a file_index field of zero.  Indexes originate
-// OBSOLETE    ** at one.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     boolean reserved:1;            /* reserved for future use */
-// OBSOLETE     int file_index:11;             /* index into .blocks source file list */
-// OBSOLETE     int line_number:20;            /* source line number */
-// OBSOLETE   }
-// OBSOLETE dst_src_loc_t;
-// OBSOLETE 
-// OBSOLETE #define dst_file_index_nil    0
-// OBSOLETE #define dst_file_index_origin 1
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    ** Standard (primitive) type codes.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_non_std_type,
-// OBSOLETE     dst_int8_type,         /* 8 bit integer */
-// OBSOLETE     dst_int16_type,                /* 16 bit integer */
-// OBSOLETE     dst_int32_type,                /* 32 bit integer */
-// OBSOLETE     dst_uint8_type,                /* 8 bit unsigned integer */
-// OBSOLETE     dst_uint16_type,               /* 16 bit unsigned integer */
-// OBSOLETE     dst_uint32_type,               /* 32 bit unsigned integer */
-// OBSOLETE     dst_real32_type,               /* single precision ieee floatining point */
-// OBSOLETE     dst_real64_type,               /* double precision ieee floatining point */
-// OBSOLETE     dst_complex_type,              /* single precision complex */
-// OBSOLETE     dst_dcomplex_type,             /* double precision complex */
-// OBSOLETE     dst_bool8_type,                /* boolean =logical*1 */
-// OBSOLETE     dst_bool16_type,               /* boolean =logical*2 */
-// OBSOLETE     dst_bool32_type,               /* boolean =logical*4 */
-// OBSOLETE     dst_char_type,         /* 8 bit ascii character */
-// OBSOLETE     dst_string_type,               /* string of 8 bit ascii characters */
-// OBSOLETE     dst_ptr_type,          /* univ_pointer */
-// OBSOLETE     dst_set_type,          /* generic 256 bit set */
-// OBSOLETE     dst_proc_type,         /* generic procedure (signature not specified) */
-// OBSOLETE     dst_func_type,         /* generic function (signature not specified) */
-// OBSOLETE     dst_void_type,         /* c void type */
-// OBSOLETE     dst_uchar_type,                /* c unsigned char */
-// OBSOLETE     dst_std_type_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_std_type_t;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    ** General data type descriptor
-// OBSOLETE    **
-// OBSOLETE    ** If the user_defined_type bit is clear, then the type is a standard type, and
-// OBSOLETE    ** the remaining bits contain the dst_std_type_t of the type.  If the bit is
-// OBSOLETE    ** set, then the type is defined in a separate dst record, which is referenced
-// OBSOLETE    ** by the remaining bits as a dst_rel_offset_t.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef union
-// OBSOLETE   {
-// OBSOLETE     struct
-// OBSOLETE       {
-// OBSOLETE    boolean user_defined_type:1;    /* tag field */
-// OBSOLETE    int must_be_zero:23;    /* 23 bits of pad */
-// OBSOLETE    dst_std_type_t dtc:8;   /* 8 bit primitive data */
-// OBSOLETE       }
-// OBSOLETE     std_type;
-// OBSOLETE 
-// OBSOLETE     struct
-// OBSOLETE       {
-// OBSOLETE    boolean user_defined_type:1;    /* tag field */
-// OBSOLETE    int doffset:31;         /* offset to type record */
-// OBSOLETE       }
-// OBSOLETE     user_type;
-// OBSOLETE   }
-// OBSOLETE dst_type_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /* The user_type.doffset field is a 31-bit signed value.  Some versions of C
-// OBSOLETE    do not support signed bit fields.  The following macro will extract that
-// OBSOLETE    field as a signed value:
-// OBSOLETE  */
-// OBSOLETE #define dst_user_type_offset(type_rec) \
-// OBSOLETE     ( ((int) ((type_rec).user_type.doffset << 1)) >> 1 )
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*================================================*/
-// OBSOLETE /*========== RECORDS IN .blocks SECTION ==========*/
-// OBSOLETE /*================================================*/
-// OBSOLETE 
-// OBSOLETE /*-----------------------
-// OBSOLETE   COMPILATION UNIT record 
-// OBSOLETE   -----------------------
-// OBSOLETE   This must be the first record in each .blocks section.
-// OBSOLETE   Provides a set of information describing the output of a single compilation
-// OBSOLETE   and pointers to additional information for the compilation unit.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_pc_code_locs,              /* ranges in loc strings are pc ranges */
-// OBSOLETE     dst_comp_unit_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_comp_unit_flag_t;
-// OBSOLETE 
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_lang_unk,          /* unknown language */
-// OBSOLETE     dst_lang_pas,          /* Pascal */
-// OBSOLETE     dst_lang_ftn,          /* FORTRAN */
-// OBSOLETE     dst_lang_c,                    /* C */
-// OBSOLETE     dst_lang_mod2,         /* Modula-2 */
-// OBSOLETE     dst_lang_asm_m68k,             /* 68K assembly language */
-// OBSOLETE     dst_lang_asm_a88k,             /* AT assembly language */
-// OBSOLETE     dst_lang_ada,          /* Ada */
-// OBSOLETE     dst_lang_cxx,          /* C++ */
-// OBSOLETE     dst_lang_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_lang_type_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     struct
-// OBSOLETE       {
-// OBSOLETE    unsigned char major_part;       /* = dst_version_major */
-// OBSOLETE    unsigned char minor_part;       /* = dst_version_minor */
-// OBSOLETE       }
-// OBSOLETE     version;                       /* version of dst */
-// OBSOLETE     unsigned short flags;  /* mask of dst_comp_unit_flag_t */
-// OBSOLETE     unsigned short lang_type;      /* source language */
-// OBSOLETE     unsigned short number_of_blocks;       /* number of blocks records */
-// OBSOLETE     dst_rel_offset_t root_block_offset;            /* offset to root block (module?) */
-// OBSOLETE     dst_rel_offset_t section_table /* offset to section table record */ ;
-// OBSOLETE     dst_rel_offset_t file_table;   /* offset to file table record */
-// OBSOLETE     unsigned long data_size;       /* total size of .blocks data */
-// OBSOLETE   }
-// OBSOLETE dst_rec_comp_unit_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*--------------------
-// OBSOLETE   SECTION TABLE record
-// OBSOLETE   --------------------
-// OBSOLETE   There must be one section table associated with each compilation unit.
-// OBSOLETE   Other debug records refer to sections via their index in this table.  The
-// OBSOLETE   section base addresses in the table are virtual addresses of the sections,
-// OBSOLETE   relocated by the linker.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short number_of_sections;     /* size of array: */
-// OBSOLETE     unsigned long section_base[dst_dummy_array_size] ALIGNED1;
-// OBSOLETE   }
-// OBSOLETE dst_rec_section_tab_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------
-// OBSOLETE   FILE TABLE record
-// OBSOLETE   -----------------
-// OBSOLETE   There must be one file table associated with each compilation unit describing
-// OBSOLETE   the source (and include) files used by each compilation unit.  Other debug 
-// OBSOLETE   records refer to files via their index in this table.  The first entry is the
-// OBSOLETE   primary source file.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     long dtm;                      /* time last modified (time_$clock_t) */
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string for source file */
-// OBSOLETE   }
-// OBSOLETE dst_file_desc_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short number_of_files;        /* size of array: */
-// OBSOLETE     dst_file_desc_t files[dst_dummy_array_size] ALIGNED1;
-// OBSOLETE   }
-// OBSOLETE dst_rec_file_tab_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------
-// OBSOLETE   NAME TABLE record
-// OBSOLETE   -----------------
-// OBSOLETE   A name table record may appear as an auxiliary record to the file table,
-// OBSOLETE   providing additional qualification of the file indexes for languages that 
-// OBSOLETE   need it (i.e. Ada).  Name table entries parallel file table entries of the
-// OBSOLETE   same file index.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short number_of_names;        /* size of array: */
-// OBSOLETE     dst_rel_offset_t names[dst_dummy_array_size] ALIGNED1;
-// OBSOLETE   }
-// OBSOLETE dst_rec_name_tab_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*--------------
-// OBSOLETE   BLOCK record
-// OBSOLETE   --------------
-// OBSOLETE   Describes a lexical program block--a procedure, function, module, etc.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE /* Block types.  These may be used in any way desired by the compiler writers. 
-// OBSOLETE    The debugger uses them only to give a description to the user of the type of
-// OBSOLETE    a block.  The debugger makes no other assumptions about the meaning of any
-// OBSOLETE    of these.  For example, the fact that a block is executable (e.g., program)
-// OBSOLETE    or not (e.g., module) is expressed in block attributes (see below), not
-// OBSOLETE    guessed at from the block type.
-// OBSOLETE  */
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_block_module,              /* some pascal = modula = ada types */
-// OBSOLETE     dst_block_program,
-// OBSOLETE     dst_block_procedure,
-// OBSOLETE     dst_block_function,            /* C function */
-// OBSOLETE     dst_block_subroutine,  /* some fortran block types */
-// OBSOLETE     dst_block_block_data,
-// OBSOLETE     dst_block_stmt_function,
-// OBSOLETE     dst_block_package,             /* a few particular to Ada */
-// OBSOLETE     dst_block_package_body,
-// OBSOLETE     dst_block_subunit,
-// OBSOLETE     dst_block_task,
-// OBSOLETE     dst_block_file,                /* a C outer scope? */
-// OBSOLETE     dst_block_class,               /* C++ or Simula */
-// OBSOLETE     dst_block_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_block_type_t;
-// OBSOLETE 
-// OBSOLETE /* Block attributes.  This is the information used by the debugger to represent
-// OBSOLETE    the semantics of blocks.
-// OBSOLETE  */
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_block_main_entry,  /* the block's entry point is a main entry into
-// OBSOLETE                               the compilation unit */
-// OBSOLETE     dst_block_executable,  /* the block has an entry point */
-// OBSOLETE     dst_block_attr_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_block_attr_t;
-// OBSOLETE 
-// OBSOLETE /* Code range.  Each block has associated with it one or more code ranges. An
-// OBSOLETE    individual code range is identified by a range of source (possibly nil) and
-// OBSOLETE    a range of executable code.  For example, a block which has its executable
-// OBSOLETE    code spread over multiple sections will have one code range per section.
-// OBSOLETE  */
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned long code_size;       /* size of executable code (in bytes ) */
-// OBSOLETE     dst_sect_ref_t code_start;     /* starting address of executable code */
-// OBSOLETE     dst_sect_ref_t lines_start;    /* start of line number tables */
-// OBSOLETE   }
-// OBSOLETE dst_code_range_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_block_type_t block_type:8;
-// OBSOLETE     unsigned short flags:8;        /* mask of dst_block_attr_t flags */
-// OBSOLETE     dst_rel_offset_t sibling_block_off;            /* offset to next sibling block */
-// OBSOLETE     dst_rel_offset_t child_block_off;      /* offset to first contained block */
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to block name string */
-// OBSOLETE     dst_sect_ref_t symbols_start;  /* start of debug symbols  */
-// OBSOLETE     unsigned short n_of_code_ranges;       /* size of array... */
-// OBSOLETE     dst_code_range_t code_ranges[dst_dummy_array_size] ALIGNED1;
-// OBSOLETE   }
-// OBSOLETE dst_rec_block_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*--------------------------
-// OBSOLETE   AUX SECT INFO TABLE record
-// OBSOLETE   --------------------------
-// OBSOLETE   Appears as an auxiliary to a block record.  Expands code range information
-// OBSOLETE   by providing references into additional, language-dependent sections for 
-// OBSOLETE   information related to specific code ranges of the block.  Sect info table
-// OBSOLETE   entries parallel code range array entries of the same index.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned char tag;             /* currently can only be zero */
-// OBSOLETE     unsigned char number_of_refs;  /* size of array: */
-// OBSOLETE     dst_sect_ref_t refs[dst_dummy_array_size] ALIGNED1;
-// OBSOLETE   }
-// OBSOLETE dst_rec_sect_info_tab_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /*=================================================*/
-// OBSOLETE /*========== RECORDS IN .symbols SECTION ==========*/
-// OBSOLETE /*=================================================*/
-// OBSOLETE 
-// OBSOLETE /*-----------------
-// OBSOLETE   CONSTANT record
-// OBSOLETE   -----------------
-// OBSOLETE   Describes a symbolic constant.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     float r;                       /* real part */
-// OBSOLETE     float i;                       /* imaginary part */
-// OBSOLETE   }
-// OBSOLETE dst_complex_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     double dr;                     /* real part */
-// OBSOLETE     double di;                     /* imaginary part */
-// OBSOLETE   }
-// OBSOLETE dst_double_complex_t;
-// OBSOLETE 
-// OBSOLETE /* The following record provides a way of describing constant values with 
-// OBSOLETE    non-standard type and no limit on size. 
-// OBSOLETE  */
-// OBSOLETE typedef union
-// OBSOLETE   {
-// OBSOLETE     char char_data[dst_dummy_array_size];
-// OBSOLETE     short int_data[dst_dummy_array_size];
-// OBSOLETE     long long_data[dst_dummy_array_size];
-// OBSOLETE   }
-// OBSOLETE dst_big_kon_t;
-// OBSOLETE 
-// OBSOLETE /* Representation of the value of a general constant.
-// OBSOLETE  */
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short length; /* size of constant value (bytes) */
-// OBSOLETE 
-// OBSOLETE     union
-// OBSOLETE       {
-// OBSOLETE    unsigned short kon_int8;
-// OBSOLETE    short kon_int16;
-// OBSOLETE    long kon_int32 ALIGNED1;
-// OBSOLETE    float kon_real ALIGNED1;
-// OBSOLETE    double kon_dbl ALIGNED1;
-// OBSOLETE    dst_complex_t kon_cplx ALIGNED1;
-// OBSOLETE    dst_double_complex_t kon_dcplx ALIGNED1;
-// OBSOLETE    char kon_char;
-// OBSOLETE    dst_big_kon_t kon ALIGNED1;
-// OBSOLETE       }
-// OBSOLETE     val;                   /* value data of constant */
-// OBSOLETE   }
-// OBSOLETE dst_const_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of const definition */
-// OBSOLETE     dst_type_t type_desc;  /* type of this (manifest) constant */
-// OBSOLETE     dst_const_t value;
-// OBSOLETE   }
-// OBSOLETE dst_rec_const_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /*----------------
-// OBSOLETE   VARIABLE record
-// OBSOLETE   ----------------
-// OBSOLETE   Describes a program variable.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE /* Variable attributes.  These define certain variable semantics to the
-// OBSOLETE    debugger.
-// OBSOLETE  */
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_var_attr_read_only,        /* is read-only (a program literal) */
-// OBSOLETE     dst_var_attr_volatile, /* same as compiler's VOLATILE attribute */
-// OBSOLETE     dst_var_attr_global,   /* is a global definition or reference */
-// OBSOLETE     dst_var_attr_compiler_gen,     /* is compiler-generated */
-// OBSOLETE     dst_var_attr_static,   /* has static location */
-// OBSOLETE     dst_var_attr_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_var_attr_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_rel_offset_t loffset;      /* offset to loc string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of variable definition */
-// OBSOLETE     dst_type_t type_desc;  /* type descriptor */
-// OBSOLETE     unsigned short attributes;     /* mask of dst_var_attr_t flags */
-// OBSOLETE   }
-// OBSOLETE dst_rec_variable_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*----------------
-// OBSOLETE   old VAR record
-// OBSOLETE  -----------------
-// OBSOLETE  Used by older compilers to describe a variable
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_var_loc_unknown,   /* Actually defined as "unknown" */
-// OBSOLETE     dst_var_loc_abs,               /* Absolute address */
-// OBSOLETE     dst_var_loc_sect_off,  /* Absolute address as a section offset */
-// OBSOLETE     dst_var_loc_ind_sect_off,      /* An indexed section offset ???? */
-// OBSOLETE     dst_var_loc_reg,               /* register */
-// OBSOLETE     dst_var_loc_reg_rel,   /* register relative - usually fp */
-// OBSOLETE     dst_var_loc_ind_reg_rel,       /* Indexed register relative */
-// OBSOLETE     dst_var_loc_ftn_ptr_based,     /* Fortran pointer based */
-// OBSOLETE     dst_var_loc_pc_rel,            /* PC relative. Really. */
-// OBSOLETE     dst_var_loc_external,  /* External */
-// OBSOLETE     dst_var_loc_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_var_loc_t;
-// OBSOLETE 
-// OBSOLETE /* Locations come in two versions. The short, and the long. The difference
-// OBSOLETE  * between the short and the long is the addition of a statement number
-// OBSOLETE  * field to the start andend of the range of the long, and and unkown
-// OBSOLETE  * purpose field in the middle. Also, loc_type and loc_index aren't
-// OBSOLETE  * bitfields in the long version.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short loc_type:4;
-// OBSOLETE     unsigned short loc_index:12;
-// OBSOLETE     long location;
-// OBSOLETE     short start_line;              /* start_line and end_line? */
-// OBSOLETE     short end_line;                /* I'm guessing here.       */
-// OBSOLETE   }
-// OBSOLETE dst_var_loc_short_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short loc_type;
-// OBSOLETE     unsigned short loc_index;
-// OBSOLETE     long location;
-// OBSOLETE     short unknown;         /* Always 0003 or 3b3c. Why? */
-// OBSOLETE     short start_statement;
-// OBSOLETE     short start_line;
-// OBSOLETE     short end_statement;
-// OBSOLETE     short end_line;
-// OBSOLETE   }
-// OBSOLETE dst_var_loc_long_t;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of description */
-// OBSOLETE     dst_type_t type_desc;  /* Type description */
-// OBSOLETE     unsigned short attributes;     /* mask of dst_var_attr_t flags */
-// OBSOLETE     unsigned short no_of_locs:15;  /* Number of locations */
-// OBSOLETE     unsigned short short_locs:1;   /* True if short locations. */
-// OBSOLETE     union
-// OBSOLETE       {
-// OBSOLETE    dst_var_loc_short_t shorts[dst_dummy_array_size];
-// OBSOLETE    dst_var_loc_long_t longs[dst_dummy_array_size];
-// OBSOLETE       }
-// OBSOLETE     locs;
-// OBSOLETE   }
-// OBSOLETE dst_rec_var_t;
-// OBSOLETE 
-// OBSOLETE /*----------------
-// OBSOLETE   old LABEL record
-// OBSOLETE  -----------------
-// OBSOLETE  Used by older compilers to describe a label
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of description */
-// OBSOLETE     char location[12];             /* location string */
-// OBSOLETE   }
-// OBSOLETE dst_rec_old_label_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /*----------------
-// OBSOLETE   POINTER record
-// OBSOLETE   ----------------
-// OBSOLETE   Describes a pointer type.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to the name string for this type */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE     dst_type_t type_desc;  /* base type of this pointer */
-// OBSOLETE   }
-// OBSOLETE dst_rec_pointer_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-------------
-// OBSOLETE   ARRAY record
-// OBSOLETE   -------------
-// OBSOLETE   Describes an array type.
-// OBSOLETE 
-// OBSOLETE   Multidimensional arrays are described with a number of dst_rec_array_t 
-// OBSOLETE   records, one per array dimension, each linked to the next through the
-// OBSOLETE   elem_type_desc.doffset field.  Each record must have its multi_dim flag
-// OBSOLETE   set.
-// OBSOLETE 
-// OBSOLETE   If column_major is true (as with FORTRAN arrays) then the last array bound in
-// OBSOLETE   the declaration is the first array index in memory, which is the opposite of
-// OBSOLETE   the usual case (as with Pascal and C arrays).
-// OBSOLETE 
-// OBSOLETE   Variable array bounds are described by auxiliary records; if aux_var_bound
-// OBSOLETE   records are present, the lo_bound and hi_bound fields of this record are
-// OBSOLETE   ignored by the debugger.
-// OBSOLETE 
-// OBSOLETE   span_comp identifies one of the language-dependent ways in which the distance
-// OBSOLETE   between successive array elements (span) is calculated.  
-// OBSOLETE      dst_use_span_field    -- the span is the value of span field.
-// OBSOLETE      dst_compute_from_prev -- the span is the size of the previous dimension.
-// OBSOLETE      dst_compute_from_next -- the span is the size of the next dimension.
-// OBSOLETE   In the latter two cases, the span field contains an amount of padding to add
-// OBSOLETE   to the size of the appropriate dimension to calculate the span.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_use_span_field,
-// OBSOLETE     dst_compute_from_prev,
-// OBSOLETE     dst_compute_from_next,
-// OBSOLETE     dst_span_comp_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_span_comp_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE     dst_type_t elem_type_desc;     /* array element type */
-// OBSOLETE     dst_type_t indx_type_desc;     /* array index type */
-// OBSOLETE     long lo_bound;         /* lower bound of index */
-// OBSOLETE     long hi_bound;         /* upper bound of index */
-// OBSOLETE     unsigned long span;            /* see above */
-// OBSOLETE     unsigned long size;            /* total array size (bytes) */
-// OBSOLETE     boolean multi_dim:1;
-// OBSOLETE     boolean is_packed:1;   /* true if packed array */
-// OBSOLETE     boolean is_signed:1;   /* true if packed elements are signed */
-// OBSOLETE     dst_span_comp_t span_comp:2;   /* how to compute span */
-// OBSOLETE     boolean column_major:1;
-// OBSOLETE     unsigned short reserved:2;     /* must be zero */
-// OBSOLETE     unsigned short elem_size:8;    /* element size if packed (bits) */
-// OBSOLETE   }
-// OBSOLETE dst_rec_array_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------
-// OBSOLETE   SUBRANGE record
-// OBSOLETE   -----------------
-// OBSOLETE   Describes a subrange type.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE /* Variable subrange bounds are described by auxiliary records; if aux_var_bound
-// OBSOLETE    records are present, the lo_bound and hi_bound fields of this record are
-// OBSOLETE    ignored by the debugger.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of subrange definition */
-// OBSOLETE     dst_type_t type_desc;  /* parent type */
-// OBSOLETE     long lo_bound;         /* lower bound of subrange */
-// OBSOLETE     long hi_bound;         /* upper bound of subrange */
-// OBSOLETE     unsigned short size;   /* storage size (bytes) */
-// OBSOLETE   }
-// OBSOLETE dst_rec_subrange_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*---------------
-// OBSOLETE   STRING record 
-// OBSOLETE   ---------------
-// OBSOLETE   Describes a string type.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE /* Variable subrange bounds are described by auxiliary records; if aux_var_bound
-// OBSOLETE    records are present, the lo_bound and hi_bound fields of this record are
-// OBSOLETE    ignored by the debugger.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of string definition */
-// OBSOLETE     dst_type_t elem_type_desc;     /* element type */
-// OBSOLETE     dst_type_t indx_type_desc;     /* index type */
-// OBSOLETE     long lo_bound;         /* lower bound */
-// OBSOLETE     long hi_bound;         /* upper bound */
-// OBSOLETE     unsigned long size;            /* total string size (bytes) if fixed */
-// OBSOLETE   }
-// OBSOLETE dst_rec_string_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*---------------
-// OBSOLETE   SET record 
-// OBSOLETE   ---------------
-// OBSOLETE   Describes a set type.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE     dst_type_t type_desc;  /* element type */
-// OBSOLETE     unsigned short nbits;  /* number of bits in set */
-// OBSOLETE     unsigned short size;   /* storage size (bytes) */
-// OBSOLETE   }
-// OBSOLETE dst_rec_set_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------------
-// OBSOLETE   IMPLICIT ENUMERATION record 
-// OBSOLETE   -----------------------------
-// OBSOLETE   Describes an enumeration type with implicit element values = 0, 1, 2, ...
-// OBSOLETE   (Pascal-style).
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE     unsigned short nelems; /* number of elements in enumeration */
-// OBSOLETE     unsigned short size;   /* storage size (bytes) */
-// OBSOLETE     /* offsets to name strings of elements 0, 1, 2, ... */
-// OBSOLETE     dst_rel_offset_t elem_noffsets[dst_dummy_array_size];
-// OBSOLETE   }
-// OBSOLETE dst_rec_implicit_enum_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------------
-// OBSOLETE   EXPLICIT ENUMERATION record 
-// OBSOLETE   -----------------------------
-// OBSOLETE   Describes an enumeration type with explicitly assigned element values
-// OBSOLETE   (C-style).
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to element name string */
-// OBSOLETE     long value;                    /* element value */
-// OBSOLETE   }
-// OBSOLETE dst_enum_elem_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE     unsigned short nelems; /* number of elements in enumeration */
-// OBSOLETE     unsigned short size;   /* storage size (bytes) */
-// OBSOLETE     /* name/value pairs, one describing each enumeration value: */
-// OBSOLETE     dst_enum_elem_t elems[dst_dummy_array_size];
-// OBSOLETE   }
-// OBSOLETE dst_rec_explicit_enum_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------
-// OBSOLETE   RECORD / UNION record 
-// OBSOLETE   -----------------------
-// OBSOLETE   Describes a record (struct) or union.
-// OBSOLETE 
-// OBSOLETE   If the record is larger than 2**16 bytes then an attached aux record
-// OBSOLETE   specifies its size.  Also, if the record is stored in short form then
-// OBSOLETE   attached records specify field offsets larger than 2**16 bytes.
-// OBSOLETE 
-// OBSOLETE   Whether the fields[] array or sfields[] array is used is selected by
-// OBSOLETE   the dst_rec_type_t of the overall dst record.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    Record field descriptor, short form.  This form handles only fields which
-// OBSOLETE    are an even number of bytes long, located some number of bytes from the
-// OBSOLETE    start of the record.
-// OBSOLETE  */
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to field name string */
-// OBSOLETE     dst_type_t type_desc;  /* field type */
-// OBSOLETE     unsigned short foffset;        /* field offset from start of record (bytes) */
-// OBSOLETE   }
-// OBSOLETE dst_short_field_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_type_t type_desc;  /* field type */
-// OBSOLETE     unsigned short foffset;        /* byte offset */
-// OBSOLETE     unsigned short is_packed:1;    /* True if field is packed */
-// OBSOLETE     unsigned short bit_offset:6;   /* Bit offset */
-// OBSOLETE     unsigned short size:6; /* Size in bits */
-// OBSOLETE     unsigned short sign:1; /* True if signed */
-// OBSOLETE     unsigned short pad:2;  /* Padding. Must be 0 */
-// OBSOLETE   }
-// OBSOLETE dst_old_field_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /* Tag enumeration for long record field descriptor:
-// OBSOLETE  */
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_field_byte,
-// OBSOLETE     dst_field_bit,
-// OBSOLETE     dst_field_loc,
-// OBSOLETE     dst_field_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_field_format_t;
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    Record field descriptor, long form.  The format of the field information
-// OBSOLETE    is identified by the format_tag, which contains one of the above values.
-// OBSOLETE    The field_byte variant is equivalent to the short form of field descriptor.
-// OBSOLETE    The field_bit variant handles fields which are any number of bits long,
-// OBSOLETE    located some number of bits from the start of the record.  The field_loc
-// OBSOLETE    variant allows the location of the field to be described by a general loc
-// OBSOLETE    string.
-// OBSOLETE  */
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name of field */
-// OBSOLETE     dst_type_t type_desc;  /* type of field */
-// OBSOLETE     union
-// OBSOLETE       {
-// OBSOLETE    struct
-// OBSOLETE      {
-// OBSOLETE        dst_field_format_t format_tag:2;    /* dst_field_byte */
-// OBSOLETE        unsigned long offset:30;    /* offset of field in bytes */
-// OBSOLETE      }
-// OBSOLETE    field_byte ALIGNED1;
-// OBSOLETE    struct
-// OBSOLETE      {
-// OBSOLETE        dst_field_format_t format_tag:2;    /* dst_field_bit */
-// OBSOLETE        unsigned long nbits:6;      /* bit size of field */
-// OBSOLETE        unsigned long is_signed:1;  /* signed/unsigned attribute */
-// OBSOLETE        unsigned long bit_offset:3;         /* bit offset from byte boundary */
-// OBSOLETE        int pad:4;          /* must be zero */
-// OBSOLETE        unsigned short byte_offset;         /* offset of byte boundary */
-// OBSOLETE      }
-// OBSOLETE    field_bit ALIGNED1;
-// OBSOLETE    struct
-// OBSOLETE      {
-// OBSOLETE        dst_field_format_t format_tag:2;    /* dst_field_loc */
-// OBSOLETE        int loffset:30;     /* dst_rel_offset_t to loc string */
-// OBSOLETE      }
-// OBSOLETE    field_loc ALIGNED1;
-// OBSOLETE       }
-// OBSOLETE     f ALIGNED1;
-// OBSOLETE   }
-// OBSOLETE dst_field_t;
-// OBSOLETE 
-// OBSOLETE /* The field_loc.loffset field is a 30-bit signed value.  Some versions of C do
-// OBSOLETE    not support signed bit fields.  The following macro will extract that field
-// OBSOLETE    as a signed value:
-// OBSOLETE  */
-// OBSOLETE #define dst_field_loffset(field_rec) \
-// OBSOLETE     ( ((int) ((field_rec).f.field_loc.loffset << 2)) >> 2 )
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to record name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line where this record is defined */
-// OBSOLETE     unsigned short size;   /* storage size (bytes) */
-// OBSOLETE     unsigned short nfields;        /* number of fields in this record */
-// OBSOLETE     union
-// OBSOLETE       {
-// OBSOLETE    dst_field_t fields[dst_dummy_array_size];
-// OBSOLETE    dst_short_field_t sfields[dst_dummy_array_size];
-// OBSOLETE    dst_old_field_t ofields[dst_dummy_array_size];
-// OBSOLETE       }
-// OBSOLETE     f;                             /* array of fields */
-// OBSOLETE   }
-// OBSOLETE dst_rec_record_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-------------
-// OBSOLETE   FILE record
-// OBSOLETE   -------------
-// OBSOLETE   Describes a file type.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line where type was defined */
-// OBSOLETE     dst_type_t type_desc;  /* file element type */
-// OBSOLETE   }
-// OBSOLETE dst_rec_file_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*---------------
-// OBSOLETE   OFFSET record 
-// OBSOLETE   ---------------
-// OBSOLETE    Describes a Pascal offset type.
-// OBSOLETE    (This type, an undocumented Domain Pascal extension, is currently not
-// OBSOLETE    supported by the debugger)
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to the name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE     dst_type_t area_type_desc;     /* area type */
-// OBSOLETE     dst_type_t base_type_desc;     /* base type */
-// OBSOLETE     long lo_bound;         /* low bound of the offset range */
-// OBSOLETE     long hi_bound;         /* high bound of the offset range */
-// OBSOLETE     long bias;                     /* bias */
-// OBSOLETE     unsigned short scale;  /* scale factor */
-// OBSOLETE     unsigned short size;   /* storage size (bytes) */
-// OBSOLETE   }
-// OBSOLETE dst_rec_offset_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*--------------
-// OBSOLETE   ALIAS record 
-// OBSOLETE   --------------
-// OBSOLETE   Describes a type alias (e.g., typedef).
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE     dst_type_t type_desc;  /* parent type */
-// OBSOLETE   }
-// OBSOLETE dst_rec_alias_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*------------------
-// OBSOLETE   SIGNATURE record
-// OBSOLETE   ------------------
-// OBSOLETE   Describes a procedure/function type.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE /* Enumeration of argument semantics.  Note that most are mutually
-// OBSOLETE    exclusive.
-// OBSOLETE  */
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_arg_attr_val,              /* passed by value */
-// OBSOLETE     dst_arg_attr_ref,              /* passed by reference */
-// OBSOLETE     dst_arg_attr_name,             /* passed by name */
-// OBSOLETE     dst_arg_attr_in,               /* readable in the callee */
-// OBSOLETE     dst_arg_attr_out,              /* writable in the callee */
-// OBSOLETE     dst_arg_attr_hidden,   /* not visible in the caller */
-// OBSOLETE     dst_arg_attr_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_arg_attr_t;
-// OBSOLETE 
-// OBSOLETE /* Argument descriptor.  Actually points to a variable record for most of the
-// OBSOLETE    information.
-// OBSOLETE  */
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t var_offset;   /* offset to variable record */
-// OBSOLETE     unsigned short attributes;     /* a mask of dst_arg_attr_t flags */
-// OBSOLETE   }
-// OBSOLETE dst_arg_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of function definition */
-// OBSOLETE     dst_rel_offset_t result;       /* offset to function result variable record */
-// OBSOLETE     unsigned short nargs;  /* number of arguments */
-// OBSOLETE     dst_arg_t args[dst_dummy_array_size];
-// OBSOLETE   }
-// OBSOLETE dst_rec_signature_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /*--------------
-// OBSOLETE   SCOPE record
-// OBSOLETE   --------------
-// OBSOLETE   Obsolete. Use the new ENTRY type instead.
-// OBSOLETE   Old compilers may put this in as the first entry in a function,
-// OBSOLETE   terminated by an end of scope entry.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* Name offset */
-// OBSOLETE     dst_src_loc_t start_line;      /* Starting line */
-// OBSOLETE     dst_src_loc_t end_line;        /* Ending line */
-// OBSOLETE   }
-// OBSOLETE dst_rec_scope_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /*--------------
-// OBSOLETE   ENTRY record
-// OBSOLETE   --------------
-// OBSOLETE   Describes a procedure/function entry point.  An entry record is to a
-// OBSOLETE   signature record roughly as a variable record is to a type descriptor record.
-// OBSOLETE 
-// OBSOLETE   The entry_number field is keyed to the entry numbers in .lines -- the 
-// OBSOLETE   debugger locates the code location of an entry by searching the line
-// OBSOLETE   number table for an entry numbered with the value of entry_number.  The
-// OBSOLETE   main entry is numbered zero.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to entry name string */
-// OBSOLETE     dst_rel_offset_t loffset;      /* where to jump to call this entry */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE     dst_rel_offset_t sig_desc;     /* offset to signature descriptor */
-// OBSOLETE     unsigned int entry_number:8;
-// OBSOLETE     int pad:8;                     /* must be zero */
-// OBSOLETE   }
-// OBSOLETE dst_rec_entry_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /*-----------------------
-// OBSOLETE   Old format ENTRY record
-// OBSOLETE   -----------------------
-// OBSOLETE   Supposedly obsolete but still used by some compilers.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* Offset to entry name string */
-// OBSOLETE     dst_src_loc_t src_loc; /* Location in source */
-// OBSOLETE     dst_rel_offset_t sig_desc;     /* Signature description */
-// OBSOLETE     char unknown[36];
-// OBSOLETE   }
-// OBSOLETE dst_rec_old_entry_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE /*--------------
-// OBSOLETE   LABEL record 
-// OBSOLETE   --------------
-// OBSOLETE   Describes a program label.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t noffset;      /* offset to label string */
-// OBSOLETE     dst_rel_offset_t loffset;      /* offset to loc string */
-// OBSOLETE     dst_src_loc_t src_loc; /* file/line of definition */
-// OBSOLETE   }
-// OBSOLETE dst_rec_label_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------
-// OBSOLETE   AUXILIARY SIZE record
-// OBSOLETE   -----------------------
-// OBSOLETE   May appear in the auxiliary record list of any type or variable record to
-// OBSOLETE   modify the default size of the type or variable.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned long size;            /* size (bytes) */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_size_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------
-// OBSOLETE   AUXILIARY ALIGN record
-// OBSOLETE   -----------------------
-// OBSOLETE   May appear in the auxiliary record list of any type or variable record to
-// OBSOLETE   modify the default alignment of the type or variable.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short alignment;      /* # of low order zero bits */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_align_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------------
-// OBSOLETE   AUXILIARY FIELD SIZE record
-// OBSOLETE   -----------------------------
-// OBSOLETE   May appear in the auxiliary record list of any RECORD/UNION record to 
-// OBSOLETE   modify the default size of a field.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short field_no;       /* field number */
-// OBSOLETE     unsigned long size;            /* size (bits) */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_field_size_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------------
-// OBSOLETE   AUXILIARY FIELD OFFSET record
-// OBSOLETE   -----------------------------
-// OBSOLETE   May appear in the auxiliary record list of any RECORD/UNION record to 
-// OBSOLETE   specify a field offset larger than 2**16.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short field_no;       /* field number */
-// OBSOLETE     unsigned long foffset; /* offset */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_field_off_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------------
-// OBSOLETE   AUXILIARY FIELD ALIGN record
-// OBSOLETE   -----------------------------
-// OBSOLETE   May appear in the auxiliary record list of any RECORD/UNION record to 
-// OBSOLETE   modify the default alignment of a field.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short field_no;       /* field number */
-// OBSOLETE     unsigned short alignment;      /* number of low order zero bits */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_field_align_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*----------------------------
-// OBSOLETE   AUXILIARY VAR BOUND record
-// OBSOLETE   ----------------------------
-// OBSOLETE   May appear in the auxiliary record list of any ARRAY, SUBRANGE or STRING
-// OBSOLETE   record to describe a variable bound for the range of the type.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_low_bound,         /* the low bound is variable */
-// OBSOLETE     dst_high_bound,                /* the high bound is variable */
-// OBSOLETE     dst_var_bound_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_var_bound_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short which;  /* which bound */
-// OBSOLETE     dst_rel_offset_t voffset ALIGNED1;     /* variable that defines bound */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_var_bound_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*----------------------------------
-// OBSOLETE   AUXILIARY TYPE DERIVATION record 
-// OBSOLETE   ----------------------------------
-// OBSOLETE   May appear in the auxiliary record list of any RECORD/UNION record to denote
-// OBSOLETE   class inheritance of that type from a parent type.
-// OBSOLETE 
-// OBSOLETE   Inheritance implies that it is possible to convert the inheritor type to the
-// OBSOLETE   inherited type, retaining those fields which were inherited.  To allow this,
-// OBSOLETE   orig_field_no, a field number into the record type, is provided.  If 
-// OBSOLETE   orig_is_pointer is false, then the start of the inherited record is located
-// OBSOLETE   at the location of the field indexed by orig_field_no.  If orig_is_pointer
-// OBSOLETE   is true, then it is located at the address contained in the field indexed
-// OBSOLETE   by orig_field_no (assumed to be a pointer).
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_type_t parent_type;        /* reference to inherited type */
-// OBSOLETE     unsigned short orig_field_no;
-// OBSOLETE     boolean orig_is_pointer:1;
-// OBSOLETE     int unused:15;         /* must be zero */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_type_deriv_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*------------------------------------
-// OBSOLETE   AUXILIARY VARIABLE LIFETIME record
-// OBSOLETE   ------------------------------------
-// OBSOLETE   May appear in the auxiliary record list of a VARIABLE record to add location
-// OBSOLETE   information for an additional variable lifetime.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t loffset;
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_lifetime_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-------------------------------
-// OBSOLETE   AUXILIARY POINTER BASE record 
-// OBSOLETE   -------------------------------
-// OBSOLETE   May appear in the auxiliary record list of a VARIABLE record to provide a
-// OBSOLETE   pointer base to substitute for references to any such bases in the location
-// OBSOLETE   string of the variable.  A pointer base is another VARIABLE record.  When
-// OBSOLETE   the variable is evaluated by the debugger, it uses the current value of the
-// OBSOLETE   pointer base variable in computing its location.
-// OBSOLETE 
-// OBSOLETE   This is useful for representing FORTRAN pointer-based variables.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t voffset;
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_ptr_base_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*---------------------------------
-// OBSOLETE   AUXILIARY REGISTER VALUE record 
-// OBSOLETE   ---------------------------------
-// OBSOLETE   May appear in the auxiliary record list of an ENTRY record to specify
-// OBSOLETE   a register that must be set to a specific value before jumping to the entry
-// OBSOLETE   point in a debugger "call".  The debugger must set the debuggee register,
-// OBSOLETE   specified by the register code, to the value of the *address* to which the
-// OBSOLETE   location string resolves.  If the address is register-relative, then the
-// OBSOLETE   call cannot be made unless the current stack frame is the lexical parent
-// OBSOLETE   of the entry.  An example of this is when a (Pascal) nested procedure
-// OBSOLETE   contains references to its parent's variables, which it accesses through
-// OBSOLETE   a static link register.  The static link register must be set to some
-// OBSOLETE   address relative to the parent's stack base register.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short reg;            /* identifies register to set (isp enum) */
-// OBSOLETE     dst_rel_offset_t loffset;      /* references a location string */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_reg_val_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*==========================================================*/
-// OBSOLETE /*========== RECORDS USED IN .blocks AND .symbols ==========*/
-// OBSOLETE /*==========================================================*/
-// OBSOLETE 
-// OBSOLETE /*---------------------
-// OBSOLETE   STRING TABLE record
-// OBSOLETE   ---------------------
-// OBSOLETE   A string table record contains any number of null-terminated, variable length
-// OBSOLETE   strings.   The length field gives the size in bytes of the text field, which
-// OBSOLETE   can be any size.
-// OBSOLETE 
-// OBSOLETE   The global name table shares this format.  This record appears in the
-// OBSOLETE   .blocks section.  Each string in the table identifies a global defined in
-// OBSOLETE   the current compilation unit.
-// OBSOLETE 
-// OBSOLETE   The loc pool record shares this format as well.  Loc strings are described
-// OBSOLETE   elsewhere.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned long length;
-// OBSOLETE     char text[dst_dummy_array_size];
-// OBSOLETE   }
-// OBSOLETE dst_rec_string_tab_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-----------------------
-// OBSOLETE   AUXILIARY QUAL record 
-// OBSOLETE   -----------------------
-// OBSOLETE   May appear in the auxiliary record list of any BLOCK, VARIABLE, or type record
-// OBSOLETE   to provide it with a fully-qualified, language-dependent name.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t lang_qual_name;
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_qual_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*----------------
-// OBSOLETE   FORWARD record
-// OBSOLETE   ----------------
-// OBSOLETE   Reference to a record somewhere else.  This allows identical definitions in
-// OBSOLETE   different scopes to share data.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rel_offset_t rec_off;
-// OBSOLETE   }
-// OBSOLETE dst_rec_forward_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*-------------------------------
-// OBSOLETE   AUXILIARY SOURCE RANGE record
-// OBSOLETE   -------------------------------
-// OBSOLETE   May appear in the auxiliary record list of any BLOCK record to specify a
-// OBSOLETE   range of source lines over which the block is active.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_src_loc_t first_line;      /* first source line */
-// OBSOLETE     dst_src_loc_t last_line;       /* last source line */
-// OBSOLETE   }
-// OBSOLETE dst_rec_aux_src_range_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*------------------
-// OBSOLETE   EXTENSION record 
-// OBSOLETE   ------------------
-// OBSOLETE   Provision for "foreign" records, such as might be generated by a non-Apollo
-// OBSOLETE   compiler.  Apollo software will ignore these.
-// OBSOLETE */
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     unsigned short rec_size;       /* record size (bytes) */
-// OBSOLETE     unsigned short ext_type;       /* defined by whoever generates it */
-// OBSOLETE     unsigned short ext_data;       /* place-holder for arbitrary amount of data */
-// OBSOLETE   }
-// OBSOLETE dst_rec_extension_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    ** DEBUG SYMBOL record -- The wrapper for all .blocks and .symbols records.
-// OBSOLETE    **
-// OBSOLETE    ** This record ties together all previous .blocks and .symbols records 
-// OBSOLETE    ** together in a union with a common header.  The rec_type field of the
-// OBSOLETE    ** header identifies the record type.  The rec_flags field currently only
-// OBSOLETE    ** defines auxiliary record lists. 
-// OBSOLETE    **
-// OBSOLETE    ** If a record carries with it a non-null auxiliary record list, its
-// OBSOLETE    ** dst_flag_has_aux_recs flag is set, and each of the records that follow
-// OBSOLETE    ** it are treated as its auxiliary records, until the end of the compilation
-// OBSOLETE    ** unit or scope is reached, or until an auxiliary record with its
-// OBSOLETE    ** dst_flag_last_aux_rec flag set is reached.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_flag_has_aux_recs,
-// OBSOLETE     dst_flag_last_aux_rec,
-// OBSOLETE     dst_rec_flag_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_rec_flags_t;
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     dst_rec_type_t rec_type:8;     /* record type */
-// OBSOLETE     int rec_flags:8;               /* mask of dst_rec_flags_t */
-// OBSOLETE     union                  /* switched on rec_type field above */
-// OBSOLETE       {
-// OBSOLETE    /* dst_typ_pad requires no additional fields */
-// OBSOLETE    dst_rec_comp_unit_t comp_unit_;
-// OBSOLETE    dst_rec_section_tab_t section_tab_;
-// OBSOLETE    dst_rec_file_tab_t file_tab_;
-// OBSOLETE    dst_rec_block_t block_;
-// OBSOLETE    dst_rec_var_t var_;
-// OBSOLETE    dst_rec_pointer_t pointer_;
-// OBSOLETE    dst_rec_array_t array_;
-// OBSOLETE    dst_rec_subrange_t subrange_;
-// OBSOLETE    dst_rec_set_t set_;
-// OBSOLETE    dst_rec_implicit_enum_t implicit_enum_;
-// OBSOLETE    dst_rec_explicit_enum_t explicit_enum_;
-// OBSOLETE    /* dst_typ_short_{rec,union} are represented by 'rec' (below) */
-// OBSOLETE    dst_rec_file_t file_;
-// OBSOLETE    dst_rec_offset_t offset_;
-// OBSOLETE    dst_rec_alias_t alias_;
-// OBSOLETE    dst_rec_signature_t signature_;
-// OBSOLETE    dst_rec_old_label_t old_label_;
-// OBSOLETE    dst_rec_scope_t scope_;
-// OBSOLETE    /* dst_typ_end_scope requires no additional fields */
-// OBSOLETE    dst_rec_string_tab_t string_tab_;
-// OBSOLETE    /* dst_typ_global_name_tab is represented by 'string_tab' (above) */
-// OBSOLETE    dst_rec_forward_t forward_;
-// OBSOLETE    dst_rec_aux_size_t aux_size_;
-// OBSOLETE    dst_rec_aux_align_t aux_align_;
-// OBSOLETE    dst_rec_aux_field_size_t aux_field_size_;
-// OBSOLETE    dst_rec_aux_field_off_t aux_field_off_;
-// OBSOLETE    dst_rec_aux_field_align_t aux_field_align_;
-// OBSOLETE    dst_rec_aux_qual_t aux_qual_;
-// OBSOLETE    dst_rec_aux_var_bound_t aux_var_bound_;
-// OBSOLETE    dst_rec_extension_t extension_;
-// OBSOLETE    dst_rec_string_t string_;
-// OBSOLETE    dst_rec_const_t const_;
-// OBSOLETE    /* dst_typ_reference is represented by 'pointer' (above) */
-// OBSOLETE    dst_rec_record_t record_;
-// OBSOLETE    /* dst_typ_union is represented by 'record' (above) */
-// OBSOLETE    dst_rec_aux_type_deriv_t aux_type_deriv_;
-// OBSOLETE    /* dst_typ_locpool is represented by 'string_tab' (above) */
-// OBSOLETE    dst_rec_variable_t variable_;
-// OBSOLETE    dst_rec_label_t label_;
-// OBSOLETE    dst_rec_entry_t entry_;
-// OBSOLETE    dst_rec_aux_lifetime_t aux_lifetime_;
-// OBSOLETE    dst_rec_aux_ptr_base_t aux_ptr_base_;
-// OBSOLETE    dst_rec_aux_src_range_t aux_src_range_;
-// OBSOLETE    dst_rec_aux_reg_val_t aux_reg_val_;
-// OBSOLETE    dst_rec_name_tab_t aux_unit_names_;
-// OBSOLETE    dst_rec_sect_info_tab_t aux_sect_info_;
-// OBSOLETE       }
-// OBSOLETE     rec_data ALIGNED1;
-// OBSOLETE   }
-// OBSOLETE dst_rec_t, *dst_rec_ptr_t;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*===============================================*/
-// OBSOLETE /*========== .lines SECTION DEFINITIONS =========*/
-// OBSOLETE /*===============================================*/
-// OBSOLETE /*
-// OBSOLETE    The .lines section contains a sequence of line number tables.  There is no
-// OBSOLETE    record structure within the section.  The start of the table for a routine
-// OBSOLETE    is pointed to by the block record, and the end of the table is signaled by
-// OBSOLETE    an escape code.
-// OBSOLETE 
-// OBSOLETE    A line number table is a sequence of bytes.  The default entry contains a line
-// OBSOLETE    number delta (-7..+7) in the high 4 bits and a pc delta (0..15) in the low 4 
-// OBSOLETE    bits. Special cases, including when one or both of the values is too large
-// OBSOLETE    to fit in 4 bits and other special cases are handled through escape entries.
-// OBSOLETE    Escape entries are identified by the value 0x8 in the high 4 bits.  The low 4
-// OBSOLETE    bits are occupied by a function code.  Some escape entries are followed by
-// OBSOLETE    additional arguments, which may be bytes, words, or longwords.  This data is
-// OBSOLETE    not aligned. 
-// OBSOLETE 
-// OBSOLETE    The initial PC offset, file number and line number are zero.  Normally, the
-// OBSOLETE    table begins with a dst_ln_file escape which establishes the initial file
-// OBSOLETE    and line number.  All PC deltas are unsigned (thus the table is ordered by
-// OBSOLETE    increasing PC); line number deltas are signed.  The table ends with a 
-// OBSOLETE    dst_ln_end escape, which is followed by a final table entry whose PC delta
-// OBSOLETE    gives the code size of the last statement.
-// OBSOLETE 
-// OBSOLETE    Escape     Semantic
-// OBSOLETE    ---------  ------------------------------------------------------------
-// OBSOLETE    file       Changes file state.  The current source file remains constant
-// OBSOLETE    until another file escape.  Though the line number state is
-// OBSOLETE    also updated by a file escape, a file escape does NOT 
-// OBSOLETE    constitute a line table entry.
-// OBSOLETE 
-// OBSOLETE    statement  Alters the statement number of the next table entry.  By 
-// OBSOLETE    default, all table entries refer to the first statement on a
-// OBSOLETE    line.  Statement number one is the second statement, and so on.
-// OBSOLETE 
-// OBSOLETE    entry      Identifies the next table entry as the position of an entry 
-// OBSOLETE    point for the current block.  The PC position should follow 
-// OBSOLETE    any procedure prologue code.  An argument specifies the entry
-// OBSOLETE    number, which is keyed to the entry number of the corresponding
-// OBSOLETE    .symbols ENTRY record.
-// OBSOLETE 
-// OBSOLETE    exit       Identifies the next table entry as the last position within 
-// OBSOLETE    the current block before a procedure epiloge and subsequent
-// OBSOLETE    procedure exit.
-// OBSOLETE 
-// OBSOLETE    gap        By default, the executable code corresponding to a table entry 
-// OBSOLETE    is assumed to extend to the beginning of the next table entry.
-// OBSOLETE    If this is not the case--there is a "hole" in the table--then
-// OBSOLETE    a gap escape should follow the first table entry to specify
-// OBSOLETE    where the code for that entry ends.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE #define dst_ln_escape_flag    -8
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    Escape function codes:
-// OBSOLETE  */
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_ln_pad,                    /* pad byte */
-// OBSOLETE     dst_ln_file,           /* file escape.  Next 4 bytes are a dst_src_loc_t */
-// OBSOLETE     dst_ln_dln1_dpc1,              /* 1 byte line delta, 1 byte pc delta */
-// OBSOLETE     dst_ln_dln2_dpc2,              /* 2 bytes line delta, 2 bytes pc delta */
-// OBSOLETE     dst_ln_ln4_pc4,                /* 4 bytes ABSOLUTE line number, 4 bytes ABSOLUTE pc */
-// OBSOLETE     dst_ln_dln1_dpc0,              /* 1 byte line delta, pc delta = 0 */
-// OBSOLETE     dst_ln_ln_off_1,               /* statement escape, stmt # = 1 (2nd stmt on line) */
-// OBSOLETE     dst_ln_ln_off,         /* statement escape, stmt # = next byte */
-// OBSOLETE     dst_ln_entry,          /* entry escape, next byte is entry number */
-// OBSOLETE     dst_ln_exit,           /* exit escape */
-// OBSOLETE     dst_ln_stmt_end,               /* gap escape, 4 bytes pc delta */
-// OBSOLETE     dst_ln_escape_11,              /* reserved */
-// OBSOLETE     dst_ln_escape_12,              /* reserved */
-// OBSOLETE     dst_ln_escape_13,              /* reserved */
-// OBSOLETE     dst_ln_nxt_byte,               /* next byte contains the real escape code */
-// OBSOLETE     dst_ln_end,                    /* end escape, final entry follows */
-// OBSOLETE     dst_ln_escape_END_OF_ENUM
-// OBSOLETE   }
-// OBSOLETE dst_ln_escape_t;
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    Line number table entry
-// OBSOLETE  */
-// OBSOLETE typedef union
-// OBSOLETE   {
-// OBSOLETE     struct
-// OBSOLETE       {
-// OBSOLETE    unsigned int ln_delta:4;        /* 4 bit line number delta */
-// OBSOLETE    unsigned int pc_delta:4;        /* 4 bit pc delta */
-// OBSOLETE       }
-// OBSOLETE     delta;
-// OBSOLETE 
-// OBSOLETE     struct
-// OBSOLETE       {
-// OBSOLETE    unsigned int esc_flag:4;        /* alias for ln_delta */
-// OBSOLETE    dst_ln_escape_t esc_code:4;     /* escape function code */
-// OBSOLETE       }
-// OBSOLETE     esc;
-// OBSOLETE 
-// OBSOLETE     char sdata;                    /* signed data byte */
-// OBSOLETE     unsigned char udata;   /* unsigned data byte */
-// OBSOLETE   }
-// OBSOLETE dst_ln_entry_t,
-// OBSOLETE  *dst_ln_entry_ptr_t,
-// OBSOLETE   dst_ln_table_t[dst_dummy_array_size];
-// OBSOLETE 
-// OBSOLETE /* The following macro will extract the ln_delta field as a signed value:
-// OBSOLETE  */
-// OBSOLETE #define dst_ln_ln_delta(ln_rec) \
-// OBSOLETE     ( ((short) ((ln_rec).delta.ln_delta << 12)) >> 12 )
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE typedef struct dst_sec_struct
-// OBSOLETE   {
-// OBSOLETE     char *buffer;
-// OBSOLETE     long position;
-// OBSOLETE     long size;
-// OBSOLETE     long base;
-// OBSOLETE   }
-// OBSOLETE dst_sec;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Macros for access to the data */
-// OBSOLETE 
-// OBSOLETE #define DST_comp_unit(x)   ((x)->rec_data.comp_unit_)
-// OBSOLETE #define DST_section_tab(x)         ((x)->rec_data.section_tab_)
-// OBSOLETE #define DST_file_tab(x)    ((x)->rec_data.file_tab_)
-// OBSOLETE #define DST_block(x)               ((x)->rec_data.block_)
-// OBSOLETE #define    DST_var(x)              ((x)->rec_data.var_)
-// OBSOLETE #define DST_pointer(x)             ((x)->rec_data.pointer_)
-// OBSOLETE #define DST_array(x)               ((x)->rec_data.array_)
-// OBSOLETE #define DST_subrange(x)    ((x)->rec_data.subrange_)
-// OBSOLETE #define DST_set(x)         ((x)->rec_data.set_)
-// OBSOLETE #define DST_implicit_enum(x)       ((x)->rec_data.implicit_enum_)
-// OBSOLETE #define DST_explicit_enum(x)       ((x)->rec_data.explicit_enum_)
-// OBSOLETE #define DST_short_rec(x)   ((x)->rec_data.record_)
-// OBSOLETE #define DST_short_union(x)         ((x)->rec_data.record_)
-// OBSOLETE #define DST_file(x)                ((x)->rec_data.file_)
-// OBSOLETE #define DST_offset(x)              ((x)->rec_data.offset_)
-// OBSOLETE #define DST_alias(x)               ((x)->rec_data.alias_)
-// OBSOLETE #define DST_signature(x)   ((x)->rec_data.signature_)
-// OBSOLETE #define DST_old_label(x)   ((x)->rec_data.old_label_)
-// OBSOLETE #define DST_scope(x)               ((x)->rec_data.scope_)
-// OBSOLETE #define DST_string_tab(x)  ((x)->rec_data.string_tab_)
-// OBSOLETE #define DST_global_name_tab(x)     ((x)->rec_data.string_tab_)
-// OBSOLETE #define DST_forward(x)             ((x)->rec_data.forward_)
-// OBSOLETE #define DST_aux_size(x)    ((x)->rec_data.aux_size_)
-// OBSOLETE #define DST_aux_align(x)   ((x)->rec_data.aux_align_)
-// OBSOLETE #define DST_aux_field_size(x)      ((x)->rec_data.aux_field_size_)
-// OBSOLETE #define DST_aux_field_off(x)       ((x)->rec_data.aux_field_off_)
-// OBSOLETE #define DST_aux_field_align(x)     ((x)->rec_data.aux_field_align_)
-// OBSOLETE #define DST_aux_qual(x)    ((x)->rec_data.aux_qual_)
-// OBSOLETE #define DST_aux_var_bound(x)       ((x)->rec_data.aux_var_bound_)
-// OBSOLETE #define DST_extension(x)   ((x)->rec_data.extension_)
-// OBSOLETE #define DST_string(x)              ((x)->rec_data.string_)
-// OBSOLETE #define DST_const(x)               ((x)->rec_data.const_)
-// OBSOLETE #define DST_reference(x)   ((x)->rec_data.pointer_)
-// OBSOLETE #define DST_record(x)              ((x)->rec_data.record_)
-// OBSOLETE #define DST_union(x)               ((x)->rec_data.record_)
-// OBSOLETE #define DST_aux_type_deriv(x)      ((x)->rec_data.aux_type_deriv_)
-// OBSOLETE #define DST_locpool(x)             ((x)->rec_data.string_tab_)
-// OBSOLETE #define DST_variable(x)    ((x)->rec_data.variable_)
-// OBSOLETE #define DST_label(x)               ((x)->rec_data.label_)
-// OBSOLETE #define DST_entry(x)               ((x)->rec_data.entry_)
-// OBSOLETE #define DST_aux_lifetime(x)        ((x)->rec_data.aux_lifetime_)
-// OBSOLETE #define DST_aux_ptr_base(x)        ((x)->rec_data.aux_ptr_base_)
-// OBSOLETE #define DST_aux_src_range(x)       ((x)->rec_data.aux_src_range_)
-// OBSOLETE #define DST_aux_reg_val(x)         ((x)->rec_data.aux_reg_val_)
-// OBSOLETE #define DST_aux_unit_names(x)      ((x)->rec_data.aux_unit_names_)
-// OBSOLETE #define DST_aux_sect_info(x)       ((x)->rec_data.aux_sect_info_)
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Type codes for loc strings. I'm not entirely certain about all of
-// OBSOLETE  * these, but they seem to work.
-// OBSOLETE  *                              troy@cbme.unsw.EDU.AU
-// OBSOLETE  * If you find a variable whose location can't be decoded, you should
-// OBSOLETE  * find out it's code using "dstdump -s filename". It will record an
-// OBSOLETE  * entry for the variable, and give a text representation of what
-// OBSOLETE  * the locstring means. Before that explaination there will be a
-// OBSOLETE  * number. In the LOCSTRING table, that number will appear before
-// OBSOLETE  * the start of the location string. Location string codes are
-// OBSOLETE  * five bit codes with a 3 bit argument. Check the high 5 bits of
-// OBSOLETE  * the one byte code, and figure out where it goes in here.
-// OBSOLETE  * Then figure out exactly what the meaning is and code it in
-// OBSOLETE  * dstread.c
-// OBSOLETE  *
-// OBSOLETE  * Note that ranged locs mean that the variable is in different locations
-// OBSOLETE  * depending on the current PC. We ignore these because (a) gcc can't handle
-// OBSOLETE  * them, and (b), If you don't use high levels of optimisation they won't
-// OBSOLETE  * occur.
-// OBSOLETE  */
-// OBSOLETE typedef enum
-// OBSOLETE   {
-// OBSOLETE     dst_lsc_end,           /* End of string */
-// OBSOLETE     dst_lsc_indirect,              /* Indirect through previous. Arg == 6 */
-// OBSOLETE     /* Or register ax (x=arg) */
-// OBSOLETE     dst_lsc_dreg,          /* register dx (x=arg) */
-// OBSOLETE     dst_lsc_03,
-// OBSOLETE     dst_lsc_section,               /* Section (arg+1) */
-// OBSOLETE     dst_lsc_05,
-// OBSOLETE     dst_lsc_06,
-// OBSOLETE     dst_lsc_add,           /* Add (arg+1)*2 */
-// OBSOLETE     dst_lsc_sub,           /* Subtract (arg+1)*2 */
-// OBSOLETE     dst_lsc_09,
-// OBSOLETE     dst_lsc_0a,
-// OBSOLETE     dst_lsc_sec_byte,              /* Section of next byte+1 */
-// OBSOLETE     dst_lsc_add_byte,              /* Add next byte (arg == 5) or next word
-// OBSOLETE                             * (arg == 6)
-// OBSOLETE                             */
-// OBSOLETE     dst_lsc_sub_byte,              /* Subtract next byte. (arg == 1) or next
-// OBSOLETE                             * word (arg == 6 ?)
-// OBSOLETE                             */
-// OBSOLETE     dst_lsc_sbreg,         /* Stack base register (frame pointer). Arg==0 */
-// OBSOLETE     dst_lsc_0f,
-// OBSOLETE     dst_lsc_ranged,                /* location is pc dependent */
-// OBSOLETE     dst_lsc_11,
-// OBSOLETE     dst_lsc_12,
-// OBSOLETE     dst_lsc_13,
-// OBSOLETE     dst_lsc_14,
-// OBSOLETE     dst_lsc_15,
-// OBSOLETE     dst_lsc_16,
-// OBSOLETE     dst_lsc_17,
-// OBSOLETE     dst_lsc_18,
-// OBSOLETE     dst_lsc_19,
-// OBSOLETE     dst_lsc_1a,
-// OBSOLETE     dst_lsc_1b,
-// OBSOLETE     dst_lsc_1c,
-// OBSOLETE     dst_lsc_1d,
-// OBSOLETE     dst_lsc_1e,
-// OBSOLETE     dst_lsc_1f
-// OBSOLETE   }
-// OBSOLETE dst_loc_string_code_t;
-// OBSOLETE 
-// OBSOLETE /* If the following occurs after an addition/subtraction, that addition
-// OBSOLETE  * or subtraction should be multiplied by 256. It's a complete byte, not
-// OBSOLETE  * a code.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE #define    dst_multiply_256        ((char) 0x73)
-// OBSOLETE 
-// OBSOLETE typedef struct
-// OBSOLETE   {
-// OBSOLETE     char code:5;
-// OBSOLETE     char arg:3;
-// OBSOLETE   }
-// OBSOLETE dst_loc_header_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE typedef union
-// OBSOLETE   {
-// OBSOLETE     dst_loc_header_t header;
-// OBSOLETE     char data;
-// OBSOLETE   }
-// OBSOLETE dst_loc_entry_t ALIGNED1;
-// OBSOLETE 
-// OBSOLETE #undef ALIGNED1
-// OBSOLETE #endif /* apollo_dst_h */
diff --git a/gdb/dstread.c b/gdb/dstread.c
deleted file mode 100644 (file)
index 8692c98..0000000
+++ /dev/null
@@ -1,1598 +0,0 @@
-// OBSOLETE /* Read apollo DST symbol tables and convert to internal format, for GDB.
-// OBSOLETE    Contributed by Troy Rollo, University of NSW (troy@cbme.unsw.edu.au).
-// OBSOLETE    Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE \f
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "gdbtypes.h"
-// OBSOLETE #include "breakpoint.h"
-// OBSOLETE #include "bfd.h"
-// OBSOLETE #include "symfile.h"
-// OBSOLETE #include "objfiles.h"
-// OBSOLETE #include "buildsym.h"
-// OBSOLETE #include "gdb_obstack.h"
-// OBSOLETE 
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE 
-// OBSOLETE #include "dst.h"
-// OBSOLETE 
-// OBSOLETE CORE_ADDR cur_src_start_addr, cur_src_end_addr;
-// OBSOLETE dst_sec blocks_info, lines_info, symbols_info;
-// OBSOLETE 
-// OBSOLETE /* Vector of line number information.  */
-// OBSOLETE 
-// OBSOLETE static struct linetable *line_vector;
-// OBSOLETE 
-// OBSOLETE /* Index of next entry to go in line_vector_index.  */
-// OBSOLETE 
-// OBSOLETE static int line_vector_index;
-// OBSOLETE 
-// OBSOLETE /* Last line number recorded in the line vector.  */
-// OBSOLETE 
-// OBSOLETE static int prev_line_number;
-// OBSOLETE 
-// OBSOLETE /* Number of elements allocated for line_vector currently.  */
-// OBSOLETE 
-// OBSOLETE static int line_vector_length;
-// OBSOLETE 
-// OBSOLETE static int init_dst_sections (int);
-// OBSOLETE 
-// OBSOLETE static void read_dst_symtab (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void find_dst_sections (bfd *, sec_ptr, PTR);
-// OBSOLETE 
-// OBSOLETE static void dst_symfile_init (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void dst_new_init (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void dst_symfile_read (struct objfile *, int);
-// OBSOLETE 
-// OBSOLETE static void dst_symfile_finish (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void dst_end_symtab (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void complete_symtab (char *, CORE_ADDR, unsigned int);
-// OBSOLETE 
-// OBSOLETE static void dst_start_symtab (void);
-// OBSOLETE 
-// OBSOLETE static void dst_record_line (int, CORE_ADDR);
-// OBSOLETE 
-// OBSOLETE /* Manage the vector of line numbers.  */
-// OBSOLETE /* FIXME: Use record_line instead.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE dst_record_line (int line, CORE_ADDR pc)
-// OBSOLETE {
-// OBSOLETE   struct linetable_entry *e;
-// OBSOLETE   /* Make sure line vector is big enough.  */
-// OBSOLETE 
-// OBSOLETE   if (line_vector_index + 2 >= line_vector_length)
-// OBSOLETE     {
-// OBSOLETE       line_vector_length *= 2;
-// OBSOLETE       line_vector = (struct linetable *)
-// OBSOLETE    xrealloc ((char *) line_vector, sizeof (struct linetable)
-// OBSOLETE              + (line_vector_length
-// OBSOLETE                 * sizeof (struct linetable_entry)));
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   e = line_vector->item + line_vector_index++;
-// OBSOLETE   e->line = line;
-// OBSOLETE   e->pc = pc;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Start a new symtab for a new source file.
-// OBSOLETE    It indicates the start of data for one original source file.  */
-// OBSOLETE /* FIXME: use start_symtab, like coffread.c now does.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE dst_start_symtab (void)
-// OBSOLETE {
-// OBSOLETE   /* Initialize the source file line number information for this file.  */
-// OBSOLETE 
-// OBSOLETE   if (line_vector)         /* Unlikely, but maybe possible? */
-// OBSOLETE     xfree (line_vector);
-// OBSOLETE   line_vector_index = 0;
-// OBSOLETE   line_vector_length = 1000;
-// OBSOLETE   prev_line_number = -2;   /* Force first line number to be explicit */
-// OBSOLETE   line_vector = (struct linetable *)
-// OBSOLETE     xmalloc (sizeof (struct linetable)
-// OBSOLETE         + line_vector_length * sizeof (struct linetable_entry));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Save the vital information from when starting to read a file,
-// OBSOLETE    for use when closing off the current file.
-// OBSOLETE    NAME is the file name the symbols came from, START_ADDR is the first
-// OBSOLETE    text address for the file, and SIZE is the number of bytes of text.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE complete_symtab (char *name, CORE_ADDR start_addr, unsigned int size)
-// OBSOLETE {
-// OBSOLETE   last_source_file = savestring (name, strlen (name));
-// OBSOLETE   cur_src_start_addr = start_addr;
-// OBSOLETE   cur_src_end_addr = start_addr + size;
-// OBSOLETE 
-// OBSOLETE   if (current_objfile->ei.entry_point >= cur_src_start_addr &&
-// OBSOLETE       current_objfile->ei.entry_point < cur_src_end_addr)
-// OBSOLETE     {
-// OBSOLETE       current_objfile->ei.entry_file_lowpc = cur_src_start_addr;
-// OBSOLETE       current_objfile->ei.entry_file_highpc = cur_src_end_addr;
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Finish the symbol definitions for one main source file,
-// OBSOLETE    close off all the lexical contexts for that file
-// OBSOLETE    (creating struct block's for them), then make the
-// OBSOLETE    struct symtab for that file and put it in the list of all such. */
-// OBSOLETE /* FIXME: Use end_symtab, like coffread.c now does.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE dst_end_symtab (struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   register struct symtab *symtab;
-// OBSOLETE   register struct blockvector *blockvector;
-// OBSOLETE   register struct linetable *lv;
-// OBSOLETE 
-// OBSOLETE   /* Create the blockvector that points to all the file's blocks.  */
-// OBSOLETE 
-// OBSOLETE   blockvector = make_blockvector (objfile);
-// OBSOLETE 
-// OBSOLETE   /* Now create the symtab object for this source file.  */
-// OBSOLETE   symtab = allocate_symtab (last_source_file, objfile);
-// OBSOLETE 
-// OBSOLETE   /* Fill in its components.  */
-// OBSOLETE   symtab->blockvector = blockvector;
-// OBSOLETE   symtab->free_code = free_linetable;
-// OBSOLETE   symtab->free_ptr = 0;
-// OBSOLETE   symtab->filename = last_source_file;
-// OBSOLETE   symtab->dirname = NULL;
-// OBSOLETE   symtab->debugformat = obsavestring ("Apollo DST", 10,
-// OBSOLETE                                  &objfile->symbol_obstack);
-// OBSOLETE   lv = line_vector;
-// OBSOLETE   lv->nitems = line_vector_index;
-// OBSOLETE   symtab->linetable = (struct linetable *)
-// OBSOLETE     xrealloc ((char *) lv, (sizeof (struct linetable)
-// OBSOLETE                        + lv->nitems * sizeof (struct linetable_entry)));
-// OBSOLETE 
-// OBSOLETE   free_named_symtabs (symtab->filename);
-// OBSOLETE 
-// OBSOLETE   /* Reinitialize for beginning of new file. */
-// OBSOLETE   line_vector = 0;
-// OBSOLETE   line_vector_length = -1;
-// OBSOLETE   last_source_file = NULL;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* dst_symfile_init ()
-// OBSOLETE    is the dst-specific initialization routine for reading symbols.
-// OBSOLETE 
-// OBSOLETE    We will only be called if this is a DST or DST-like file.
-// OBSOLETE    BFD handles figuring out the format of the file, and code in symtab.c
-// OBSOLETE    uses BFD's determination to vector to us.
-// OBSOLETE 
-// OBSOLETE    The ultimate result is a new symtab (or, FIXME, eventually a psymtab).  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE dst_symfile_init (struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   asection *section;
-// OBSOLETE   bfd *abfd = objfile->obfd;
-// OBSOLETE 
-// OBSOLETE   init_entry_point_info (objfile);
-// OBSOLETE 
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* This function is called for every section; it finds the outer limits
-// OBSOLETE    of the line table (minimum and maximum file offset) so that the
-// OBSOLETE    mainline code can read the whole thing for efficiency.  */
-// OBSOLETE 
-// OBSOLETE /* ARGSUSED */
-// OBSOLETE static void
-// OBSOLETE find_dst_sections (bfd *abfd, sec_ptr asect, PTR vpinfo)
-// OBSOLETE {
-// OBSOLETE   int size, count;
-// OBSOLETE   long base;
-// OBSOLETE   file_ptr offset, maxoff;
-// OBSOLETE   dst_sec *section;
-// OBSOLETE 
-// OBSOLETE /* WARNING WILL ROBINSON!  ACCESSING BFD-PRIVATE DATA HERE!  FIXME!  */
-// OBSOLETE   size = asect->_raw_size;
-// OBSOLETE   offset = asect->filepos;
-// OBSOLETE   base = asect->vma;
-// OBSOLETE /* End of warning */
-// OBSOLETE 
-// OBSOLETE   section = NULL;
-// OBSOLETE   if (!strcmp (asect->name, ".blocks"))
-// OBSOLETE     section = &blocks_info;
-// OBSOLETE   else if (!strcmp (asect->name, ".lines"))
-// OBSOLETE     section = &lines_info;
-// OBSOLETE   else if (!strcmp (asect->name, ".symbols"))
-// OBSOLETE     section = &symbols_info;
-// OBSOLETE   if (!section)
-// OBSOLETE     return;
-// OBSOLETE   section->size = size;
-// OBSOLETE   section->position = offset;
-// OBSOLETE   section->base = base;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* The BFD for this file -- only good while we're actively reading
-// OBSOLETE    symbols into a psymtab or a symtab.  */
-// OBSOLETE 
-// OBSOLETE static bfd *symfile_bfd;
-// OBSOLETE 
-// OBSOLETE /* Read a symbol file, after initialization by dst_symfile_init.  */
-// OBSOLETE /* FIXME!  Addr and Mainline are not used yet -- this will not work for
-// OBSOLETE    shared libraries or add_file!  */
-// OBSOLETE 
-// OBSOLETE /* ARGSUSED */
-// OBSOLETE static void
-// OBSOLETE dst_symfile_read (struct objfile *objfile, int mainline)
-// OBSOLETE {
-// OBSOLETE   bfd *abfd = objfile->obfd;
-// OBSOLETE   char *name = bfd_get_filename (abfd);
-// OBSOLETE   int desc;
-// OBSOLETE   register int val;
-// OBSOLETE   int num_symbols;
-// OBSOLETE   int symtab_offset;
-// OBSOLETE   int stringtab_offset;
-// OBSOLETE 
-// OBSOLETE   symfile_bfd = abfd;              /* Kludge for swap routines */
-// OBSOLETE 
-// OBSOLETE /* WARNING WILL ROBINSON!  ACCESSING BFD-PRIVATE DATA HERE!  FIXME!  */
-// OBSOLETE   desc = fileno ((FILE *) (abfd->iostream));       /* File descriptor */
-// OBSOLETE 
-// OBSOLETE   /* Read the line number table, all at once.  */
-// OBSOLETE   bfd_map_over_sections (abfd, find_dst_sections, (PTR) NULL);
-// OBSOLETE 
-// OBSOLETE   val = init_dst_sections (desc);
-// OBSOLETE   if (val < 0)
-// OBSOLETE     error ("\"%s\": error reading debugging symbol tables\n", name);
-// OBSOLETE 
-// OBSOLETE   init_minimal_symbol_collection ();
-// OBSOLETE   make_cleanup_discard_minimal_symbols ();
-// OBSOLETE 
-// OBSOLETE   /* Now that the executable file is positioned at symbol table,
-// OBSOLETE      process it and define symbols accordingly.  */
-// OBSOLETE 
-// OBSOLETE   read_dst_symtab (objfile);
-// OBSOLETE 
-// OBSOLETE   /* Sort symbols alphabetically within each block.  */
-// OBSOLETE 
-// OBSOLETE   {
-// OBSOLETE     struct symtab *s;
-// OBSOLETE     for (s = objfile->symtabs; s != NULL; s = s->next)
-// OBSOLETE       {
-// OBSOLETE    sort_symtab_syms (s);
-// OBSOLETE       }
-// OBSOLETE   }
-// OBSOLETE 
-// OBSOLETE   /* Install any minimal symbols that have been collected as the current
-// OBSOLETE      minimal symbols for this objfile. */
-// OBSOLETE 
-// OBSOLETE   install_minimal_symbols (objfile);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE dst_new_init (struct objfile *ignore)
-// OBSOLETE {
-// OBSOLETE   /* Nothin' to do */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Perform any local cleanups required when we are done with a particular
-// OBSOLETE    objfile.  I.E, we are in the process of discarding all symbol information
-// OBSOLETE    for an objfile, freeing up all memory held for it, and unlinking the
-// OBSOLETE    objfile struct from the global list of known objfiles. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE dst_symfile_finish (struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   /* Nothing to do */
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Get the next line number from the DST. Returns 0 when we hit an
-// OBSOLETE  * end directive or cannot continue for any other reason.
-// OBSOLETE  *
-// OBSOLETE  * Note that ordinary pc deltas are multiplied by two. Apparently
-// OBSOLETE  * this is what was really intended.
-// OBSOLETE  */
-// OBSOLETE static int
-// OBSOLETE get_dst_line (signed char **buffer, long *pc)
-// OBSOLETE {
-// OBSOLETE   static last_pc = 0;
-// OBSOLETE   static long last_line = 0;
-// OBSOLETE   static int last_file = 0;
-// OBSOLETE   dst_ln_entry_ptr_t entry;
-// OBSOLETE   int size;
-// OBSOLETE   dst_src_loc_t *src_loc;
-// OBSOLETE 
-// OBSOLETE   if (*pc != -1)
-// OBSOLETE     {
-// OBSOLETE       last_pc = *pc;
-// OBSOLETE       *pc = -1;
-// OBSOLETE     }
-// OBSOLETE   entry = (dst_ln_entry_ptr_t) * buffer;
-// OBSOLETE 
-// OBSOLETE   while (dst_ln_ln_delta (*entry) == dst_ln_escape_flag)
-// OBSOLETE     {
-// OBSOLETE       switch (entry->esc.esc_code)
-// OBSOLETE    {
-// OBSOLETE    case dst_ln_pad:
-// OBSOLETE      size = 1;             /* pad byte */
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_file:
-// OBSOLETE      /* file escape.  Next 4 bytes are a dst_src_loc_t */
-// OBSOLETE      size = 5;
-// OBSOLETE      src_loc = (dst_src_loc_t *) (*buffer + 1);
-// OBSOLETE      last_line = src_loc->line_number;
-// OBSOLETE      last_file = src_loc->file_index;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_dln1_dpc1:
-// OBSOLETE      /* 1 byte line delta, 1 byte pc delta */
-// OBSOLETE      last_line += (*buffer)[1];
-// OBSOLETE      last_pc += 2 * (unsigned char) (*buffer)[2];
-// OBSOLETE      dst_record_line (last_line, last_pc);
-// OBSOLETE      size = 3;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_dln2_dpc2:
-// OBSOLETE      /* 2 bytes line delta, 2 bytes pc delta */
-// OBSOLETE      last_line += *(short *) (*buffer + 1);
-// OBSOLETE      last_pc += 2 * (*(short *) (*buffer + 3));
-// OBSOLETE      size = 5;
-// OBSOLETE      dst_record_line (last_line, last_pc);
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_ln4_pc4:
-// OBSOLETE      /* 4 bytes ABSOLUTE line number, 4 bytes ABSOLUTE pc */
-// OBSOLETE      last_line = *(unsigned long *) (*buffer + 1);
-// OBSOLETE      last_pc = *(unsigned long *) (*buffer + 5);
-// OBSOLETE      size = 9;
-// OBSOLETE      dst_record_line (last_line, last_pc);
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_dln1_dpc0:
-// OBSOLETE      /* 1 byte line delta, pc delta = 0 */
-// OBSOLETE      size = 2;
-// OBSOLETE      last_line += (*buffer)[1];
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_ln_off_1:
-// OBSOLETE      /* statement escape, stmt # = 1 (2nd stmt on line) */
-// OBSOLETE      size = 1;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_ln_off:
-// OBSOLETE      /* statement escape, stmt # = next byte */
-// OBSOLETE      size = 2;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_entry:
-// OBSOLETE      /* entry escape, next byte is entry number */
-// OBSOLETE      size = 2;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_exit:
-// OBSOLETE      /* exit escape */
-// OBSOLETE      size = 1;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_stmt_end:
-// OBSOLETE      /* gap escape, 4 bytes pc delta */
-// OBSOLETE      size = 5;
-// OBSOLETE      /* last_pc += 2 * (*(long *) (*buffer + 1)); */
-// OBSOLETE      /* Apparently this isn't supposed to actually modify
-// OBSOLETE       * the pc value. Totally weird.
-// OBSOLETE       */
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_escape_11:
-// OBSOLETE    case dst_ln_escape_12:
-// OBSOLETE    case dst_ln_escape_13:
-// OBSOLETE      size = 1;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_nxt_byte:
-// OBSOLETE      /* This shouldn't happen. If it does, we're SOL */
-// OBSOLETE      return 0;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ln_end:
-// OBSOLETE      /* end escape, final entry follows */
-// OBSOLETE      return 0;
-// OBSOLETE    }
-// OBSOLETE       *buffer += (size < 0) ? -size : size;
-// OBSOLETE       entry = (dst_ln_entry_ptr_t) * buffer;
-// OBSOLETE     }
-// OBSOLETE   last_line += dst_ln_ln_delta (*entry);
-// OBSOLETE   last_pc += entry->delta.pc_delta * 2;
-// OBSOLETE   (*buffer)++;
-// OBSOLETE   dst_record_line (last_line, last_pc);
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE enter_all_lines (char *buffer, long address)
-// OBSOLETE {
-// OBSOLETE   if (buffer)
-// OBSOLETE     while (get_dst_line (&buffer, &address));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE get_dst_entry (char *buffer, dst_rec_ptr_t *ret_entry)
-// OBSOLETE {
-// OBSOLETE   int size;
-// OBSOLETE   dst_rec_ptr_t entry;
-// OBSOLETE   static int last_type;
-// OBSOLETE   int ar_size;
-// OBSOLETE   static unsigned lu3;
-// OBSOLETE 
-// OBSOLETE   entry = (dst_rec_ptr_t) buffer;
-// OBSOLETE   switch (entry->rec_type)
-// OBSOLETE     {
-// OBSOLETE     case dst_typ_pad:
-// OBSOLETE       size = 0;
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_comp_unit:
-// OBSOLETE       size = sizeof (DST_comp_unit (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_section_tab:
-// OBSOLETE       size = sizeof (DST_section_tab (entry))
-// OBSOLETE    + ((int) DST_section_tab (entry).number_of_sections
-// OBSOLETE       - dst_dummy_array_size) * sizeof (long);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_file_tab:
-// OBSOLETE       size = sizeof (DST_file_tab (entry))
-// OBSOLETE    + ((int) DST_file_tab (entry).number_of_files
-// OBSOLETE       - dst_dummy_array_size) * sizeof (dst_file_desc_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_block:
-// OBSOLETE       size = sizeof (DST_block (entry))
-// OBSOLETE    + ((int) DST_block (entry).n_of_code_ranges
-// OBSOLETE       - dst_dummy_array_size) * sizeof (dst_code_range_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_5:
-// OBSOLETE       size = -1;
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_var:
-// OBSOLETE       size = sizeof (DST_var (entry)) -
-// OBSOLETE    sizeof (dst_var_loc_long_t) * dst_dummy_array_size +
-// OBSOLETE    DST_var (entry).no_of_locs *
-// OBSOLETE    (DST_var (entry).short_locs ?
-// OBSOLETE     sizeof (dst_var_loc_short_t) :
-// OBSOLETE     sizeof (dst_var_loc_long_t));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_pointer:
-// OBSOLETE       size = sizeof (DST_pointer (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_array:
-// OBSOLETE       size = sizeof (DST_array (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_subrange:
-// OBSOLETE       size = sizeof (DST_subrange (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_set:
-// OBSOLETE       size = sizeof (DST_set (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_implicit_enum:
-// OBSOLETE       size = sizeof (DST_implicit_enum (entry))
-// OBSOLETE    + ((int) DST_implicit_enum (entry).nelems
-// OBSOLETE       - dst_dummy_array_size) * sizeof (dst_rel_offset_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_explicit_enum:
-// OBSOLETE       size = sizeof (DST_explicit_enum (entry))
-// OBSOLETE    + ((int) DST_explicit_enum (entry).nelems
-// OBSOLETE       - dst_dummy_array_size) * sizeof (dst_enum_elem_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_short_rec:
-// OBSOLETE       size = sizeof (DST_short_rec (entry))
-// OBSOLETE    + DST_short_rec (entry).nfields * sizeof (dst_short_field_t)
-// OBSOLETE    - dst_dummy_array_size * sizeof (dst_field_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_short_union:
-// OBSOLETE       size = sizeof (DST_short_union (entry))
-// OBSOLETE    + DST_short_union (entry).nfields * sizeof (dst_short_field_t)
-// OBSOLETE    - dst_dummy_array_size * sizeof (dst_field_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_file:
-// OBSOLETE       size = sizeof (DST_file (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_offset:
-// OBSOLETE       size = sizeof (DST_offset (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_alias:
-// OBSOLETE       size = sizeof (DST_alias (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_signature:
-// OBSOLETE       size = sizeof (DST_signature (entry)) +
-// OBSOLETE    ((int) DST_signature (entry).nargs -
-// OBSOLETE     dst_dummy_array_size) * sizeof (dst_arg_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_21:
-// OBSOLETE       size = -1;
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_old_label:
-// OBSOLETE       size = sizeof (DST_old_label (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_scope:
-// OBSOLETE       size = sizeof (DST_scope (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_end_scope:
-// OBSOLETE       size = 0;
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_25:
-// OBSOLETE     case dst_typ_26:
-// OBSOLETE       size = -1;
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_string_tab:
-// OBSOLETE     case dst_typ_global_name_tab:
-// OBSOLETE       size = sizeof (DST_string_tab (entry))
-// OBSOLETE    + DST_string_tab (entry).length
-// OBSOLETE    - dst_dummy_array_size;
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_forward:
-// OBSOLETE       size = sizeof (DST_forward (entry));
-// OBSOLETE       get_dst_entry ((char *) entry + DST_forward (entry).rec_off, &entry);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_size:
-// OBSOLETE       size = sizeof (DST_aux_size (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_align:
-// OBSOLETE       size = sizeof (DST_aux_align (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_field_size:
-// OBSOLETE       size = sizeof (DST_aux_field_size (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_field_off:
-// OBSOLETE       size = sizeof (DST_aux_field_off (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_field_align:
-// OBSOLETE       size = sizeof (DST_aux_field_align (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_qual:
-// OBSOLETE       size = sizeof (DST_aux_qual (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_var_bound:
-// OBSOLETE       size = sizeof (DST_aux_var_bound (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_extension:
-// OBSOLETE       size = DST_extension (entry).rec_size;
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_string:
-// OBSOLETE       size = sizeof (DST_string (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_old_entry:
-// OBSOLETE       size = 48;           /* Obsolete entry type */
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_const:
-// OBSOLETE       size = sizeof (DST_const (entry))
-// OBSOLETE    + DST_const (entry).value.length
-// OBSOLETE    - sizeof (DST_const (entry).value.val);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_reference:
-// OBSOLETE       size = sizeof (DST_reference (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_old_record:
-// OBSOLETE     case dst_typ_old_union:
-// OBSOLETE     case dst_typ_record:
-// OBSOLETE     case dst_typ_union:
-// OBSOLETE       size = sizeof (DST_record (entry))
-// OBSOLETE    + ((int) DST_record (entry).nfields
-// OBSOLETE       - dst_dummy_array_size) * sizeof (dst_field_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_type_deriv:
-// OBSOLETE       size = sizeof (DST_aux_type_deriv (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_locpool:
-// OBSOLETE       size = sizeof (DST_locpool (entry))
-// OBSOLETE    + ((int) DST_locpool (entry).length -
-// OBSOLETE       dst_dummy_array_size);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_variable:
-// OBSOLETE       size = sizeof (DST_variable (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_label:
-// OBSOLETE       size = sizeof (DST_label (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_entry:
-// OBSOLETE       size = sizeof (DST_entry (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_lifetime:
-// OBSOLETE       size = sizeof (DST_aux_lifetime (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_ptr_base:
-// OBSOLETE       size = sizeof (DST_aux_ptr_base (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_src_range:
-// OBSOLETE       size = sizeof (DST_aux_src_range (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_reg_val:
-// OBSOLETE       size = sizeof (DST_aux_reg_val (entry));
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_unit_names:
-// OBSOLETE       size = sizeof (DST_aux_unit_names (entry))
-// OBSOLETE    + ((int) DST_aux_unit_names (entry).number_of_names
-// OBSOLETE       - dst_dummy_array_size) * sizeof (dst_rel_offset_t);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_aux_sect_info:
-// OBSOLETE       size = sizeof (DST_aux_sect_info (entry))
-// OBSOLETE    + ((int) DST_aux_sect_info (entry).number_of_refs
-// OBSOLETE       - dst_dummy_array_size) * sizeof (dst_sect_ref_t);
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       size = -1;
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   if (size == -1)
-// OBSOLETE     {
-// OBSOLETE       fprintf_unfiltered (gdb_stderr, "Warning: unexpected DST entry type (%d) found\nLast valid entry was of type: %d\n",
-// OBSOLETE                      (int) entry->rec_type,
-// OBSOLETE                      last_type);
-// OBSOLETE       fprintf_unfiltered (gdb_stderr, "Last unknown_3 value: %d\n", lu3);
-// OBSOLETE       size = 0;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     last_type = entry->rec_type;
-// OBSOLETE   if (size & 1)                    /* Align on a word boundary */
-// OBSOLETE     size++;
-// OBSOLETE   size += 2;
-// OBSOLETE   *ret_entry = entry;
-// OBSOLETE   return size;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE next_dst_entry (char **buffer, dst_rec_ptr_t *entry, dst_sec *table)
-// OBSOLETE {
-// OBSOLETE   if (*buffer - table->buffer >= table->size)
-// OBSOLETE     {
-// OBSOLETE       *entry = NULL;
-// OBSOLETE       return 0;
-// OBSOLETE     }
-// OBSOLETE   *buffer += get_dst_entry (*buffer, entry);
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #define NEXT_BLK(a, b) next_dst_entry(a, b, &blocks_info)
-// OBSOLETE #define NEXT_SYM(a, b) next_dst_entry(a, b, &symbols_info)
-// OBSOLETE #define    DST_OFFSET(a, b) ((char *) (a) + (b))
-// OBSOLETE 
-// OBSOLETE static dst_rec_ptr_t section_table = NULL;
-// OBSOLETE 
-// OBSOLETE char *
-// OBSOLETE get_sec_ref (dst_sect_ref_t *ref)
-// OBSOLETE {
-// OBSOLETE   dst_sec *section = NULL;
-// OBSOLETE   long offset;
-// OBSOLETE 
-// OBSOLETE   if (!section_table || !ref->sect_index)
-// OBSOLETE     return NULL;
-// OBSOLETE   offset = DST_section_tab (section_table).section_base[ref->sect_index - 1]
-// OBSOLETE     + ref->sect_offset;
-// OBSOLETE   if (offset >= blocks_info.base &&
-// OBSOLETE       offset < blocks_info.base + blocks_info.size)
-// OBSOLETE     section = &blocks_info;
-// OBSOLETE   else if (offset >= symbols_info.base &&
-// OBSOLETE       offset < symbols_info.base + symbols_info.size)
-// OBSOLETE     section = &symbols_info;
-// OBSOLETE   else if (offset >= lines_info.base &&
-// OBSOLETE       offset < lines_info.base + lines_info.size)
-// OBSOLETE     section = &lines_info;
-// OBSOLETE   if (!section)
-// OBSOLETE     return NULL;
-// OBSOLETE   return section->buffer + (offset - section->base);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE dst_get_addr (int section, long offset)
-// OBSOLETE {
-// OBSOLETE   if (!section_table || !section)
-// OBSOLETE     return 0;
-// OBSOLETE   return DST_section_tab (section_table).section_base[section - 1] + offset;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE dst_sym_addr (dst_sect_ref_t *ref)
-// OBSOLETE {
-// OBSOLETE   if (!section_table || !ref->sect_index)
-// OBSOLETE     return 0;
-// OBSOLETE   return DST_section_tab (section_table).section_base[ref->sect_index - 1]
-// OBSOLETE     + ref->sect_offset;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct symbol *
-// OBSOLETE create_new_symbol (struct objfile *objfile, char *name)
-// OBSOLETE {
-// OBSOLETE   struct symbol *sym = (struct symbol *)
-// OBSOLETE   obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol));
-// OBSOLETE   memset (sym, 0, sizeof (struct symbol));
-// OBSOLETE   SYMBOL_NAME (sym) = obsavestring (name, strlen (name),
-// OBSOLETE                                &objfile->symbol_obstack);
-// OBSOLETE   SYMBOL_VALUE (sym) = 0;
-// OBSOLETE   SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE;
-// OBSOLETE 
-// OBSOLETE   SYMBOL_CLASS (sym) = LOC_BLOCK;
-// OBSOLETE   return sym;
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static struct type *decode_dst_type (struct objfile *, dst_rec_ptr_t);
-// OBSOLETE 
-// OBSOLETE static struct type *
-// OBSOLETE decode_type_desc (struct objfile *objfile, dst_type_t *type_desc,
-// OBSOLETE              dst_rec_ptr_t base)
-// OBSOLETE {
-// OBSOLETE   struct type *type;
-// OBSOLETE   dst_rec_ptr_t entry;
-// OBSOLETE   if (type_desc->std_type.user_defined_type)
-// OBSOLETE     {
-// OBSOLETE       entry = (dst_rec_ptr_t) DST_OFFSET (base,
-// OBSOLETE                                      dst_user_type_offset (*type_desc));
-// OBSOLETE       type = decode_dst_type (objfile, entry);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       switch (type_desc->std_type.dtc)
-// OBSOLETE    {
-// OBSOLETE    case dst_int8_type:
-// OBSOLETE      type = builtin_type_signed_char;
-// OBSOLETE      break;
-// OBSOLETE    case dst_int16_type:
-// OBSOLETE      type = builtin_type_short;
-// OBSOLETE      break;
-// OBSOLETE    case dst_int32_type:
-// OBSOLETE      type = builtin_type_long;
-// OBSOLETE      break;
-// OBSOLETE    case dst_uint8_type:
-// OBSOLETE      type = builtin_type_unsigned_char;
-// OBSOLETE      break;
-// OBSOLETE    case dst_uint16_type:
-// OBSOLETE      type = builtin_type_unsigned_short;
-// OBSOLETE      break;
-// OBSOLETE    case dst_uint32_type:
-// OBSOLETE      type = builtin_type_unsigned_long;
-// OBSOLETE      break;
-// OBSOLETE    case dst_real32_type:
-// OBSOLETE      type = builtin_type_float;
-// OBSOLETE      break;
-// OBSOLETE    case dst_real64_type:
-// OBSOLETE      type = builtin_type_double;
-// OBSOLETE      break;
-// OBSOLETE    case dst_complex_type:
-// OBSOLETE      type = builtin_type_complex;
-// OBSOLETE      break;
-// OBSOLETE    case dst_dcomplex_type:
-// OBSOLETE      type = builtin_type_double_complex;
-// OBSOLETE      break;
-// OBSOLETE    case dst_bool8_type:
-// OBSOLETE      type = builtin_type_char;
-// OBSOLETE      break;
-// OBSOLETE    case dst_bool16_type:
-// OBSOLETE      type = builtin_type_short;
-// OBSOLETE      break;
-// OBSOLETE    case dst_bool32_type:
-// OBSOLETE      type = builtin_type_long;
-// OBSOLETE      break;
-// OBSOLETE    case dst_char_type:
-// OBSOLETE      type = builtin_type_char;
-// OBSOLETE      break;
-// OBSOLETE      /* The next few are more complex. I will take care
-// OBSOLETE       * of them properly at a later point.
-// OBSOLETE       */
-// OBSOLETE    case dst_string_type:
-// OBSOLETE      type = builtin_type_void;
-// OBSOLETE      break;
-// OBSOLETE    case dst_ptr_type:
-// OBSOLETE      type = builtin_type_void;
-// OBSOLETE      break;
-// OBSOLETE    case dst_set_type:
-// OBSOLETE      type = builtin_type_void;
-// OBSOLETE      break;
-// OBSOLETE    case dst_proc_type:
-// OBSOLETE      type = builtin_type_void;
-// OBSOLETE      break;
-// OBSOLETE    case dst_func_type:
-// OBSOLETE      type = builtin_type_void;
-// OBSOLETE      break;
-// OBSOLETE      /* Back tto some ordinary ones */
-// OBSOLETE    case dst_void_type:
-// OBSOLETE      type = builtin_type_void;
-// OBSOLETE      break;
-// OBSOLETE    case dst_uchar_type:
-// OBSOLETE      type = builtin_type_unsigned_char;
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      type = builtin_type_void;
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   return type;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE struct structure_list
-// OBSOLETE {
-// OBSOLETE   struct structure_list *next;
-// OBSOLETE   struct type *type;
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static struct structure_list *struct_list = NULL;
-// OBSOLETE 
-// OBSOLETE static struct type *
-// OBSOLETE find_dst_structure (char *name)
-// OBSOLETE {
-// OBSOLETE   struct structure_list *element;
-// OBSOLETE 
-// OBSOLETE   for (element = struct_list; element; element = element->next)
-// OBSOLETE     if (!strcmp (name, TYPE_NAME (element->type)))
-// OBSOLETE       return element->type;
-// OBSOLETE   return NULL;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE static struct type *
-// OBSOLETE decode_dst_structure (struct objfile *objfile, dst_rec_ptr_t entry, int code,
-// OBSOLETE                  int version)
-// OBSOLETE {
-// OBSOLETE   struct type *type, *child_type;
-// OBSOLETE   char *struct_name;
-// OBSOLETE   char *name, *field_name;
-// OBSOLETE   int i;
-// OBSOLETE   int fieldoffset, fieldsize;
-// OBSOLETE   dst_type_t type_desc;
-// OBSOLETE   struct structure_list *element;
-// OBSOLETE 
-// OBSOLETE   struct_name = DST_OFFSET (entry, DST_record (entry).noffset);
-// OBSOLETE   name = concat ((code == TYPE_CODE_UNION) ? "union " : "struct ",
-// OBSOLETE             struct_name, NULL);
-// OBSOLETE   type = find_dst_structure (name);
-// OBSOLETE   if (type)
-// OBSOLETE     {
-// OBSOLETE       xfree (name);
-// OBSOLETE       return type;
-// OBSOLETE     }
-// OBSOLETE   type = alloc_type (objfile);
-// OBSOLETE   TYPE_NAME (type) = obstack_copy0 (&objfile->symbol_obstack,
-// OBSOLETE                                name, strlen (name));
-// OBSOLETE   xfree (name);
-// OBSOLETE   TYPE_CODE (type) = code;
-// OBSOLETE   TYPE_LENGTH (type) = DST_record (entry).size;
-// OBSOLETE   TYPE_NFIELDS (type) = DST_record (entry).nfields;
-// OBSOLETE   TYPE_FIELDS (type) = (struct field *)
-// OBSOLETE     obstack_alloc (&objfile->symbol_obstack, sizeof (struct field) *
-// OBSOLETE               DST_record (entry).nfields);
-// OBSOLETE   fieldoffset = fieldsize = 0;
-// OBSOLETE   INIT_CPLUS_SPECIFIC (type);
-// OBSOLETE   element = (struct structure_list *)
-// OBSOLETE     xmalloc (sizeof (struct structure_list));
-// OBSOLETE   element->type = type;
-// OBSOLETE   element->next = struct_list;
-// OBSOLETE   struct_list = element;
-// OBSOLETE   for (i = 0; i < DST_record (entry).nfields; i++)
-// OBSOLETE     {
-// OBSOLETE       switch (version)
-// OBSOLETE    {
-// OBSOLETE    case 2:
-// OBSOLETE      field_name = DST_OFFSET (entry,
-// OBSOLETE                               DST_record (entry).f.ofields[i].noffset);
-// OBSOLETE      fieldoffset = DST_record (entry).f.ofields[i].foffset * 8 +
-// OBSOLETE        DST_record (entry).f.ofields[i].bit_offset;
-// OBSOLETE      fieldsize = DST_record (entry).f.ofields[i].size;
-// OBSOLETE      type_desc = DST_record (entry).f.ofields[i].type_desc;
-// OBSOLETE      break;
-// OBSOLETE    case 1:
-// OBSOLETE      field_name = DST_OFFSET (entry,
-// OBSOLETE                               DST_record (entry).f.fields[i].noffset);
-// OBSOLETE      type_desc = DST_record (entry).f.fields[i].type_desc;
-// OBSOLETE      switch (DST_record (entry).f.fields[i].f.field_loc.format_tag)
-// OBSOLETE        {
-// OBSOLETE        case dst_field_byte:
-// OBSOLETE          fieldoffset = DST_record (entry).f.
-// OBSOLETE            fields[i].f.field_byte.offset * 8;
-// OBSOLETE          fieldsize = -1;
-// OBSOLETE          break;
-// OBSOLETE        case dst_field_bit:
-// OBSOLETE          fieldoffset = DST_record (entry).f.
-// OBSOLETE            fields[i].f.field_bit.byte_offset * 8 +
-// OBSOLETE            DST_record (entry).f.
-// OBSOLETE            fields[i].f.field_bit.bit_offset;
-// OBSOLETE          fieldsize = DST_record (entry).f.
-// OBSOLETE            fields[i].f.field_bit.nbits;
-// OBSOLETE          break;
-// OBSOLETE        case dst_field_loc:
-// OBSOLETE          fieldoffset += fieldsize;
-// OBSOLETE          fieldsize = -1;
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE      break;
-// OBSOLETE    case 0:
-// OBSOLETE      field_name = DST_OFFSET (entry,
-// OBSOLETE                               DST_record (entry).f.sfields[i].noffset);
-// OBSOLETE      fieldoffset = DST_record (entry).f.sfields[i].foffset;
-// OBSOLETE      type_desc = DST_record (entry).f.sfields[i].type_desc;
-// OBSOLETE      if (i < DST_record (entry).nfields - 1)
-// OBSOLETE        fieldsize = DST_record (entry).f.sfields[i + 1].foffset;
-// OBSOLETE      else
-// OBSOLETE        fieldsize = DST_record (entry).size;
-// OBSOLETE      fieldsize -= fieldoffset;
-// OBSOLETE      fieldoffset *= 8;
-// OBSOLETE      fieldsize *= 8;
-// OBSOLETE    }
-// OBSOLETE       TYPE_FIELDS (type)[i].name =
-// OBSOLETE    obstack_copy0 (&objfile->symbol_obstack,
-// OBSOLETE                   field_name, strlen (field_name));
-// OBSOLETE       TYPE_FIELDS (type)[i].type = decode_type_desc (objfile,
-// OBSOLETE                                                 &type_desc,
-// OBSOLETE                                                 entry);
-// OBSOLETE       if (fieldsize == -1)
-// OBSOLETE    fieldsize = TYPE_LENGTH (TYPE_FIELDS (type)[i].type) *
-// OBSOLETE      8;
-// OBSOLETE       TYPE_FIELDS (type)[i].bitsize = fieldsize;
-// OBSOLETE       TYPE_FIELDS (type)[i].bitpos = fieldoffset;
-// OBSOLETE     }
-// OBSOLETE   return type;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct type *
-// OBSOLETE decode_dst_type (struct objfile *objfile, dst_rec_ptr_t entry)
-// OBSOLETE {
-// OBSOLETE   struct type *child_type, *type, *range_type, *index_type;
-// OBSOLETE 
-// OBSOLETE   switch (entry->rec_type)
-// OBSOLETE     {
-// OBSOLETE     case dst_typ_var:
-// OBSOLETE       return decode_type_desc (objfile,
-// OBSOLETE                           &DST_var (entry).type_desc,
-// OBSOLETE                           entry);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_variable:
-// OBSOLETE       return decode_type_desc (objfile,
-// OBSOLETE                           &DST_variable (entry).type_desc,
-// OBSOLETE                           entry);
-// OBSOLETE       break;
-// OBSOLETE     case dst_typ_short_rec:
-// OBSOLETE       return decode_dst_structure (objfile, entry, TYPE_CODE_STRUCT, 0);
-// OBSOLETE     case dst_typ_short_union:
-// OBSOLETE       return decode_dst_structure (objfile, entry, TYPE_CODE_UNION, 0);
-// OBSOLETE     case dst_typ_union:
-// OBSOLETE       return decode_dst_structure (objfile, entry, TYPE_CODE_UNION, 1);
-// OBSOLETE     case dst_typ_record:
-// OBSOLETE       return decode_dst_structure (objfile, entry, TYPE_CODE_STRUCT, 1);
-// OBSOLETE     case dst_typ_old_union:
-// OBSOLETE       return decode_dst_structure (objfile, entry, TYPE_CODE_UNION, 2);
-// OBSOLETE     case dst_typ_old_record:
-// OBSOLETE       return decode_dst_structure (objfile, entry, TYPE_CODE_STRUCT, 2);
-// OBSOLETE     case dst_typ_pointer:
-// OBSOLETE       return make_pointer_type (
-// OBSOLETE                             decode_type_desc (objfile,
-// OBSOLETE                                         &DST_pointer (entry).type_desc,
-// OBSOLETE                                               entry),
-// OBSOLETE                             NULL);
-// OBSOLETE     case dst_typ_array:
-// OBSOLETE       child_type = decode_type_desc (objfile,
-// OBSOLETE                                 &DST_pointer (entry).type_desc,
-// OBSOLETE                                 entry);
-// OBSOLETE       index_type = lookup_fundamental_type (objfile,
-// OBSOLETE                                        FT_INTEGER);
-// OBSOLETE       range_type = create_range_type ((struct type *) NULL,
-// OBSOLETE                                  index_type, DST_array (entry).lo_bound,
-// OBSOLETE                                  DST_array (entry).hi_bound);
-// OBSOLETE       return create_array_type ((struct type *) NULL, child_type,
-// OBSOLETE                            range_type);
-// OBSOLETE     case dst_typ_alias:
-// OBSOLETE       return decode_type_desc (objfile,
-// OBSOLETE                           &DST_alias (entry).type_desc,
-// OBSOLETE                           entry);
-// OBSOLETE     default:
-// OBSOLETE       return builtin_type_int;
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE struct symbol_list
-// OBSOLETE {
-// OBSOLETE   struct symbol_list *next;
-// OBSOLETE   struct symbol *symbol;
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static struct symbol_list *dst_global_symbols = NULL;
-// OBSOLETE static int total_globals = 0;
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE decode_dst_locstring (char *locstr, struct symbol *sym)
-// OBSOLETE {
-// OBSOLETE   dst_loc_entry_t *entry, *next_entry;
-// OBSOLETE   CORE_ADDR temp;
-// OBSOLETE   int count = 0;
-// OBSOLETE 
-// OBSOLETE   while (1)
-// OBSOLETE     {
-// OBSOLETE       if (count++ == 100)
-// OBSOLETE    {
-// OBSOLETE      fprintf_unfiltered (gdb_stderr, "Error reading locstring\n");
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       entry = (dst_loc_entry_t *) locstr;
-// OBSOLETE       next_entry = (dst_loc_entry_t *) (locstr + 1);
-// OBSOLETE       switch (entry->header.code)
-// OBSOLETE    {
-// OBSOLETE    case dst_lsc_end:       /* End of string */
-// OBSOLETE      return;
-// OBSOLETE    case dst_lsc_indirect:  /* Indirect through previous. Arg == 6 */
-// OBSOLETE      /* Or register ax x == arg */
-// OBSOLETE      if (entry->header.arg < 6)
-// OBSOLETE        {
-// OBSOLETE          SYMBOL_CLASS (sym) = LOC_REGISTER;
-// OBSOLETE          SYMBOL_VALUE (sym) = entry->header.arg + 8;
-// OBSOLETE        }
-// OBSOLETE      /* We predict indirects */
-// OBSOLETE      locstr++;
-// OBSOLETE      break;
-// OBSOLETE    case dst_lsc_dreg:
-// OBSOLETE      SYMBOL_CLASS (sym) = LOC_REGISTER;
-// OBSOLETE      SYMBOL_VALUE (sym) = entry->header.arg;
-// OBSOLETE      locstr++;
-// OBSOLETE      break;
-// OBSOLETE    case dst_lsc_section:   /* Section (arg+1) */
-// OBSOLETE      SYMBOL_VALUE (sym) = dst_get_addr (entry->header.arg + 1, 0);
-// OBSOLETE      locstr++;
-// OBSOLETE      break;
-// OBSOLETE    case dst_lsc_sec_byte:  /* Section (next_byte+1) */
-// OBSOLETE      SYMBOL_VALUE (sym) = dst_get_addr (locstr[1] + 1, 0);
-// OBSOLETE      locstr += 2;
-// OBSOLETE      break;
-// OBSOLETE    case dst_lsc_add:       /* Add (arg+1)*2 */
-// OBSOLETE    case dst_lsc_sub:       /* Subtract (arg+1)*2 */
-// OBSOLETE      temp = (entry->header.arg + 1) * 2;
-// OBSOLETE      locstr++;
-// OBSOLETE      if (*locstr == dst_multiply_256)
-// OBSOLETE        {
-// OBSOLETE          temp <<= 8;
-// OBSOLETE          locstr++;
-// OBSOLETE        }
-// OBSOLETE      switch (entry->header.code)
-// OBSOLETE        {
-// OBSOLETE        case dst_lsc_add:
-// OBSOLETE          if (SYMBOL_CLASS (sym) == LOC_LOCAL)
-// OBSOLETE            SYMBOL_CLASS (sym) = LOC_ARG;
-// OBSOLETE          SYMBOL_VALUE (sym) += temp;
-// OBSOLETE          break;
-// OBSOLETE        case dst_lsc_sub:
-// OBSOLETE          SYMBOL_VALUE (sym) -= temp;
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE      break;
-// OBSOLETE    case dst_lsc_add_byte:
-// OBSOLETE    case dst_lsc_sub_byte:
-// OBSOLETE      switch (entry->header.arg & 0x03)
-// OBSOLETE        {
-// OBSOLETE        case 1:
-// OBSOLETE          temp = (unsigned char) locstr[1];
-// OBSOLETE          locstr += 2;
-// OBSOLETE          break;
-// OBSOLETE        case 2:
-// OBSOLETE          temp = *(unsigned short *) (locstr + 1);
-// OBSOLETE          locstr += 3;
-// OBSOLETE          break;
-// OBSOLETE        case 3:
-// OBSOLETE          temp = *(unsigned long *) (locstr + 1);
-// OBSOLETE          locstr += 5;
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE      if (*locstr == dst_multiply_256)
-// OBSOLETE        {
-// OBSOLETE          temp <<= 8;
-// OBSOLETE          locstr++;
-// OBSOLETE        }
-// OBSOLETE      switch (entry->header.code)
-// OBSOLETE        {
-// OBSOLETE        case dst_lsc_add_byte:
-// OBSOLETE          if (SYMBOL_CLASS (sym) == LOC_LOCAL)
-// OBSOLETE            SYMBOL_CLASS (sym) = LOC_ARG;
-// OBSOLETE          SYMBOL_VALUE (sym) += temp;
-// OBSOLETE          break;
-// OBSOLETE        case dst_lsc_sub_byte:
-// OBSOLETE          SYMBOL_VALUE (sym) -= temp;
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE      break;
-// OBSOLETE    case dst_lsc_sbreg:     /* Stack base register (frame pointer). Arg==0 */
-// OBSOLETE      if (next_entry->header.code != dst_lsc_indirect)
-// OBSOLETE        {
-// OBSOLETE          SYMBOL_VALUE (sym) = 0;
-// OBSOLETE          SYMBOL_CLASS (sym) = LOC_STATIC;
-// OBSOLETE          return;
-// OBSOLETE        }
-// OBSOLETE      SYMBOL_VALUE (sym) = 0;
-// OBSOLETE      SYMBOL_CLASS (sym) = LOC_LOCAL;
-// OBSOLETE      locstr++;
-// OBSOLETE      break;
-// OBSOLETE    default:
-// OBSOLETE      SYMBOL_VALUE (sym) = 0;
-// OBSOLETE      SYMBOL_CLASS (sym) = LOC_STATIC;
-// OBSOLETE      return;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct symbol_list *
-// OBSOLETE process_dst_symbols (struct objfile *objfile, dst_rec_ptr_t entry, char *name,
-// OBSOLETE                 int *nsyms_ret)
-// OBSOLETE {
-// OBSOLETE   struct symbol_list *list = NULL, *element;
-// OBSOLETE   struct symbol *sym;
-// OBSOLETE   char *symname;
-// OBSOLETE   int nsyms = 0;
-// OBSOLETE   char *location;
-// OBSOLETE   long line;
-// OBSOLETE   dst_type_t symtype;
-// OBSOLETE   struct type *type;
-// OBSOLETE   dst_var_attr_t attr;
-// OBSOLETE   dst_var_loc_t loc_type;
-// OBSOLETE   unsigned loc_index;
-// OBSOLETE   long loc_value;
-// OBSOLETE 
-// OBSOLETE   if (!entry)
-// OBSOLETE     {
-// OBSOLETE       *nsyms_ret = 0;
-// OBSOLETE       return NULL;
-// OBSOLETE     }
-// OBSOLETE   location = (char *) entry;
-// OBSOLETE   while (NEXT_SYM (&location, &entry) &&
-// OBSOLETE     entry->rec_type != dst_typ_end_scope)
-// OBSOLETE     {
-// OBSOLETE       if (entry->rec_type == dst_typ_var)
-// OBSOLETE    {
-// OBSOLETE      if (DST_var (entry).short_locs)
-// OBSOLETE        {
-// OBSOLETE          loc_type = DST_var (entry).locs.shorts[0].loc_type;
-// OBSOLETE          loc_index = DST_var (entry).locs.shorts[0].loc_index;
-// OBSOLETE          loc_value = DST_var (entry).locs.shorts[0].location;
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          loc_type = DST_var (entry).locs.longs[0].loc_type;
-// OBSOLETE          loc_index = DST_var (entry).locs.longs[0].loc_index;
-// OBSOLETE          loc_value = DST_var (entry).locs.longs[0].location;
-// OBSOLETE        }
-// OBSOLETE      if (loc_type == dst_var_loc_external)
-// OBSOLETE        continue;
-// OBSOLETE      symname = DST_OFFSET (entry, DST_var (entry).noffset);
-// OBSOLETE      line = DST_var (entry).src_loc.line_number;
-// OBSOLETE      symtype = DST_var (entry).type_desc;
-// OBSOLETE      attr = DST_var (entry).attributes;
-// OBSOLETE    }
-// OBSOLETE       else if (entry->rec_type == dst_typ_variable)
-// OBSOLETE    {
-// OBSOLETE      symname = DST_OFFSET (entry,
-// OBSOLETE                            DST_variable (entry).noffset);
-// OBSOLETE      line = DST_variable (entry).src_loc.line_number;
-// OBSOLETE      symtype = DST_variable (entry).type_desc;
-// OBSOLETE      attr = DST_variable (entry).attributes;
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      continue;
-// OBSOLETE    }
-// OBSOLETE       if (symname && name && !strcmp (symname, name))
-// OBSOLETE    /* It's the function return value */
-// OBSOLETE    continue;
-// OBSOLETE       sym = create_new_symbol (objfile, symname);
-// OBSOLETE 
-// OBSOLETE       if ((attr & (1 << dst_var_attr_global)) ||
-// OBSOLETE      (attr & (1 << dst_var_attr_static)))
-// OBSOLETE    SYMBOL_CLASS (sym) = LOC_STATIC;
-// OBSOLETE       else
-// OBSOLETE    SYMBOL_CLASS (sym) = LOC_LOCAL;
-// OBSOLETE       SYMBOL_LINE (sym) = line;
-// OBSOLETE       SYMBOL_TYPE (sym) = decode_type_desc (objfile, &symtype,
-// OBSOLETE                                        entry);
-// OBSOLETE       SYMBOL_VALUE (sym) = 0;
-// OBSOLETE       switch (entry->rec_type)
-// OBSOLETE    {
-// OBSOLETE    case dst_typ_var:
-// OBSOLETE      switch (loc_type)
-// OBSOLETE        {
-// OBSOLETE        case dst_var_loc_abs:
-// OBSOLETE          SYMBOL_VALUE_ADDRESS (sym) = loc_value;
-// OBSOLETE          break;
-// OBSOLETE        case dst_var_loc_sect_off:
-// OBSOLETE        case dst_var_loc_ind_sect_off:      /* What is this? */
-// OBSOLETE          SYMBOL_VALUE_ADDRESS (sym) = dst_get_addr (
-// OBSOLETE                                                      loc_index,
-// OBSOLETE                                                      loc_value);
-// OBSOLETE          break;
-// OBSOLETE        case dst_var_loc_ind_reg_rel:       /* What is this? */
-// OBSOLETE        case dst_var_loc_reg_rel:
-// OBSOLETE          /* If it isn't fp relative, specify the
-// OBSOLETE           * register it's relative to.
-// OBSOLETE           */
-// OBSOLETE          if (loc_index)
-// OBSOLETE            {
-// OBSOLETE              sym->aux_value.basereg = loc_index;
-// OBSOLETE            }
-// OBSOLETE          SYMBOL_VALUE (sym) = loc_value;
-// OBSOLETE          if (loc_value > 0 &&
-// OBSOLETE              SYMBOL_CLASS (sym) == LOC_BASEREG)
-// OBSOLETE            SYMBOL_CLASS (sym) = LOC_BASEREG_ARG;
-// OBSOLETE          break;
-// OBSOLETE        case dst_var_loc_reg:
-// OBSOLETE          SYMBOL_VALUE (sym) = loc_index;
-// OBSOLETE          SYMBOL_CLASS (sym) = LOC_REGISTER;
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE      break;
-// OBSOLETE    case dst_typ_variable:
-// OBSOLETE      /* External variable..... don't try to interpret
-// OBSOLETE       * its nonexistant locstring.
-// OBSOLETE       */
-// OBSOLETE      if (DST_variable (entry).loffset == -1)
-// OBSOLETE        continue;
-// OBSOLETE      decode_dst_locstring (DST_OFFSET (entry,
-// OBSOLETE                                        DST_variable (entry).loffset),
-// OBSOLETE                            sym);
-// OBSOLETE    }
-// OBSOLETE       element = (struct symbol_list *)
-// OBSOLETE    xmalloc (sizeof (struct symbol_list));
-// OBSOLETE 
-// OBSOLETE       if (attr & (1 << dst_var_attr_global))
-// OBSOLETE    {
-// OBSOLETE      element->next = dst_global_symbols;
-// OBSOLETE      dst_global_symbols = element;
-// OBSOLETE      total_globals++;
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      element->next = list;
-// OBSOLETE      list = element;
-// OBSOLETE      nsyms++;
-// OBSOLETE    }
-// OBSOLETE       element->symbol = sym;
-// OBSOLETE     }
-// OBSOLETE   *nsyms_ret = nsyms;
-// OBSOLETE   return list;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE static struct symbol *
-// OBSOLETE process_dst_function (struct objfile *objfile, dst_rec_ptr_t entry, char *name,
-// OBSOLETE                  CORE_ADDR address)
-// OBSOLETE {
-// OBSOLETE   struct symbol *sym;
-// OBSOLETE   struct type *type, *ftype;
-// OBSOLETE   dst_rec_ptr_t sym_entry, typ_entry;
-// OBSOLETE   char *location;
-// OBSOLETE   struct symbol_list *element;
-// OBSOLETE 
-// OBSOLETE   type = builtin_type_int;
-// OBSOLETE   sym = create_new_symbol (objfile, name);
-// OBSOLETE   SYMBOL_CLASS (sym) = LOC_BLOCK;
-// OBSOLETE 
-// OBSOLETE   if (entry)
-// OBSOLETE     {
-// OBSOLETE       location = (char *) entry;
-// OBSOLETE       do
-// OBSOLETE    {
-// OBSOLETE      NEXT_SYM (&location, &sym_entry);
-// OBSOLETE    }
-// OBSOLETE       while (sym_entry && sym_entry->rec_type != dst_typ_signature);
-// OBSOLETE 
-// OBSOLETE       if (sym_entry)
-// OBSOLETE    {
-// OBSOLETE      SYMBOL_LINE (sym) =
-// OBSOLETE        DST_signature (sym_entry).src_loc.line_number;
-// OBSOLETE      if (DST_signature (sym_entry).result)
-// OBSOLETE        {
-// OBSOLETE          typ_entry = (dst_rec_ptr_t)
-// OBSOLETE            DST_OFFSET (sym_entry,
-// OBSOLETE                        DST_signature (sym_entry).result);
-// OBSOLETE          type = decode_dst_type (objfile, typ_entry);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (!type->function_type)
-// OBSOLETE     {
-// OBSOLETE       ftype = alloc_type (objfile);
-// OBSOLETE       type->function_type = ftype;
-// OBSOLETE       TYPE_TARGET_TYPE (ftype) = type;
-// OBSOLETE       TYPE_CODE (ftype) = TYPE_CODE_FUNC;
-// OBSOLETE     }
-// OBSOLETE   SYMBOL_TYPE (sym) = type->function_type;
-// OBSOLETE 
-// OBSOLETE   /* Now add ourselves to the global symbols list */
-// OBSOLETE   element = (struct symbol_list *)
-// OBSOLETE     xmalloc (sizeof (struct symbol_list));
-// OBSOLETE 
-// OBSOLETE   element->next = dst_global_symbols;
-// OBSOLETE   dst_global_symbols = element;
-// OBSOLETE   total_globals++;
-// OBSOLETE   element->symbol = sym;
-// OBSOLETE 
-// OBSOLETE   return sym;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct block *
-// OBSOLETE process_dst_block (struct objfile *objfile, dst_rec_ptr_t entry)
-// OBSOLETE {
-// OBSOLETE   struct block *block;
-// OBSOLETE   struct symbol *function = NULL;
-// OBSOLETE   CORE_ADDR address;
-// OBSOLETE   long size;
-// OBSOLETE   char *name;
-// OBSOLETE   dst_rec_ptr_t child_entry, symbol_entry;
-// OBSOLETE   struct block *child_block;
-// OBSOLETE   int total_symbols = 0;
-// OBSOLETE   char fake_name[20];
-// OBSOLETE   static long fake_seq = 0;
-// OBSOLETE   struct symbol_list *symlist, *nextsym;
-// OBSOLETE   int symnum;
-// OBSOLETE 
-// OBSOLETE   if (DST_block (entry).noffset)
-// OBSOLETE     name = DST_OFFSET (entry, DST_block (entry).noffset);
-// OBSOLETE   else
-// OBSOLETE     name = NULL;
-// OBSOLETE   if (DST_block (entry).n_of_code_ranges)
-// OBSOLETE     {
-// OBSOLETE       address = dst_sym_addr (
-// OBSOLETE                           &DST_block (entry).code_ranges[0].code_start);
-// OBSOLETE       size = DST_block (entry).code_ranges[0].code_size;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       address = -1;
-// OBSOLETE       size = 0;
-// OBSOLETE     }
-// OBSOLETE   symbol_entry = (dst_rec_ptr_t) get_sec_ref (&DST_block (entry).symbols_start);
-// OBSOLETE   switch (DST_block (entry).block_type)
-// OBSOLETE     {
-// OBSOLETE       /* These are all really functions. Even the "program" type.
-// OBSOLETE        * This is because the Apollo OS was written in Pascal, and
-// OBSOLETE        * in Pascal, the main procedure is described as the Program.
-// OBSOLETE        * Cute, huh?
-// OBSOLETE        */
-// OBSOLETE     case dst_block_procedure:
-// OBSOLETE     case dst_block_function:
-// OBSOLETE     case dst_block_subroutine:
-// OBSOLETE     case dst_block_program:
-// OBSOLETE       prim_record_minimal_symbol (name, address, mst_text, objfile);
-// OBSOLETE       function = process_dst_function (
-// OBSOLETE                                    objfile,
-// OBSOLETE                                    symbol_entry,
-// OBSOLETE                                    name,
-// OBSOLETE                                    address);
-// OBSOLETE       enter_all_lines (get_sec_ref (&DST_block (entry).code_ranges[0].lines_start), address);
-// OBSOLETE       break;
-// OBSOLETE     case dst_block_block_data:
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     default:
-// OBSOLETE       /* GDB has to call it something, and the module name
-// OBSOLETE        * won't cut it
-// OBSOLETE        */
-// OBSOLETE       sprintf (fake_name, "block_%08lx", fake_seq++);
-// OBSOLETE       function = process_dst_function (
-// OBSOLETE                                    objfile, NULL, fake_name, address);
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   symlist = process_dst_symbols (objfile, symbol_entry,
-// OBSOLETE                             name, &total_symbols);
-// OBSOLETE   block = (struct block *)
-// OBSOLETE     obstack_alloc (&objfile->symbol_obstack,
-// OBSOLETE               sizeof (struct block) +
-// OBSOLETE                 (total_symbols - 1) * sizeof (struct symbol *));
-// OBSOLETE 
-// OBSOLETE   symnum = 0;
-// OBSOLETE   while (symlist)
-// OBSOLETE     {
-// OBSOLETE       nextsym = symlist->next;
-// OBSOLETE 
-// OBSOLETE       block->sym[symnum] = symlist->symbol;
-// OBSOLETE 
-// OBSOLETE       xfree (symlist);
-// OBSOLETE       symlist = nextsym;
-// OBSOLETE       symnum++;
-// OBSOLETE     }
-// OBSOLETE   BLOCK_NSYMS (block) = total_symbols;
-// OBSOLETE   BLOCK_HASHTABLE (block) = 0;
-// OBSOLETE   BLOCK_START (block) = address;
-// OBSOLETE   BLOCK_END (block) = address + size;
-// OBSOLETE   BLOCK_SUPERBLOCK (block) = 0;
-// OBSOLETE   if (function)
-// OBSOLETE     {
-// OBSOLETE       SYMBOL_BLOCK_VALUE (function) = block;
-// OBSOLETE       BLOCK_FUNCTION (block) = function;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     BLOCK_FUNCTION (block) = 0;
-// OBSOLETE 
-// OBSOLETE   if (DST_block (entry).child_block_off)
-// OBSOLETE     {
-// OBSOLETE       child_entry = (dst_rec_ptr_t) DST_OFFSET (entry,
-// OBSOLETE                                     DST_block (entry).child_block_off);
-// OBSOLETE       while (child_entry)
-// OBSOLETE    {
-// OBSOLETE      child_block = process_dst_block (objfile, child_entry);
-// OBSOLETE      if (child_block)
-// OBSOLETE        {
-// OBSOLETE          if (BLOCK_START (child_block) <
-// OBSOLETE              BLOCK_START (block) ||
-// OBSOLETE              BLOCK_START (block) == -1)
-// OBSOLETE            BLOCK_START (block) =
-// OBSOLETE              BLOCK_START (child_block);
-// OBSOLETE          if (BLOCK_END (child_block) >
-// OBSOLETE              BLOCK_END (block) ||
-// OBSOLETE              BLOCK_END (block) == -1)
-// OBSOLETE            BLOCK_END (block) =
-// OBSOLETE              BLOCK_END (child_block);
-// OBSOLETE          BLOCK_SUPERBLOCK (child_block) = block;
-// OBSOLETE        }
-// OBSOLETE      if (DST_block (child_entry).sibling_block_off)
-// OBSOLETE        child_entry = (dst_rec_ptr_t) DST_OFFSET (
-// OBSOLETE                                                   child_entry,
-// OBSOLETE                             DST_block (child_entry).sibling_block_off);
-// OBSOLETE      else
-// OBSOLETE        child_entry = NULL;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   record_pending_block (objfile, block, NULL);
-// OBSOLETE   return block;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE read_dst_symtab (struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   char *buffer;
-// OBSOLETE   dst_rec_ptr_t entry, file_table, root_block;
-// OBSOLETE   char *source_file;
-// OBSOLETE   struct block *block, *global_block;
-// OBSOLETE   int symnum;
-// OBSOLETE   struct symbol_list *nextsym;
-// OBSOLETE   int module_num = 0;
-// OBSOLETE   struct structure_list *element;
-// OBSOLETE 
-// OBSOLETE   current_objfile = objfile;
-// OBSOLETE   buffer = blocks_info.buffer;
-// OBSOLETE   while (NEXT_BLK (&buffer, &entry))
-// OBSOLETE     {
-// OBSOLETE       if (entry->rec_type == dst_typ_comp_unit)
-// OBSOLETE    {
-// OBSOLETE      file_table = (dst_rec_ptr_t) DST_OFFSET (entry,
-// OBSOLETE                                      DST_comp_unit (entry).file_table);
-// OBSOLETE      section_table = (dst_rec_ptr_t) DST_OFFSET (entry,
-// OBSOLETE                                   DST_comp_unit (entry).section_table);
-// OBSOLETE      root_block = (dst_rec_ptr_t) DST_OFFSET (entry,
-// OBSOLETE                               DST_comp_unit (entry).root_block_offset);
-// OBSOLETE      source_file = DST_OFFSET (file_table,
-// OBSOLETE                            DST_file_tab (file_table).files[0].noffset);
-// OBSOLETE      /* Point buffer to the start of the next comp_unit */
-// OBSOLETE      buffer = DST_OFFSET (entry,
-// OBSOLETE                           DST_comp_unit (entry).data_size);
-// OBSOLETE      dst_start_symtab ();
-// OBSOLETE 
-// OBSOLETE      block = process_dst_block (objfile, root_block);
-// OBSOLETE 
-// OBSOLETE      global_block = (struct block *)
-// OBSOLETE        obstack_alloc (&objfile->symbol_obstack,
-// OBSOLETE                       sizeof (struct block) +
-// OBSOLETE                         (total_globals - 1) *
-// OBSOLETE                       sizeof (struct symbol *));
-// OBSOLETE      BLOCK_NSYMS (global_block) = total_globals;
-// OBSOLETE      BLOCK_HASHTABLE (global_block) = 0;
-// OBSOLETE      for (symnum = 0; symnum < total_globals; symnum++)
-// OBSOLETE        {
-// OBSOLETE          nextsym = dst_global_symbols->next;
-// OBSOLETE 
-// OBSOLETE          global_block->sym[symnum] =
-// OBSOLETE            dst_global_symbols->symbol;
-// OBSOLETE 
-// OBSOLETE          xfree (dst_global_symbols);
-// OBSOLETE          dst_global_symbols = nextsym;
-// OBSOLETE        }
-// OBSOLETE      dst_global_symbols = NULL;
-// OBSOLETE      total_globals = 0;
-// OBSOLETE      BLOCK_FUNCTION (global_block) = 0;
-// OBSOLETE      BLOCK_START (global_block) = BLOCK_START (block);
-// OBSOLETE      BLOCK_END (global_block) = BLOCK_END (block);
-// OBSOLETE      BLOCK_SUPERBLOCK (global_block) = 0;
-// OBSOLETE      BLOCK_SUPERBLOCK (block) = global_block;
-// OBSOLETE      record_pending_block (objfile, global_block, NULL);
-// OBSOLETE 
-// OBSOLETE      complete_symtab (source_file,
-// OBSOLETE                       BLOCK_START (block),
-// OBSOLETE                       BLOCK_END (block) - BLOCK_START (block));
-// OBSOLETE      module_num++;
-// OBSOLETE      dst_end_symtab (objfile);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   if (module_num)
-// OBSOLETE     prim_record_minimal_symbol ("<end_of_program>",
-// OBSOLETE                            BLOCK_END (block), mst_text, objfile);
-// OBSOLETE   /* One more faked symbol to make sure nothing can ever run off the
-// OBSOLETE    * end of the symbol table. This one represents the end of the
-// OBSOLETE    * text space. It used to be (CORE_ADDR) -1 (effectively the highest
-// OBSOLETE    * int possible), but some parts of gdb treated it as a signed
-// OBSOLETE    * number and failed comparisons. We could equally use 7fffffff,
-// OBSOLETE    * but no functions are ever mapped to an address higher than
-// OBSOLETE    * 40000000
-// OBSOLETE    */
-// OBSOLETE   prim_record_minimal_symbol ("<end_of_text>",
-// OBSOLETE                          (CORE_ADDR) 0x40000000,
-// OBSOLETE                          mst_text, objfile);
-// OBSOLETE   while (struct_list)
-// OBSOLETE     {
-// OBSOLETE       element = struct_list;
-// OBSOLETE       struct_list = element->next;
-// OBSOLETE       xfree (element);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Support for line number handling */
-// OBSOLETE static char *linetab = NULL;
-// OBSOLETE static long linetab_offset;
-// OBSOLETE static unsigned long linetab_size;
-// OBSOLETE 
-// OBSOLETE /* Read in all the line numbers for fast lookups later.  Leave them in
-// OBSOLETE    external (unswapped) format in memory; we'll swap them as we enter
-// OBSOLETE    them into GDB's data structures.  */
-// OBSOLETE static int
-// OBSOLETE init_one_section (int chan, dst_sec *secinfo)
-// OBSOLETE {
-// OBSOLETE   if (secinfo->size == 0
-// OBSOLETE       || lseek (chan, secinfo->position, 0) == -1
-// OBSOLETE       || (secinfo->buffer = xmalloc (secinfo->size)) == NULL
-// OBSOLETE       || myread (chan, secinfo->buffer, secinfo->size) == -1)
-// OBSOLETE     return 0;
-// OBSOLETE   else
-// OBSOLETE     return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE init_dst_sections (int chan)
-// OBSOLETE {
-// OBSOLETE 
-// OBSOLETE   if (!init_one_section (chan, &blocks_info) ||
-// OBSOLETE       !init_one_section (chan, &lines_info) ||
-// OBSOLETE       !init_one_section (chan, &symbols_info))
-// OBSOLETE     return -1;
-// OBSOLETE   else
-// OBSOLETE     return 0;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Fake up support for relocating symbol addresses.  FIXME.  */
-// OBSOLETE 
-// OBSOLETE struct section_offsets dst_symfile_faker =
-// OBSOLETE {0};
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE dst_symfile_offsets (struct objfile *objfile, struct section_addr_info *addrs)
-// OBSOLETE {
-// OBSOLETE   objfile->num_sections = 1;
-// OBSOLETE   objfile->section_offsets = &dst_symfile_faker;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Register our ability to parse symbols for DST BFD files */
-// OBSOLETE 
-// OBSOLETE static struct sym_fns dst_sym_fns =
-// OBSOLETE {
-// OBSOLETE   /* FIXME: Can this be integrated with coffread.c?  If not, should it be
-// OBSOLETE      a separate flavour like ecoff?  */
-// OBSOLETE   (enum bfd_flavour) -2,
-// OBSOLETE 
-// OBSOLETE   dst_new_init,                    /* sym_new_init: init anything gbl to entire symtab */
-// OBSOLETE   dst_symfile_init,                /* sym_init: read initial info, setup for sym_read() */
-// OBSOLETE   dst_symfile_read,                /* sym_read: read a symbol file into symtab */
-// OBSOLETE   dst_symfile_finish,              /* sym_finish: finished with file, cleanup */
-// OBSOLETE   dst_symfile_offsets,             /* sym_offsets:  xlate external to internal form */
-// OBSOLETE   NULL                             /* next: pointer to next struct sym_fns */
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_dstread (void)
-// OBSOLETE {
-// OBSOLETE   add_symtab_fns (&dst_sym_fns);
-// OBSOLETE }
diff --git a/gdb/fr30-tdep.c b/gdb/fr30-tdep.c
deleted file mode 100644 (file)
index 12e9f7e..0000000
+++ /dev/null
@@ -1,601 +0,0 @@
-// OBSOLETE /* Target-dependent code for the Fujitsu FR30.
-// OBSOLETE    Copyright 1999, 2000, 2001 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "obstack.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "bfd.h"
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "symfile.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE /* An expression that tells us whether the function invocation represented
-// OBSOLETE    by FI does not have a frame on the stack associated with it.  */
-// OBSOLETE int
-// OBSOLETE fr30_frameless_function_invocation (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   int frameless;
-// OBSOLETE   CORE_ADDR func_start, after_prologue;
-// OBSOLETE   func_start = (get_pc_function_start ((fi)->pc) +
-// OBSOLETE            FUNCTION_START_OFFSET);
-// OBSOLETE   after_prologue = func_start;
-// OBSOLETE   after_prologue = SKIP_PROLOGUE (after_prologue);
-// OBSOLETE   frameless = (after_prologue == func_start);
-// OBSOLETE   return frameless;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Function: pop_frame
-// OBSOLETE    This routine gets called when either the user uses the `return'
-// OBSOLETE    command, or the call dummy breakpoint gets hit.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fr30_pop_frame (void)
-// OBSOLETE {
-// OBSOLETE   struct frame_info *frame = get_current_frame ();
-// OBSOLETE   int regnum;
-// OBSOLETE   CORE_ADDR sp = read_register (SP_REGNUM);
-// OBSOLETE 
-// OBSOLETE   if (PC_IN_CALL_DUMMY (frame->pc, frame->frame, frame->frame))
-// OBSOLETE     generic_pop_dummy_frame ();
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       write_register (PC_REGNUM, FRAME_SAVED_PC (frame));
-// OBSOLETE 
-// OBSOLETE       for (regnum = 0; regnum < NUM_REGS; regnum++)
-// OBSOLETE    if (frame->fsr.regs[regnum] != 0)
-// OBSOLETE      {
-// OBSOLETE        write_register (regnum,
-// OBSOLETE                  read_memory_unsigned_integer (frame->fsr.regs[regnum],
-// OBSOLETE                                           REGISTER_RAW_SIZE (regnum)));
-// OBSOLETE      }
-// OBSOLETE       write_register (SP_REGNUM, sp + frame->framesize);
-// OBSOLETE     }
-// OBSOLETE   flush_cached_frames ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Function: fr30_store_return_value
-// OBSOLETE    Put a value where a caller expects to see it.  Used by the 'return'
-// OBSOLETE    command.  */
-// OBSOLETE void
-// OBSOLETE fr30_store_return_value (struct type *type,
-// OBSOLETE                     char *valbuf)
-// OBSOLETE {
-// OBSOLETE   /* Here's how the FR30 returns values (gleaned from gcc/config/
-// OBSOLETE      fr30/fr30.h):
-// OBSOLETE 
-// OBSOLETE      If the return value is 32 bits long or less, it goes in r4.
-// OBSOLETE 
-// OBSOLETE      If the return value is 64 bits long or less, it goes in r4 (most
-// OBSOLETE      significant word) and r5 (least significant word.
-// OBSOLETE 
-// OBSOLETE      If the function returns a structure, of any size, the caller
-// OBSOLETE      passes the function an invisible first argument where the callee
-// OBSOLETE      should store the value.  But GDB doesn't let you do that anyway.
-// OBSOLETE 
-// OBSOLETE      If you're returning a value smaller than a word, it's not really
-// OBSOLETE      necessary to zero the upper bytes of the register; the caller is
-// OBSOLETE      supposed to ignore them.  However, the FR30 typically keeps its
-// OBSOLETE      values extended to the full register width, so we should emulate
-// OBSOLETE      that.  */
-// OBSOLETE 
-// OBSOLETE   /* The FR30 is big-endian, so if we return a small value (like a
-// OBSOLETE      short or a char), we need to position it correctly within the
-// OBSOLETE      register.  We round the size up to a register boundary, and then
-// OBSOLETE      adjust the offset so as to place the value at the right end.  */
-// OBSOLETE   int value_size = TYPE_LENGTH (type);
-// OBSOLETE   int returned_size = (value_size + FR30_REGSIZE - 1) & ~(FR30_REGSIZE - 1);
-// OBSOLETE   int offset = (REGISTER_BYTE (RETVAL_REG)
-// OBSOLETE            + (returned_size - value_size));
-// OBSOLETE   char *zeros = alloca (returned_size);
-// OBSOLETE   memset (zeros, 0, returned_size);
-// OBSOLETE 
-// OBSOLETE   write_register_bytes (REGISTER_BYTE (RETVAL_REG), zeros, returned_size);
-// OBSOLETE   write_register_bytes (offset, valbuf, value_size);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Function: skip_prologue
-// OBSOLETE    Return the address of the first code past the prologue of the function.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE fr30_skip_prologue (CORE_ADDR pc)
-// OBSOLETE {
-// OBSOLETE   CORE_ADDR func_addr, func_end;
-// OBSOLETE 
-// OBSOLETE   /* See what the symbol table says */
-// OBSOLETE 
-// OBSOLETE   if (find_pc_partial_function (pc, NULL, &func_addr, &func_end))
-// OBSOLETE     {
-// OBSOLETE       struct symtab_and_line sal;
-// OBSOLETE 
-// OBSOLETE       sal = find_pc_line (func_addr, 0);
-// OBSOLETE 
-// OBSOLETE       if (sal.line != 0 && sal.end < func_end)
-// OBSOLETE    {
-// OBSOLETE      return sal.end;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE /* Either we didn't find the start of this function (nothing we can do),
-// OBSOLETE    or there's no line info, or the line after the prologue is after
-// OBSOLETE    the end of the function (there probably isn't a prologue). */
-// OBSOLETE 
-// OBSOLETE   return pc;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Function: push_arguments
-// OBSOLETE    Setup arguments and RP for a call to the target.  First four args
-// OBSOLETE    go in FIRST_ARGREG -> LAST_ARGREG, subsequent args go on stack...
-// OBSOLETE    Structs are passed by reference.  XXX not right now Z.R.
-// OBSOLETE    64 bit quantities (doubles and long longs) may be split between
-// OBSOLETE    the regs and the stack.
-// OBSOLETE    When calling a function that returns a struct, a pointer to the struct
-// OBSOLETE    is passed in as a secret first argument (always in FIRST_ARGREG).
-// OBSOLETE 
-// OBSOLETE    Stack space for the args has NOT been allocated: that job is up to us.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE fr30_push_arguments (int nargs, struct value **args, CORE_ADDR sp,
-// OBSOLETE                 int struct_return, CORE_ADDR struct_addr)
-// OBSOLETE {
-// OBSOLETE   int argreg;
-// OBSOLETE   int argnum;
-// OBSOLETE   int stack_offset;
-// OBSOLETE   struct stack_arg
-// OBSOLETE     {
-// OBSOLETE       char *val;
-// OBSOLETE       int len;
-// OBSOLETE       int offset;
-// OBSOLETE     };
-// OBSOLETE   struct stack_arg *stack_args =
-// OBSOLETE   (struct stack_arg *) alloca (nargs * sizeof (struct stack_arg));
-// OBSOLETE   int nstack_args = 0;
-// OBSOLETE 
-// OBSOLETE   argreg = FIRST_ARGREG;
-// OBSOLETE 
-// OBSOLETE   /* the struct_return pointer occupies the first parameter-passing reg */
-// OBSOLETE   if (struct_return)
-// OBSOLETE     write_register (argreg++, struct_addr);
-// OBSOLETE 
-// OBSOLETE   stack_offset = 0;
-// OBSOLETE 
-// OBSOLETE   /* Process args from left to right.  Store as many as allowed in
-// OBSOLETE      registers, save the rest to be pushed on the stack */
-// OBSOLETE   for (argnum = 0; argnum < nargs; argnum++)
-// OBSOLETE     {
-// OBSOLETE       char *val;
-// OBSOLETE       struct value *arg = args[argnum];
-// OBSOLETE       struct type *arg_type = check_typedef (VALUE_TYPE (arg));
-// OBSOLETE       struct type *target_type = TYPE_TARGET_TYPE (arg_type);
-// OBSOLETE       int len = TYPE_LENGTH (arg_type);
-// OBSOLETE       enum type_code typecode = TYPE_CODE (arg_type);
-// OBSOLETE       CORE_ADDR regval;
-// OBSOLETE       int newarg;
-// OBSOLETE 
-// OBSOLETE       val = (char *) VALUE_CONTENTS (arg);
-// OBSOLETE 
-// OBSOLETE       {
-// OBSOLETE    /* Copy the argument to general registers or the stack in
-// OBSOLETE       register-sized pieces.  Large arguments are split between
-// OBSOLETE       registers and stack.  */
-// OBSOLETE    while (len > 0)
-// OBSOLETE      {
-// OBSOLETE        if (argreg <= LAST_ARGREG)
-// OBSOLETE          {
-// OBSOLETE            int partial_len = len < REGISTER_SIZE ? len : REGISTER_SIZE;
-// OBSOLETE            regval = extract_address (val, partial_len);
-// OBSOLETE 
-// OBSOLETE            /* It's a simple argument being passed in a general
-// OBSOLETE               register.  */
-// OBSOLETE            write_register (argreg, regval);
-// OBSOLETE            argreg++;
-// OBSOLETE            len -= partial_len;
-// OBSOLETE            val += partial_len;
-// OBSOLETE          }
-// OBSOLETE        else
-// OBSOLETE          {
-// OBSOLETE            /* keep for later pushing */
-// OBSOLETE            stack_args[nstack_args].val = val;
-// OBSOLETE            stack_args[nstack_args++].len = len;
-// OBSOLETE            break;
-// OBSOLETE          }
-// OBSOLETE      }
-// OBSOLETE       }
-// OBSOLETE     }
-// OBSOLETE   /* now do the real stack pushing, process args right to left */
-// OBSOLETE   while (nstack_args--)
-// OBSOLETE     {
-// OBSOLETE       sp -= stack_args[nstack_args].len;
-// OBSOLETE       write_memory (sp, stack_args[nstack_args].val,
-// OBSOLETE                stack_args[nstack_args].len);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Return adjusted stack pointer.  */
-// OBSOLETE   return sp;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void _initialize_fr30_tdep (void);
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_fr30_tdep (void)
-// OBSOLETE {
-// OBSOLETE   extern int print_insn_fr30 (bfd_vma, disassemble_info *);
-// OBSOLETE   tm_print_insn = print_insn_fr30;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Function: check_prologue_cache
-// OBSOLETE    Check if prologue for this frame's PC has already been scanned.
-// OBSOLETE    If it has, copy the relevant information about that prologue and
-// OBSOLETE    return non-zero.  Otherwise do not copy anything and return zero.
-// OBSOLETE 
-// OBSOLETE    The information saved in the cache includes:
-// OBSOLETE    * the frame register number;
-// OBSOLETE    * the size of the stack frame;
-// OBSOLETE    * the offsets of saved regs (relative to the old SP); and
-// OBSOLETE    * the offset from the stack pointer to the frame pointer
-// OBSOLETE 
-// OBSOLETE    The cache contains only one entry, since this is adequate
-// OBSOLETE    for the typical sequence of prologue scan requests we get.
-// OBSOLETE    When performing a backtrace, GDB will usually ask to scan
-// OBSOLETE    the same function twice in a row (once to get the frame chain,
-// OBSOLETE    and once to fill in the extra frame information).
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static struct frame_info prologue_cache;
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE check_prologue_cache (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   if (fi->pc == prologue_cache.pc)
-// OBSOLETE     {
-// OBSOLETE       fi->framereg = prologue_cache.framereg;
-// OBSOLETE       fi->framesize = prologue_cache.framesize;
-// OBSOLETE       fi->frameoffset = prologue_cache.frameoffset;
-// OBSOLETE       for (i = 0; i <= NUM_REGS; i++)
-// OBSOLETE    fi->fsr.regs[i] = prologue_cache.fsr.regs[i];
-// OBSOLETE       return 1;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     return 0;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Function: save_prologue_cache
-// OBSOLETE    Copy the prologue information from fi to the prologue cache.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE save_prologue_cache (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   prologue_cache.pc = fi->pc;
-// OBSOLETE   prologue_cache.framereg = fi->framereg;
-// OBSOLETE   prologue_cache.framesize = fi->framesize;
-// OBSOLETE   prologue_cache.frameoffset = fi->frameoffset;
-// OBSOLETE 
-// OBSOLETE   for (i = 0; i <= NUM_REGS; i++)
-// OBSOLETE     {
-// OBSOLETE       prologue_cache.fsr.regs[i] = fi->fsr.regs[i];
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Function: scan_prologue
-// OBSOLETE    Scan the prologue of the function that contains PC, and record what
-// OBSOLETE    we find in PI.  PI->fsr must be zeroed by the called.  Returns the
-// OBSOLETE    pc after the prologue.  Note that the addresses saved in pi->fsr
-// OBSOLETE    are actually just frame relative (negative offsets from the frame
-// OBSOLETE    pointer).  This is because we don't know the actual value of the
-// OBSOLETE    frame pointer yet.  In some circumstances, the frame pointer can't
-// OBSOLETE    be determined till after we have scanned the prologue.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE fr30_scan_prologue (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   int sp_offset, fp_offset;
-// OBSOLETE   CORE_ADDR prologue_start, prologue_end, current_pc;
-// OBSOLETE 
-// OBSOLETE   /* Check if this function is already in the cache of frame information. */
-// OBSOLETE   if (check_prologue_cache (fi))
-// OBSOLETE     return;
-// OBSOLETE 
-// OBSOLETE   /* Assume there is no frame until proven otherwise.  */
-// OBSOLETE   fi->framereg = SP_REGNUM;
-// OBSOLETE   fi->framesize = 0;
-// OBSOLETE   fi->frameoffset = 0;
-// OBSOLETE 
-// OBSOLETE   /* Find the function prologue.  If we can't find the function in
-// OBSOLETE      the symbol table, peek in the stack frame to find the PC.  */
-// OBSOLETE   if (find_pc_partial_function (fi->pc, NULL, &prologue_start, &prologue_end))
-// OBSOLETE     {
-// OBSOLETE       /* Assume the prologue is everything between the first instruction
-// OBSOLETE          in the function and the first source line.  */
-// OBSOLETE       struct symtab_and_line sal = find_pc_line (prologue_start, 0);
-// OBSOLETE 
-// OBSOLETE       if (sal.line == 0)   /* no line info, use current PC */
-// OBSOLETE    prologue_end = fi->pc;
-// OBSOLETE       else if (sal.end < prologue_end)     /* next line begins after fn end */
-// OBSOLETE    prologue_end = sal.end; /* (probably means no prologue)  */
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       /* XXX Z.R. What now??? The following is entirely bogus */
-// OBSOLETE       prologue_start = (read_memory_integer (fi->frame, 4) & 0x03fffffc) - 12;
-// OBSOLETE       prologue_end = prologue_start + 40;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Now search the prologue looking for instructions that set up the
-// OBSOLETE      frame pointer, adjust the stack pointer, and save registers.  */
-// OBSOLETE 
-// OBSOLETE   sp_offset = fp_offset = 0;
-// OBSOLETE   for (current_pc = prologue_start; current_pc < prologue_end; current_pc += 2)
-// OBSOLETE     {
-// OBSOLETE       unsigned int insn;
-// OBSOLETE 
-// OBSOLETE       insn = read_memory_unsigned_integer (current_pc, 2);
-// OBSOLETE 
-// OBSOLETE       if ((insn & 0xfe00) == 0x8e00)       /* stm0 or stm1 */
-// OBSOLETE    {
-// OBSOLETE      int reg, mask = insn & 0xff;
-// OBSOLETE 
-// OBSOLETE      /* scan in one sweep - create virtual 16-bit mask from either insn's mask */
-// OBSOLETE      if ((insn & 0x0100) == 0)
-// OBSOLETE        {
-// OBSOLETE          mask <<= 8;       /* stm0 - move to upper byte in virtual mask */
-// OBSOLETE        }
-// OBSOLETE 
-// OBSOLETE      /* Calculate offsets of saved registers (to be turned later into addresses). */
-// OBSOLETE      for (reg = R4_REGNUM; reg <= R11_REGNUM; reg++)
-// OBSOLETE        if (mask & (1 << (15 - reg)))
-// OBSOLETE          {
-// OBSOLETE            sp_offset -= 4;
-// OBSOLETE            fi->fsr.regs[reg] = sp_offset;
-// OBSOLETE          }
-// OBSOLETE    }
-// OBSOLETE       else if ((insn & 0xfff0) == 0x1700)  /* st rx,@-r15 */
-// OBSOLETE    {
-// OBSOLETE      int reg = insn & 0xf;
-// OBSOLETE 
-// OBSOLETE      sp_offset -= 4;
-// OBSOLETE      fi->fsr.regs[reg] = sp_offset;
-// OBSOLETE    }
-// OBSOLETE       else if ((insn & 0xff00) == 0x0f00)  /* enter */
-// OBSOLETE    {
-// OBSOLETE      fp_offset = fi->fsr.regs[FP_REGNUM] = sp_offset - 4;
-// OBSOLETE      sp_offset -= 4 * (insn & 0xff);
-// OBSOLETE      fi->framereg = FP_REGNUM;
-// OBSOLETE    }
-// OBSOLETE       else if (insn == 0x1781)     /* st rp,@-sp */
-// OBSOLETE    {
-// OBSOLETE      sp_offset -= 4;
-// OBSOLETE      fi->fsr.regs[RP_REGNUM] = sp_offset;
-// OBSOLETE    }
-// OBSOLETE       else if (insn == 0x170e)     /* st fp,@-sp */
-// OBSOLETE    {
-// OBSOLETE      sp_offset -= 4;
-// OBSOLETE      fi->fsr.regs[FP_REGNUM] = sp_offset;
-// OBSOLETE    }
-// OBSOLETE       else if (insn == 0x8bfe)     /* mov sp,fp */
-// OBSOLETE    {
-// OBSOLETE      fi->framereg = FP_REGNUM;
-// OBSOLETE    }
-// OBSOLETE       else if ((insn & 0xff00) == 0xa300)  /* addsp xx */
-// OBSOLETE    {
-// OBSOLETE      sp_offset += 4 * (signed char) (insn & 0xff);
-// OBSOLETE    }
-// OBSOLETE       else if ((insn & 0xff0f) == 0x9b00 &&        /* ldi:20 xx,r0 */
-// OBSOLETE           read_memory_unsigned_integer (current_pc + 4, 2)
-// OBSOLETE           == 0xac0f)       /* sub r0,sp */
-// OBSOLETE    {
-// OBSOLETE      /* large stack adjustment */
-// OBSOLETE      sp_offset -= (((insn & 0xf0) << 12) | read_memory_unsigned_integer (current_pc + 2, 2));
-// OBSOLETE      current_pc += 4;
-// OBSOLETE    }
-// OBSOLETE       else if (insn == 0x9f80 &&   /* ldi:32 xx,r0 */
-// OBSOLETE           read_memory_unsigned_integer (current_pc + 6, 2)
-// OBSOLETE           == 0xac0f)       /* sub r0,sp */
-// OBSOLETE    {
-// OBSOLETE      /* large stack adjustment */
-// OBSOLETE      sp_offset -=
-// OBSOLETE        (read_memory_unsigned_integer (current_pc + 2, 2) << 16 |
-// OBSOLETE         read_memory_unsigned_integer (current_pc + 4, 2));
-// OBSOLETE      current_pc += 6;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* The frame size is just the negative of the offset (from the original SP)
-// OBSOLETE      of the last thing thing we pushed on the stack.  The frame offset is
-// OBSOLETE      [new FP] - [new SP].  */
-// OBSOLETE   fi->framesize = -sp_offset;
-// OBSOLETE   fi->frameoffset = fp_offset - sp_offset;
-// OBSOLETE 
-// OBSOLETE   save_prologue_cache (fi);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Function: init_extra_frame_info
-// OBSOLETE    Setup the frame's frame pointer, pc, and frame addresses for saved
-// OBSOLETE    registers.  Most of the work is done in scan_prologue().
-// OBSOLETE 
-// OBSOLETE    Note that when we are called for the last frame (currently active frame),
-// OBSOLETE    that fi->pc and fi->frame will already be setup.  However, fi->frame will
-// OBSOLETE    be valid only if this routine uses FP.  For previous frames, fi-frame will
-// OBSOLETE    always be correct (since that is derived from fr30_frame_chain ()).
-// OBSOLETE 
-// OBSOLETE    We can be called with the PC in the call dummy under two circumstances.
-// OBSOLETE    First, during normal backtracing, second, while figuring out the frame
-// OBSOLETE    pointer just prior to calling the target function (see run_stack_dummy).  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fr30_init_extra_frame_info (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   int reg;
-// OBSOLETE 
-// OBSOLETE   if (fi->next)
-// OBSOLETE     fi->pc = FRAME_SAVED_PC (fi->next);
-// OBSOLETE 
-// OBSOLETE   memset (fi->fsr.regs, '\000', sizeof fi->fsr.regs);
-// OBSOLETE 
-// OBSOLETE   if (PC_IN_CALL_DUMMY (fi->pc, fi->frame, fi->frame))
-// OBSOLETE     {
-// OBSOLETE       /* We need to setup fi->frame here because run_stack_dummy gets it wrong
-// OBSOLETE          by assuming it's always FP.  */
-// OBSOLETE       fi->frame = generic_read_register_dummy (fi->pc, fi->frame, SP_REGNUM);
-// OBSOLETE       fi->framesize = 0;
-// OBSOLETE       fi->frameoffset = 0;
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE   fr30_scan_prologue (fi);
-// OBSOLETE 
-// OBSOLETE   if (!fi->next)           /* this is the innermost frame? */
-// OBSOLETE     fi->frame = read_register (fi->framereg);
-// OBSOLETE   else
-// OBSOLETE     /* not the innermost frame */
-// OBSOLETE     /* If we have an FP,  the callee saved it. */
-// OBSOLETE     if (fi->framereg == FP_REGNUM)
-// OBSOLETE       if (fi->next->fsr.regs[fi->framereg] != 0)
-// OBSOLETE    fi->frame = read_memory_integer (fi->next->fsr.regs[fi->framereg], 4);
-// OBSOLETE 
-// OBSOLETE   /* Calculate actual addresses of saved registers using offsets determined
-// OBSOLETE      by fr30_scan_prologue.  */
-// OBSOLETE   for (reg = 0; reg < NUM_REGS; reg++)
-// OBSOLETE     if (fi->fsr.regs[reg] != 0)
-// OBSOLETE       {
-// OBSOLETE    fi->fsr.regs[reg] += fi->frame + fi->framesize - fi->frameoffset;
-// OBSOLETE       }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Function: find_callers_reg
-// OBSOLETE    Find REGNUM on the stack.  Otherwise, it's in an active register.
-// OBSOLETE    One thing we might want to do here is to check REGNUM against the
-// OBSOLETE    clobber mask, and somehow flag it as invalid if it isn't saved on
-// OBSOLETE    the stack somewhere.  This would provide a graceful failure mode
-// OBSOLETE    when trying to get the value of caller-saves registers for an inner
-// OBSOLETE    frame.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE fr30_find_callers_reg (struct frame_info *fi, int regnum)
-// OBSOLETE {
-// OBSOLETE   for (; fi; fi = fi->next)
-// OBSOLETE     if (PC_IN_CALL_DUMMY (fi->pc, fi->frame, fi->frame))
-// OBSOLETE       return generic_read_register_dummy (fi->pc, fi->frame, regnum);
-// OBSOLETE     else if (fi->fsr.regs[regnum] != 0)
-// OBSOLETE       return read_memory_unsigned_integer (fi->fsr.regs[regnum],
-// OBSOLETE                                       REGISTER_RAW_SIZE (regnum));
-// OBSOLETE 
-// OBSOLETE   return read_register (regnum);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Function: frame_chain
-// OBSOLETE    Figure out the frame prior to FI.  Unfortunately, this involves
-// OBSOLETE    scanning the prologue of the caller, which will also be done
-// OBSOLETE    shortly by fr30_init_extra_frame_info.  For the dummy frame, we
-// OBSOLETE    just return the stack pointer that was in use at the time the
-// OBSOLETE    function call was made.  */
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE fr30_frame_chain (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   CORE_ADDR fn_start, callers_pc, fp;
-// OBSOLETE   struct frame_info caller_fi;
-// OBSOLETE   int framereg;
-// OBSOLETE 
-// OBSOLETE   /* is this a dummy frame? */
-// OBSOLETE   if (PC_IN_CALL_DUMMY (fi->pc, fi->frame, fi->frame))
-// OBSOLETE     return fi->frame;              /* dummy frame same as caller's frame */
-// OBSOLETE 
-// OBSOLETE   /* is caller-of-this a dummy frame? */
-// OBSOLETE   callers_pc = FRAME_SAVED_PC (fi);        /* find out who called us: */
-// OBSOLETE   fp = fr30_find_callers_reg (fi, FP_REGNUM);
-// OBSOLETE   if (PC_IN_CALL_DUMMY (callers_pc, fp, fp))
-// OBSOLETE     return fp;                     /* dummy frame's frame may bear no relation to ours */
-// OBSOLETE 
-// OBSOLETE   if (find_pc_partial_function (fi->pc, 0, &fn_start, 0))
-// OBSOLETE     if (fn_start == entry_point_address ())
-// OBSOLETE       return 0;                    /* in _start fn, don't chain further */
-// OBSOLETE 
-// OBSOLETE   framereg = fi->framereg;
-// OBSOLETE 
-// OBSOLETE   /* If the caller is the startup code, we're at the end of the chain.  */
-// OBSOLETE   if (find_pc_partial_function (callers_pc, 0, &fn_start, 0))
-// OBSOLETE     if (fn_start == entry_point_address ())
-// OBSOLETE       return 0;
-// OBSOLETE 
-// OBSOLETE   memset (&caller_fi, 0, sizeof (caller_fi));
-// OBSOLETE   caller_fi.pc = callers_pc;
-// OBSOLETE   fr30_scan_prologue (&caller_fi);
-// OBSOLETE   framereg = caller_fi.framereg;
-// OBSOLETE 
-// OBSOLETE   /* If the caller used a frame register, return its value.
-// OBSOLETE      Otherwise, return the caller's stack pointer.  */
-// OBSOLETE   if (framereg == FP_REGNUM)
-// OBSOLETE     return fr30_find_callers_reg (fi, framereg);
-// OBSOLETE   else
-// OBSOLETE     return fi->frame + fi->framesize;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Function: frame_saved_pc 
-// OBSOLETE    Find the caller of this frame.  We do this by seeing if RP_REGNUM
-// OBSOLETE    is saved in the stack anywhere, otherwise we get it from the
-// OBSOLETE    registers.  If the inner frame is a dummy frame, return its PC
-// OBSOLETE    instead of RP, because that's where "caller" of the dummy-frame
-// OBSOLETE    will be found.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE fr30_frame_saved_pc (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   if (PC_IN_CALL_DUMMY (fi->pc, fi->frame, fi->frame))
-// OBSOLETE     return generic_read_register_dummy (fi->pc, fi->frame, PC_REGNUM);
-// OBSOLETE   else
-// OBSOLETE     return fr30_find_callers_reg (fi, RP_REGNUM);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Function: fix_call_dummy
-// OBSOLETE    Pokes the callee function's address into the CALL_DUMMY assembly stub.
-// OBSOLETE    Assumes that the CALL_DUMMY looks like this:
-// OBSOLETE    jarl <offset24>, r31
-// OBSOLETE    trap
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE fr30_fix_call_dummy (char *dummy, CORE_ADDR sp, CORE_ADDR fun, int nargs,
-// OBSOLETE                 struct value **args, struct type *type, int gcc_p)
-// OBSOLETE {
-// OBSOLETE   long offset24;
-// OBSOLETE 
-// OBSOLETE   offset24 = (long) fun - (long) entry_point_address ();
-// OBSOLETE   offset24 &= 0x3fffff;
-// OBSOLETE   offset24 |= 0xff800000;  /* jarl <offset24>, r31 */
-// OBSOLETE 
-// OBSOLETE   store_unsigned_integer ((unsigned int *) &dummy[2], 2, offset24 & 0xffff);
-// OBSOLETE   store_unsigned_integer ((unsigned int *) &dummy[0], 2, offset24 >> 16);
-// OBSOLETE   return 0;
-// OBSOLETE }
diff --git a/gdb/i386aix-nat.c b/gdb/i386aix-nat.c
deleted file mode 100644 (file)
index 3cca5e4..0000000
+++ /dev/null
@@ -1,377 +0,0 @@
-// OBSOLETE /* Intel 386 native support.
-// OBSOLETE    Copyright 1988, 1989, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999,
-// OBSOLETE    2000, 2001 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "language.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE #ifdef USG
-// OBSOLETE #include <sys/types.h>
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE #include <sys/dir.h>
-// OBSOLETE #include <signal.h>
-// OBSOLETE #include <sys/user.h>
-// OBSOLETE #include <sys/ioctl.h>
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE 
-// OBSOLETE #include <sys/file.h>
-// OBSOLETE #include "gdb_stat.h"
-// OBSOLETE 
-// OBSOLETE #include <stddef.h>
-// OBSOLETE #include <sys/ptrace.h>
-// OBSOLETE 
-// OBSOLETE /* Does AIX define this in <errno.h>?  */
-// OBSOLETE extern int errno;
-// OBSOLETE 
-// OBSOLETE #ifdef HAVE_SYS_REG_H
-// OBSOLETE #include <sys/reg.h>
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #include "floatformat.h"
-// OBSOLETE 
-// OBSOLETE #include "target.h"
-// OBSOLETE 
-// OBSOLETE static void fetch_core_registers (char *, unsigned, int, CORE_ADDR);
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* this table must line up with REGISTER_NAMES in tm-i386v.h */
-// OBSOLETE /* symbols like 'EAX' come from <sys/reg.h> */
-// OBSOLETE static int regmap[] =
-// OBSOLETE {
-// OBSOLETE   EAX, ECX, EDX, EBX,
-// OBSOLETE   USP, EBP, ESI, EDI,
-// OBSOLETE   EIP, EFL, CS, SS,
-// OBSOLETE   DS, ES, FS, GS,
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE /* blockend is the value of u.u_ar0, and points to the
-// OBSOLETE  * place where GS is stored
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE i386_register_u_addr (int blockend, int regnum)
-// OBSOLETE {
-// OBSOLETE #if 0
-// OBSOLETE   /* this will be needed if fp registers are reinstated */
-// OBSOLETE   /* for now, you can look at them with 'info float'
-// OBSOLETE    * sys5 wont let you change them with ptrace anyway
-// OBSOLETE    */
-// OBSOLETE   if (regnum >= FP0_REGNUM && regnum <= FP7_REGNUM)
-// OBSOLETE     {
-// OBSOLETE       int ubase, fpstate;
-// OBSOLETE       struct user u;
-// OBSOLETE       ubase = blockend + 4 * (SS + 1) - KSTKSZ;
-// OBSOLETE       fpstate = ubase + ((char *) &u.u_fpstate - (char *) &u);
-// OBSOLETE       return (fpstate + 0x1c + 10 * (regnum - FP0_REGNUM));
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE #endif
-// OBSOLETE     return (blockend + 4 * regmap[regnum]);
-// OBSOLETE 
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* The code below only work on the aix ps/2 (i386-ibm-aix) -
-// OBSOLETE  * mtranle@paris - Sat Apr 11 10:34:12 1992
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE struct env387
-// OBSOLETE {
-// OBSOLETE   unsigned short control;
-// OBSOLETE   unsigned short r0;
-// OBSOLETE   unsigned short status;
-// OBSOLETE   unsigned short r1;
-// OBSOLETE   unsigned short tag;
-// OBSOLETE   unsigned short r2;
-// OBSOLETE   unsigned long eip;
-// OBSOLETE   unsigned short code_seg;
-// OBSOLETE   unsigned short opcode;
-// OBSOLETE   unsigned long operand;
-// OBSOLETE   unsigned short operand_seg;
-// OBSOLETE   unsigned short r3;
-// OBSOLETE   unsigned char regs[8][10];
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static
-// OBSOLETE print_387_status (unsigned short status, struct env387 *ep)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE   int bothstatus;
-// OBSOLETE   int top;
-// OBSOLETE   int fpreg;
-// OBSOLETE   unsigned char *p;
-// OBSOLETE 
-// OBSOLETE   bothstatus = ((status != 0) && (ep->status != 0));
-// OBSOLETE   if (status != 0)
-// OBSOLETE     {
-// OBSOLETE       if (bothstatus)
-// OBSOLETE    printf_unfiltered ("u: ");
-// OBSOLETE       print_387_status_word (status);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (ep->status != 0)
-// OBSOLETE     {
-// OBSOLETE       if (bothstatus)
-// OBSOLETE    printf_unfiltered ("e: ");
-// OBSOLETE       print_387_status_word (ep->status);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   print_387_control_word (ep->control);
-// OBSOLETE   printf_unfiltered ("last exception: ");
-// OBSOLETE   printf_unfiltered ("opcode %s; ", local_hex_string (ep->opcode));
-// OBSOLETE   printf_unfiltered ("pc %s:", local_hex_string (ep->code_seg));
-// OBSOLETE   printf_unfiltered ("%s; ", local_hex_string (ep->eip));
-// OBSOLETE   printf_unfiltered ("operand %s", local_hex_string (ep->operand_seg));
-// OBSOLETE   printf_unfiltered (":%s\n", local_hex_string (ep->operand));
-// OBSOLETE 
-// OBSOLETE   top = ((ep->status >> 11) & 7);
-// OBSOLETE 
-// OBSOLETE   printf_unfiltered ("regno  tag  msb              lsb  value\n");
-// OBSOLETE   for (fpreg = 7; fpreg >= 0; fpreg--)
-// OBSOLETE     {
-// OBSOLETE       double val;
-// OBSOLETE 
-// OBSOLETE       printf_unfiltered ("%s %d: ", fpreg == top ? "=>" : "  ", fpreg);
-// OBSOLETE 
-// OBSOLETE       switch ((ep->tag >> ((7 - fpreg) * 2)) & 3)
-// OBSOLETE    {
-// OBSOLETE    case 0:
-// OBSOLETE      printf_unfiltered ("valid ");
-// OBSOLETE      break;
-// OBSOLETE    case 1:
-// OBSOLETE      printf_unfiltered ("zero  ");
-// OBSOLETE      break;
-// OBSOLETE    case 2:
-// OBSOLETE      printf_unfiltered ("trap  ");
-// OBSOLETE      break;
-// OBSOLETE    case 3:
-// OBSOLETE      printf_unfiltered ("empty ");
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       for (i = 9; i >= 0; i--)
-// OBSOLETE    printf_unfiltered ("%02x", ep->regs[fpreg][i]);
-// OBSOLETE 
-// OBSOLETE       i387_to_double ((char *) ep->regs[fpreg], (char *) &val);
-// OBSOLETE       printf_unfiltered ("  %#g\n", val);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct env387 core_env387;
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE i386_float_info (void)
-// OBSOLETE {
-// OBSOLETE   struct env387 fps;
-// OBSOLETE   int fpsaved = 0;
-// OBSOLETE   /* We need to reverse the order of the registers.  Apparently AIX stores
-// OBSOLETE      the highest-numbered ones first.  */
-// OBSOLETE   struct env387 fps_fixed;
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   if (! ptid_equal (inferior_ptid, null_ptid))
-// OBSOLETE     {
-// OBSOLETE       char buf[10];
-// OBSOLETE       unsigned short status;
-// OBSOLETE 
-// OBSOLETE       ptrace (PT_READ_FPR, PIDGET (inferior_ptid), buf,
-// OBSOLETE               offsetof (struct env387, status));
-// OBSOLETE       memcpy (&status, buf, sizeof (status));
-// OBSOLETE       fpsaved = status;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       if ((fpsaved = core_env387.status) != 0)
-// OBSOLETE    memcpy (&fps, &core_env387, sizeof (fps));
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (fpsaved == 0)
-// OBSOLETE     {
-// OBSOLETE       printf_unfiltered ("no floating point status saved\n");
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (! ptid_equal (inferior_ptid, null_ptid))
-// OBSOLETE     {
-// OBSOLETE       int offset;
-// OBSOLETE       for (offset = 0; offset < sizeof (fps); offset += 10)
-// OBSOLETE    {
-// OBSOLETE      char buf[10];
-// OBSOLETE      ptrace (PT_READ_FPR, PIDGET (inferior_ptid), buf, offset);
-// OBSOLETE      memcpy ((char *) &fps.control + offset, buf,
-// OBSOLETE              MIN (10, sizeof (fps) - offset));
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   fps_fixed = fps;
-// OBSOLETE   for (i = 0; i < 8; ++i)
-// OBSOLETE     memcpy (fps_fixed.regs[i], fps.regs[7 - i], 10);
-// OBSOLETE   print_387_status (0, &fps_fixed);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Fetch one register.  */
-// OBSOLETE static void
-// OBSOLETE fetch_register (int regno)
-// OBSOLETE {
-// OBSOLETE   char buf[MAX_REGISTER_RAW_SIZE];
-// OBSOLETE   if (regno < FP0_REGNUM)
-// OBSOLETE     *(int *) buf = ptrace (PT_READ_GPR, PIDGET (inferior_ptid),
-// OBSOLETE                       PT_REG (regmap[regno]), 0, 0);
-// OBSOLETE   else
-// OBSOLETE     ptrace (PT_READ_FPR, PIDGET (inferior_ptid), buf,
-// OBSOLETE        (regno - FP0_REGNUM) * 10 + offsetof (struct env387, regs));
-// OBSOLETE   supply_register (regno, buf);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fetch_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   if (regno < 0)
-// OBSOLETE     for (regno = 0; regno < NUM_REGS; regno++)
-// OBSOLETE       fetch_register (regno);
-// OBSOLETE   else
-// OBSOLETE     fetch_register (regno);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* store one register */
-// OBSOLETE static void
-// OBSOLETE store_register (int regno)
-// OBSOLETE {
-// OBSOLETE   char buf[80];
-// OBSOLETE   errno = 0;
-// OBSOLETE   if (regno < FP0_REGNUM)
-// OBSOLETE     ptrace (PT_WRITE_GPR, PIDGET (inferior_ptid), PT_REG (regmap[regno]),
-// OBSOLETE        *(int *) &registers[REGISTER_BYTE (regno)], 0);
-// OBSOLETE   else
-// OBSOLETE     ptrace (PT_WRITE_FPR, PIDGET (inferior_ptid),
-// OBSOLETE             &registers[REGISTER_BYTE (regno)],
-// OBSOLETE        (regno - FP0_REGNUM) * 10 + offsetof (struct env387, regs));
-// OBSOLETE 
-// OBSOLETE   if (errno != 0)
-// OBSOLETE     {
-// OBSOLETE       sprintf (buf, "writing register number %d", regno);
-// OBSOLETE       perror_with_name (buf);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store our register values back into the inferior.
-// OBSOLETE    If REGNO is -1, do this for all registers.
-// OBSOLETE    Otherwise, REGNO specifies which register (so we can save time).  */
-// OBSOLETE void
-// OBSOLETE store_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   if (regno < 0)
-// OBSOLETE     for (regno = 0; regno < NUM_REGS; regno++)
-// OBSOLETE       store_register (regno);
-// OBSOLETE   else
-// OBSOLETE     store_register (regno);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #ifndef CD_AX                      /* defined in sys/i386/coredump.h */
-// OBSOLETE #define CD_AX      0
-// OBSOLETE #define CD_BX      1
-// OBSOLETE #define CD_CX      2
-// OBSOLETE #define CD_DX      3
-// OBSOLETE #define CD_SI      4
-// OBSOLETE #define CD_DI      5
-// OBSOLETE #define CD_BP      6
-// OBSOLETE #define CD_SP      7
-// OBSOLETE #define CD_FL      8
-// OBSOLETE #define CD_IP      9
-// OBSOLETE #define CD_CS      10
-// OBSOLETE #define CD_DS      11
-// OBSOLETE #define CD_ES      12
-// OBSOLETE #define CD_FS      13
-// OBSOLETE #define CD_GS      14
-// OBSOLETE #define CD_SS      15
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * The order here in core_regmap[] has to be the same as in 
-// OBSOLETE  * regmap[] above.
-// OBSOLETE  */
-// OBSOLETE static int core_regmap[] =
-// OBSOLETE {
-// OBSOLETE   CD_AX, CD_CX, CD_DX, CD_BX,
-// OBSOLETE   CD_SP, CD_BP, CD_SI, CD_DI,
-// OBSOLETE   CD_IP, CD_FL, CD_CS, CD_SS,
-// OBSOLETE   CD_DS, CD_ES, CD_FS, CD_GS,
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE /* Provide registers to GDB from a core file.
-// OBSOLETE 
-// OBSOLETE    CORE_REG_SECT points to an array of bytes, which were obtained from
-// OBSOLETE    a core file which BFD thinks might contain register contents. 
-// OBSOLETE    CORE_REG_SIZE is its size.
-// OBSOLETE 
-// OBSOLETE    WHICH says which register set corelow suspects this is:
-// OBSOLETE      0 --- the general-purpose register set
-// OBSOLETE      2 --- the floating-point register set
-// OBSOLETE 
-// OBSOLETE    REG_ADDR isn't used.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE fetch_core_registers (char *core_reg_sect, unsigned core_reg_size,
-// OBSOLETE                  int which, CORE_ADDR reg_addr)
-// OBSOLETE {
-// OBSOLETE 
-// OBSOLETE   if (which == 0)
-// OBSOLETE     {
-// OBSOLETE       /* Integer registers */
-// OBSOLETE 
-// OBSOLETE #define cd_regs(n) ((int *)core_reg_sect)[n]
-// OBSOLETE #define regs(n) *((int *) &registers[REGISTER_BYTE (n)])
-// OBSOLETE 
-// OBSOLETE       int i;
-// OBSOLETE       for (i = 0; i < FP0_REGNUM; i++)
-// OBSOLETE    regs (i) = cd_regs (core_regmap[i]);
-// OBSOLETE     }
-// OBSOLETE   else if (which == 2)
-// OBSOLETE     {
-// OBSOLETE       /* Floating point registers */
-// OBSOLETE 
-// OBSOLETE       if (core_reg_size >= sizeof (core_env387))
-// OBSOLETE    memcpy (&core_env387, core_reg_sect, core_reg_size);
-// OBSOLETE       else
-// OBSOLETE    fprintf_unfiltered (gdb_stderr, "Couldn't read float regs from core file\n");
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Register that we are able to handle i386aix core file formats.
-// OBSOLETE    FIXME: is this really bfd_target_unknown_flavour? */
-// OBSOLETE 
-// OBSOLETE static struct core_fns i386aix_core_fns =
-// OBSOLETE {
-// OBSOLETE   bfd_target_unknown_flavour,              /* core_flavour */
-// OBSOLETE   default_check_format,                    /* check_format */
-// OBSOLETE   default_core_sniffer,                    /* core_sniffer */
-// OBSOLETE   fetch_core_registers,                    /* core_read_registers */
-// OBSOLETE   NULL                                     /* next */
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_core_i386aix (void)
-// OBSOLETE {
-// OBSOLETE   add_core_fns (&i386aix_core_fns);
-// OBSOLETE }
diff --git a/gdb/i386m3-nat.c b/gdb/i386m3-nat.c
deleted file mode 100644 (file)
index 8cb51d5..0000000
+++ /dev/null
@@ -1,426 +0,0 @@
-// OBSOLETE /* Low level interface to I386 running mach 3.0.
-// OBSOLETE    Copyright 1992, 1993, 1994, 1996, 2000, 2001
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "floatformat.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE #include <stdio.h>
-// OBSOLETE 
-// OBSOLETE #include <mach.h>
-// OBSOLETE #include <mach/message.h>
-// OBSOLETE #include <mach/exception.h>
-// OBSOLETE #include <mach_error.h>
-// OBSOLETE 
-// OBSOLETE /* Hmmm... Should this not be here?
-// OBSOLETE  * Now for i386_float_info() target_has_execution
-// OBSOLETE  */
-// OBSOLETE #include <target.h>
-// OBSOLETE 
-// OBSOLETE /* This mess is duplicated in bfd/i386mach3.h
-// OBSOLETE 
-// OBSOLETE  * This is an ugly way to hack around the incorrect
-// OBSOLETE  * definition of UPAGES in i386/machparam.h.
-// OBSOLETE  *
-// OBSOLETE  * The definition should specify the size reserved
-// OBSOLETE  * for "struct user" in core files in PAGES,
-// OBSOLETE  * but instead it gives it in 512-byte core-clicks
-// OBSOLETE  * for i386 and i860.
-// OBSOLETE  */
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE #if UPAGES == 16
-// OBSOLETE #define UAREA_SIZE ctob(UPAGES)
-// OBSOLETE #elif UPAGES == 2
-// OBSOLETE #define UAREA_SIZE (NBPG*UPAGES)
-// OBSOLETE #else
-// OBSOLETE FIXME ! !UPAGES is neither 2 nor 16
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE /* @@@ Should move print_387_status() to i387-tdep.c */
-// OBSOLETE extern void print_387_control_word ();             /* i387-tdep.h */
-// OBSOLETE extern void print_387_status_word ();
-// OBSOLETE 
-// OBSOLETE #define private static
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Find offsets to thread states at compile time.
-// OBSOLETE  * If your compiler does not grok this, calculate offsets
-// OBSOLETE  * offsets yourself and use them (or get a compatible compiler :-)
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE #define  REG_OFFSET(reg) (int)(&((struct i386_thread_state *)0)->reg)
-// OBSOLETE 
-// OBSOLETE /* at reg_offset[i] is the offset to the i386_thread_state
-// OBSOLETE  * location where the gdb registers[i] is stored.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static int reg_offset[] =
-// OBSOLETE {
-// OBSOLETE   REG_OFFSET (eax), REG_OFFSET (ecx), REG_OFFSET (edx), REG_OFFSET (ebx),
-// OBSOLETE   REG_OFFSET (uesp), REG_OFFSET (ebp), REG_OFFSET (esi), REG_OFFSET (edi),
-// OBSOLETE   REG_OFFSET (eip), REG_OFFSET (efl), REG_OFFSET (cs), REG_OFFSET (ss),
-// OBSOLETE   REG_OFFSET (ds), REG_OFFSET (es), REG_OFFSET (fs), REG_OFFSET (gs)
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE #define REG_ADDRESS(state,regnum) ((char *)(state)+reg_offset[regnum])
-// OBSOLETE 
-// OBSOLETE /* Fetch COUNT contiguous registers from thread STATE starting from REGNUM
-// OBSOLETE  * Caller knows that the regs handled in one transaction are of same size.
-// OBSOLETE  */
-// OBSOLETE #define FETCH_REGS(state, regnum, count) \
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (regnum)], \
-// OBSOLETE      REG_ADDRESS (state, regnum), \
-// OBSOLETE      count*REGISTER_SIZE)
-// OBSOLETE 
-// OBSOLETE /* Store COUNT contiguous registers to thread STATE starting from REGNUM */
-// OBSOLETE #define STORE_REGS(state, regnum, count) \
-// OBSOLETE   memcpy (REG_ADDRESS (state, regnum), \
-// OBSOLETE      &registers[REGISTER_BYTE (regnum)], \
-// OBSOLETE      count*REGISTER_SIZE)
-// OBSOLETE \f
-// OBSOLETE /*
-// OBSOLETE  * Fetch inferiors registers for gdb.
-// OBSOLETE  * REGNO specifies which (as gdb views it) register, -1 for all.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fetch_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   kern_return_t ret;
-// OBSOLETE   thread_state_data_t state;
-// OBSOLETE   unsigned int stateCnt = i386_THREAD_STATE_COUNT;
-// OBSOLETE   int index;
-// OBSOLETE 
-// OBSOLETE   if (!MACH_PORT_VALID (current_thread))
-// OBSOLETE     error ("fetch inferior registers: Invalid thread");
-// OBSOLETE 
-// OBSOLETE   if (must_suspend_thread)
-// OBSOLETE     setup_thread (current_thread, 1);
-// OBSOLETE 
-// OBSOLETE   ret = thread_get_state (current_thread,
-// OBSOLETE                      i386_THREAD_STATE,
-// OBSOLETE                      state,
-// OBSOLETE                      &stateCnt);
-// OBSOLETE 
-// OBSOLETE   if (ret != KERN_SUCCESS)
-// OBSOLETE     warning ("fetch_inferior_registers: %s ",
-// OBSOLETE         mach_error_string (ret));
-// OBSOLETE #if 0
-// OBSOLETE   /* It may be more effective to store validate all of them,
-// OBSOLETE    * since we fetched them all anyway
-// OBSOLETE    */
-// OBSOLETE   else if (regno != -1)
-// OBSOLETE     supply_register (regno, (char *) state + reg_offset[regno]);
-// OBSOLETE #endif
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       for (index = 0; index < NUM_REGS; index++)
-// OBSOLETE    supply_register (index, (char *) state + reg_offset[index]);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (must_suspend_thread)
-// OBSOLETE     setup_thread (current_thread, 0);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Store our register values back into the inferior.
-// OBSOLETE  * If REGNO is -1, do this for all registers.
-// OBSOLETE  * Otherwise, REGNO specifies which register
-// OBSOLETE  *
-// OBSOLETE  * On mach3 all registers are always saved in one call.
-// OBSOLETE  */
-// OBSOLETE void
-// OBSOLETE store_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   kern_return_t ret;
-// OBSOLETE   thread_state_data_t state;
-// OBSOLETE   unsigned int stateCnt = i386_THREAD_STATE_COUNT;
-// OBSOLETE   register int index;
-// OBSOLETE 
-// OBSOLETE   if (!MACH_PORT_VALID (current_thread))
-// OBSOLETE     error ("store inferior registers: Invalid thread");
-// OBSOLETE 
-// OBSOLETE   if (must_suspend_thread)
-// OBSOLETE     setup_thread (current_thread, 1);
-// OBSOLETE 
-// OBSOLETE   /* Fetch the state of the current thread */
-// OBSOLETE   ret = thread_get_state (current_thread,
-// OBSOLETE                      i386_THREAD_STATE,
-// OBSOLETE                      state,
-// OBSOLETE                      &stateCnt);
-// OBSOLETE 
-// OBSOLETE   if (ret != KERN_SUCCESS)
-// OBSOLETE     {
-// OBSOLETE       warning ("store_inferior_registers (get): %s",
-// OBSOLETE           mach_error_string (ret));
-// OBSOLETE       if (must_suspend_thread)
-// OBSOLETE    setup_thread (current_thread, 0);
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* move gdb's registers to thread's state
-// OBSOLETE 
-// OBSOLETE    * Since we save all registers anyway, save the ones
-// OBSOLETE    * that gdb thinks are valid (e.g. ignore the regno
-// OBSOLETE    * parameter)
-// OBSOLETE    */
-// OBSOLETE #if 0
-// OBSOLETE   if (regno != -1)
-// OBSOLETE     STORE_REGS (state, regno, 1);
-// OBSOLETE   else
-// OBSOLETE #endif
-// OBSOLETE     {
-// OBSOLETE       for (index = 0; index < NUM_REGS; index++)
-// OBSOLETE    STORE_REGS (state, index, 1);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Write gdb's current view of register to the thread
-// OBSOLETE    */
-// OBSOLETE   ret = thread_set_state (current_thread,
-// OBSOLETE                      i386_THREAD_STATE,
-// OBSOLETE                      state,
-// OBSOLETE                      i386_THREAD_STATE_COUNT);
-// OBSOLETE 
-// OBSOLETE   if (ret != KERN_SUCCESS)
-// OBSOLETE     warning ("store_inferior_registers (set): %s",
-// OBSOLETE         mach_error_string (ret));
-// OBSOLETE 
-// OBSOLETE   if (must_suspend_thread)
-// OBSOLETE     setup_thread (current_thread, 0);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Return the address in the core dump or inferior of register REGNO.
-// OBSOLETE  * BLOCKEND should be the address of the end of the UPAGES area read
-// OBSOLETE  * in memory, but it's not?
-// OBSOLETE  *
-// OBSOLETE  * Currently our UX server dumps the whole thread state to the
-// OBSOLETE  * core file. If your UX does something else, adapt the routine
-// OBSOLETE  * below to return the offset to the given register.
-// OBSOLETE  * 
-// OBSOLETE  * Called by core-aout.c(fetch_core_registers)
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE register_addr (int regno, CORE_ADDR blockend)
-// OBSOLETE {
-// OBSOLETE   CORE_ADDR addr;
-// OBSOLETE 
-// OBSOLETE   if (regno < 0 || regno >= NUM_REGS)
-// OBSOLETE     error ("Invalid register number %d.", regno);
-// OBSOLETE 
-// OBSOLETE   /* UAREA_SIZE == 8 kB in i386 */
-// OBSOLETE   addr = (unsigned int) REG_ADDRESS (UAREA_SIZE - sizeof (struct i386_thread_state), regno);
-// OBSOLETE 
-// OBSOLETE   return addr;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* jtv@hut.fi: I copied and modified this 387 code from
-// OBSOLETE  * gdb/i386-xdep.c. Modifications for Mach 3.0.
-// OBSOLETE  *
-// OBSOLETE  * i387 status dumper. See also i387-tdep.c
-// OBSOLETE  */
-// OBSOLETE struct env387
-// OBSOLETE {
-// OBSOLETE   unsigned short control;
-// OBSOLETE   unsigned short r0;
-// OBSOLETE   unsigned short status;
-// OBSOLETE   unsigned short r1;
-// OBSOLETE   unsigned short tag;
-// OBSOLETE   unsigned short r2;
-// OBSOLETE   unsigned long eip;
-// OBSOLETE   unsigned short code_seg;
-// OBSOLETE   unsigned short opcode;
-// OBSOLETE   unsigned long operand;
-// OBSOLETE   unsigned short operand_seg;
-// OBSOLETE   unsigned short r3;
-// OBSOLETE   unsigned char regs[8][10];
-// OBSOLETE };
-// OBSOLETE /* This routine is machine independent?
-// OBSOLETE  * Should move it to i387-tdep.c but you need to export struct env387
-// OBSOLETE  */
-// OBSOLETE private
-// OBSOLETE print_387_status (unsigned short status, struct env387 *ep)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE   int bothstatus;
-// OBSOLETE   int top;
-// OBSOLETE   int fpreg;
-// OBSOLETE   unsigned char *p;
-// OBSOLETE 
-// OBSOLETE   bothstatus = ((status != 0) && (ep->status != 0));
-// OBSOLETE   if (status != 0)
-// OBSOLETE     {
-// OBSOLETE       if (bothstatus)
-// OBSOLETE    printf_unfiltered ("u: ");
-// OBSOLETE       print_387_status_word (status);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (ep->status != 0)
-// OBSOLETE     {
-// OBSOLETE       if (bothstatus)
-// OBSOLETE    printf_unfiltered ("e: ");
-// OBSOLETE       print_387_status_word (ep->status);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   print_387_control_word (ep->control);
-// OBSOLETE   printf_unfiltered ("last exception: ");
-// OBSOLETE   printf_unfiltered ("opcode %s; ", local_hex_string (ep->opcode));
-// OBSOLETE   printf_unfiltered ("pc %s:", local_hex_string (ep->code_seg));
-// OBSOLETE   printf_unfiltered ("%s; ", local_hex_string (ep->eip));
-// OBSOLETE   printf_unfiltered ("operand %s", local_hex_string (ep->operand_seg));
-// OBSOLETE   printf_unfiltered (":%s\n", local_hex_string (ep->operand));
-// OBSOLETE 
-// OBSOLETE   top = (ep->status >> 11) & 7;
-// OBSOLETE 
-// OBSOLETE   printf_unfiltered ("regno  tag  msb              lsb  value\n");
-// OBSOLETE   for (fpreg = 7; fpreg >= 0; fpreg--)
-// OBSOLETE     {
-// OBSOLETE       double val;
-// OBSOLETE 
-// OBSOLETE       printf_unfiltered ("%s %d: ", fpreg == top ? "=>" : "  ", fpreg);
-// OBSOLETE 
-// OBSOLETE       switch ((ep->tag >> (fpreg * 2)) & 3)
-// OBSOLETE    {
-// OBSOLETE    case 0:
-// OBSOLETE      printf_unfiltered ("valid ");
-// OBSOLETE      break;
-// OBSOLETE    case 1:
-// OBSOLETE      printf_unfiltered ("zero  ");
-// OBSOLETE      break;
-// OBSOLETE    case 2:
-// OBSOLETE      printf_unfiltered ("trap  ");
-// OBSOLETE      break;
-// OBSOLETE    case 3:
-// OBSOLETE      printf_unfiltered ("empty ");
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       for (i = 9; i >= 0; i--)
-// OBSOLETE    printf_unfiltered ("%02x", ep->regs[fpreg][i]);
-// OBSOLETE 
-// OBSOLETE       floatformat_to_double (&floatformat_i387_ext, (char *) ep->regs[fpreg],
-// OBSOLETE                         &val);
-// OBSOLETE       printf_unfiltered ("  %g\n", val);
-// OBSOLETE     }
-// OBSOLETE   if (ep->r0)
-// OBSOLETE     printf_unfiltered ("warning: reserved0 is %s\n", local_hex_string (ep->r0));
-// OBSOLETE   if (ep->r1)
-// OBSOLETE     printf_unfiltered ("warning: reserved1 is %s\n", local_hex_string (ep->r1));
-// OBSOLETE   if (ep->r2)
-// OBSOLETE     printf_unfiltered ("warning: reserved2 is %s\n", local_hex_string (ep->r2));
-// OBSOLETE   if (ep->r3)
-// OBSOLETE     printf_unfiltered ("warning: reserved3 is %s\n", local_hex_string (ep->r3));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * values that go into fp_kind (from <i386/fpreg.h>)
-// OBSOLETE  */
-// OBSOLETE #define FP_NO   0          /* no fp chip, no emulator (no fp support)      */
-// OBSOLETE #define FP_SW   1          /* no fp chip, using software emulator          */
-// OBSOLETE #define FP_HW   2          /* chip present bit                             */
-// OBSOLETE #define FP_287  2          /* 80287 chip present                           */
-// OBSOLETE #define FP_387  3          /* 80387 chip present                           */
-// OBSOLETE 
-// OBSOLETE typedef struct fpstate
-// OBSOLETE {
-// OBSOLETE #if 1
-// OBSOLETE   unsigned char state[FP_STATE_BYTES];     /* "hardware" state */
-// OBSOLETE #else
-// OBSOLETE   struct env387 state;             /* Actually this */
-// OBSOLETE #endif
-// OBSOLETE   int status;                      /* Duplicate status */
-// OBSOLETE }
-// OBSOLETE  *fpstate_t;
-// OBSOLETE 
-// OBSOLETE /* Mach 3 specific routines.
-// OBSOLETE  */
-// OBSOLETE private boolean_t
-// OBSOLETE get_i387_state (struct fpstate *fstate)
-// OBSOLETE {
-// OBSOLETE   kern_return_t ret;
-// OBSOLETE   thread_state_data_t state;
-// OBSOLETE   unsigned int fsCnt = i386_FLOAT_STATE_COUNT;
-// OBSOLETE   struct i386_float_state *fsp;
-// OBSOLETE 
-// OBSOLETE   ret = thread_get_state (current_thread,
-// OBSOLETE                      i386_FLOAT_STATE,
-// OBSOLETE                      state,
-// OBSOLETE                      &fsCnt);
-// OBSOLETE 
-// OBSOLETE   if (ret != KERN_SUCCESS)
-// OBSOLETE     {
-// OBSOLETE       warning ("Can not get live floating point state: %s",
-// OBSOLETE           mach_error_string (ret));
-// OBSOLETE       return FALSE;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   fsp = (struct i386_float_state *) state;
-// OBSOLETE   /* The 387 chip (also 486 counts) or a software emulator? */
-// OBSOLETE   if (!fsp->initialized || (fsp->fpkind != FP_387 && fsp->fpkind != FP_SW))
-// OBSOLETE     return FALSE;
-// OBSOLETE 
-// OBSOLETE   /* Clear the target then copy thread's float state there.
-// OBSOLETE      Make a copy of the status word, for some reason?
-// OBSOLETE    */
-// OBSOLETE   memset (fstate, 0, sizeof (struct fpstate));
-// OBSOLETE 
-// OBSOLETE   fstate->status = fsp->exc_status;
-// OBSOLETE 
-// OBSOLETE   memcpy (fstate->state, (char *) &fsp->hw_state, FP_STATE_BYTES);
-// OBSOLETE 
-// OBSOLETE   return TRUE;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE private boolean_t
-// OBSOLETE get_i387_core_state (struct fpstate *fstate)
-// OBSOLETE {
-// OBSOLETE   /* Not implemented yet. Core files do not contain float state. */
-// OBSOLETE   return FALSE;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * This is called by "info float" command
-// OBSOLETE  */
-// OBSOLETE void
-// OBSOLETE i386_mach3_float_info (void)
-// OBSOLETE {
-// OBSOLETE   char buf[sizeof (struct fpstate) + 2 * sizeof (int)];
-// OBSOLETE   boolean_t valid = FALSE;
-// OBSOLETE   fpstate_t fps;
-// OBSOLETE 
-// OBSOLETE   if (target_has_execution)
-// OBSOLETE     valid = get_i387_state (buf);
-// OBSOLETE #if 0
-// OBSOLETE   else if (WE HAVE CORE FILE)      /* @@@@ Core files not supported */
-// OBSOLETE     valid = get_i387_core_state (buf);
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE   if (!valid)
-// OBSOLETE     {
-// OBSOLETE       warning ("no floating point status saved");
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   fps = (fpstate_t) buf;
-// OBSOLETE 
-// OBSOLETE   print_387_status (fps->status, (struct env387 *) fps->state);
-// OBSOLETE }
diff --git a/gdb/i386mach-nat.c b/gdb/i386mach-nat.c
deleted file mode 100644 (file)
index ee696c4..0000000
+++ /dev/null
@@ -1,172 +0,0 @@
-// OBSOLETE /* Native dependent code for Mach 386's for GDB, the GNU debugger.
-// OBSOLETE    Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1995, 1996, 1999, 2000,
-// OBSOLETE    2001 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE #include <sys/dir.h>
-// OBSOLETE #include <sys/user.h>
-// OBSOLETE #include <signal.h>
-// OBSOLETE #include <sys/ioctl.h>
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE 
-// OBSOLETE #include <sys/ptrace.h>
-// OBSOLETE #include <machine/reg.h>
-// OBSOLETE 
-// OBSOLETE #include <sys/file.h>
-// OBSOLETE #include "gdb_stat.h"
-// OBSOLETE #include <sys/core.h>
-// OBSOLETE 
-// OBSOLETE static void fetch_core_registers (char *, unsigned, int, CORE_ADDR);
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fetch_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   struct regs inferior_registers;
-// OBSOLETE   struct fp_state inferior_fp_registers;
-// OBSOLETE 
-// OBSOLETE   registers_fetched ();
-// OBSOLETE 
-// OBSOLETE   ptrace (PTRACE_GETREGS, PIDGET (inferior_ptid),
-// OBSOLETE      (PTRACE_ARG3_TYPE) & inferior_registers);
-// OBSOLETE   ptrace (PTRACE_GETFPREGS, PIDGET (inferior_ptid),
-// OBSOLETE      (PTRACE_ARG3_TYPE) & inferior_fp_registers);
-// OBSOLETE 
-// OBSOLETE   memcpy (registers, &inferior_registers, sizeof inferior_registers);
-// OBSOLETE 
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (FP0_REGNUM)],
-// OBSOLETE      inferior_fp_registers.f_st,
-// OBSOLETE      sizeof inferior_fp_registers.f_st);
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (FPC_REGNUM)],
-// OBSOLETE      &inferior_fp_registers.f_ctrl,
-// OBSOLETE      sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store our register values back into the inferior.
-// OBSOLETE    If REGNO is -1, do this for all registers.
-// OBSOLETE    Otherwise, REGNO specifies which register (so we can save time).  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE store_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   struct regs inferior_registers;
-// OBSOLETE   struct fp_state inferior_fp_registers;
-// OBSOLETE 
-// OBSOLETE   memcpy (&inferior_registers, registers, 20 * 4);
-// OBSOLETE 
-// OBSOLETE   memcpy (inferior_fp_registers.f_st, &registers[REGISTER_BYTE (FP0_REGNUM)],
-// OBSOLETE      sizeof inferior_fp_registers.f_st);
-// OBSOLETE   memcpy (&inferior_fp_registers.f_ctrl,
-// OBSOLETE      &registers[REGISTER_BYTE (FPC_REGNUM)],
-// OBSOLETE      sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st);
-// OBSOLETE 
-// OBSOLETE #ifdef PTRACE_FP_BUG
-// OBSOLETE   if (regno == FP_REGNUM || regno == -1)
-// OBSOLETE     /* Storing the frame pointer requires a gross hack, in which an
-// OBSOLETE        instruction that moves eax into ebp gets single-stepped.  */
-// OBSOLETE     {
-// OBSOLETE       int stack = inferior_registers.r_reg[SP_REGNUM];
-// OBSOLETE       int stuff = ptrace (PTRACE_PEEKDATA, PIDGET (inferior_ptid),
-// OBSOLETE                      (PTRACE_ARG3_TYPE) stack);
-// OBSOLETE       int reg = inferior_registers.r_reg[EAX];
-// OBSOLETE       inferior_registers.r_reg[EAX] =
-// OBSOLETE    inferior_registers.r_reg[FP_REGNUM];
-// OBSOLETE       ptrace (PTRACE_SETREGS, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) & inferior_registers);
-// OBSOLETE       ptrace (PTRACE_POKEDATA, PIDGET (inferior_ptid),
-// OBSOLETE               (PTRACE_ARG3_TYPE) stack, 0xc589);
-// OBSOLETE       ptrace (PTRACE_SINGLESTEP, PIDGET (inferior_ptid),
-// OBSOLETE               (PTRACE_ARG3_TYPE) stack, 0);
-// OBSOLETE       wait (0);
-// OBSOLETE       ptrace (PTRACE_POKEDATA, PIDGET (inferior_ptid),
-// OBSOLETE               (PTRACE_ARG3_TYPE) stack, stuff);
-// OBSOLETE       inferior_registers.r_reg[EAX] = reg;
-// OBSOLETE     }
-// OBSOLETE #endif
-// OBSOLETE   ptrace (PTRACE_SETREGS, PIDGET (inferior_ptid),
-// OBSOLETE      (PTRACE_ARG3_TYPE) & inferior_registers);
-// OBSOLETE   ptrace (PTRACE_SETFPREGS, PIDGET (inferior_ptid),
-// OBSOLETE      (PTRACE_ARG3_TYPE) & inferior_fp_registers);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Provide registers to GDB from a core file.
-// OBSOLETE 
-// OBSOLETE    CORE_REG_SECT points to an array of bytes, which were obtained from
-// OBSOLETE    a core file which BFD thinks might contain register contents. 
-// OBSOLETE    CORE_REG_SIZE is its size.
-// OBSOLETE 
-// OBSOLETE    WHICH says which register set corelow suspects this is:
-// OBSOLETE      0 --- the general-purpose register set
-// OBSOLETE      2 --- the floating-point register set
-// OBSOLETE 
-// OBSOLETE    REG_ADDR isn't used.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE fetch_core_registers (char *core_reg_sect, unsigned core_reg_size,
-// OBSOLETE                  int which, CORE_ADDR reg_addr)
-// OBSOLETE {
-// OBSOLETE   int val;
-// OBSOLETE 
-// OBSOLETE   switch (which)
-// OBSOLETE     {
-// OBSOLETE     case 0:
-// OBSOLETE     case 1:
-// OBSOLETE       memcpy (registers, core_reg_sect, core_reg_size);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case 2:
-// OBSOLETE       memcpy (&registers[REGISTER_BYTE (FP0_REGNUM)],
-// OBSOLETE          core_reg_sect,
-// OBSOLETE          core_reg_size);   /* FIXME, probably bogus */
-// OBSOLETE #ifdef FPC_REGNUM
-// OBSOLETE       memcpy (&registers[REGISTER_BYTE (FPC_REGNUM)],
-// OBSOLETE          &corestr.c_fpu.f_fpstatus.f_ctrl,
-// OBSOLETE          sizeof corestr.c_fpu.f_fpstatus -
-// OBSOLETE          sizeof corestr.c_fpu.f_fpstatus.f_st);
-// OBSOLETE #endif
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* Register that we are able to handle i386mach core file formats.
-// OBSOLETE    FIXME: is this really bfd_target_unknown_flavour? */
-// OBSOLETE 
-// OBSOLETE static struct core_fns i386mach_core_fns =
-// OBSOLETE {
-// OBSOLETE   bfd_target_unknown_flavour,              /* core_flavour */
-// OBSOLETE   default_check_format,                    /* check_format */
-// OBSOLETE   default_core_sniffer,                    /* core_sniffer */
-// OBSOLETE   fetch_core_registers,                    /* core_read_registers */
-// OBSOLETE   NULL                                     /* next */
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_core_i386mach (void)
-// OBSOLETE {
-// OBSOLETE   add_core_fns (&i386mach_core_fns);
-// OBSOLETE }
diff --git a/gdb/i960-tdep.c b/gdb/i960-tdep.c
deleted file mode 100644 (file)
index d059a7b..0000000
+++ /dev/null
@@ -1,1056 +0,0 @@
-// OBSOLETE /* Target-machine dependent code for the Intel 960
-// OBSOLETE 
-// OBSOLETE    Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000,
-// OBSOLETE    2001, 2002 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    Contributed by Intel Corporation.
-// OBSOLETE    examine_prologue and other parts contributed by Wind River Systems.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "floatformat.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE 
-// OBSOLETE static CORE_ADDR next_insn (CORE_ADDR memaddr,
-// OBSOLETE                        unsigned int *pword1, unsigned int *pword2);
-// OBSOLETE 
-// OBSOLETE struct type *
-// OBSOLETE i960_register_type (int regnum)
-// OBSOLETE {
-// OBSOLETE   if (regnum < FP0_REGNUM)
-// OBSOLETE     return builtin_type_int32;
-// OBSOLETE   else
-// OBSOLETE     return builtin_type_i960_ext;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Does the specified function use the "struct returning" convention
-// OBSOLETE    or the "value returning" convention?  The "value returning" convention
-// OBSOLETE    almost invariably returns the entire value in registers.  The
-// OBSOLETE    "struct returning" convention often returns the entire value in
-// OBSOLETE    memory, and passes a pointer (out of or into the function) saying
-// OBSOLETE    where the value (is or should go).
-// OBSOLETE 
-// OBSOLETE    Since this sometimes depends on whether it was compiled with GCC,
-// OBSOLETE    this is also an argument.  This is used in call_function to build a
-// OBSOLETE    stack, and in value_being_returned to print return values.
-// OBSOLETE 
-// OBSOLETE    On i960, a structure is returned in registers g0-g3, if it will fit.
-// OBSOLETE    If it's more than 16 bytes long, g13 pointed to it on entry.  */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE i960_use_struct_convention (int gcc_p, struct type *type)
-// OBSOLETE {
-// OBSOLETE   return (TYPE_LENGTH (type) > 16);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* gdb960 is always running on a non-960 host.  Check its characteristics.
-// OBSOLETE    This routine must be called as part of gdb initialization.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE check_host (void)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   static struct typestruct
-// OBSOLETE     {
-// OBSOLETE       int hostsize;                /* Size of type on host         */
-// OBSOLETE       int i960size;                /* Size of type on i960         */
-// OBSOLETE       char *typename;              /* Name of type, for error msg  */
-// OBSOLETE     }
-// OBSOLETE   types[] =
-// OBSOLETE   {
-// OBSOLETE     {
-// OBSOLETE       sizeof (short), 2, "short"
-// OBSOLETE     }
-// OBSOLETE      ,
-// OBSOLETE     {
-// OBSOLETE       sizeof (int), 4, "int"
-// OBSOLETE     }
-// OBSOLETE      ,
-// OBSOLETE     {
-// OBSOLETE       sizeof (long), 4, "long"
-// OBSOLETE     }
-// OBSOLETE      ,
-// OBSOLETE     {
-// OBSOLETE       sizeof (float), 4, "float"
-// OBSOLETE     }
-// OBSOLETE      ,
-// OBSOLETE     {
-// OBSOLETE       sizeof (double), 8, "double"
-// OBSOLETE     }
-// OBSOLETE      ,
-// OBSOLETE     {
-// OBSOLETE       sizeof (char *), 4, "pointer"
-// OBSOLETE     }
-// OBSOLETE      ,
-// OBSOLETE   };
-// OBSOLETE #define TYPELEN    (sizeof(types) / sizeof(struct typestruct))
-// OBSOLETE 
-// OBSOLETE   /* Make sure that host type sizes are same as i960
-// OBSOLETE    */
-// OBSOLETE   for (i = 0; i < TYPELEN; i++)
-// OBSOLETE     {
-// OBSOLETE       if (types[i].hostsize != types[i].i960size)
-// OBSOLETE    {
-// OBSOLETE      printf_unfiltered ("sizeof(%s) != %d:  PROCEED AT YOUR OWN RISK!\n",
-// OBSOLETE                         types[i].typename, types[i].i960size);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Is this register part of the register window system?  A yes answer
-// OBSOLETE    implies that 1) The name of this register will not be the same in
-// OBSOLETE    other frames, and 2) This register is automatically "saved" upon
-// OBSOLETE    subroutine calls and thus there is no need to search more than one
-// OBSOLETE    stack frame for it.
-// OBSOLETE 
-// OBSOLETE    On the i960, in fact, the name of this register in another frame is
-// OBSOLETE    "mud" -- there is no overlap between the windows.  Each window is
-// OBSOLETE    simply saved into the stack (true for our purposes, after having been
-// OBSOLETE    flushed; normally they reside on-chip and are restored from on-chip
-// OBSOLETE    without ever going to memory).  */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE register_in_window_p (int regnum)
-// OBSOLETE {
-// OBSOLETE   return regnum <= R15_REGNUM;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* i960_find_saved_register ()
-// OBSOLETE 
-// OBSOLETE    Return the address in which frame FRAME's value of register REGNUM
-// OBSOLETE    has been saved in memory.  Or return zero if it has not been saved.
-// OBSOLETE    If REGNUM specifies the SP, the value we return is actually the SP
-// OBSOLETE    value, not an address where it was saved.  */
-// OBSOLETE 
-// OBSOLETE static CORE_ADDR
-// OBSOLETE i960_find_saved_register (struct frame_info *frame, int regnum)
-// OBSOLETE {
-// OBSOLETE   register struct frame_info *frame1 = NULL;
-// OBSOLETE   register CORE_ADDR addr = 0;
-// OBSOLETE 
-// OBSOLETE   if (frame == NULL)               /* No regs saved if want current frame */
-// OBSOLETE     return 0;
-// OBSOLETE 
-// OBSOLETE   /* We assume that a register in a register window will only be saved
-// OBSOLETE      in one place (since the name changes and/or disappears as you go
-// OBSOLETE      towards inner frames), so we only call get_frame_saved_regs on
-// OBSOLETE      the current frame.  This is directly in contradiction to the
-// OBSOLETE      usage below, which assumes that registers used in a frame must be
-// OBSOLETE      saved in a lower (more interior) frame.  This change is a result
-// OBSOLETE      of working on a register window machine; get_frame_saved_regs
-// OBSOLETE      always returns the registers saved within a frame, within the
-// OBSOLETE      context (register namespace) of that frame. */
-// OBSOLETE 
-// OBSOLETE   /* However, note that we don't want this to return anything if
-// OBSOLETE      nothing is saved (if there's a frame inside of this one).  Also,
-// OBSOLETE      callers to this routine asking for the stack pointer want the
-// OBSOLETE      stack pointer saved for *this* frame; this is returned from the
-// OBSOLETE      next frame.  */
-// OBSOLETE 
-// OBSOLETE   if (register_in_window_p (regnum))
-// OBSOLETE     {
-// OBSOLETE       frame1 = get_next_frame (frame);
-// OBSOLETE       if (!frame1)
-// OBSOLETE    return 0;               /* Registers of this frame are active.  */
-// OBSOLETE 
-// OBSOLETE       /* Get the SP from the next frame in; it will be this
-// OBSOLETE          current frame.  */
-// OBSOLETE       if (regnum != SP_REGNUM)
-// OBSOLETE    frame1 = frame;
-// OBSOLETE 
-// OBSOLETE       FRAME_INIT_SAVED_REGS (frame1);
-// OBSOLETE       return frame1->saved_regs[regnum];   /* ... which might be zero */
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Note that this next routine assumes that registers used in
-// OBSOLETE      frame x will be saved only in the frame that x calls and
-// OBSOLETE      frames interior to it.  This is not true on the sparc, but the
-// OBSOLETE      above macro takes care of it, so we should be all right. */
-// OBSOLETE   while (1)
-// OBSOLETE     {
-// OBSOLETE       QUIT;
-// OBSOLETE       frame1 = get_next_frame (frame);
-// OBSOLETE       if (frame1 == 0)
-// OBSOLETE    break;
-// OBSOLETE       frame = frame1;
-// OBSOLETE       FRAME_INIT_SAVED_REGS (frame1);
-// OBSOLETE       if (frame1->saved_regs[regnum])
-// OBSOLETE    addr = frame1->saved_regs[regnum];
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return addr;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* i960_get_saved_register ()
-// OBSOLETE 
-// OBSOLETE    Find register number REGNUM relative to FRAME and put its (raw,
-// OBSOLETE    target format) contents in *RAW_BUFFER.  Set *OPTIMIZED if the
-// OBSOLETE    variable was optimized out (and thus can't be fetched).  Set *LVAL
-// OBSOLETE    to lval_memory, lval_register, or not_lval, depending on whether
-// OBSOLETE    the value was fetched from memory, from a register, or in a strange
-// OBSOLETE    and non-modifiable way (e.g. a frame pointer which was calculated
-// OBSOLETE    rather than fetched).  Set *ADDRP to the address, either in memory
-// OBSOLETE    on as a REGISTER_BYTE offset into the registers array.
-// OBSOLETE 
-// OBSOLETE    Note that this implementation never sets *LVAL to not_lval.  But it
-// OBSOLETE    can be replaced by defining GET_SAVED_REGISTER and supplying your
-// OBSOLETE    own.
-// OBSOLETE 
-// OBSOLETE    The argument RAW_BUFFER must point to aligned memory.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE i960_get_saved_register (char *raw_buffer,
-// OBSOLETE                     int *optimized,
-// OBSOLETE                     CORE_ADDR *addrp,
-// OBSOLETE                     struct frame_info *frame,
-// OBSOLETE                     int regnum,
-// OBSOLETE                     enum lval_type *lval)
-// OBSOLETE {
-// OBSOLETE   CORE_ADDR addr;
-// OBSOLETE 
-// OBSOLETE   if (!target_has_registers)
-// OBSOLETE     error ("No registers.");
-// OBSOLETE 
-// OBSOLETE   /* Normal systems don't optimize out things with register numbers.  */
-// OBSOLETE   if (optimized != NULL)
-// OBSOLETE     *optimized = 0;
-// OBSOLETE   addr = i960_find_saved_register (frame, regnum);
-// OBSOLETE   if (addr != 0)
-// OBSOLETE     {
-// OBSOLETE       if (lval != NULL)
-// OBSOLETE    *lval = lval_memory;
-// OBSOLETE       if (regnum == SP_REGNUM)
-// OBSOLETE    {
-// OBSOLETE      if (raw_buffer != NULL)
-// OBSOLETE        {
-// OBSOLETE          /* Put it back in target format.  */
-// OBSOLETE          store_address (raw_buffer, REGISTER_RAW_SIZE (regnum),
-// OBSOLETE                         (LONGEST) addr);
-// OBSOLETE        }
-// OBSOLETE      if (addrp != NULL)
-// OBSOLETE        *addrp = 0;
-// OBSOLETE      return;
-// OBSOLETE    }
-// OBSOLETE       if (raw_buffer != NULL)
-// OBSOLETE    target_read_memory (addr, raw_buffer, REGISTER_RAW_SIZE (regnum));
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       if (lval != NULL)
-// OBSOLETE    *lval = lval_register;
-// OBSOLETE       addr = REGISTER_BYTE (regnum);
-// OBSOLETE       if (raw_buffer != NULL)
-// OBSOLETE    read_register_gen (regnum, raw_buffer);
-// OBSOLETE     }
-// OBSOLETE   if (addrp != NULL)
-// OBSOLETE     *addrp = addr;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Examine an i960 function prologue, recording the addresses at which
-// OBSOLETE    registers are saved explicitly by the prologue code, and returning
-// OBSOLETE    the address of the first instruction after the prologue (but not
-// OBSOLETE    after the instruction at address LIMIT, as explained below).
-// OBSOLETE 
-// OBSOLETE    LIMIT places an upper bound on addresses of the instructions to be
-// OBSOLETE    examined.  If the prologue code scan reaches LIMIT, the scan is
-// OBSOLETE    aborted and LIMIT is returned.  This is used, when examining the
-// OBSOLETE    prologue for the current frame, to keep examine_prologue () from
-// OBSOLETE    claiming that a given register has been saved when in fact the
-// OBSOLETE    instruction that saves it has not yet been executed.  LIMIT is used
-// OBSOLETE    at other times to stop the scan when we hit code after the true
-// OBSOLETE    function prologue (e.g. for the first source line) which might
-// OBSOLETE    otherwise be mistaken for function prologue.
-// OBSOLETE 
-// OBSOLETE    The format of the function prologue matched by this routine is
-// OBSOLETE    derived from examination of the source to gcc960 1.21, particularly
-// OBSOLETE    the routine i960_function_prologue ().  A "regular expression" for
-// OBSOLETE    the function prologue is given below:
-// OBSOLETE 
-// OBSOLETE    (lda LRn, g14
-// OBSOLETE    mov g14, g[0-7]
-// OBSOLETE    (mov 0, g14) | (lda 0, g14))?
-// OBSOLETE 
-// OBSOLETE    (mov[qtl]? g[0-15], r[4-15])*
-// OBSOLETE    ((addo [1-31], sp, sp) | (lda n(sp), sp))?
-// OBSOLETE    (st[qtl]? g[0-15], n(fp))*
-// OBSOLETE 
-// OBSOLETE    (cmpobne 0, g14, LFn
-// OBSOLETE    mov sp, g14
-// OBSOLETE    lda 0x30(sp), sp
-// OBSOLETE    LFn: stq g0, (g14)
-// OBSOLETE    stq g4, 0x10(g14)
-// OBSOLETE    stq g8, 0x20(g14))?
-// OBSOLETE 
-// OBSOLETE    (st g14, n(fp))?
-// OBSOLETE    (mov g13,r[4-15])?
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE /* Macros for extracting fields from i960 instructions.  */
-// OBSOLETE 
-// OBSOLETE #define BITMASK(pos, width) (((0x1 << (width)) - 1) << (pos))
-// OBSOLETE #define EXTRACT_FIELD(val, pos, width) ((val) >> (pos) & BITMASK (0, width))
-// OBSOLETE 
-// OBSOLETE #define REG_SRC1(insn)    EXTRACT_FIELD (insn, 0, 5)
-// OBSOLETE #define REG_SRC2(insn)    EXTRACT_FIELD (insn, 14, 5)
-// OBSOLETE #define REG_SRCDST(insn)  EXTRACT_FIELD (insn, 19, 5)
-// OBSOLETE #define MEM_SRCDST(insn)  EXTRACT_FIELD (insn, 19, 5)
-// OBSOLETE #define MEMA_OFFSET(insn) EXTRACT_FIELD (insn, 0, 12)
-// OBSOLETE 
-// OBSOLETE /* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or
-// OBSOLETE    is not the address of a valid instruction, the address of the next
-// OBSOLETE    instruction beyond ADDR otherwise.  *PWORD1 receives the first word
-// OBSOLETE    of the instruction, and (for two-word instructions), *PWORD2 receives
-// OBSOLETE    the second.  */
-// OBSOLETE 
-// OBSOLETE #define NEXT_PROLOGUE_INSN(addr, lim, pword1, pword2) \
-// OBSOLETE   (((addr) < (lim)) ? next_insn (addr, pword1, pword2) : 0)
-// OBSOLETE 
-// OBSOLETE static CORE_ADDR
-// OBSOLETE examine_prologue (register CORE_ADDR ip, register CORE_ADDR limit,
-// OBSOLETE              CORE_ADDR frame_addr, struct frame_saved_regs *fsr)
-// OBSOLETE {
-// OBSOLETE   register CORE_ADDR next_ip;
-// OBSOLETE   register int src, dst;
-// OBSOLETE   register unsigned int *pcode;
-// OBSOLETE   unsigned int insn1, insn2;
-// OBSOLETE   int size;
-// OBSOLETE   int within_leaf_prologue;
-// OBSOLETE   CORE_ADDR save_addr;
-// OBSOLETE   static unsigned int varargs_prologue_code[] =
-// OBSOLETE   {
-// OBSOLETE     0x3507a00c,                    /* cmpobne 0x0, g14, LFn */
-// OBSOLETE     0x5cf01601,                    /* mov sp, g14           */
-// OBSOLETE     0x8c086030,                    /* lda 0x30(sp), sp      */
-// OBSOLETE     0xb2879000,                    /* LFn: stq  g0, (g14)   */
-// OBSOLETE     0xb2a7a010,                    /* stq g4, 0x10(g14)     */
-// OBSOLETE     0xb2c7a020                     /* stq g8, 0x20(g14)     */
-// OBSOLETE   };
-// OBSOLETE 
-// OBSOLETE   /* Accept a leaf procedure prologue code fragment if present.
-// OBSOLETE      Note that ip might point to either the leaf or non-leaf
-// OBSOLETE      entry point; we look for the non-leaf entry point first:  */
-// OBSOLETE 
-// OBSOLETE   within_leaf_prologue = 0;
-// OBSOLETE   if ((next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2))
-// OBSOLETE       && ((insn1 & 0xfffff000) == 0x8cf00000       /* lda LRx, g14 (MEMA) */
-// OBSOLETE      || (insn1 & 0xfffffc60) == 0x8cf03000))       /* lda LRx, g14 (MEMB) */
-// OBSOLETE     {
-// OBSOLETE       within_leaf_prologue = 1;
-// OBSOLETE       next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn1, &insn2);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Now look for the prologue code at a leaf entry point:  */
-// OBSOLETE 
-// OBSOLETE   if (next_ip
-// OBSOLETE       && (insn1 & 0xff87ffff) == 0x5c80161e        /* mov g14, gx */
-// OBSOLETE       && REG_SRCDST (insn1) <= G0_REGNUM + 7)
-// OBSOLETE     {
-// OBSOLETE       within_leaf_prologue = 1;
-// OBSOLETE       if ((next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn1, &insn2))
-// OBSOLETE      && (insn1 == 0x8cf00000       /* lda 0, g14 */
-// OBSOLETE          || insn1 == 0x5cf01e00))  /* mov 0, g14 */
-// OBSOLETE    {
-// OBSOLETE      ip = next_ip;
-// OBSOLETE      next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2);
-// OBSOLETE      within_leaf_prologue = 0;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* If something that looks like the beginning of a leaf prologue
-// OBSOLETE      has been seen, but the remainder of the prologue is missing, bail.
-// OBSOLETE      We don't know what we've got.  */
-// OBSOLETE 
-// OBSOLETE   if (within_leaf_prologue)
-// OBSOLETE     return (ip);
-// OBSOLETE 
-// OBSOLETE   /* Accept zero or more instances of "mov[qtl]? gx, ry", where y >= 4.
-// OBSOLETE      This may cause us to mistake the moving of a register
-// OBSOLETE      parameter to a local register for the saving of a callee-saved
-// OBSOLETE      register, but that can't be helped, since with the
-// OBSOLETE      "-fcall-saved" flag, any register can be made callee-saved.  */
-// OBSOLETE 
-// OBSOLETE   while (next_ip
-// OBSOLETE     && (insn1 & 0xfc802fb0) == 0x5c000610
-// OBSOLETE     && (dst = REG_SRCDST (insn1)) >= (R0_REGNUM + 4))
-// OBSOLETE     {
-// OBSOLETE       src = REG_SRC1 (insn1);
-// OBSOLETE       size = EXTRACT_FIELD (insn1, 24, 2) + 1;
-// OBSOLETE       save_addr = frame_addr + ((dst - R0_REGNUM) * 4);
-// OBSOLETE       while (size--)
-// OBSOLETE    {
-// OBSOLETE      fsr->regs[src++] = save_addr;
-// OBSOLETE      save_addr += 4;
-// OBSOLETE    }
-// OBSOLETE       ip = next_ip;
-// OBSOLETE       next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Accept an optional "addo n, sp, sp" or "lda n(sp), sp".  */
-// OBSOLETE 
-// OBSOLETE   if (next_ip &&
-// OBSOLETE       ((insn1 & 0xffffffe0) == 0x59084800  /* addo n, sp, sp */
-// OBSOLETE        || (insn1 & 0xfffff000) == 0x8c086000       /* lda n(sp), sp (MEMA) */
-// OBSOLETE        || (insn1 & 0xfffffc60) == 0x8c087400))     /* lda n(sp), sp (MEMB) */
-// OBSOLETE     {
-// OBSOLETE       ip = next_ip;
-// OBSOLETE       next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Accept zero or more instances of "st[qtl]? gx, n(fp)".  
-// OBSOLETE      This may cause us to mistake the copying of a register
-// OBSOLETE      parameter to the frame for the saving of a callee-saved
-// OBSOLETE      register, but that can't be helped, since with the
-// OBSOLETE      "-fcall-saved" flag, any register can be made callee-saved.
-// OBSOLETE      We can, however, refuse to accept a save of register g14,
-// OBSOLETE      since that is matched explicitly below.  */
-// OBSOLETE 
-// OBSOLETE   while (next_ip &&
-// OBSOLETE     ((insn1 & 0xf787f000) == 0x9287e000    /* stl? gx, n(fp) (MEMA) */
-// OBSOLETE      || (insn1 & 0xf787fc60) == 0x9287f400         /* stl? gx, n(fp) (MEMB) */
-// OBSOLETE      || (insn1 & 0xef87f000) == 0xa287e000         /* st[tq] gx, n(fp) (MEMA) */
-// OBSOLETE      || (insn1 & 0xef87fc60) == 0xa287f400)        /* st[tq] gx, n(fp) (MEMB) */
-// OBSOLETE     && ((src = MEM_SRCDST (insn1)) != G14_REGNUM))
-// OBSOLETE     {
-// OBSOLETE       save_addr = frame_addr + ((insn1 & BITMASK (12, 1))
-// OBSOLETE                            ? insn2 : MEMA_OFFSET (insn1));
-// OBSOLETE       size = (insn1 & BITMASK (29, 1)) ? ((insn1 & BITMASK (28, 1)) ? 4 : 3)
-// OBSOLETE    : ((insn1 & BITMASK (27, 1)) ? 2 : 1);
-// OBSOLETE       while (size--)
-// OBSOLETE    {
-// OBSOLETE      fsr->regs[src++] = save_addr;
-// OBSOLETE      save_addr += 4;
-// OBSOLETE    }
-// OBSOLETE       ip = next_ip;
-// OBSOLETE       next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Accept the varargs prologue code if present.  */
-// OBSOLETE 
-// OBSOLETE   size = sizeof (varargs_prologue_code) / sizeof (int);
-// OBSOLETE   pcode = varargs_prologue_code;
-// OBSOLETE   while (size-- && next_ip && *pcode++ == insn1)
-// OBSOLETE     {
-// OBSOLETE       ip = next_ip;
-// OBSOLETE       next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Accept an optional "st g14, n(fp)".  */
-// OBSOLETE 
-// OBSOLETE   if (next_ip &&
-// OBSOLETE       ((insn1 & 0xfffff000) == 0x92f7e000  /* st g14, n(fp) (MEMA) */
-// OBSOLETE        || (insn1 & 0xfffffc60) == 0x92f7f400))     /* st g14, n(fp) (MEMB) */
-// OBSOLETE     {
-// OBSOLETE       fsr->regs[G14_REGNUM] = frame_addr + ((insn1 & BITMASK (12, 1))
-// OBSOLETE                                        ? insn2 : MEMA_OFFSET (insn1));
-// OBSOLETE       ip = next_ip;
-// OBSOLETE       next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Accept zero or one instance of "mov g13, ry", where y >= 4.
-// OBSOLETE      This is saving the address where a struct should be returned.  */
-// OBSOLETE 
-// OBSOLETE   if (next_ip
-// OBSOLETE       && (insn1 & 0xff802fbf) == 0x5c00061d
-// OBSOLETE       && (dst = REG_SRCDST (insn1)) >= (R0_REGNUM + 4))
-// OBSOLETE     {
-// OBSOLETE       save_addr = frame_addr + ((dst - R0_REGNUM) * 4);
-// OBSOLETE       fsr->regs[G0_REGNUM + 13] = save_addr;
-// OBSOLETE       ip = next_ip;
-// OBSOLETE #if 0                              /* We'll need this once there is a subsequent instruction examined. */
-// OBSOLETE       next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2);
-// OBSOLETE #endif
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return (ip);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Given an ip value corresponding to the start of a function,
-// OBSOLETE    return the ip of the first instruction after the function 
-// OBSOLETE    prologue.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE i960_skip_prologue (CORE_ADDR ip)
-// OBSOLETE {
-// OBSOLETE   struct frame_saved_regs saved_regs_dummy;
-// OBSOLETE   struct symtab_and_line sal;
-// OBSOLETE   CORE_ADDR limit;
-// OBSOLETE 
-// OBSOLETE   sal = find_pc_line (ip, 0);
-// OBSOLETE   limit = (sal.end) ? sal.end : 0xffffffff;
-// OBSOLETE 
-// OBSOLETE   return (examine_prologue (ip, limit, (CORE_ADDR) 0, &saved_regs_dummy));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Put here the code to store, into a struct frame_saved_regs,
-// OBSOLETE    the addresses of the saved registers of frame described by FRAME_INFO.
-// OBSOLETE    This includes special registers such as pc and fp saved in special
-// OBSOLETE    ways in the stack frame.  sp is even more special:
-// OBSOLETE    the address we return for it IS the sp for the next frame.
-// OBSOLETE 
-// OBSOLETE    We cache the result of doing this in the frame_obstack, since it is
-// OBSOLETE    fairly expensive.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE frame_find_saved_regs (struct frame_info *fi, struct frame_saved_regs *fsr)
-// OBSOLETE {
-// OBSOLETE   register CORE_ADDR next_addr;
-// OBSOLETE   register CORE_ADDR *saved_regs;
-// OBSOLETE   register int regnum;
-// OBSOLETE   register struct frame_saved_regs *cache_fsr;
-// OBSOLETE   CORE_ADDR ip;
-// OBSOLETE   struct symtab_and_line sal;
-// OBSOLETE   CORE_ADDR limit;
-// OBSOLETE 
-// OBSOLETE   if (!fi->fsr)
-// OBSOLETE     {
-// OBSOLETE       cache_fsr = (struct frame_saved_regs *)
-// OBSOLETE    frame_obstack_alloc (sizeof (struct frame_saved_regs));
-// OBSOLETE       memset (cache_fsr, '\0', sizeof (struct frame_saved_regs));
-// OBSOLETE       fi->fsr = cache_fsr;
-// OBSOLETE 
-// OBSOLETE       /* Find the start and end of the function prologue.  If the PC
-// OBSOLETE          is in the function prologue, we only consider the part that
-// OBSOLETE          has executed already.  */
-// OBSOLETE 
-// OBSOLETE       ip = get_pc_function_start (fi->pc);
-// OBSOLETE       sal = find_pc_line (ip, 0);
-// OBSOLETE       limit = (sal.end && sal.end < fi->pc) ? sal.end : fi->pc;
-// OBSOLETE 
-// OBSOLETE       examine_prologue (ip, limit, fi->frame, cache_fsr);
-// OBSOLETE 
-// OBSOLETE       /* Record the addresses at which the local registers are saved.
-// OBSOLETE          Strictly speaking, we should only do this for non-leaf procedures,
-// OBSOLETE          but no one will ever look at these values if it is a leaf procedure,
-// OBSOLETE          since local registers are always caller-saved.  */
-// OBSOLETE 
-// OBSOLETE       next_addr = (CORE_ADDR) fi->frame;
-// OBSOLETE       saved_regs = cache_fsr->regs;
-// OBSOLETE       for (regnum = R0_REGNUM; regnum <= R15_REGNUM; regnum++)
-// OBSOLETE    {
-// OBSOLETE      *saved_regs++ = next_addr;
-// OBSOLETE      next_addr += 4;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       cache_fsr->regs[FP_REGNUM] = cache_fsr->regs[PFP_REGNUM];
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   *fsr = *fi->fsr;
-// OBSOLETE 
-// OBSOLETE   /* Fetch the value of the sp from memory every time, since it
-// OBSOLETE      is conceivable that it has changed since the cache was flushed.  
-// OBSOLETE      This unfortunately undoes much of the savings from caching the 
-// OBSOLETE      saved register values.  I suggest adding an argument to 
-// OBSOLETE      get_frame_saved_regs () specifying the register number we're
-// OBSOLETE      interested in (or -1 for all registers).  This would be passed
-// OBSOLETE      through to FRAME_FIND_SAVED_REGS (), permitting more efficient
-// OBSOLETE      computation of saved register addresses (e.g., on the i960,
-// OBSOLETE      we don't have to examine the prologue to find local registers). 
-// OBSOLETE      -- markf@wrs.com 
-// OBSOLETE      FIXME, we don't need to refetch this, since the cache is cleared
-// OBSOLETE      every time the child process is restarted.  If GDB itself
-// OBSOLETE      modifies SP, it has to clear the cache by hand (does it?).  -gnu */
-// OBSOLETE 
-// OBSOLETE   fsr->regs[SP_REGNUM] = read_memory_integer (fsr->regs[SP_REGNUM], 4);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return the address of the argument block for the frame
-// OBSOLETE    described by FI.  Returns 0 if the address is unknown.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE frame_args_address (struct frame_info *fi, int must_be_correct)
-// OBSOLETE {
-// OBSOLETE   struct frame_saved_regs fsr;
-// OBSOLETE   CORE_ADDR ap;
-// OBSOLETE 
-// OBSOLETE   /* If g14 was saved in the frame by the function prologue code, return
-// OBSOLETE      the saved value.  If the frame is current and we are being sloppy,
-// OBSOLETE      return the value of g14.  Otherwise, return zero.  */
-// OBSOLETE 
-// OBSOLETE   get_frame_saved_regs (fi, &fsr);
-// OBSOLETE   if (fsr.regs[G14_REGNUM])
-// OBSOLETE     ap = read_memory_integer (fsr.regs[G14_REGNUM], 4);
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       if (must_be_correct)
-// OBSOLETE    return 0;               /* Don't cache this result */
-// OBSOLETE       if (get_next_frame (fi))
-// OBSOLETE    ap = 0;
-// OBSOLETE       else
-// OBSOLETE    ap = read_register (G14_REGNUM);
-// OBSOLETE       if (ap == 0)
-// OBSOLETE    ap = fi->frame;
-// OBSOLETE     }
-// OBSOLETE   fi->arg_pointer = ap;            /* Cache it for next time */
-// OBSOLETE   return ap;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return the address of the return struct for the frame
-// OBSOLETE    described by FI.  Returns 0 if the address is unknown.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE frame_struct_result_address (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   struct frame_saved_regs fsr;
-// OBSOLETE   CORE_ADDR ap;
-// OBSOLETE 
-// OBSOLETE   /* If the frame is non-current, check to see if g14 was saved in the
-// OBSOLETE      frame by the function prologue code; return the saved value if so,
-// OBSOLETE      zero otherwise.  If the frame is current, return the value of g14.
-// OBSOLETE 
-// OBSOLETE      FIXME, shouldn't this use the saved value as long as we are past
-// OBSOLETE      the function prologue, and only use the current value if we have
-// OBSOLETE      no saved value and are at TOS?   -- gnu@cygnus.com */
-// OBSOLETE 
-// OBSOLETE   if (get_next_frame (fi))
-// OBSOLETE     {
-// OBSOLETE       get_frame_saved_regs (fi, &fsr);
-// OBSOLETE       if (fsr.regs[G13_REGNUM])
-// OBSOLETE    ap = read_memory_integer (fsr.regs[G13_REGNUM], 4);
-// OBSOLETE       else
-// OBSOLETE    ap = 0;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     ap = read_register (G13_REGNUM);
-// OBSOLETE 
-// OBSOLETE   return ap;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return address to which the currently executing leafproc will return,
-// OBSOLETE    or 0 if IP, the value of the instruction pointer from the currently
-// OBSOLETE    executing function, is not in a leafproc (or if we can't tell if it
-// OBSOLETE    is).
-// OBSOLETE 
-// OBSOLETE    Do this by finding the starting address of the routine in which IP lies.
-// OBSOLETE    If the instruction there is "mov g14, gx" (where x is in [0,7]), this
-// OBSOLETE    is a leafproc and the return address is in register gx.  Well, this is
-// OBSOLETE    true unless the return address points at a RET instruction in the current
-// OBSOLETE    procedure, which indicates that we have a 'dual entry' routine that
-// OBSOLETE    has been entered through the CALL entry point.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE leafproc_return (CORE_ADDR ip)
-// OBSOLETE {
-// OBSOLETE   register struct minimal_symbol *msymbol;
-// OBSOLETE   char *p;
-// OBSOLETE   int dst;
-// OBSOLETE   unsigned int insn1, insn2;
-// OBSOLETE   CORE_ADDR return_addr;
-// OBSOLETE 
-// OBSOLETE   if ((msymbol = lookup_minimal_symbol_by_pc (ip)) != NULL)
-// OBSOLETE     {
-// OBSOLETE       if ((p = strchr (SYMBOL_NAME (msymbol), '.')) && STREQ (p, ".lf"))
-// OBSOLETE    {
-// OBSOLETE      if (next_insn (SYMBOL_VALUE_ADDRESS (msymbol), &insn1, &insn2)
-// OBSOLETE          && (insn1 & 0xff87ffff) == 0x5c80161e     /* mov g14, gx */
-// OBSOLETE          && (dst = REG_SRCDST (insn1)) <= G0_REGNUM + 7)
-// OBSOLETE        {
-// OBSOLETE          /* Get the return address.  If the "mov g14, gx" 
-// OBSOLETE             instruction hasn't been executed yet, read
-// OBSOLETE             the return address from g14; otherwise, read it
-// OBSOLETE             from the register into which g14 was moved.  */
-// OBSOLETE 
-// OBSOLETE          return_addr =
-// OBSOLETE            read_register ((ip == SYMBOL_VALUE_ADDRESS (msymbol))
-// OBSOLETE                           ? G14_REGNUM : dst);
-// OBSOLETE 
-// OBSOLETE          /* We know we are in a leaf procedure, but we don't know
-// OBSOLETE             whether the caller actually did a "bal" to the ".lf"
-// OBSOLETE             entry point, or a normal "call" to the non-leaf entry
-// OBSOLETE             point one instruction before.  In the latter case, the
-// OBSOLETE             return address will be the address of a "ret"
-// OBSOLETE             instruction within the procedure itself.  We test for
-// OBSOLETE             this below.  */
-// OBSOLETE 
-// OBSOLETE          if (!next_insn (return_addr, &insn1, &insn2)
-// OBSOLETE              || (insn1 & 0xff000000) != 0xa000000  /* ret */
-// OBSOLETE              || lookup_minimal_symbol_by_pc (return_addr) != msymbol)
-// OBSOLETE            return (return_addr);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Immediately after a function call, return the saved pc.
-// OBSOLETE    Can't go through the frames for this because on some machines
-// OBSOLETE    the new frame is not set up until the new function executes
-// OBSOLETE    some instructions. 
-// OBSOLETE    On the i960, the frame *is* set up immediately after the call,
-// OBSOLETE    unless the function is a leaf procedure.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE saved_pc_after_call (struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE   CORE_ADDR saved_pc;
-// OBSOLETE 
-// OBSOLETE   saved_pc = leafproc_return (get_frame_pc (frame));
-// OBSOLETE   if (!saved_pc)
-// OBSOLETE     saved_pc = FRAME_SAVED_PC (frame);
-// OBSOLETE 
-// OBSOLETE   return saved_pc;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Discard from the stack the innermost frame,
-// OBSOLETE    restoring all saved registers.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE i960_pop_frame (void)
-// OBSOLETE {
-// OBSOLETE   register struct frame_info *current_fi, *prev_fi;
-// OBSOLETE   register int i;
-// OBSOLETE   CORE_ADDR save_addr;
-// OBSOLETE   CORE_ADDR leaf_return_addr;
-// OBSOLETE   struct frame_saved_regs fsr;
-// OBSOLETE   char local_regs_buf[16 * 4];
-// OBSOLETE 
-// OBSOLETE   current_fi = get_current_frame ();
-// OBSOLETE 
-// OBSOLETE   /* First, undo what the hardware does when we return.
-// OBSOLETE      If this is a non-leaf procedure, restore local registers from
-// OBSOLETE      the save area in the calling frame.  Otherwise, load the return
-// OBSOLETE      address obtained from leafproc_return () into the rip.  */
-// OBSOLETE 
-// OBSOLETE   leaf_return_addr = leafproc_return (current_fi->pc);
-// OBSOLETE   if (!leaf_return_addr)
-// OBSOLETE     {
-// OBSOLETE       /* Non-leaf procedure.  Restore local registers, incl IP.  */
-// OBSOLETE       prev_fi = get_prev_frame (current_fi);
-// OBSOLETE       read_memory (prev_fi->frame, local_regs_buf, sizeof (local_regs_buf));
-// OBSOLETE       write_register_bytes (REGISTER_BYTE (R0_REGNUM), local_regs_buf,
-// OBSOLETE                        sizeof (local_regs_buf));
-// OBSOLETE 
-// OBSOLETE       /* Restore frame pointer.  */
-// OBSOLETE       write_register (FP_REGNUM, prev_fi->frame);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       /* Leaf procedure.  Just restore the return address into the IP.  */
-// OBSOLETE       write_register (RIP_REGNUM, leaf_return_addr);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Now restore any global regs that the current function had saved. */
-// OBSOLETE   get_frame_saved_regs (current_fi, &fsr);
-// OBSOLETE   for (i = G0_REGNUM; i < G14_REGNUM; i++)
-// OBSOLETE     {
-// OBSOLETE       save_addr = fsr.regs[i];
-// OBSOLETE       if (save_addr != 0)
-// OBSOLETE    write_register (i, read_memory_integer (save_addr, 4));
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Flush the frame cache, create a frame for the new innermost frame,
-// OBSOLETE      and make it the current frame.  */
-// OBSOLETE 
-// OBSOLETE   flush_cached_frames ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Given a 960 stop code (fault or trace), return the signal which
-// OBSOLETE    corresponds.  */
-// OBSOLETE 
-// OBSOLETE enum target_signal
-// OBSOLETE i960_fault_to_signal (int fault)
-// OBSOLETE {
-// OBSOLETE   switch (fault)
-// OBSOLETE     {
-// OBSOLETE     case 0:
-// OBSOLETE       return TARGET_SIGNAL_BUS;    /* parallel fault */
-// OBSOLETE     case 1:
-// OBSOLETE       return TARGET_SIGNAL_UNKNOWN;
-// OBSOLETE     case 2:
-// OBSOLETE       return TARGET_SIGNAL_ILL;    /* operation fault */
-// OBSOLETE     case 3:
-// OBSOLETE       return TARGET_SIGNAL_FPE;    /* arithmetic fault */
-// OBSOLETE     case 4:
-// OBSOLETE       return TARGET_SIGNAL_FPE;    /* floating point fault */
-// OBSOLETE 
-// OBSOLETE       /* constraint fault.  This appears not to distinguish between
-// OBSOLETE          a range constraint fault (which should be SIGFPE) and a privileged
-// OBSOLETE          fault (which should be SIGILL).  */
-// OBSOLETE     case 5:
-// OBSOLETE       return TARGET_SIGNAL_ILL;
-// OBSOLETE 
-// OBSOLETE     case 6:
-// OBSOLETE       return TARGET_SIGNAL_SEGV;   /* virtual memory fault */
-// OBSOLETE 
-// OBSOLETE       /* protection fault.  This is for an out-of-range argument to
-// OBSOLETE          "calls".  I guess it also could be SIGILL. */
-// OBSOLETE     case 7:
-// OBSOLETE       return TARGET_SIGNAL_SEGV;
-// OBSOLETE 
-// OBSOLETE     case 8:
-// OBSOLETE       return TARGET_SIGNAL_BUS;    /* machine fault */
-// OBSOLETE     case 9:
-// OBSOLETE       return TARGET_SIGNAL_BUS;    /* structural fault */
-// OBSOLETE     case 0xa:
-// OBSOLETE       return TARGET_SIGNAL_ILL;    /* type fault */
-// OBSOLETE     case 0xb:
-// OBSOLETE       return TARGET_SIGNAL_UNKNOWN;        /* reserved fault */
-// OBSOLETE     case 0xc:
-// OBSOLETE       return TARGET_SIGNAL_BUS;    /* process fault */
-// OBSOLETE     case 0xd:
-// OBSOLETE       return TARGET_SIGNAL_SEGV;   /* descriptor fault */
-// OBSOLETE     case 0xe:
-// OBSOLETE       return TARGET_SIGNAL_BUS;    /* event fault */
-// OBSOLETE     case 0xf:
-// OBSOLETE       return TARGET_SIGNAL_UNKNOWN;        /* reserved fault */
-// OBSOLETE     case 0x10:
-// OBSOLETE       return TARGET_SIGNAL_TRAP;   /* single-step trace */
-// OBSOLETE     case 0x11:
-// OBSOLETE       return TARGET_SIGNAL_TRAP;   /* branch trace */
-// OBSOLETE     case 0x12:
-// OBSOLETE       return TARGET_SIGNAL_TRAP;   /* call trace */
-// OBSOLETE     case 0x13:
-// OBSOLETE       return TARGET_SIGNAL_TRAP;   /* return trace */
-// OBSOLETE     case 0x14:
-// OBSOLETE       return TARGET_SIGNAL_TRAP;   /* pre-return trace */
-// OBSOLETE     case 0x15:
-// OBSOLETE       return TARGET_SIGNAL_TRAP;   /* supervisor call trace */
-// OBSOLETE     case 0x16:
-// OBSOLETE       return TARGET_SIGNAL_TRAP;   /* breakpoint trace */
-// OBSOLETE     default:
-// OBSOLETE       return TARGET_SIGNAL_UNKNOWN;
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /****************************************/
-// OBSOLETE /* MEM format                           */
-// OBSOLETE /****************************************/
-// OBSOLETE 
-// OBSOLETE struct tabent
-// OBSOLETE {
-// OBSOLETE   char *name;
-// OBSOLETE   char numops;
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE /* Return instruction length, either 4 or 8.  When NOPRINT is non-zero
-// OBSOLETE    (TRUE), don't output any text.  (Actually, as implemented, if NOPRINT
-// OBSOLETE    is 0, abort() is called.) */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE mem (unsigned long memaddr, unsigned long word1, unsigned long word2,
-// OBSOLETE      int noprint)
-// OBSOLETE {
-// OBSOLETE   int i, j;
-// OBSOLETE   int len;
-// OBSOLETE   int mode;
-// OBSOLETE   int offset;
-// OBSOLETE   const char *reg1, *reg2, *reg3;
-// OBSOLETE 
-// OBSOLETE   /* This lookup table is too sparse to make it worth typing in, but not
-// OBSOLETE    * so large as to make a sparse array necessary.  We allocate the
-// OBSOLETE    * table at runtime, initialize all entries to empty, and copy the
-// OBSOLETE    * real ones in from an initialization table.
-// OBSOLETE    *
-// OBSOLETE    * NOTE: In this table, the meaning of 'numops' is:
-// OBSOLETE    *       1: single operand
-// OBSOLETE    *       2: 2 operands, load instruction
-// OBSOLETE    *      -2: 2 operands, store instruction
-// OBSOLETE    */
-// OBSOLETE   static struct tabent *mem_tab = NULL;
-// OBSOLETE /* Opcodes of 0x8X, 9X, aX, bX, and cX must be in the table.  */
-// OBSOLETE #define MEM_MIN    0x80
-// OBSOLETE #define MEM_MAX    0xcf
-// OBSOLETE #define MEM_SIZ    ((MEM_MAX-MEM_MIN+1) * sizeof(struct tabent))
-// OBSOLETE 
-// OBSOLETE   static struct
-// OBSOLETE     {
-// OBSOLETE       int opcode;
-// OBSOLETE       char *name;
-// OBSOLETE       char numops;
-// OBSOLETE     }
-// OBSOLETE   mem_init[] =
-// OBSOLETE   {
-// OBSOLETE     0x80, "ldob", 2,
-// OBSOLETE       0x82, "stob", -2,
-// OBSOLETE       0x84, "bx", 1,
-// OBSOLETE       0x85, "balx", 2,
-// OBSOLETE       0x86, "callx", 1,
-// OBSOLETE       0x88, "ldos", 2,
-// OBSOLETE       0x8a, "stos", -2,
-// OBSOLETE       0x8c, "lda", 2,
-// OBSOLETE       0x90, "ld", 2,
-// OBSOLETE       0x92, "st", -2,
-// OBSOLETE       0x98, "ldl", 2,
-// OBSOLETE       0x9a, "stl", -2,
-// OBSOLETE       0xa0, "ldt", 2,
-// OBSOLETE       0xa2, "stt", -2,
-// OBSOLETE       0xb0, "ldq", 2,
-// OBSOLETE       0xb2, "stq", -2,
-// OBSOLETE       0xc0, "ldib", 2,
-// OBSOLETE       0xc2, "stib", -2,
-// OBSOLETE       0xc8, "ldis", 2,
-// OBSOLETE       0xca, "stis", -2,
-// OBSOLETE       0, NULL, 0
-// OBSOLETE   };
-// OBSOLETE 
-// OBSOLETE   if (mem_tab == NULL)
-// OBSOLETE     {
-// OBSOLETE       mem_tab = (struct tabent *) xmalloc (MEM_SIZ);
-// OBSOLETE       memset (mem_tab, '\0', MEM_SIZ);
-// OBSOLETE       for (i = 0; mem_init[i].opcode != 0; i++)
-// OBSOLETE    {
-// OBSOLETE      j = mem_init[i].opcode - MEM_MIN;
-// OBSOLETE      mem_tab[j].name = mem_init[i].name;
-// OBSOLETE      mem_tab[j].numops = mem_init[i].numops;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   i = ((word1 >> 24) & 0xff) - MEM_MIN;
-// OBSOLETE   mode = (word1 >> 10) & 0xf;
-// OBSOLETE 
-// OBSOLETE   if ((mem_tab[i].name != NULL)    /* Valid instruction */
-// OBSOLETE       && ((mode == 5) || (mode >= 12)))
-// OBSOLETE     {                              /* With 32-bit displacement */
-// OBSOLETE       len = 8;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       len = 4;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (noprint)
-// OBSOLETE     {
-// OBSOLETE       return len;
-// OBSOLETE     }
-// OBSOLETE   internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Read the i960 instruction at 'memaddr' and return the address of 
-// OBSOLETE    the next instruction after that, or 0 if 'memaddr' is not the
-// OBSOLETE    address of a valid instruction.  The first word of the instruction
-// OBSOLETE    is stored at 'pword1', and the second word, if any, is stored at
-// OBSOLETE    'pword2'.  */
-// OBSOLETE 
-// OBSOLETE static CORE_ADDR
-// OBSOLETE next_insn (CORE_ADDR memaddr, unsigned int *pword1, unsigned int *pword2)
-// OBSOLETE {
-// OBSOLETE   int len;
-// OBSOLETE   char buf[8];
-// OBSOLETE 
-// OBSOLETE   /* Read the two (potential) words of the instruction at once,
-// OBSOLETE      to eliminate the overhead of two calls to read_memory ().
-// OBSOLETE      FIXME: Loses if the first one is readable but the second is not
-// OBSOLETE      (e.g. last word of the segment).  */
-// OBSOLETE 
-// OBSOLETE   read_memory (memaddr, buf, 8);
-// OBSOLETE   *pword1 = extract_unsigned_integer (buf, 4);
-// OBSOLETE   *pword2 = extract_unsigned_integer (buf + 4, 4);
-// OBSOLETE 
-// OBSOLETE   /* Divide instruction set into classes based on high 4 bits of opcode */
-// OBSOLETE 
-// OBSOLETE   switch ((*pword1 >> 28) & 0xf)
-// OBSOLETE     {
-// OBSOLETE     case 0x0:
-// OBSOLETE     case 0x1:                      /* ctrl */
-// OBSOLETE 
-// OBSOLETE     case 0x2:
-// OBSOLETE     case 0x3:                      /* cobr */
-// OBSOLETE 
-// OBSOLETE     case 0x5:
-// OBSOLETE     case 0x6:
-// OBSOLETE     case 0x7:                      /* reg */
-// OBSOLETE       len = 4;
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case 0x8:
-// OBSOLETE     case 0x9:
-// OBSOLETE     case 0xa:
-// OBSOLETE     case 0xb:
-// OBSOLETE     case 0xc:
-// OBSOLETE       len = mem (memaddr, *pword1, *pword2, 1);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     default:                       /* invalid instruction */
-// OBSOLETE       len = 0;
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (len)
-// OBSOLETE     return memaddr + len;
-// OBSOLETE   else
-// OBSOLETE     return 0;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* 'start_frame' is a variable in the MON960 runtime startup routine
-// OBSOLETE    that contains the frame pointer of the 'start' routine (the routine
-// OBSOLETE    that calls 'main').  By reading its contents out of remote memory,
-// OBSOLETE    we can tell where the frame chain ends:  backtraces should halt before
-// OBSOLETE    they display this frame.  */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE mon960_frame_chain_valid (CORE_ADDR chain, struct frame_info *curframe)
-// OBSOLETE {
-// OBSOLETE   struct symbol *sym;
-// OBSOLETE   struct minimal_symbol *msymbol;
-// OBSOLETE 
-// OBSOLETE   /* crtmon960.o is an assembler module that is assumed to be linked
-// OBSOLETE    * first in an i80960 executable.  It contains the true entry point;
-// OBSOLETE    * it performs startup up initialization and then calls 'main'.
-// OBSOLETE    *
-// OBSOLETE    * 'sf' is the name of a variable in crtmon960.o that is set
-// OBSOLETE    *      during startup to the address of the first frame.
-// OBSOLETE    *
-// OBSOLETE    * 'a' is the address of that variable in 80960 memory.
-// OBSOLETE    */
-// OBSOLETE   static char sf[] = "start_frame";
-// OBSOLETE   CORE_ADDR a;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE   chain &= ~0x3f;          /* Zero low 6 bits because previous frame pointers
-// OBSOLETE                               contain return status info in them.  */
-// OBSOLETE   if (chain == 0)
-// OBSOLETE     {
-// OBSOLETE       return 0;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   sym = lookup_symbol (sf, 0, VAR_NAMESPACE, (int *) NULL,
-// OBSOLETE                   (struct symtab **) NULL);
-// OBSOLETE   if (sym != 0)
-// OBSOLETE     {
-// OBSOLETE       a = SYMBOL_VALUE (sym);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       msymbol = lookup_minimal_symbol (sf, NULL, NULL);
-// OBSOLETE       if (msymbol == NULL)
-// OBSOLETE    return 0;
-// OBSOLETE       a = SYMBOL_VALUE_ADDRESS (msymbol);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return (chain != read_memory_integer (a, 4));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_i960_tdep (void)
-// OBSOLETE {
-// OBSOLETE   check_host ();
-// OBSOLETE 
-// OBSOLETE   tm_print_insn = print_insn_i960;
-// OBSOLETE }
diff --git a/gdb/m88k-nat.c b/gdb/m88k-nat.c
deleted file mode 100644 (file)
index 11bde57..0000000
+++ /dev/null
@@ -1,290 +0,0 @@
-// OBSOLETE /* Native-dependent Motorola 88xxx support for GDB, the GNU Debugger.
-// OBSOLETE    Copyright 1988, 1990, 1991, 1992, 1993, 1995, 1999, 2000, 2001
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE #include <sys/types.h>
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE #include <sys/dir.h>
-// OBSOLETE #include <signal.h>
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include <sys/user.h>
-// OBSOLETE 
-// OBSOLETE #ifndef USER                       /* added to support BCS ptrace_user */
-// OBSOLETE #define USER ptrace_user
-// OBSOLETE #endif
-// OBSOLETE #include <sys/ioctl.h>
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE #include <sys/file.h>
-// OBSOLETE #include "gdb_stat.h"
-// OBSOLETE 
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "setjmp.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE 
-// OBSOLETE #ifdef DELTA88
-// OBSOLETE #include <sys/ptrace.h>
-// OBSOLETE 
-// OBSOLETE /* define offsets to the pc instruction offsets in ptrace_user struct */
-// OBSOLETE #define SXIP_OFFSET ((char *)&u.pt_sigframe.sig_sxip - (char *)&u)
-// OBSOLETE #define SNIP_OFFSET ((char *)&u.pt_sigframe.sig_snip - (char *)&u)
-// OBSOLETE #define SFIP_OFFSET ((char *)&u.pt_sigframe.sig_sfip - (char *)&u)
-// OBSOLETE #else
-// OBSOLETE /* define offsets to the pc instruction offsets in ptrace_user struct */
-// OBSOLETE #define SXIP_OFFSET ((char *)&u.pt_sigframe.dg_sigframe.sc_sxip - (char *)&u)
-// OBSOLETE #define SNIP_OFFSET ((char *)&u.pt_sigframe.dg_sigframe.sc_snip - (char *)&u)
-// OBSOLETE #define SFIP_OFFSET ((char *)&u.pt_sigframe.dg_sigframe.sc_sfip - (char *)&u)
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE extern int have_symbol_file_p ();
-// OBSOLETE 
-// OBSOLETE extern jmp_buf stack_jmp;
-// OBSOLETE 
-// OBSOLETE extern int errno;
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fetch_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   register unsigned int regaddr;
-// OBSOLETE   char buf[MAX_REGISTER_RAW_SIZE];
-// OBSOLETE   register int i;
-// OBSOLETE 
-// OBSOLETE   struct USER u;
-// OBSOLETE   unsigned int offset;
-// OBSOLETE 
-// OBSOLETE   offset = (char *) &u.pt_r0 - (char *) &u;
-// OBSOLETE   regaddr = offset;                /* byte offset to r0; */
-// OBSOLETE 
-// OBSOLETE /*  offset = ptrace (3, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; */
-// OBSOLETE   for (regno = 0; regno < NUM_REGS; regno++)
-// OBSOLETE     {
-// OBSOLETE       /*regaddr = register_addr (regno, offset); */
-// OBSOLETE       /* 88k enhancement  */
-// OBSOLETE 
-// OBSOLETE       for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
-// OBSOLETE    {
-// OBSOLETE      *(int *) &buf[i] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                                 (PTRACE_ARG3_TYPE) regaddr, 0);
-// OBSOLETE      regaddr += sizeof (int);
-// OBSOLETE    }
-// OBSOLETE       supply_register (regno, buf);
-// OBSOLETE     }
-// OBSOLETE   /* now load up registers 36 - 38; special pc registers */
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) SXIP_OFFSET, 0);
-// OBSOLETE   supply_register (SXIP_REGNUM, buf);
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) SNIP_OFFSET, 0);
-// OBSOLETE   supply_register (SNIP_REGNUM, buf);
-// OBSOLETE   *(int *) &buf[0] = ptrace (3, PIDGET (inferior_ptid),
-// OBSOLETE                         (PTRACE_ARG3_TYPE) SFIP_OFFSET, 0);
-// OBSOLETE   supply_register (SFIP_REGNUM, buf);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store our register values back into the inferior.
-// OBSOLETE    If REGNO is -1, do this for all registers.
-// OBSOLETE    Otherwise, REGNO specifies which register (so we can save time).  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE store_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   register unsigned int regaddr;
-// OBSOLETE   char buf[80];
-// OBSOLETE 
-// OBSOLETE   struct USER u;
-// OBSOLETE 
-// OBSOLETE   unsigned int offset = (char *) &u.pt_r0 - (char *) &u;
-// OBSOLETE 
-// OBSOLETE   regaddr = offset;
-// OBSOLETE 
-// OBSOLETE   /* Don't try to deal with EXIP_REGNUM or ENIP_REGNUM, because I think either
-// OBSOLETE      svr3 doesn't run on an 88110, or the kernel isolates the different (not
-// OBSOLETE      completely sure this is true, but seems to be.  */
-// OBSOLETE   if (regno >= 0)
-// OBSOLETE     {
-// OBSOLETE       /*      regaddr = register_addr (regno, offset); */
-// OBSOLETE       if (regno < PC_REGNUM)
-// OBSOLETE    {
-// OBSOLETE      regaddr = offset + regno * sizeof (int);
-// OBSOLETE      errno = 0;
-// OBSOLETE      ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE              (PTRACE_ARG3_TYPE) regaddr, read_register (regno));
-// OBSOLETE      if (errno != 0)
-// OBSOLETE        {
-// OBSOLETE          sprintf (buf, "writing register number %d", regno);
-// OBSOLETE          perror_with_name (buf);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else if (regno == SXIP_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) SXIP_OFFSET, read_register (regno));
-// OBSOLETE       else if (regno == SNIP_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) SNIP_OFFSET, read_register (regno));
-// OBSOLETE       else if (regno == SFIP_REGNUM)
-// OBSOLETE    ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE            (PTRACE_ARG3_TYPE) SFIP_OFFSET, read_register (regno));
-// OBSOLETE       else
-// OBSOLETE    printf_unfiltered ("Bad register number for store_inferior routine\n");
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       for (regno = 0; regno < PC_REGNUM; regno++)
-// OBSOLETE    {
-// OBSOLETE      /*      regaddr = register_addr (regno, offset); */
-// OBSOLETE      errno = 0;
-// OBSOLETE      regaddr = offset + regno * sizeof (int);
-// OBSOLETE      ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE              (PTRACE_ARG3_TYPE) regaddr, read_register (regno));
-// OBSOLETE      if (errno != 0)
-// OBSOLETE        {
-// OBSOLETE          sprintf (buf, "writing register number %d", regno);
-// OBSOLETE          perror_with_name (buf);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) SXIP_OFFSET, read_register (SXIP_REGNUM));
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) SNIP_OFFSET, read_register (SNIP_REGNUM));
-// OBSOLETE       ptrace (6, PIDGET (inferior_ptid),
-// OBSOLETE          (PTRACE_ARG3_TYPE) SFIP_OFFSET, read_register (SFIP_REGNUM));
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* blockend is the address of the end of the user structure */
-// OBSOLETE m88k_register_u_addr (int blockend, int regnum)
-// OBSOLETE {
-// OBSOLETE   struct USER u;
-// OBSOLETE   int ustart = blockend - sizeof (struct USER);
-// OBSOLETE   switch (regnum)
-// OBSOLETE     {
-// OBSOLETE     case 0:
-// OBSOLETE     case 1:
-// OBSOLETE     case 2:
-// OBSOLETE     case 3:
-// OBSOLETE     case 4:
-// OBSOLETE     case 5:
-// OBSOLETE     case 6:
-// OBSOLETE     case 7:
-// OBSOLETE     case 8:
-// OBSOLETE     case 9:
-// OBSOLETE     case 10:
-// OBSOLETE     case 11:
-// OBSOLETE     case 12:
-// OBSOLETE     case 13:
-// OBSOLETE     case 14:
-// OBSOLETE     case 15:
-// OBSOLETE     case 16:
-// OBSOLETE     case 17:
-// OBSOLETE     case 18:
-// OBSOLETE     case 19:
-// OBSOLETE     case 20:
-// OBSOLETE     case 21:
-// OBSOLETE     case 22:
-// OBSOLETE     case 23:
-// OBSOLETE     case 24:
-// OBSOLETE     case 25:
-// OBSOLETE     case 26:
-// OBSOLETE     case 27:
-// OBSOLETE     case 28:
-// OBSOLETE     case 29:
-// OBSOLETE     case 30:
-// OBSOLETE     case 31:
-// OBSOLETE       return (ustart + ((int) &u.pt_r0 - (int) &u) + REGISTER_SIZE * regnum);
-// OBSOLETE     case PSR_REGNUM:
-// OBSOLETE       return (ustart + ((int) &u.pt_psr - (int) &u));
-// OBSOLETE     case FPSR_REGNUM:
-// OBSOLETE       return (ustart + ((int) &u.pt_fpsr - (int) &u));
-// OBSOLETE     case FPCR_REGNUM:
-// OBSOLETE       return (ustart + ((int) &u.pt_fpcr - (int) &u));
-// OBSOLETE     case SXIP_REGNUM:
-// OBSOLETE       return (ustart + SXIP_OFFSET);
-// OBSOLETE     case SNIP_REGNUM:
-// OBSOLETE       return (ustart + SNIP_OFFSET);
-// OBSOLETE     case SFIP_REGNUM:
-// OBSOLETE       return (ustart + SFIP_OFFSET);
-// OBSOLETE     default:
-// OBSOLETE       if (regnum < NUM_REGS)
-// OBSOLETE    /* The register is one of those which is not defined...
-// OBSOLETE       give it zero */
-// OBSOLETE    return (ustart + ((int) &u.pt_r0 - (int) &u));
-// OBSOLETE       else
-// OBSOLETE    return (blockend + REGISTER_SIZE * regnum);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #ifdef USE_PROC_FS
-// OBSOLETE 
-// OBSOLETE #include <sys/procfs.h>
-// OBSOLETE 
-// OBSOLETE /* Prototypes for supply_gregset etc. */
-// OBSOLETE #include "gregset.h"
-// OBSOLETE 
-// OBSOLETE /*  Given a pointer to a general register set in /proc format (gregset_t *),
-// OBSOLETE    unpack the register contents and supply them as gdb's idea of the current
-// OBSOLETE    register values. */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE supply_gregset (gregset_t *gregsetp)
-// OBSOLETE {
-// OBSOLETE   register int regi;
-// OBSOLETE   register greg_t *regp = (greg_t *) gregsetp;
-// OBSOLETE 
-// OBSOLETE   for (regi = 0; regi <= SP_REGNUM; regi++)
-// OBSOLETE     supply_register (regi, (char *) (regp + regi));
-// OBSOLETE 
-// OBSOLETE   supply_register (SXIP_REGNUM, (char *) (regp + R_XIP));
-// OBSOLETE   supply_register (SNIP_REGNUM, (char *) (regp + R_NIP));
-// OBSOLETE   supply_register (SFIP_REGNUM, (char *) (regp + R_FIP));
-// OBSOLETE   supply_register (PSR_REGNUM, (char *) (regp + R_PSR));
-// OBSOLETE   supply_register (FPSR_REGNUM, (char *) (regp + R_FPSR));
-// OBSOLETE   supply_register (FPCR_REGNUM, (char *) (regp + R_FPCR));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE fill_gregset (gregset_t *gregsetp, int regno)
-// OBSOLETE {
-// OBSOLETE   int regi;
-// OBSOLETE   register greg_t *regp = (greg_t *) gregsetp;
-// OBSOLETE 
-// OBSOLETE   for (regi = 0; regi <= R_R31; regi++)
-// OBSOLETE     if ((regno == -1) || (regno == regi))
-// OBSOLETE       *(regp + regi) = *(int *) &registers[REGISTER_BYTE (regi)];
-// OBSOLETE 
-// OBSOLETE   if ((regno == -1) || (regno == SXIP_REGNUM))
-// OBSOLETE     *(regp + R_XIP) = *(int *) &registers[REGISTER_BYTE (SXIP_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == SNIP_REGNUM))
-// OBSOLETE     *(regp + R_NIP) = *(int *) &registers[REGISTER_BYTE (SNIP_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == SFIP_REGNUM))
-// OBSOLETE     *(regp + R_FIP) = *(int *) &registers[REGISTER_BYTE (SFIP_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == PSR_REGNUM))
-// OBSOLETE     *(regp + R_PSR) = *(int *) &registers[REGISTER_BYTE (PSR_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == FPSR_REGNUM))
-// OBSOLETE     *(regp + R_FPSR) = *(int *) &registers[REGISTER_BYTE (FPSR_REGNUM)];
-// OBSOLETE   if ((regno == -1) || (regno == FPCR_REGNUM))
-// OBSOLETE     *(regp + R_FPCR) = *(int *) &registers[REGISTER_BYTE (FPCR_REGNUM)];
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #endif /* USE_PROC_FS */
diff --git a/gdb/m88k-tdep.c b/gdb/m88k-tdep.c
deleted file mode 100644 (file)
index da0b67c..0000000
+++ /dev/null
@@ -1,661 +0,0 @@
-// OBSOLETE /* Target-machine dependent code for Motorola 88000 series, for GDB.
-// OBSOLETE 
-// OBSOLETE    Copyright 1988, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998,
-// OBSOLETE    2000, 2001, 2002 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "setjmp.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE /* Size of an instruction */
-// OBSOLETE #define    BYTES_PER_88K_INSN      4
-// OBSOLETE 
-// OBSOLETE void frame_find_saved_regs ();
-// OBSOLETE 
-// OBSOLETE /* Is this target an m88110?  Otherwise assume m88100.  This has
-// OBSOLETE    relevance for the ways in which we screw with instruction pointers.  */
-// OBSOLETE 
-// OBSOLETE int target_is_m88110 = 0;
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE m88k_target_write_pc (CORE_ADDR pc, ptid_t ptid)
-// OBSOLETE {
-// OBSOLETE   /* According to the MC88100 RISC Microprocessor User's Manual,
-// OBSOLETE      section 6.4.3.1.2:
-// OBSOLETE 
-// OBSOLETE      ... can be made to return to a particular instruction by placing
-// OBSOLETE      a valid instruction address in the SNIP and the next sequential
-// OBSOLETE      instruction address in the SFIP (with V bits set and E bits
-// OBSOLETE      clear).  The rte resumes execution at the instruction pointed to
-// OBSOLETE      by the SNIP, then the SFIP.
-// OBSOLETE 
-// OBSOLETE      The E bit is the least significant bit (bit 0).  The V (valid)
-// OBSOLETE      bit is bit 1.  This is why we logical or 2 into the values we are
-// OBSOLETE      writing below.  It turns out that SXIP plays no role when
-// OBSOLETE      returning from an exception so nothing special has to be done
-// OBSOLETE      with it.  We could even (presumably) give it a totally bogus
-// OBSOLETE      value.
-// OBSOLETE 
-// OBSOLETE      -- Kevin Buettner */
-// OBSOLETE 
-// OBSOLETE   write_register_pid (SXIP_REGNUM, pc, ptid);
-// OBSOLETE   write_register_pid (SNIP_REGNUM, (pc | 2), ptid);
-// OBSOLETE   write_register_pid (SFIP_REGNUM, (pc | 2) + 4, ptid);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* The type of a register.  */
-// OBSOLETE struct type *
-// OBSOLETE m88k_register_type (int regnum)
-// OBSOLETE {
-// OBSOLETE   if (regnum >= XFP_REGNUM)
-// OBSOLETE     return builtin_type_m88110_ext;
-// OBSOLETE   else if (regnum == PC_REGNUM || regnum == FP_REGNUM || regnum == SP_REGNUM)
-// OBSOLETE     return builtin_type_void_func_ptr;
-// OBSOLETE   else
-// OBSOLETE     return builtin_type_int32;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* The m88k kernel aligns all instructions on 4-byte boundaries.  The
-// OBSOLETE    kernel also uses the least significant two bits for its own hocus
-// OBSOLETE    pocus.  When gdb receives an address from the kernel, it needs to
-// OBSOLETE    preserve those right-most two bits, but gdb also needs to be careful
-// OBSOLETE    to realize that those two bits are not really a part of the address
-// OBSOLETE    of an instruction.  Shrug.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE m88k_addr_bits_remove (CORE_ADDR addr)
-// OBSOLETE {
-// OBSOLETE   return ((addr) & ~3);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Given a GDB frame, determine the address of the calling function's frame.
-// OBSOLETE    This will be used to create a new GDB frame struct, and then
-// OBSOLETE    INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame.
-// OBSOLETE 
-// OBSOLETE    For us, the frame address is its stack pointer value, so we look up
-// OBSOLETE    the function prologue to determine the caller's sp value, and return it.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE frame_chain (struct frame_info *thisframe)
-// OBSOLETE {
-// OBSOLETE 
-// OBSOLETE   frame_find_saved_regs (thisframe, (struct frame_saved_regs *) 0);
-// OBSOLETE   /* NOTE:  this depends on frame_find_saved_regs returning the VALUE, not
-// OBSOLETE      the ADDRESS, of SP_REGNUM.  It also depends on the cache of
-// OBSOLETE      frame_find_saved_regs results.  */
-// OBSOLETE   if (thisframe->fsr->regs[SP_REGNUM])
-// OBSOLETE     return thisframe->fsr->regs[SP_REGNUM];
-// OBSOLETE   else
-// OBSOLETE     return thisframe->frame;       /* Leaf fn -- next frame up has same SP. */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE frameless_function_invocation (struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE 
-// OBSOLETE   frame_find_saved_regs (frame, (struct frame_saved_regs *) 0);
-// OBSOLETE   /* NOTE:  this depends on frame_find_saved_regs returning the VALUE, not
-// OBSOLETE      the ADDRESS, of SP_REGNUM.  It also depends on the cache of
-// OBSOLETE      frame_find_saved_regs results.  */
-// OBSOLETE   if (frame->fsr->regs[SP_REGNUM])
-// OBSOLETE     return 0;                      /* Frameful -- return addr saved somewhere */
-// OBSOLETE   else
-// OBSOLETE     return 1;                      /* Frameless -- no saved return address */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE init_extra_frame_info (int fromleaf, struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE   frame->fsr = 0;          /* Not yet allocated */
-// OBSOLETE   frame->args_pointer = 0; /* Unknown */
-// OBSOLETE   frame->locals_pointer = 0;       /* Unknown */
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Examine an m88k function prologue, recording the addresses at which
-// OBSOLETE    registers are saved explicitly by the prologue code, and returning
-// OBSOLETE    the address of the first instruction after the prologue (but not
-// OBSOLETE    after the instruction at address LIMIT, as explained below).
-// OBSOLETE 
-// OBSOLETE    LIMIT places an upper bound on addresses of the instructions to be
-// OBSOLETE    examined.  If the prologue code scan reaches LIMIT, the scan is
-// OBSOLETE    aborted and LIMIT is returned.  This is used, when examining the
-// OBSOLETE    prologue for the current frame, to keep examine_prologue () from
-// OBSOLETE    claiming that a given register has been saved when in fact the
-// OBSOLETE    instruction that saves it has not yet been executed.  LIMIT is used
-// OBSOLETE    at other times to stop the scan when we hit code after the true
-// OBSOLETE    function prologue (e.g. for the first source line) which might
-// OBSOLETE    otherwise be mistaken for function prologue.
-// OBSOLETE 
-// OBSOLETE    The format of the function prologue matched by this routine is
-// OBSOLETE    derived from examination of the source to gcc 1.95, particularly
-// OBSOLETE    the routine output_prologue () in config/out-m88k.c.
-// OBSOLETE 
-// OBSOLETE    subu r31,r31,n                       # stack pointer update
-// OBSOLETE 
-// OBSOLETE    (st rn,r31,offset)?                  # save incoming regs
-// OBSOLETE    (st.d rn,r31,offset)?
-// OBSOLETE 
-// OBSOLETE    (addu r30,r31,n)?                    # frame pointer update
-// OBSOLETE 
-// OBSOLETE    (pic sequence)?                      # PIC code prologue
-// OBSOLETE 
-// OBSOLETE    (or   rn,rm,0)?                      # Move parameters to other regs
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE /* Macros for extracting fields from instructions.  */
-// OBSOLETE 
-// OBSOLETE #define BITMASK(pos, width) (((0x1 << (width)) - 1) << (pos))
-// OBSOLETE #define EXTRACT_FIELD(val, pos, width) ((val) >> (pos) & BITMASK (0, width))
-// OBSOLETE #define    SUBU_OFFSET(x)  ((unsigned)(x & 0xFFFF))
-// OBSOLETE #define    ST_OFFSET(x)    ((unsigned)((x) & 0xFFFF))
-// OBSOLETE #define    ST_SRC(x)       EXTRACT_FIELD ((x), 21, 5)
-// OBSOLETE #define    ADDU_OFFSET(x)  ((unsigned)(x & 0xFFFF))
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * prologue_insn_tbl is a table of instructions which may comprise a
-// OBSOLETE  * function prologue.  Associated with each table entry (corresponding
-// OBSOLETE  * to a single instruction or group of instructions), is an action.
-// OBSOLETE  * This action is used by examine_prologue (below) to determine
-// OBSOLETE  * the state of certain machine registers and where the stack frame lives.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE enum prologue_insn_action
-// OBSOLETE {
-// OBSOLETE   PIA_SKIP,                        /* don't care what the instruction does */
-// OBSOLETE   PIA_NOTE_ST,                     /* note register stored and where */
-// OBSOLETE   PIA_NOTE_STD,                    /* note pair of registers stored and where */
-// OBSOLETE   PIA_NOTE_SP_ADJUSTMENT,  /* note stack pointer adjustment */
-// OBSOLETE   PIA_NOTE_FP_ASSIGNMENT,  /* note frame pointer assignment */
-// OBSOLETE   PIA_NOTE_PROLOGUE_END,   /* no more prologue */
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE struct prologue_insns
-// OBSOLETE   {
-// OBSOLETE     unsigned long insn;
-// OBSOLETE     unsigned long mask;
-// OBSOLETE     enum prologue_insn_action action;
-// OBSOLETE   };
-// OBSOLETE 
-// OBSOLETE struct prologue_insns prologue_insn_tbl[] =
-// OBSOLETE {
-// OBSOLETE   /* Various register move instructions */
-// OBSOLETE   {0x58000000, 0xf800ffff, PIA_SKIP},      /* or/or.u with immed of 0 */
-// OBSOLETE   {0xf4005800, 0xfc1fffe0, PIA_SKIP},      /* or rd, r0, rs */
-// OBSOLETE   {0xf4005800, 0xfc00ffff, PIA_SKIP},      /* or rd, rs, r0 */
-// OBSOLETE 
-// OBSOLETE   /* Stack pointer setup: "subu sp, sp, n" where n is a multiple of 8 */
-// OBSOLETE   {0x67ff0000, 0xffff0007, PIA_NOTE_SP_ADJUSTMENT},
-// OBSOLETE 
-// OBSOLETE   /* Frame pointer assignment: "addu r30, r31, n" */
-// OBSOLETE   {0x63df0000, 0xffff0000, PIA_NOTE_FP_ASSIGNMENT},
-// OBSOLETE 
-// OBSOLETE   /* Store to stack instructions; either "st rx, sp, n" or "st.d rx, sp, n" */
-// OBSOLETE   {0x241f0000, 0xfc1f0000, PIA_NOTE_ST},   /* st rx, sp, n */
-// OBSOLETE   {0x201f0000, 0xfc1f0000, PIA_NOTE_STD},  /* st.d rs, sp, n */
-// OBSOLETE 
-// OBSOLETE   /* Instructions needed for setting up r25 for pic code. */
-// OBSOLETE   {0x5f200000, 0xffff0000, PIA_SKIP},      /* or.u r25, r0, offset_high */
-// OBSOLETE   {0xcc000002, 0xffffffff, PIA_SKIP},      /* bsr.n Lab */
-// OBSOLETE   {0x5b390000, 0xffff0000, PIA_SKIP},      /* or r25, r25, offset_low */
-// OBSOLETE   {0xf7396001, 0xffffffff, PIA_SKIP},      /* Lab: addu r25, r25, r1 */
-// OBSOLETE 
-// OBSOLETE   /* Various branch or jump instructions which have a delay slot -- these
-// OBSOLETE      do not form part of the prologue, but the instruction in the delay
-// OBSOLETE      slot might be a store instruction which should be noted. */
-// OBSOLETE   {0xc4000000, 0xe4000000, PIA_NOTE_PROLOGUE_END},
-// OBSOLETE                                    /* br.n, bsr.n, bb0.n, or bb1.n */
-// OBSOLETE   {0xec000000, 0xfc000000, PIA_NOTE_PROLOGUE_END}, /* bcnd.n */
-// OBSOLETE   {0xf400c400, 0xfffff7e0, PIA_NOTE_PROLOGUE_END}  /* jmp.n or jsr.n */
-// OBSOLETE 
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or
-// OBSOLETE    is not the address of a valid instruction, the address of the next
-// OBSOLETE    instruction beyond ADDR otherwise.  *PWORD1 receives the first word
-// OBSOLETE    of the instruction. */
-// OBSOLETE 
-// OBSOLETE #define NEXT_PROLOGUE_INSN(addr, lim, pword1) \
-// OBSOLETE   (((addr) < (lim)) ? next_insn (addr, pword1) : 0)
-// OBSOLETE 
-// OBSOLETE /* Read the m88k instruction at 'memaddr' and return the address of 
-// OBSOLETE    the next instruction after that, or 0 if 'memaddr' is not the
-// OBSOLETE    address of a valid instruction.  The instruction
-// OBSOLETE    is stored at 'pword1'.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE next_insn (CORE_ADDR memaddr, unsigned long *pword1)
-// OBSOLETE {
-// OBSOLETE   *pword1 = read_memory_integer (memaddr, BYTES_PER_88K_INSN);
-// OBSOLETE   return memaddr + BYTES_PER_88K_INSN;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Read a register from frames called by us (or from the hardware regs).  */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE read_next_frame_reg (struct frame_info *frame, int regno)
-// OBSOLETE {
-// OBSOLETE   for (; frame; frame = frame->next)
-// OBSOLETE     {
-// OBSOLETE       if (regno == SP_REGNUM)
-// OBSOLETE    return FRAME_FP (frame);
-// OBSOLETE       else if (frame->fsr->regs[regno])
-// OBSOLETE    return read_memory_integer (frame->fsr->regs[regno], 4);
-// OBSOLETE     }
-// OBSOLETE   return read_register (regno);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Examine the prologue of a function.  `ip' points to the first instruction.
-// OBSOLETE    `limit' is the limit of the prologue (e.g. the addr of the first 
-// OBSOLETE    linenumber, or perhaps the program counter if we're stepping through).
-// OBSOLETE    `frame_sp' is the stack pointer value in use in this frame.  
-// OBSOLETE    `fsr' is a pointer to a frame_saved_regs structure into which we put
-// OBSOLETE    info about the registers saved by this frame.  
-// OBSOLETE    `fi' is a struct frame_info pointer; we fill in various fields in it
-// OBSOLETE    to reflect the offsets of the arg pointer and the locals pointer.  */
-// OBSOLETE 
-// OBSOLETE static CORE_ADDR
-// OBSOLETE examine_prologue (register CORE_ADDR ip, register CORE_ADDR limit,
-// OBSOLETE              CORE_ADDR frame_sp, struct frame_saved_regs *fsr,
-// OBSOLETE              struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   register CORE_ADDR next_ip;
-// OBSOLETE   register int src;
-// OBSOLETE   unsigned long insn;
-// OBSOLETE   int size, offset;
-// OBSOLETE   char must_adjust[32];            /* If set, must adjust offsets in fsr */
-// OBSOLETE   int sp_offset = -1;              /* -1 means not set (valid must be mult of 8) */
-// OBSOLETE   int fp_offset = -1;              /* -1 means not set */
-// OBSOLETE   CORE_ADDR frame_fp;
-// OBSOLETE   CORE_ADDR prologue_end = 0;
-// OBSOLETE 
-// OBSOLETE   memset (must_adjust, '\0', sizeof (must_adjust));
-// OBSOLETE   next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn);
-// OBSOLETE 
-// OBSOLETE   while (next_ip)
-// OBSOLETE     {
-// OBSOLETE       struct prologue_insns *pip;
-// OBSOLETE 
-// OBSOLETE       for (pip = prologue_insn_tbl; (insn & pip->mask) != pip->insn;)
-// OBSOLETE    if (++pip >= prologue_insn_tbl + sizeof prologue_insn_tbl)
-// OBSOLETE      goto end_of_prologue_found;   /* not a prologue insn */
-// OBSOLETE 
-// OBSOLETE       switch (pip->action)
-// OBSOLETE    {
-// OBSOLETE    case PIA_NOTE_ST:
-// OBSOLETE    case PIA_NOTE_STD:
-// OBSOLETE      if (sp_offset != -1)
-// OBSOLETE        {
-// OBSOLETE          src = ST_SRC (insn);
-// OBSOLETE          offset = ST_OFFSET (insn);
-// OBSOLETE          must_adjust[src] = 1;
-// OBSOLETE          fsr->regs[src++] = offset;        /* Will be adjusted later */
-// OBSOLETE          if (pip->action == PIA_NOTE_STD && src < 32)
-// OBSOLETE            {
-// OBSOLETE              offset += 4;
-// OBSOLETE              must_adjust[src] = 1;
-// OBSOLETE              fsr->regs[src++] = offset;
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        goto end_of_prologue_found;
-// OBSOLETE      break;
-// OBSOLETE    case PIA_NOTE_SP_ADJUSTMENT:
-// OBSOLETE      if (sp_offset == -1)
-// OBSOLETE        sp_offset = -SUBU_OFFSET (insn);
-// OBSOLETE      else
-// OBSOLETE        goto end_of_prologue_found;
-// OBSOLETE      break;
-// OBSOLETE    case PIA_NOTE_FP_ASSIGNMENT:
-// OBSOLETE      if (fp_offset == -1)
-// OBSOLETE        fp_offset = ADDU_OFFSET (insn);
-// OBSOLETE      else
-// OBSOLETE        goto end_of_prologue_found;
-// OBSOLETE      break;
-// OBSOLETE    case PIA_NOTE_PROLOGUE_END:
-// OBSOLETE      if (!prologue_end)
-// OBSOLETE        prologue_end = ip;
-// OBSOLETE      break;
-// OBSOLETE    case PIA_SKIP:
-// OBSOLETE    default:
-// OBSOLETE      /* Do nothing */
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       ip = next_ip;
-// OBSOLETE       next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE end_of_prologue_found:
-// OBSOLETE 
-// OBSOLETE   if (prologue_end)
-// OBSOLETE     ip = prologue_end;
-// OBSOLETE 
-// OBSOLETE   /* We're done with the prologue.  If we don't care about the stack
-// OBSOLETE      frame itself, just return.  (Note that fsr->regs has been trashed,
-// OBSOLETE      but the one caller who calls with fi==0 passes a dummy there.)  */
-// OBSOLETE 
-// OBSOLETE   if (fi == 0)
-// OBSOLETE     return ip;
-// OBSOLETE 
-// OBSOLETE   /*
-// OBSOLETE      OK, now we have:
-// OBSOLETE 
-// OBSOLETE      sp_offset  original (before any alloca calls) displacement of SP
-// OBSOLETE      (will be negative).
-// OBSOLETE 
-// OBSOLETE      fp_offset  displacement from original SP to the FP for this frame
-// OBSOLETE      or -1.
-// OBSOLETE 
-// OBSOLETE      fsr->regs[0..31]   displacement from original SP to the stack
-// OBSOLETE      location where reg[0..31] is stored.
-// OBSOLETE 
-// OBSOLETE      must_adjust[0..31] set if corresponding offset was set.
-// OBSOLETE 
-// OBSOLETE      If alloca has been called between the function prologue and the current
-// OBSOLETE      IP, then the current SP (frame_sp) will not be the original SP as set by
-// OBSOLETE      the function prologue.  If the current SP is not the original SP, then the
-// OBSOLETE      compiler will have allocated an FP for this frame, fp_offset will be set,
-// OBSOLETE      and we can use it to calculate the original SP.
-// OBSOLETE 
-// OBSOLETE      Then, we figure out where the arguments and locals are, and relocate the
-// OBSOLETE      offsets in fsr->regs to absolute addresses.  */
-// OBSOLETE 
-// OBSOLETE   if (fp_offset != -1)
-// OBSOLETE     {
-// OBSOLETE       /* We have a frame pointer, so get it, and base our calc's on it.  */
-// OBSOLETE       frame_fp = (CORE_ADDR) read_next_frame_reg (fi->next, ACTUAL_FP_REGNUM);
-// OBSOLETE       frame_sp = frame_fp - fp_offset;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       /* We have no frame pointer, therefore frame_sp is still the same value
-// OBSOLETE          as set by prologue.  But where is the frame itself?  */
-// OBSOLETE       if (must_adjust[SRP_REGNUM])
-// OBSOLETE    {
-// OBSOLETE      /* Function header saved SRP (r1), the return address.  Frame starts
-// OBSOLETE         4 bytes down from where it was saved.  */
-// OBSOLETE      frame_fp = frame_sp + fsr->regs[SRP_REGNUM] - 4;
-// OBSOLETE      fi->locals_pointer = frame_fp;
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      /* Function header didn't save SRP (r1), so we are in a leaf fn or
-// OBSOLETE         are otherwise confused.  */
-// OBSOLETE      frame_fp = -1;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* The locals are relative to the FP (whether it exists as an allocated
-// OBSOLETE      register, or just as an assumed offset from the SP) */
-// OBSOLETE   fi->locals_pointer = frame_fp;
-// OBSOLETE 
-// OBSOLETE   /* The arguments are just above the SP as it was before we adjusted it
-// OBSOLETE      on entry.  */
-// OBSOLETE   fi->args_pointer = frame_sp - sp_offset;
-// OBSOLETE 
-// OBSOLETE   /* Now that we know the SP value used by the prologue, we know where
-// OBSOLETE      it saved all the registers.  */
-// OBSOLETE   for (src = 0; src < 32; src++)
-// OBSOLETE     if (must_adjust[src])
-// OBSOLETE       fsr->regs[src] += frame_sp;
-// OBSOLETE 
-// OBSOLETE   /* The saved value of the SP is always known.  */
-// OBSOLETE   /* (we hope...) */
-// OBSOLETE   if (fsr->regs[SP_REGNUM] != 0
-// OBSOLETE       && fsr->regs[SP_REGNUM] != frame_sp - sp_offset)
-// OBSOLETE     fprintf_unfiltered (gdb_stderr, "Bad saved SP value %lx != %lx, offset %x!\n",
-// OBSOLETE                    fsr->regs[SP_REGNUM],
-// OBSOLETE                    frame_sp - sp_offset, sp_offset);
-// OBSOLETE 
-// OBSOLETE   fsr->regs[SP_REGNUM] = frame_sp - sp_offset;
-// OBSOLETE 
-// OBSOLETE   return (ip);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Given an ip value corresponding to the start of a function,
-// OBSOLETE    return the ip of the first instruction after the function 
-// OBSOLETE    prologue.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE m88k_skip_prologue (CORE_ADDR ip)
-// OBSOLETE {
-// OBSOLETE   struct frame_saved_regs saved_regs_dummy;
-// OBSOLETE   struct symtab_and_line sal;
-// OBSOLETE   CORE_ADDR limit;
-// OBSOLETE 
-// OBSOLETE   sal = find_pc_line (ip, 0);
-// OBSOLETE   limit = (sal.end) ? sal.end : 0xffffffff;
-// OBSOLETE 
-// OBSOLETE   return (examine_prologue (ip, limit, (CORE_ADDR) 0, &saved_regs_dummy,
-// OBSOLETE                        (struct frame_info *) 0));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Put here the code to store, into a struct frame_saved_regs,
-// OBSOLETE    the addresses of the saved registers of frame described by FRAME_INFO.
-// OBSOLETE    This includes special registers such as pc and fp saved in special
-// OBSOLETE    ways in the stack frame.  sp is even more special:
-// OBSOLETE    the address we return for it IS the sp for the next frame.
-// OBSOLETE 
-// OBSOLETE    We cache the result of doing this in the frame_obstack, since it is
-// OBSOLETE    fairly expensive.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE frame_find_saved_regs (struct frame_info *fi, struct frame_saved_regs *fsr)
-// OBSOLETE {
-// OBSOLETE   register struct frame_saved_regs *cache_fsr;
-// OBSOLETE   CORE_ADDR ip;
-// OBSOLETE   struct symtab_and_line sal;
-// OBSOLETE   CORE_ADDR limit;
-// OBSOLETE 
-// OBSOLETE   if (!fi->fsr)
-// OBSOLETE     {
-// OBSOLETE       cache_fsr = (struct frame_saved_regs *)
-// OBSOLETE    frame_obstack_alloc (sizeof (struct frame_saved_regs));
-// OBSOLETE       memset (cache_fsr, '\0', sizeof (struct frame_saved_regs));
-// OBSOLETE       fi->fsr = cache_fsr;
-// OBSOLETE 
-// OBSOLETE       /* Find the start and end of the function prologue.  If the PC
-// OBSOLETE          is in the function prologue, we only consider the part that
-// OBSOLETE          has executed already.  In the case where the PC is not in
-// OBSOLETE          the function prologue, we set limit to two instructions beyond
-// OBSOLETE          where the prologue ends in case if any of the prologue instructions
-// OBSOLETE          were moved into a delay slot of a branch instruction. */
-// OBSOLETE 
-// OBSOLETE       ip = get_pc_function_start (fi->pc);
-// OBSOLETE       sal = find_pc_line (ip, 0);
-// OBSOLETE       limit = (sal.end && sal.end < fi->pc) ? sal.end + 2 * BYTES_PER_88K_INSN
-// OBSOLETE    : fi->pc;
-// OBSOLETE 
-// OBSOLETE       /* This will fill in fields in *fi as well as in cache_fsr.  */
-// OBSOLETE #ifdef SIGTRAMP_FRAME_FIXUP
-// OBSOLETE       if (fi->signal_handler_caller)
-// OBSOLETE    SIGTRAMP_FRAME_FIXUP (fi->frame);
-// OBSOLETE #endif
-// OBSOLETE       examine_prologue (ip, limit, fi->frame, cache_fsr, fi);
-// OBSOLETE #ifdef SIGTRAMP_SP_FIXUP
-// OBSOLETE       if (fi->signal_handler_caller && fi->fsr->regs[SP_REGNUM])
-// OBSOLETE    SIGTRAMP_SP_FIXUP (fi->fsr->regs[SP_REGNUM]);
-// OBSOLETE #endif
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (fsr)
-// OBSOLETE     *fsr = *fi->fsr;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return the address of the locals block for the frame
-// OBSOLETE    described by FI.  Returns 0 if the address is unknown.
-// OBSOLETE    NOTE!  Frame locals are referred to by negative offsets from the
-// OBSOLETE    argument pointer, so this is the same as frame_args_address().  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE frame_locals_address (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   struct frame_saved_regs fsr;
-// OBSOLETE 
-// OBSOLETE   if (fi->args_pointer)            /* Cached value is likely there.  */
-// OBSOLETE     return fi->args_pointer;
-// OBSOLETE 
-// OBSOLETE   /* Nope, generate it.  */
-// OBSOLETE 
-// OBSOLETE   get_frame_saved_regs (fi, &fsr);
-// OBSOLETE 
-// OBSOLETE   return fi->args_pointer;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return the address of the argument block for the frame
-// OBSOLETE    described by FI.  Returns 0 if the address is unknown.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE frame_args_address (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE   struct frame_saved_regs fsr;
-// OBSOLETE 
-// OBSOLETE   if (fi->args_pointer)            /* Cached value is likely there.  */
-// OBSOLETE     return fi->args_pointer;
-// OBSOLETE 
-// OBSOLETE   /* Nope, generate it.  */
-// OBSOLETE 
-// OBSOLETE   get_frame_saved_regs (fi, &fsr);
-// OBSOLETE 
-// OBSOLETE   return fi->args_pointer;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return the saved PC from this frame.
-// OBSOLETE 
-// OBSOLETE    If the frame has a memory copy of SRP_REGNUM, use that.  If not,
-// OBSOLETE    just use the register SRP_REGNUM itself.  */
-// OBSOLETE 
-// OBSOLETE CORE_ADDR
-// OBSOLETE frame_saved_pc (struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE   return read_next_frame_reg (frame, SRP_REGNUM);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE #define DUMMY_FRAME_SIZE 192
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE write_word (CORE_ADDR sp, ULONGEST word)
-// OBSOLETE {
-// OBSOLETE   register int len = REGISTER_SIZE;
-// OBSOLETE   char buffer[MAX_REGISTER_RAW_SIZE];
-// OBSOLETE 
-// OBSOLETE   store_unsigned_integer (buffer, len, word);
-// OBSOLETE   write_memory (sp, buffer, len);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE m88k_push_dummy_frame (void)
-// OBSOLETE {
-// OBSOLETE   register CORE_ADDR sp = read_register (SP_REGNUM);
-// OBSOLETE   register int rn;
-// OBSOLETE   int offset;
-// OBSOLETE 
-// OBSOLETE   sp -= DUMMY_FRAME_SIZE;  /* allocate a bunch of space */
-// OBSOLETE 
-// OBSOLETE   for (rn = 0, offset = 0; rn <= SP_REGNUM; rn++, offset += 4)
-// OBSOLETE     write_word (sp + offset, read_register (rn));
-// OBSOLETE 
-// OBSOLETE   write_word (sp + offset, read_register (SXIP_REGNUM));
-// OBSOLETE   offset += 4;
-// OBSOLETE 
-// OBSOLETE   write_word (sp + offset, read_register (SNIP_REGNUM));
-// OBSOLETE   offset += 4;
-// OBSOLETE 
-// OBSOLETE   write_word (sp + offset, read_register (SFIP_REGNUM));
-// OBSOLETE   offset += 4;
-// OBSOLETE 
-// OBSOLETE   write_word (sp + offset, read_register (PSR_REGNUM));
-// OBSOLETE   offset += 4;
-// OBSOLETE 
-// OBSOLETE   write_word (sp + offset, read_register (FPSR_REGNUM));
-// OBSOLETE   offset += 4;
-// OBSOLETE 
-// OBSOLETE   write_word (sp + offset, read_register (FPCR_REGNUM));
-// OBSOLETE   offset += 4;
-// OBSOLETE 
-// OBSOLETE   write_register (SP_REGNUM, sp);
-// OBSOLETE   write_register (ACTUAL_FP_REGNUM, sp);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE pop_frame (void)
-// OBSOLETE {
-// OBSOLETE   register struct frame_info *frame = get_current_frame ();
-// OBSOLETE   register int regnum;
-// OBSOLETE   struct frame_saved_regs fsr;
-// OBSOLETE 
-// OBSOLETE   get_frame_saved_regs (frame, &fsr);
-// OBSOLETE 
-// OBSOLETE   if (PC_IN_CALL_DUMMY (read_pc (), read_register (SP_REGNUM), frame->frame))
-// OBSOLETE     {
-// OBSOLETE       /* FIXME: I think get_frame_saved_regs should be handling this so
-// OBSOLETE          that we can deal with the saved registers properly (e.g. frame
-// OBSOLETE          1 is a call dummy, the user types "frame 2" and then "print $ps").  */
-// OBSOLETE       register CORE_ADDR sp = read_register (ACTUAL_FP_REGNUM);
-// OBSOLETE       int offset;
-// OBSOLETE 
-// OBSOLETE       for (regnum = 0, offset = 0; regnum <= SP_REGNUM; regnum++, offset += 4)
-// OBSOLETE    (void) write_register (regnum, read_memory_integer (sp + offset, 4));
-// OBSOLETE 
-// OBSOLETE       write_register (SXIP_REGNUM, read_memory_integer (sp + offset, 4));
-// OBSOLETE       offset += 4;
-// OBSOLETE 
-// OBSOLETE       write_register (SNIP_REGNUM, read_memory_integer (sp + offset, 4));
-// OBSOLETE       offset += 4;
-// OBSOLETE 
-// OBSOLETE       write_register (SFIP_REGNUM, read_memory_integer (sp + offset, 4));
-// OBSOLETE       offset += 4;
-// OBSOLETE 
-// OBSOLETE       write_register (PSR_REGNUM, read_memory_integer (sp + offset, 4));
-// OBSOLETE       offset += 4;
-// OBSOLETE 
-// OBSOLETE       write_register (FPSR_REGNUM, read_memory_integer (sp + offset, 4));
-// OBSOLETE       offset += 4;
-// OBSOLETE 
-// OBSOLETE       write_register (FPCR_REGNUM, read_memory_integer (sp + offset, 4));
-// OBSOLETE       offset += 4;
-// OBSOLETE 
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       for (regnum = FP_REGNUM; regnum > 0; regnum--)
-// OBSOLETE    if (fsr.regs[regnum])
-// OBSOLETE      write_register (regnum,
-// OBSOLETE                      read_memory_integer (fsr.regs[regnum], 4));
-// OBSOLETE       write_pc (frame_saved_pc (frame));
-// OBSOLETE     }
-// OBSOLETE   reinit_frame_cache ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_m88k_tdep (void)
-// OBSOLETE {
-// OBSOLETE   tm_print_insn = print_insn_m88k;
-// OBSOLETE }
diff --git a/gdb/os9kread.c b/gdb/os9kread.c
deleted file mode 100644 (file)
index 767d684..0000000
+++ /dev/null
@@ -1,1621 +0,0 @@
-// OBSOLETE /* Read os9/os9k symbol tables and convert to internal format, for GDB.
-// OBSOLETE    Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
-// OBSOLETE    1996, 1997, 1998, 1999, 2000, 2001
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* This module provides three functions: os9k_symfile_init,
-// OBSOLETE    which initializes to read a symbol file; os9k_new_init, which 
-// OBSOLETE    discards existing cached information when all symbols are being
-// OBSOLETE    discarded; and os9k_symfile_read, which reads a symbol table
-// OBSOLETE    from a file.
-// OBSOLETE 
-// OBSOLETE    os9k_symfile_read only does the minimum work necessary for letting the
-// OBSOLETE    user "name" things symbolically; it does not read the entire symtab.
-// OBSOLETE    Instead, it reads the external and static symbols and puts them in partial
-// OBSOLETE    symbol tables.  When more extensive information is requested of a
-// OBSOLETE    file, the corresponding partial symbol table is mutated into a full
-// OBSOLETE    fledged symbol table by going back and reading the symbols
-// OBSOLETE    for real.  os9k_psymtab_to_symtab() is the function that does this */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE #include "gdb_assert.h"
-// OBSOLETE #include <stdio.h>
-// OBSOLETE 
-// OBSOLETE #if defined(USG) || defined(__CYGNUSCLIB__)
-// OBSOLETE #include <sys/types.h>
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #include "obstack.h"
-// OBSOLETE #include "gdb_stat.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "breakpoint.h"
-// OBSOLETE #include "command.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "gdbcore.h"               /* for bfd stuff */
-// OBSOLETE #include "libaout.h"               /* FIXME Secret internal BFD stuff for a.out */
-// OBSOLETE #include "symfile.h"
-// OBSOLETE #include "objfiles.h"
-// OBSOLETE #include "buildsym.h"
-// OBSOLETE #include "gdb-stabs.h"
-// OBSOLETE #include "demangle.h"
-// OBSOLETE #include "language.h"              /* Needed inside partial-stab.h */
-// OBSOLETE #include "complaints.h"
-// OBSOLETE #include "os9k.h"
-// OBSOLETE #include "stabsread.h"
-// OBSOLETE 
-// OBSOLETE extern void _initialize_os9kread (void);
-// OBSOLETE 
-// OBSOLETE /* Each partial symbol table entry contains a pointer to private data for the
-// OBSOLETE    read_symtab() function to use when expanding a partial symbol table entry
-// OBSOLETE    to a full symbol table entry.
-// OBSOLETE 
-// OBSOLETE    For dbxread this structure contains the offset within the file symbol table
-// OBSOLETE    of first local symbol for this file, and count of the section
-// OBSOLETE    of the symbol table devoted to this file's symbols (actually, the section
-// OBSOLETE    bracketed may contain more than just this file's symbols).  It also contains
-// OBSOLETE    further information needed to locate the symbols if they are in an ELF file.
-// OBSOLETE 
-// OBSOLETE    If ldsymcnt is 0, the only reason for this thing's existence is the
-// OBSOLETE    dependency list.  Nothing else will happen when it is read in.  */
-// OBSOLETE 
-// OBSOLETE #define LDSYMOFF(p) (((struct symloc *)((p)->read_symtab_private))->ldsymoff)
-// OBSOLETE #define LDSYMCNT(p) (((struct symloc *)((p)->read_symtab_private))->ldsymnum)
-// OBSOLETE 
-// OBSOLETE struct symloc
-// OBSOLETE   {
-// OBSOLETE     int ldsymoff;
-// OBSOLETE     int ldsymnum;
-// OBSOLETE   };
-// OBSOLETE 
-// OBSOLETE /* Remember what we deduced to be the source language of this psymtab. */
-// OBSOLETE static enum language psymtab_language = language_unknown;
-// OBSOLETE 
-// OBSOLETE /* keep partial symbol table file nested depth */
-// OBSOLETE static int psymfile_depth = 0;
-// OBSOLETE 
-// OBSOLETE /* keep symbol table file nested depth */
-// OBSOLETE static int symfile_depth = 0;
-// OBSOLETE 
-// OBSOLETE extern int previous_stab_code;
-// OBSOLETE 
-// OBSOLETE /* Name of last function encountered.  Used in Solaris to approximate
-// OBSOLETE    object file boundaries.  */
-// OBSOLETE static char *last_function_name;
-// OBSOLETE 
-// OBSOLETE /* Complaints about the symbols we have encountered.  */
-// OBSOLETE extern struct complaint lbrac_complaint;
-// OBSOLETE 
-// OBSOLETE extern struct complaint unknown_symtype_complaint;
-// OBSOLETE 
-// OBSOLETE extern struct complaint unknown_symchar_complaint;
-// OBSOLETE 
-// OBSOLETE extern struct complaint lbrac_rbrac_complaint;
-// OBSOLETE 
-// OBSOLETE extern struct complaint repeated_header_complaint;
-// OBSOLETE 
-// OBSOLETE extern struct complaint repeated_header_name_complaint;
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE static struct complaint lbrac_unmatched_complaint =
-// OBSOLETE {"unmatched Increment Block Entry before symtab pos %d", 0, 0};
-// OBSOLETE 
-// OBSOLETE static struct complaint lbrac_mismatch_complaint =
-// OBSOLETE {"IBE/IDE symbol mismatch at symtab pos %d", 0, 0};
-// OBSOLETE #endif
-// OBSOLETE \f
-// OBSOLETE /* Local function prototypes */
-// OBSOLETE 
-// OBSOLETE static void read_minimal_symbols (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void os9k_read_ofile_symtab (struct partial_symtab *);
-// OBSOLETE 
-// OBSOLETE static void os9k_psymtab_to_symtab (struct partial_symtab *);
-// OBSOLETE 
-// OBSOLETE static void os9k_psymtab_to_symtab_1 (struct partial_symtab *);
-// OBSOLETE 
-// OBSOLETE static void read_os9k_psymtab (struct objfile *, CORE_ADDR, int);
-// OBSOLETE 
-// OBSOLETE static int fill_sym (FILE *, bfd *);
-// OBSOLETE 
-// OBSOLETE static void os9k_symfile_init (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void os9k_new_init (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void os9k_symfile_read (struct objfile *, int);
-// OBSOLETE 
-// OBSOLETE static void os9k_symfile_finish (struct objfile *);
-// OBSOLETE 
-// OBSOLETE static void os9k_process_one_symbol (int, int, CORE_ADDR, char *,
-// OBSOLETE                                 struct section_offsets *,
-// OBSOLETE                                 struct objfile *);
-// OBSOLETE 
-// OBSOLETE static struct partial_symtab *os9k_start_psymtab (struct objfile *, char *,
-// OBSOLETE                                              CORE_ADDR, int, int,
-// OBSOLETE                                              struct partial_symbol **,
-// OBSOLETE                                              struct partial_symbol **);
-// OBSOLETE 
-// OBSOLETE static struct partial_symtab *os9k_end_psymtab (struct partial_symtab *,
-// OBSOLETE                                            char **, int, int, CORE_ADDR,
-// OBSOLETE                                            struct partial_symtab **,
-// OBSOLETE                                            int);
-// OBSOLETE 
-// OBSOLETE static void record_minimal_symbol (char *, CORE_ADDR, int, struct objfile *);
-// OBSOLETE \f
-// OBSOLETE #define HANDLE_RBRAC(val) \
-// OBSOLETE   if ((val) > pst->texthigh) pst->texthigh = (val);
-// OBSOLETE 
-// OBSOLETE #define SWAP_STBHDR(hdrp, abfd) \
-// OBSOLETE   { \
-// OBSOLETE     (hdrp)->fmtno = bfd_get_16(abfd, (unsigned char *)&(hdrp)->fmtno); \
-// OBSOLETE     (hdrp)->crc = bfd_get_32(abfd, (unsigned char *)&(hdrp)->crc); \
-// OBSOLETE     (hdrp)->offset = bfd_get_32(abfd, (unsigned char *)&(hdrp)->offset); \
-// OBSOLETE     (hdrp)->nsym = bfd_get_32(abfd, (unsigned char *)&(hdrp)->nsym); \
-// OBSOLETE   }
-// OBSOLETE #define SWAP_STBSYM(symp, abfd) \
-// OBSOLETE   { \
-// OBSOLETE     (symp)->value = bfd_get_32(abfd, (unsigned char *)&(symp)->value); \
-// OBSOLETE     (symp)->type = bfd_get_16(abfd, (unsigned char *)&(symp)->type); \
-// OBSOLETE     (symp)->stroff = bfd_get_32(abfd, (unsigned char *)&(symp)->stroff); \
-// OBSOLETE   }
-// OBSOLETE #define N_DATA 0
-// OBSOLETE #define N_BSS 1
-// OBSOLETE #define N_RDATA 2
-// OBSOLETE #define N_IDATA 3
-// OBSOLETE #define N_TEXT 4
-// OBSOLETE #define N_ABS 6
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE record_minimal_symbol (char *name, CORE_ADDR address, int type,
-// OBSOLETE                   struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   enum minimal_symbol_type ms_type;
-// OBSOLETE 
-// OBSOLETE   switch (type)
-// OBSOLETE     {
-// OBSOLETE     case N_TEXT:
-// OBSOLETE       ms_type = mst_text;
-// OBSOLETE       address += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE       break;
-// OBSOLETE     case N_DATA:
-// OBSOLETE       ms_type = mst_data;
-// OBSOLETE       break;
-// OBSOLETE     case N_BSS:
-// OBSOLETE       ms_type = mst_bss;
-// OBSOLETE       break;
-// OBSOLETE     case N_RDATA:
-// OBSOLETE       ms_type = mst_bss;
-// OBSOLETE       break;
-// OBSOLETE     case N_IDATA:
-// OBSOLETE       ms_type = mst_data;
-// OBSOLETE       break;
-// OBSOLETE     case N_ABS:
-// OBSOLETE       ms_type = mst_abs;
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       ms_type = mst_unknown;
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   prim_record_minimal_symbol (name, address, ms_type, objfile);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* read and process .stb file and store in minimal symbol table */
-// OBSOLETE typedef char mhhdr[80];
-// OBSOLETE struct stbhdr
-// OBSOLETE   {
-// OBSOLETE     mhhdr comhdr;
-// OBSOLETE     char *name;
-// OBSOLETE     short fmtno;
-// OBSOLETE     int crc;
-// OBSOLETE     int offset;
-// OBSOLETE     int nsym;
-// OBSOLETE     char *pad;
-// OBSOLETE   };
-// OBSOLETE struct stbsymbol
-// OBSOLETE   {
-// OBSOLETE     int value;
-// OBSOLETE     short type;
-// OBSOLETE     int stroff;
-// OBSOLETE   };
-// OBSOLETE #define STBSYMSIZE 10
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE read_minimal_symbols (struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   FILE *fp;
-// OBSOLETE   bfd *abfd;
-// OBSOLETE   struct stbhdr hdr;
-// OBSOLETE   struct stbsymbol sym;
-// OBSOLETE   int ch, i, j, off;
-// OBSOLETE   char buf[64], buf1[128];
-// OBSOLETE 
-// OBSOLETE   fp = objfile->auxf1;
-// OBSOLETE   if (fp == NULL)
-// OBSOLETE     return;
-// OBSOLETE   abfd = objfile->obfd;
-// OBSOLETE   fread (&hdr.comhdr[0], sizeof (mhhdr), 1, fp);
-// OBSOLETE   i = 0;
-// OBSOLETE   ch = getc (fp);
-// OBSOLETE   while (ch != -1)
-// OBSOLETE     {
-// OBSOLETE       buf[i] = (char) ch;
-// OBSOLETE       i++;
-// OBSOLETE       if (ch == 0)
-// OBSOLETE    break;
-// OBSOLETE       ch = getc (fp);
-// OBSOLETE     };
-// OBSOLETE   if (i % 2)
-// OBSOLETE     ch = getc (fp);
-// OBSOLETE   hdr.name = &buf[0];
-// OBSOLETE 
-// OBSOLETE   fread (&hdr.fmtno, sizeof (hdr.fmtno), 1, fp);
-// OBSOLETE   fread (&hdr.crc, sizeof (hdr.crc), 1, fp);
-// OBSOLETE   fread (&hdr.offset, sizeof (hdr.offset), 1, fp);
-// OBSOLETE   fread (&hdr.nsym, sizeof (hdr.nsym), 1, fp);
-// OBSOLETE   SWAP_STBHDR (&hdr, abfd);
-// OBSOLETE 
-// OBSOLETE   /* read symbols */
-// OBSOLETE   init_minimal_symbol_collection ();
-// OBSOLETE   off = hdr.offset;
-// OBSOLETE   for (i = hdr.nsym; i > 0; i--)
-// OBSOLETE     {
-// OBSOLETE       fseek (fp, (long) off, 0);
-// OBSOLETE       fread (&sym.value, sizeof (sym.value), 1, fp);
-// OBSOLETE       fread (&sym.type, sizeof (sym.type), 1, fp);
-// OBSOLETE       fread (&sym.stroff, sizeof (sym.stroff), 1, fp);
-// OBSOLETE       SWAP_STBSYM (&sym, abfd);
-// OBSOLETE       fseek (fp, (long) sym.stroff, 0);
-// OBSOLETE       j = 0;
-// OBSOLETE       ch = getc (fp);
-// OBSOLETE       while (ch != -1)
-// OBSOLETE    {
-// OBSOLETE      buf1[j] = (char) ch;
-// OBSOLETE      j++;
-// OBSOLETE      if (ch == 0)
-// OBSOLETE        break;
-// OBSOLETE      ch = getc (fp);
-// OBSOLETE    };
-// OBSOLETE       record_minimal_symbol (buf1, sym.value, sym.type & 7, objfile);
-// OBSOLETE       off += STBSYMSIZE;
-// OBSOLETE     };
-// OBSOLETE   install_minimal_symbols (objfile);
-// OBSOLETE   return;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Scan and build partial symbols for a symbol file.
-// OBSOLETE    We have been initialized by a call to os9k_symfile_init, which 
-// OBSOLETE    put all the relevant info into a "struct os9k_symfile_info",
-// OBSOLETE    hung off the objfile structure.
-// OBSOLETE 
-// OBSOLETE    MAINLINE is true if we are reading the main symbol
-// OBSOLETE    table (as opposed to a shared lib or dynamically loaded file).  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE os9k_symfile_read (struct objfile *objfile, int mainline)
-// OBSOLETE {
-// OBSOLETE   bfd *sym_bfd;
-// OBSOLETE   struct cleanup *back_to;
-// OBSOLETE 
-// OBSOLETE   sym_bfd = objfile->obfd;
-// OBSOLETE   /* If we are reinitializing, or if we have never loaded syms yet, init */
-// OBSOLETE   if (mainline
-// OBSOLETE       || (objfile->global_psymbols.size == 0
-// OBSOLETE      && objfile->static_psymbols.size == 0))
-// OBSOLETE     init_psymbol_list (objfile, DBX_SYMCOUNT (objfile));
-// OBSOLETE 
-// OBSOLETE   free_pending_blocks ();
-// OBSOLETE   back_to = make_cleanup (really_free_pendings, 0);
-// OBSOLETE 
-// OBSOLETE   make_cleanup_discard_minimal_symbols ();
-// OBSOLETE   read_minimal_symbols (objfile);
-// OBSOLETE 
-// OBSOLETE   /* Now that the symbol table data of the executable file are all in core,
-// OBSOLETE      process them and define symbols accordingly.  */
-// OBSOLETE   read_os9k_psymtab (objfile,
-// OBSOLETE                 DBX_TEXT_ADDR (objfile),
-// OBSOLETE                 DBX_TEXT_SIZE (objfile));
-// OBSOLETE 
-// OBSOLETE   do_cleanups (back_to);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Initialize anything that needs initializing when a completely new
-// OBSOLETE    symbol file is specified (not just adding some symbols from another
-// OBSOLETE    file, e.g. a shared library).  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE os9k_new_init (struct objfile *ignore)
-// OBSOLETE {
-// OBSOLETE   stabsread_new_init ();
-// OBSOLETE   buildsym_new_init ();
-// OBSOLETE   psymfile_depth = 0;
-// OBSOLETE /*
-// OBSOLETE    init_header_files ();
-// OBSOLETE  */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* os9k_symfile_init ()
-// OBSOLETE    It is passed a struct objfile which contains, among other things,
-// OBSOLETE    the BFD for the file whose symbols are being read, and a slot for a pointer
-// OBSOLETE    to "private data" which we fill with goodies.
-// OBSOLETE 
-// OBSOLETE    Since BFD doesn't know how to read debug symbols in a format-independent
-// OBSOLETE    way (and may never do so...), we have to do it ourselves.  We will never
-// OBSOLETE    be called unless this is an a.out (or very similar) file. 
-// OBSOLETE    FIXME, there should be a cleaner peephole into the BFD environment here.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE os9k_symfile_init (struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   bfd *sym_bfd = objfile->obfd;
-// OBSOLETE   char *name = bfd_get_filename (sym_bfd);
-// OBSOLETE   char dbgname[512], stbname[512];
-// OBSOLETE   FILE *symfile = 0;
-// OBSOLETE   FILE *minfile = 0;
-// OBSOLETE   asection *text_sect;
-// OBSOLETE 
-// OBSOLETE   strcpy (dbgname, name);
-// OBSOLETE   strcat (dbgname, ".dbg");
-// OBSOLETE   strcpy (stbname, name);
-// OBSOLETE   strcat (stbname, ".stb");
-// OBSOLETE 
-// OBSOLETE   if ((symfile = fopen (dbgname, "r")) == NULL)
-// OBSOLETE     {
-// OBSOLETE       warning ("Symbol file %s not found", dbgname);
-// OBSOLETE     }
-// OBSOLETE   objfile->auxf2 = symfile;
-// OBSOLETE 
-// OBSOLETE   if ((minfile = fopen (stbname, "r")) == NULL)
-// OBSOLETE     {
-// OBSOLETE       warning ("Symbol file %s not found", stbname);
-// OBSOLETE     }
-// OBSOLETE   objfile->auxf1 = minfile;
-// OBSOLETE 
-// OBSOLETE   /* Allocate struct to keep track of the symfile */
-// OBSOLETE   objfile->sym_stab_info = (struct dbx_symfile_info *)
-// OBSOLETE     xmmalloc (objfile->md, sizeof (struct dbx_symfile_info));
-// OBSOLETE   DBX_SYMFILE_INFO (objfile)->stab_section_info = NULL;
-// OBSOLETE 
-// OBSOLETE   text_sect = bfd_get_section_by_name (sym_bfd, ".text");
-// OBSOLETE   if (!text_sect)
-// OBSOLETE     error ("Can't find .text section in file");
-// OBSOLETE   DBX_TEXT_ADDR (objfile) = bfd_section_vma (sym_bfd, text_sect);
-// OBSOLETE   DBX_TEXT_SIZE (objfile) = bfd_section_size (sym_bfd, text_sect);
-// OBSOLETE 
-// OBSOLETE   DBX_SYMBOL_SIZE (objfile) = 0;   /* variable size symbol */
-// OBSOLETE   DBX_SYMCOUNT (objfile) = 0;      /* used to be bfd_get_symcount(sym_bfd) */
-// OBSOLETE   DBX_SYMTAB_OFFSET (objfile) = 0; /* used to be SYMBOL_TABLE_OFFSET */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Perform any local cleanups required when we are done with a particular
-// OBSOLETE    objfile.  I.E, we are in the process of discarding all symbol information
-// OBSOLETE    for an objfile, freeing up all memory held for it, and unlinking the
-// OBSOLETE    objfile struct from the global list of known objfiles. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE os9k_symfile_finish (struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   if (objfile->sym_stab_info != NULL)
-// OBSOLETE     {
-// OBSOLETE       xmfree (objfile->md, objfile->sym_stab_info);
-// OBSOLETE     }
-// OBSOLETE /*
-// OBSOLETE    free_header_files ();
-// OBSOLETE  */
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE struct st_dbghdr
-// OBSOLETE {
-// OBSOLETE   int sync;
-// OBSOLETE   short rev;
-// OBSOLETE   int crc;
-// OBSOLETE   short os;
-// OBSOLETE   short cpu;
-// OBSOLETE };
-// OBSOLETE #define SYNC               (int)0xefbefeca
-// OBSOLETE 
-// OBSOLETE #define SWAP_DBGHDR(hdrp, abfd) \
-// OBSOLETE   { \
-// OBSOLETE     (hdrp)->sync = bfd_get_32(abfd, (unsigned char *)&(hdrp)->sync); \
-// OBSOLETE     (hdrp)->rev = bfd_get_16(abfd, (unsigned char *)&(hdrp)->rev); \
-// OBSOLETE     (hdrp)->crc = bfd_get_32(abfd, (unsigned char *)&(hdrp)->crc); \
-// OBSOLETE     (hdrp)->os = bfd_get_16(abfd, (unsigned char *)&(hdrp)->os); \
-// OBSOLETE     (hdrp)->cpu = bfd_get_16(abfd, (unsigned char *)&(hdrp)->cpu); \
-// OBSOLETE   }
-// OBSOLETE 
-// OBSOLETE #define N_SYM_CMPLR     0
-// OBSOLETE #define N_SYM_SLINE     1
-// OBSOLETE #define N_SYM_SYM       2
-// OBSOLETE #define N_SYM_LBRAC     3
-// OBSOLETE #define N_SYM_RBRAC     4
-// OBSOLETE #define N_SYM_SE        5
-// OBSOLETE 
-// OBSOLETE struct internal_symstruct
-// OBSOLETE   {
-// OBSOLETE     short n_type;
-// OBSOLETE     short n_desc;
-// OBSOLETE     long n_value;
-// OBSOLETE     char *n_strx;
-// OBSOLETE   };
-// OBSOLETE static struct internal_symstruct symbol;
-// OBSOLETE static struct internal_symstruct *symbuf = &symbol;
-// OBSOLETE static char strbuf[4096];
-// OBSOLETE static struct st_dbghdr dbghdr;
-// OBSOLETE static short cmplrid;
-// OBSOLETE 
-// OBSOLETE #define VER_PRE_ULTRAC     ((short)4)
-// OBSOLETE #define VER_ULTRAC ((short)5)
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE fill_sym (FILE *dbg_file, bfd *abfd)
-// OBSOLETE {
-// OBSOLETE   short si, nmask;
-// OBSOLETE   long li;
-// OBSOLETE   int ii;
-// OBSOLETE   char *p;
-// OBSOLETE 
-// OBSOLETE   int nbytes = fread (&si, sizeof (si), 1, dbg_file);
-// OBSOLETE   if (nbytes == 0)
-// OBSOLETE     return 0;
-// OBSOLETE   if (nbytes < 0)
-// OBSOLETE     perror_with_name ("reading .dbg file.");
-// OBSOLETE   symbuf->n_desc = 0;
-// OBSOLETE   symbuf->n_value = 0;
-// OBSOLETE   symbuf->n_strx = NULL;
-// OBSOLETE   symbuf->n_type = bfd_get_16 (abfd, (unsigned char *) &si);
-// OBSOLETE   symbuf->n_type = 0xf & symbuf->n_type;
-// OBSOLETE   switch (symbuf->n_type)
-// OBSOLETE     {
-// OBSOLETE     case N_SYM_CMPLR:
-// OBSOLETE       fread (&si, sizeof (si), 1, dbg_file);
-// OBSOLETE       symbuf->n_desc = bfd_get_16 (abfd, (unsigned char *) &si);
-// OBSOLETE       cmplrid = symbuf->n_desc & 0xff;
-// OBSOLETE       break;
-// OBSOLETE     case N_SYM_SLINE:
-// OBSOLETE       fread (&li, sizeof (li), 1, dbg_file);
-// OBSOLETE       symbuf->n_value = bfd_get_32 (abfd, (unsigned char *) &li);
-// OBSOLETE       fread (&li, sizeof (li), 1, dbg_file);
-// OBSOLETE       li = bfd_get_32 (abfd, (unsigned char *) &li);
-// OBSOLETE       symbuf->n_strx = (char *) (li >> 12);
-// OBSOLETE       symbuf->n_desc = li & 0xfff;
-// OBSOLETE       break;
-// OBSOLETE     case N_SYM_SYM:
-// OBSOLETE       fread (&li, sizeof (li), 1, dbg_file);
-// OBSOLETE       symbuf->n_value = bfd_get_32 (abfd, (unsigned char *) &li);
-// OBSOLETE       si = 0;
-// OBSOLETE       do
-// OBSOLETE    {
-// OBSOLETE      ii = getc (dbg_file);
-// OBSOLETE      strbuf[si++] = (char) ii;
-// OBSOLETE    }
-// OBSOLETE       while (ii != 0 || si % 2 != 0);
-// OBSOLETE       symbuf->n_strx = strbuf;
-// OBSOLETE       p = (char *) strchr (strbuf, ':');
-// OBSOLETE       if (!p)
-// OBSOLETE    break;
-// OBSOLETE       if ((p[1] == 'F' || p[1] == 'f') && cmplrid == VER_PRE_ULTRAC)
-// OBSOLETE    {
-// OBSOLETE      fread (&si, sizeof (si), 1, dbg_file);
-// OBSOLETE      nmask = bfd_get_16 (abfd, (unsigned char *) &si);
-// OBSOLETE      for (ii = 0; ii < nmask; ii++)
-// OBSOLETE        fread (&si, sizeof (si), 1, dbg_file);
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE     case N_SYM_LBRAC:
-// OBSOLETE       fread (&li, sizeof (li), 1, dbg_file);
-// OBSOLETE       symbuf->n_value = bfd_get_32 (abfd, (unsigned char *) &li);
-// OBSOLETE       break;
-// OBSOLETE     case N_SYM_RBRAC:
-// OBSOLETE       fread (&li, sizeof (li), 1, dbg_file);
-// OBSOLETE       symbuf->n_value = bfd_get_32 (abfd, (unsigned char *) &li);
-// OBSOLETE       break;
-// OBSOLETE     case N_SYM_SE:
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Given pointers to an a.out symbol table in core containing dbx
-// OBSOLETE    style data, setup partial_symtab's describing each source file for
-// OBSOLETE    which debugging information is available.
-// OBSOLETE    SYMFILE_NAME is the name of the file we are reading from. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE read_os9k_psymtab (struct objfile *objfile, CORE_ADDR text_addr, int text_size)
-// OBSOLETE {
-// OBSOLETE   register struct internal_symstruct *bufp = 0;            /* =0 avoids gcc -Wall glitch */
-// OBSOLETE   register char *namestring;
-// OBSOLETE   int past_first_source_file = 0;
-// OBSOLETE   CORE_ADDR last_o_file_start = 0;
-// OBSOLETE #if 0
-// OBSOLETE   struct cleanup *back_to;
-// OBSOLETE #endif
-// OBSOLETE   bfd *abfd;
-// OBSOLETE   FILE *fp;
-// OBSOLETE 
-// OBSOLETE   /* End of the text segment of the executable file.  */
-// OBSOLETE   static CORE_ADDR end_of_text_addr;
-// OBSOLETE 
-// OBSOLETE   /* Current partial symtab */
-// OBSOLETE   static struct partial_symtab *pst = 0;
-// OBSOLETE 
-// OBSOLETE   /* List of current psymtab's include files */
-// OBSOLETE   char **psymtab_include_list;
-// OBSOLETE   int includes_allocated;
-// OBSOLETE   int includes_used;
-// OBSOLETE 
-// OBSOLETE   /* Index within current psymtab dependency list */
-// OBSOLETE   struct partial_symtab **dependency_list;
-// OBSOLETE   int dependencies_used, dependencies_allocated;
-// OBSOLETE 
-// OBSOLETE   includes_allocated = 30;
-// OBSOLETE   includes_used = 0;
-// OBSOLETE   psymtab_include_list = (char **) alloca (includes_allocated *
-// OBSOLETE                                       sizeof (char *));
-// OBSOLETE 
-// OBSOLETE   dependencies_allocated = 30;
-// OBSOLETE   dependencies_used = 0;
-// OBSOLETE   dependency_list =
-// OBSOLETE     (struct partial_symtab **) alloca (dependencies_allocated *
-// OBSOLETE                                   sizeof (struct partial_symtab *));
-// OBSOLETE 
-// OBSOLETE   last_source_file = NULL;
-// OBSOLETE 
-// OBSOLETE #ifdef END_OF_TEXT_DEFAULT
-// OBSOLETE   end_of_text_addr = END_OF_TEXT_DEFAULT;
-// OBSOLETE #else
-// OBSOLETE   end_of_text_addr = text_addr + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile))
-// OBSOLETE     + text_size;           /* Relocate */
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE   abfd = objfile->obfd;
-// OBSOLETE   fp = objfile->auxf2;
-// OBSOLETE   if (!fp)
-// OBSOLETE     return;
-// OBSOLETE 
-// OBSOLETE   fread (&dbghdr.sync, sizeof (dbghdr.sync), 1, fp);
-// OBSOLETE   fread (&dbghdr.rev, sizeof (dbghdr.rev), 1, fp);
-// OBSOLETE   fread (&dbghdr.crc, sizeof (dbghdr.crc), 1, fp);
-// OBSOLETE   fread (&dbghdr.os, sizeof (dbghdr.os), 1, fp);
-// OBSOLETE   fread (&dbghdr.cpu, sizeof (dbghdr.cpu), 1, fp);
-// OBSOLETE   SWAP_DBGHDR (&dbghdr, abfd);
-// OBSOLETE 
-// OBSOLETE   symnum = 0;
-// OBSOLETE   while (1)
-// OBSOLETE     {
-// OBSOLETE       int ret;
-// OBSOLETE       long cursymoffset;
-// OBSOLETE 
-// OBSOLETE       /* Get the symbol for this run and pull out some info */
-// OBSOLETE       QUIT;                        /* allow this to be interruptable */
-// OBSOLETE       cursymoffset = ftell (objfile->auxf2);
-// OBSOLETE       ret = fill_sym (objfile->auxf2, abfd);
-// OBSOLETE       if (ret <= 0)
-// OBSOLETE    break;
-// OBSOLETE       else
-// OBSOLETE    symnum++;
-// OBSOLETE       bufp = symbuf;
-// OBSOLETE 
-// OBSOLETE       /* Special case to speed up readin. */
-// OBSOLETE       if (bufp->n_type == (short) N_SYM_SLINE)
-// OBSOLETE    continue;
-// OBSOLETE 
-// OBSOLETE #define CUR_SYMBOL_VALUE bufp->n_value
-// OBSOLETE       /* partial-stab.h */
-// OBSOLETE 
-// OBSOLETE       switch (bufp->n_type)
-// OBSOLETE    {
-// OBSOLETE      char *p;
-// OBSOLETE 
-// OBSOLETE    case N_SYM_CMPLR:
-// OBSOLETE      continue;
-// OBSOLETE 
-// OBSOLETE    case N_SYM_SE:
-// OBSOLETE      CUR_SYMBOL_VALUE += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE      if (psymfile_depth == 1 && pst)
-// OBSOLETE        {
-// OBSOLETE          os9k_end_psymtab (pst, psymtab_include_list, includes_used,
-// OBSOLETE                            symnum, CUR_SYMBOL_VALUE,
-// OBSOLETE                            dependency_list, dependencies_used);
-// OBSOLETE          pst = (struct partial_symtab *) 0;
-// OBSOLETE          includes_used = 0;
-// OBSOLETE          dependencies_used = 0;
-// OBSOLETE        }
-// OBSOLETE      psymfile_depth--;
-// OBSOLETE      continue;
-// OBSOLETE 
-// OBSOLETE    case N_SYM_SYM: /* Typedef or automatic variable. */
-// OBSOLETE      namestring = bufp->n_strx;
-// OBSOLETE      p = (char *) strchr (namestring, ':');
-// OBSOLETE      if (!p)
-// OBSOLETE        continue;           /* Not a debugging symbol.   */
-// OBSOLETE 
-// OBSOLETE      /* Main processing section for debugging symbols which
-// OBSOLETE         the initial read through the symbol tables needs to worry
-// OBSOLETE         about.  If we reach this point, the symbol which we are
-// OBSOLETE         considering is definitely one we are interested in.
-// OBSOLETE         p must also contain the (valid) index into the namestring
-// OBSOLETE         which indicates the debugging type symbol.  */
-// OBSOLETE 
-// OBSOLETE      switch (p[1])
-// OBSOLETE        {
-// OBSOLETE        case 'S':
-// OBSOLETE          {
-// OBSOLETE            unsigned long valu;
-// OBSOLETE            enum language tmp_language;
-// OBSOLETE            char *str, *p;
-// OBSOLETE            int n;
-// OBSOLETE 
-// OBSOLETE            valu = CUR_SYMBOL_VALUE;
-// OBSOLETE            if (valu)
-// OBSOLETE              valu += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE            past_first_source_file = 1;
-// OBSOLETE 
-// OBSOLETE            p = strchr (namestring, ':');
-// OBSOLETE            if (p)
-// OBSOLETE              n = p - namestring;
-// OBSOLETE            else
-// OBSOLETE              n = strlen (namestring);
-// OBSOLETE            str = alloca (n + 1);
-// OBSOLETE            strncpy (str, namestring, n);
-// OBSOLETE            str[n] = '\0';
-// OBSOLETE 
-// OBSOLETE            if (psymfile_depth == 0)
-// OBSOLETE              {
-// OBSOLETE                if (!pst)
-// OBSOLETE                  pst = os9k_start_psymtab (objfile,
-// OBSOLETE                                            str, valu,
-// OBSOLETE                                            cursymoffset,
-// OBSOLETE                                            symnum - 1,
-// OBSOLETE                                          objfile->global_psymbols.next,
-// OBSOLETE                                         objfile->static_psymbols.next);
-// OBSOLETE              }
-// OBSOLETE            else
-// OBSOLETE              {             /* this is a include file */
-// OBSOLETE                tmp_language = deduce_language_from_filename (str);
-// OBSOLETE                if (tmp_language != language_unknown
-// OBSOLETE                    && (tmp_language != language_c
-// OBSOLETE                        || psymtab_language != language_cplus))
-// OBSOLETE                  psymtab_language = tmp_language;
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    if (pst && STREQ (str, pst->filename))
-// OBSOLETE    continue;
-// OBSOLETE    {
-// OBSOLETE    register int i;
-// OBSOLETE    for (i = 0; i < includes_used; i++)
-// OBSOLETE    if (STREQ (str, psymtab_include_list[i]))
-// OBSOLETE    {
-// OBSOLETE    i = -1; 
-// OBSOLETE    break;
-// OBSOLETE    }
-// OBSOLETE    if (i == -1)
-// OBSOLETE    continue;
-// OBSOLETE    }
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE                psymtab_include_list[includes_used++] = str;
-// OBSOLETE                if (includes_used >= includes_allocated)
-// OBSOLETE                  {
-// OBSOLETE                    char **orig = psymtab_include_list;
-// OBSOLETE 
-// OBSOLETE                    psymtab_include_list = (char **)
-// OBSOLETE                      alloca ((includes_allocated *= 2) * sizeof (char *));
-// OBSOLETE                    memcpy ((PTR) psymtab_include_list, (PTR) orig,
-// OBSOLETE                            includes_used * sizeof (char *));
-// OBSOLETE                  }
-// OBSOLETE 
-// OBSOLETE              }
-// OBSOLETE            psymfile_depth++;
-// OBSOLETE            continue;
-// OBSOLETE          }
-// OBSOLETE 
-// OBSOLETE        case 'v':
-// OBSOLETE          add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                               VAR_NAMESPACE, LOC_STATIC,
-// OBSOLETE                               &objfile->static_psymbols,
-// OBSOLETE                               0, CUR_SYMBOL_VALUE,
-// OBSOLETE                               psymtab_language, objfile);
-// OBSOLETE          continue;
-// OBSOLETE        case 'V':
-// OBSOLETE          add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                               VAR_NAMESPACE, LOC_STATIC,
-// OBSOLETE                               &objfile->global_psymbols,
-// OBSOLETE                               0, CUR_SYMBOL_VALUE,
-// OBSOLETE                               psymtab_language, objfile);
-// OBSOLETE          continue;
-// OBSOLETE 
-// OBSOLETE        case 'T':
-// OBSOLETE          if (p != namestring)      /* a name is there, not just :T... */
-// OBSOLETE            {
-// OBSOLETE              add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                                   STRUCT_NAMESPACE, LOC_TYPEDEF,
-// OBSOLETE                                   &objfile->static_psymbols,
-// OBSOLETE                                   CUR_SYMBOL_VALUE, 0,
-// OBSOLETE                                   psymtab_language, objfile);
-// OBSOLETE              if (p[2] == 't')
-// OBSOLETE                {
-// OBSOLETE                  /* Also a typedef with the same name.  */
-// OBSOLETE                  add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                                       VAR_NAMESPACE, LOC_TYPEDEF,
-// OBSOLETE                                       &objfile->static_psymbols,
-// OBSOLETE                                  CUR_SYMBOL_VALUE, 0, psymtab_language,
-// OBSOLETE                                       objfile);
-// OBSOLETE                  p += 1;
-// OBSOLETE                }
-// OBSOLETE              /* The semantics of C++ state that "struct foo { ... }"
-// OBSOLETE                 also defines a typedef for "foo".  Unfortuantely, cfront
-// OBSOLETE                 never makes the typedef when translating from C++ to C.
-// OBSOLETE                 We make the typedef here so that "ptype foo" works as
-// OBSOLETE                 expected for cfront translated code.  */
-// OBSOLETE              else if (psymtab_language == language_cplus)
-// OBSOLETE                {
-// OBSOLETE                  /* Also a typedef with the same name.  */
-// OBSOLETE                  add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                                       VAR_NAMESPACE, LOC_TYPEDEF,
-// OBSOLETE                                       &objfile->static_psymbols,
-// OBSOLETE                                  CUR_SYMBOL_VALUE, 0, psymtab_language,
-// OBSOLETE                                       objfile);
-// OBSOLETE                }
-// OBSOLETE            }
-// OBSOLETE          goto check_enum;
-// OBSOLETE        case 't':
-// OBSOLETE          if (p != namestring)      /* a name is there, not just :T... */
-// OBSOLETE            {
-// OBSOLETE              add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                                   VAR_NAMESPACE, LOC_TYPEDEF,
-// OBSOLETE                                   &objfile->static_psymbols,
-// OBSOLETE                                   CUR_SYMBOL_VALUE, 0,
-// OBSOLETE                                   psymtab_language, objfile);
-// OBSOLETE            }
-// OBSOLETE        check_enum:
-// OBSOLETE          /* If this is an enumerated type, we need to
-// OBSOLETE             add all the enum constants to the partial symbol
-// OBSOLETE             table.  This does not cover enums without names, e.g.
-// OBSOLETE             "enum {a, b} c;" in C, but fortunately those are
-// OBSOLETE             rare.  There is no way for GDB to find those from the
-// OBSOLETE             enum type without spending too much time on it.  Thus
-// OBSOLETE             to solve this problem, the compiler needs to put out the
-// OBSOLETE             enum in a nameless type.  GCC2 does this.  */
-// OBSOLETE 
-// OBSOLETE          /* We are looking for something of the form
-// OBSOLETE             <name> ":" ("t" | "T") [<number> "="] "e" <size>
-// OBSOLETE             {<constant> ":" <value> ","} ";".  */
-// OBSOLETE 
-// OBSOLETE          /* Skip over the colon and the 't' or 'T'.  */
-// OBSOLETE          p += 2;
-// OBSOLETE          /* This type may be given a number.  Also, numbers can come
-// OBSOLETE             in pairs like (0,26).  Skip over it.  */
-// OBSOLETE          while ((*p >= '0' && *p <= '9')
-// OBSOLETE                 || *p == '(' || *p == ',' || *p == ')'
-// OBSOLETE                 || *p == '=')
-// OBSOLETE            p++;
-// OBSOLETE 
-// OBSOLETE          if (*p++ == 'e')
-// OBSOLETE            {
-// OBSOLETE              /* We have found an enumerated type. skip size */
-// OBSOLETE              while (*p >= '0' && *p <= '9')
-// OBSOLETE                p++;
-// OBSOLETE              /* According to comments in read_enum_type
-// OBSOLETE                 a comma could end it instead of a semicolon.
-// OBSOLETE                 I don't know where that happens.
-// OBSOLETE                 Accept either.  */
-// OBSOLETE              while (*p && *p != ';' && *p != ',')
-// OBSOLETE                {
-// OBSOLETE                  char *q;
-// OBSOLETE 
-// OBSOLETE                  /* Check for and handle cretinous dbx symbol name
-// OBSOLETE                     continuation! 
-// OBSOLETE                     if (*p == '\\')
-// OBSOLETE                     p = next_symbol_text (objfile);
-// OBSOLETE                   */
-// OBSOLETE 
-// OBSOLETE                  /* Point to the character after the name
-// OBSOLETE                     of the enum constant.  */
-// OBSOLETE                  for (q = p; *q && *q != ':'; q++)
-// OBSOLETE                    ;
-// OBSOLETE                  /* Note that the value doesn't matter for
-// OBSOLETE                     enum constants in psymtabs, just in symtabs.  */
-// OBSOLETE                  add_psymbol_to_list (p, q - p,
-// OBSOLETE                                       VAR_NAMESPACE, LOC_CONST,
-// OBSOLETE                                       &objfile->static_psymbols, 0,
-// OBSOLETE                                       0, psymtab_language, objfile);
-// OBSOLETE                  /* Point past the name.  */
-// OBSOLETE                  p = q;
-// OBSOLETE                  /* Skip over the value.  */
-// OBSOLETE                  while (*p && *p != ',')
-// OBSOLETE                    p++;
-// OBSOLETE                  /* Advance past the comma.  */
-// OBSOLETE                  if (*p)
-// OBSOLETE                    p++;
-// OBSOLETE                }
-// OBSOLETE            }
-// OBSOLETE          continue;
-// OBSOLETE        case 'c':
-// OBSOLETE          /* Constant, e.g. from "const" in Pascal.  */
-// OBSOLETE          add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                               VAR_NAMESPACE, LOC_CONST,
-// OBSOLETE                            &objfile->static_psymbols, CUR_SYMBOL_VALUE,
-// OBSOLETE                               0, psymtab_language, objfile);
-// OBSOLETE          continue;
-// OBSOLETE 
-// OBSOLETE        case 'f':
-// OBSOLETE          CUR_SYMBOL_VALUE += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE          if (pst && pst->textlow == 0)
-// OBSOLETE            pst->textlow = CUR_SYMBOL_VALUE;
-// OBSOLETE 
-// OBSOLETE          add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                               VAR_NAMESPACE, LOC_BLOCK,
-// OBSOLETE                            &objfile->static_psymbols, CUR_SYMBOL_VALUE,
-// OBSOLETE                               0, psymtab_language, objfile);
-// OBSOLETE          continue;
-// OBSOLETE 
-// OBSOLETE        case 'F':
-// OBSOLETE          CUR_SYMBOL_VALUE += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE          if (pst && pst->textlow == 0)
-// OBSOLETE            pst->textlow = CUR_SYMBOL_VALUE;
-// OBSOLETE 
-// OBSOLETE          add_psymbol_to_list (namestring, p - namestring,
-// OBSOLETE                               VAR_NAMESPACE, LOC_BLOCK,
-// OBSOLETE                            &objfile->global_psymbols, CUR_SYMBOL_VALUE,
-// OBSOLETE                               0, psymtab_language, objfile);
-// OBSOLETE          continue;
-// OBSOLETE 
-// OBSOLETE        case 'p':
-// OBSOLETE        case 'l':
-// OBSOLETE        case 's':
-// OBSOLETE          continue;
-// OBSOLETE 
-// OBSOLETE        case ':':
-// OBSOLETE          /* It is a C++ nested symbol.  We don't need to record it
-// OBSOLETE             (I don't think); if we try to look up foo::bar::baz,
-// OBSOLETE             then symbols for the symtab containing foo should get
-// OBSOLETE             read in, I think.  */
-// OBSOLETE          /* Someone says sun cc puts out symbols like
-// OBSOLETE             /foo/baz/maclib::/usr/local/bin/maclib,
-// OBSOLETE             which would get here with a symbol type of ':'.  */
-// OBSOLETE          continue;
-// OBSOLETE 
-// OBSOLETE        default:
-// OBSOLETE          /* Unexpected symbol descriptor.  The second and subsequent stabs
-// OBSOLETE             of a continued stab can show up here.  The question is
-// OBSOLETE             whether they ever can mimic a normal stab--it would be
-// OBSOLETE             nice if not, since we certainly don't want to spend the
-// OBSOLETE             time searching to the end of every string looking for
-// OBSOLETE             a backslash.  */
-// OBSOLETE 
-// OBSOLETE          complain (&unknown_symchar_complaint, p[1]);
-// OBSOLETE          continue;
-// OBSOLETE        }
-// OBSOLETE 
-// OBSOLETE    case N_SYM_RBRAC:
-// OBSOLETE      CUR_SYMBOL_VALUE += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE #ifdef HANDLE_RBRAC
-// OBSOLETE      HANDLE_RBRAC (CUR_SYMBOL_VALUE);
-// OBSOLETE      continue;
-// OBSOLETE #endif
-// OBSOLETE    case N_SYM_LBRAC:
-// OBSOLETE      continue;
-// OBSOLETE 
-// OBSOLETE    default:
-// OBSOLETE      /* If we haven't found it yet, ignore it.  It's probably some
-// OBSOLETE         new type we don't know about yet.  */
-// OBSOLETE      complain (&unknown_symtype_complaint,
-// OBSOLETE                local_hex_string ((unsigned long) bufp->n_type));
-// OBSOLETE      continue;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   DBX_SYMCOUNT (objfile) = symnum;
-// OBSOLETE 
-// OBSOLETE   /* If there's stuff to be cleaned up, clean it up.  */
-// OBSOLETE   if (DBX_SYMCOUNT (objfile) > 0
-// OBSOLETE /*FIXME, does this have a bug at start address 0? */
-// OBSOLETE       && last_o_file_start
-// OBSOLETE       && objfile->ei.entry_point < bufp->n_value
-// OBSOLETE       && objfile->ei.entry_point >= last_o_file_start)
-// OBSOLETE     {
-// OBSOLETE       objfile->ei.entry_file_lowpc = last_o_file_start;
-// OBSOLETE       objfile->ei.entry_file_highpc = bufp->n_value;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (pst)
-// OBSOLETE     {
-// OBSOLETE       os9k_end_psymtab (pst, psymtab_include_list, includes_used,
-// OBSOLETE                    symnum, end_of_text_addr,
-// OBSOLETE                    dependency_list, dependencies_used);
-// OBSOLETE     }
-// OBSOLETE /*
-// OBSOLETE    do_cleanups (back_to);
-// OBSOLETE  */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Allocate and partially fill a partial symtab.  It will be
-// OBSOLETE    completely filled at the end of the symbol list.
-// OBSOLETE 
-// OBSOLETE    SYMFILE_NAME is the name of the symbol-file we are reading from, and ADDR
-// OBSOLETE    is the address relative to which its symbols are (incremental) or 0
-// OBSOLETE    (normal). */
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE static struct partial_symtab *
-// OBSOLETE os9k_start_psymtab (struct objfile *objfile, char *filename, CORE_ADDR textlow,
-// OBSOLETE                int ldsymoff, int ldsymcnt,
-// OBSOLETE                struct partial_symbol **global_syms,
-// OBSOLETE                struct partial_symbol **static_syms)
-// OBSOLETE {
-// OBSOLETE   struct partial_symtab *result =
-// OBSOLETE   start_psymtab_common (objfile, objfile->section_offsets,
-// OBSOLETE                    filename, textlow, global_syms, static_syms);
-// OBSOLETE 
-// OBSOLETE   result->read_symtab_private = (char *)
-// OBSOLETE     obstack_alloc (&objfile->psymbol_obstack, sizeof (struct symloc));
-// OBSOLETE 
-// OBSOLETE   LDSYMOFF (result) = ldsymoff;
-// OBSOLETE   LDSYMCNT (result) = ldsymcnt;
-// OBSOLETE   result->read_symtab = os9k_psymtab_to_symtab;
-// OBSOLETE 
-// OBSOLETE   /* Deduce the source language from the filename for this psymtab. */
-// OBSOLETE   psymtab_language = deduce_language_from_filename (filename);
-// OBSOLETE   return result;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Close off the current usage of PST.  
-// OBSOLETE    Returns PST or NULL if the partial symtab was empty and thrown away.
-// OBSOLETE    FIXME:  List variables and peculiarities of same.  */
-// OBSOLETE 
-// OBSOLETE static struct partial_symtab *
-// OBSOLETE os9k_end_psymtab (struct partial_symtab *pst, char **include_list,
-// OBSOLETE              int num_includes, int capping_symbol_cnt,
-// OBSOLETE              CORE_ADDR capping_text,
-// OBSOLETE              struct partial_symtab **dependency_list,
-// OBSOLETE              int number_dependencies)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE   struct partial_symtab *p1;
-// OBSOLETE   struct objfile *objfile = pst->objfile;
-// OBSOLETE 
-// OBSOLETE   if (capping_symbol_cnt != -1)
-// OBSOLETE     LDSYMCNT (pst) = capping_symbol_cnt - LDSYMCNT (pst);
-// OBSOLETE 
-// OBSOLETE   /* Under Solaris, the N_SO symbols always have a value of 0,
-// OBSOLETE      instead of the usual address of the .o file.  Therefore,
-// OBSOLETE      we have to do some tricks to fill in texthigh and textlow.
-// OBSOLETE      The first trick is in partial-stab.h: if we see a static
-// OBSOLETE      or global function, and the textlow for the current pst
-// OBSOLETE      is still 0, then we use that function's address for 
-// OBSOLETE      the textlow of the pst.
-// OBSOLETE 
-// OBSOLETE      Now, to fill in texthigh, we remember the last function seen
-// OBSOLETE      in the .o file (also in partial-stab.h).  Also, there's a hack in
-// OBSOLETE      bfd/elf.c and gdb/elfread.c to pass the ELF st_size field
-// OBSOLETE      to here via the misc_info field.  Therefore, we can fill in
-// OBSOLETE      a reliable texthigh by taking the address plus size of the
-// OBSOLETE      last function in the file.
-// OBSOLETE 
-// OBSOLETE      Unfortunately, that does not cover the case where the last function
-// OBSOLETE      in the file is static.  See the paragraph below for more comments
-// OBSOLETE      on this situation.
-// OBSOLETE 
-// OBSOLETE      Finally, if we have a valid textlow for the current file, we run
-// OBSOLETE      down the partial_symtab_list filling in previous texthighs that
-// OBSOLETE      are still unknown.  */
-// OBSOLETE 
-// OBSOLETE   if (pst->texthigh == 0 && last_function_name)
-// OBSOLETE     {
-// OBSOLETE       char *p;
-// OBSOLETE       int n;
-// OBSOLETE       struct minimal_symbol *minsym;
-// OBSOLETE 
-// OBSOLETE       p = strchr (last_function_name, ':');
-// OBSOLETE       if (p == NULL)
-// OBSOLETE    p = last_function_name;
-// OBSOLETE       n = p - last_function_name;
-// OBSOLETE       p = alloca (n + 1);
-// OBSOLETE       strncpy (p, last_function_name, n);
-// OBSOLETE       p[n] = 0;
-// OBSOLETE 
-// OBSOLETE       minsym = lookup_minimal_symbol (p, NULL, objfile);
-// OBSOLETE 
-// OBSOLETE       if (minsym)
-// OBSOLETE    {
-// OBSOLETE      pst->texthigh = SYMBOL_VALUE_ADDRESS (minsym) + (long) MSYMBOL_INFO (minsym);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      /* This file ends with a static function, and it's
-// OBSOLETE         difficult to imagine how hard it would be to track down
-// OBSOLETE         the elf symbol.  Luckily, most of the time no one will notice,
-// OBSOLETE         since the next file will likely be compiled with -g, so
-// OBSOLETE         the code below will copy the first fuction's start address 
-// OBSOLETE         back to our texthigh variable.  (Also, if this file is the
-// OBSOLETE         last one in a dynamically linked program, texthigh already
-// OBSOLETE         has the right value.)  If the next file isn't compiled
-// OBSOLETE         with -g, then the last function in this file winds up owning
-// OBSOLETE         all of the text space up to the next -g file, or the end (minus
-// OBSOLETE         shared libraries).  This only matters for single stepping,
-// OBSOLETE         and even then it will still work, except that it will single
-// OBSOLETE         step through all of the covered functions, instead of setting
-// OBSOLETE         breakpoints around them as it usualy does.  This makes it
-// OBSOLETE         pretty slow, but at least it doesn't fail.
-// OBSOLETE 
-// OBSOLETE         We can fix this with a fairly big change to bfd, but we need
-// OBSOLETE         to coordinate better with Cygnus if we want to do that.  FIXME.  */
-// OBSOLETE    }
-// OBSOLETE       last_function_name = NULL;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* this test will be true if the last .o file is only data */
-// OBSOLETE   if (pst->textlow == 0)
-// OBSOLETE     pst->textlow = pst->texthigh;
-// OBSOLETE 
-// OBSOLETE   /* If we know our own starting text address, then walk through all other
-// OBSOLETE      psymtabs for this objfile, and if any didn't know their ending text
-// OBSOLETE      address, set it to our starting address.  Take care to not set our
-// OBSOLETE      own ending address to our starting address, nor to set addresses on
-// OBSOLETE      `dependency' files that have both textlow and texthigh zero.  */
-// OBSOLETE   if (pst->textlow)
-// OBSOLETE     {
-// OBSOLETE       ALL_OBJFILE_PSYMTABS (objfile, p1)
-// OBSOLETE       {
-// OBSOLETE    if (p1->texthigh == 0 && p1->textlow != 0 && p1 != pst)
-// OBSOLETE      {
-// OBSOLETE        p1->texthigh = pst->textlow;
-// OBSOLETE        /* if this file has only data, then make textlow match texthigh */
-// OBSOLETE        if (p1->textlow == 0)
-// OBSOLETE          p1->textlow = p1->texthigh;
-// OBSOLETE      }
-// OBSOLETE       }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* End of kludge for patching Solaris textlow and texthigh.  */
-// OBSOLETE 
-// OBSOLETE   pst->n_global_syms =
-// OBSOLETE     objfile->global_psymbols.next - (objfile->global_psymbols.list + pst->globals_offset);
-// OBSOLETE   pst->n_static_syms =
-// OBSOLETE     objfile->static_psymbols.next - (objfile->static_psymbols.list + pst->statics_offset);
-// OBSOLETE 
-// OBSOLETE   pst->number_of_dependencies = number_dependencies;
-// OBSOLETE   if (number_dependencies)
-// OBSOLETE     {
-// OBSOLETE       pst->dependencies = (struct partial_symtab **)
-// OBSOLETE    obstack_alloc (&objfile->psymbol_obstack,
-// OBSOLETE                number_dependencies * sizeof (struct partial_symtab *));
-// OBSOLETE       memcpy (pst->dependencies, dependency_list,
-// OBSOLETE          number_dependencies * sizeof (struct partial_symtab *));
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     pst->dependencies = 0;
-// OBSOLETE 
-// OBSOLETE   for (i = 0; i < num_includes; i++)
-// OBSOLETE     {
-// OBSOLETE       struct partial_symtab *subpst =
-// OBSOLETE       allocate_psymtab (include_list[i], objfile);
-// OBSOLETE 
-// OBSOLETE       subpst->section_offsets = pst->section_offsets;
-// OBSOLETE       subpst->read_symtab_private =
-// OBSOLETE    (char *) obstack_alloc (&objfile->psymbol_obstack,
-// OBSOLETE                            sizeof (struct symloc));
-// OBSOLETE       LDSYMOFF (subpst) =
-// OBSOLETE    LDSYMCNT (subpst) =
-// OBSOLETE    subpst->textlow =
-// OBSOLETE    subpst->texthigh = 0;
-// OBSOLETE 
-// OBSOLETE       /* We could save slight bits of space by only making one of these,
-// OBSOLETE          shared by the entire set of include files.  FIXME-someday.  */
-// OBSOLETE       subpst->dependencies = (struct partial_symtab **)
-// OBSOLETE    obstack_alloc (&objfile->psymbol_obstack,
-// OBSOLETE                   sizeof (struct partial_symtab *));
-// OBSOLETE       subpst->dependencies[0] = pst;
-// OBSOLETE       subpst->number_of_dependencies = 1;
-// OBSOLETE 
-// OBSOLETE       subpst->globals_offset =
-// OBSOLETE    subpst->n_global_syms =
-// OBSOLETE    subpst->statics_offset =
-// OBSOLETE    subpst->n_static_syms = 0;
-// OBSOLETE 
-// OBSOLETE       subpst->readin = 0;
-// OBSOLETE       subpst->symtab = 0;
-// OBSOLETE       subpst->read_symtab = pst->read_symtab;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   sort_pst_symbols (pst);
-// OBSOLETE 
-// OBSOLETE   /* If there is already a psymtab or symtab for a file of this name, 
-// OBSOLETE      remove it.
-// OBSOLETE      (If there is a symtab, more drastic things also happen.)
-// OBSOLETE      This happens in VxWorks.  */
-// OBSOLETE   free_named_symtabs (pst->filename);
-// OBSOLETE 
-// OBSOLETE   if (num_includes == 0
-// OBSOLETE       && number_dependencies == 0
-// OBSOLETE       && pst->n_global_syms == 0
-// OBSOLETE       && pst->n_static_syms == 0)
-// OBSOLETE     {
-// OBSOLETE       /* Throw away this psymtab, it's empty.  We can't deallocate it, since
-// OBSOLETE          it is on the obstack, but we can forget to chain it on the list.  */
-// OBSOLETE       /* Indicate that psymtab was thrown away.  */
-// OBSOLETE 
-// OBSOLETE       discard_psymtab (pst);
-// OBSOLETE 
-// OBSOLETE       pst = (struct partial_symtab *) NULL;
-// OBSOLETE     }
-// OBSOLETE   return pst;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE static void
-// OBSOLETE os9k_psymtab_to_symtab_1 (struct partial_symtab *pst)
-// OBSOLETE {
-// OBSOLETE   struct cleanup *old_chain;
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   if (!pst)
-// OBSOLETE     return;
-// OBSOLETE 
-// OBSOLETE   if (pst->readin)
-// OBSOLETE     {
-// OBSOLETE       fprintf_unfiltered (gdb_stderr, "Psymtab for %s already read in.  Shouldn't happen.\n",
-// OBSOLETE                      pst->filename);
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   /* Read in all partial symtabs on which this one is dependent */
-// OBSOLETE   for (i = 0; i < pst->number_of_dependencies; i++)
-// OBSOLETE     if (!pst->dependencies[i]->readin)
-// OBSOLETE       {
-// OBSOLETE    /* Inform about additional files that need to be read in.  */
-// OBSOLETE    if (info_verbose)
-// OBSOLETE      {
-// OBSOLETE        fputs_filtered (" ", gdb_stdout);
-// OBSOLETE        wrap_here ("");
-// OBSOLETE        fputs_filtered ("and ", gdb_stdout);
-// OBSOLETE        wrap_here ("");
-// OBSOLETE        printf_filtered ("%s...", pst->dependencies[i]->filename);
-// OBSOLETE        wrap_here ("");     /* Flush output */
-// OBSOLETE        gdb_flush (gdb_stdout);
-// OBSOLETE      }
-// OBSOLETE    os9k_psymtab_to_symtab_1 (pst->dependencies[i]);
-// OBSOLETE       }
-// OBSOLETE 
-// OBSOLETE   if (LDSYMCNT (pst))              /* Otherwise it's a dummy */
-// OBSOLETE     {
-// OBSOLETE       /* Init stuff necessary for reading in symbols */
-// OBSOLETE       stabsread_init ();
-// OBSOLETE       buildsym_init ();
-// OBSOLETE       old_chain = make_cleanup (really_free_pendings, 0);
-// OBSOLETE 
-// OBSOLETE       /* Read in this file's symbols */
-// OBSOLETE       os9k_read_ofile_symtab (pst);
-// OBSOLETE       sort_symtab_syms (pst->symtab);
-// OBSOLETE       do_cleanups (old_chain);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   pst->readin = 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Read in all of the symbols for a given psymtab for real.
-// OBSOLETE    Be verbose about it if the user wants that.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE os9k_psymtab_to_symtab (struct partial_symtab *pst)
-// OBSOLETE {
-// OBSOLETE   bfd *sym_bfd;
-// OBSOLETE 
-// OBSOLETE   if (!pst)
-// OBSOLETE     return;
-// OBSOLETE 
-// OBSOLETE   if (pst->readin)
-// OBSOLETE     {
-// OBSOLETE       fprintf_unfiltered (gdb_stderr, "Psymtab for %s already read in.  Shouldn't happen.\n",
-// OBSOLETE                      pst->filename);
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (LDSYMCNT (pst) || pst->number_of_dependencies)
-// OBSOLETE     {
-// OBSOLETE       /* Print the message now, before reading the string table,
-// OBSOLETE          to avoid disconcerting pauses.  */
-// OBSOLETE       if (info_verbose)
-// OBSOLETE    {
-// OBSOLETE      printf_filtered ("Reading in symbols for %s...", pst->filename);
-// OBSOLETE      gdb_flush (gdb_stdout);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       sym_bfd = pst->objfile->obfd;
-// OBSOLETE       os9k_psymtab_to_symtab_1 (pst);
-// OBSOLETE 
-// OBSOLETE       /* Match with global symbols.  This only needs to be done once,
-// OBSOLETE          after all of the symtabs and dependencies have been read in.   */
-// OBSOLETE       scan_file_globals (pst->objfile);
-// OBSOLETE 
-// OBSOLETE       /* Finish up the debug error message.  */
-// OBSOLETE       if (info_verbose)
-// OBSOLETE    printf_filtered ("done.\n");
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Read in a defined section of a specific object file's symbols. */
-// OBSOLETE static void
-// OBSOLETE os9k_read_ofile_symtab (struct partial_symtab *pst)
-// OBSOLETE {
-// OBSOLETE   register struct internal_symstruct *bufp;
-// OBSOLETE   unsigned char type;
-// OBSOLETE   unsigned max_symnum;
-// OBSOLETE   register bfd *abfd;
-// OBSOLETE   struct objfile *objfile;
-// OBSOLETE   int sym_offset;          /* Offset to start of symbols to read */
-// OBSOLETE   CORE_ADDR text_offset;   /* Start of text segment for symbols */
-// OBSOLETE   int text_size;           /* Size of text segment for symbols */
-// OBSOLETE   FILE *dbg_file;
-// OBSOLETE 
-// OBSOLETE   objfile = pst->objfile;
-// OBSOLETE   sym_offset = LDSYMOFF (pst);
-// OBSOLETE   max_symnum = LDSYMCNT (pst);
-// OBSOLETE   text_offset = pst->textlow;
-// OBSOLETE   text_size = pst->texthigh - pst->textlow;
-// OBSOLETE 
-// OBSOLETE   current_objfile = objfile;
-// OBSOLETE   subfile_stack = NULL;
-// OBSOLETE   last_source_file = NULL;
-// OBSOLETE 
-// OBSOLETE   abfd = objfile->obfd;
-// OBSOLETE   dbg_file = objfile->auxf2;
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE   /* It is necessary to actually read one symbol *before* the start
-// OBSOLETE      of this symtab's symbols, because the GCC_COMPILED_FLAG_SYMBOL
-// OBSOLETE      occurs before the N_SO symbol.
-// OBSOLETE      Detecting this in read_dbx_symtab
-// OBSOLETE      would slow down initial readin, so we look for it here instead. */
-// OBSOLETE   if (!processing_acc_compilation && sym_offset >= (int) symbol_size)
-// OBSOLETE     {
-// OBSOLETE       fseek (objefile->auxf2, sym_offset, SEEK_CUR);
-// OBSOLETE       fill_sym (objfile->auxf2, abfd);
-// OBSOLETE       bufp = symbuf;
-// OBSOLETE 
-// OBSOLETE       processing_gcc_compilation = 0;
-// OBSOLETE       if (bufp->n_type == N_TEXT)
-// OBSOLETE    {
-// OBSOLETE      if (STREQ (namestring, GCC_COMPILED_FLAG_SYMBOL))
-// OBSOLETE        processing_gcc_compilation = 1;
-// OBSOLETE      else if (STREQ (namestring, GCC2_COMPILED_FLAG_SYMBOL))
-// OBSOLETE        processing_gcc_compilation = 2;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       /* Try to select a C++ demangling based on the compilation unit
-// OBSOLETE          producer. */
-// OBSOLETE 
-// OBSOLETE       if (processing_gcc_compilation)
-// OBSOLETE    {
-// OBSOLETE      if (AUTO_DEMANGLING)
-// OBSOLETE        {
-// OBSOLETE          set_demangling_style (GNU_DEMANGLING_STYLE_STRING);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       /* The N_SO starting this symtab is the first symbol, so we
-// OBSOLETE          better not check the symbol before it.  I'm not this can
-// OBSOLETE          happen, but it doesn't hurt to check for it.  */
-// OBSOLETE       bfd_seek (symfile_bfd, sym_offset, SEEK_CUR);
-// OBSOLETE       processing_gcc_compilation = 0;
-// OBSOLETE     }
-// OBSOLETE #endif /* 0 */
-// OBSOLETE 
-// OBSOLETE   fseek (dbg_file, (long) sym_offset, 0);
-// OBSOLETE /*
-// OBSOLETE    if (bufp->n_type != (unsigned char)N_SYM_SYM)
-// OBSOLETE    error("First symbol in segment of executable not a source symbol");
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE   for (symnum = 0; symnum < max_symnum; symnum++)
-// OBSOLETE     {
-// OBSOLETE       QUIT;                        /* Allow this to be interruptable */
-// OBSOLETE       fill_sym (dbg_file, abfd);
-// OBSOLETE       bufp = symbuf;
-// OBSOLETE       type = bufp->n_type;
-// OBSOLETE 
-// OBSOLETE       os9k_process_one_symbol ((int) type, (int) bufp->n_desc,
-// OBSOLETE     (CORE_ADDR) bufp->n_value, bufp->n_strx, pst->section_offsets, objfile);
-// OBSOLETE 
-// OBSOLETE       /* We skip checking for a new .o or -l file; that should never
-// OBSOLETE          happen in this routine. */
-// OBSOLETE #if 0
-// OBSOLETE       else
-// OBSOLETE       if (type == N_TEXT)
-// OBSOLETE    {
-// OBSOLETE      /* I don't think this code will ever be executed, because
-// OBSOLETE         the GCC_COMPILED_FLAG_SYMBOL usually is right before
-// OBSOLETE         the N_SO symbol which starts this source file.
-// OBSOLETE         However, there is no reason not to accept
-// OBSOLETE         the GCC_COMPILED_FLAG_SYMBOL anywhere.  */
-// OBSOLETE 
-// OBSOLETE      if (STREQ (namestring, GCC_COMPILED_FLAG_SYMBOL))
-// OBSOLETE        processing_gcc_compilation = 1;
-// OBSOLETE      else if (STREQ (namestring, GCC2_COMPILED_FLAG_SYMBOL))
-// OBSOLETE        processing_gcc_compilation = 2;
-// OBSOLETE 
-// OBSOLETE      if (AUTO_DEMANGLING)
-// OBSOLETE        {
-// OBSOLETE          set_demangling_style (GNU_DEMANGLING_STYLE_STRING);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else if (type & N_EXT || type == (unsigned char) N_TEXT
-// OBSOLETE           || type == (unsigned char) N_NBTEXT
-// OBSOLETE    )
-// OBSOLETE    {
-// OBSOLETE      /* Global symbol: see if we came across a dbx defintion for
-// OBSOLETE         a corresponding symbol.  If so, store the value.  Remove
-// OBSOLETE         syms from the chain when their values are stored, but
-// OBSOLETE         search the whole chain, as there may be several syms from
-// OBSOLETE         different files with the same name. */
-// OBSOLETE      /* This is probably not true.  Since the files will be read
-// OBSOLETE         in one at a time, each reference to a global symbol will
-// OBSOLETE         be satisfied in each file as it appears. So we skip this
-// OBSOLETE         section. */
-// OBSOLETE      ;
-// OBSOLETE    }
-// OBSOLETE #endif /* 0 */
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   current_objfile = NULL;
-// OBSOLETE 
-// OBSOLETE   /* In a Solaris elf file, this variable, which comes from the
-// OBSOLETE      value of the N_SO symbol, will still be 0.  Luckily, text_offset,
-// OBSOLETE      which comes from pst->textlow is correct. */
-// OBSOLETE   if (last_source_start_addr == 0)
-// OBSOLETE     last_source_start_addr = text_offset;
-// OBSOLETE   pst->symtab = end_symtab (text_offset + text_size, objfile, SECT_OFF_TEXT (objfile));
-// OBSOLETE   end_stabs ();
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE 
-// OBSOLETE /* This handles a single symbol from the symbol-file, building symbols
-// OBSOLETE    into a GDB symtab.  It takes these arguments and an implicit argument.
-// OBSOLETE 
-// OBSOLETE    TYPE is the type field of the ".stab" symbol entry.
-// OBSOLETE    DESC is the desc field of the ".stab" entry.
-// OBSOLETE    VALU is the value field of the ".stab" entry.
-// OBSOLETE    NAME is the symbol name, in our address space.
-// OBSOLETE    SECTION_OFFSETS is a set of amounts by which the sections of this object
-// OBSOLETE    file were relocated when it was loaded into memory.
-// OBSOLETE    All symbols that refer
-// OBSOLETE    to memory locations need to be offset by these amounts.
-// OBSOLETE    OBJFILE is the object file from which we are reading symbols.
-// OBSOLETE    It is used in end_symtab.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE os9k_process_one_symbol (int type, int desc, CORE_ADDR valu, char *name,
-// OBSOLETE                     struct section_offsets *section_offsets,
-// OBSOLETE                     struct objfile *objfile)
-// OBSOLETE {
-// OBSOLETE   register struct context_stack *new;
-// OBSOLETE   /* The stab type used for the definition of the last function.
-// OBSOLETE      N_STSYM or N_GSYM for SunOS4 acc; N_FUN for other compilers.  */
-// OBSOLETE   static int function_stab_type = 0;
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE   /* Something is wrong if we see real data before
-// OBSOLETE      seeing a source file name.  */
-// OBSOLETE   if (last_source_file == NULL && type != (unsigned char) N_SO)
-// OBSOLETE     {
-// OBSOLETE       /* Ignore any symbols which appear before an N_SO symbol.
-// OBSOLETE          Currently no one puts symbols there, but we should deal
-// OBSOLETE          gracefully with the case.  A complain()t might be in order,
-// OBSOLETE          but this should not be an error ().  */
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE #endif /* 0 */
-// OBSOLETE 
-// OBSOLETE   switch (type)
-// OBSOLETE     {
-// OBSOLETE     case N_SYM_LBRAC:
-// OBSOLETE       /* On most machines, the block addresses are relative to the
-// OBSOLETE          N_SO, the linker did not relocate them (sigh).  */
-// OBSOLETE       valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE       new = push_context (desc, valu);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case N_SYM_RBRAC:
-// OBSOLETE       valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE       new = pop_context ();
-// OBSOLETE 
-// OBSOLETE #if !defined (OS9K_VARIABLES_INSIDE_BLOCK)
-// OBSOLETE #define OS9K_VARIABLES_INSIDE_BLOCK(desc, gcc_p) 1
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE       if (!OS9K_VARIABLES_INSIDE_BLOCK (desc, processing_gcc_compilation))
-// OBSOLETE    local_symbols = new->locals;
-// OBSOLETE 
-// OBSOLETE       if (context_stack_depth > 1)
-// OBSOLETE    {
-// OBSOLETE      /* This is not the outermost LBRAC...RBRAC pair in the function,
-// OBSOLETE         its local symbols preceded it, and are the ones just recovered
-// OBSOLETE         from the context stack.  Define the block for them (but don't
-// OBSOLETE         bother if the block contains no symbols.  Should we complain
-// OBSOLETE         on blocks without symbols?  I can't think of any useful purpose
-// OBSOLETE         for them).  */
-// OBSOLETE      if (local_symbols != NULL)
-// OBSOLETE        {
-// OBSOLETE          /* Muzzle a compiler bug that makes end < start.  (which
-// OBSOLETE             compilers?  Is this ever harmful?).  */
-// OBSOLETE          if (new->start_addr > valu)
-// OBSOLETE            {
-// OBSOLETE              complain (&lbrac_rbrac_complaint);
-// OBSOLETE              new->start_addr = valu;
-// OBSOLETE            }
-// OBSOLETE          /* Make a block for the local symbols within.  */
-// OBSOLETE          finish_block (0, &local_symbols, new->old_blocks,
-// OBSOLETE                        new->start_addr, valu, objfile);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      if (context_stack_depth == 0)
-// OBSOLETE        {
-// OBSOLETE          within_function = 0;
-// OBSOLETE          /* Make a block for the local symbols within.  */
-// OBSOLETE          finish_block (new->name, &local_symbols, new->old_blocks,
-// OBSOLETE                        new->start_addr, valu, objfile);
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          /* attach local_symbols to the end of new->locals */
-// OBSOLETE          if (!new->locals)
-// OBSOLETE            new->locals = local_symbols;
-// OBSOLETE          else
-// OBSOLETE            {
-// OBSOLETE              struct pending *p;
-// OBSOLETE 
-// OBSOLETE              p = new->locals;
-// OBSOLETE              while (p->next)
-// OBSOLETE                p = p->next;
-// OBSOLETE              p->next = local_symbols;
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       if (OS9K_VARIABLES_INSIDE_BLOCK (desc, processing_gcc_compilation))
-// OBSOLETE    /* Now pop locals of block just finished.  */
-// OBSOLETE    local_symbols = new->locals;
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE     case N_SYM_SLINE:
-// OBSOLETE       /* This type of "symbol" really just records
-// OBSOLETE          one line-number -- core-address correspondence.
-// OBSOLETE          Enter it in the line list for this symbol table. */
-// OBSOLETE       /* Relocate for dynamic loading and for ELF acc fn-relative syms.  */
-// OBSOLETE       valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE       /* FIXME: loses if sizeof (char *) > sizeof (int) */
-// OBSOLETE       gdb_assert (sizeof (name) <= sizeof (int));
-// OBSOLETE       record_line (current_subfile, (int) name, valu);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE       /* The following symbol types need to have the appropriate offset added
-// OBSOLETE          to their value; then we process symbol definitions in the name.  */
-// OBSOLETE     case N_SYM_SYM:
-// OBSOLETE 
-// OBSOLETE       if (name)
-// OBSOLETE    {
-// OBSOLETE      char deftype;
-// OBSOLETE      char *dirn, *n;
-// OBSOLETE      char *p = strchr (name, ':');
-// OBSOLETE      if (p == NULL)
-// OBSOLETE        deftype = '\0';
-// OBSOLETE      else
-// OBSOLETE        deftype = p[1];
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE      switch (deftype)
-// OBSOLETE        {
-// OBSOLETE        case 'S':
-// OBSOLETE          valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE          n = strrchr (name, '/');
-// OBSOLETE          if (n != NULL)
-// OBSOLETE            {
-// OBSOLETE              *n = '\0';
-// OBSOLETE              n++;
-// OBSOLETE              dirn = name;
-// OBSOLETE            }
-// OBSOLETE          else
-// OBSOLETE            {
-// OBSOLETE              n = name;
-// OBSOLETE              dirn = NULL;
-// OBSOLETE            }
-// OBSOLETE          *p = '\0';
-// OBSOLETE          if (symfile_depth++ == 0)
-// OBSOLETE            {
-// OBSOLETE              if (last_source_file)
-// OBSOLETE                {
-// OBSOLETE                  end_symtab (valu, objfile, SECT_OFF_TEXT (objfile));
-// OBSOLETE                  end_stabs ();
-// OBSOLETE                }
-// OBSOLETE              start_stabs ();
-// OBSOLETE              os9k_stabs = 1;
-// OBSOLETE              start_symtab (n, dirn, valu);
-// OBSOLETE              record_debugformat ("OS9");
-// OBSOLETE            }
-// OBSOLETE          else
-// OBSOLETE            {
-// OBSOLETE              push_subfile ();
-// OBSOLETE              start_subfile (n, dirn != NULL ? dirn : current_subfile->dirname);
-// OBSOLETE            }
-// OBSOLETE          break;
-// OBSOLETE 
-// OBSOLETE        case 'f':
-// OBSOLETE        case 'F':
-// OBSOLETE          valu += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
-// OBSOLETE          function_stab_type = type;
-// OBSOLETE 
-// OBSOLETE          within_function = 1;
-// OBSOLETE          new = push_context (0, valu);
-// OBSOLETE          new->name = define_symbol (valu, name, desc, type, objfile);
-// OBSOLETE          break;
-// OBSOLETE 
-// OBSOLETE        case 'V':
-// OBSOLETE        case 'v':
-// OBSOLETE          valu += ANOFFSET (section_offsets, SECT_OFF_DATA (objfile));
-// OBSOLETE          define_symbol (valu, name, desc, type, objfile);
-// OBSOLETE          break;
-// OBSOLETE 
-// OBSOLETE        default:
-// OBSOLETE          define_symbol (valu, name, desc, type, objfile);
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case N_SYM_SE:
-// OBSOLETE       if (--symfile_depth != 0)
-// OBSOLETE    start_subfile (pop_subfile (), current_subfile->dirname);
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     default:
-// OBSOLETE       complain (&unknown_symtype_complaint,
-// OBSOLETE            local_hex_string ((unsigned long) type));
-// OBSOLETE       /* FALLTHROUGH */
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case N_SYM_CMPLR:
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE   previous_stab_code = type;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct sym_fns os9k_sym_fns =
-// OBSOLETE {
-// OBSOLETE   bfd_target_os9k_flavour,
-// OBSOLETE   os9k_new_init,           /* sym_new_init: init anything gbl to entire symtab */
-// OBSOLETE   os9k_symfile_init,               /* sym_init: read initial info, setup for sym_read() */
-// OBSOLETE   os9k_symfile_read,               /* sym_read: read a symbol file into symtab */
-// OBSOLETE   os9k_symfile_finish,             /* sym_finish: finished with file, cleanup */
-// OBSOLETE   default_symfile_offsets, /* sym_offsets: parse user's offsets to internal form */
-// OBSOLETE   NULL                             /* next: pointer to next struct sym_fns */
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_os9kread (void)
-// OBSOLETE {
-// OBSOLETE   add_symtab_fns (&os9k_sym_fns);
-// OBSOLETE }
diff --git a/gdb/remote-bug.c b/gdb/remote-bug.c
deleted file mode 100644 (file)
index a6ffb8e..0000000
+++ /dev/null
@@ -1,1027 +0,0 @@
-// OBSOLETE /* Remote debugging interface for Motorola's MVME187BUG monitor, an embedded
-// OBSOLETE    monitor for the m88k.
-// OBSOLETE 
-// OBSOLETE    Copyright 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-// OBSOLETE    2002 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    Contributed by Cygnus Support.  Written by K. Richard Pixley.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE #include <ctype.h>
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE #include <setjmp.h>
-// OBSOLETE #include <errno.h>
-// OBSOLETE 
-// OBSOLETE #include "terminal.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "gdbcmd.h"
-// OBSOLETE 
-// OBSOLETE #include "serial.h"
-// OBSOLETE #include "remote-utils.h"
-// OBSOLETE 
-// OBSOLETE /* External data declarations */
-// OBSOLETE extern int stop_soon_quietly;      /* for wait_for_inferior */
-// OBSOLETE 
-// OBSOLETE /* Forward data declarations */
-// OBSOLETE extern struct target_ops bug_ops;  /* Forward declaration */
-// OBSOLETE 
-// OBSOLETE /* Forward function declarations */
-// OBSOLETE static int bug_clear_breakpoints (void);
-// OBSOLETE 
-// OBSOLETE static int bug_read_memory (CORE_ADDR memaddr,
-// OBSOLETE                        unsigned char *myaddr, int len);
-// OBSOLETE 
-// OBSOLETE static int bug_write_memory (CORE_ADDR memaddr,
-// OBSOLETE                         unsigned char *myaddr, int len);
-// OBSOLETE 
-// OBSOLETE /* This variable is somewhat arbitrary.  It's here so that it can be
-// OBSOLETE    set from within a running gdb.  */
-// OBSOLETE 
-// OBSOLETE static int srec_max_retries = 3;
-// OBSOLETE 
-// OBSOLETE /* Each S-record download to the target consists of an S0 header
-// OBSOLETE    record, some number of S3 data records, and one S7 termination
-// OBSOLETE    record.  I call this download a "frame".  Srec_frame says how many
-// OBSOLETE    bytes will be represented in each frame.  */
-// OBSOLETE 
-// OBSOLETE #define SREC_SIZE 160
-// OBSOLETE static int srec_frame = SREC_SIZE;
-// OBSOLETE 
-// OBSOLETE /* This variable determines how many bytes will be represented in each
-// OBSOLETE    S3 s-record.  */
-// OBSOLETE 
-// OBSOLETE static int srec_bytes = 40;
-// OBSOLETE 
-// OBSOLETE /* At one point it appeared to me as though the bug monitor could not
-// OBSOLETE    really be expected to receive two sequential characters at 9600
-// OBSOLETE    baud reliably.  Echo-pacing is an attempt to force data across the
-// OBSOLETE    line even in this condition.  Specifically, in echo-pace mode, each
-// OBSOLETE    character is sent one at a time and we look for the echo before
-// OBSOLETE    sending the next.  This is excruciatingly slow.  */
-// OBSOLETE 
-// OBSOLETE static int srec_echo_pace = 0;
-// OBSOLETE 
-// OBSOLETE /* How long to wait after an srec for a possible error message.
-// OBSOLETE    Similar to the above, I tried sleeping after sending each S3 record
-// OBSOLETE    in hopes that I might actually see error messages from the bug
-// OBSOLETE    monitor.  This might actually work if we were to use sleep
-// OBSOLETE    intervals smaller than 1 second.  */
-// OBSOLETE 
-// OBSOLETE static int srec_sleep = 0;
-// OBSOLETE 
-// OBSOLETE /* Every srec_noise records, flub the checksum.  This is a debugging
-// OBSOLETE    feature.  Set the variable to something other than 1 in order to
-// OBSOLETE    inject *deliberate* checksum errors.  One might do this if one
-// OBSOLETE    wanted to test error handling and recovery.  */
-// OBSOLETE 
-// OBSOLETE static int srec_noise = 0;
-// OBSOLETE 
-// OBSOLETE /* Called when SIGALRM signal sent due to alarm() timeout.  */
-// OBSOLETE 
-// OBSOLETE /* Number of SIGTRAPs we need to simulate.  That is, the next
-// OBSOLETE    NEED_ARTIFICIAL_TRAP calls to bug_wait should just return
-// OBSOLETE    SIGTRAP without actually waiting for anything.  */
-// OBSOLETE 
-// OBSOLETE static int need_artificial_trap = 0;
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Download a file specified in 'args', to the bug.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE bug_load (char *args, int fromtty)
-// OBSOLETE {
-// OBSOLETE   bfd *abfd;
-// OBSOLETE   asection *s;
-// OBSOLETE   char buffer[1024];
-// OBSOLETE 
-// OBSOLETE   sr_check_open ();
-// OBSOLETE 
-// OBSOLETE   inferior_ptid = null_ptid;
-// OBSOLETE   abfd = bfd_openr (args, 0);
-// OBSOLETE   if (!abfd)
-// OBSOLETE     {
-// OBSOLETE       printf_filtered ("Unable to open file %s\n", args);
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (bfd_check_format (abfd, bfd_object) == 0)
-// OBSOLETE     {
-// OBSOLETE       printf_filtered ("File is not an object file\n");
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   s = abfd->sections;
-// OBSOLETE   while (s != (asection *) NULL)
-// OBSOLETE     {
-// OBSOLETE       srec_frame = SREC_SIZE;
-// OBSOLETE       if (s->flags & SEC_LOAD)
-// OBSOLETE    {
-// OBSOLETE      int i;
-// OBSOLETE 
-// OBSOLETE      char *buffer = xmalloc (srec_frame);
-// OBSOLETE 
-// OBSOLETE      printf_filtered ("%s\t: 0x%4lx .. 0x%4lx  ", s->name, s->vma, s->vma + s->_raw_size);
-// OBSOLETE      gdb_flush (gdb_stdout);
-// OBSOLETE      for (i = 0; i < s->_raw_size; i += srec_frame)
-// OBSOLETE        {
-// OBSOLETE          if (srec_frame > s->_raw_size - i)
-// OBSOLETE            srec_frame = s->_raw_size - i;
-// OBSOLETE 
-// OBSOLETE          bfd_get_section_contents (abfd, s, buffer, i, srec_frame);
-// OBSOLETE          bug_write_memory (s->vma + i, buffer, srec_frame);
-// OBSOLETE          printf_filtered ("*");
-// OBSOLETE          gdb_flush (gdb_stdout);
-// OBSOLETE        }
-// OBSOLETE      printf_filtered ("\n");
-// OBSOLETE      xfree (buffer);
-// OBSOLETE    }
-// OBSOLETE       s = s->next;
-// OBSOLETE     }
-// OBSOLETE   sprintf (buffer, "rs ip %lx", (unsigned long) abfd->start_address);
-// OBSOLETE   sr_write_cr (buffer);
-// OBSOLETE   gr_expect_prompt ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE static char *
-// OBSOLETE get_word (char **p)
-// OBSOLETE {
-// OBSOLETE   char *s = *p;
-// OBSOLETE   char *word;
-// OBSOLETE   char *copy;
-// OBSOLETE   size_t len;
-// OBSOLETE 
-// OBSOLETE   while (isspace (*s))
-// OBSOLETE     s++;
-// OBSOLETE 
-// OBSOLETE   word = s;
-// OBSOLETE 
-// OBSOLETE   len = 0;
-// OBSOLETE 
-// OBSOLETE   while (*s && !isspace (*s))
-// OBSOLETE     {
-// OBSOLETE       s++;
-// OBSOLETE       len++;
-// OBSOLETE 
-// OBSOLETE     }
-// OBSOLETE   copy = xmalloc (len + 1);
-// OBSOLETE   memcpy (copy, word, len);
-// OBSOLETE   copy[len] = 0;
-// OBSOLETE   *p = s;
-// OBSOLETE   return copy;
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE static struct gr_settings bug_settings =
-// OBSOLETE {
-// OBSOLETE   "Bug>",                  /* prompt */
-// OBSOLETE   &bug_ops,                        /* ops */
-// OBSOLETE   bug_clear_breakpoints,   /* clear_all_breakpoints */
-// OBSOLETE   gr_generic_checkin,              /* checkin */
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static char *cpu_check_strings[] =
-// OBSOLETE {
-// OBSOLETE   "=",
-// OBSOLETE   "Invalid Register",
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE bug_open (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE   if (args == NULL)
-// OBSOLETE     args = "";
-// OBSOLETE 
-// OBSOLETE   gr_open (args, from_tty, &bug_settings);
-// OBSOLETE   /* decide *now* whether we are on an 88100 or an 88110 */
-// OBSOLETE   sr_write_cr ("rs cr06");
-// OBSOLETE   sr_expect ("rs cr06");
-// OBSOLETE 
-// OBSOLETE   switch (gr_multi_scan (cpu_check_strings, 0))
-// OBSOLETE     {
-// OBSOLETE     case 0:                        /* this is an m88100 */
-// OBSOLETE       target_is_m88110 = 0;
-// OBSOLETE       break;
-// OBSOLETE     case 1:                        /* this is an m88110 */
-// OBSOLETE       target_is_m88110 = 1;
-// OBSOLETE       break;
-// OBSOLETE     default:
-// OBSOLETE       internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Tell the remote machine to resume.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE bug_resume (ptid_t ptid, int step, enum target_signal sig)
-// OBSOLETE {
-// OBSOLETE   if (step)
-// OBSOLETE     {
-// OBSOLETE       sr_write_cr ("t");
-// OBSOLETE 
-// OBSOLETE       /* Force the next bug_wait to return a trap.  Not doing anything
-// OBSOLETE          about I/O from the target means that the user has to type
-// OBSOLETE          "continue" to see any.  FIXME, this should be fixed.  */
-// OBSOLETE       need_artificial_trap = 1;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     sr_write_cr ("g");
-// OBSOLETE 
-// OBSOLETE   return;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Wait until the remote machine stops, then return,
-// OBSOLETE    storing status in STATUS just as `wait' would.  */
-// OBSOLETE 
-// OBSOLETE static char *wait_strings[] =
-// OBSOLETE {
-// OBSOLETE   "At Breakpoint",
-// OBSOLETE   "Exception: Data Access Fault (Local Bus Timeout)",
-// OBSOLETE   "\r8??\?-Bug>",          /* The '\?' avoids creating a trigraph */
-// OBSOLETE   "\r197-Bug>",
-// OBSOLETE   NULL,
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE ptid_t
-// OBSOLETE bug_wait (ptid_t ptid, struct target_waitstatus *status)
-// OBSOLETE {
-// OBSOLETE   int old_timeout = sr_get_timeout ();
-// OBSOLETE   int old_immediate_quit = immediate_quit;
-// OBSOLETE 
-// OBSOLETE   status->kind = TARGET_WAITKIND_EXITED;
-// OBSOLETE   status->value.integer = 0;
-// OBSOLETE 
-// OBSOLETE   /* read off leftovers from resume so that the rest can be passed
-// OBSOLETE      back out as stdout.  */
-// OBSOLETE   if (need_artificial_trap == 0)
-// OBSOLETE     {
-// OBSOLETE       sr_expect ("Effective address: ");
-// OBSOLETE       (void) sr_get_hex_word ();
-// OBSOLETE       sr_expect ("\r\n");
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   sr_set_timeout (-1);             /* Don't time out -- user program is running. */
-// OBSOLETE   immediate_quit = 1;              /* Helps ability to QUIT */
-// OBSOLETE 
-// OBSOLETE   switch (gr_multi_scan (wait_strings, need_artificial_trap == 0))
-// OBSOLETE     {
-// OBSOLETE     case 0:                        /* breakpoint case */
-// OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED;
-// OBSOLETE       status->value.sig = TARGET_SIGNAL_TRAP;
-// OBSOLETE       /* user output from the target can be discarded here. (?) */
-// OBSOLETE       gr_expect_prompt ();
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case 1:                        /* bus error */
-// OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED;
-// OBSOLETE       status->value.sig = TARGET_SIGNAL_BUS;
-// OBSOLETE       /* user output from the target can be discarded here. (?) */
-// OBSOLETE       gr_expect_prompt ();
-// OBSOLETE       break;
-// OBSOLETE 
-// OBSOLETE     case 2:                        /* normal case */
-// OBSOLETE     case 3:
-// OBSOLETE       if (need_artificial_trap != 0)
-// OBSOLETE    {
-// OBSOLETE      /* stepping */
-// OBSOLETE      status->kind = TARGET_WAITKIND_STOPPED;
-// OBSOLETE      status->value.sig = TARGET_SIGNAL_TRAP;
-// OBSOLETE      need_artificial_trap--;
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      /* exit case */
-// OBSOLETE      status->kind = TARGET_WAITKIND_EXITED;
-// OBSOLETE      status->value.integer = 0;
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE     case -1:                       /* trouble */
-// OBSOLETE     default:
-// OBSOLETE       fprintf_filtered (gdb_stderr,
-// OBSOLETE                    "Trouble reading target during wait\n");
-// OBSOLETE       break;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   sr_set_timeout (old_timeout);
-// OBSOLETE   immediate_quit = old_immediate_quit;
-// OBSOLETE   return inferior_ptid;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return the name of register number REGNO
-// OBSOLETE    in the form input and output by bug.
-// OBSOLETE 
-// OBSOLETE    Returns a pointer to a static buffer containing the answer.  */
-// OBSOLETE static char *
-// OBSOLETE get_reg_name (int regno)
-// OBSOLETE {
-// OBSOLETE   static char *rn[] =
-// OBSOLETE   {
-// OBSOLETE     "r00", "r01", "r02", "r03", "r04", "r05", "r06", "r07",
-// OBSOLETE     "r08", "r09", "r10", "r11", "r12", "r13", "r14", "r15",
-// OBSOLETE     "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23",
-// OBSOLETE     "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31",
-// OBSOLETE 
-// OBSOLETE   /* these get confusing because we omit a few and switch some ordering around. */
-// OBSOLETE 
-// OBSOLETE     "cr01",                        /* 32 = psr */
-// OBSOLETE     "fcr62",                       /* 33 = fpsr */
-// OBSOLETE     "fcr63",                       /* 34 = fpcr */
-// OBSOLETE     "ip",                  /* this is something of a cheat. */
-// OBSOLETE   /* 35 = sxip */
-// OBSOLETE     "cr05",                        /* 36 = snip */
-// OBSOLETE     "cr06",                        /* 37 = sfip */
-// OBSOLETE 
-// OBSOLETE     "x00", "x01", "x02", "x03", "x04", "x05", "x06", "x07",
-// OBSOLETE     "x08", "x09", "x10", "x11", "x12", "x13", "x14", "x15",
-// OBSOLETE     "x16", "x17", "x18", "x19", "x20", "x21", "x22", "x23",
-// OBSOLETE     "x24", "x25", "x26", "x27", "x28", "x29", "x30", "x31",
-// OBSOLETE   };
-// OBSOLETE 
-// OBSOLETE   return rn[regno];
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #if 0                              /* not currently used */
-// OBSOLETE /* Read from remote while the input matches STRING.  Return zero on
-// OBSOLETE    success, -1 on failure.  */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE bug_scan (char *s)
-// OBSOLETE {
-// OBSOLETE   int c;
-// OBSOLETE 
-// OBSOLETE   while (*s)
-// OBSOLETE     {
-// OBSOLETE       c = sr_readchar ();
-// OBSOLETE       if (c != *s++)
-// OBSOLETE    {
-// OBSOLETE      fflush (stdout);
-// OBSOLETE      printf ("\nNext character is '%c' - %d and s is \"%s\".\n", c, c, --s);
-// OBSOLETE      return (-1);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE #endif /* never */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE bug_srec_write_cr (char *s)
-// OBSOLETE {
-// OBSOLETE   char *p = s;
-// OBSOLETE 
-// OBSOLETE   if (srec_echo_pace)
-// OBSOLETE     for (p = s; *p; ++p)
-// OBSOLETE       {
-// OBSOLETE    if (sr_get_debug () > 0)
-// OBSOLETE      printf ("%c", *p);
-// OBSOLETE 
-// OBSOLETE    do
-// OBSOLETE      serial_write (sr_get_desc (), p, 1);
-// OBSOLETE    while (sr_pollchar () != *p);
-// OBSOLETE       }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       sr_write_cr (s);
-// OBSOLETE /*       return(bug_scan (s) || bug_scan ("\n")); */
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store register REGNO, or all if REGNO == -1. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE bug_fetch_register (int regno)
-// OBSOLETE {
-// OBSOLETE   sr_check_open ();
-// OBSOLETE 
-// OBSOLETE   if (regno == -1)
-// OBSOLETE     {
-// OBSOLETE       int i;
-// OBSOLETE 
-// OBSOLETE       for (i = 0; i < NUM_REGS; ++i)
-// OBSOLETE    bug_fetch_register (i);
-// OBSOLETE     }
-// OBSOLETE   else if (target_is_m88110 && regno == SFIP_REGNUM)
-// OBSOLETE     {
-// OBSOLETE       /* m88110 has no sfip. */
-// OBSOLETE       long l = 0;
-// OBSOLETE       supply_register (regno, (char *) &l);
-// OBSOLETE     }
-// OBSOLETE   else if (regno < XFP_REGNUM)
-// OBSOLETE     {
-// OBSOLETE       char buffer[MAX_REGISTER_RAW_SIZE];
-// OBSOLETE 
-// OBSOLETE       sr_write ("rs ", 3);
-// OBSOLETE       sr_write_cr (get_reg_name (regno));
-// OBSOLETE       sr_expect ("=");
-// OBSOLETE       store_unsigned_integer (buffer, REGISTER_RAW_SIZE (regno),
-// OBSOLETE                          sr_get_hex_word ());
-// OBSOLETE       gr_expect_prompt ();
-// OBSOLETE       supply_register (regno, buffer);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       /* Float register so we need to parse a strange data format. */
-// OBSOLETE       long p;
-// OBSOLETE       unsigned char fpreg_buf[10];
-// OBSOLETE 
-// OBSOLETE       sr_write ("rs ", 3);
-// OBSOLETE       sr_write (get_reg_name (regno), strlen (get_reg_name (regno)));
-// OBSOLETE       sr_write_cr (";d");
-// OBSOLETE       sr_expect ("rs");
-// OBSOLETE       sr_expect (get_reg_name (regno));
-// OBSOLETE       sr_expect (";d");
-// OBSOLETE       sr_expect ("=");
-// OBSOLETE 
-// OBSOLETE       /* sign */
-// OBSOLETE       p = sr_get_hex_digit (1);
-// OBSOLETE       fpreg_buf[0] = p << 7;
-// OBSOLETE 
-// OBSOLETE       /* exponent */
-// OBSOLETE       sr_expect ("_");
-// OBSOLETE       p = sr_get_hex_digit (1);
-// OBSOLETE       fpreg_buf[0] += (p << 4);
-// OBSOLETE       fpreg_buf[0] += sr_get_hex_digit (1);
-// OBSOLETE 
-// OBSOLETE       fpreg_buf[1] = sr_get_hex_digit (1) << 4;
-// OBSOLETE 
-// OBSOLETE       /* fraction */
-// OBSOLETE       sr_expect ("_");
-// OBSOLETE       fpreg_buf[1] += sr_get_hex_digit (1);
-// OBSOLETE 
-// OBSOLETE       fpreg_buf[2] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-// OBSOLETE       fpreg_buf[3] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-// OBSOLETE       fpreg_buf[4] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-// OBSOLETE       fpreg_buf[5] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-// OBSOLETE       fpreg_buf[6] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-// OBSOLETE       fpreg_buf[7] = (sr_get_hex_digit (1) << 4) + sr_get_hex_digit (1);
-// OBSOLETE       fpreg_buf[8] = 0;
-// OBSOLETE       fpreg_buf[9] = 0;
-// OBSOLETE 
-// OBSOLETE       gr_expect_prompt ();
-// OBSOLETE       supply_register (regno, fpreg_buf);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store register REGNO, or all if REGNO == -1. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE bug_store_register (int regno)
-// OBSOLETE {
-// OBSOLETE   char buffer[1024];
-// OBSOLETE   sr_check_open ();
-// OBSOLETE 
-// OBSOLETE   if (regno == -1)
-// OBSOLETE     {
-// OBSOLETE       int i;
-// OBSOLETE 
-// OBSOLETE       for (i = 0; i < NUM_REGS; ++i)
-// OBSOLETE    bug_store_register (i);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       char *regname;
-// OBSOLETE 
-// OBSOLETE       regname = get_reg_name (regno);
-// OBSOLETE 
-// OBSOLETE       if (target_is_m88110 && regno == SFIP_REGNUM)
-// OBSOLETE    return;
-// OBSOLETE       else if (regno < XFP_REGNUM)
-// OBSOLETE    sprintf (buffer, "rs %s %08lx",
-// OBSOLETE             regname,
-// OBSOLETE             (long) read_register (regno));
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      unsigned char *fpreg_buf =
-// OBSOLETE      (unsigned char *) &registers[REGISTER_BYTE (regno)];
-// OBSOLETE 
-// OBSOLETE      sprintf (buffer, "rs %s %1x_%02x%1x_%1x%02x%02x%02x%02x%02x%02x;d",
-// OBSOLETE               regname,
-// OBSOLETE      /* sign */
-// OBSOLETE               (fpreg_buf[0] >> 7) & 0xf,
-// OBSOLETE      /* exponent */
-// OBSOLETE               fpreg_buf[0] & 0x7f,
-// OBSOLETE               (fpreg_buf[1] >> 8) & 0xf,
-// OBSOLETE      /* fraction */
-// OBSOLETE               fpreg_buf[1] & 0xf,
-// OBSOLETE               fpreg_buf[2],
-// OBSOLETE               fpreg_buf[3],
-// OBSOLETE               fpreg_buf[4],
-// OBSOLETE               fpreg_buf[5],
-// OBSOLETE               fpreg_buf[6],
-// OBSOLETE               fpreg_buf[7]);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       sr_write_cr (buffer);
-// OBSOLETE       gr_expect_prompt ();
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Transfer LEN bytes between GDB address MYADDR and target address
-// OBSOLETE    MEMADDR.  If WRITE is non-zero, transfer them to the target,
-// OBSOLETE    otherwise transfer them from the target.  TARGET is unused.
-// OBSOLETE 
-// OBSOLETE    Returns the number of bytes transferred. */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE bug_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int write,
-// OBSOLETE             struct mem_attrib *attrib, struct target_ops *target)
-// OBSOLETE {
-// OBSOLETE   int res;
-// OBSOLETE 
-// OBSOLETE   if (len <= 0)
-// OBSOLETE     return 0;
-// OBSOLETE 
-// OBSOLETE   if (write)
-// OBSOLETE     res = bug_write_memory (memaddr, myaddr, len);
-// OBSOLETE   else
-// OBSOLETE     res = bug_read_memory (memaddr, myaddr, len);
-// OBSOLETE 
-// OBSOLETE   return res;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE start_load (void)
-// OBSOLETE {
-// OBSOLETE   char *command;
-// OBSOLETE 
-// OBSOLETE   command = (srec_echo_pace ? "lo 0 ;x" : "lo 0");
-// OBSOLETE 
-// OBSOLETE   sr_write_cr (command);
-// OBSOLETE   sr_expect (command);
-// OBSOLETE   sr_expect ("\r\n");
-// OBSOLETE   bug_srec_write_cr ("S0030000FC");
-// OBSOLETE   return;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* This is an extremely vulnerable and fragile function.  I've made
-// OBSOLETE    considerable attempts to make this deterministic, but I've
-// OBSOLETE    certainly forgotten something.  The trouble is that S-records are
-// OBSOLETE    only a partial file format, not a protocol.  Worse, apparently the
-// OBSOLETE    m88k bug monitor does not run in real time while receiving
-// OBSOLETE    S-records.  Hence, we must pay excruciating attention to when and
-// OBSOLETE    where error messages are returned, and what has actually been sent.
-// OBSOLETE 
-// OBSOLETE    Each call represents a chunk of memory to be sent to the target.
-// OBSOLETE    We break that chunk into an S0 header record, some number of S3
-// OBSOLETE    data records each containing srec_bytes, and an S7 termination
-// OBSOLETE    record.  */
-// OBSOLETE 
-// OBSOLETE static char *srecord_strings[] =
-// OBSOLETE {
-// OBSOLETE   "S-RECORD",
-// OBSOLETE   "-Bug>",
-// OBSOLETE   NULL,
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE bug_write_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
-// OBSOLETE {
-// OBSOLETE   int done;
-// OBSOLETE   int checksum;
-// OBSOLETE   int x;
-// OBSOLETE   int retries;
-// OBSOLETE   char *buffer = alloca ((srec_bytes + 8) << 1);
-// OBSOLETE 
-// OBSOLETE   retries = 0;
-// OBSOLETE 
-// OBSOLETE   do
-// OBSOLETE     {
-// OBSOLETE       done = 0;
-// OBSOLETE 
-// OBSOLETE       if (retries > srec_max_retries)
-// OBSOLETE    return (-1);
-// OBSOLETE 
-// OBSOLETE       if (retries > 0)
-// OBSOLETE    {
-// OBSOLETE      if (sr_get_debug () > 0)
-// OBSOLETE        printf ("\n<retrying...>\n");
-// OBSOLETE 
-// OBSOLETE      /* This gr_expect_prompt call is extremely important.  Without
-// OBSOLETE         it, we will tend to resend our packet so fast that it
-// OBSOLETE         will arrive before the bug monitor is ready to receive
-// OBSOLETE         it.  This would lead to a very ugly resend loop.  */
-// OBSOLETE 
-// OBSOLETE      gr_expect_prompt ();
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       start_load ();
-// OBSOLETE 
-// OBSOLETE       while (done < len)
-// OBSOLETE    {
-// OBSOLETE      int thisgo;
-// OBSOLETE      int idx;
-// OBSOLETE      char *buf = buffer;
-// OBSOLETE      CORE_ADDR address;
-// OBSOLETE 
-// OBSOLETE      checksum = 0;
-// OBSOLETE      thisgo = len - done;
-// OBSOLETE      if (thisgo > srec_bytes)
-// OBSOLETE        thisgo = srec_bytes;
-// OBSOLETE 
-// OBSOLETE      address = memaddr + done;
-// OBSOLETE      sprintf (buf, "S3%02X%08lX", thisgo + 4 + 1, (long) address);
-// OBSOLETE      buf += 12;
-// OBSOLETE 
-// OBSOLETE      checksum += (thisgo + 4 + 1
-// OBSOLETE                   + (address & 0xff)
-// OBSOLETE                   + ((address >> 8) & 0xff)
-// OBSOLETE                   + ((address >> 16) & 0xff)
-// OBSOLETE                   + ((address >> 24) & 0xff));
-// OBSOLETE 
-// OBSOLETE      for (idx = 0; idx < thisgo; idx++)
-// OBSOLETE        {
-// OBSOLETE          sprintf (buf, "%02X", myaddr[idx + done]);
-// OBSOLETE          checksum += myaddr[idx + done];
-// OBSOLETE          buf += 2;
-// OBSOLETE        }
-// OBSOLETE 
-// OBSOLETE      if (srec_noise > 0)
-// OBSOLETE        {
-// OBSOLETE          /* FIXME-NOW: insert a deliberate error every now and then.
-// OBSOLETE             This is intended for testing/debugging the error handling
-// OBSOLETE             stuff.  */
-// OBSOLETE          static int counter = 0;
-// OBSOLETE          if (++counter > srec_noise)
-// OBSOLETE            {
-// OBSOLETE              counter = 0;
-// OBSOLETE              ++checksum;
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE 
-// OBSOLETE      sprintf (buf, "%02X", ~checksum & 0xff);
-// OBSOLETE      bug_srec_write_cr (buffer);
-// OBSOLETE 
-// OBSOLETE      if (srec_sleep != 0)
-// OBSOLETE        sleep (srec_sleep);
-// OBSOLETE 
-// OBSOLETE      /* This pollchar is probably redundant to the gr_multi_scan
-// OBSOLETE         below.  Trouble is, we can't be sure when or where an
-// OBSOLETE         error message will appear.  Apparently, when running at
-// OBSOLETE         full speed from a typical sun4, error messages tend to
-// OBSOLETE         appear to arrive only *after* the s7 record.   */
-// OBSOLETE 
-// OBSOLETE      if ((x = sr_pollchar ()) != 0)
-// OBSOLETE        {
-// OBSOLETE          if (sr_get_debug () > 0)
-// OBSOLETE            printf ("\n<retrying...>\n");
-// OBSOLETE 
-// OBSOLETE          ++retries;
-// OBSOLETE 
-// OBSOLETE          /* flush any remaining input and verify that we are back
-// OBSOLETE             at the prompt level. */
-// OBSOLETE          gr_expect_prompt ();
-// OBSOLETE          /* start all over again. */
-// OBSOLETE          start_load ();
-// OBSOLETE          done = 0;
-// OBSOLETE          continue;
-// OBSOLETE        }
-// OBSOLETE 
-// OBSOLETE      done += thisgo;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       bug_srec_write_cr ("S7060000000000F9");
-// OBSOLETE       ++retries;
-// OBSOLETE 
-// OBSOLETE       /* Having finished the load, we need to figure out whether we
-// OBSOLETE          had any errors.  */
-// OBSOLETE     }
-// OBSOLETE   while (gr_multi_scan (srecord_strings, 0) == 0);;
-// OBSOLETE 
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Copy LEN bytes of data from debugger memory at MYADDR
-// OBSOLETE    to inferior's memory at MEMADDR.  Returns errno value.
-// OBSOLETE    * sb/sh instructions don't work on unaligned addresses, when TU=1.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE /* Read LEN bytes from inferior memory at MEMADDR.  Put the result
-// OBSOLETE    at debugger address MYADDR.  Returns errno value.  */
-// OBSOLETE static int
-// OBSOLETE bug_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
-// OBSOLETE {
-// OBSOLETE   char request[100];
-// OBSOLETE   char *buffer;
-// OBSOLETE   char *p;
-// OBSOLETE   char type;
-// OBSOLETE   char size;
-// OBSOLETE   unsigned char c;
-// OBSOLETE   unsigned int inaddr;
-// OBSOLETE   unsigned int checksum;
-// OBSOLETE 
-// OBSOLETE   sprintf (request, "du 0 %lx:&%d", (long) memaddr, len);
-// OBSOLETE   sr_write_cr (request);
-// OBSOLETE 
-// OBSOLETE   p = buffer = alloca (len);
-// OBSOLETE 
-// OBSOLETE   /* scan up through the header */
-// OBSOLETE   sr_expect ("S0030000FC");
-// OBSOLETE 
-// OBSOLETE   while (p < buffer + len)
-// OBSOLETE     {
-// OBSOLETE       /* scan off any white space. */
-// OBSOLETE       while (sr_readchar () != 'S');;
-// OBSOLETE 
-// OBSOLETE       /* what kind of s-rec? */
-// OBSOLETE       type = sr_readchar ();
-// OBSOLETE 
-// OBSOLETE       /* scan record size */
-// OBSOLETE       sr_get_hex_byte (&size);
-// OBSOLETE       checksum = size;
-// OBSOLETE       --size;
-// OBSOLETE       inaddr = 0;
-// OBSOLETE 
-// OBSOLETE       switch (type)
-// OBSOLETE    {
-// OBSOLETE    case '7':
-// OBSOLETE    case '8':
-// OBSOLETE    case '9':
-// OBSOLETE      goto done;
-// OBSOLETE 
-// OBSOLETE    case '3':
-// OBSOLETE      sr_get_hex_byte (&c);
-// OBSOLETE      inaddr = (inaddr << 8) + c;
-// OBSOLETE      checksum += c;
-// OBSOLETE      --size;
-// OBSOLETE      /* intentional fall through */
-// OBSOLETE    case '2':
-// OBSOLETE      sr_get_hex_byte (&c);
-// OBSOLETE      inaddr = (inaddr << 8) + c;
-// OBSOLETE      checksum += c;
-// OBSOLETE      --size;
-// OBSOLETE      /* intentional fall through */
-// OBSOLETE    case '1':
-// OBSOLETE      sr_get_hex_byte (&c);
-// OBSOLETE      inaddr = (inaddr << 8) + c;
-// OBSOLETE      checksum += c;
-// OBSOLETE      --size;
-// OBSOLETE      sr_get_hex_byte (&c);
-// OBSOLETE      inaddr = (inaddr << 8) + c;
-// OBSOLETE      checksum += c;
-// OBSOLETE      --size;
-// OBSOLETE      break;
-// OBSOLETE 
-// OBSOLETE    default:
-// OBSOLETE      /* bonk */
-// OBSOLETE      error ("reading s-records.");
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       if (inaddr < memaddr
-// OBSOLETE      || (memaddr + len) < (inaddr + size))
-// OBSOLETE    error ("srec out of memory range.");
-// OBSOLETE 
-// OBSOLETE       if (p != buffer + inaddr - memaddr)
-// OBSOLETE    error ("srec out of sequence.");
-// OBSOLETE 
-// OBSOLETE       for (; size; --size, ++p)
-// OBSOLETE    {
-// OBSOLETE      sr_get_hex_byte (p);
-// OBSOLETE      checksum += *p;
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       sr_get_hex_byte (&c);
-// OBSOLETE       if (c != (~checksum & 0xff))
-// OBSOLETE    error ("bad s-rec checksum");
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE done:
-// OBSOLETE   gr_expect_prompt ();
-// OBSOLETE   if (p != buffer + len)
-// OBSOLETE     return (1);
-// OBSOLETE 
-// OBSOLETE   memcpy (myaddr, buffer, len);
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #define MAX_BREAKS 16
-// OBSOLETE static int num_brkpts = 0;
-// OBSOLETE 
-// OBSOLETE /* Insert a breakpoint at ADDR.  SAVE is normally the address of the
-// OBSOLETE    pattern buffer where the instruction that the breakpoint overwrites
-// OBSOLETE    is saved.  It is unused here since the bug is responsible for
-// OBSOLETE    saving/restoring the original instruction. */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE bug_insert_breakpoint (CORE_ADDR addr, char *save)
-// OBSOLETE {
-// OBSOLETE   sr_check_open ();
-// OBSOLETE 
-// OBSOLETE   if (num_brkpts < MAX_BREAKS)
-// OBSOLETE     {
-// OBSOLETE       char buffer[100];
-// OBSOLETE 
-// OBSOLETE       num_brkpts++;
-// OBSOLETE       sprintf (buffer, "br %lx", (long) addr);
-// OBSOLETE       sr_write_cr (buffer);
-// OBSOLETE       gr_expect_prompt ();
-// OBSOLETE       return (0);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       fprintf_filtered (gdb_stderr,
-// OBSOLETE                  "Too many break points, break point not installed\n");
-// OBSOLETE       return (1);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Remove a breakpoint at ADDR.  SAVE is normally the previously
-// OBSOLETE    saved pattern, but is unused here since the bug is responsible
-// OBSOLETE    for saving/restoring instructions. */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE bug_remove_breakpoint (CORE_ADDR addr, char *save)
-// OBSOLETE {
-// OBSOLETE   if (num_brkpts > 0)
-// OBSOLETE     {
-// OBSOLETE       char buffer[100];
-// OBSOLETE 
-// OBSOLETE       num_brkpts--;
-// OBSOLETE       sprintf (buffer, "nobr %lx", (long) addr);
-// OBSOLETE       sr_write_cr (buffer);
-// OBSOLETE       gr_expect_prompt ();
-// OBSOLETE 
-// OBSOLETE     }
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Clear the bugs notion of what the break points are */
-// OBSOLETE static int
-// OBSOLETE bug_clear_breakpoints (void)
-// OBSOLETE {
-// OBSOLETE 
-// OBSOLETE   if (sr_is_open ())
-// OBSOLETE     {
-// OBSOLETE       sr_write_cr ("nobr");
-// OBSOLETE       sr_expect ("nobr");
-// OBSOLETE       gr_expect_prompt ();
-// OBSOLETE     }
-// OBSOLETE   num_brkpts = 0;
-// OBSOLETE   return (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE struct target_ops bug_ops;
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE init_bug_ops (void)
-// OBSOLETE {
-// OBSOLETE   bug_ops.to_shortname = "bug";
-// OBSOLETE   "Remote BUG monitor",
-// OBSOLETE     bug_ops.to_longname = "Use the mvme187 board running the BUG monitor connected by a serial line.";
-// OBSOLETE   bug_ops.to_doc = " ";
-// OBSOLETE   bug_ops.to_open = bug_open;
-// OBSOLETE   bug_ops.to_close = gr_close;
-// OBSOLETE   bug_ops.to_attach = 0;
-// OBSOLETE   bug_ops.to_post_attach = NULL;
-// OBSOLETE   bug_ops.to_require_attach = NULL;
-// OBSOLETE   bug_ops.to_detach = gr_detach;
-// OBSOLETE   bug_ops.to_require_detach = NULL;
-// OBSOLETE   bug_ops.to_resume = bug_resume;
-// OBSOLETE   bug_ops.to_wait = bug_wait;
-// OBSOLETE   bug_ops.to_post_wait = NULL;
-// OBSOLETE   bug_ops.to_fetch_registers = bug_fetch_register;
-// OBSOLETE   bug_ops.to_store_registers = bug_store_register;
-// OBSOLETE   bug_ops.to_prepare_to_store = gr_prepare_to_store;
-// OBSOLETE   bug_ops.to_xfer_memory = bug_xfer_memory;
-// OBSOLETE   bug_ops.to_files_info = gr_files_info;
-// OBSOLETE   bug_ops.to_insert_breakpoint = bug_insert_breakpoint;
-// OBSOLETE   bug_ops.to_remove_breakpoint = bug_remove_breakpoint;
-// OBSOLETE   bug_ops.to_terminal_init = 0;
-// OBSOLETE   bug_ops.to_terminal_inferior = 0;
-// OBSOLETE   bug_ops.to_terminal_ours_for_output = 0;
-// OBSOLETE   bug_ops.to_terminal_ours = 0;
-// OBSOLETE   bug_ops.to_terminal_info = 0;
-// OBSOLETE   bug_ops.to_kill = gr_kill;
-// OBSOLETE   bug_ops.to_load = bug_load;
-// OBSOLETE   bug_ops.to_lookup_symbol = 0;
-// OBSOLETE   bug_ops.to_create_inferior = gr_create_inferior;
-// OBSOLETE   bug_ops.to_post_startup_inferior = NULL;
-// OBSOLETE   bug_ops.to_acknowledge_created_inferior = NULL;
-// OBSOLETE   bug_ops.to_clone_and_follow_inferior = NULL;
-// OBSOLETE   bug_ops.to_post_follow_inferior_by_clone = NULL;
-// OBSOLETE   bug_ops.to_insert_fork_catchpoint = NULL;
-// OBSOLETE   bug_ops.to_remove_fork_catchpoint = NULL;
-// OBSOLETE   bug_ops.to_insert_vfork_catchpoint = NULL;
-// OBSOLETE   bug_ops.to_remove_vfork_catchpoint = NULL;
-// OBSOLETE   bug_ops.to_has_forked = NULL;
-// OBSOLETE   bug_ops.to_has_vforked = NULL;
-// OBSOLETE   bug_ops.to_can_follow_vfork_prior_to_exec = NULL;
-// OBSOLETE   bug_ops.to_post_follow_vfork = NULL;
-// OBSOLETE   bug_ops.to_insert_exec_catchpoint = NULL;
-// OBSOLETE   bug_ops.to_remove_exec_catchpoint = NULL;
-// OBSOLETE   bug_ops.to_has_execd = NULL;
-// OBSOLETE   bug_ops.to_reported_exec_events_per_exec_call = NULL;
-// OBSOLETE   bug_ops.to_has_exited = NULL;
-// OBSOLETE   bug_ops.to_mourn_inferior = gr_mourn;
-// OBSOLETE   bug_ops.to_can_run = 0;
-// OBSOLETE   bug_ops.to_notice_signals = 0;
-// OBSOLETE   bug_ops.to_thread_alive = 0;
-// OBSOLETE   bug_ops.to_stop = 0;
-// OBSOLETE   bug_ops.to_pid_to_exec_file = NULL;
-// OBSOLETE   bug_ops.to_stratum = process_stratum;
-// OBSOLETE   bug_ops.DONT_USE = 0;
-// OBSOLETE   bug_ops.to_has_all_memory = 1;
-// OBSOLETE   bug_ops.to_has_memory = 1;
-// OBSOLETE   bug_ops.to_has_stack = 1;
-// OBSOLETE   bug_ops.to_has_registers = 0;
-// OBSOLETE   bug_ops.to_has_execution = 0;
-// OBSOLETE   bug_ops.to_sections = 0;
-// OBSOLETE   bug_ops.to_sections_end = 0;
-// OBSOLETE   bug_ops.to_magic = OPS_MAGIC;    /* Always the last thing */
-// OBSOLETE }                          /* init_bug_ops */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_remote_bug (void)
-// OBSOLETE {
-// OBSOLETE   init_bug_ops ();
-// OBSOLETE   add_target (&bug_ops);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set
-// OBSOLETE     (add_set_cmd ("srec-bytes", class_support, var_uinteger,
-// OBSOLETE              (char *) &srec_bytes,
-// OBSOLETE              "\
-// OBSOLETE Set the number of bytes represented in each S-record.\n\
-// OBSOLETE This affects the communication protocol with the remote target.",
-// OBSOLETE              &setlist),
-// OBSOLETE      &showlist);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set
-// OBSOLETE     (add_set_cmd ("srec-max-retries", class_support, var_uinteger,
-// OBSOLETE              (char *) &srec_max_retries,
-// OBSOLETE              "\
-// OBSOLETE Set the number of retries for shipping S-records.\n\
-// OBSOLETE This affects the communication protocol with the remote target.",
-// OBSOLETE              &setlist),
-// OBSOLETE      &showlist);
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE   /* This needs to set SREC_SIZE, not srec_frame which gets changed at the
-// OBSOLETE      end of a download.  But do we need the option at all?  */
-// OBSOLETE   add_show_from_set
-// OBSOLETE     (add_set_cmd ("srec-frame", class_support, var_uinteger,
-// OBSOLETE              (char *) &srec_frame,
-// OBSOLETE              "\
-// OBSOLETE Set the number of bytes in an S-record frame.\n\
-// OBSOLETE This affects the communication protocol with the remote target.",
-// OBSOLETE              &setlist),
-// OBSOLETE      &showlist);
-// OBSOLETE #endif /* 0 */
-// OBSOLETE 
-// OBSOLETE   add_show_from_set
-// OBSOLETE     (add_set_cmd ("srec-noise", class_support, var_zinteger,
-// OBSOLETE              (char *) &srec_noise,
-// OBSOLETE              "\
-// OBSOLETE Set number of S-record to send before deliberately flubbing a checksum.\n\
-// OBSOLETE Zero means flub none at all.  This affects the communication protocol\n\
-// OBSOLETE with the remote target.",
-// OBSOLETE              &setlist),
-// OBSOLETE      &showlist);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set
-// OBSOLETE     (add_set_cmd ("srec-sleep", class_support, var_zinteger,
-// OBSOLETE              (char *) &srec_sleep,
-// OBSOLETE              "\
-// OBSOLETE Set number of seconds to sleep after an S-record for a possible error message to arrive.\n\
-// OBSOLETE This affects the communication protocol with the remote target.",
-// OBSOLETE              &setlist),
-// OBSOLETE      &showlist);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set
-// OBSOLETE     (add_set_cmd ("srec-echo-pace", class_support, var_boolean,
-// OBSOLETE              (char *) &srec_echo_pace,
-// OBSOLETE              "\
-// OBSOLETE Set echo-verification.\n\
-// OBSOLETE When on, use verification by echo when downloading S-records.  This is\n\
-// OBSOLETE much slower, but generally more reliable.",
-// OBSOLETE              &setlist),
-// OBSOLETE      &showlist);
-// OBSOLETE }
diff --git a/gdb/remote-nindy.c b/gdb/remote-nindy.c
deleted file mode 100644 (file)
index ffbe7d8..0000000
+++ /dev/null
@@ -1,762 +0,0 @@
-// OBSOLETE /* Memory-access and commands for remote NINDY process, for GDB.
-// OBSOLETE 
-// OBSOLETE    Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999,
-// OBSOLETE    2000, 2001, 2002 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    Contributed by Intel Corporation.  Modified from remote.c by Chris Benenati.
-// OBSOLETE 
-// OBSOLETE    GDB is distributed in the hope that it will be useful, but WITHOUT ANY
-// OBSOLETE    WARRANTY.  No author or distributor accepts responsibility to anyone
-// OBSOLETE    for the consequences of using it or for whether it serves any
-// OBSOLETE    particular purpose or works at all, unless he says so in writing.
-// OBSOLETE    Refer to the GDB General Public License for full details.
-// OBSOLETE 
-// OBSOLETE    Everyone is granted permission to copy, modify and redistribute GDB,
-// OBSOLETE    but only under the conditions described in the GDB General Public
-// OBSOLETE    License.  A copy of this license is supposed to have been given to you
-// OBSOLETE    along with GDB so you can know your rights and responsibilities.  It
-// OBSOLETE    should be in a file named COPYING.  Among other things, the copyright
-// OBSOLETE    notice and this notice must be preserved on all copies.
-// OBSOLETE 
-// OBSOLETE    In other words, go ahead and share GDB, but don't try to stop
-// OBSOLETE    anyone else from sharing it farther.  Help stamp out software hoarding!  */
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE    Except for the data cache routines, this file bears little resemblence
-// OBSOLETE    to remote.c.  A new (although similar) protocol has been specified, and
-// OBSOLETE    portions of the code are entirely dependent on having an i80960 with a
-// OBSOLETE    NINDY ROM monitor at the other end of the line.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE /*****************************************************************************
-// OBSOLETE  *
-// OBSOLETE  * REMOTE COMMUNICATION PROTOCOL BETWEEN GDB960 AND THE NINDY ROM MONITOR.
-// OBSOLETE  *
-// OBSOLETE  *
-// OBSOLETE  * MODES OF OPERATION
-// OBSOLETE  * ----- -- ---------
-// OBSOLETE  * 
-// OBSOLETE  * As far as NINDY is concerned, GDB is always in one of two modes: command
-// OBSOLETE  * mode or passthrough mode.
-// OBSOLETE  *
-// OBSOLETE  * In command mode (the default) pre-defined packets containing requests
-// OBSOLETE  * are sent by GDB to NINDY.  NINDY never talks except in reponse to a request.
-// OBSOLETE  *
-// OBSOLETE  * Once the the user program is started, GDB enters passthrough mode, to give
-// OBSOLETE  * the user program access to the terminal.  GDB remains in this mode until
-// OBSOLETE  * NINDY indicates that the program has stopped.
-// OBSOLETE  *
-// OBSOLETE  *
-// OBSOLETE  * PASSTHROUGH MODE
-// OBSOLETE  * ----------- ----
-// OBSOLETE  *
-// OBSOLETE  * GDB writes all input received from the keyboard directly to NINDY, and writes
-// OBSOLETE  * all characters received from NINDY directly to the monitor.
-// OBSOLETE  *
-// OBSOLETE  * Keyboard input is neither buffered nor echoed to the monitor.
-// OBSOLETE  *
-// OBSOLETE  * GDB remains in passthrough mode until NINDY sends a single ^P character,
-// OBSOLETE  * to indicate that the user process has stopped.
-// OBSOLETE  *
-// OBSOLETE  * Note:
-// OBSOLETE  * GDB assumes NINDY performs a 'flushreg' when the user program stops.
-// OBSOLETE  *
-// OBSOLETE  *
-// OBSOLETE  * COMMAND MODE
-// OBSOLETE  * ------- ----
-// OBSOLETE  *
-// OBSOLETE  * All info (except for message ack and nak) is transferred between gdb
-// OBSOLETE  * and the remote processor in messages of the following format:
-// OBSOLETE  *
-// OBSOLETE  *         <info>#<checksum>
-// OBSOLETE  *
-// OBSOLETE  * where 
-// OBSOLETE  * #       is a literal character
-// OBSOLETE  *
-// OBSOLETE  * <info>  ASCII information;  all numeric information is in the
-// OBSOLETE  *         form of hex digits ('0'-'9' and lowercase 'a'-'f').
-// OBSOLETE  *
-// OBSOLETE  * <checksum>
-// OBSOLETE  *         is a pair of ASCII hex digits representing an 8-bit
-// OBSOLETE  *         checksum formed by adding together each of the
-// OBSOLETE  *         characters in <info>.
-// OBSOLETE  *
-// OBSOLETE  * The receiver of a message always sends a single character to the sender
-// OBSOLETE  * to indicate that the checksum was good ('+') or bad ('-');  the sender
-// OBSOLETE  * re-transmits the entire message over until a '+' is received.
-// OBSOLETE  *
-// OBSOLETE  * In response to a command NINDY always sends back either data or
-// OBSOLETE  * a result code of the form "Xnn", where "nn" are hex digits and "X00"
-// OBSOLETE  * means no errors.  (Exceptions: the "s" and "c" commands don't respond.)
-// OBSOLETE  *
-// OBSOLETE  * SEE THE HEADER OF THE FILE "gdb.c" IN THE NINDY MONITOR SOURCE CODE FOR A
-// OBSOLETE  * FULL DESCRIPTION OF LEGAL COMMANDS.
-// OBSOLETE  *
-// OBSOLETE  * SEE THE FILE "stop.h" IN THE NINDY MONITOR SOURCE CODE FOR A LIST
-// OBSOLETE  * OF STOP CODES.
-// OBSOLETE  *
-// OBSOLETE  ***************************************************************************/
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include <signal.h>
-// OBSOLETE #include <sys/types.h>
-// OBSOLETE #include <setjmp.h>
-// OBSOLETE 
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "bfd.h"
-// OBSOLETE #include "symfile.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "command.h"
-// OBSOLETE #include "floatformat.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE #include <sys/file.h>
-// OBSOLETE #include <ctype.h>
-// OBSOLETE #include "serial.h"
-// OBSOLETE #include "nindy-share/env.h"
-// OBSOLETE #include "nindy-share/stop.h"
-// OBSOLETE #include "remote-utils.h"
-// OBSOLETE 
-// OBSOLETE extern int unlink ();
-// OBSOLETE extern char *getenv ();
-// OBSOLETE extern char *mktemp ();
-// OBSOLETE 
-// OBSOLETE extern void generic_mourn_inferior ();
-// OBSOLETE 
-// OBSOLETE extern struct target_ops nindy_ops;
-// OBSOLETE extern FILE *instream;
-// OBSOLETE 
-// OBSOLETE extern char ninStopWhy ();
-// OBSOLETE extern int ninMemGet ();
-// OBSOLETE extern int ninMemPut ();
-// OBSOLETE 
-// OBSOLETE int nindy_initial_brk;             /* nonzero if want to send an initial BREAK to nindy */
-// OBSOLETE int nindy_old_protocol;            /* nonzero if want to use old protocol */
-// OBSOLETE char *nindy_ttyname;               /* name of tty to talk to nindy on, or null */
-// OBSOLETE 
-// OBSOLETE #define DLE        '\020'          /* Character NINDY sends to indicate user program has
-// OBSOLETE                               * halted.  */
-// OBSOLETE #define TRUE       1
-// OBSOLETE #define FALSE      0
-// OBSOLETE 
-// OBSOLETE /* From nindy-share/nindy.c.  */
-// OBSOLETE extern struct serial *nindy_serial;
-// OBSOLETE 
-// OBSOLETE static int have_regs = 0;  /* 1 iff regs read since i960 last halted */
-// OBSOLETE static int regs_changed = 0;       /* 1 iff regs were modified since last read */
-// OBSOLETE 
-// OBSOLETE extern char *exists ();
-// OBSOLETE 
-// OBSOLETE static void nindy_fetch_registers (int);
-// OBSOLETE 
-// OBSOLETE static void nindy_store_registers (int);
-// OBSOLETE \f
-// OBSOLETE static char *savename;
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nindy_close (int quitting)
-// OBSOLETE {
-// OBSOLETE   if (nindy_serial != NULL)
-// OBSOLETE     serial_close (nindy_serial);
-// OBSOLETE   nindy_serial = NULL;
-// OBSOLETE 
-// OBSOLETE   if (savename)
-// OBSOLETE     xfree (savename);
-// OBSOLETE   savename = 0;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Open a connection to a remote debugger.   
-// OBSOLETE    FIXME, there should be "set" commands for the options that are
-// OBSOLETE    now specified with gdb command-line options (old_protocol,
-// OBSOLETE    and initial_brk).  */
-// OBSOLETE void
-// OBSOLETE nindy_open (char *name,            /* "/dev/ttyXX", "ttyXX", or "XX": tty to be opened */
-// OBSOLETE        int from_tty)
-// OBSOLETE {
-// OBSOLETE   char baudrate[1024];
-// OBSOLETE 
-// OBSOLETE   if (!name)
-// OBSOLETE     error_no_arg ("serial port device name");
-// OBSOLETE 
-// OBSOLETE   target_preopen (from_tty);
-// OBSOLETE 
-// OBSOLETE   nindy_close (0);
-// OBSOLETE 
-// OBSOLETE   have_regs = regs_changed = 0;
-// OBSOLETE 
-// OBSOLETE   /* Allow user to interrupt the following -- we could hang if there's
-// OBSOLETE      no NINDY at the other end of the remote tty.  */
-// OBSOLETE   immediate_quit++;
-// OBSOLETE   /* If baud_rate is -1, then ninConnect will not recognize the baud rate
-// OBSOLETE      and will deal with the situation in a (more or less) reasonable
-// OBSOLETE      fashion.  */
-// OBSOLETE   sprintf (baudrate, "%d", baud_rate);
-// OBSOLETE   ninConnect (name, baudrate,
-// OBSOLETE          nindy_initial_brk, !from_tty, nindy_old_protocol);
-// OBSOLETE   immediate_quit--;
-// OBSOLETE 
-// OBSOLETE   if (nindy_serial == NULL)
-// OBSOLETE     {
-// OBSOLETE       perror_with_name (name);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   savename = savestring (name, strlen (name));
-// OBSOLETE   push_target (&nindy_ops);
-// OBSOLETE 
-// OBSOLETE   target_fetch_registers (-1);
-// OBSOLETE 
-// OBSOLETE   init_thread_list ();
-// OBSOLETE   init_wait_for_inferior ();
-// OBSOLETE   clear_proceed_status ();
-// OBSOLETE   normal_stop ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* User-initiated quit of nindy operations.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nindy_detach (char *name, int from_tty)
-// OBSOLETE {
-// OBSOLETE   if (name)
-// OBSOLETE     error ("Too many arguments");
-// OBSOLETE   pop_target ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nindy_files_info (void)
-// OBSOLETE {
-// OBSOLETE   /* FIXME: this lies about the baud rate if we autobauded.  */
-// OBSOLETE   printf_unfiltered ("\tAttached to %s at %d bits per second%s%s.\n", savename,
-// OBSOLETE                 baud_rate,
-// OBSOLETE                 nindy_old_protocol ? " in old protocol" : "",
-// OBSOLETE                 nindy_initial_brk ? " with initial break" : "");
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Return the number of characters in the buffer BUF before
-// OBSOLETE    the first DLE character.  N is maximum number of characters to
-// OBSOLETE    consider.  */
-// OBSOLETE 
-// OBSOLETE static
-// OBSOLETE int
-// OBSOLETE non_dle (char *buf, int n)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   for (i = 0; i < n; i++)
-// OBSOLETE     {
-// OBSOLETE       if (buf[i] == DLE)
-// OBSOLETE    {
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   return i;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Tell the remote machine to resume.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE nindy_resume (ptid_t ptid, int step, enum target_signal siggnal)
-// OBSOLETE {
-// OBSOLETE   if (siggnal != TARGET_SIGNAL_0 && siggnal != stop_signal)
-// OBSOLETE     warning ("Can't send signals to remote NINDY targets.");
-// OBSOLETE 
-// OBSOLETE   if (regs_changed)
-// OBSOLETE     {
-// OBSOLETE       nindy_store_registers (-1);
-// OBSOLETE       regs_changed = 0;
-// OBSOLETE     }
-// OBSOLETE   have_regs = 0;
-// OBSOLETE   ninGo (step);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* FIXME, we can probably use the normal terminal_inferior stuff here.
-// OBSOLETE    We have to do terminal_inferior and then set up the passthrough
-// OBSOLETE    settings initially.  Thereafter, terminal_ours and terminal_inferior
-// OBSOLETE    will automatically swap the settings around for us.  */
-// OBSOLETE 
-// OBSOLETE struct clean_up_tty_args
-// OBSOLETE {
-// OBSOLETE   serial_ttystate state;
-// OBSOLETE   struct serial *serial;
-// OBSOLETE };
-// OBSOLETE static struct clean_up_tty_args tty_args;
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE clean_up_tty (PTR ptrarg)
-// OBSOLETE {
-// OBSOLETE   struct clean_up_tty_args *args = (struct clean_up_tty_args *) ptrarg;
-// OBSOLETE   serial_set_tty_state (args->serial, args->state);
-// OBSOLETE   xfree (args->state);
-// OBSOLETE   warning ("\n\nYou may need to reset the 80960 and/or reload your program.\n");
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Recover from ^Z or ^C while remote process is running */
-// OBSOLETE static void (*old_ctrlc) ();
-// OBSOLETE #ifdef SIGTSTP
-// OBSOLETE static void (*old_ctrlz) ();
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE clean_up_int (void)
-// OBSOLETE {
-// OBSOLETE   serial_set_tty_state (tty_args.serial, tty_args.state);
-// OBSOLETE   xfree (tty_args.state);
-// OBSOLETE 
-// OBSOLETE   signal (SIGINT, old_ctrlc);
-// OBSOLETE #ifdef SIGTSTP
-// OBSOLETE   signal (SIGTSTP, old_ctrlz);
-// OBSOLETE #endif
-// OBSOLETE   error ("\n\nYou may need to reset the 80960 and/or reload your program.\n");
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Wait until the remote machine stops. While waiting, operate in passthrough
-// OBSOLETE  * mode; i.e., pass everything NINDY sends to gdb_stdout, and everything from
-// OBSOLETE  * stdin to NINDY.
-// OBSOLETE  *
-// OBSOLETE  * Return to caller, storing status in 'status' just as `wait' would.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static ptid_t
-// OBSOLETE nindy_wait (ptid_t ptid, struct target_waitstatus *status)
-// OBSOLETE {
-// OBSOLETE   fd_set fds;
-// OBSOLETE   int c;
-// OBSOLETE   char buf[2];
-// OBSOLETE   int i, n;
-// OBSOLETE   unsigned char stop_exit;
-// OBSOLETE   unsigned char stop_code;
-// OBSOLETE   struct cleanup *old_cleanups;
-// OBSOLETE   long ip_value, fp_value, sp_value;       /* Reg values from stop */
-// OBSOLETE 
-// OBSOLETE   status->kind = TARGET_WAITKIND_EXITED;
-// OBSOLETE   status->value.integer = 0;
-// OBSOLETE 
-// OBSOLETE   /* OPERATE IN PASSTHROUGH MODE UNTIL NINDY SENDS A DLE CHARACTER */
-// OBSOLETE 
-// OBSOLETE   /* Save current tty attributes, and restore them when done.  */
-// OBSOLETE   tty_args.serial = serial_fdopen (0);
-// OBSOLETE   tty_args.state = serial_get_tty_state (tty_args.serial);
-// OBSOLETE   old_ctrlc = signal (SIGINT, clean_up_int);
-// OBSOLETE #ifdef SIGTSTP
-// OBSOLETE   old_ctrlz = signal (SIGTSTP, clean_up_int);
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE   old_cleanups = make_cleanup (clean_up_tty, &tty_args);
-// OBSOLETE 
-// OBSOLETE   /* Pass input from keyboard to NINDY as it arrives.  NINDY will interpret
-// OBSOLETE      <CR> and perform echo.  */
-// OBSOLETE   /* This used to set CBREAK and clear ECHO and CRMOD.  I hope this is close
-// OBSOLETE      enough.  */
-// OBSOLETE   serial_raw (tty_args.serial);
-// OBSOLETE 
-// OBSOLETE   while (1)
-// OBSOLETE     {
-// OBSOLETE       /* Input on remote */
-// OBSOLETE       c = serial_readchar (nindy_serial, -1);
-// OBSOLETE       if (c == SERIAL_ERROR)
-// OBSOLETE    {
-// OBSOLETE      error ("Cannot read from serial line");
-// OBSOLETE    }
-// OBSOLETE       else if (c == 0x1b)  /* ESC */
-// OBSOLETE    {
-// OBSOLETE      c = serial_readchar (nindy_serial, -1);
-// OBSOLETE      c &= ~0x40;
-// OBSOLETE    }
-// OBSOLETE       else if (c != 0x10)  /* DLE */
-// OBSOLETE    /* Write out any characters preceding DLE */
-// OBSOLETE    {
-// OBSOLETE      buf[0] = (char) c;
-// OBSOLETE      write (1, buf, 1);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      stop_exit = ninStopWhy (&stop_code,
-// OBSOLETE                              &ip_value, &fp_value, &sp_value);
-// OBSOLETE      if (!stop_exit && (stop_code == STOP_SRQ))
-// OBSOLETE        {
-// OBSOLETE          immediate_quit++;
-// OBSOLETE          ninSrq ();
-// OBSOLETE          immediate_quit--;
-// OBSOLETE        }
-// OBSOLETE      else
-// OBSOLETE        {
-// OBSOLETE          /* Get out of loop */
-// OBSOLETE          supply_register (IP_REGNUM,
-// OBSOLETE                           (char *) &ip_value);
-// OBSOLETE          supply_register (FP_REGNUM,
-// OBSOLETE                           (char *) &fp_value);
-// OBSOLETE          supply_register (SP_REGNUM,
-// OBSOLETE                           (char *) &sp_value);
-// OBSOLETE          break;
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   serial_set_tty_state (tty_args.serial, tty_args.state);
-// OBSOLETE   xfree (tty_args.state);
-// OBSOLETE   discard_cleanups (old_cleanups);
-// OBSOLETE 
-// OBSOLETE   if (stop_exit)
-// OBSOLETE     {
-// OBSOLETE       status->kind = TARGET_WAITKIND_EXITED;
-// OBSOLETE       status->value.integer = stop_code;
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       /* nindy has some special stop code need to be handled */
-// OBSOLETE       if (stop_code == STOP_GDB_BPT)
-// OBSOLETE    stop_code = TRACE_STEP;
-// OBSOLETE       status->kind = TARGET_WAITKIND_STOPPED;
-// OBSOLETE       status->value.sig = i960_fault_to_signal (stop_code);
-// OBSOLETE     }
-// OBSOLETE   return inferior_ptid;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Read the remote registers into the block REGS.  */
-// OBSOLETE 
-// OBSOLETE /* This is the block that ninRegsGet and ninRegsPut handles.  */
-// OBSOLETE struct nindy_regs
-// OBSOLETE {
-// OBSOLETE   char local_regs[16 * 4];
-// OBSOLETE   char global_regs[16 * 4];
-// OBSOLETE   char pcw_acw[2 * 4];
-// OBSOLETE   char ip[4];
-// OBSOLETE   char tcw[4];
-// OBSOLETE   char fp_as_double[4 * 8];
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nindy_fetch_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   struct nindy_regs nindy_regs;
-// OBSOLETE   int regnum;
-// OBSOLETE 
-// OBSOLETE   immediate_quit++;
-// OBSOLETE   ninRegsGet ((char *) &nindy_regs);
-// OBSOLETE   immediate_quit--;
-// OBSOLETE 
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (R0_REGNUM)], nindy_regs.local_regs, 16 * 4);
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (G0_REGNUM)], nindy_regs.global_regs, 16 * 4);
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (PCW_REGNUM)], nindy_regs.pcw_acw, 2 * 4);
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (IP_REGNUM)], nindy_regs.ip, 1 * 4);
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (TCW_REGNUM)], nindy_regs.tcw, 1 * 4);
-// OBSOLETE   memcpy (&registers[REGISTER_BYTE (FP0_REGNUM)], nindy_regs.fp_as_double, 4 * 8);
-// OBSOLETE 
-// OBSOLETE   registers_fetched ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nindy_prepare_to_store (void)
-// OBSOLETE {
-// OBSOLETE   /* Fetch all regs if they aren't already here.  */
-// OBSOLETE   read_register_bytes (0, NULL, REGISTER_BYTES);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nindy_store_registers (int regno)
-// OBSOLETE {
-// OBSOLETE   struct nindy_regs nindy_regs;
-// OBSOLETE   int regnum;
-// OBSOLETE 
-// OBSOLETE   memcpy (nindy_regs.local_regs, &registers[REGISTER_BYTE (R0_REGNUM)], 16 * 4);
-// OBSOLETE   memcpy (nindy_regs.global_regs, &registers[REGISTER_BYTE (G0_REGNUM)], 16 * 4);
-// OBSOLETE   memcpy (nindy_regs.pcw_acw, &registers[REGISTER_BYTE (PCW_REGNUM)], 2 * 4);
-// OBSOLETE   memcpy (nindy_regs.ip, &registers[REGISTER_BYTE (IP_REGNUM)], 1 * 4);
-// OBSOLETE   memcpy (nindy_regs.tcw, &registers[REGISTER_BYTE (TCW_REGNUM)], 1 * 4);
-// OBSOLETE   memcpy (nindy_regs.fp_as_double, &registers[REGISTER_BYTE (FP0_REGNUM)], 8 * 4);
-// OBSOLETE 
-// OBSOLETE   immediate_quit++;
-// OBSOLETE   ninRegsPut ((char *) &nindy_regs);
-// OBSOLETE   immediate_quit--;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Copy LEN bytes to or from inferior's memory starting at MEMADDR
-// OBSOLETE    to debugger memory starting at MYADDR.   Copy to inferior if
-// OBSOLETE    SHOULD_WRITE is nonzero.  Returns the length copied.  TARGET is
-// OBSOLETE    unused.  */
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE nindy_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len,
-// OBSOLETE                        int should_write, struct mem_attrib *attrib,
-// OBSOLETE                        struct target_ops *target)
-// OBSOLETE {
-// OBSOLETE   int res;
-// OBSOLETE 
-// OBSOLETE   if (len <= 0)
-// OBSOLETE     return 0;
-// OBSOLETE 
-// OBSOLETE   if (should_write)
-// OBSOLETE     res = ninMemPut (memaddr, myaddr, len);
-// OBSOLETE   else
-// OBSOLETE     res = ninMemGet (memaddr, myaddr, len);
-// OBSOLETE 
-// OBSOLETE   return res;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE static void
-// OBSOLETE nindy_create_inferior (char *execfile, char *args, char **env)
-// OBSOLETE {
-// OBSOLETE   int entry_pt;
-// OBSOLETE   int pid;
-// OBSOLETE 
-// OBSOLETE   if (args && *args)
-// OBSOLETE     error ("Can't pass arguments to remote NINDY process");
-// OBSOLETE 
-// OBSOLETE   if (execfile == 0 || exec_bfd == 0)
-// OBSOLETE     error ("No executable file specified");
-// OBSOLETE 
-// OBSOLETE   entry_pt = (int) bfd_get_start_address (exec_bfd);
-// OBSOLETE 
-// OBSOLETE   pid = 42;
-// OBSOLETE 
-// OBSOLETE   /* The "process" (board) is already stopped awaiting our commands, and
-// OBSOLETE      the program is already downloaded.  We just set its PC and go.  */
-// OBSOLETE 
-// OBSOLETE   inferior_ptid = pid_to_ptid (pid);       /* Needed for wait_for_inferior below */
-// OBSOLETE 
-// OBSOLETE   clear_proceed_status ();
-// OBSOLETE 
-// OBSOLETE   /* Tell wait_for_inferior that we've started a new process.  */
-// OBSOLETE   init_wait_for_inferior ();
-// OBSOLETE 
-// OBSOLETE   /* Set up the "saved terminal modes" of the inferior
-// OBSOLETE      based on what modes we are starting it with.  */
-// OBSOLETE   target_terminal_init ();
-// OBSOLETE 
-// OBSOLETE   /* Install inferior's terminal modes.  */
-// OBSOLETE   target_terminal_inferior ();
-// OBSOLETE 
-// OBSOLETE   /* insert_step_breakpoint ();  FIXME, do we need this?  */
-// OBSOLETE   /* Let 'er rip... */
-// OBSOLETE   proceed ((CORE_ADDR) entry_pt, TARGET_SIGNAL_DEFAULT, 0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE reset_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE   if (nindy_serial == NULL)
-// OBSOLETE     {
-// OBSOLETE       error ("No target system to reset -- use 'target nindy' command.");
-// OBSOLETE     }
-// OBSOLETE   if (query ("Really reset the target system?", 0, 0))
-// OBSOLETE     {
-// OBSOLETE       serial_send_break (nindy_serial);
-// OBSOLETE       tty_flush (nindy_serial);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE nindy_kill (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE   return;                  /* Ignore attempts to kill target system */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Clean up when a program exits.
-// OBSOLETE 
-// OBSOLETE    The program actually lives on in the remote processor's RAM, and may be
-// OBSOLETE    run again without a download.  Don't leave it full of breakpoint
-// OBSOLETE    instructions.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE nindy_mourn_inferior (void)
-// OBSOLETE {
-// OBSOLETE   remove_breakpoints ();
-// OBSOLETE   unpush_target (&nindy_ops);
-// OBSOLETE   generic_mourn_inferior ();       /* Do all the proper things now */
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Pass the args the way catch_errors wants them.  */
-// OBSOLETE static int
-// OBSOLETE nindy_open_stub (char *arg)
-// OBSOLETE {
-// OBSOLETE   nindy_open (arg, 1);
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nindy_load (char *filename, int from_tty)
-// OBSOLETE {
-// OBSOLETE   asection *s;
-// OBSOLETE   /* Can't do unix style forking on a VMS system, so we'll use bfd to do
-// OBSOLETE      all the work for us
-// OBSOLETE    */
-// OBSOLETE 
-// OBSOLETE   bfd *file = bfd_openr (filename, 0);
-// OBSOLETE   if (!file)
-// OBSOLETE     {
-// OBSOLETE       perror_with_name (filename);
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (!bfd_check_format (file, bfd_object))
-// OBSOLETE     {
-// OBSOLETE       error ("can't prove it's an object file\n");
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   for (s = file->sections; s; s = s->next)
-// OBSOLETE     {
-// OBSOLETE       if (s->flags & SEC_LOAD)
-// OBSOLETE    {
-// OBSOLETE      char *buffer = xmalloc (s->_raw_size);
-// OBSOLETE      bfd_get_section_contents (file, s, buffer, 0, s->_raw_size);
-// OBSOLETE      printf ("Loading section %s, size %x vma %x\n",
-// OBSOLETE              s->name,
-// OBSOLETE              s->_raw_size,
-// OBSOLETE              s->vma);
-// OBSOLETE      ninMemPut (s->vma, buffer, s->_raw_size);
-// OBSOLETE      xfree (buffer);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   bfd_close (file);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE load_stub (char *arg)
-// OBSOLETE {
-// OBSOLETE   target_load (arg, 1);
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* This routine is run as a hook, just before the main command loop is
-// OBSOLETE    entered.  If gdb is configured for the i960, but has not had its
-// OBSOLETE    nindy target specified yet, this will loop prompting the user to do so.
-// OBSOLETE 
-// OBSOLETE    Unlike the loop provided by Intel, we actually let the user get out
-// OBSOLETE    of this with a RETURN.  This is useful when e.g. simply examining
-// OBSOLETE    an i960 object file on the host system.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE nindy_before_main_loop (void)
-// OBSOLETE {
-// OBSOLETE   char ttyname[100];
-// OBSOLETE   char *p, *p2;
-// OBSOLETE 
-// OBSOLETE   while (target_stack->target_ops != &nindy_ops)   /* What is this crap??? */
-// OBSOLETE     {                              /* remote tty not specified yet */
-// OBSOLETE       if (instream == stdin)
-// OBSOLETE    {
-// OBSOLETE      printf_unfiltered ("\nAttach /dev/ttyNN -- specify NN, or \"quit\" to quit:  ");
-// OBSOLETE      gdb_flush (gdb_stdout);
-// OBSOLETE    }
-// OBSOLETE       fgets (ttyname, sizeof (ttyname) - 1, stdin);
-// OBSOLETE 
-// OBSOLETE       /* Strip leading and trailing whitespace */
-// OBSOLETE       for (p = ttyname; isspace (*p); p++)
-// OBSOLETE    {
-// OBSOLETE      ;
-// OBSOLETE    }
-// OBSOLETE       if (*p == '\0')
-// OBSOLETE    {
-// OBSOLETE      return;               /* User just hit spaces or return, wants out */
-// OBSOLETE    }
-// OBSOLETE       for (p2 = p; !isspace (*p2) && (*p2 != '\0'); p2++)
-// OBSOLETE    {
-// OBSOLETE      ;
-// OBSOLETE    }
-// OBSOLETE       *p2 = '\0';
-// OBSOLETE       if (STREQ ("quit", p))
-// OBSOLETE    {
-// OBSOLETE      exit (1);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       if (catch_errors (nindy_open_stub, p, "", RETURN_MASK_ALL))
-// OBSOLETE    {
-// OBSOLETE      /* Now that we have a tty open for talking to the remote machine,
-// OBSOLETE         download the executable file if one was specified.  */
-// OBSOLETE      if (exec_bfd)
-// OBSOLETE        {
-// OBSOLETE          catch_errors (load_stub, bfd_get_filename (exec_bfd), "",
-// OBSOLETE                        RETURN_MASK_ALL);
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Define the target subroutine names */
-// OBSOLETE 
-// OBSOLETE struct target_ops nindy_ops;
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE init_nindy_ops (void)
-// OBSOLETE {
-// OBSOLETE   nindy_ops.to_shortname = "nindy";
-// OBSOLETE   "Remote serial target in i960 NINDY-specific protocol",
-// OBSOLETE     nindy_ops.to_longname = "Use a remote i960 system running NINDY connected by a serial line.\n\
-// OBSOLETE Specify the name of the device the serial line is connected to.\n\
-// OBSOLETE The speed (baud rate), whether to use the old NINDY protocol,\n\
-// OBSOLETE and whether to send a break on startup, are controlled by options\n\
-// OBSOLETE specified when you started GDB.";
-// OBSOLETE   nindy_ops.to_doc = "";
-// OBSOLETE   nindy_ops.to_open = nindy_open;
-// OBSOLETE   nindy_ops.to_close = nindy_close;
-// OBSOLETE   nindy_ops.to_attach = 0;
-// OBSOLETE   nindy_ops.to_post_attach = NULL;
-// OBSOLETE   nindy_ops.to_require_attach = NULL;
-// OBSOLETE   nindy_ops.to_detach = nindy_detach;
-// OBSOLETE   nindy_ops.to_require_detach = NULL;
-// OBSOLETE   nindy_ops.to_resume = nindy_resume;
-// OBSOLETE   nindy_ops.to_wait = nindy_wait;
-// OBSOLETE   nindy_ops.to_post_wait = NULL;
-// OBSOLETE   nindy_ops.to_fetch_registers = nindy_fetch_registers;
-// OBSOLETE   nindy_ops.to_store_registers = nindy_store_registers;
-// OBSOLETE   nindy_ops.to_prepare_to_store = nindy_prepare_to_store;
-// OBSOLETE   nindy_ops.to_xfer_memory = nindy_xfer_inferior_memory;
-// OBSOLETE   nindy_ops.to_files_info = nindy_files_info;
-// OBSOLETE   nindy_ops.to_insert_breakpoint = memory_insert_breakpoint;
-// OBSOLETE   nindy_ops.to_remove_breakpoint = memory_remove_breakpoint;
-// OBSOLETE   nindy_ops.to_terminal_init = 0;
-// OBSOLETE   nindy_ops.to_terminal_inferior = 0;
-// OBSOLETE   nindy_ops.to_terminal_ours_for_output = 0;
-// OBSOLETE   nindy_ops.to_terminal_ours = 0;
-// OBSOLETE   nindy_ops.to_terminal_info = 0;  /* Terminal crud */
-// OBSOLETE   nindy_ops.to_kill = nindy_kill;
-// OBSOLETE   nindy_ops.to_load = nindy_load;
-// OBSOLETE   nindy_ops.to_lookup_symbol = 0;  /* lookup_symbol */
-// OBSOLETE   nindy_ops.to_create_inferior = nindy_create_inferior;
-// OBSOLETE   nindy_ops.to_post_startup_inferior = NULL;
-// OBSOLETE   nindy_ops.to_acknowledge_created_inferior = NULL;
-// OBSOLETE   nindy_ops.to_clone_and_follow_inferior = NULL;
-// OBSOLETE   nindy_ops.to_post_follow_inferior_by_clone = NULL;
-// OBSOLETE   nindy_ops.to_insert_fork_catchpoint = NULL;
-// OBSOLETE   nindy_ops.to_remove_fork_catchpoint = NULL;
-// OBSOLETE   nindy_ops.to_insert_vfork_catchpoint = NULL;
-// OBSOLETE   nindy_ops.to_remove_vfork_catchpoint = NULL;
-// OBSOLETE   nindy_ops.to_has_forked = NULL;
-// OBSOLETE   nindy_ops.to_has_vforked = NULL;
-// OBSOLETE   nindy_ops.to_can_follow_vfork_prior_to_exec = NULL;
-// OBSOLETE   nindy_ops.to_post_follow_vfork = NULL;
-// OBSOLETE   nindy_ops.to_insert_exec_catchpoint = NULL;
-// OBSOLETE   nindy_ops.to_remove_exec_catchpoint = NULL;
-// OBSOLETE   nindy_ops.to_has_execd = NULL;
-// OBSOLETE   nindy_ops.to_reported_exec_events_per_exec_call = NULL;
-// OBSOLETE   nindy_ops.to_has_exited = NULL;
-// OBSOLETE   nindy_ops.to_mourn_inferior = nindy_mourn_inferior;
-// OBSOLETE   nindy_ops.to_can_run = 0;        /* can_run */
-// OBSOLETE   nindy_ops.to_notice_signals = 0; /* notice_signals */
-// OBSOLETE   nindy_ops.to_thread_alive = 0;   /* to_thread_alive */
-// OBSOLETE   nindy_ops.to_stop = 0;   /* to_stop */
-// OBSOLETE   nindy_ops.to_pid_to_exec_file = NULL;
-// OBSOLETE   nindy_ops.to_stratum = process_stratum;
-// OBSOLETE   nindy_ops.DONT_USE = 0;  /* next */
-// OBSOLETE   nindy_ops.to_has_all_memory = 1;
-// OBSOLETE   nindy_ops.to_has_memory = 1;
-// OBSOLETE   nindy_ops.to_has_stack = 1;
-// OBSOLETE   nindy_ops.to_has_registers = 1;
-// OBSOLETE   nindy_ops.to_has_execution = 1;  /* all mem, mem, stack, regs, exec */
-// OBSOLETE   nindy_ops.to_sections = 0;
-// OBSOLETE   nindy_ops.to_sections_end = 0;   /* Section pointers */
-// OBSOLETE   nindy_ops.to_magic = OPS_MAGIC;  /* Always the last thing */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_nindy (void)
-// OBSOLETE {
-// OBSOLETE   init_nindy_ops ();
-// OBSOLETE   add_target (&nindy_ops);
-// OBSOLETE   add_com ("reset", class_obscure, reset_command,
-// OBSOLETE       "Send a 'break' to the remote target system.\n\
-// OBSOLETE Only useful if the target has been equipped with a circuit\n\
-// OBSOLETE to perform a hard reset when a break is detected.");
-// OBSOLETE }
diff --git a/gdb/remote-nrom.c b/gdb/remote-nrom.c
deleted file mode 100644 (file)
index 31336b6..0000000
+++ /dev/null
@@ -1,351 +0,0 @@
-// OBSOLETE /* Remote debugging with the XLNT Designs, Inc (XDI) NetROM.
-// OBSOLETE    Copyright 1990, 1991, 1992, 1995, 1998, 1999, 2000
-// OBSOLETE    Free Software Foundation, Inc.
-// OBSOLETE    Contributed by:
-// OBSOLETE    Roger Moyers 
-// OBSOLETE    XLNT Designs, Inc.
-// OBSOLETE    15050 Avenue of Science, Suite 106
-// OBSOLETE    San Diego, CA  92128
-// OBSOLETE    (619)487-9320
-// OBSOLETE    roger@xlnt.com
-// OBSOLETE    Adapted from work done at Cygnus Support in remote-nindy.c,
-// OBSOLETE    later merged in by Stan Shebs at Cygnus.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "gdbcmd.h"
-// OBSOLETE #include "serial.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE 
-// OBSOLETE /* Default ports used to talk with the NetROM.  */
-// OBSOLETE 
-// OBSOLETE #define DEFAULT_NETROM_LOAD_PORT    1236
-// OBSOLETE #define DEFAULT_NETROM_CONTROL_PORT 1237
-// OBSOLETE 
-// OBSOLETE static void nrom_close (int quitting);
-// OBSOLETE 
-// OBSOLETE /* New commands.  */
-// OBSOLETE 
-// OBSOLETE static void nrom_passthru (char *, int);
-// OBSOLETE 
-// OBSOLETE /* We talk to the NetROM over these sockets.  */
-// OBSOLETE 
-// OBSOLETE static struct serial *load_desc = NULL;
-// OBSOLETE static struct serial *ctrl_desc = NULL;
-// OBSOLETE 
-// OBSOLETE static int load_port = DEFAULT_NETROM_LOAD_PORT;
-// OBSOLETE static int control_port = DEFAULT_NETROM_CONTROL_PORT;
-// OBSOLETE 
-// OBSOLETE static char nrom_hostname[100];
-// OBSOLETE 
-// OBSOLETE /* Forward data declaration. */
-// OBSOLETE 
-// OBSOLETE extern struct target_ops nrom_ops;
-// OBSOLETE 
-// OBSOLETE /* Scan input from the remote system, until STRING is found.  Print chars that
-// OBSOLETE    don't match.  */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE expect (char *string)
-// OBSOLETE {
-// OBSOLETE   char *p = string;
-// OBSOLETE   int c;
-// OBSOLETE 
-// OBSOLETE   immediate_quit++;
-// OBSOLETE 
-// OBSOLETE   while (1)
-// OBSOLETE     {
-// OBSOLETE       c = serial_readchar (ctrl_desc, 5);
-// OBSOLETE 
-// OBSOLETE       if (c == *p++)
-// OBSOLETE    {
-// OBSOLETE      if (*p == '\0')
-// OBSOLETE        {
-// OBSOLETE          immediate_quit--;
-// OBSOLETE          return 0;
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      fputc_unfiltered (c, gdb_stdout);
-// OBSOLETE      p = string;
-// OBSOLETE      if (c == *p)
-// OBSOLETE        p++;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nrom_kill (void)
-// OBSOLETE {
-// OBSOLETE   nrom_close (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static struct serial *
-// OBSOLETE open_socket (char *name, int port)
-// OBSOLETE {
-// OBSOLETE   char sockname[100];
-// OBSOLETE   struct serial *desc;
-// OBSOLETE 
-// OBSOLETE   sprintf (sockname, "%s:%d", name, port);
-// OBSOLETE   desc = serial_open (sockname);
-// OBSOLETE   if (!desc)
-// OBSOLETE     perror_with_name (sockname);
-// OBSOLETE 
-// OBSOLETE   return desc;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE load_cleanup (void)
-// OBSOLETE {
-// OBSOLETE   serial_close (load_desc);
-// OBSOLETE   load_desc = NULL;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Download a file specified in ARGS to the netROM.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nrom_load (char *args, int fromtty)
-// OBSOLETE {
-// OBSOLETE   int fd, rd_amt, fsize;
-// OBSOLETE   bfd *pbfd;
-// OBSOLETE   asection *section;
-// OBSOLETE   char *downloadstring = "download 0\n";
-// OBSOLETE   struct cleanup *old_chain;
-// OBSOLETE 
-// OBSOLETE   /* Tell the netrom to get ready to download. */
-// OBSOLETE   if (serial_write (ctrl_desc, downloadstring, strlen (downloadstring)))
-// OBSOLETE     error ("nrom_load: control_send() of `%s' failed", downloadstring);
-// OBSOLETE 
-// OBSOLETE   expect ("Waiting for a connection...\n");
-// OBSOLETE 
-// OBSOLETE   load_desc = open_socket (nrom_hostname, load_port);
-// OBSOLETE 
-// OBSOLETE   old_chain = make_cleanup (load_cleanup, 0);
-// OBSOLETE 
-// OBSOLETE   pbfd = bfd_openr (args, 0);
-// OBSOLETE 
-// OBSOLETE   if (pbfd)
-// OBSOLETE     {
-// OBSOLETE       make_cleanup (bfd_close, pbfd);
-// OBSOLETE 
-// OBSOLETE       if (!bfd_check_format (pbfd, bfd_object))
-// OBSOLETE    error ("\"%s\": not in executable format: %s",
-// OBSOLETE           args, bfd_errmsg (bfd_get_error ()));
-// OBSOLETE 
-// OBSOLETE       for (section = pbfd->sections; section; section = section->next)
-// OBSOLETE    {
-// OBSOLETE      if (bfd_get_section_flags (pbfd, section) & SEC_ALLOC)
-// OBSOLETE        {
-// OBSOLETE          bfd_vma section_address;
-// OBSOLETE          unsigned long section_size;
-// OBSOLETE          const char *section_name;
-// OBSOLETE 
-// OBSOLETE          section_name = bfd_get_section_name (pbfd, section);
-// OBSOLETE          section_address = bfd_get_section_vma (pbfd, section);
-// OBSOLETE          section_size = bfd_section_size (pbfd, section);
-// OBSOLETE 
-// OBSOLETE          if (bfd_get_section_flags (pbfd, section) & SEC_LOAD)
-// OBSOLETE            {
-// OBSOLETE              file_ptr fptr;
-// OBSOLETE 
-// OBSOLETE              printf_filtered ("[Loading section %s at %x (%d bytes)]\n",
-// OBSOLETE                               section_name, section_address,
-// OBSOLETE                               section_size);
-// OBSOLETE 
-// OBSOLETE              fptr = 0;
-// OBSOLETE 
-// OBSOLETE              while (section_size > 0)
-// OBSOLETE                {
-// OBSOLETE                  char buffer[1024];
-// OBSOLETE                  int count;
-// OBSOLETE 
-// OBSOLETE                  count = min (section_size, 1024);
-// OBSOLETE 
-// OBSOLETE                  bfd_get_section_contents (pbfd, section, buffer, fptr,
-// OBSOLETE                                            count);
-// OBSOLETE 
-// OBSOLETE                  serial_write (load_desc, buffer, count);
-// OBSOLETE                  section_address += count;
-// OBSOLETE                  fptr += count;
-// OBSOLETE                  section_size -= count;
-// OBSOLETE                }
-// OBSOLETE            }
-// OBSOLETE          else
-// OBSOLETE            /* BSS and such */
-// OBSOLETE            {
-// OBSOLETE              printf_filtered ("[section %s: not loading]\n",
-// OBSOLETE                               section_name);
-// OBSOLETE            }
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     error ("\"%s\": Could not open", args);
-// OBSOLETE 
-// OBSOLETE   do_cleanups (old_chain);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Open a connection to the remote NetROM devices.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nrom_open (char *name, int from_tty)
-// OBSOLETE {
-// OBSOLETE   int errn;
-// OBSOLETE 
-// OBSOLETE   if (!name || strchr (name, '/') || strchr (name, ':'))
-// OBSOLETE     error (
-// OBSOLETE        "To open a NetROM connection, you must specify the hostname\n\
-// OBSOLETE or IP address of the NetROM device you wish to use.");
-// OBSOLETE 
-// OBSOLETE   strcpy (nrom_hostname, name);
-// OBSOLETE 
-// OBSOLETE   target_preopen (from_tty);
-// OBSOLETE 
-// OBSOLETE   unpush_target (&nrom_ops);
-// OBSOLETE 
-// OBSOLETE   ctrl_desc = open_socket (nrom_hostname, control_port);
-// OBSOLETE 
-// OBSOLETE   push_target (&nrom_ops);
-// OBSOLETE 
-// OBSOLETE   if (from_tty)
-// OBSOLETE     printf_filtered ("Connected to NetROM device \"%s\"\n", nrom_hostname);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Close out all files and local state before this target loses control. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nrom_close (int quitting)
-// OBSOLETE {
-// OBSOLETE   if (load_desc)
-// OBSOLETE     serial_close (load_desc);
-// OBSOLETE   if (ctrl_desc)
-// OBSOLETE     serial_close (ctrl_desc);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Pass arguments directly to the NetROM. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nrom_passthru (char *args, int fromtty)
-// OBSOLETE {
-// OBSOLETE   char buf[1024];
-// OBSOLETE 
-// OBSOLETE   sprintf (buf, "%s\n", args);
-// OBSOLETE   if (serial_write (ctrl_desc, buf, strlen (buf)))
-// OBSOLETE     error ("nrom_reset: control_send() of `%s'failed", args);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE nrom_mourn (void)
-// OBSOLETE {
-// OBSOLETE   unpush_target (&nrom_ops);
-// OBSOLETE   generic_mourn_inferior ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Define the target vector. */
-// OBSOLETE 
-// OBSOLETE struct target_ops nrom_ops;
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE init_nrom_ops (void)
-// OBSOLETE {
-// OBSOLETE   nrom_ops.to_shortname = "nrom";
-// OBSOLETE   nrom_ops.to_longname = "Remote XDI `NetROM' target";
-// OBSOLETE   nrom_ops.to_doc = "Remote debug using a NetROM over Ethernet";
-// OBSOLETE   nrom_ops.to_open = nrom_open;
-// OBSOLETE   nrom_ops.to_close = nrom_close;
-// OBSOLETE   nrom_ops.to_attach = NULL;
-// OBSOLETE   nrom_ops.to_post_attach = NULL;
-// OBSOLETE   nrom_ops.to_require_attach = NULL;
-// OBSOLETE   nrom_ops.to_detach = NULL;
-// OBSOLETE   nrom_ops.to_require_detach = NULL;
-// OBSOLETE   nrom_ops.to_resume = NULL;
-// OBSOLETE   nrom_ops.to_wait = NULL;
-// OBSOLETE   nrom_ops.to_post_wait = NULL;
-// OBSOLETE   nrom_ops.to_fetch_registers = NULL;
-// OBSOLETE   nrom_ops.to_store_registers = NULL;
-// OBSOLETE   nrom_ops.to_prepare_to_store = NULL;
-// OBSOLETE   nrom_ops.to_xfer_memory = NULL;
-// OBSOLETE   nrom_ops.to_files_info = NULL;
-// OBSOLETE   nrom_ops.to_insert_breakpoint = NULL;
-// OBSOLETE   nrom_ops.to_remove_breakpoint = NULL;
-// OBSOLETE   nrom_ops.to_terminal_init = NULL;
-// OBSOLETE   nrom_ops.to_terminal_inferior = NULL;
-// OBSOLETE   nrom_ops.to_terminal_ours_for_output = NULL;
-// OBSOLETE   nrom_ops.to_terminal_ours = NULL;
-// OBSOLETE   nrom_ops.to_terminal_info = NULL;
-// OBSOLETE   nrom_ops.to_kill = nrom_kill;
-// OBSOLETE   nrom_ops.to_load = nrom_load;
-// OBSOLETE   nrom_ops.to_lookup_symbol = NULL;
-// OBSOLETE   nrom_ops.to_create_inferior = NULL;
-// OBSOLETE   nrom_ops.to_post_startup_inferior = NULL;
-// OBSOLETE   nrom_ops.to_acknowledge_created_inferior = NULL;
-// OBSOLETE   nrom_ops.to_clone_and_follow_inferior = NULL;
-// OBSOLETE   nrom_ops.to_post_follow_inferior_by_clone = NULL;
-// OBSOLETE   nrom_ops.to_insert_fork_catchpoint = NULL;
-// OBSOLETE   nrom_ops.to_remove_fork_catchpoint = NULL;
-// OBSOLETE   nrom_ops.to_insert_vfork_catchpoint = NULL;
-// OBSOLETE   nrom_ops.to_remove_vfork_catchpoint = NULL;
-// OBSOLETE   nrom_ops.to_has_forked = NULL;
-// OBSOLETE   nrom_ops.to_has_vforked = NULL;
-// OBSOLETE   nrom_ops.to_can_follow_vfork_prior_to_exec = NULL;
-// OBSOLETE   nrom_ops.to_post_follow_vfork = NULL;
-// OBSOLETE   nrom_ops.to_insert_exec_catchpoint = NULL;
-// OBSOLETE   nrom_ops.to_remove_exec_catchpoint = NULL;
-// OBSOLETE   nrom_ops.to_has_execd = NULL;
-// OBSOLETE   nrom_ops.to_reported_exec_events_per_exec_call = NULL;
-// OBSOLETE   nrom_ops.to_has_exited = NULL;
-// OBSOLETE   nrom_ops.to_mourn_inferior = nrom_mourn;
-// OBSOLETE   nrom_ops.to_can_run = NULL;
-// OBSOLETE   nrom_ops.to_notice_signals = 0;
-// OBSOLETE   nrom_ops.to_thread_alive = 0;
-// OBSOLETE   nrom_ops.to_stop = 0;
-// OBSOLETE   nrom_ops.to_pid_to_exec_file = NULL;
-// OBSOLETE   nrom_ops.to_stratum = download_stratum;
-// OBSOLETE   nrom_ops.DONT_USE = NULL;
-// OBSOLETE   nrom_ops.to_has_all_memory = 1;
-// OBSOLETE   nrom_ops.to_has_memory = 1;
-// OBSOLETE   nrom_ops.to_has_stack = 1;
-// OBSOLETE   nrom_ops.to_has_registers = 1;
-// OBSOLETE   nrom_ops.to_has_execution = 0;
-// OBSOLETE   nrom_ops.to_sections = NULL;
-// OBSOLETE   nrom_ops.to_sections_end = NULL;
-// OBSOLETE   nrom_ops.to_magic = OPS_MAGIC;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_remote_nrom (void)
-// OBSOLETE {
-// OBSOLETE   init_nrom_ops ();
-// OBSOLETE   add_target (&nrom_ops);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set (
-// OBSOLETE   add_set_cmd ("nrom_load_port", no_class, var_zinteger, (char *) &load_port,
-// OBSOLETE           "Set the port to use for NetROM downloads\n", &setlist),
-// OBSOLETE                  &showlist);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set (
-// OBSOLETE                  add_set_cmd ("nrom_control_port", no_class, var_zinteger, (char *) &control_port,
-// OBSOLETE        "Set the port to use for NetROM debugger services\n", &setlist),
-// OBSOLETE                  &showlist);
-// OBSOLETE 
-// OBSOLETE   add_cmd ("nrom", no_class, nrom_passthru,
-// OBSOLETE       "Pass arguments as command to NetROM",
-// OBSOLETE       &cmdlist);
-// OBSOLETE }
diff --git a/gdb/remote-os9k.c b/gdb/remote-os9k.c
deleted file mode 100644 (file)
index 5a7dd34..0000000
+++ /dev/null
@@ -1,1234 +0,0 @@
-// OBSOLETE /* Remote debugging interface for boot monitors, for GDB.
-// OBSOLETE 
-// OBSOLETE    Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999,
-// OBSOLETE    2000, 2001, 2002 Free Software Foundation, Inc.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE /* This file was derived from remote-eb.c, which did a similar job, but for
-// OBSOLETE    an AMD-29K running EBMON.  That file was in turn derived from remote.c
-// OBSOLETE    as mentioned in the following comment (left in for comic relief):
-// OBSOLETE 
-// OBSOLETE    "This is like remote.c but is for a different situation--
-// OBSOLETE    having a PC running os9000 hook up with a unix machine with
-// OBSOLETE    a serial line, and running ctty com2 on the PC. os9000 has a debug
-// OBSOLETE    monitor called ROMBUG running.  Not to mention that the PC
-// OBSOLETE    has PC/NFS, so it can access the same executables that gdb can,
-// OBSOLETE    over the net in real time."
-// OBSOLETE 
-// OBSOLETE    In reality, this module talks to a debug monitor called 'ROMBUG', which
-// OBSOLETE    We communicate with ROMBUG via a direct serial line, the network version
-// OBSOLETE    of ROMBUG is not available yet.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE /* FIXME This file needs to be rewritten if it's to work again, either
-// OBSOLETE    to self-contained or to use the new monitor interface.  */
-// OBSOLETE 
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE #include <sys/types.h>
-// OBSOLETE #include "command.h"
-// OBSOLETE #include "serial.h"
-// OBSOLETE #include "monitor.h"
-// OBSOLETE #include "remote-utils.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "symfile.h"
-// OBSOLETE #include "objfiles.h"
-// OBSOLETE #include "gdb-stabs.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE struct cmd_list_element *showlist;
-// OBSOLETE extern struct target_ops rombug_ops;       /* Forward declaration */
-// OBSOLETE extern struct monitor_ops rombug_cmds;     /* Forward declaration */
-// OBSOLETE extern struct cmd_list_element *setlist;
-// OBSOLETE extern struct cmd_list_element *unsetlist;
-// OBSOLETE extern int attach_flag;
-// OBSOLETE 
-// OBSOLETE static void rombug_close ();
-// OBSOLETE static void rombug_fetch_register ();
-// OBSOLETE static void rombug_fetch_registers ();
-// OBSOLETE static void rombug_store_register ();
-// OBSOLETE #if 0
-// OBSOLETE static int sr_get_debug ();        /* flag set by "set remotedebug" */
-// OBSOLETE #endif
-// OBSOLETE static int hashmark;               /* flag set by "set hash" */
-// OBSOLETE static int rombug_is_open = 0;
-// OBSOLETE 
-// OBSOLETE /* FIXME: Replace with sr_get_debug ().  */
-// OBSOLETE #define LOG_FILE "monitor.log"
-// OBSOLETE FILE *log_file;
-// OBSOLETE static int monitor_log = 0;
-// OBSOLETE static int tty_xon = 0;
-// OBSOLETE static int tty_xoff = 0;
-// OBSOLETE 
-// OBSOLETE static int timeout = 10;
-// OBSOLETE static int is_trace_mode = 0;
-// OBSOLETE /* Descriptor for I/O to remote machine.  Initialize it to NULL */
-// OBSOLETE static struct serial *monitor_desc = NULL;
-// OBSOLETE 
-// OBSOLETE static CORE_ADDR bufaddr = 0;
-// OBSOLETE static int buflen = 0;
-// OBSOLETE static char readbuf[16];
-// OBSOLETE 
-// OBSOLETE /* Send data to monitor.  Works just like printf. */
-// OBSOLETE static void
-// OBSOLETE printf_monitor (char *pattern,...)
-// OBSOLETE {
-// OBSOLETE   va_list args;
-// OBSOLETE   char buf[200];
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   va_start (args, pattern);
-// OBSOLETE 
-// OBSOLETE   vsprintf (buf, pattern, args);
-// OBSOLETE   va_end (args);
-// OBSOLETE 
-// OBSOLETE   if (serial_write (monitor_desc, buf, strlen (buf)))
-// OBSOLETE     fprintf_unfiltered (gdb_stderr, "serial_write failed: %s\n",
-// OBSOLETE                    safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Read a character from the remote system, doing all the fancy timeout stuff */
-// OBSOLETE static int
-// OBSOLETE readchar (int timeout)
-// OBSOLETE {
-// OBSOLETE   int c;
-// OBSOLETE 
-// OBSOLETE   c = serial_readchar (monitor_desc, timeout);
-// OBSOLETE 
-// OBSOLETE   if (sr_get_debug ())
-// OBSOLETE     putchar (c & 0x7f);
-// OBSOLETE 
-// OBSOLETE   if (monitor_log && isascii (c))
-// OBSOLETE     putc (c & 0x7f, log_file);
-// OBSOLETE 
-// OBSOLETE   if (c >= 0)
-// OBSOLETE     return c & 0x7f;
-// OBSOLETE 
-// OBSOLETE   if (c == SERIAL_TIMEOUT)
-// OBSOLETE     {
-// OBSOLETE       if (timeout == 0)
-// OBSOLETE    return c;               /* Polls shouldn't generate timeout errors */
-// OBSOLETE 
-// OBSOLETE       error ("Timeout reading from remote system.");
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   perror_with_name ("remote-monitor");
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Scan input from the remote system, until STRING is found.  If DISCARD is
-// OBSOLETE    non-zero, then discard non-matching input, else print it out.
-// OBSOLETE    Let the user break out immediately.  */
-// OBSOLETE static void
-// OBSOLETE expect (char *string, int discard)
-// OBSOLETE {
-// OBSOLETE   char *p = string;
-// OBSOLETE   int c;
-// OBSOLETE 
-// OBSOLETE   if (sr_get_debug ())
-// OBSOLETE     printf ("Expecting \"%s\"\n", string);
-// OBSOLETE 
-// OBSOLETE   immediate_quit++;
-// OBSOLETE   while (1)
-// OBSOLETE     {
-// OBSOLETE       c = readchar (timeout);
-// OBSOLETE       if (!isascii (c))
-// OBSOLETE    continue;
-// OBSOLETE       if (c == *p++)
-// OBSOLETE    {
-// OBSOLETE      if (*p == '\0')
-// OBSOLETE        {
-// OBSOLETE          immediate_quit--;
-// OBSOLETE          if (sr_get_debug ())
-// OBSOLETE            printf ("\nMatched\n");
-// OBSOLETE          return;
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      if (!discard)
-// OBSOLETE        {
-// OBSOLETE          fwrite (string, 1, (p - 1) - string, stdout);
-// OBSOLETE          putchar ((char) c);
-// OBSOLETE          fflush (stdout);
-// OBSOLETE        }
-// OBSOLETE      p = string;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Keep discarding input until we see the ROMBUG prompt.
-// OBSOLETE 
-// OBSOLETE    The convention for dealing with the prompt is that you
-// OBSOLETE    o give your command
-// OBSOLETE    o *then* wait for the prompt.
-// OBSOLETE 
-// OBSOLETE    Thus the last thing that a procedure does with the serial line
-// OBSOLETE    will be an expect_prompt().  Exception:  rombug_resume does not
-// OBSOLETE    wait for the prompt, because the terminal is being handed over
-// OBSOLETE    to the inferior.  However, the next thing which happens after that
-// OBSOLETE    is a rombug_wait which does wait for the prompt.
-// OBSOLETE    Note that this includes abnormal exit, e.g. error().  This is
-// OBSOLETE    necessary to prevent getting into states from which we can't
-// OBSOLETE    recover.  */
-// OBSOLETE static void
-// OBSOLETE expect_prompt (int discard)
-// OBSOLETE {
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     /* This is a convenient place to do this.  The idea is to do it often
-// OBSOLETE        enough that we never lose much data if we terminate abnormally.  */
-// OBSOLETE     fflush (log_file);
-// OBSOLETE 
-// OBSOLETE   if (is_trace_mode)
-// OBSOLETE     {
-// OBSOLETE       expect ("trace", discard);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       expect (PROMPT, discard);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Get a hex digit from the remote system & return its value.
-// OBSOLETE    If ignore_space is nonzero, ignore spaces (not newline, tab, etc).  */
-// OBSOLETE static int
-// OBSOLETE get_hex_digit (int ignore_space)
-// OBSOLETE {
-// OBSOLETE   int ch;
-// OBSOLETE   while (1)
-// OBSOLETE     {
-// OBSOLETE       ch = readchar (timeout);
-// OBSOLETE       if (ch >= '0' && ch <= '9')
-// OBSOLETE    return ch - '0';
-// OBSOLETE       else if (ch >= 'A' && ch <= 'F')
-// OBSOLETE    return ch - 'A' + 10;
-// OBSOLETE       else if (ch >= 'a' && ch <= 'f')
-// OBSOLETE    return ch - 'a' + 10;
-// OBSOLETE       else if (ch == ' ' && ignore_space)
-// OBSOLETE    ;
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      expect_prompt (1);
-// OBSOLETE      error ("Invalid hex digit from remote system.");
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Get a byte from monitor and put it in *BYT.  Accept any number
-// OBSOLETE    leading spaces.  */
-// OBSOLETE static void
-// OBSOLETE get_hex_byte (char *byt)
-// OBSOLETE {
-// OBSOLETE   int val;
-// OBSOLETE 
-// OBSOLETE   val = get_hex_digit (1) << 4;
-// OBSOLETE   val |= get_hex_digit (0);
-// OBSOLETE   *byt = val;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Get N 32-bit words from remote, each preceded by a space,
-// OBSOLETE    and put them in registers starting at REGNO.  */
-// OBSOLETE static void
-// OBSOLETE get_hex_regs (int n, int regno)
-// OBSOLETE {
-// OBSOLETE   long val;
-// OBSOLETE   int i;
-// OBSOLETE   unsigned char b;
-// OBSOLETE 
-// OBSOLETE   for (i = 0; i < n; i++)
-// OBSOLETE     {
-// OBSOLETE       int j;
-// OBSOLETE 
-// OBSOLETE       val = 0;
-// OBSOLETE       for (j = 0; j < 4; j++)
-// OBSOLETE    {
-// OBSOLETE      get_hex_byte (&b);
-// OBSOLETE      if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
-// OBSOLETE        val = (val << 8) + b;
-// OBSOLETE      else
-// OBSOLETE        val = val + (b << (j * 8));
-// OBSOLETE    }
-// OBSOLETE       supply_register (regno++, (char *) &val);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* This is called not only when we first attach, but also when the
-// OBSOLETE    user types "run" after having attached.  */
-// OBSOLETE static void
-// OBSOLETE rombug_create_inferior (char *execfile, char *args, char **env)
-// OBSOLETE {
-// OBSOLETE   int entry_pt;
-// OBSOLETE 
-// OBSOLETE   if (args && *args)
-// OBSOLETE     error ("Can't pass arguments to remote ROMBUG process");
-// OBSOLETE 
-// OBSOLETE   if (execfile == 0 || exec_bfd == 0)
-// OBSOLETE     error ("No executable file specified");
-// OBSOLETE 
-// OBSOLETE   entry_pt = (int) bfd_get_start_address (exec_bfd);
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fputs ("\nIn Create_inferior()", log_file);
-// OBSOLETE 
-// OBSOLETE 
-// OBSOLETE /* The "process" (board) is already stopped awaiting our commands, and
-// OBSOLETE    the program is already downloaded.  We just set its PC and go.  */
-// OBSOLETE 
-// OBSOLETE   init_wait_for_inferior ();
-// OBSOLETE   proceed ((CORE_ADDR) entry_pt, TARGET_SIGNAL_DEFAULT, 0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Open a connection to a remote debugger.
-// OBSOLETE    NAME is the filename used for communication.  */
-// OBSOLETE 
-// OBSOLETE static char dev_name[100];
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_open (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE   if (args == NULL)
-// OBSOLETE     error ("Use `target RomBug DEVICE-NAME' to use a serial port, or \n\
-// OBSOLETE `target RomBug HOST-NAME:PORT-NUMBER' to use a network connection.");
-// OBSOLETE 
-// OBSOLETE   target_preopen (from_tty);
-// OBSOLETE 
-// OBSOLETE   if (rombug_is_open)
-// OBSOLETE     unpush_target (&rombug_ops);
-// OBSOLETE 
-// OBSOLETE   strcpy (dev_name, args);
-// OBSOLETE   monitor_desc = serial_open (dev_name);
-// OBSOLETE   if (monitor_desc == NULL)
-// OBSOLETE     perror_with_name (dev_name);
-// OBSOLETE 
-// OBSOLETE   /* if baud rate is set by 'set remotebaud' */
-// OBSOLETE   if (serial_setbaudrate (monitor_desc, sr_get_baud_rate ()))
-// OBSOLETE     {
-// OBSOLETE       serial_close (monitor_desc);
-// OBSOLETE       perror_with_name ("RomBug");
-// OBSOLETE     }
-// OBSOLETE   serial_raw (monitor_desc);
-// OBSOLETE   if (tty_xon || tty_xoff)
-// OBSOLETE     {
-// OBSOLETE       struct hardware_ttystate
-// OBSOLETE    {
-// OBSOLETE      struct termios t;
-// OBSOLETE    }
-// OBSOLETE        *tty_s;
-// OBSOLETE 
-// OBSOLETE       tty_s = (struct hardware_ttystate *) serial_get_tty_state (monitor_desc);
-// OBSOLETE       if (tty_xon)
-// OBSOLETE    tty_s->t.c_iflag |= IXON;
-// OBSOLETE       if (tty_xoff)
-// OBSOLETE    tty_s->t.c_iflag |= IXOFF;
-// OBSOLETE       serial_set_tty_state (monitor_desc, (serial_ttystate) tty_s);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   rombug_is_open = 1;
-// OBSOLETE 
-// OBSOLETE   log_file = fopen (LOG_FILE, "w");
-// OBSOLETE   if (log_file == NULL)
-// OBSOLETE     perror_with_name (LOG_FILE);
-// OBSOLETE 
-// OBSOLETE   push_monitor (&rombug_cmds);
-// OBSOLETE   printf_monitor ("\r");   /* CR wakes up monitor */
-// OBSOLETE   expect_prompt (1);
-// OBSOLETE   push_target (&rombug_ops);
-// OBSOLETE   attach_flag = 1;
-// OBSOLETE 
-// OBSOLETE   if (from_tty)
-// OBSOLETE     printf ("Remote %s connected to %s\n", target_shortname,
-// OBSOLETE        dev_name);
-// OBSOLETE 
-// OBSOLETE   rombug_fetch_registers ();
-// OBSOLETE 
-// OBSOLETE   printf_monitor ("ov e \r");
-// OBSOLETE   expect_prompt (1);
-// OBSOLETE   bufaddr = 0;
-// OBSOLETE   buflen = 0;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Close out all files and local state before this target loses control.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_close (int quitting)
-// OBSOLETE {
-// OBSOLETE   if (rombug_is_open)
-// OBSOLETE     {
-// OBSOLETE       serial_close (monitor_desc);
-// OBSOLETE       monitor_desc = NULL;
-// OBSOLETE       rombug_is_open = 0;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (log_file)
-// OBSOLETE     {
-// OBSOLETE       if (ferror (log_file))
-// OBSOLETE    fprintf_unfiltered (gdb_stderr, "Error writing log file.\n");
-// OBSOLETE       if (fclose (log_file) != 0)
-// OBSOLETE    fprintf_unfiltered (gdb_stderr, "Error closing log file.\n");
-// OBSOLETE       log_file = 0;
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE int
-// OBSOLETE rombug_link (char *mod_name, CORE_ADDR *text_reloc)
-// OBSOLETE {
-// OBSOLETE   int i, j;
-// OBSOLETE   unsigned long val;
-// OBSOLETE   unsigned char b;
-// OBSOLETE 
-// OBSOLETE   printf_monitor ("l %s \r", mod_name);
-// OBSOLETE   expect_prompt (1);
-// OBSOLETE   printf_monitor (".r \r");
-// OBSOLETE   expect (REG_DELIM, 1);
-// OBSOLETE   for (i = 0; i <= 7; i++)
-// OBSOLETE     {
-// OBSOLETE       val = 0;
-// OBSOLETE       for (j = 0; j < 4; j++)
-// OBSOLETE    {
-// OBSOLETE      get_hex_byte (&b);
-// OBSOLETE      val = (val << 8) + b;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   expect_prompt (1);
-// OBSOLETE   *text_reloc = val;
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Terminate the open connection to the remote debugger.
-// OBSOLETE    Use this when you want to detach and do something else
-// OBSOLETE    with your gdb.  */
-// OBSOLETE static void
-// OBSOLETE rombug_detach (int from_tty)
-// OBSOLETE {
-// OBSOLETE   if (attach_flag)
-// OBSOLETE     {
-// OBSOLETE       printf_monitor (GO_CMD);
-// OBSOLETE       attach_flag = 0;
-// OBSOLETE     }
-// OBSOLETE   pop_target ();           /* calls rombug_close to do the real work */
-// OBSOLETE   if (from_tty)
-// OBSOLETE     printf ("Ending remote %s debugging\n", target_shortname);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Tell the remote machine to resume.
-// OBSOLETE  */
-// OBSOLETE static void
-// OBSOLETE rombug_resume (ptid_t ptid, int step, enum target_signal sig)
-// OBSOLETE {
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fprintf (log_file, "\nIn Resume (step=%d, sig=%d)\n", step, sig);
-// OBSOLETE 
-// OBSOLETE   if (step)
-// OBSOLETE     {
-// OBSOLETE       is_trace_mode = 1;
-// OBSOLETE       printf_monitor (STEP_CMD);
-// OBSOLETE       /* wait for the echo.  **
-// OBSOLETE          expect (STEP_CMD, 1);
-// OBSOLETE        */
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       printf_monitor (GO_CMD);
-// OBSOLETE       /* swallow the echo.  **
-// OBSOLETE          expect (GO_CMD, 1);
-// OBSOLETE        */
-// OBSOLETE     }
-// OBSOLETE   bufaddr = 0;
-// OBSOLETE   buflen = 0;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Wait until the remote machine stops, then return,
-// OBSOLETE  * storing status in status just as `wait' would.
-// OBSOLETE  */
-// OBSOLETE 
-// OBSOLETE static ptid *
-// OBSOLETE rombug_wait (ptid_t ptid, struct target_waitstatus *status)
-// OBSOLETE {
-// OBSOLETE   int old_timeout = timeout;
-// OBSOLETE   struct section_offsets *offs;
-// OBSOLETE   CORE_ADDR addr, pc;
-// OBSOLETE   struct obj_section *obj_sec;
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fputs ("\nIn wait ()", log_file);
-// OBSOLETE 
-// OBSOLETE   status->kind = TARGET_WAITKIND_EXITED;
-// OBSOLETE   status->value.integer = 0;
-// OBSOLETE 
-// OBSOLETE   timeout = -1;                    /* Don't time out -- user program is running. */
-// OBSOLETE   expect ("eax:", 0);              /* output any message before register display */
-// OBSOLETE   expect_prompt (1);               /* Wait for prompt, outputting extraneous text */
-// OBSOLETE 
-// OBSOLETE   status->kind = TARGET_WAITKIND_STOPPED;
-// OBSOLETE   status->value.sig = TARGET_SIGNAL_TRAP;
-// OBSOLETE   timeout = old_timeout;
-// OBSOLETE   rombug_fetch_registers ();
-// OBSOLETE   bufaddr = 0;
-// OBSOLETE   buflen = 0;
-// OBSOLETE   pc = read_register (PC_REGNUM);
-// OBSOLETE   addr = read_register (DATABASE_REG);
-// OBSOLETE   obj_sec = find_pc_section (pc);
-// OBSOLETE   if (obj_sec != NULL)
-// OBSOLETE     {
-// OBSOLETE       if (obj_sec->objfile != symfile_objfile)
-// OBSOLETE    new_symfile_objfile (obj_sec->objfile, 1, 0);
-// OBSOLETE       offs = (struct section_offsets *) alloca (SIZEOF_SECTION_OFFSETS);
-// OBSOLETE       memcpy (offs, symfile_objfile->section_offsets, SIZEOF_SECTION_OFFSETS);
-// OBSOLETE       offs->offsets[SECT_OFF_DATA (symfile_objfile)]  = addr;
-// OBSOLETE       offs->offsets[SECT_OFF_BSS (symfile_objfile)]  = addr;
-// OBSOLETE 
-// OBSOLETE       objfile_relocate (symfile_objfile, offs);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   return inferior_ptid;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Return the name of register number regno in the form input and output by
-// OBSOLETE    monitor.  Currently, register_names just happens to contain exactly what
-// OBSOLETE    monitor wants.  Lets take advantage of that just as long as possible! */
-// OBSOLETE 
-// OBSOLETE static char *
-// OBSOLETE get_reg_name (int regno)
-// OBSOLETE {
-// OBSOLETE   static char buf[50];
-// OBSOLETE   char *p;
-// OBSOLETE   char *b;
-// OBSOLETE 
-// OBSOLETE   b = buf;
-// OBSOLETE 
-// OBSOLETE   if (regno < 0)
-// OBSOLETE     return ("");
-// OBSOLETE /*
-// OBSOLETE    for (p = REGISTER_NAME (regno); *p; p++)
-// OBSOLETE    *b++ = toupper(*p);
-// OBSOLETE    *b = '\000';
-// OBSOLETE  */
-// OBSOLETE   p = (char *) REGISTER_NAME (regno);
-// OBSOLETE   return p;
-// OBSOLETE /*
-// OBSOLETE    return buf;
-// OBSOLETE  */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* read the remote registers into the block regs.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_fetch_registers (void)
-// OBSOLETE {
-// OBSOLETE   int regno, j, i;
-// OBSOLETE   long val;
-// OBSOLETE   unsigned char b;
-// OBSOLETE 
-// OBSOLETE   printf_monitor (GET_REG);
-// OBSOLETE   expect ("eax:", 1);
-// OBSOLETE   expect ("\n", 1);
-// OBSOLETE   get_hex_regs (1, 0);
-// OBSOLETE   get_hex_regs (1, 3);
-// OBSOLETE   get_hex_regs (1, 1);
-// OBSOLETE   get_hex_regs (1, 2);
-// OBSOLETE   get_hex_regs (1, 6);
-// OBSOLETE   get_hex_regs (1, 7);
-// OBSOLETE   get_hex_regs (1, 5);
-// OBSOLETE   get_hex_regs (1, 4);
-// OBSOLETE   for (regno = 8; regno <= 15; regno++)
-// OBSOLETE     {
-// OBSOLETE       expect (REG_DELIM, 1);
-// OBSOLETE       if (regno >= 8 && regno <= 13)
-// OBSOLETE    {
-// OBSOLETE      val = 0;
-// OBSOLETE      for (j = 0; j < 2; j++)
-// OBSOLETE        {
-// OBSOLETE          get_hex_byte (&b);
-// OBSOLETE          if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
-// OBSOLETE            val = (val << 8) + b;
-// OBSOLETE          else
-// OBSOLETE            val = val + (b << (j * 8));
-// OBSOLETE        }
-// OBSOLETE 
-// OBSOLETE      if (regno == 8)
-// OBSOLETE        i = 10;
-// OBSOLETE      if (regno >= 9 && regno <= 12)
-// OBSOLETE        i = regno + 3;
-// OBSOLETE      if (regno == 13)
-// OBSOLETE        i = 11;
-// OBSOLETE      supply_register (i, (char *) &val);
-// OBSOLETE    }
-// OBSOLETE       else if (regno == 14)
-// OBSOLETE    {
-// OBSOLETE      get_hex_regs (1, PC_REGNUM);
-// OBSOLETE    }
-// OBSOLETE       else if (regno == 15)
-// OBSOLETE    {
-// OBSOLETE      get_hex_regs (1, 9);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      val = 0;
-// OBSOLETE      supply_register (regno, (char *) &val);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE   is_trace_mode = 0;
-// OBSOLETE   expect_prompt (1);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Fetch register REGNO, or all registers if REGNO is -1.
-// OBSOLETE    Returns errno value.  */
-// OBSOLETE static void
-// OBSOLETE rombug_fetch_register (int regno)
-// OBSOLETE {
-// OBSOLETE   int val, j;
-// OBSOLETE   unsigned char b;
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     {
-// OBSOLETE       fprintf (log_file, "\nIn Fetch Register (reg=%s)\n", get_reg_name (regno));
-// OBSOLETE       fflush (log_file);
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (regno < 0)
-// OBSOLETE     {
-// OBSOLETE       rombug_fetch_registers ();
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       char *name = get_reg_name (regno);
-// OBSOLETE       printf_monitor (GET_REG);
-// OBSOLETE       if (regno >= 10 && regno <= 15)
-// OBSOLETE    {
-// OBSOLETE      expect ("\n", 1);
-// OBSOLETE      expect ("\n", 1);
-// OBSOLETE      expect (name, 1);
-// OBSOLETE      expect (REG_DELIM, 1);
-// OBSOLETE      val = 0;
-// OBSOLETE      for (j = 0; j < 2; j++)
-// OBSOLETE        {
-// OBSOLETE          get_hex_byte (&b);
-// OBSOLETE          if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
-// OBSOLETE            val = (val << 8) + b;
-// OBSOLETE          else
-// OBSOLETE            val = val + (b << (j * 8));
-// OBSOLETE        }
-// OBSOLETE      supply_register (regno, (char *) &val);
-// OBSOLETE    }
-// OBSOLETE       else if (regno == 8 || regno == 9)
-// OBSOLETE    {
-// OBSOLETE      expect ("\n", 1);
-// OBSOLETE      expect ("\n", 1);
-// OBSOLETE      expect ("\n", 1);
-// OBSOLETE      expect (name, 1);
-// OBSOLETE      expect (REG_DELIM, 1);
-// OBSOLETE      get_hex_regs (1, regno);
-// OBSOLETE    }
-// OBSOLETE       else
-// OBSOLETE    {
-// OBSOLETE      expect (name, 1);
-// OBSOLETE      expect (REG_DELIM, 1);
-// OBSOLETE      expect ("\n", 1);
-// OBSOLETE      get_hex_regs (1, 0);
-// OBSOLETE      get_hex_regs (1, 3);
-// OBSOLETE      get_hex_regs (1, 1);
-// OBSOLETE      get_hex_regs (1, 2);
-// OBSOLETE      get_hex_regs (1, 6);
-// OBSOLETE      get_hex_regs (1, 7);
-// OBSOLETE      get_hex_regs (1, 5);
-// OBSOLETE      get_hex_regs (1, 4);
-// OBSOLETE    }
-// OBSOLETE       expect_prompt (1);
-// OBSOLETE     }
-// OBSOLETE   return;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store the remote registers from the contents of the block REGS.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_store_registers (void)
-// OBSOLETE {
-// OBSOLETE   int regno;
-// OBSOLETE 
-// OBSOLETE   for (regno = 0; regno <= PC_REGNUM; regno++)
-// OBSOLETE     rombug_store_register (regno);
-// OBSOLETE 
-// OBSOLETE   registers_changed ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store register REGNO, or all if REGNO == 0.
-// OBSOLETE    return errno value.  */
-// OBSOLETE static void
-// OBSOLETE rombug_store_register (int regno)
-// OBSOLETE {
-// OBSOLETE   char *name;
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fprintf (log_file, "\nIn Store_register (regno=%d)\n", regno);
-// OBSOLETE 
-// OBSOLETE   if (regno == -1)
-// OBSOLETE     rombug_store_registers ();
-// OBSOLETE   else
-// OBSOLETE     {
-// OBSOLETE       if (sr_get_debug ())
-// OBSOLETE    printf ("Setting register %s to 0x%x\n", get_reg_name (regno), read_register (regno));
-// OBSOLETE 
-// OBSOLETE       name = get_reg_name (regno);
-// OBSOLETE       if (name == 0)
-// OBSOLETE    return;
-// OBSOLETE       printf_monitor (SET_REG, name, read_register (regno));
-// OBSOLETE 
-// OBSOLETE       is_trace_mode = 0;
-// OBSOLETE       expect_prompt (1);
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Get ready to modify the registers array.  On machines which store
-// OBSOLETE    individual registers, this doesn't need to do anything.  On machines
-// OBSOLETE    which store all the registers in one fell swoop, this makes sure
-// OBSOLETE    that registers contains all the registers from the program being
-// OBSOLETE    debugged.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_prepare_to_store (void)
-// OBSOLETE {
-// OBSOLETE   /* Do nothing, since we can store individual regs */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_files_info (void)
-// OBSOLETE {
-// OBSOLETE   printf ("\tAttached to %s at %d baud.\n",
-// OBSOLETE      dev_name, sr_get_baud_rate ());
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Copy LEN bytes of data from debugger memory at MYADDR
-// OBSOLETE    to inferior's memory at MEMADDR.  Returns length moved.  */
-// OBSOLETE static int
-// OBSOLETE rombug_write_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE   char buf[10];
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fprintf (log_file, "\nIn Write_inferior_memory (memaddr=%x, len=%d)\n", memaddr, len);
-// OBSOLETE 
-// OBSOLETE   printf_monitor (MEM_SET_CMD, memaddr);
-// OBSOLETE   for (i = 0; i < len; i++)
-// OBSOLETE     {
-// OBSOLETE       expect (CMD_DELIM, 1);
-// OBSOLETE       printf_monitor ("%x \r", myaddr[i]);
-// OBSOLETE       if (sr_get_debug ())
-// OBSOLETE    printf ("\nSet 0x%x to 0x%x\n", memaddr + i, myaddr[i]);
-// OBSOLETE     }
-// OBSOLETE   expect (CMD_DELIM, 1);
-// OBSOLETE   if (CMD_END)
-// OBSOLETE     printf_monitor (CMD_END);
-// OBSOLETE   is_trace_mode = 0;
-// OBSOLETE   expect_prompt (1);
-// OBSOLETE 
-// OBSOLETE   bufaddr = 0;
-// OBSOLETE   buflen = 0;
-// OBSOLETE   return len;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Read LEN bytes from inferior memory at MEMADDR.  Put the result
-// OBSOLETE    at debugger address MYADDR.  Returns length moved.  */
-// OBSOLETE static int
-// OBSOLETE rombug_read_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len)
-// OBSOLETE {
-// OBSOLETE   int i, j;
-// OBSOLETE 
-// OBSOLETE   /* Number of bytes read so far.  */
-// OBSOLETE   int count;
-// OBSOLETE 
-// OBSOLETE   /* Starting address of this pass.  */
-// OBSOLETE   unsigned long startaddr;
-// OBSOLETE 
-// OBSOLETE   /* Number of bytes to read in this pass.  */
-// OBSOLETE   int len_this_pass;
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fprintf (log_file, "\nIn Read_inferior_memory (memaddr=%x, len=%d)\n", memaddr, len);
-// OBSOLETE 
-// OBSOLETE   /* Note that this code works correctly if startaddr is just less
-// OBSOLETE      than UINT_MAX (well, really CORE_ADDR_MAX if there was such a
-// OBSOLETE      thing).  That is, something like
-// OBSOLETE      rombug_read_bytes (CORE_ADDR_MAX - 4, foo, 4)
-// OBSOLETE      works--it never adds len To memaddr and gets 0.  */
-// OBSOLETE   /* However, something like
-// OBSOLETE      rombug_read_bytes (CORE_ADDR_MAX - 3, foo, 4)
-// OBSOLETE      doesn't need to work.  Detect it and give up if there's an attempt
-// OBSOLETE      to do that.  */
-// OBSOLETE   if (((memaddr - 1) + len) < memaddr)
-// OBSOLETE     {
-// OBSOLETE       errno = EIO;
-// OBSOLETE       return 0;
-// OBSOLETE     }
-// OBSOLETE   if (bufaddr <= memaddr && (memaddr + len) <= (bufaddr + buflen))
-// OBSOLETE     {
-// OBSOLETE       memcpy (myaddr, &readbuf[memaddr - bufaddr], len);
-// OBSOLETE       return len;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   startaddr = memaddr;
-// OBSOLETE   count = 0;
-// OBSOLETE   while (count < len)
-// OBSOLETE     {
-// OBSOLETE       len_this_pass = 16;
-// OBSOLETE       if ((startaddr % 16) != 0)
-// OBSOLETE    len_this_pass -= startaddr % 16;
-// OBSOLETE       if (len_this_pass > (len - count))
-// OBSOLETE    len_this_pass = (len - count);
-// OBSOLETE       if (sr_get_debug ())
-// OBSOLETE    printf ("\nDisplay %d bytes at %x\n", len_this_pass, startaddr);
-// OBSOLETE 
-// OBSOLETE       printf_monitor (MEM_DIS_CMD, startaddr, 8);
-// OBSOLETE       expect ("- ", 1);
-// OBSOLETE       for (i = 0; i < 16; i++)
-// OBSOLETE    {
-// OBSOLETE      get_hex_byte (&readbuf[i]);
-// OBSOLETE    }
-// OBSOLETE       bufaddr = startaddr;
-// OBSOLETE       buflen = 16;
-// OBSOLETE       memcpy (&myaddr[count], readbuf, len_this_pass);
-// OBSOLETE       count += len_this_pass;
-// OBSOLETE       startaddr += len_this_pass;
-// OBSOLETE       expect (CMD_DELIM, 1);
-// OBSOLETE     }
-// OBSOLETE   if (CMD_END)
-// OBSOLETE     printf_monitor (CMD_END);
-// OBSOLETE   is_trace_mode = 0;
-// OBSOLETE   expect_prompt (1);
-// OBSOLETE 
-// OBSOLETE   return len;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Transfer LEN bytes between GDB address MYADDR and target address
-// OBSOLETE    MEMADDR.  If WRITE is non-zero, transfer them to the target,
-// OBSOLETE    otherwise transfer them from the target.  TARGET is unused.
-// OBSOLETE 
-// OBSOLETE    Returns the number of bytes transferred. */
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE rombug_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len,
-// OBSOLETE                         int write, struct mem_attrib *attrib,
-// OBSOLETE                         struct target_ops *target)
-// OBSOLETE {
-// OBSOLETE   if (write)
-// OBSOLETE     return rombug_write_inferior_memory (memaddr, myaddr, len);
-// OBSOLETE   else
-// OBSOLETE     return rombug_read_inferior_memory (memaddr, myaddr, len);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_kill (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE   return;                  /* ignore attempts to kill target system */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Clean up when a program exits.
-// OBSOLETE    The program actually lives on in the remote processor's RAM, and may be
-// OBSOLETE    run again without a download.  Don't leave it full of breakpoint
-// OBSOLETE    instructions.  */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_mourn_inferior (void)
-// OBSOLETE {
-// OBSOLETE   remove_breakpoints ();
-// OBSOLETE   generic_mourn_inferior ();       /* Do all the proper things now */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #define MAX_MONITOR_BREAKPOINTS 16
-// OBSOLETE 
-// OBSOLETE static CORE_ADDR breakaddr[MAX_MONITOR_BREAKPOINTS] =
-// OBSOLETE {0};
-// OBSOLETE 
-// OBSOLETE static int
-// OBSOLETE rombug_insert_breakpoint (CORE_ADDR addr, char *shadow)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE   CORE_ADDR bp_addr = addr;
-// OBSOLETE   int bp_size = 0;
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fprintf (log_file, "\nIn Insert_breakpoint (addr=%x)\n", addr);
-// OBSOLETE   BREAKPOINT_FROM_PC (&bp_addr, &bp_size);
-// OBSOLETE 
-// OBSOLETE   for (i = 0; i <= MAX_MONITOR_BREAKPOINTS; i++)
-// OBSOLETE     if (breakaddr[i] == 0)
-// OBSOLETE       {
-// OBSOLETE    breakaddr[i] = addr;
-// OBSOLETE    if (sr_get_debug ())
-// OBSOLETE      printf ("Breakpoint at %x\n", addr);
-// OBSOLETE    rombug_read_inferior_memory (bp_addr, shadow, bp_size);
-// OBSOLETE    printf_monitor (SET_BREAK_CMD, addr);
-// OBSOLETE    is_trace_mode = 0;
-// OBSOLETE    expect_prompt (1);
-// OBSOLETE    return 0;
-// OBSOLETE       }
-// OBSOLETE 
-// OBSOLETE   fprintf_unfiltered (gdb_stderr, "Too many breakpoints (> 16) for monitor\n");
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * _remove_breakpoint -- Tell the monitor to remove a breakpoint
-// OBSOLETE  */
-// OBSOLETE static int
-// OBSOLETE rombug_remove_breakpoint (CORE_ADDR addr, char *shadow)
-// OBSOLETE {
-// OBSOLETE   int i;
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fprintf (log_file, "\nIn Remove_breakpoint (addr=%x)\n", addr);
-// OBSOLETE 
-// OBSOLETE   for (i = 0; i < MAX_MONITOR_BREAKPOINTS; i++)
-// OBSOLETE     if (breakaddr[i] == addr)
-// OBSOLETE       {
-// OBSOLETE    breakaddr[i] = 0;
-// OBSOLETE    printf_monitor (CLR_BREAK_CMD, addr);
-// OBSOLETE    is_trace_mode = 0;
-// OBSOLETE    expect_prompt (1);
-// OBSOLETE    return 0;
-// OBSOLETE       }
-// OBSOLETE 
-// OBSOLETE   fprintf_unfiltered (gdb_stderr,
-// OBSOLETE                  "Can't find breakpoint associated with 0x%x\n", addr);
-// OBSOLETE   return 1;
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Load a file. This is usually an srecord, which is ascii. No 
-// OBSOLETE    protocol, just sent line by line. */
-// OBSOLETE 
-// OBSOLETE #define DOWNLOAD_LINE_SIZE 100
-// OBSOLETE static void
-// OBSOLETE rombug_load (char *arg)
-// OBSOLETE {
-// OBSOLETE /* this part comment out for os9* */
-// OBSOLETE #if 0
-// OBSOLETE   FILE *download;
-// OBSOLETE   char buf[DOWNLOAD_LINE_SIZE];
-// OBSOLETE   int i, bytes_read;
-// OBSOLETE 
-// OBSOLETE   if (sr_get_debug ())
-// OBSOLETE     printf ("Loading %s to monitor\n", arg);
-// OBSOLETE 
-// OBSOLETE   download = fopen (arg, "r");
-// OBSOLETE   if (download == NULL)
-// OBSOLETE     {
-// OBSOLETE       error (sprintf (buf, "%s Does not exist", arg));
-// OBSOLETE       return;
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   printf_monitor (LOAD_CMD);
-// OBSOLETE /*  expect ("Waiting for S-records from host... ", 1); */
-// OBSOLETE 
-// OBSOLETE   while (!feof (download))
-// OBSOLETE     {
-// OBSOLETE       bytes_read = fread (buf, sizeof (char), DOWNLOAD_LINE_SIZE, download);
-// OBSOLETE       if (hashmark)
-// OBSOLETE    {
-// OBSOLETE      putchar ('.');
-// OBSOLETE      fflush (stdout);
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       if (serial_write (monitor_desc, buf, bytes_read))
-// OBSOLETE    {
-// OBSOLETE      fprintf_unfiltered (gdb_stderr,
-// OBSOLETE                          "serial_write failed: (while downloading) %s\n",
-// OBSOLETE                          safe_strerror (errno));
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE       i = 0;
-// OBSOLETE       while (i++ <= 200000)
-// OBSOLETE    {
-// OBSOLETE    };                      /* Ugly HACK, probably needs flow control */
-// OBSOLETE       if (bytes_read < DOWNLOAD_LINE_SIZE)
-// OBSOLETE    {
-// OBSOLETE      if (!feof (download))
-// OBSOLETE        error ("Only read %d bytes\n", bytes_read);
-// OBSOLETE      break;
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE 
-// OBSOLETE   if (hashmark)
-// OBSOLETE     {
-// OBSOLETE       putchar ('\n');
-// OBSOLETE     }
-// OBSOLETE   if (!feof (download))
-// OBSOLETE     error ("Never got EOF while downloading");
-// OBSOLETE   fclose (download);
-// OBSOLETE #endif /* 0 */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Put a command string, in args, out to MONITOR.  
-// OBSOLETE    Output from MONITOR is placed on the users terminal until the prompt 
-// OBSOLETE    is seen. */
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE rombug_command (char *args, int fromtty)
-// OBSOLETE {
-// OBSOLETE   if (monitor_desc == NULL)
-// OBSOLETE     error ("monitor target not open.");
-// OBSOLETE 
-// OBSOLETE   if (monitor_log)
-// OBSOLETE     fprintf (log_file, "\nIn command (args=%s)\n", args);
-// OBSOLETE 
-// OBSOLETE   if (!args)
-// OBSOLETE     error ("Missing command.");
-// OBSOLETE 
-// OBSOLETE   printf_monitor ("%s\r", args);
-// OBSOLETE   expect_prompt (0);
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE #if 0
-// OBSOLETE /* Connect the user directly to MONITOR.  This command acts just like the
-// OBSOLETE    'cu' or 'tip' command.  Use <CR>~. or <CR>~^D to break out.  */
-// OBSOLETE 
-// OBSOLETE static struct ttystate ttystate;
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE cleanup_tty (void)
-// OBSOLETE {
-// OBSOLETE   printf ("\r\n[Exiting connect mode]\r\n");
-// OBSOLETE   /*serial_restore(0, &ttystate); */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE connect_command (char *args, int fromtty)
-// OBSOLETE {
-// OBSOLETE   fd_set readfds;
-// OBSOLETE   int numfds;
-// OBSOLETE   int c;
-// OBSOLETE   char cur_esc = 0;
-// OBSOLETE 
-// OBSOLETE   dont_repeat ();
-// OBSOLETE 
-// OBSOLETE   if (monitor_desc == NULL)
-// OBSOLETE     error ("monitor target not open.");
-// OBSOLETE 
-// OBSOLETE   if (args)
-// OBSOLETE     fprintf ("This command takes no args.  They have been ignored.\n");
-// OBSOLETE 
-// OBSOLETE   printf ("[Entering connect mode.  Use ~. or ~^D to escape]\n");
-// OBSOLETE 
-// OBSOLETE   serial_raw (0, &ttystate);
-// OBSOLETE 
-// OBSOLETE   make_cleanup (cleanup_tty, 0);
-// OBSOLETE 
-// OBSOLETE   FD_ZERO (&readfds);
-// OBSOLETE 
-// OBSOLETE   while (1)
-// OBSOLETE     {
-// OBSOLETE       do
-// OBSOLETE    {
-// OBSOLETE      FD_SET (0, &readfds);
-// OBSOLETE      FD_SET (deprecated_serial_fd (monitor_desc), &readfds);
-// OBSOLETE      numfds = select (sizeof (readfds) * 8, &readfds, 0, 0, 0);
-// OBSOLETE    }
-// OBSOLETE       while (numfds == 0);
-// OBSOLETE 
-// OBSOLETE       if (numfds < 0)
-// OBSOLETE    perror_with_name ("select");
-// OBSOLETE 
-// OBSOLETE       if (FD_ISSET (0, &readfds))
-// OBSOLETE    {                       /* tty input, send to monitor */
-// OBSOLETE      c = getchar ();
-// OBSOLETE      if (c < 0)
-// OBSOLETE        perror_with_name ("connect");
-// OBSOLETE 
-// OBSOLETE      printf_monitor ("%c", c);
-// OBSOLETE      switch (cur_esc)
-// OBSOLETE        {
-// OBSOLETE        case 0:
-// OBSOLETE          if (c == '\r')
-// OBSOLETE            cur_esc = c;
-// OBSOLETE          break;
-// OBSOLETE        case '\r':
-// OBSOLETE          if (c == '~')
-// OBSOLETE            cur_esc = c;
-// OBSOLETE          else
-// OBSOLETE            cur_esc = 0;
-// OBSOLETE          break;
-// OBSOLETE        case '~':
-// OBSOLETE          if (c == '.' || c == '\004')
-// OBSOLETE            return;
-// OBSOLETE          else
-// OBSOLETE            cur_esc = 0;
-// OBSOLETE        }
-// OBSOLETE    }
-// OBSOLETE 
-// OBSOLETE       if (FD_ISSET (deprecated_serial_fd (monitor_desc), &readfds))
-// OBSOLETE    {
-// OBSOLETE      while (1)
-// OBSOLETE        {
-// OBSOLETE          c = readchar (0);
-// OBSOLETE          if (c < 0)
-// OBSOLETE            break;
-// OBSOLETE          putchar (c);
-// OBSOLETE        }
-// OBSOLETE      fflush (stdout);
-// OBSOLETE    }
-// OBSOLETE     }
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE /*
-// OBSOLETE  * Define the monitor command strings. Since these are passed directly
-// OBSOLETE  * through to a printf style function, we need can include formatting
-// OBSOLETE  * strings. We also need a CR or LF on the end.
-// OBSOLETE  */
-// OBSOLETE #warning FIXME: monitor interface pattern strings, stale struct decl
-// OBSOLETE struct monitor_ops rombug_cmds =
-// OBSOLETE {
-// OBSOLETE   "g \r",                  /* execute or usually GO command */
-// OBSOLETE   "g \r",                  /* continue command */
-// OBSOLETE   "t \r",                  /* single step */
-// OBSOLETE   "b %x\r",                        /* set a breakpoint */
-// OBSOLETE   "k %x\r",                        /* clear a breakpoint */
-// OBSOLETE   "c %x\r",                        /* set memory to a value */
-// OBSOLETE   "d %x %d\r",                     /* display memory */
-// OBSOLETE   "$%08X",                 /* prompt memory commands use */
-// OBSOLETE   ".%s %x\r",                      /* set a register */
-// OBSOLETE   ":",                             /* delimiter between registers */
-// OBSOLETE   ". \r",                  /* read a register */
-// OBSOLETE   "mf \r",                 /* download command */
-// OBSOLETE   "RomBug: ",                      /* monitor command prompt */
-// OBSOLETE   ": ",                            /* end-of-command delimitor */
-// OBSOLETE   ".\r"                            /* optional command terminator */
-// OBSOLETE };
-// OBSOLETE 
-// OBSOLETE struct target_ops rombug_ops;
-// OBSOLETE 
-// OBSOLETE static void
-// OBSOLETE init_rombug_ops (void)
-// OBSOLETE {
-// OBSOLETE   rombug_ops.to_shortname = "rombug";
-// OBSOLETE   rombug_ops.to_longname = "Microware's ROMBUG debug monitor";
-// OBSOLETE   rombug_ops.to_doc = "Use a remote computer running the ROMBUG debug monitor.\n\
-// OBSOLETE Specify the serial device it is connected to (e.g. /dev/ttya).",
-// OBSOLETE     rombug_ops.to_open = rombug_open;
-// OBSOLETE   rombug_ops.to_close = rombug_close;
-// OBSOLETE   rombug_ops.to_attach = 0;
-// OBSOLETE   rombug_ops.to_post_attach = NULL;
-// OBSOLETE   rombug_ops.to_require_attach = NULL;
-// OBSOLETE   rombug_ops.to_detach = rombug_detach;
-// OBSOLETE   rombug_ops.to_require_detach = NULL;
-// OBSOLETE   rombug_ops.to_resume = rombug_resume;
-// OBSOLETE   rombug_ops.to_wait = rombug_wait;
-// OBSOLETE   rombug_ops.to_post_wait = NULL;
-// OBSOLETE   rombug_ops.to_fetch_registers = rombug_fetch_register;
-// OBSOLETE   rombug_ops.to_store_registers = rombug_store_register;
-// OBSOLETE   rombug_ops.to_prepare_to_store = rombug_prepare_to_store;
-// OBSOLETE   rombug_ops.to_xfer_memory = rombug_xfer_inferior_memory;
-// OBSOLETE   rombug_ops.to_files_info = rombug_files_info;
-// OBSOLETE   rombug_ops.to_insert_breakpoint = rombug_insert_breakpoint;
-// OBSOLETE   rombug_ops.to_remove_breakpoint = rombug_remove_breakpoint;      /* Breakpoints */
-// OBSOLETE   rombug_ops.to_terminal_init = 0;
-// OBSOLETE   rombug_ops.to_terminal_inferior = 0;
-// OBSOLETE   rombug_ops.to_terminal_ours_for_output = 0;
-// OBSOLETE   rombug_ops.to_terminal_ours = 0;
-// OBSOLETE   rombug_ops.to_terminal_info = 0; /* Terminal handling */
-// OBSOLETE   rombug_ops.to_kill = rombug_kill;
-// OBSOLETE   rombug_ops.to_load = rombug_load;        /* load */
-// OBSOLETE   rombug_ops.to_lookup_symbol = rombug_link;       /* lookup_symbol */
-// OBSOLETE   rombug_ops.to_create_inferior = rombug_create_inferior;
-// OBSOLETE   rombug_ops.to_post_startup_inferior = NULL;
-// OBSOLETE   rombug_ops.to_acknowledge_created_inferior = NULL;
-// OBSOLETE   rombug_ops.to_clone_and_follow_inferior = NULL;
-// OBSOLETE   rombug_ops.to_post_follow_inferior_by_clone = NULL;
-// OBSOLETE   rombug_ops.to_insert_fork_catchpoint = NULL;
-// OBSOLETE   rombug_ops.to_remove_fork_catchpoint = NULL;
-// OBSOLETE   rombug_ops.to_insert_vfork_catchpoint = NULL;
-// OBSOLETE   rombug_ops.to_remove_vfork_catchpoint = NULL;
-// OBSOLETE   rombug_ops.to_has_forked = NULL;
-// OBSOLETE   rombug_ops.to_has_vforked = NULL;
-// OBSOLETE   rombug_ops.to_can_follow_vfork_prior_to_exec = NULL;
-// OBSOLETE   rombug_ops.to_post_follow_vfork = NULL;
-// OBSOLETE   rombug_ops.to_insert_exec_catchpoint = NULL;
-// OBSOLETE   rombug_ops.to_remove_exec_catchpoint = NULL;
-// OBSOLETE   rombug_ops.to_has_execd = NULL;
-// OBSOLETE   rombug_ops.to_reported_exec_events_per_exec_call = NULL;
-// OBSOLETE   rombug_ops.to_has_exited = NULL;
-// OBSOLETE   rombug_ops.to_mourn_inferior = rombug_mourn_inferior;
-// OBSOLETE   rombug_ops.to_can_run = 0;       /* can_run */
-// OBSOLETE   rombug_ops.to_notice_signals = 0;        /* notice_signals */
-// OBSOLETE   rombug_ops.to_thread_alive = 0;
-// OBSOLETE   rombug_ops.to_stop = 0;  /* to_stop */
-// OBSOLETE   rombug_ops.to_pid_to_exec_file = NULL;
-// OBSOLETE   rombug_ops.to_stratum = process_stratum;
-// OBSOLETE   rombug_ops.DONT_USE = 0; /* next */
-// OBSOLETE   rombug_ops.to_has_all_memory = 1;
-// OBSOLETE   rombug_ops.to_has_memory = 1;
-// OBSOLETE   rombug_ops.to_has_stack = 1;
-// OBSOLETE   rombug_ops.to_has_registers = 1;
-// OBSOLETE   rombug_ops.to_has_execution = 1; /* has execution */
-// OBSOLETE   rombug_ops.to_sections = 0;
-// OBSOLETE   rombug_ops.to_sections_end = 0;  /* Section pointers */
-// OBSOLETE   rombug_ops.to_magic = OPS_MAGIC; /* Always the last thing */
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE _initialize_remote_os9k (void)
-// OBSOLETE {
-// OBSOLETE   init_rombug_ops ();
-// OBSOLETE   add_target (&rombug_ops);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set (
-// OBSOLETE         add_set_cmd ("hash", no_class, var_boolean, (char *) &hashmark,
-// OBSOLETE                      "Set display of activity while downloading a file.\nWhen enabled, a period \'.\' is displayed.",
-// OBSOLETE                      &setlist),
-// OBSOLETE                  &showlist);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set (
-// OBSOLETE                  add_set_cmd ("timeout", no_class, var_zinteger,
-// OBSOLETE                               (char *) &timeout,
-// OBSOLETE                   "Set timeout in seconds for remote MIPS serial I/O.",
-// OBSOLETE                               &setlist),
-// OBSOLETE                  &showlist);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set (
-// OBSOLETE                  add_set_cmd ("remotelog", no_class, var_zinteger,
-// OBSOLETE                               (char *) &monitor_log,
-// OBSOLETE                          "Set monitor activity log on(=1) or off(=0).",
-// OBSOLETE                               &setlist),
-// OBSOLETE                  &showlist);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set (
-// OBSOLETE                  add_set_cmd ("remotexon", no_class, var_zinteger,
-// OBSOLETE                               (char *) &tty_xon,
-// OBSOLETE                               "Set remote tty line XON control",
-// OBSOLETE                               &setlist),
-// OBSOLETE                  &showlist);
-// OBSOLETE 
-// OBSOLETE   add_show_from_set (
-// OBSOLETE                  add_set_cmd ("remotexoff", no_class, var_zinteger,
-// OBSOLETE                               (char *) &tty_xoff,
-// OBSOLETE                               "Set remote tty line XOFF control",
-// OBSOLETE                               &setlist),
-// OBSOLETE                  &showlist);
-// OBSOLETE 
-// OBSOLETE   add_com ("rombug <command>", class_obscure, rombug_command,
-// OBSOLETE       "Send a command to the debug monitor.");
-// OBSOLETE #if 0
-// OBSOLETE   add_com ("connect", class_obscure, connect_command,
-// OBSOLETE       "Connect the terminal directly up to a serial based command monitor.\nUse <CR>~. or <CR>~^D to break out.");
-// OBSOLETE #endif
-// OBSOLETE }
diff --git a/gdb/remote-vx960.c b/gdb/remote-vx960.c
deleted file mode 100644 (file)
index 87435da..0000000
+++ /dev/null
@@ -1,160 +0,0 @@
-// OBSOLETE /* i80960-dependent portions of the RPC protocol
-// OBSOLETE    used with a VxWorks target 
-// OBSOLETE 
-// OBSOLETE    Contributed by Wind River Systems.
-// OBSOLETE 
-// OBSOLETE    This file is part of GDB.
-// OBSOLETE 
-// OBSOLETE    This program is free software; you can redistribute it and/or modify
-// OBSOLETE    it under the terms of the GNU General Public License as published by
-// OBSOLETE    the Free Software Foundation; either version 2 of the License, or
-// OBSOLETE    (at your option) any later version.
-// OBSOLETE 
-// OBSOLETE    This program is distributed in the hope that it will be useful,
-// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
-// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// OBSOLETE    GNU General Public License for more details.
-// OBSOLETE 
-// OBSOLETE    You should have received a copy of the GNU General Public License
-// OBSOLETE    along with this program; if not, write to the Free Software
-// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
-// OBSOLETE    Boston, MA 02111-1307, USA.  */
-// OBSOLETE 
-// OBSOLETE #include <stdio.h>
-// OBSOLETE #include "defs.h"
-// OBSOLETE 
-// OBSOLETE #include "vx-share/regPacket.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "command.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "symfile.h"               /* for struct complaint */
-// OBSOLETE #include "regcache.h"
-// OBSOLETE 
-// OBSOLETE #include "gdb_string.h"
-// OBSOLETE #include <errno.h>
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE #include <sys/types.h>
-// OBSOLETE #include <sys/time.h>
-// OBSOLETE #include <sys/socket.h>
-// OBSOLETE 
-// OBSOLETE #ifdef _AIX                        /* IBM claims "void *malloc()" not char * */
-// OBSOLETE #define malloc bogon_malloc
-// OBSOLETE #endif
-// OBSOLETE 
-// OBSOLETE #include <rpc/rpc.h>
-// OBSOLETE #include <sys/time.h>              /* UTek's <rpc/rpc.h> doesn't #incl this */
-// OBSOLETE #include <netdb.h>
-// OBSOLETE #include "vx-share/ptrace.h"
-// OBSOLETE #include "vx-share/xdr_ptrace.h"
-// OBSOLETE #include "vx-share/xdr_ld.h"
-// OBSOLETE #include "vx-share/xdr_rdb.h"
-// OBSOLETE #include "vx-share/dbgRpcLib.h"
-// OBSOLETE 
-// OBSOLETE /* get rid of value.h if possible */
-// OBSOLETE #include <value.h>
-// OBSOLETE #include <symtab.h>
-// OBSOLETE 
-// OBSOLETE /* Flag set if target has fpu */
-// OBSOLETE 
-// OBSOLETE extern int target_has_fp;
-// OBSOLETE 
-// OBSOLETE /* 960 floating point format descriptor, from "i960-tdep.c."  */
-// OBSOLETE 
-// OBSOLETE extern struct ext_format ext_format_i960;
-// OBSOLETE 
-// OBSOLETE /* Generic register read/write routines in remote-vx.c.  */
-// OBSOLETE 
-// OBSOLETE extern void net_read_registers ();
-// OBSOLETE extern void net_write_registers ();
-// OBSOLETE 
-// OBSOLETE /* Read a register or registers from the VxWorks target.
-// OBSOLETE    REGNO is the register to read, or -1 for all; currently,
-// OBSOLETE    it is ignored.  FIXME look at regno to improve efficiency.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE vx_read_register (int regno)
-// OBSOLETE {
-// OBSOLETE   char i960_greg_packet[I960_GREG_PLEN];
-// OBSOLETE   char i960_fpreg_packet[I960_FPREG_PLEN];
-// OBSOLETE 
-// OBSOLETE   /* Get general-purpose registers.  When copying values into
-// OBSOLETE      registers [], don't assume that a location in registers []
-// OBSOLETE      is properly aligned for the target data type.  */
-// OBSOLETE 
-// OBSOLETE   net_read_registers (i960_greg_packet, I960_GREG_PLEN, PTRACE_GETREGS);
-// OBSOLETE 
-// OBSOLETE   bcopy (&i960_greg_packet[I960_R_R0],
-// OBSOLETE     &registers[REGISTER_BYTE (R0_REGNUM)], 16 * I960_GREG_SIZE);
-// OBSOLETE   bcopy (&i960_greg_packet[I960_R_G0],
-// OBSOLETE     &registers[REGISTER_BYTE (G0_REGNUM)], 16 * I960_GREG_SIZE);
-// OBSOLETE   bcopy (&i960_greg_packet[I960_R_PCW],
-// OBSOLETE     &registers[REGISTER_BYTE (PCW_REGNUM)], sizeof (int));
-// OBSOLETE   bcopy (&i960_greg_packet[I960_R_ACW],
-// OBSOLETE     &registers[REGISTER_BYTE (ACW_REGNUM)], sizeof (int));
-// OBSOLETE   bcopy (&i960_greg_packet[I960_R_TCW],
-// OBSOLETE     &registers[REGISTER_BYTE (TCW_REGNUM)], sizeof (int));
-// OBSOLETE 
-// OBSOLETE   /* If the target has floating point registers, fetch them.
-// OBSOLETE      Otherwise, zero the floating point register values in
-// OBSOLETE      registers[] for good measure, even though we might not
-// OBSOLETE      need to.  */
-// OBSOLETE 
-// OBSOLETE   if (target_has_fp)
-// OBSOLETE     {
-// OBSOLETE       net_read_registers (i960_fpreg_packet, I960_FPREG_PLEN,
-// OBSOLETE                      PTRACE_GETFPREGS);
-// OBSOLETE       bcopy (&i960_fpreg_packet[I960_R_FP0],
-// OBSOLETE         &registers[REGISTER_BYTE (FP0_REGNUM)],
-// OBSOLETE         REGISTER_RAW_SIZE (FP0_REGNUM) * 4);
-// OBSOLETE     }
-// OBSOLETE   else
-// OBSOLETE     bzero (&registers[REGISTER_BYTE (FP0_REGNUM)],
-// OBSOLETE       REGISTER_RAW_SIZE (FP0_REGNUM) * 4);
-// OBSOLETE 
-// OBSOLETE   /* Mark the register cache valid.  */
-// OBSOLETE 
-// OBSOLETE   registers_fetched ();
-// OBSOLETE }
-// OBSOLETE 
-// OBSOLETE /* Store a register or registers into the VxWorks target.
-// OBSOLETE    REGNO is the register to store, or -1 for all; currently,
-// OBSOLETE    it is ignored.  FIXME look at regno to improve efficiency.  */
-// OBSOLETE 
-// OBSOLETE void
-// OBSOLETE vx_write_register (int regno)
-// OBSOLETE {
-// OBSOLETE   char i960_greg_packet[I960_GREG_PLEN];
-// OBSOLETE   char i960_fpreg_packet[I960_FPREG_PLEN];
-// OBSOLETE 
-// OBSOLETE   /* Store floating-point registers.  When copying values from
-// OBSOLETE      registers [], don't assume that a location in registers []
-// OBSOLETE      is properly aligned for the target data type.  */
-// OBSOLETE 
-// OBSOLETE   bcopy (&registers[REGISTER_BYTE (R0_REGNUM)],
-// OBSOLETE     &i960_greg_packet[I960_R_R0], 16 * I960_GREG_SIZE);
-// OBSOLETE   bcopy (&registers[REGISTER_BYTE (G0_REGNUM)],
-// OBSOLETE     &i960_greg_packet[I960_R_G0], 16 * I960_GREG_SIZE);
-// OBSOLETE   bcopy (&registers[REGISTER_BYTE (PCW_REGNUM)],
-// OBSOLETE     &i960_greg_packet[I960_R_PCW], sizeof (int));
-// OBSOLETE   bcopy (&registers[REGISTER_BYTE (ACW_REGNUM)],
-// OBSOLETE     &i960_greg_packet[I960_R_ACW], sizeof (int));
-// OBSOLETE   bcopy (&registers[REGISTER_BYTE (TCW_REGNUM)],
-// OBSOLETE     &i960_greg_packet[I960_R_TCW], sizeof (int));
-// OBSOLETE 
-// OBSOLETE   net_write_registers (i960_greg_packet, I960_GREG_PLEN, PTRACE_SETREGS);
-// OBSOLETE 
-// OBSOLETE   /* Store floating point registers if the target has them.  */
-// OBSOLETE 
-// OBSOLETE   if (target_has_fp)
-// OBSOLETE     {
-// OBSOLETE       bcopy (&registers[REGISTER_BYTE (FP0_REGNUM)],
-// OBSOLETE         &i960_fpreg_packet[I960_R_FP0],
-// OBSOLETE         REGISTER_RAW_SIZE (FP0_REGNUM) * 4);
-// OBSOLETE 
-// OBSOLETE       net_write_registers (i960_fpreg_packet, I960_FPREG_PLEN,
-// OBSOLETE                       PTRACE_SETFPREGS);
-// OBSOLETE     }
-// OBSOLETE }