* z8k-tdep.c, symm-tdep.c, symm-nat.c: Delete obsolete file.
* sparclet-stub.c, sparclet-rom.c: Delete obsolete file.
* sparcl-tdep.c, sparcl-stub.c, h8500-tdep.c: Delete obsolete file.
* m3-nat.c, mipsm3-nat.c, mn10200-tdep.c: Delete obsolete file.
+2003-10-06 Andrew Cagney <cagney@redhat.com>
+
+ * z8k-tdep.c, symm-tdep.c, symm-nat.c: Delete obsolete file.
+ * sparclet-stub.c, sparclet-rom.c: Delete obsolete file.
+ * sparcl-tdep.c, sparcl-stub.c, h8500-tdep.c: Delete obsolete file.
+ * m3-nat.c, mipsm3-nat.c, mn10200-tdep.c: Delete obsolete file.
+
2003-10-06 David Lecomber <dsl@sources.redhat.com>
* f-valprint.c: Reformatting
+++ /dev/null
-// OBSOLETE /* Target-dependent code for Hitachi H8/500, for GDB.
-// OBSOLETE
-// OBSOLETE Copyright 1993, 1994, 1995, 1998, 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 /*
-// OBSOLETE Contributed by Steve Chamberlain
-// OBSOLETE sac@cygnus.com
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "gdbtypes.h"
-// OBSOLETE #include "gdbcmd.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "dis-asm.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE
-// OBSOLETE #define UNSIGNED_SHORT(X) ((X) & 0xffff)
-// OBSOLETE
-// OBSOLETE static int code_size = 2;
-// OBSOLETE
-// OBSOLETE static int data_size = 2;
-// OBSOLETE
-// OBSOLETE /* Shape of an H8/500 frame :
-// OBSOLETE
-// OBSOLETE arg-n
-// OBSOLETE ..
-// OBSOLETE arg-2
-// OBSOLETE arg-1
-// OBSOLETE return address <2 or 4 bytes>
-// OBSOLETE old fp <2 bytes>
-// OBSOLETE auto-n
-// OBSOLETE ..
-// OBSOLETE auto-1
-// OBSOLETE saved registers
-// OBSOLETE
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE /* an easy to debug H8 stack frame looks like:
-// OBSOLETE 0x6df6 push r6
-// OBSOLETE 0x0d76 mov.w r7,r6
-// OBSOLETE 0x6dfn push reg
-// OBSOLETE 0x7905 nnnn mov.w #n,r5 or 0x1b87 subs #2,sp
-// OBSOLETE 0x1957 sub.w r5,sp
-// OBSOLETE
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE #define IS_PUSH(x) (((x) & 0xff00)==0x6d00)
-// OBSOLETE #define IS_LINK_8(x) ((x) == 0x17)
-// OBSOLETE #define IS_LINK_16(x) ((x) == 0x1f)
-// OBSOLETE #define IS_MOVE_FP(x) ((x) == 0x0d76)
-// OBSOLETE #define IS_MOV_SP_FP(x) ((x) == 0x0d76)
-// OBSOLETE #define IS_SUB2_SP(x) ((x) == 0x1b87)
-// OBSOLETE #define IS_MOVK_R5(x) ((x) == 0x7905)
-// OBSOLETE #define IS_SUB_R5SP(x) ((x) == 0x1957)
-// OBSOLETE
-// OBSOLETE #define LINK_8 0x17
-// OBSOLETE #define LINK_16 0x1f
-// OBSOLETE
-// OBSOLETE int minimum_mode = 1;
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE h8500_skip_prologue (CORE_ADDR start_pc)
-// OBSOLETE {
-// OBSOLETE short int w;
-// OBSOLETE
-// OBSOLETE w = read_memory_integer (start_pc, 1);
-// OBSOLETE if (w == LINK_8)
-// OBSOLETE {
-// OBSOLETE start_pc += 2;
-// OBSOLETE w = read_memory_integer (start_pc, 1);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (w == LINK_16)
-// OBSOLETE {
-// OBSOLETE start_pc += 3;
-// OBSOLETE w = read_memory_integer (start_pc, 2);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return start_pc;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE h8500_addr_bits_remove (CORE_ADDR addr)
-// OBSOLETE {
-// OBSOLETE return ((addr) & 0xffffff);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Given a GDB frame, determine the address of the calling function's
-// OBSOLETE frame. This will be used to create a new GDB frame struct, and
-// OBSOLETE then INIT_EXTRA_FRAME_INFO and DEPRECATED_INIT_FRAME_PC will be
-// OBSOLETE 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 h8500_frame_chain (struct frame_info *thisframe)
-// OBSOLETE {
-// OBSOLETE if (!inside_entry_file (thisframe->pc))
-// OBSOLETE return (read_memory_integer (get_frame_base (thisframe), PTR_SIZE));
-// OBSOLETE else
-// OBSOLETE return 0;
-// 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 CORE_ADDR
-// OBSOLETE NEXT_PROLOGUE_INSN (CORE_ADDR addr, CORE_ADDR lim, char *pword1)
-// OBSOLETE {
-// OBSOLETE if (addr < lim + 8)
-// OBSOLETE {
-// OBSOLETE read_memory (addr, pword1, 1);
-// OBSOLETE read_memory (addr, pword1 + 1, 1);
-// OBSOLETE return 1;
-// OBSOLETE }
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Examine the prologue of a function. `ip' points to the first
-// OBSOLETE instruction. `limit' is the limit of the prologue (e.g. the addr
-// OBSOLETE of the first linenumber, or perhaps the program counter if we're
-// OBSOLETE stepping through). `frame_sp' is the stack pointer value in use in
-// OBSOLETE this frame. `fsr' is a pointer to a frame_saved_regs structure
-// OBSOLETE into which we put info about the registers saved by this frame.
-// OBSOLETE `fi' is a struct frame_info pointer; we fill in various fields in
-// OBSOLETE it to reflect the offsets of the arg pointer and the locals
-// OBSOLETE pointer. */
-// OBSOLETE
-// OBSOLETE /* Return the saved PC from this frame. */
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE frame_saved_pc (struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE return read_memory_integer (get_frame_base (frame) + 2, PTR_SIZE);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE h8500_pop_frame (void)
-// OBSOLETE {
-// OBSOLETE unsigned regnum;
-// OBSOLETE struct frame_saved_regs fsr;
-// OBSOLETE struct frame_info *frame = get_current_frame ();
-// OBSOLETE
-// OBSOLETE deprecated_get_frame_saved_regs (frame, &fsr);
-// OBSOLETE
-// OBSOLETE for (regnum = 0; regnum < 8; regnum++)
-// OBSOLETE {
-// OBSOLETE if (fsr.regs[regnum])
-// OBSOLETE write_register (regnum, read_memory_short (fsr.regs[regnum]));
-// OBSOLETE
-// OBSOLETE flush_cached_frames ();
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE h8500_print_register_hook (int regno)
-// OBSOLETE {
-// OBSOLETE if (regno == CCR_REGNUM)
-// OBSOLETE {
-// OBSOLETE /* CCR register */
-// OBSOLETE
-// OBSOLETE int C, Z, N, V;
-// OBSOLETE unsigned char b[2];
-// OBSOLETE unsigned char l;
-// OBSOLETE
-// OBSOLETE frame_register_read (deprecated_selected_frame, regno, b);
-// OBSOLETE l = b[1];
-// OBSOLETE printf_unfiltered ("\t");
-// OBSOLETE printf_unfiltered ("I-%d - ", (l & 0x80) != 0);
-// OBSOLETE N = (l & 0x8) != 0;
-// OBSOLETE Z = (l & 0x4) != 0;
-// OBSOLETE V = (l & 0x2) != 0;
-// OBSOLETE C = (l & 0x1) != 0;
-// OBSOLETE printf_unfiltered ("N-%d ", N);
-// OBSOLETE printf_unfiltered ("Z-%d ", Z);
-// OBSOLETE printf_unfiltered ("V-%d ", V);
-// OBSOLETE printf_unfiltered ("C-%d ", C);
-// OBSOLETE if ((C | Z) == 0)
-// OBSOLETE printf_unfiltered ("u> ");
-// OBSOLETE if ((C | Z) == 1)
-// OBSOLETE printf_unfiltered ("u<= ");
-// OBSOLETE if ((C == 0))
-// OBSOLETE printf_unfiltered ("u>= ");
-// OBSOLETE if (C == 1)
-// OBSOLETE printf_unfiltered ("u< ");
-// OBSOLETE if (Z == 0)
-// OBSOLETE printf_unfiltered ("!= ");
-// OBSOLETE if (Z == 1)
-// OBSOLETE printf_unfiltered ("== ");
-// OBSOLETE if ((N ^ V) == 0)
-// OBSOLETE printf_unfiltered (">= ");
-// OBSOLETE if ((N ^ V) == 1)
-// OBSOLETE printf_unfiltered ("< ");
-// OBSOLETE if ((Z | (N ^ V)) == 0)
-// OBSOLETE printf_unfiltered ("> ");
-// OBSOLETE if ((Z | (N ^ V)) == 1)
-// OBSOLETE printf_unfiltered ("<= ");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE h8500_print_registers_info (struct gdbarch *gdbarch,
-// OBSOLETE struct ui_file *file,
-// OBSOLETE struct frame_info *frame,
-// OBSOLETE int regnum, int print_all)
-// OBSOLETE {
-// OBSOLETE int i;
-// OBSOLETE const int numregs = NUM_REGS + NUM_PSEUDO_REGS;
-// OBSOLETE char *raw_buffer = alloca (MAX_REGISTER_RAW_SIZE);
-// OBSOLETE char *virtual_buffer = alloca (MAX_REGISTER_VIRTUAL_SIZE);
-// OBSOLETE
-// OBSOLETE for (i = 0; i < numregs; i++)
-// OBSOLETE {
-// OBSOLETE /* Decide between printing all regs, non-float / vector regs, or
-// OBSOLETE specific reg. */
-// OBSOLETE if (regnum == -1)
-// OBSOLETE {
-// OBSOLETE if (!print_all)
-// OBSOLETE {
-// OBSOLETE if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT)
-// OBSOLETE continue;
-// OBSOLETE if (TYPE_VECTOR (REGISTER_VIRTUAL_TYPE (i)))
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE if (i != regnum)
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* If the register name is empty, it is undefined for this
-// OBSOLETE processor, so don't display anything. */
-// OBSOLETE if (REGISTER_NAME (i) == NULL || *(REGISTER_NAME (i)) == '\0')
-// OBSOLETE continue;
-// OBSOLETE
-// OBSOLETE fputs_filtered (REGISTER_NAME (i), file);
-// OBSOLETE print_spaces_filtered (15 - strlen (REGISTER_NAME (i)), file);
-// OBSOLETE
-// OBSOLETE /* Get the data in raw format. */
-// OBSOLETE if (! frame_register_read (frame, i, raw_buffer))
-// OBSOLETE {
-// OBSOLETE fprintf_filtered (file, "*value not available*\n");
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* FIXME: cagney/2002-08-03: This code shouldn't be necessary.
-// OBSOLETE The function frame_register_read() should have returned the
-// OBSOLETE pre-cooked register so no conversion is necessary. */
-// OBSOLETE /* Convert raw data to virtual format if necessary. */
-// OBSOLETE if (REGISTER_CONVERTIBLE (i))
-// OBSOLETE {
-// OBSOLETE REGISTER_CONVERT_TO_VIRTUAL (i, REGISTER_VIRTUAL_TYPE (i),
-// OBSOLETE raw_buffer, virtual_buffer);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE memcpy (virtual_buffer, raw_buffer,
-// OBSOLETE REGISTER_VIRTUAL_SIZE (i));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* If virtual format is floating, print it that way, and in raw
-// OBSOLETE hex. */
-// OBSOLETE if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT)
-// OBSOLETE {
-// OBSOLETE int j;
-// OBSOLETE
-// OBSOLETE val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0,
-// OBSOLETE file, 0, 1, 0, Val_pretty_default);
-// OBSOLETE
-// OBSOLETE fprintf_filtered (file, "\t(raw 0x");
-// OBSOLETE for (j = 0; j < REGISTER_RAW_SIZE (i); j++)
-// OBSOLETE {
-// OBSOLETE int idx;
-// OBSOLETE if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
-// OBSOLETE idx = j;
-// OBSOLETE else
-// OBSOLETE idx = REGISTER_RAW_SIZE (i) - 1 - j;
-// OBSOLETE fprintf_filtered (file, "%02x", (unsigned char) raw_buffer[idx]);
-// OBSOLETE }
-// OBSOLETE fprintf_filtered (file, ")");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* Print the register in hex. */
-// OBSOLETE val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0,
-// OBSOLETE file, 'x', 1, 0, Val_pretty_default);
-// OBSOLETE /* If not a vector register, print it also according to its
-// OBSOLETE natural format. */
-// OBSOLETE if (TYPE_VECTOR (REGISTER_VIRTUAL_TYPE (i)) == 0)
-// OBSOLETE {
-// OBSOLETE fprintf_filtered (file, "\t");
-// OBSOLETE val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0,
-// OBSOLETE file, 0, 1, 0, Val_pretty_default);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Some h8500 specific info. */
-// OBSOLETE h8500_print_register_hook (i);
-// OBSOLETE
-// OBSOLETE fprintf_filtered (file, "\n");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE h8500_do_registers_info (int regnum, int all)
-// OBSOLETE {
-// OBSOLETE h8500_print_registers_info (current_gdbarch, gdb_stdout, deprecated_selected_frame,
-// OBSOLETE regnum, all);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE h8500_register_size (int regno)
-// OBSOLETE {
-// OBSOLETE switch (regno)
-// OBSOLETE {
-// OBSOLETE case SEG_C_REGNUM:
-// OBSOLETE case SEG_D_REGNUM:
-// OBSOLETE case SEG_E_REGNUM:
-// OBSOLETE case SEG_T_REGNUM:
-// OBSOLETE return 1;
-// OBSOLETE case R0_REGNUM:
-// OBSOLETE case R1_REGNUM:
-// OBSOLETE case R2_REGNUM:
-// OBSOLETE case R3_REGNUM:
-// OBSOLETE case R4_REGNUM:
-// OBSOLETE case R5_REGNUM:
-// OBSOLETE case R6_REGNUM:
-// OBSOLETE case R7_REGNUM:
-// OBSOLETE case CCR_REGNUM:
-// OBSOLETE return 2;
-// OBSOLETE
-// OBSOLETE case PR0_REGNUM:
-// OBSOLETE case PR1_REGNUM:
-// OBSOLETE case PR2_REGNUM:
-// OBSOLETE case PR3_REGNUM:
-// OBSOLETE case PR4_REGNUM:
-// OBSOLETE case PR5_REGNUM:
-// OBSOLETE case PR6_REGNUM:
-// OBSOLETE case PR7_REGNUM:
-// OBSOLETE case PC_REGNUM:
-// OBSOLETE return 4;
-// OBSOLETE default:
-// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE struct type *
-// OBSOLETE h8500_register_virtual_type (int regno)
-// OBSOLETE {
-// OBSOLETE switch (regno)
-// OBSOLETE {
-// OBSOLETE case SEG_C_REGNUM:
-// OBSOLETE case SEG_E_REGNUM:
-// OBSOLETE case SEG_D_REGNUM:
-// OBSOLETE case SEG_T_REGNUM:
-// OBSOLETE return builtin_type_unsigned_char;
-// OBSOLETE case R0_REGNUM:
-// OBSOLETE case R1_REGNUM:
-// OBSOLETE case R2_REGNUM:
-// OBSOLETE case R3_REGNUM:
-// OBSOLETE case R4_REGNUM:
-// OBSOLETE case R5_REGNUM:
-// OBSOLETE case R6_REGNUM:
-// OBSOLETE case R7_REGNUM:
-// OBSOLETE case CCR_REGNUM:
-// OBSOLETE return builtin_type_unsigned_short;
-// OBSOLETE case PR0_REGNUM:
-// OBSOLETE case PR1_REGNUM:
-// OBSOLETE case PR2_REGNUM:
-// OBSOLETE case PR3_REGNUM:
-// OBSOLETE case PR4_REGNUM:
-// OBSOLETE case PR5_REGNUM:
-// OBSOLETE case PR6_REGNUM:
-// OBSOLETE case PR7_REGNUM:
-// OBSOLETE case PC_REGNUM:
-// OBSOLETE return builtin_type_unsigned_long;
-// OBSOLETE default:
-// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE }
-// 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 void
-// OBSOLETE frame_find_saved_regs (struct frame_info *frame_info,
-// OBSOLETE struct frame_saved_regs *frame_saved_regs)
-// OBSOLETE {
-// OBSOLETE register int regnum;
-// OBSOLETE register int regmask;
-// OBSOLETE register CORE_ADDR next_addr;
-// OBSOLETE register CORE_ADDR pc;
-// OBSOLETE unsigned char thebyte;
-// OBSOLETE
-// OBSOLETE memset (frame_saved_regs, '\0', sizeof *frame_saved_regs);
-// OBSOLETE
-// OBSOLETE if ((frame_info)->pc >= (frame_info)->frame - CALL_DUMMY_LENGTH - FP_REGNUM * 4 - 4
-// OBSOLETE && (frame_info)->pc <= (frame_info)->frame)
-// OBSOLETE {
-// OBSOLETE next_addr = (frame_info)->frame;
-// OBSOLETE pc = (frame_info)->frame - CALL_DUMMY_LENGTH - FP_REGNUM * 4 - 4;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE pc = get_pc_function_start ((frame_info)->pc);
-// OBSOLETE /* Verify we have a link a6 instruction next;
-// OBSOLETE if not we lose. If we win, find the address above the saved
-// OBSOLETE regs using the amount of storage from the link instruction.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE thebyte = read_memory_integer (pc, 1);
-// OBSOLETE if (0x1f == thebyte)
-// OBSOLETE next_addr = (frame_info)->frame + read_memory_integer (pc += 1, 2), pc += 2;
-// OBSOLETE else if (0x17 == thebyte)
-// OBSOLETE next_addr = (frame_info)->frame + read_memory_integer (pc += 1, 1), pc += 1;
-// OBSOLETE else
-// OBSOLETE goto lose;
-// OBSOLETE #if 0
-// OBSOLETE /* FIXME steve */
-// OBSOLETE /* If have an add:g.waddal #-n, sp next, adjust next_addr. */
-// OBSOLETE if ((0x0c0177777 & read_memory_integer (pc, 2)) == 0157774)
-// OBSOLETE next_addr += read_memory_integer (pc += 2, 4), pc += 4;
-// OBSOLETE #endif
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE thebyte = read_memory_integer (pc, 1);
-// OBSOLETE if (thebyte == 0x12)
-// OBSOLETE {
-// OBSOLETE /* Got stm */
-// OBSOLETE pc++;
-// OBSOLETE regmask = read_memory_integer (pc, 1);
-// OBSOLETE pc++;
-// OBSOLETE for (regnum = 0; regnum < 8; regnum++, regmask >>= 1)
-// OBSOLETE {
-// OBSOLETE if (regmask & 1)
-// OBSOLETE {
-// OBSOLETE (frame_saved_regs)->regs[regnum] = (next_addr += 2) - 2;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE thebyte = read_memory_integer (pc, 1);
-// OBSOLETE }
-// OBSOLETE /* Maybe got a load of pushes */
-// OBSOLETE while (thebyte == 0xbf)
-// OBSOLETE {
-// OBSOLETE pc++;
-// OBSOLETE regnum = read_memory_integer (pc, 1) & 0x7;
-// OBSOLETE pc++;
-// OBSOLETE (frame_saved_regs)->regs[regnum] = (next_addr += 2) - 2;
-// OBSOLETE thebyte = read_memory_integer (pc, 1);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE lose:;
-// OBSOLETE
-// OBSOLETE /* Remember the address of the frame pointer */
-// OBSOLETE (frame_saved_regs)->regs[FP_REGNUM] = (frame_info)->frame;
-// OBSOLETE
-// OBSOLETE /* This is where the old sp is hidden */
-// OBSOLETE (frame_saved_regs)->regs[SP_REGNUM] = (frame_info)->frame;
-// OBSOLETE
-// OBSOLETE /* And the PC - remember the pushed FP is always two bytes long */
-// OBSOLETE (frame_saved_regs)->regs[PC_REGNUM] = (frame_info)->frame + 2;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE saved_pc_after_call (void)
-// OBSOLETE {
-// OBSOLETE int x;
-// OBSOLETE int a = read_register (SP_REGNUM);
-// OBSOLETE
-// OBSOLETE x = read_memory_integer (a, code_size);
-// OBSOLETE if (code_size == 2)
-// OBSOLETE {
-// OBSOLETE /* Stick current code segement onto top */
-// OBSOLETE x &= 0xffff;
-// OBSOLETE x |= read_register (SEG_C_REGNUM) << 16;
-// OBSOLETE }
-// OBSOLETE x &= 0xffffff;
-// OBSOLETE return x;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE h8500_set_pointer_size (int newsize)
-// OBSOLETE {
-// OBSOLETE static int oldsize = 0;
-// OBSOLETE
-// OBSOLETE if (oldsize != newsize)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("pointer size set to %d bits\n", newsize);
-// OBSOLETE oldsize = newsize;
-// OBSOLETE if (newsize == 32)
-// OBSOLETE {
-// OBSOLETE minimum_mode = 0;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE minimum_mode = 1;
-// OBSOLETE }
-// OBSOLETE _initialize_gdbtypes ();
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE big_command (char *arg, int from_tty)
-// OBSOLETE {
-// OBSOLETE h8500_set_pointer_size (32);
-// OBSOLETE code_size = 4;
-// OBSOLETE data_size = 4;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE medium_command (char *arg, int from_tty)
-// OBSOLETE {
-// OBSOLETE h8500_set_pointer_size (32);
-// OBSOLETE code_size = 4;
-// OBSOLETE data_size = 2;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE compact_command (char *arg, int from_tty)
-// OBSOLETE {
-// OBSOLETE h8500_set_pointer_size (32);
-// OBSOLETE code_size = 2;
-// OBSOLETE data_size = 4;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE small_command (char *arg, int from_tty)
-// OBSOLETE {
-// OBSOLETE h8500_set_pointer_size (16);
-// OBSOLETE code_size = 2;
-// OBSOLETE data_size = 2;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static struct cmd_list_element *setmemorylist;
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE set_memory (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("\"set memory\" must be followed by the name of a memory subcommand.\n");
-// OBSOLETE help_list (setmemorylist, "set memory ", -1, gdb_stdout);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* See if variable name is ppc or pr[0-7] */
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE h8500_is_trapped_internalvar (char *name)
-// OBSOLETE {
-// OBSOLETE if (name[0] != 'p')
-// OBSOLETE return 0;
-// OBSOLETE
-// OBSOLETE if (strcmp (name + 1, "pc") == 0)
-// OBSOLETE return 1;
-// OBSOLETE
-// OBSOLETE if (name[1] == 'r'
-// OBSOLETE && name[2] >= '0'
-// OBSOLETE && name[2] <= '7'
-// OBSOLETE && name[3] == '\000')
-// OBSOLETE return 1;
-// OBSOLETE else
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE struct value *
-// OBSOLETE h8500_value_of_trapped_internalvar (struct internalvar *var)
-// OBSOLETE {
-// OBSOLETE LONGEST regval;
-// OBSOLETE unsigned char regbuf[4];
-// OBSOLETE int page_regnum, regnum;
-// OBSOLETE
-// OBSOLETE regnum = var->name[2] == 'c' ? PC_REGNUM : var->name[2] - '0';
-// OBSOLETE
-// OBSOLETE switch (var->name[2])
-// OBSOLETE {
-// OBSOLETE case 'c':
-// OBSOLETE page_regnum = SEG_C_REGNUM;
-// OBSOLETE break;
-// OBSOLETE case '0':
-// OBSOLETE case '1':
-// OBSOLETE case '2':
-// OBSOLETE case '3':
-// OBSOLETE page_regnum = SEG_D_REGNUM;
-// OBSOLETE break;
-// OBSOLETE case '4':
-// OBSOLETE case '5':
-// OBSOLETE page_regnum = SEG_E_REGNUM;
-// OBSOLETE break;
-// OBSOLETE case '6':
-// OBSOLETE case '7':
-// OBSOLETE page_regnum = SEG_T_REGNUM;
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE get_saved_register (regbuf, NULL, NULL, deprecated_selected_frame, page_regnum, NULL);
-// OBSOLETE regval = regbuf[0] << 16;
-// OBSOLETE
-// OBSOLETE get_saved_register (regbuf, NULL, NULL, deprecated_selected_frame, regnum, NULL);
-// OBSOLETE regval |= regbuf[0] << 8 | regbuf[1]; /* XXX host/target byte order */
-// OBSOLETE
-// OBSOLETE xfree (var->value); /* Free up old value */
-// OBSOLETE
-// OBSOLETE var->value = value_from_longest (builtin_type_unsigned_long, regval);
-// OBSOLETE release_value (var->value); /* Unchain new value */
-// OBSOLETE
-// OBSOLETE VALUE_LVAL (var->value) = lval_internalvar;
-// OBSOLETE VALUE_INTERNALVAR (var->value) = var;
-// OBSOLETE return var->value;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE h8500_set_trapped_internalvar (struct internalvar *var, struct value *newval,
-// OBSOLETE int bitpos, int bitsize, int offset)
-// OBSOLETE {
-// OBSOLETE char *page_regnum, *regnum;
-// OBSOLETE char expression[100];
-// OBSOLETE unsigned new_regval;
-// OBSOLETE struct type *type;
-// OBSOLETE enum type_code newval_type_code;
-// OBSOLETE
-// OBSOLETE type = check_typedef (VALUE_TYPE (newval));
-// OBSOLETE newval_type_code = TYPE_CODE (type);
-// OBSOLETE
-// OBSOLETE if ((newval_type_code != TYPE_CODE_INT
-// OBSOLETE && newval_type_code != TYPE_CODE_PTR)
-// OBSOLETE || TYPE_LENGTH (type) != sizeof (new_regval))
-// OBSOLETE error ("Illegal type (%s) for assignment to $%s\n",
-// OBSOLETE TYPE_NAME (VALUE_TYPE (newval)), var->name);
-// OBSOLETE
-// OBSOLETE new_regval = *(long *) VALUE_CONTENTS_RAW (newval);
-// OBSOLETE
-// OBSOLETE regnum = var->name + 1;
-// OBSOLETE
-// OBSOLETE switch (var->name[2])
-// OBSOLETE {
-// OBSOLETE case 'c':
-// OBSOLETE page_regnum = "cp";
-// OBSOLETE break;
-// OBSOLETE case '0':
-// OBSOLETE case '1':
-// OBSOLETE case '2':
-// OBSOLETE case '3':
-// OBSOLETE page_regnum = "dp";
-// OBSOLETE break;
-// OBSOLETE case '4':
-// OBSOLETE case '5':
-// OBSOLETE page_regnum = "ep";
-// OBSOLETE break;
-// OBSOLETE case '6':
-// OBSOLETE case '7':
-// OBSOLETE page_regnum = "tp";
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE sprintf (expression, "$%s=%d", page_regnum, new_regval >> 16);
-// OBSOLETE parse_and_eval (expression);
-// OBSOLETE
-// OBSOLETE sprintf (expression, "$%s=%d", regnum, new_regval & 0xffff);
-// OBSOLETE parse_and_eval (expression);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE h8500_read_sp (void)
-// OBSOLETE {
-// OBSOLETE return read_register (PR7_REGNUM);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE h8500_write_sp (CORE_ADDR v)
-// OBSOLETE {
-// OBSOLETE write_register (PR7_REGNUM, v);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE h8500_read_pc (ptid_t ptid)
-// OBSOLETE {
-// OBSOLETE return read_register (PC_REGNUM);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE h8500_write_pc (CORE_ADDR v, ptid_t ptid)
-// OBSOLETE {
-// OBSOLETE write_register (PC_REGNUM, v);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE h8500_read_fp (void)
-// OBSOLETE {
-// OBSOLETE return read_register (PR6_REGNUM);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE _initialize_h8500_tdep (void)
-// OBSOLETE {
-// OBSOLETE tm_print_insn = print_insn_h8500;
-// OBSOLETE
-// OBSOLETE add_prefix_cmd ("memory", no_class, set_memory,
-// OBSOLETE "set the memory model", &setmemorylist, "set memory ", 0,
-// OBSOLETE &setlist);
-// OBSOLETE
-// OBSOLETE add_cmd ("small", class_support, small_command,
-// OBSOLETE "Set small memory model. (16 bit code, 16 bit data)", &setmemorylist);
-// OBSOLETE
-// OBSOLETE add_cmd ("big", class_support, big_command,
-// OBSOLETE "Set big memory model. (32 bit code, 32 bit data)", &setmemorylist);
-// OBSOLETE
-// OBSOLETE add_cmd ("medium", class_support, medium_command,
-// OBSOLETE "Set medium memory model. (32 bit code, 16 bit data)", &setmemorylist);
-// OBSOLETE
-// OBSOLETE add_cmd ("compact", class_support, compact_command,
-// OBSOLETE "Set compact memory model. (16 bit code, 32 bit data)", &setmemorylist);
-// OBSOLETE
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /* Interface GDB to Mach 3.0 operating systems.
-// OBSOLETE (Most) Mach 3.0 related routines live in this file.
-// OBSOLETE
-// OBSOLETE Copyright 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-// OBSOLETE 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 /*
-// OBSOLETE * Author: Jukka Virtanen <jtv@hut.fi>
-// OBSOLETE * Computing Centre
-// OBSOLETE * Helsinki University of Technology
-// OBSOLETE * Finland
-// OBSOLETE *
-// OBSOLETE * Thanks to my friends who helped with ideas and testing:
-// OBSOLETE *
-// OBSOLETE * Johannes Helander, Antti Louko, Tero Mononen,
-// OBSOLETE * jvh@cs.hut.fi alo@hut.fi tmo@cs.hut.fi
-// OBSOLETE *
-// OBSOLETE * Tero Kivinen and Eamonn McManus
-// OBSOLETE * kivinen@cs.hut.fi emcmanus@gr.osf.org
-// OBSOLETE *
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE #include <stdio.h>
-// OBSOLETE
-// OBSOLETE #include <mach.h>
-// OBSOLETE #include <servers/netname.h>
-// OBSOLETE #include <servers/machid.h>
-// OBSOLETE #include <mach/message.h>
-// OBSOLETE #include <mach/notify.h>
-// OBSOLETE #include <mach_error.h>
-// OBSOLETE #include <mach/exception.h>
-// OBSOLETE #include <mach/vm_attributes.h>
-// OBSOLETE
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "value.h"
-// OBSOLETE #include "language.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "gdb_wait.h"
-// OBSOLETE #include "gdbcmd.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE
-// OBSOLETE #if 0
-// OBSOLETE #include <servers/machid_lib.h>
-// OBSOLETE #else
-// OBSOLETE #define MACH_TYPE_TASK 1
-// OBSOLETE #define MACH_TYPE_THREAD 2
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE /* Included only for signal names and NSIG
-// OBSOLETE
-// OBSOLETE * note: There are many problems in signal handling with
-// OBSOLETE * gdb in Mach 3.0 in general.
-// OBSOLETE */
-// OBSOLETE #include <signal.h>
-// OBSOLETE #define SIG_UNKNOWN 0 /* Exception that has no matching unix signal */
-// OBSOLETE
-// OBSOLETE #include <cthreads.h>
-// OBSOLETE
-// OBSOLETE /* This is what a cproc looks like. This is here partly because
-// OBSOLETE cthread_internals.h is not a header we can just #include, partly with
-// OBSOLETE an eye towards perhaps getting this to work with cross-debugging
-// OBSOLETE someday. Best solution is if CMU publishes a real interface to this
-// OBSOLETE stuff. */
-// OBSOLETE #define CPROC_NEXT_OFFSET 0
-// OBSOLETE #define CPROC_NEXT_SIZE (TARGET_PTR_BIT / HOST_CHAR_BIT)
-// OBSOLETE #define CPROC_INCARNATION_OFFSET (CPROC_NEXT_OFFSET + CPROC_NEXT_SIZE)
-// OBSOLETE #define CPROC_INCARNATION_SIZE (sizeof (cthread_t))
-// OBSOLETE #define CPROC_LIST_OFFSET (CPROC_INCARNATION_OFFSET + CPROC_INCARNATION_SIZE)
-// OBSOLETE #define CPROC_LIST_SIZE (TARGET_PTR_BIT / HOST_CHAR_BIT)
-// OBSOLETE #define CPROC_WAIT_OFFSET (CPROC_LIST_OFFSET + CPROC_LIST_SIZE)
-// OBSOLETE #define CPROC_WAIT_SIZE (TARGET_PTR_BIT / HOST_CHAR_BIT)
-// OBSOLETE #define CPROC_REPLY_OFFSET (CPROC_WAIT_OFFSET + CPROC_WAIT_SIZE)
-// OBSOLETE #define CPROC_REPLY_SIZE (sizeof (mach_port_t))
-// OBSOLETE #define CPROC_CONTEXT_OFFSET (CPROC_REPLY_OFFSET + CPROC_REPLY_SIZE)
-// OBSOLETE #define CPROC_CONTEXT_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT)
-// OBSOLETE #define CPROC_LOCK_OFFSET (CPROC_CONTEXT_OFFSET + CPROC_CONTEXT_SIZE)
-// OBSOLETE #define CPROC_LOCK_SIZE (sizeof (spin_lock_t))
-// OBSOLETE #define CPROC_STATE_OFFSET (CPROC_LOCK_OFFSET + CPROC_LOCK_SIZE)
-// OBSOLETE #define CPROC_STATE_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT)
-// OBSOLETE #define CPROC_WIRED_OFFSET (CPROC_STATE_OFFSET + CPROC_STATE_SIZE)
-// OBSOLETE #define CPROC_WIRED_SIZE (sizeof (mach_port_t))
-// OBSOLETE #define CPROC_BUSY_OFFSET (CPROC_WIRED_OFFSET + CPROC_WIRED_SIZE)
-// OBSOLETE #define CPROC_BUSY_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT)
-// OBSOLETE #define CPROC_MSG_OFFSET (CPROC_BUSY_OFFSET + CPROC_BUSY_SIZE)
-// OBSOLETE #define CPROC_MSG_SIZE (sizeof (mach_msg_header_t))
-// OBSOLETE #define CPROC_BASE_OFFSET (CPROC_MSG_OFFSET + CPROC_MSG_SIZE)
-// OBSOLETE #define CPROC_BASE_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT)
-// OBSOLETE #define CPROC_SIZE_OFFSET (CPROC_BASE_OFFSET + CPROC_BASE_SIZE)
-// OBSOLETE #define CPROC_SIZE_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT)
-// OBSOLETE #define CPROC_SIZE (CPROC_SIZE_OFFSET + CPROC_SIZE_SIZE)
-// OBSOLETE
-// OBSOLETE /* Values for the state field in the cproc. */
-// OBSOLETE #define CPROC_RUNNING 0
-// OBSOLETE #define CPROC_SWITCHING 1
-// OBSOLETE #define CPROC_BLOCKED 2
-// OBSOLETE #define CPROC_CONDWAIT 4
-// OBSOLETE
-// OBSOLETE /* For cproc and kernel thread mapping */
-// OBSOLETE typedef struct gdb_thread
-// OBSOLETE {
-// OBSOLETE mach_port_t name;
-// OBSOLETE CORE_ADDR sp;
-// OBSOLETE CORE_ADDR pc;
-// OBSOLETE CORE_ADDR fp;
-// OBSOLETE boolean_t in_emulator;
-// OBSOLETE int slotid;
-// OBSOLETE
-// OBSOLETE /* This is for the mthreads list. It points to the cproc list.
-// OBSOLETE Perhaps the two lists should be merged (or perhaps it was a mistake
-// OBSOLETE to make them both use a struct gdb_thread). */
-// OBSOLETE struct gdb_thread *cproc;
-// OBSOLETE
-// OBSOLETE /* These are for the cproc list, which is linked through the next field
-// OBSOLETE of the struct gdb_thread. */
-// OBSOLETE char raw_cproc[CPROC_SIZE];
-// OBSOLETE /* The cthread which is pointed to by the incarnation field from the
-// OBSOLETE cproc. This points to the copy we've read into GDB. */
-// OBSOLETE cthread_t cthread;
-// OBSOLETE /* Point back to the mthreads list. */
-// OBSOLETE int reverse_map;
-// OBSOLETE struct gdb_thread *next;
-// OBSOLETE }
-// OBSOLETE *gdb_thread_t;
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Actions for Mach exceptions.
-// OBSOLETE *
-// OBSOLETE * sigmap field maps the exception to corresponding Unix signal.
-// OBSOLETE *
-// OBSOLETE * I do not know how to map the exception to unix signal
-// OBSOLETE * if SIG_UNKNOWN is specified.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE struct exception_list
-// OBSOLETE {
-// OBSOLETE char *name;
-// OBSOLETE boolean_t forward;
-// OBSOLETE boolean_t print;
-// OBSOLETE int sigmap;
-// OBSOLETE }
-// OBSOLETE exception_map[] =
-// OBSOLETE {
-// OBSOLETE {
-// OBSOLETE "not_mach3_exception", FALSE, TRUE, SIG_UNKNOWN
-// OBSOLETE }
-// OBSOLETE ,
-// OBSOLETE {
-// OBSOLETE "EXC_BAD_ACCESS", FALSE, TRUE, SIGSEGV
-// OBSOLETE }
-// OBSOLETE ,
-// OBSOLETE {
-// OBSOLETE "EXC_BAD_INSTRUCTION", FALSE, TRUE, SIGILL
-// OBSOLETE }
-// OBSOLETE ,
-// OBSOLETE {
-// OBSOLETE "EXC_ARITHMETIC", FALSE, TRUE, SIGFPE
-// OBSOLETE }
-// OBSOLETE ,
-// OBSOLETE {
-// OBSOLETE "EXC_EMULATION", FALSE, TRUE, SIGEMT
-// OBSOLETE }
-// OBSOLETE , /* ??? */
-// OBSOLETE {
-// OBSOLETE "EXC_SOFTWARE", FALSE, TRUE, SIG_UNKNOWN
-// OBSOLETE }
-// OBSOLETE ,
-// OBSOLETE {
-// OBSOLETE "EXC_BREAKPOINT", FALSE, FALSE, SIGTRAP
-// OBSOLETE }
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE /* Mach exception table size */
-// OBSOLETE int max_exception = sizeof (exception_map) / sizeof (struct exception_list) - 1;
-// OBSOLETE
-// OBSOLETE #define MAX_EXCEPTION max_exception
-// OBSOLETE
-// OBSOLETE WAITTYPE wait_status;
-// OBSOLETE
-// OBSOLETE /* If you define this, intercepted bsd server calls will be
-// OBSOLETE * dumped while waiting the inferior to EXEC the correct
-// OBSOLETE * program
-// OBSOLETE */
-// OBSOLETE /* #define DUMP_SYSCALL /* debugging interceptor */
-// OBSOLETE
-// OBSOLETE /* xx_debug() outputs messages if this is nonzero.
-// OBSOLETE * If > 1, DUMP_SYSCALL will dump message contents.
-// OBSOLETE */
-// OBSOLETE int debug_level = 0;
-// OBSOLETE
-// OBSOLETE /* "Temporary" debug stuff */
-// OBSOLETE void
-// OBSOLETE xx_debug (char *fmt, int a, int b, int c)
-// OBSOLETE {
-// OBSOLETE if (debug_level)
-// OBSOLETE warning (fmt, a, b, c);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* This is in libmach.a */
-// OBSOLETE extern mach_port_t name_server_port;
-// OBSOLETE
-// OBSOLETE /* Set in catch_exception_raise */
-// OBSOLETE int stop_exception, stop_code, stop_subcode;
-// OBSOLETE int stopped_in_exception;
-// OBSOLETE
-// OBSOLETE /* Thread that was the active thread when we stopped */
-// OBSOLETE thread_t stop_thread = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE char *hostname = "";
-// OBSOLETE
-// OBSOLETE /* Set when task is attached or created */
-// OBSOLETE boolean_t emulator_present = FALSE;
-// OBSOLETE
-// OBSOLETE task_t inferior_task;
-// OBSOLETE thread_t current_thread;
-// OBSOLETE
-// OBSOLETE /* Exception ports for inferior task */
-// OBSOLETE mach_port_t inferior_exception_port = MACH_PORT_NULL;
-// OBSOLETE mach_port_t inferior_old_exception_port = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE /* task exceptions and notifications */
-// OBSOLETE mach_port_t inferior_wait_port_set = MACH_PORT_NULL;
-// OBSOLETE mach_port_t our_notify_port = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE /* This is "inferior_wait_port_set" when not single stepping, and
-// OBSOLETE * "singlestepped_thread_port" when we are single stepping.
-// OBSOLETE *
-// OBSOLETE * This is protected by a cleanup function: discard_single_step()
-// OBSOLETE */
-// OBSOLETE mach_port_t currently_waiting_for = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE /* A port for external messages to gdb.
-// OBSOLETE * External in the meaning that they do not come
-// OBSOLETE * from the inferior_task, but rather from external
-// OBSOLETE * tasks.
-// OBSOLETE *
-// OBSOLETE * As a debugging feature:
-// OBSOLETE * A debugger debugging another debugger can stop the
-// OBSOLETE * inferior debugger by the following command sequence
-// OBSOLETE * (without running external programs)
-// OBSOLETE *
-// OBSOLETE * (top-gdb) set stop_inferior_gdb ()
-// OBSOLETE * (top-gdb) continue
-// OBSOLETE */
-// OBSOLETE mach_port_t our_message_port = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE /* For single stepping */
-// OBSOLETE mach_port_t thread_exception_port = MACH_PORT_NULL;
-// OBSOLETE mach_port_t thread_saved_exception_port = MACH_PORT_NULL;
-// OBSOLETE mach_port_t singlestepped_thread_port = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE /* For machid calls */
-// OBSOLETE mach_port_t mid_server = MACH_PORT_NULL;
-// OBSOLETE mach_port_t mid_auth = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE /* If gdb thinks the inferior task is not suspended, it
-// OBSOLETE * must take suspend/abort the threads when it reads the state.
-// OBSOLETE */
-// OBSOLETE int must_suspend_thread = 0;
-// OBSOLETE
-// OBSOLETE /* When single stepping, we switch the port that mach_really_wait() listens to.
-// OBSOLETE * This cleanup is a guard to prevent the port set from being left to
-// OBSOLETE * the singlestepped_thread_port when error() is called.
-// OBSOLETE * This is nonzero only when we are single stepping.
-// OBSOLETE */
-// OBSOLETE #define NULL_CLEANUP (struct cleanup *)0
-// OBSOLETE struct cleanup *cleanup_step = NULL_CLEANUP;
-// OBSOLETE \f
-// OBSOLETE
-// OBSOLETE static struct target_ops m3_ops;
-// OBSOLETE
-// OBSOLETE static void m3_kill_inferior ();
-// OBSOLETE \f
-// OBSOLETE #if 0
-// OBSOLETE #define MACH_TYPE_EXCEPTION_PORT -1
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE /* Chain of ports to remember requested notifications. */
-// OBSOLETE
-// OBSOLETE struct port_chain
-// OBSOLETE {
-// OBSOLETE struct port_chain *next;
-// OBSOLETE mach_port_t port;
-// OBSOLETE int type;
-// OBSOLETE int mid; /* Now only valid with MACH_TYPE_THREAD and */
-// OBSOLETE /* MACH_TYPE_THREAD */
-// OBSOLETE };
-// OBSOLETE typedef struct port_chain *port_chain_t;
-// OBSOLETE
-// OBSOLETE /* Room for chain nodes comes from pchain_obstack */
-// OBSOLETE struct obstack pchain_obstack;
-// OBSOLETE struct obstack *port_chain_obstack = &pchain_obstack;
-// OBSOLETE
-// OBSOLETE /* For thread handling */
-// OBSOLETE struct obstack Cproc_obstack;
-// OBSOLETE struct obstack *cproc_obstack = &Cproc_obstack;
-// OBSOLETE
-// OBSOLETE /* the list of notified ports */
-// OBSOLETE port_chain_t notify_chain = (port_chain_t) NULL;
-// OBSOLETE
-// OBSOLETE port_chain_t
-// OBSOLETE port_chain_insert (port_chain_t list, mach_port_t name, int type)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE port_chain_t new;
-// OBSOLETE int mid;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (name))
-// OBSOLETE return list;
-// OBSOLETE
-// OBSOLETE if (type == MACH_TYPE_TASK || type == MACH_TYPE_THREAD)
-// OBSOLETE {
-// OBSOLETE if (!MACH_PORT_VALID (mid_server))
-// OBSOLETE {
-// OBSOLETE warning ("Machid server port invalid, can not map port 0x%x to MID",
-// OBSOLETE name);
-// OBSOLETE mid = name;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE ret = machid_mach_register (mid_server, mid_auth, name, type, &mid);
-// OBSOLETE
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Can not map name (0x%x) to MID with machid", name);
-// OBSOLETE mid = name;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE
-// OBSOLETE new = (port_chain_t) obstack_alloc (port_chain_obstack,
-// OBSOLETE sizeof (struct port_chain));
-// OBSOLETE new->next = list;
-// OBSOLETE new->port = name;
-// OBSOLETE new->type = type;
-// OBSOLETE new->mid = mid;
-// OBSOLETE
-// OBSOLETE return new;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE port_chain_t
-// OBSOLETE port_chain_delete (port_chain_t list, mach_port_t elem)
-// OBSOLETE {
-// OBSOLETE if (list)
-// OBSOLETE if (list->port == elem)
-// OBSOLETE list = list->next;
-// OBSOLETE else
-// OBSOLETE while (list->next)
-// OBSOLETE {
-// OBSOLETE if (list->next->port == elem)
-// OBSOLETE list->next = list->next->next; /* GCd with obstack_free() */
-// OBSOLETE else
-// OBSOLETE list = list->next;
-// OBSOLETE }
-// OBSOLETE return list;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE port_chain_destroy (struct obstack *ostack)
-// OBSOLETE {
-// OBSOLETE obstack_free (ostack, 0);
-// OBSOLETE obstack_init (ostack);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE port_chain_t
-// OBSOLETE port_chain_member (port_chain_t list, mach_port_t elem)
-// OBSOLETE {
-// OBSOLETE while (list)
-// OBSOLETE {
-// OBSOLETE if (list->port == elem)
-// OBSOLETE return list;
-// OBSOLETE list = list->next;
-// OBSOLETE }
-// OBSOLETE return (port_chain_t) NULL;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE int
-// OBSOLETE map_port_name_to_mid (mach_port_t name, int type)
-// OBSOLETE {
-// OBSOLETE port_chain_t elem;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (name))
-// OBSOLETE return -1;
-// OBSOLETE
-// OBSOLETE elem = port_chain_member (notify_chain, name);
-// OBSOLETE
-// OBSOLETE if (elem && (elem->type == type))
-// OBSOLETE return elem->mid;
-// OBSOLETE
-// OBSOLETE if (elem)
-// OBSOLETE return -1;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (mid_server))
-// OBSOLETE {
-// OBSOLETE warning ("Machid server port invalid, can not map port 0x%x to mid",
-// OBSOLETE name);
-// OBSOLETE return -1;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE ret = machid_mach_register (mid_server, mid_auth, name, type, &mid);
-// OBSOLETE
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Can not map name (0x%x) to mid with machid", name);
-// OBSOLETE return -1;
-// OBSOLETE }
-// OBSOLETE return mid;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Guard for currently_waiting_for and singlestepped_thread_port */
-// OBSOLETE static void
-// OBSOLETE discard_single_step (thread_t thread)
-// OBSOLETE {
-// OBSOLETE currently_waiting_for = inferior_wait_port_set;
-// OBSOLETE
-// OBSOLETE cleanup_step = NULL_CLEANUP;
-// OBSOLETE if (MACH_PORT_VALID (thread) && MACH_PORT_VALID (singlestepped_thread_port))
-// OBSOLETE setup_single_step (thread, FALSE);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE setup_single_step (thread_t thread, boolean_t start_step)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (thread))
-// OBSOLETE error ("Invalid thread supplied to setup_single_step");
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE mach_port_t teport;
-// OBSOLETE
-// OBSOLETE /* Get the current thread exception port */
-// OBSOLETE ret = thread_get_exception_port (thread, &teport);
-// OBSOLETE CHK ("Getting thread's exception port", ret);
-// OBSOLETE
-// OBSOLETE if (start_step)
-// OBSOLETE {
-// OBSOLETE if (MACH_PORT_VALID (singlestepped_thread_port))
-// OBSOLETE {
-// OBSOLETE warning ("Singlestepped_thread_port (0x%x) is still valid?",
-// OBSOLETE singlestepped_thread_port);
-// OBSOLETE singlestepped_thread_port = MACH_PORT_NULL;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* If we are already stepping this thread */
-// OBSOLETE if (MACH_PORT_VALID (teport) && teport == thread_exception_port)
-// OBSOLETE {
-// OBSOLETE ret = mach_port_deallocate (mach_task_self (), teport);
-// OBSOLETE CHK ("Could not deallocate thread exception port", ret);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE ret = thread_set_exception_port (thread, thread_exception_port);
-// OBSOLETE CHK ("Setting exception port for thread", ret);
-// OBSOLETE #if 0
-// OBSOLETE /* Insert thread exception port to wait port set */
-// OBSOLETE ret = mach_port_move_member (mach_task_self (),
-// OBSOLETE thread_exception_port,
-// OBSOLETE inferior_wait_port_set);
-// OBSOLETE CHK ("Moving thread exception port to inferior_wait_port_set",
-// OBSOLETE ret);
-// OBSOLETE #endif
-// OBSOLETE thread_saved_exception_port = teport;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE thread_trace (thread, TRUE);
-// OBSOLETE
-// OBSOLETE singlestepped_thread_port = thread_exception_port;
-// OBSOLETE currently_waiting_for = singlestepped_thread_port;
-// OBSOLETE cleanup_step = make_cleanup (discard_single_step, thread);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE if (!MACH_PORT_VALID (teport))
-// OBSOLETE error ("Single stepped thread had an invalid exception port?");
-// OBSOLETE
-// OBSOLETE if (teport != thread_exception_port)
-// OBSOLETE error ("Single stepped thread had an unknown exception port?");
-// OBSOLETE
-// OBSOLETE ret = mach_port_deallocate (mach_task_self (), teport);
-// OBSOLETE CHK ("Couldn't deallocate thread exception port", ret);
-// OBSOLETE #if 0
-// OBSOLETE /* Remove thread exception port from wait port set */
-// OBSOLETE ret = mach_port_move_member (mach_task_self (),
-// OBSOLETE thread_exception_port,
-// OBSOLETE MACH_PORT_NULL);
-// OBSOLETE CHK ("Removing thread exception port from inferior_wait_port_set",
-// OBSOLETE ret);
-// OBSOLETE #endif
-// OBSOLETE /* Restore thread's old exception port */
-// OBSOLETE ret = thread_set_exception_port (thread,
-// OBSOLETE thread_saved_exception_port);
-// OBSOLETE CHK ("Restoring stepped thread's exception port", ret);
-// OBSOLETE
-// OBSOLETE if (MACH_PORT_VALID (thread_saved_exception_port))
-// OBSOLETE (void) mach_port_deallocate (mach_task_self (),
-// OBSOLETE thread_saved_exception_port);
-// OBSOLETE
-// OBSOLETE thread_trace (thread, FALSE);
-// OBSOLETE
-// OBSOLETE singlestepped_thread_port = MACH_PORT_NULL;
-// OBSOLETE currently_waiting_for = inferior_wait_port_set;
-// OBSOLETE if (cleanup_step)
-// OBSOLETE discard_cleanups (cleanup_step);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE static
-// OBSOLETE request_notify (mach_port_t name, mach_msg_id_t variant, int type)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE mach_port_t previous_port_dummy = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (name))
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE if (port_chain_member (notify_chain, name))
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE ret = mach_port_request_notification (mach_task_self (),
-// OBSOLETE name,
-// OBSOLETE variant,
-// OBSOLETE 1,
-// OBSOLETE our_notify_port,
-// OBSOLETE MACH_MSG_TYPE_MAKE_SEND_ONCE,
-// OBSOLETE &previous_port_dummy);
-// OBSOLETE CHK ("Serious: request_notify failed", ret);
-// OBSOLETE
-// OBSOLETE (void) mach_port_deallocate (mach_task_self (),
-// OBSOLETE previous_port_dummy);
-// OBSOLETE
-// OBSOLETE notify_chain = port_chain_insert (notify_chain, name, type);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE reverse_msg_bits (mach_msg_header_t *msgp, int type)
-// OBSOLETE {
-// OBSOLETE int rbits, lbits;
-// OBSOLETE rbits = MACH_MSGH_BITS_REMOTE (msgp->msgh_bits);
-// OBSOLETE lbits = type;
-// OBSOLETE msgp->msgh_bits =
-// OBSOLETE (msgp->msgh_bits & ~MACH_MSGH_BITS_PORTS_MASK) |
-// OBSOLETE MACH_MSGH_BITS (lbits, rbits);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* On the third day He said:
-// OBSOLETE
-// OBSOLETE Let this be global
-// OBSOLETE and then it was global.
-// OBSOLETE
-// OBSOLETE When creating the inferior fork, the
-// OBSOLETE child code in inflow.c sets the name of the
-// OBSOLETE bootstrap_port in its address space to this
-// OBSOLETE variable.
-// OBSOLETE
-// OBSOLETE The name is transferred to our address space
-// OBSOLETE with mach3_read_inferior().
-// OBSOLETE
-// OBSOLETE Thou shalt not do this with
-// OBSOLETE task_get_bootstrap_port() in this task, since
-// OBSOLETE the name in the inferior task is different than
-// OBSOLETE the one we get.
-// OBSOLETE
-// OBSOLETE For blessed are the meek, as they shall inherit
-// OBSOLETE the address space.
-// OBSOLETE */
-// OBSOLETE mach_port_t original_server_port_name = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE /* Called from inferior after FORK but before EXEC */
-// OBSOLETE static void
-// OBSOLETE m3_trace_me (void)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE /* Get the NAME of the bootstrap port in this task
-// OBSOLETE so that GDB can read it */
-// OBSOLETE ret = task_get_bootstrap_port (mach_task_self (),
-// OBSOLETE &original_server_port_name);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE ret = mach_port_deallocate (mach_task_self (),
-// OBSOLETE original_server_port_name);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE
-// OBSOLETE /* Suspend this task to let the parent change my ports.
-// OBSOLETE Resumed by the debugger */
-// OBSOLETE ret = task_suspend (mach_task_self ());
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /*
-// OBSOLETE * Intercept system calls to Unix server.
-// OBSOLETE * After EXEC_COUNTER calls to exec(), return.
-// OBSOLETE *
-// OBSOLETE * Pre-assertion: Child is suspended. (Not verified)
-// OBSOLETE * Post-condition: Child is suspended after EXEC_COUNTER exec() calls.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE intercept_exec_calls (int exec_counter)
-// OBSOLETE {
-// OBSOLETE int terminal_initted = 0;
-// OBSOLETE
-// OBSOLETE struct syscall_msg_t
-// OBSOLETE {
-// OBSOLETE mach_msg_header_t header;
-// OBSOLETE mach_msg_type_t type;
-// OBSOLETE char room[2000]; /* Enuff space */
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE struct syscall_msg_t syscall_in, syscall_out;
-// OBSOLETE
-// OBSOLETE mach_port_t fake_server;
-// OBSOLETE mach_port_t original_server_send;
-// OBSOLETE mach_port_t original_exec_reply;
-// OBSOLETE mach_port_t exec_reply;
-// OBSOLETE mach_port_t exec_reply_send;
-// OBSOLETE mach_msg_type_name_t acquired;
-// OBSOLETE mach_port_t emulator_server_port_name;
-// OBSOLETE struct task_basic_info info;
-// OBSOLETE mach_msg_type_number_t info_count;
-// OBSOLETE
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE if (exec_counter <= 0)
-// OBSOLETE return; /* We are already set up in the correct program */
-// OBSOLETE
-// OBSOLETE ret = mach_port_allocate (mach_task_self (),
-// OBSOLETE MACH_PORT_RIGHT_RECEIVE,
-// OBSOLETE &fake_server);
-// OBSOLETE CHK ("create inferior_fake_server port failed", ret);
-// OBSOLETE
-// OBSOLETE /* Wait for inferior_task to suspend itself */
-// OBSOLETE while (1)
-// OBSOLETE {
-// OBSOLETE info_count = sizeof (info);
-// OBSOLETE ret = task_info (inferior_task,
-// OBSOLETE TASK_BASIC_INFO,
-// OBSOLETE (task_info_t) & info,
-// OBSOLETE &info_count);
-// OBSOLETE CHK ("Task info", ret);
-// OBSOLETE
-// OBSOLETE if (info.suspend_count)
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE /* Note that the definition of the parameter was undefined
-// OBSOLETE * at the time of this writing, so I just use an `ad hoc' value.
-// OBSOLETE */
-// OBSOLETE (void) swtch_pri (42); /* Universal Priority Value */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Read the inferior's bootstrap port name */
-// OBSOLETE if (!mach3_read_inferior (&original_server_port_name,
-// OBSOLETE &original_server_port_name,
-// OBSOLETE sizeof (original_server_port_name)))
-// OBSOLETE error ("Can't read inferior task bootstrap port name");
-// OBSOLETE
-// OBSOLETE /* @@ BUG: If more than 1 send right GDB will FAIL!!! */
-// OBSOLETE /* Should get refs, and set them back when restoring */
-// OBSOLETE /* Steal the original bsd server send right from inferior */
-// OBSOLETE ret = mach_port_extract_right (inferior_task,
-// OBSOLETE original_server_port_name,
-// OBSOLETE MACH_MSG_TYPE_MOVE_SEND,
-// OBSOLETE &original_server_send,
-// OBSOLETE &acquired);
-// OBSOLETE CHK ("mach_port_extract_right (bsd server send)", ret);
-// OBSOLETE
-// OBSOLETE if (acquired != MACH_MSG_TYPE_PORT_SEND)
-// OBSOLETE error ("Incorrect right extracted, send right to bsd server expected");
-// OBSOLETE
-// OBSOLETE ret = mach_port_insert_right (inferior_task,
-// OBSOLETE original_server_port_name,
-// OBSOLETE fake_server,
-// OBSOLETE MACH_MSG_TYPE_MAKE_SEND);
-// OBSOLETE CHK ("mach_port_insert_right (fake server send)", ret);
-// OBSOLETE
-// OBSOLETE xx_debug ("inferior task bsd server ports set up \nfs %x, ospn %x, oss %x\n",
-// OBSOLETE fake_server,
-// OBSOLETE original_server_port_name, original_server_send);
-// OBSOLETE
-// OBSOLETE /* A receive right to the reply generated by unix server exec() request */
-// OBSOLETE ret = mach_port_allocate (mach_task_self (),
-// OBSOLETE MACH_PORT_RIGHT_RECEIVE,
-// OBSOLETE &exec_reply);
-// OBSOLETE CHK ("create intercepted_reply_port port failed", ret);
-// OBSOLETE
-// OBSOLETE /* Pass this send right to Unix server so it replies to us after exec() */
-// OBSOLETE ret = mach_port_extract_right (mach_task_self (),
-// OBSOLETE exec_reply,
-// OBSOLETE MACH_MSG_TYPE_MAKE_SEND_ONCE,
-// OBSOLETE &exec_reply_send,
-// OBSOLETE &acquired);
-// OBSOLETE CHK ("mach_port_extract_right (exec_reply)", ret);
-// OBSOLETE
-// OBSOLETE if (acquired != MACH_MSG_TYPE_PORT_SEND_ONCE)
-// OBSOLETE error ("Incorrect right extracted, send once expected for exec reply");
-// OBSOLETE
-// OBSOLETE ret = mach_port_move_member (mach_task_self (),
-// OBSOLETE fake_server,
-// OBSOLETE inferior_wait_port_set);
-// OBSOLETE CHK ("Moving fake syscall port to inferior_wait_port_set", ret);
-// OBSOLETE
-// OBSOLETE xx_debug ("syscall fake server set up, resuming inferior\n");
-// OBSOLETE
-// OBSOLETE ret = task_resume (inferior_task);
-// OBSOLETE CHK ("task_resume (startup)", ret);
-// OBSOLETE
-// OBSOLETE /* Read requests from the inferior.
-// OBSOLETE Pass directly through everything else except exec() calls.
-// OBSOLETE */
-// OBSOLETE while (exec_counter > 0)
-// OBSOLETE {
-// OBSOLETE ret = mach_msg (&syscall_in.header, /* header */
-// OBSOLETE MACH_RCV_MSG, /* options */
-// OBSOLETE 0, /* send size */
-// OBSOLETE sizeof (struct syscall_msg_t), /* receive size */
-// OBSOLETE inferior_wait_port_set, /* receive_name */
-// OBSOLETE MACH_MSG_TIMEOUT_NONE,
-// OBSOLETE MACH_PORT_NULL);
-// OBSOLETE CHK ("mach_msg (intercepted sycall)", ret);
-// OBSOLETE
-// OBSOLETE #ifdef DUMP_SYSCALL
-// OBSOLETE print_msg (&syscall_in.header);
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE /* ASSERT : msgh_local_port == fake_server */
-// OBSOLETE
-// OBSOLETE if (notify_server (&syscall_in.header, &syscall_out.header))
-// OBSOLETE error ("received a notify while intercepting syscalls");
-// OBSOLETE
-// OBSOLETE if (syscall_in.header.msgh_id == MIG_EXEC_SYSCALL_ID)
-// OBSOLETE {
-// OBSOLETE xx_debug ("Received EXEC SYSCALL, counter = %d\n", exec_counter);
-// OBSOLETE if (exec_counter == 1)
-// OBSOLETE {
-// OBSOLETE original_exec_reply = syscall_in.header.msgh_remote_port;
-// OBSOLETE syscall_in.header.msgh_remote_port = exec_reply_send;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (!terminal_initted)
-// OBSOLETE {
-// OBSOLETE /* Now that the child has exec'd we know it has already set its
-// OBSOLETE process group. On POSIX systems, tcsetpgrp will fail with
-// OBSOLETE EPERM if we try it before the child's setpgid. */
-// 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 terminal_initted = 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE exec_counter--;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE syscall_in.header.msgh_local_port = syscall_in.header.msgh_remote_port;
-// OBSOLETE syscall_in.header.msgh_remote_port = original_server_send;
-// OBSOLETE
-// OBSOLETE reverse_msg_bits (&syscall_in.header, MACH_MSG_TYPE_COPY_SEND);
-// OBSOLETE
-// OBSOLETE ret = mach_msg_send (&syscall_in.header);
-// OBSOLETE CHK ("Forwarded syscall", ret);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = mach_port_move_member (mach_task_self (),
-// OBSOLETE fake_server,
-// OBSOLETE MACH_PORT_NULL);
-// OBSOLETE CHK ("Moving fake syscall out of inferior_wait_port_set", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_port_move_member (mach_task_self (),
-// OBSOLETE exec_reply,
-// OBSOLETE inferior_wait_port_set);
-// OBSOLETE CHK ("Moving exec_reply to inferior_wait_port_set", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_msg (&syscall_in.header, /* header */
-// OBSOLETE MACH_RCV_MSG, /* options */
-// OBSOLETE 0, /* send size */
-// OBSOLETE sizeof (struct syscall_msg_t), /* receive size */
-// OBSOLETE inferior_wait_port_set, /* receive_name */
-// OBSOLETE MACH_MSG_TIMEOUT_NONE,
-// OBSOLETE MACH_PORT_NULL);
-// OBSOLETE CHK ("mach_msg (exec reply)", ret);
-// OBSOLETE
-// OBSOLETE ret = task_suspend (inferior_task);
-// OBSOLETE CHK ("Suspending inferior after last exec", ret);
-// OBSOLETE
-// OBSOLETE must_suspend_thread = 0;
-// OBSOLETE
-// OBSOLETE xx_debug ("Received exec reply from bsd server, suspended inferior task\n");
-// OBSOLETE
-// OBSOLETE #ifdef DUMP_SYSCALL
-// OBSOLETE print_msg (&syscall_in.header);
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE /* Message should appear as if it came from the unix server */
-// OBSOLETE syscall_in.header.msgh_local_port = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE /* and go to the inferior task original reply port */
-// OBSOLETE syscall_in.header.msgh_remote_port = original_exec_reply;
-// OBSOLETE
-// OBSOLETE reverse_msg_bits (&syscall_in.header, MACH_MSG_TYPE_MOVE_SEND_ONCE);
-// OBSOLETE
-// OBSOLETE ret = mach_msg_send (&syscall_in.header);
-// OBSOLETE CHK ("Forwarding exec reply to inferior", ret);
-// OBSOLETE
-// OBSOLETE /* Garbage collect */
-// OBSOLETE ret = mach_port_deallocate (inferior_task,
-// OBSOLETE original_server_port_name);
-// OBSOLETE CHK ("deallocating fake server send right", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_port_insert_right (inferior_task,
-// OBSOLETE original_server_port_name,
-// OBSOLETE original_server_send,
-// OBSOLETE MACH_MSG_TYPE_MOVE_SEND);
-// OBSOLETE CHK ("Restoring the original bsd server send right", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_port_destroy (mach_task_self (),
-// OBSOLETE fake_server);
-// OBSOLETE fake_server = MACH_PORT_DEAD;
-// OBSOLETE CHK ("mach_port_destroy (fake_server)", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_port_destroy (mach_task_self (),
-// OBSOLETE exec_reply);
-// OBSOLETE exec_reply = MACH_PORT_DEAD;
-// OBSOLETE CHK ("mach_port_destroy (exec_reply)", ret);
-// OBSOLETE
-// OBSOLETE xx_debug ("Done with exec call interception\n");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE consume_send_rights (thread_array_t thread_list, int thread_count)
-// OBSOLETE {
-// OBSOLETE int index;
-// OBSOLETE
-// OBSOLETE if (!thread_count)
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE {
-// OBSOLETE /* Since thread kill command kills threads, don't check ret */
-// OBSOLETE (void) mach_port_deallocate (mach_task_self (),
-// OBSOLETE thread_list[index]);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* suspend/abort/resume a thread. */
-// OBSOLETE setup_thread (mach_port_t thread, int what)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE if (what)
-// OBSOLETE {
-// OBSOLETE ret = thread_suspend (thread);
-// OBSOLETE CHK ("setup_thread thread_suspend", ret);
-// OBSOLETE
-// OBSOLETE ret = thread_abort (thread);
-// OBSOLETE CHK ("setup_thread thread_abort", ret);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE ret = thread_resume (thread);
-// OBSOLETE CHK ("setup_thread thread_resume", ret);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE map_slot_to_mid (int slot, thread_array_t threads, int thread_count)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE int deallocate = 0;
-// OBSOLETE int index;
-// OBSOLETE int mid;
-// OBSOLETE
-// OBSOLETE if (!threads)
-// OBSOLETE {
-// OBSOLETE deallocate++;
-// OBSOLETE ret = task_threads (inferior_task, &threads, &thread_count);
-// OBSOLETE CHK ("Can not select a thread from a dead task", ret);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (slot < 0 || slot >= thread_count)
-// OBSOLETE {
-// OBSOLETE if (deallocate)
-// OBSOLETE {
-// OBSOLETE consume_send_rights (threads, thread_count);
-// OBSOLETE (void) vm_deallocate (mach_task_self (), (vm_address_t) threads,
-// OBSOLETE (thread_count * sizeof (mach_port_t)));
-// OBSOLETE }
-// OBSOLETE if (slot < 0)
-// OBSOLETE error ("invalid slot number");
-// OBSOLETE else
-// OBSOLETE return -(slot + 1);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE mid = map_port_name_to_mid (threads[slot], MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE if (deallocate)
-// OBSOLETE {
-// OBSOLETE consume_send_rights (threads, thread_count);
-// OBSOLETE (void) vm_deallocate (mach_task_self (), (vm_address_t) threads,
-// OBSOLETE (thread_count * sizeof (mach_port_t)));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return mid;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE parse_thread_id (char *arg, int thread_count, int slots)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE int mid;
-// OBSOLETE int slot;
-// OBSOLETE int index;
-// OBSOLETE
-// OBSOLETE if (arg == 0)
-// OBSOLETE return 0;
-// OBSOLETE
-// OBSOLETE while (*arg && (*arg == ' ' || *arg == '\t'))
-// OBSOLETE arg++;
-// OBSOLETE
-// OBSOLETE if (!*arg)
-// OBSOLETE return 0;
-// OBSOLETE
-// OBSOLETE /* Currently parse MID and @SLOTNUMBER */
-// OBSOLETE if (*arg != '@')
-// OBSOLETE {
-// OBSOLETE mid = atoi (arg);
-// OBSOLETE if (mid <= 0)
-// OBSOLETE error ("valid thread mid expected");
-// OBSOLETE return mid;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE arg++;
-// OBSOLETE slot = atoi (arg);
-// OBSOLETE
-// OBSOLETE if (slot < 0)
-// OBSOLETE error ("invalid slot number");
-// OBSOLETE
-// OBSOLETE /* If you want slot numbers to remain slot numbers, set slots.
-// OBSOLETE
-// OBSOLETE * Well, since 0 is reserved, return the ordinal number
-// OBSOLETE * of the thread rather than the slot number. Awk, this
-// OBSOLETE * counts as a kludge.
-// OBSOLETE */
-// OBSOLETE if (slots)
-// OBSOLETE return -(slot + 1);
-// OBSOLETE
-// OBSOLETE if (thread_count && slot >= thread_count)
-// OBSOLETE return -(slot + 1);
-// OBSOLETE
-// OBSOLETE mid = map_slot_to_mid (slot);
-// OBSOLETE
-// OBSOLETE return mid;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* THREAD_ID 0 is special; it selects the first kernel
-// OBSOLETE * thread from the list (i.e. SLOTNUMBER 0)
-// OBSOLETE * This is used when starting the program with 'run' or when attaching.
-// OBSOLETE *
-// OBSOLETE * If FLAG is 0 the context is not changed, and the registers, frame, etc
-// OBSOLETE * will continue to describe the old thread.
-// OBSOLETE *
-// OBSOLETE * If FLAG is nonzero, really select the thread.
-// OBSOLETE * If FLAG is 2, the THREAD_ID is a slotnumber instead of a mid.
-// OBSOLETE *
-// OBSOLETE */
-// OBSOLETE kern_return_t
-// OBSOLETE select_thread (mach_port_t task, int thread_id, int flag)
-// OBSOLETE {
-// OBSOLETE thread_array_t thread_list;
-// OBSOLETE int thread_count;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE int index;
-// OBSOLETE thread_t new_thread = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE if (thread_id < 0)
-// OBSOLETE error ("Can't select cprocs without kernel thread");
-// OBSOLETE
-// OBSOLETE ret = task_threads (task, &thread_list, &thread_count);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Can not select a thread from a dead task");
-// OBSOLETE m3_kill_inferior ();
-// OBSOLETE return KERN_FAILURE;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (thread_count == 0)
-// OBSOLETE {
-// OBSOLETE /* The task can not do anything anymore, but it still
-// OBSOLETE * exists as a container for memory and ports.
-// OBSOLETE */
-// OBSOLETE registers_changed ();
-// OBSOLETE warning ("Task %d has no threads",
-// OBSOLETE map_port_name_to_mid (task, MACH_TYPE_TASK));
-// OBSOLETE current_thread = MACH_PORT_NULL;
-// OBSOLETE (void) vm_deallocate (mach_task_self (),
-// OBSOLETE (vm_address_t) thread_list,
-// OBSOLETE (thread_count * sizeof (mach_port_t)));
-// OBSOLETE return KERN_FAILURE;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (!thread_id || flag == 2)
-// OBSOLETE {
-// OBSOLETE /* First thread or a slotnumber */
-// OBSOLETE if (!thread_id)
-// OBSOLETE new_thread = thread_list[0];
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE if (thread_id < thread_count)
-// OBSOLETE new_thread = thread_list[thread_id];
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE (void) vm_deallocate (mach_task_self (),
-// OBSOLETE (vm_address_t) thread_list,
-// OBSOLETE (thread_count * sizeof (mach_port_t)));
-// OBSOLETE error ("No such thread slot number : %d", thread_id);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE if (thread_id == map_port_name_to_mid (thread_list[index],
-// OBSOLETE MACH_TYPE_THREAD))
-// OBSOLETE {
-// OBSOLETE new_thread = thread_list[index];
-// OBSOLETE index = -1;
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (index != -1)
-// OBSOLETE error ("No thread with mid %d", thread_id);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Notify when the selected thread dies */
-// OBSOLETE request_notify (new_thread, MACH_NOTIFY_DEAD_NAME, MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE ret = vm_deallocate (mach_task_self (),
-// OBSOLETE (vm_address_t) thread_list,
-// OBSOLETE (thread_count * sizeof (mach_port_t)));
-// OBSOLETE CHK ("vm_deallocate", ret);
-// OBSOLETE
-// OBSOLETE if (!flag)
-// OBSOLETE current_thread = new_thread;
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE #if 0
-// OBSOLETE if (MACH_PORT_VALID (current_thread))
-// OBSOLETE {
-// OBSOLETE /* Store the gdb's view of the thread we are deselecting
-// OBSOLETE
-// OBSOLETE * @@ I think gdb updates registers immediately when they are
-// OBSOLETE * changed, so don't do this.
-// OBSOLETE */
-// OBSOLETE ret = thread_abort (current_thread);
-// OBSOLETE CHK ("Could not abort system calls when saving state of old thread",
-// OBSOLETE ret);
-// OBSOLETE target_prepare_to_store ();
-// OBSOLETE target_store_registers (-1);
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE registers_changed ();
-// OBSOLETE
-// OBSOLETE current_thread = new_thread;
-// OBSOLETE
-// OBSOLETE ret = thread_abort (current_thread);
-// OBSOLETE CHK ("Could not abort system calls when selecting a thread", ret);
-// OBSOLETE
-// OBSOLETE stop_pc = read_pc ();
-// OBSOLETE flush_cached_frames ();
-// OBSOLETE
-// OBSOLETE select_frame (get_current_frame ());
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return KERN_SUCCESS;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Switch to use thread named NEW_THREAD.
-// OBSOLETE * Return it's MID
-// OBSOLETE */
-// OBSOLETE int
-// OBSOLETE switch_to_thread (thread_t new_thread)
-// OBSOLETE {
-// OBSOLETE thread_t saved_thread = current_thread;
-// OBSOLETE int mid;
-// OBSOLETE
-// OBSOLETE mid = map_port_name_to_mid (new_thread,
-// OBSOLETE MACH_TYPE_THREAD);
-// OBSOLETE if (mid == -1)
-// OBSOLETE warning ("Can't map thread name 0x%x to mid", new_thread);
-// OBSOLETE else if (select_thread (inferior_task, mid, 1) != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE if (current_thread)
-// OBSOLETE current_thread = saved_thread;
-// OBSOLETE error ("Could not select thread %d", mid);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return mid;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Do this in gdb after doing FORK but before STARTUP_INFERIOR.
-// OBSOLETE * Note that the registers are not yet valid in the inferior task.
-// OBSOLETE */
-// OBSOLETE static int
-// OBSOLETE m3_trace_him (int pid)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE push_target (&m3_ops);
-// OBSOLETE
-// OBSOLETE inferior_task = task_by_pid (pid);
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (inferior_task))
-// OBSOLETE error ("Can not map Unix pid %d to Mach task", pid);
-// OBSOLETE
-// OBSOLETE /* Clean up previous notifications and create new ones */
-// OBSOLETE setup_notify_port (1);
-// OBSOLETE
-// OBSOLETE /* When notification appears, the inferior task has died */
-// OBSOLETE request_notify (inferior_task, MACH_NOTIFY_DEAD_NAME, MACH_TYPE_TASK);
-// OBSOLETE
-// OBSOLETE emulator_present = have_emulator_p (inferior_task);
-// OBSOLETE
-// OBSOLETE /* By default, select the first thread,
-// OBSOLETE * If task has no threads, gives a warning
-// OBSOLETE * Does not fetch registers, since they are not yet valid.
-// OBSOLETE */
-// OBSOLETE select_thread (inferior_task, 0, 0);
-// OBSOLETE
-// OBSOLETE inferior_exception_port = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE setup_exception_port ();
-// OBSOLETE
-// OBSOLETE xx_debug ("Now the debugged task is created\n");
-// OBSOLETE
-// OBSOLETE /* One trap to exec the shell, one to exec the program being debugged. */
-// OBSOLETE intercept_exec_calls (2);
-// OBSOLETE
-// OBSOLETE return pid;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE setup_exception_port (void)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE ret = mach_port_allocate (mach_task_self (),
-// OBSOLETE MACH_PORT_RIGHT_RECEIVE,
-// OBSOLETE &inferior_exception_port);
-// OBSOLETE CHK ("mach_port_allocate", ret);
-// OBSOLETE
-// OBSOLETE /* add send right */
-// OBSOLETE ret = mach_port_insert_right (mach_task_self (),
-// OBSOLETE inferior_exception_port,
-// OBSOLETE inferior_exception_port,
-// OBSOLETE MACH_MSG_TYPE_MAKE_SEND);
-// OBSOLETE CHK ("mach_port_insert_right", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_port_move_member (mach_task_self (),
-// OBSOLETE inferior_exception_port,
-// OBSOLETE inferior_wait_port_set);
-// OBSOLETE CHK ("mach_port_move_member", ret);
-// OBSOLETE
-// OBSOLETE ret = task_get_special_port (inferior_task,
-// OBSOLETE TASK_EXCEPTION_PORT,
-// OBSOLETE &inferior_old_exception_port);
-// OBSOLETE CHK ("task_get_special_port(old exc)", ret);
-// OBSOLETE
-// OBSOLETE ret = task_set_special_port (inferior_task,
-// OBSOLETE TASK_EXCEPTION_PORT,
-// OBSOLETE inferior_exception_port);
-// OBSOLETE CHK ("task_set_special_port", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_port_deallocate (mach_task_self (),
-// OBSOLETE inferior_exception_port);
-// OBSOLETE CHK ("mack_port_deallocate", ret);
-// OBSOLETE
-// OBSOLETE #if 0
-// OBSOLETE /* When notify appears, the inferior_task's exception
-// OBSOLETE * port has been destroyed.
-// OBSOLETE *
-// OBSOLETE * Not used, since the dead_name_notification already
-// OBSOLETE * appears when task dies.
-// OBSOLETE *
-// OBSOLETE */
-// OBSOLETE request_notify (inferior_exception_port,
-// OBSOLETE MACH_NOTIFY_NO_SENDERS,
-// OBSOLETE MACH_TYPE_EXCEPTION_PORT);
-// OBSOLETE #endif
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Nonzero if gdb is waiting for a message */
-// OBSOLETE int mach_really_waiting;
-// OBSOLETE
-// OBSOLETE /* Wait for the inferior to stop for some reason.
-// OBSOLETE - Loop on notifications until inferior_task dies.
-// OBSOLETE - Loop on exceptions until stopped_in_exception comes true.
-// OBSOLETE (e.g. we receive a single step trace trap)
-// OBSOLETE - a message arrives to gdb's message port
-// OBSOLETE
-// OBSOLETE There is no other way to exit this loop.
-// OBSOLETE
-// OBSOLETE Returns the inferior_ptid for rest of gdb.
-// OBSOLETE Side effects: Set *OURSTATUS. */
-// OBSOLETE ptid_t
-// OBSOLETE mach_really_wait (ptid_t ptid, struct target_waitstatus *ourstatus)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE int w;
-// OBSOLETE
-// OBSOLETE struct msg
-// OBSOLETE {
-// OBSOLETE mach_msg_header_t header;
-// OBSOLETE mach_msg_type_t foo;
-// OBSOLETE int data[8000];
-// OBSOLETE }
-// OBSOLETE in_msg, out_msg;
-// OBSOLETE
-// OBSOLETE /* Either notify (death), exception or message can stop the inferior */
-// OBSOLETE stopped_in_exception = FALSE;
-// OBSOLETE
-// OBSOLETE while (1)
-// OBSOLETE {
-// OBSOLETE QUIT;
-// OBSOLETE
-// OBSOLETE stop_exception = stop_code = stop_subcode = -1;
-// OBSOLETE stop_thread = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE mach_really_waiting = 1;
-// OBSOLETE ret = mach_msg (&in_msg.header, /* header */
-// OBSOLETE MACH_RCV_MSG, /* options */
-// OBSOLETE 0, /* send size */
-// OBSOLETE sizeof (struct msg), /* receive size */
-// OBSOLETE currently_waiting_for, /* receive name */
-// OBSOLETE MACH_MSG_TIMEOUT_NONE,
-// OBSOLETE MACH_PORT_NULL);
-// OBSOLETE mach_really_waiting = 0;
-// OBSOLETE CHK ("mach_msg (receive)", ret);
-// OBSOLETE
-// OBSOLETE /* Check if we received a notify of the childs' death */
-// OBSOLETE if (notify_server (&in_msg.header, &out_msg.header))
-// OBSOLETE {
-// OBSOLETE /* If inferior_task is null then the inferior has
-// OBSOLETE gone away and we want to return to command level.
-// OBSOLETE Otherwise it was just an informative message and we
-// OBSOLETE need to look to see if there are any more. */
-// OBSOLETE if (inferior_task != MACH_PORT_NULL)
-// OBSOLETE continue;
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* Collect Unix exit status for gdb */
-// OBSOLETE
-// OBSOLETE wait3 (&w, WNOHANG, 0);
-// OBSOLETE
-// OBSOLETE /* This mess is here to check that the rest of
-// OBSOLETE * gdb knows that the inferior died. It also
-// OBSOLETE * tries to hack around the fact that Mach 3.0 (mk69)
-// OBSOLETE * unix server (ux28) does not always know what
-// OBSOLETE * has happened to it's children when mach-magic
-// OBSOLETE * is applied on them.
-// OBSOLETE */
-// OBSOLETE if ((!WIFEXITED (w) && WIFSTOPPED (w)) ||
-// OBSOLETE (WIFEXITED (w) && WEXITSTATUS (w) > 0377))
-// OBSOLETE {
-// OBSOLETE WSETEXIT (w, 0);
-// OBSOLETE warning ("Using exit value 0 for terminated task");
-// OBSOLETE }
-// OBSOLETE else if (!WIFEXITED (w))
-// OBSOLETE {
-// OBSOLETE int sig = WTERMSIG (w);
-// OBSOLETE
-// OBSOLETE /* Signals cause problems. Warn the user. */
-// OBSOLETE if (sig != SIGKILL) /* Bad luck if garbage matches this */
-// OBSOLETE warning ("The terminating signal stuff may be nonsense");
-// OBSOLETE else if (sig > NSIG)
-// OBSOLETE {
-// OBSOLETE WSETEXIT (w, 0);
-// OBSOLETE warning ("Using exit value 0 for terminated task");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE store_waitstatus (ourstatus, w);
-// OBSOLETE return inferior_ptid;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Hmm. Check for exception, as it was not a notification.
-// OBSOLETE exc_server() does an upcall to catch_exception_raise()
-// OBSOLETE if this rpc is an exception. Further actions are decided
-// OBSOLETE there.
-// OBSOLETE */
-// OBSOLETE if (!exc_server (&in_msg.header, &out_msg.header))
-// OBSOLETE {
-// OBSOLETE
-// OBSOLETE /* Not an exception, check for message.
-// OBSOLETE
-// OBSOLETE * Messages don't come from the inferior, or if they
-// OBSOLETE * do they better be asynchronous or it will hang.
-// OBSOLETE */
-// OBSOLETE if (gdb_message_server (&in_msg.header))
-// OBSOLETE continue;
-// OBSOLETE
-// OBSOLETE error ("Unrecognized message received in mach_really_wait");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Send the reply of the exception rpc to the suspended task */
-// OBSOLETE ret = mach_msg_send (&out_msg.header);
-// OBSOLETE CHK ("mach_msg_send (exc reply)", ret);
-// OBSOLETE
-// OBSOLETE if (stopped_in_exception)
-// OBSOLETE {
-// OBSOLETE /* Get unix state. May be changed in mach3_exception_actions() */
-// OBSOLETE wait3 (&w, WNOHANG, 0);
-// OBSOLETE
-// OBSOLETE mach3_exception_actions (&w, FALSE, "Task");
-// OBSOLETE
-// OBSOLETE store_waitstatus (ourstatus, w);
-// OBSOLETE return inferior_ptid;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Called by macro DO_QUIT() in utils.c(quit).
-// OBSOLETE * This is called just before calling error() to return to command level
-// OBSOLETE */
-// OBSOLETE void
-// OBSOLETE mach3_quit (void)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE if (mach_really_waiting)
-// OBSOLETE {
-// OBSOLETE ret = task_suspend (inferior_task);
-// OBSOLETE
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Could not suspend task for interrupt: %s",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE mach_really_waiting = 0;
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE must_suspend_thread = 0;
-// OBSOLETE mach_really_waiting = 0;
-// OBSOLETE
-// OBSOLETE mid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD);
-// OBSOLETE if (mid == -1)
-// OBSOLETE {
-// OBSOLETE warning ("Selecting first existing kernel thread");
-// OBSOLETE mid = 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE current_thread = MACH_PORT_NULL; /* Force setup */
-// OBSOLETE select_thread (inferior_task, mid, 1);
-// OBSOLETE
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #if 0
-// OBSOLETE /* bogus bogus bogus. It is NOT OK to quit out of target_wait. */
-// OBSOLETE
-// OBSOLETE /* If ^C is typed when we are waiting for a message
-// OBSOLETE * and your Unix server is able to notice that we
-// OBSOLETE * should quit now.
-// OBSOLETE *
-// OBSOLETE * Called by REQUEST_QUIT() from utils.c(request_quit)
-// OBSOLETE */
-// OBSOLETE void
-// OBSOLETE mach3_request_quit (void)
-// OBSOLETE {
-// OBSOLETE if (mach_really_waiting)
-// OBSOLETE immediate_quit = 1;
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Gdb message server.
-// OBSOLETE * Currently implemented is the STOP message, that causes
-// OBSOLETE * gdb to return to the command level like ^C had been typed from terminal.
-// OBSOLETE */
-// OBSOLETE int
-// OBSOLETE gdb_message_server (mach_msg_header_t *InP)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE int mid;
-// OBSOLETE
-// OBSOLETE if (InP->msgh_local_port == our_message_port)
-// OBSOLETE {
-// OBSOLETE /* A message coming to our_message_port. Check validity */
-// OBSOLETE switch (InP->msgh_id)
-// OBSOLETE {
-// OBSOLETE
-// OBSOLETE case GDB_MESSAGE_ID_STOP:
-// OBSOLETE ret = task_suspend (inferior_task);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE warning ("Could not suspend task for stop message: %s",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE
-// OBSOLETE /* QUIT in mach_really_wait() loop. */
-// OBSOLETE request_quit (0);
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE default:
-// OBSOLETE warning ("Invalid message id %d received, ignored.",
-// OBSOLETE InP->msgh_id);
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Message not handled by this server */
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* NOTE: This is not an RPC call. It is a simpleroutine.
-// OBSOLETE
-// OBSOLETE * This is not called from this gdb code.
-// OBSOLETE *
-// OBSOLETE * It may be called by another debugger to cause this
-// OBSOLETE * debugger to enter command level:
-// OBSOLETE *
-// OBSOLETE * (gdb) set stop_inferior_gdb ()
-// OBSOLETE * (gdb) continue
-// OBSOLETE *
-// OBSOLETE * External program "stop-gdb" implements this also.
-// OBSOLETE */
-// OBSOLETE void
-// OBSOLETE stop_inferior_gdb (void)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE /* Code generated by mig, with minor cleanups :-)
-// OBSOLETE
-// OBSOLETE * simpleroutine stop_inferior_gdb (our_message_port : mach_port_t);
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE typedef struct
-// OBSOLETE {
-// OBSOLETE mach_msg_header_t Head;
-// OBSOLETE }
-// OBSOLETE Request;
-// OBSOLETE
-// OBSOLETE Request Mess;
-// OBSOLETE
-// OBSOLETE register Request *InP = &Mess;
-// OBSOLETE
-// OBSOLETE InP->Head.msgh_bits = MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, 0);
-// OBSOLETE
-// OBSOLETE /* msgh_size passed as argument */
-// OBSOLETE InP->Head.msgh_remote_port = our_message_port;
-// OBSOLETE InP->Head.msgh_local_port = MACH_PORT_NULL;
-// OBSOLETE InP->Head.msgh_seqno = 0;
-// OBSOLETE InP->Head.msgh_id = GDB_MESSAGE_ID_STOP;
-// OBSOLETE
-// OBSOLETE ret = mach_msg (&InP->Head,
-// OBSOLETE MACH_SEND_MSG | MACH_MSG_OPTION_NONE,
-// OBSOLETE sizeof (Request),
-// OBSOLETE 0,
-// OBSOLETE MACH_PORT_NULL,
-// OBSOLETE MACH_MSG_TIMEOUT_NONE,
-// OBSOLETE MACH_PORT_NULL);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #ifdef THREAD_ALLOWED_TO_BREAK
-// OBSOLETE /*
-// OBSOLETE * Return 1 if the MID specifies the thread that caused the
-// OBSOLETE * last exception.
-// OBSOLETE * Since catch_exception_raise() selects the thread causing
-// OBSOLETE * the last exception to current_thread, we just check that
-// OBSOLETE * it is selected and the last exception was a breakpoint.
-// OBSOLETE */
-// OBSOLETE int
-// OBSOLETE mach_thread_for_breakpoint (int mid)
-// OBSOLETE {
-// OBSOLETE int cmid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE if (mid < 0)
-// OBSOLETE {
-// OBSOLETE mid = map_slot_to_mid (-(mid + 1), 0, 0);
-// OBSOLETE if (mid < 0)
-// OBSOLETE return 0; /* Don't stop, no such slot */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (!mid || cmid == -1)
-// OBSOLETE return 1; /* stop */
-// OBSOLETE
-// OBSOLETE return cmid == mid && stop_exception == EXC_BREAKPOINT;
-// OBSOLETE }
-// OBSOLETE #endif /* THREAD_ALLOWED_TO_BREAK */
-// OBSOLETE
-// OBSOLETE #ifdef THREAD_PARSE_ID
-// OBSOLETE /*
-// OBSOLETE * Map a thread id string (MID or a @SLOTNUMBER)
-// OBSOLETE * to a thread-id.
-// OBSOLETE *
-// OBSOLETE * 0 matches all threads.
-// OBSOLETE * Otherwise the meaning is defined only in this file.
-// OBSOLETE * (mach_thread_for_breakpoint uses it)
-// OBSOLETE *
-// OBSOLETE * @@ This allows non-existent MIDs to be specified.
-// OBSOLETE * It now also allows non-existent slots to be
-// OBSOLETE * specified. (Slot numbers stored are negative,
-// OBSOLETE * and the magnitude is one greater than the actual
-// OBSOLETE * slot index. (Since 0 is reserved))
-// OBSOLETE */
-// OBSOLETE int
-// OBSOLETE mach_thread_parse_id (char *arg)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE if (arg == 0)
-// OBSOLETE error ("thread id expected");
-// OBSOLETE mid = parse_thread_id (arg, 0, 1);
-// OBSOLETE
-// OBSOLETE return mid;
-// OBSOLETE }
-// OBSOLETE #endif /* THREAD_PARSE_ID */
-// OBSOLETE
-// OBSOLETE #ifdef THREAD_OUTPUT_ID
-// OBSOLETE char *
-// OBSOLETE mach_thread_output_id (int mid)
-// OBSOLETE {
-// OBSOLETE static char foobar[20];
-// OBSOLETE
-// OBSOLETE if (mid > 0)
-// OBSOLETE sprintf (foobar, "mid %d", mid);
-// OBSOLETE else if (mid < 0)
-// OBSOLETE sprintf (foobar, "@%d", -(mid + 1));
-// OBSOLETE else
-// OBSOLETE sprintf (foobar, "*any thread*");
-// OBSOLETE
-// OBSOLETE return foobar;
-// OBSOLETE }
-// OBSOLETE #endif /* THREAD_OUTPUT_ID */
-// OBSOLETE
-// OBSOLETE /* Called with hook PREPARE_TO_PROCEED() from infrun.c.
-// OBSOLETE
-// OBSOLETE * If we have switched threads and stopped at breakpoint return 1 otherwise 0.
-// OBSOLETE *
-// OBSOLETE * if SELECT_IT is nonzero, reselect the thread that was active when
-// OBSOLETE * we stopped at a breakpoint.
-// OBSOLETE *
-// OBSOLETE * Note that this implementation is potentially redundant now that
-// OBSOLETE * default_prepare_to_proceed() has been added.
-// OBSOLETE *
-// OBSOLETE * FIXME This may not support switching threads after Ctrl-C
-// OBSOLETE * correctly. The default implementation does support this.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE mach3_prepare_to_proceed (int select_it)
-// OBSOLETE {
-// OBSOLETE if (stop_thread &&
-// OBSOLETE stop_thread != current_thread &&
-// OBSOLETE stop_exception == EXC_BREAKPOINT)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE
-// OBSOLETE if (!select_it)
-// OBSOLETE return 1;
-// OBSOLETE
-// OBSOLETE mid = switch_to_thread (stop_thread);
-// OBSOLETE
-// OBSOLETE return 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* this stuff here is an upcall via libmach/excServer.c
-// OBSOLETE and mach_really_wait which does the actual upcall.
-// OBSOLETE
-// OBSOLETE The code will pass the exception to the inferior if:
-// OBSOLETE
-// OBSOLETE - The task that signaled is not the inferior task
-// OBSOLETE (e.g. when debugging another debugger)
-// OBSOLETE
-// OBSOLETE - The user has explicitely requested to pass on the exceptions.
-// OBSOLETE (e.g to the default unix exception handler, which maps
-// OBSOLETE exceptions to signals, or the user has her own exception handler)
-// OBSOLETE
-// OBSOLETE - If the thread that signaled is being single-stepped and it
-// OBSOLETE has set it's own exception port and the exception is not
-// OBSOLETE EXC_BREAKPOINT. (Maybe this is not desirable?)
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE kern_return_t
-// OBSOLETE catch_exception_raise (mach_port_t port, thread_t thread, task_t task,
-// OBSOLETE int exception, int code, int subcode)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE boolean_t signal_thread;
-// OBSOLETE int mid = map_port_name_to_mid (thread, MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (thread))
-// OBSOLETE {
-// OBSOLETE /* If the exception was sent and thread dies before we
-// OBSOLETE receive it, THREAD will be MACH_PORT_DEAD
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE current_thread = thread = MACH_PORT_NULL;
-// OBSOLETE error ("Received exception from nonexistent thread");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Check if the task died in transit.
-// OBSOLETE * @@ Isn't the thread also invalid in such case?
-// OBSOLETE */
-// OBSOLETE if (!MACH_PORT_VALID (task))
-// OBSOLETE {
-// OBSOLETE current_thread = thread = MACH_PORT_NULL;
-// OBSOLETE error ("Received exception from nonexistent task");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (exception < 0 || exception > MAX_EXCEPTION)
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "catch_exception_raise: unknown exception code %d thread %d",
-// OBSOLETE exception,
-// OBSOLETE mid);
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (inferior_task))
-// OBSOLETE error ("got an exception, but inferior_task is null or dead");
-// OBSOLETE
-// OBSOLETE stop_exception = exception;
-// OBSOLETE stop_code = code;
-// OBSOLETE stop_subcode = subcode;
-// OBSOLETE stop_thread = thread;
-// OBSOLETE
-// OBSOLETE signal_thread = exception != EXC_BREAKPOINT &&
-// OBSOLETE port == singlestepped_thread_port &&
-// OBSOLETE MACH_PORT_VALID (thread_saved_exception_port);
-// OBSOLETE
-// OBSOLETE /* If it was not our inferior or if we want to forward
-// OBSOLETE * the exception to the inferior's handler, do it here
-// OBSOLETE *
-// OBSOLETE * Note: If you have forwarded EXC_BREAKPOINT I trust you know why.
-// OBSOLETE */
-// OBSOLETE if (task != inferior_task ||
-// OBSOLETE signal_thread ||
-// OBSOLETE exception_map[exception].forward)
-// OBSOLETE {
-// OBSOLETE mach_port_t eport = inferior_old_exception_port;
-// OBSOLETE
-// OBSOLETE if (signal_thread)
-// OBSOLETE {
-// OBSOLETE /*
-// OBSOLETE GDB now forwards the exeption to thread's original handler,
-// OBSOLETE since the user propably knows what he is doing.
-// OBSOLETE Give a message, though.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE mach3_exception_actions ((WAITTYPE *) NULL, TRUE, "Thread");
-// OBSOLETE eport = thread_saved_exception_port;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Send the exception to the original handler */
-// OBSOLETE ret = exception_raise (eport,
-// OBSOLETE thread,
-// OBSOLETE task,
-// OBSOLETE exception,
-// OBSOLETE code,
-// OBSOLETE subcode);
-// OBSOLETE
-// OBSOLETE (void) mach_port_deallocate (mach_task_self (), task);
-// OBSOLETE (void) mach_port_deallocate (mach_task_self (), thread);
-// OBSOLETE
-// OBSOLETE /* If we come here, we don't want to trace any more, since we
-// OBSOLETE * will never stop for tracing anyway.
-// OBSOLETE */
-// OBSOLETE discard_single_step (thread);
-// OBSOLETE
-// OBSOLETE /* Do not stop the inferior */
-// OBSOLETE return ret;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Now gdb handles the exception */
-// OBSOLETE stopped_in_exception = TRUE;
-// OBSOLETE
-// OBSOLETE ret = task_suspend (task);
-// OBSOLETE CHK ("Error suspending inferior after exception", ret);
-// OBSOLETE
-// OBSOLETE must_suspend_thread = 0;
-// OBSOLETE
-// OBSOLETE if (current_thread != thread)
-// OBSOLETE {
-// OBSOLETE if (MACH_PORT_VALID (singlestepped_thread_port))
-// OBSOLETE /* Cleanup discards single stepping */
-// OBSOLETE error ("Exception from thread %d while singlestepping thread %d",
-// OBSOLETE mid,
-// OBSOLETE map_port_name_to_mid (current_thread, MACH_TYPE_THREAD));
-// OBSOLETE
-// OBSOLETE /* Then select the thread that caused the exception */
-// OBSOLETE if (select_thread (inferior_task, mid, 0) != KERN_SUCCESS)
-// OBSOLETE error ("Could not select thread %d causing exception", mid);
-// OBSOLETE else
-// OBSOLETE warning ("Gdb selected thread %d", mid);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* If we receive an exception that is not breakpoint
-// OBSOLETE * exception, we interrupt the single step and return to
-// OBSOLETE * debugger. Trace condition is cleared.
-// OBSOLETE */
-// OBSOLETE if (MACH_PORT_VALID (singlestepped_thread_port))
-// OBSOLETE {
-// OBSOLETE if (stop_exception != EXC_BREAKPOINT)
-// OBSOLETE warning ("Single step interrupted by exception");
-// OBSOLETE else if (port == singlestepped_thread_port)
-// OBSOLETE {
-// OBSOLETE /* Single step exception occurred, remove trace bit
-// OBSOLETE * and return to gdb.
-// OBSOLETE */
-// OBSOLETE if (!MACH_PORT_VALID (current_thread))
-// OBSOLETE error ("Single stepped thread is not valid");
-// OBSOLETE
-// OBSOLETE /* Resume threads, but leave the task suspended */
-// OBSOLETE resume_all_threads (0);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE warning ("Breakpoint while single stepping?");
-// OBSOLETE
-// OBSOLETE discard_single_step (current_thread);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE (void) mach_port_deallocate (mach_task_self (), task);
-// OBSOLETE (void) mach_port_deallocate (mach_task_self (), thread);
-// OBSOLETE
-// OBSOLETE return KERN_SUCCESS;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE int
-// OBSOLETE port_valid (mach_port_t port, int mask)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE mach_port_type_t type;
-// OBSOLETE
-// OBSOLETE ret = mach_port_type (mach_task_self (),
-// OBSOLETE port,
-// OBSOLETE &type);
-// OBSOLETE if (ret != KERN_SUCCESS || (type & mask) != mask)
-// OBSOLETE return 0;
-// OBSOLETE return 1;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* @@ No vm read cache implemented yet */
-// OBSOLETE boolean_t vm_read_cache_valid = FALSE;
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Read inferior task's LEN bytes from ADDR and copy it to MYADDR
-// OBSOLETE * in gdb's address space.
-// OBSOLETE *
-// OBSOLETE * Return 0 on failure; number of bytes read otherwise.
-// OBSOLETE */
-// OBSOLETE int
-// OBSOLETE mach3_read_inferior (CORE_ADDR addr, char *myaddr, int length)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE vm_address_t low_address = (vm_address_t) trunc_page (addr);
-// OBSOLETE vm_size_t aligned_length =
-// OBSOLETE (vm_size_t) round_page (addr + length) - low_address;
-// OBSOLETE pointer_t copied_memory;
-// OBSOLETE int copy_count;
-// OBSOLETE
-// OBSOLETE /* Get memory from inferior with page aligned addresses */
-// OBSOLETE ret = vm_read (inferior_task,
-// OBSOLETE low_address,
-// OBSOLETE aligned_length,
-// OBSOLETE &copied_memory,
-// OBSOLETE ©_count);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE /* the problem is that the inferior might be killed for whatever reason
-// OBSOLETE * before we go to mach_really_wait. This is one place that ought to
-// OBSOLETE * catch many of those errors.
-// OBSOLETE * @@ A better fix would be to make all external events to GDB
-// OBSOLETE * to arrive via a SINGLE port set. (Including user input!)
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE if (!port_valid (inferior_task, MACH_PORT_TYPE_SEND))
-// OBSOLETE {
-// OBSOLETE m3_kill_inferior ();
-// OBSOLETE error ("Inferior killed (task port invalid)");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE #ifdef OSF
-// OBSOLETE extern int errno;
-// OBSOLETE /* valprint.c gives nicer format if this does not
-// OBSOLETE screw it. Eamonn seems to like this, so I enable
-// OBSOLETE it if OSF is defined...
-// OBSOLETE */
-// OBSOLETE warning ("[read inferior %x failed: %s]",
-// OBSOLETE addr, mach_error_string (ret));
-// OBSOLETE errno = 0;
-// OBSOLETE #endif
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE memcpy (myaddr, (char *) addr - low_address + copied_memory, length);
-// OBSOLETE
-// OBSOLETE ret = vm_deallocate (mach_task_self (),
-// OBSOLETE copied_memory,
-// OBSOLETE copy_count);
-// OBSOLETE CHK ("mach3_read_inferior vm_deallocate failed", ret);
-// OBSOLETE
-// OBSOLETE return length;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #define CHK_GOTO_OUT(str,ret) \
-// OBSOLETE do if (ret != KERN_SUCCESS) { errstr = #str; goto out; } while(0)
-// OBSOLETE
-// OBSOLETE struct vm_region_list
-// OBSOLETE {
-// OBSOLETE struct vm_region_list *next;
-// OBSOLETE vm_prot_t protection;
-// OBSOLETE vm_address_t start;
-// OBSOLETE vm_size_t length;
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE struct obstack region_obstack;
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Write inferior task's LEN bytes from ADDR and copy it to MYADDR
-// OBSOLETE * in gdb's address space.
-// OBSOLETE */
-// OBSOLETE int
-// OBSOLETE mach3_write_inferior (CORE_ADDR addr, char *myaddr, int length)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE vm_address_t low_address = (vm_address_t) trunc_page (addr);
-// OBSOLETE vm_size_t aligned_length =
-// OBSOLETE (vm_size_t) round_page (addr + length) - low_address;
-// OBSOLETE pointer_t copied_memory;
-// OBSOLETE int copy_count;
-// OBSOLETE int deallocate = 0;
-// OBSOLETE
-// OBSOLETE char *errstr = "Bug in mach3_write_inferior";
-// OBSOLETE
-// OBSOLETE struct vm_region_list *region_element;
-// OBSOLETE struct vm_region_list *region_head = (struct vm_region_list *) NULL;
-// OBSOLETE
-// OBSOLETE /* Get memory from inferior with page aligned addresses */
-// OBSOLETE ret = vm_read (inferior_task,
-// OBSOLETE low_address,
-// OBSOLETE aligned_length,
-// OBSOLETE &copied_memory,
-// OBSOLETE ©_count);
-// OBSOLETE CHK_GOTO_OUT ("mach3_write_inferior vm_read failed", ret);
-// OBSOLETE
-// OBSOLETE deallocate++;
-// OBSOLETE
-// OBSOLETE memcpy ((char *) addr - low_address + copied_memory, myaddr, length);
-// OBSOLETE
-// OBSOLETE obstack_init (®ion_obstack);
-// OBSOLETE
-// OBSOLETE /* Do writes atomically.
-// OBSOLETE * First check for holes and unwritable memory.
-// OBSOLETE */
-// OBSOLETE {
-// OBSOLETE vm_size_t remaining_length = aligned_length;
-// OBSOLETE vm_address_t region_address = low_address;
-// OBSOLETE
-// OBSOLETE struct vm_region_list *scan;
-// OBSOLETE
-// OBSOLETE while (region_address < low_address + aligned_length)
-// OBSOLETE {
-// OBSOLETE vm_prot_t protection;
-// OBSOLETE vm_prot_t max_protection;
-// OBSOLETE vm_inherit_t inheritance;
-// OBSOLETE boolean_t shared;
-// OBSOLETE mach_port_t object_name;
-// OBSOLETE vm_offset_t offset;
-// OBSOLETE vm_size_t region_length = remaining_length;
-// OBSOLETE vm_address_t old_address = region_address;
-// OBSOLETE
-// OBSOLETE ret = vm_region (inferior_task,
-// OBSOLETE ®ion_address,
-// OBSOLETE ®ion_length,
-// OBSOLETE &protection,
-// OBSOLETE &max_protection,
-// OBSOLETE &inheritance,
-// OBSOLETE &shared,
-// OBSOLETE &object_name,
-// OBSOLETE &offset);
-// OBSOLETE CHK_GOTO_OUT ("vm_region failed", ret);
-// OBSOLETE
-// OBSOLETE /* Check for holes in memory */
-// OBSOLETE if (old_address != region_address)
-// OBSOLETE {
-// OBSOLETE warning ("No memory at 0x%x. Nothing written",
-// OBSOLETE old_address);
-// OBSOLETE ret = KERN_SUCCESS;
-// OBSOLETE length = 0;
-// OBSOLETE goto out;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (!(max_protection & VM_PROT_WRITE))
-// OBSOLETE {
-// OBSOLETE warning ("Memory at address 0x%x is unwritable. Nothing written",
-// OBSOLETE old_address);
-// OBSOLETE ret = KERN_SUCCESS;
-// OBSOLETE length = 0;
-// OBSOLETE goto out;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Chain the regions for later use */
-// OBSOLETE region_element =
-// OBSOLETE (struct vm_region_list *)
-// OBSOLETE obstack_alloc (®ion_obstack, sizeof (struct vm_region_list));
-// OBSOLETE
-// OBSOLETE region_element->protection = protection;
-// OBSOLETE region_element->start = region_address;
-// OBSOLETE region_element->length = region_length;
-// OBSOLETE
-// OBSOLETE /* Chain the regions along with protections */
-// OBSOLETE region_element->next = region_head;
-// OBSOLETE region_head = region_element;
-// OBSOLETE
-// OBSOLETE region_address += region_length;
-// OBSOLETE remaining_length = remaining_length - region_length;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* If things fail after this, we give up.
-// OBSOLETE * Somebody is messing up inferior_task's mappings.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE /* Enable writes to the chained vm regions */
-// OBSOLETE for (scan = region_head; scan; scan = scan->next)
-// OBSOLETE {
-// OBSOLETE boolean_t protection_changed = FALSE;
-// OBSOLETE
-// OBSOLETE if (!(scan->protection & VM_PROT_WRITE))
-// OBSOLETE {
-// OBSOLETE ret = vm_protect (inferior_task,
-// OBSOLETE scan->start,
-// OBSOLETE scan->length,
-// OBSOLETE FALSE,
-// OBSOLETE scan->protection | VM_PROT_WRITE);
-// OBSOLETE CHK_GOTO_OUT ("vm_protect: enable write failed", ret);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = vm_write (inferior_task,
-// OBSOLETE low_address,
-// OBSOLETE copied_memory,
-// OBSOLETE aligned_length);
-// OBSOLETE CHK_GOTO_OUT ("vm_write failed", ret);
-// OBSOLETE
-// OBSOLETE /* Set up the original region protections, if they were changed */
-// OBSOLETE for (scan = region_head; scan; scan = scan->next)
-// OBSOLETE {
-// OBSOLETE boolean_t protection_changed = FALSE;
-// OBSOLETE
-// OBSOLETE if (!(scan->protection & VM_PROT_WRITE))
-// OBSOLETE {
-// OBSOLETE ret = vm_protect (inferior_task,
-// OBSOLETE scan->start,
-// OBSOLETE scan->length,
-// OBSOLETE FALSE,
-// OBSOLETE scan->protection);
-// OBSOLETE CHK_GOTO_OUT ("vm_protect: enable write failed", ret);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE out:
-// OBSOLETE if (deallocate)
-// OBSOLETE {
-// OBSOLETE obstack_free (®ion_obstack, 0);
-// OBSOLETE
-// OBSOLETE (void) vm_deallocate (mach_task_self (),
-// OBSOLETE copied_memory,
-// OBSOLETE copy_count);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("%s %s", errstr, mach_error_string (ret));
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return length;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Return 0 on failure, number of bytes handled otherwise. TARGET is
-// OBSOLETE ignored. */
-// OBSOLETE static int
-// OBSOLETE m3_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int write,
-// OBSOLETE struct target_ops *target)
-// OBSOLETE {
-// OBSOLETE int result;
-// OBSOLETE
-// OBSOLETE if (write)
-// OBSOLETE result = mach3_write_inferior (memaddr, myaddr, len);
-// OBSOLETE else
-// OBSOLETE result = mach3_read_inferior (memaddr, myaddr, len);
-// OBSOLETE
-// OBSOLETE return result;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE
-// OBSOLETE static char *
-// OBSOLETE translate_state (int state)
-// OBSOLETE {
-// OBSOLETE switch (state)
-// OBSOLETE {
-// OBSOLETE case TH_STATE_RUNNING:
-// OBSOLETE return ("R");
-// OBSOLETE case TH_STATE_STOPPED:
-// OBSOLETE return ("S");
-// OBSOLETE case TH_STATE_WAITING:
-// OBSOLETE return ("W");
-// OBSOLETE case TH_STATE_UNINTERRUPTIBLE:
-// OBSOLETE return ("U");
-// OBSOLETE case TH_STATE_HALTED:
-// OBSOLETE return ("H");
-// OBSOLETE default:
-// OBSOLETE return ("?");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static char *
-// OBSOLETE translate_cstate (int state)
-// OBSOLETE {
-// OBSOLETE switch (state)
-// OBSOLETE {
-// OBSOLETE case CPROC_RUNNING:
-// OBSOLETE return "R";
-// OBSOLETE case CPROC_SWITCHING:
-// OBSOLETE return "S";
-// OBSOLETE case CPROC_BLOCKED:
-// OBSOLETE return "B";
-// OBSOLETE case CPROC_CONDWAIT:
-// OBSOLETE return "C";
-// OBSOLETE case CPROC_CONDWAIT | CPROC_SWITCHING:
-// OBSOLETE return "CS";
-// OBSOLETE default:
-// OBSOLETE return "?";
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* type == MACH_MSG_TYPE_COPY_SEND || type == MACH_MSG_TYPE_MAKE_SEND */
-// OBSOLETE
-// OBSOLETE mach_port_t /* no mach_port_name_t found in include files. */
-// OBSOLETE map_inferior_port_name (mach_port_t inferior_name, mach_msg_type_name_t type)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE mach_msg_type_name_t acquired;
-// OBSOLETE mach_port_t iport;
-// OBSOLETE
-// OBSOLETE ret = mach_port_extract_right (inferior_task,
-// OBSOLETE inferior_name,
-// OBSOLETE type,
-// OBSOLETE &iport,
-// OBSOLETE &acquired);
-// OBSOLETE CHK ("mach_port_extract_right (map_inferior_port_name)", ret);
-// OBSOLETE
-// OBSOLETE if (acquired != MACH_MSG_TYPE_PORT_SEND)
-// OBSOLETE error ("Incorrect right extracted, (map_inferior_port_name)");
-// OBSOLETE
-// OBSOLETE ret = mach_port_deallocate (mach_task_self (),
-// OBSOLETE iport);
-// OBSOLETE CHK ("Deallocating mapped port (map_inferior_port_name)", ret);
-// OBSOLETE
-// OBSOLETE return iport;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Naming convention:
-// OBSOLETE * Always return user defined name if found.
-// OBSOLETE * _K == A kernel thread with no matching CPROC
-// OBSOLETE * _C == A cproc with no current cthread
-// OBSOLETE * _t == A cthread with no user defined name
-// OBSOLETE *
-// OBSOLETE * The digits that follow the _names are the SLOT number of the
-// OBSOLETE * kernel thread if there is such a thing, otherwise just a negation
-// OBSOLETE * of the sequential number of such cprocs.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE static char buf[7];
-// OBSOLETE
-// OBSOLETE static char *
-// OBSOLETE get_thread_name (gdb_thread_t one_cproc, int id)
-// OBSOLETE {
-// OBSOLETE if (one_cproc)
-// OBSOLETE if (one_cproc->cthread == NULL)
-// OBSOLETE {
-// OBSOLETE /* cproc not mapped to any cthread */
-// OBSOLETE sprintf (buf, "_C%d", id);
-// OBSOLETE }
-// OBSOLETE else if (!one_cproc->cthread->name)
-// OBSOLETE {
-// OBSOLETE /* cproc and cthread, but no name */
-// OBSOLETE sprintf (buf, "_t%d", id);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE return (char *) (one_cproc->cthread->name);
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE if (id < 0)
-// OBSOLETE warning ("Inconsistency in thread name id %d", id);
-// OBSOLETE
-// OBSOLETE /* Kernel thread without cproc */
-// OBSOLETE sprintf (buf, "_K%d", id);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return buf;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE fetch_thread_info (mach_port_t task, gdb_thread_t *mthreads_out)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE thread_array_t th_table;
-// OBSOLETE int th_count;
-// OBSOLETE gdb_thread_t mthreads = NULL;
-// OBSOLETE int index;
-// OBSOLETE
-// OBSOLETE ret = task_threads (task, &th_table, &th_count);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Error getting inferior's thread list:%s",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE m3_kill_inferior ();
-// OBSOLETE return -1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE mthreads = (gdb_thread_t)
-// OBSOLETE obstack_alloc
-// OBSOLETE (cproc_obstack,
-// OBSOLETE th_count * sizeof (struct gdb_thread));
-// OBSOLETE
-// OBSOLETE for (index = 0; index < th_count; index++)
-// OBSOLETE {
-// OBSOLETE thread_t saved_thread = MACH_PORT_NULL;
-// OBSOLETE int mid;
-// OBSOLETE
-// OBSOLETE if (must_suspend_thread)
-// OBSOLETE setup_thread (th_table[index], 1);
-// OBSOLETE
-// OBSOLETE if (th_table[index] != current_thread)
-// OBSOLETE {
-// OBSOLETE saved_thread = current_thread;
-// OBSOLETE
-// OBSOLETE mid = switch_to_thread (th_table[index]);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE mthreads[index].name = th_table[index];
-// OBSOLETE mthreads[index].cproc = NULL; /* map_cprocs_to_kernel_threads() */
-// OBSOLETE mthreads[index].in_emulator = FALSE;
-// OBSOLETE mthreads[index].slotid = index;
-// OBSOLETE
-// OBSOLETE mthreads[index].sp = read_register (SP_REGNUM);
-// OBSOLETE mthreads[index].fp = read_register (FP_REGNUM);
-// OBSOLETE mthreads[index].pc = read_pc ();
-// OBSOLETE
-// OBSOLETE if (MACH_PORT_VALID (saved_thread))
-// OBSOLETE mid = switch_to_thread (saved_thread);
-// OBSOLETE
-// OBSOLETE if (must_suspend_thread)
-// OBSOLETE setup_thread (th_table[index], 0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE consume_send_rights (th_table, th_count);
-// OBSOLETE ret = vm_deallocate (mach_task_self (), (vm_address_t) th_table,
-// OBSOLETE (th_count * sizeof (mach_port_t)));
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Error trying to deallocate thread list : %s",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE *mthreads_out = mthreads;
-// OBSOLETE
-// OBSOLETE return th_count;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Current emulator always saves the USP on top of
-// OBSOLETE * emulator stack below struct emul_stack_top stuff.
-// OBSOLETE */
-// OBSOLETE CORE_ADDR
-// OBSOLETE fetch_usp_from_emulator_stack (CORE_ADDR sp)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR stack_pointer;
-// OBSOLETE
-// OBSOLETE sp = (sp & ~(EMULATOR_STACK_SIZE - 1)) +
-// OBSOLETE EMULATOR_STACK_SIZE - sizeof (struct emul_stack_top);
-// OBSOLETE
-// OBSOLETE if (mach3_read_inferior (sp,
-// OBSOLETE &stack_pointer,
-// OBSOLETE sizeof (CORE_ADDR)) != sizeof (CORE_ADDR))
-// OBSOLETE {
-// OBSOLETE warning ("Can't read user sp from emulator stack address 0x%x", sp);
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return stack_pointer;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #ifdef MK67
-// OBSOLETE
-// OBSOLETE /* get_emulation_vector() interface was changed after mk67 */
-// OBSOLETE #define EMUL_VECTOR_COUNT 400 /* Value does not matter too much */
-// OBSOLETE
-// OBSOLETE #endif /* MK67 */
-// OBSOLETE
-// OBSOLETE /* Check if the emulator exists at task's address space.
-// OBSOLETE */
-// OBSOLETE boolean_t
-// OBSOLETE have_emulator_p (task_t task)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE #ifndef EMUL_VECTOR_COUNT
-// OBSOLETE vm_offset_t *emulation_vector;
-// OBSOLETE int n;
-// OBSOLETE #else
-// OBSOLETE vm_offset_t emulation_vector[EMUL_VECTOR_COUNT];
-// OBSOLETE int n = EMUL_VECTOR_COUNT;
-// OBSOLETE #endif
-// OBSOLETE int i;
-// OBSOLETE int vector_start;
-// OBSOLETE
-// OBSOLETE ret = task_get_emulation_vector (task,
-// OBSOLETE &vector_start,
-// OBSOLETE #ifndef EMUL_VECTOR_COUNT
-// OBSOLETE &emulation_vector,
-// OBSOLETE #else
-// OBSOLETE emulation_vector,
-// OBSOLETE #endif
-// OBSOLETE &n);
-// OBSOLETE CHK ("task_get_emulation_vector", ret);
-// OBSOLETE xx_debug ("%d vectors from %d at 0x%08x\n",
-// OBSOLETE n, vector_start, emulation_vector);
-// OBSOLETE
-// OBSOLETE for (i = 0; i < n; i++)
-// OBSOLETE {
-// OBSOLETE vm_offset_t entry = emulation_vector[i];
-// OBSOLETE
-// OBSOLETE if (EMULATOR_BASE <= entry && entry <= EMULATOR_END)
-// OBSOLETE return TRUE;
-// OBSOLETE else if (entry)
-// OBSOLETE {
-// OBSOLETE static boolean_t informed = FALSE;
-// OBSOLETE if (!informed)
-// OBSOLETE {
-// OBSOLETE warning ("Emulation vector address 0x08%x outside emulator space",
-// OBSOLETE entry);
-// OBSOLETE informed = TRUE;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE return FALSE;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Map cprocs to kernel threads and vice versa. */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE map_cprocs_to_kernel_threads (gdb_thread_t cprocs, gdb_thread_t mthreads,
-// OBSOLETE int thread_count)
-// OBSOLETE {
-// OBSOLETE int index;
-// OBSOLETE gdb_thread_t scan;
-// OBSOLETE boolean_t all_mapped = TRUE;
-// OBSOLETE LONGEST stack_base;
-// OBSOLETE LONGEST stack_size;
-// OBSOLETE
-// OBSOLETE for (scan = cprocs; scan; scan = scan->next)
-// OBSOLETE {
-// OBSOLETE /* Default to: no kernel thread for this cproc */
-// OBSOLETE scan->reverse_map = -1;
-// OBSOLETE
-// OBSOLETE /* Check if the cproc is found by its stack */
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE {
-// OBSOLETE stack_base =
-// OBSOLETE extract_signed_integer (scan->raw_cproc + CPROC_BASE_OFFSET,
-// OBSOLETE CPROC_BASE_SIZE);
-// OBSOLETE stack_size =
-// OBSOLETE extract_signed_integer (scan->raw_cproc + CPROC_SIZE_OFFSET,
-// OBSOLETE CPROC_SIZE_SIZE);
-// OBSOLETE if ((mthreads + index)->sp > stack_base &&
-// OBSOLETE (mthreads + index)->sp <= stack_base + stack_size)
-// OBSOLETE {
-// OBSOLETE (mthreads + index)->cproc = scan;
-// OBSOLETE scan->reverse_map = index;
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE all_mapped &= (scan->reverse_map != -1);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Check for threads that are currently in the emulator.
-// OBSOLETE * If so, they have a different stack, and the still unmapped
-// OBSOLETE * cprocs may well get mapped to these threads.
-// OBSOLETE *
-// OBSOLETE * If:
-// OBSOLETE * - cproc stack does not match any kernel thread stack pointer
-// OBSOLETE * - there is at least one extra kernel thread
-// OBSOLETE * that has no cproc mapped above.
-// OBSOLETE * - some kernel thread stack pointer points to emulator space
-// OBSOLETE * then we find the user stack pointer saved in the emulator
-// OBSOLETE * stack, and try to map that to the cprocs.
-// OBSOLETE *
-// OBSOLETE * Also set in_emulator for kernel threads.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE if (emulator_present)
-// OBSOLETE {
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR emul_sp;
-// OBSOLETE CORE_ADDR usp;
-// OBSOLETE
-// OBSOLETE gdb_thread_t mthread = (mthreads + index);
-// OBSOLETE emul_sp = mthread->sp;
-// OBSOLETE
-// OBSOLETE if (mthread->cproc == NULL &&
-// OBSOLETE EMULATOR_BASE <= emul_sp && emul_sp <= EMULATOR_END)
-// OBSOLETE {
-// OBSOLETE mthread->in_emulator = emulator_present;
-// OBSOLETE
-// OBSOLETE if (!all_mapped && cprocs)
-// OBSOLETE {
-// OBSOLETE usp = fetch_usp_from_emulator_stack (emul_sp);
-// OBSOLETE
-// OBSOLETE /* @@ Could be more accurate */
-// OBSOLETE if (!usp)
-// OBSOLETE error ("Zero stack pointer read from emulator?");
-// OBSOLETE
-// OBSOLETE /* Try to match this stack pointer to the cprocs that
-// OBSOLETE * don't yet have a kernel thread.
-// OBSOLETE */
-// OBSOLETE for (scan = cprocs; scan; scan = scan->next)
-// OBSOLETE {
-// OBSOLETE
-// OBSOLETE /* Check is this unmapped CPROC stack contains
-// OBSOLETE * the user stack pointer saved in the
-// OBSOLETE * emulator.
-// OBSOLETE */
-// OBSOLETE if (scan->reverse_map == -1)
-// OBSOLETE {
-// OBSOLETE stack_base =
-// OBSOLETE extract_signed_integer
-// OBSOLETE (scan->raw_cproc + CPROC_BASE_OFFSET,
-// OBSOLETE CPROC_BASE_SIZE);
-// OBSOLETE stack_size =
-// OBSOLETE extract_signed_integer
-// OBSOLETE (scan->raw_cproc + CPROC_SIZE_OFFSET,
-// OBSOLETE CPROC_SIZE_SIZE);
-// OBSOLETE if (usp > stack_base &&
-// OBSOLETE usp <= stack_base + stack_size)
-// OBSOLETE {
-// OBSOLETE mthread->cproc = scan;
-// OBSOLETE scan->reverse_map = index;
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /*
-// OBSOLETE * Format of the thread_list command
-// OBSOLETE *
-// OBSOLETE * slot mid sel name emul ks susp cstate wired address
-// OBSOLETE */
-// OBSOLETE #define TL_FORMAT "%-2.2s %5d%c %-10.10s %1.1s%s%-5.5s %-2.2s %-5.5s "
-// OBSOLETE
-// OBSOLETE #define TL_HEADER "\n@ MID Name KState CState Where\n"
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE print_tl_address (struct ui_file *stream, CORE_ADDR pc)
-// OBSOLETE {
-// OBSOLETE if (!lookup_minimal_symbol_by_pc (pc))
-// OBSOLETE fprintf_filtered (stream, local_hex_format (), pc);
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE extern int addressprint;
-// OBSOLETE extern int asm_demangle;
-// OBSOLETE
-// OBSOLETE int store = addressprint;
-// OBSOLETE addressprint = 0;
-// OBSOLETE print_address_symbolic (pc, stream, asm_demangle, "");
-// OBSOLETE addressprint = store;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* For thread names, but also for gdb_message_port external name */
-// OBSOLETE #define MAX_NAME_LEN 50
-// OBSOLETE
-// OBSOLETE /* Returns the address of variable NAME or 0 if not found */
-// OBSOLETE CORE_ADDR
-// OBSOLETE lookup_address_of_variable (char *name)
-// OBSOLETE {
-// OBSOLETE struct symbol *sym;
-// OBSOLETE CORE_ADDR symaddr = 0;
-// OBSOLETE struct minimal_symbol *msymbol;
-// OBSOLETE
-// OBSOLETE sym = lookup_symbol (name,
-// OBSOLETE (struct block *) NULL,
-// OBSOLETE VAR_DOMAIN,
-// OBSOLETE (int *) NULL,
-// OBSOLETE (struct symtab **) NULL);
-// OBSOLETE
-// OBSOLETE if (sym)
-// OBSOLETE symaddr = SYMBOL_VALUE (sym);
-// OBSOLETE
-// OBSOLETE if (!symaddr)
-// OBSOLETE {
-// OBSOLETE msymbol = lookup_minimal_symbol (name, NULL, NULL);
-// OBSOLETE
-// OBSOLETE if (msymbol && msymbol->type == mst_data)
-// OBSOLETE symaddr = SYMBOL_VALUE_ADDRESS (msymbol);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return symaddr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static gdb_thread_t
-// OBSOLETE get_cprocs (void)
-// OBSOLETE {
-// OBSOLETE gdb_thread_t cproc_head;
-// OBSOLETE gdb_thread_t cproc_copy;
-// OBSOLETE CORE_ADDR their_cprocs;
-// OBSOLETE char *buf;
-// OBSOLETE char *name;
-// OBSOLETE cthread_t cthread;
-// OBSOLETE CORE_ADDR symaddr;
-// OBSOLETE
-// OBSOLETE buf = alloca (TARGET_PTR_BIT / HOST_CHAR_BIT);
-// OBSOLETE symaddr = lookup_address_of_variable ("cproc_list");
-// OBSOLETE
-// OBSOLETE if (!symaddr)
-// OBSOLETE {
-// OBSOLETE /* cproc_list is not in a file compiled with debugging
-// OBSOLETE symbols, but don't give up yet */
-// OBSOLETE
-// OBSOLETE symaddr = lookup_address_of_variable ("cprocs");
-// OBSOLETE
-// OBSOLETE if (symaddr)
-// OBSOLETE {
-// OBSOLETE static int informed = 0;
-// OBSOLETE if (!informed)
-// OBSOLETE {
-// OBSOLETE informed++;
-// OBSOLETE warning ("Your program is loaded with an old threads library.");
-// OBSOLETE warning ("GDB does not know the old form of threads");
-// OBSOLETE warning ("so things may not work.");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Stripped or no -lthreads loaded or "cproc_list" is in wrong segment. */
-// OBSOLETE if (!symaddr)
-// OBSOLETE return NULL;
-// OBSOLETE
-// OBSOLETE /* Get the address of the first cproc in the task */
-// OBSOLETE if (!mach3_read_inferior (symaddr,
-// OBSOLETE buf,
-// OBSOLETE TARGET_PTR_BIT / HOST_CHAR_BIT))
-// OBSOLETE error ("Can't read cproc master list at address (0x%x).", symaddr);
-// OBSOLETE their_cprocs = extract_address (buf, TARGET_PTR_BIT / HOST_CHAR_BIT);
-// OBSOLETE
-// OBSOLETE /* Scan the CPROCs in the task.
-// OBSOLETE CPROCs are chained with LIST field, not NEXT field, which
-// OBSOLETE chains mutexes, condition variables and queues */
-// OBSOLETE
-// OBSOLETE cproc_head = NULL;
-// OBSOLETE
-// OBSOLETE while (their_cprocs != (CORE_ADDR) 0)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR cproc_copy_incarnation;
-// OBSOLETE cproc_copy = (gdb_thread_t) obstack_alloc (cproc_obstack,
-// OBSOLETE sizeof (struct gdb_thread));
-// OBSOLETE
-// OBSOLETE if (!mach3_read_inferior (their_cprocs,
-// OBSOLETE &cproc_copy->raw_cproc[0],
-// OBSOLETE CPROC_SIZE))
-// OBSOLETE error ("Can't read next cproc at 0x%x.", their_cprocs);
-// OBSOLETE
-// OBSOLETE their_cprocs =
-// OBSOLETE extract_address (cproc_copy->raw_cproc + CPROC_LIST_OFFSET,
-// OBSOLETE CPROC_LIST_SIZE);
-// OBSOLETE cproc_copy_incarnation =
-// OBSOLETE extract_address (cproc_copy->raw_cproc + CPROC_INCARNATION_OFFSET,
-// OBSOLETE CPROC_INCARNATION_SIZE);
-// OBSOLETE
-// OBSOLETE if (cproc_copy_incarnation == (CORE_ADDR) 0)
-// OBSOLETE cproc_copy->cthread = NULL;
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* This CPROC has an attached CTHREAD. Get its name */
-// OBSOLETE cthread = (cthread_t) obstack_alloc (cproc_obstack,
-// OBSOLETE sizeof (struct cthread));
-// OBSOLETE
-// OBSOLETE if (!mach3_read_inferior (cproc_copy_incarnation,
-// OBSOLETE cthread,
-// OBSOLETE sizeof (struct cthread)))
-// OBSOLETE error ("Can't read next thread at 0x%x.",
-// OBSOLETE cproc_copy_incarnation);
-// OBSOLETE
-// OBSOLETE cproc_copy->cthread = cthread;
-// OBSOLETE
-// OBSOLETE if (cthread->name)
-// OBSOLETE {
-// OBSOLETE name = (char *) obstack_alloc (cproc_obstack, MAX_NAME_LEN);
-// OBSOLETE
-// OBSOLETE if (!mach3_read_inferior (cthread->name, name, MAX_NAME_LEN))
-// OBSOLETE error ("Can't read next thread's name at 0x%x.", cthread->name);
-// OBSOLETE
-// OBSOLETE cthread->name = name;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* insert in front */
-// OBSOLETE cproc_copy->next = cproc_head;
-// OBSOLETE cproc_head = cproc_copy;
-// OBSOLETE }
-// OBSOLETE return cproc_head;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #ifndef FETCH_CPROC_STATE
-// OBSOLETE /*
-// OBSOLETE * Check if your machine does not grok the way this routine
-// OBSOLETE * fetches the FP,PC and SP of a cproc that is not
-// OBSOLETE * currently attached to any kernel thread (e.g. its cproc.context
-// OBSOLETE * field points to the place in stack where the context
-// OBSOLETE * is saved).
-// OBSOLETE *
-// OBSOLETE * If it doesn't, define your own routine.
-// OBSOLETE */
-// OBSOLETE #define FETCH_CPROC_STATE(mth) mach3_cproc_state (mth)
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE mach3_cproc_state (gdb_thread_t mthread)
-// OBSOLETE {
-// OBSOLETE int context;
-// OBSOLETE
-// OBSOLETE if (!mthread || !mthread->cproc)
-// OBSOLETE return -1;
-// OBSOLETE
-// OBSOLETE context = extract_signed_integer
-// OBSOLETE (mthread->cproc->raw_cproc + CPROC_CONTEXT_OFFSET,
-// OBSOLETE CPROC_CONTEXT_SIZE);
-// OBSOLETE if (context == 0)
-// OBSOLETE return -1;
-// OBSOLETE
-// OBSOLETE mthread->sp = context + MACHINE_CPROC_SP_OFFSET;
-// OBSOLETE
-// OBSOLETE if (mach3_read_inferior (context + MACHINE_CPROC_PC_OFFSET,
-// OBSOLETE &mthread->pc,
-// OBSOLETE sizeof (CORE_ADDR)) != sizeof (CORE_ADDR))
-// OBSOLETE {
-// OBSOLETE warning ("Can't read cproc pc from inferior");
-// OBSOLETE return -1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (mach3_read_inferior (context + MACHINE_CPROC_FP_OFFSET,
-// OBSOLETE &mthread->fp,
-// OBSOLETE sizeof (CORE_ADDR)) != sizeof (CORE_ADDR))
-// OBSOLETE {
-// OBSOLETE warning ("Can't read cproc fp from inferior");
-// OBSOLETE return -1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE #endif /* FETCH_CPROC_STATE */
-// OBSOLETE \f
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE thread_list_command (void)
-// OBSOLETE {
-// OBSOLETE thread_basic_info_data_t ths;
-// OBSOLETE int thread_count;
-// OBSOLETE gdb_thread_t cprocs;
-// OBSOLETE gdb_thread_t scan;
-// OBSOLETE int index;
-// OBSOLETE char *name;
-// OBSOLETE char selected;
-// OBSOLETE char *wired;
-// OBSOLETE int infoCnt;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE mach_port_t mid_or_port;
-// OBSOLETE gdb_thread_t their_threads;
-// OBSOLETE gdb_thread_t kthread;
-// OBSOLETE
-// OBSOLETE int neworder = 1;
-// OBSOLETE
-// OBSOLETE char *fmt = "There are %d kernel threads in task %d.\n";
-// OBSOLETE
-// OBSOLETE int tmid = map_port_name_to_mid (inferior_task, MACH_TYPE_TASK);
-// OBSOLETE
-// OBSOLETE MACH_ERROR_NO_INFERIOR;
-// OBSOLETE
-// OBSOLETE thread_count = fetch_thread_info (inferior_task,
-// OBSOLETE &their_threads);
-// OBSOLETE if (thread_count == -1)
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE if (thread_count == 1)
-// OBSOLETE fmt = "There is %d kernel thread in task %d.\n";
-// OBSOLETE
-// OBSOLETE printf_filtered (fmt, thread_count, tmid);
-// OBSOLETE
-// OBSOLETE puts_filtered (TL_HEADER);
-// OBSOLETE
-// OBSOLETE cprocs = get_cprocs ();
-// OBSOLETE
-// OBSOLETE map_cprocs_to_kernel_threads (cprocs, their_threads, thread_count);
-// OBSOLETE
-// OBSOLETE for (scan = cprocs; scan; scan = scan->next)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE char buf[10];
-// OBSOLETE char slot[3];
-// OBSOLETE int cproc_state =
-// OBSOLETE extract_signed_integer
-// OBSOLETE (scan->raw_cproc + CPROC_STATE_OFFSET, CPROC_STATE_SIZE);
-// OBSOLETE
-// OBSOLETE selected = ' ';
-// OBSOLETE
-// OBSOLETE /* a wired cproc? */
-// OBSOLETE wired = (extract_address (scan->raw_cproc + CPROC_WIRED_OFFSET,
-// OBSOLETE CPROC_WIRED_SIZE)
-// OBSOLETE ? "wired" : "");
-// OBSOLETE
-// OBSOLETE if (scan->reverse_map != -1)
-// OBSOLETE kthread = (their_threads + scan->reverse_map);
-// OBSOLETE else
-// OBSOLETE kthread = NULL;
-// OBSOLETE
-// OBSOLETE if (kthread)
-// OBSOLETE {
-// OBSOLETE /* These cprocs have a kernel thread */
-// OBSOLETE
-// OBSOLETE mid = map_port_name_to_mid (kthread->name, MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE infoCnt = THREAD_BASIC_INFO_COUNT;
-// OBSOLETE
-// OBSOLETE ret = thread_info (kthread->name,
-// OBSOLETE THREAD_BASIC_INFO,
-// OBSOLETE (thread_info_t) & ths,
-// OBSOLETE &infoCnt);
-// OBSOLETE
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Unable to get basic info on thread %d : %s",
-// OBSOLETE mid,
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Who is the first to have more than 100 threads */
-// OBSOLETE sprintf (slot, "%d", kthread->slotid % 100);
-// OBSOLETE
-// OBSOLETE if (kthread->name == current_thread)
-// OBSOLETE selected = '*';
-// OBSOLETE
-// OBSOLETE if (ths.suspend_count)
-// OBSOLETE sprintf (buf, "%d", ths.suspend_count);
-// OBSOLETE else
-// OBSOLETE buf[0] = '\000';
-// OBSOLETE
-// OBSOLETE #if 0
-// OBSOLETE if (ths.flags & TH_FLAGS_SWAPPED)
-// OBSOLETE strcat (buf, "S");
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE if (ths.flags & TH_FLAGS_IDLE)
-// OBSOLETE strcat (buf, "I");
-// OBSOLETE
-// OBSOLETE printf_filtered (TL_FORMAT,
-// OBSOLETE slot,
-// OBSOLETE mid,
-// OBSOLETE selected,
-// OBSOLETE get_thread_name (scan, kthread->slotid),
-// OBSOLETE kthread->in_emulator ? "E" : "",
-// OBSOLETE translate_state (ths.run_state),
-// OBSOLETE buf,
-// OBSOLETE translate_cstate (cproc_state),
-// OBSOLETE wired);
-// OBSOLETE print_tl_address (gdb_stdout, kthread->pc);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* These cprocs don't have a kernel thread.
-// OBSOLETE * find out the calling frame with
-// OBSOLETE * FETCH_CPROC_STATE.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE struct gdb_thread state;
-// OBSOLETE
-// OBSOLETE #if 0
-// OBSOLETE /* jtv -> emcmanus: why do you want this here? */
-// OBSOLETE if (scan->incarnation == NULL)
-// OBSOLETE continue; /* EMcM */
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE printf_filtered (TL_FORMAT,
-// OBSOLETE "-",
-// OBSOLETE -neworder, /* Pseudo MID */
-// OBSOLETE selected,
-// OBSOLETE get_thread_name (scan, -neworder),
-// OBSOLETE "",
-// OBSOLETE "-", /* kernel state */
-// OBSOLETE "",
-// OBSOLETE translate_cstate (cproc_state),
-// OBSOLETE "");
-// OBSOLETE state.cproc = scan;
-// OBSOLETE
-// OBSOLETE if (FETCH_CPROC_STATE (&state) == -1)
-// OBSOLETE puts_filtered ("???");
-// OBSOLETE else
-// OBSOLETE print_tl_address (gdb_stdout, state.pc);
-// OBSOLETE
-// OBSOLETE neworder++;
-// OBSOLETE }
-// OBSOLETE puts_filtered ("\n");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Scan for kernel threads without cprocs */
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE {
-// OBSOLETE if (!their_threads[index].cproc)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE
-// OBSOLETE char buf[10];
-// OBSOLETE char slot[3];
-// OBSOLETE
-// OBSOLETE mach_port_t name = their_threads[index].name;
-// OBSOLETE
-// OBSOLETE mid = map_port_name_to_mid (name, MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE infoCnt = THREAD_BASIC_INFO_COUNT;
-// OBSOLETE
-// OBSOLETE ret = thread_info (name,
-// OBSOLETE THREAD_BASIC_INFO,
-// OBSOLETE (thread_info_t) & ths,
-// OBSOLETE &infoCnt);
-// OBSOLETE
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Unable to get basic info on thread %d : %s",
-// OBSOLETE mid,
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE sprintf (slot, "%d", index % 100);
-// OBSOLETE
-// OBSOLETE if (name == current_thread)
-// OBSOLETE selected = '*';
-// OBSOLETE else
-// OBSOLETE selected = ' ';
-// OBSOLETE
-// OBSOLETE if (ths.suspend_count)
-// OBSOLETE sprintf (buf, "%d", ths.suspend_count);
-// OBSOLETE else
-// OBSOLETE buf[0] = '\000';
-// OBSOLETE
-// OBSOLETE #if 0
-// OBSOLETE if (ths.flags & TH_FLAGS_SWAPPED)
-// OBSOLETE strcat (buf, "S");
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE if (ths.flags & TH_FLAGS_IDLE)
-// OBSOLETE strcat (buf, "I");
-// OBSOLETE
-// OBSOLETE printf_filtered (TL_FORMAT,
-// OBSOLETE slot,
-// OBSOLETE mid,
-// OBSOLETE selected,
-// OBSOLETE get_thread_name (NULL, index),
-// OBSOLETE their_threads[index].in_emulator ? "E" : "",
-// OBSOLETE translate_state (ths.run_state),
-// OBSOLETE buf,
-// OBSOLETE "", /* No cproc state */
-// OBSOLETE ""); /* Can't be wired */
-// OBSOLETE print_tl_address (gdb_stdout, their_threads[index].pc);
-// OBSOLETE puts_filtered ("\n");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE obstack_free (cproc_obstack, 0);
-// OBSOLETE obstack_init (cproc_obstack);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE void
-// OBSOLETE thread_select_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE thread_array_t thread_list;
-// OBSOLETE int thread_count;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE int is_slot = 0;
-// OBSOLETE
-// OBSOLETE MACH_ERROR_NO_INFERIOR;
-// OBSOLETE
-// OBSOLETE if (!args)
-// OBSOLETE error_no_arg ("MID or @SLOTNUMBER to specify a thread to select");
-// OBSOLETE
-// OBSOLETE while (*args == ' ' || *args == '\t')
-// OBSOLETE args++;
-// OBSOLETE
-// OBSOLETE if (*args == '@')
-// OBSOLETE {
-// OBSOLETE is_slot++;
-// OBSOLETE args++;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE mid = atoi (args);
-// OBSOLETE
-// OBSOLETE if (mid == 0)
-// OBSOLETE if (!is_slot || *args != '0') /* Rudimentary checks */
-// OBSOLETE error ("You must select threads by MID or @SLOTNUMBER");
-// OBSOLETE
-// OBSOLETE if (select_thread (inferior_task, mid, is_slot ? 2 : 1) != KERN_SUCCESS)
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE if (from_tty)
-// OBSOLETE printf_filtered ("Thread %d selected\n",
-// OBSOLETE is_slot ? map_port_name_to_mid (current_thread,
-// OBSOLETE MACH_TYPE_THREAD) : mid);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE thread_trace (mach_port_t thread, boolean_t set)
-// OBSOLETE {
-// OBSOLETE int flavor = TRACE_FLAVOR;
-// OBSOLETE unsigned int stateCnt = TRACE_FLAVOR_SIZE;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE thread_state_data_t state;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (thread))
-// OBSOLETE {
-// OBSOLETE warning ("thread_trace: invalid thread");
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (must_suspend_thread)
-// OBSOLETE setup_thread (thread, 1);
-// OBSOLETE
-// OBSOLETE ret = thread_get_state (thread, flavor, state, &stateCnt);
-// OBSOLETE CHK ("thread_trace: error reading thread state", ret);
-// OBSOLETE
-// OBSOLETE if (set)
-// OBSOLETE {
-// OBSOLETE TRACE_SET (thread, state);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE if (!TRACE_CLEAR (thread, state))
-// OBSOLETE {
-// OBSOLETE if (must_suspend_thread)
-// OBSOLETE setup_thread (thread, 0);
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = thread_set_state (thread, flavor, state, stateCnt);
-// OBSOLETE CHK ("thread_trace: error writing thread state", ret);
-// OBSOLETE if (must_suspend_thread)
-// OBSOLETE setup_thread (thread, 0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #ifdef FLUSH_INFERIOR_CACHE
-// OBSOLETE
-// OBSOLETE /* When over-writing code on some machines the I-Cache must be flushed
-// OBSOLETE explicitly, because it is not kept coherent by the lazy hardware.
-// OBSOLETE This definitely includes breakpoints, for instance, or else we
-// OBSOLETE end up looping in mysterious Bpt traps */
-// OBSOLETE
-// OBSOLETE flush_inferior_icache (CORE_ADDR pc, int amount)
-// OBSOLETE {
-// OBSOLETE vm_machine_attribute_val_t flush = MATTR_VAL_ICACHE_FLUSH;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE ret = vm_machine_attribute (inferior_task,
-// OBSOLETE pc,
-// OBSOLETE amount,
-// OBSOLETE MATTR_CACHE,
-// OBSOLETE &flush);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE warning ("Error flushing inferior's cache : %s",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE }
-// OBSOLETE #endif /* FLUSH_INFERIOR_CACHE */
-// OBSOLETE \f
-// OBSOLETE
-// OBSOLETE static
-// OBSOLETE suspend_all_threads (int from_tty)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE thread_array_t thread_list;
-// OBSOLETE int thread_count, index;
-// OBSOLETE int infoCnt;
-// OBSOLETE thread_basic_info_data_t th_info;
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE ret = task_threads (inferior_task, &thread_list, &thread_count);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("Could not suspend inferior threads.");
-// OBSOLETE m3_kill_inferior ();
-// OBSOLETE throw_exception (RETURN_ERROR);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE
-// OBSOLETE mid = map_port_name_to_mid (thread_list[index],
-// OBSOLETE MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE ret = thread_suspend (thread_list[index]);
-// OBSOLETE
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE warning ("Error trying to suspend thread %d : %s",
-// OBSOLETE mid, mach_error_string (ret));
-// OBSOLETE
-// OBSOLETE if (from_tty)
-// OBSOLETE {
-// OBSOLETE infoCnt = THREAD_BASIC_INFO_COUNT;
-// OBSOLETE ret = thread_info (thread_list[index],
-// OBSOLETE THREAD_BASIC_INFO,
-// OBSOLETE (thread_info_t) & th_info,
-// OBSOLETE &infoCnt);
-// OBSOLETE CHK ("suspend can't get thread info", ret);
-// OBSOLETE
-// OBSOLETE warning ("Thread %d suspend count is %d",
-// OBSOLETE mid, th_info.suspend_count);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE consume_send_rights (thread_list, thread_count);
-// OBSOLETE ret = vm_deallocate (mach_task_self (),
-// OBSOLETE (vm_address_t) thread_list,
-// OBSOLETE (thread_count * sizeof (int)));
-// OBSOLETE CHK ("Error trying to deallocate thread list", ret);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE thread_suspend_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE int mid;
-// OBSOLETE mach_port_t saved_thread;
-// OBSOLETE int infoCnt;
-// OBSOLETE thread_basic_info_data_t th_info;
-// OBSOLETE
-// OBSOLETE MACH_ERROR_NO_INFERIOR;
-// OBSOLETE
-// OBSOLETE if (!strcasecmp (args, "all"))
-// OBSOLETE {
-// OBSOLETE suspend_all_threads (from_tty);
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE saved_thread = current_thread;
-// OBSOLETE
-// OBSOLETE mid = parse_thread_id (args, 0, 0);
-// OBSOLETE
-// OBSOLETE if (mid < 0)
-// OBSOLETE error ("You can suspend only existing kernel threads with MID or @SLOTNUMBER");
-// OBSOLETE
-// OBSOLETE if (mid == 0)
-// OBSOLETE mid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD);
-// OBSOLETE else if (select_thread (inferior_task, mid, 0) != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE if (current_thread)
-// OBSOLETE current_thread = saved_thread;
-// OBSOLETE error ("Could not select thread %d", mid);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = thread_suspend (current_thread);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE warning ("thread_suspend failed : %s",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE
-// OBSOLETE infoCnt = THREAD_BASIC_INFO_COUNT;
-// OBSOLETE ret = thread_info (current_thread,
-// OBSOLETE THREAD_BASIC_INFO,
-// OBSOLETE (thread_info_t) & th_info,
-// OBSOLETE &infoCnt);
-// OBSOLETE CHK ("suspend can't get thread info", ret);
-// OBSOLETE
-// OBSOLETE warning ("Thread %d suspend count is %d", mid, th_info.suspend_count);
-// OBSOLETE
-// OBSOLETE current_thread = saved_thread;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE resume_all_threads (int from_tty)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE thread_array_t thread_list;
-// OBSOLETE int thread_count, index;
-// OBSOLETE int mid;
-// OBSOLETE int infoCnt;
-// OBSOLETE thread_basic_info_data_t th_info;
-// OBSOLETE
-// OBSOLETE ret = task_threads (inferior_task, &thread_list, &thread_count);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE m3_kill_inferior ();
-// OBSOLETE error ("task_threads", mach_error_string (ret));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE {
-// OBSOLETE infoCnt = THREAD_BASIC_INFO_COUNT;
-// OBSOLETE ret = thread_info (thread_list[index],
-// OBSOLETE THREAD_BASIC_INFO,
-// OBSOLETE (thread_info_t) & th_info,
-// OBSOLETE &infoCnt);
-// OBSOLETE CHK ("resume_all can't get thread info", ret);
-// OBSOLETE
-// OBSOLETE mid = map_port_name_to_mid (thread_list[index],
-// OBSOLETE MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE if (!th_info.suspend_count)
-// OBSOLETE {
-// OBSOLETE if (mid != -1 && from_tty)
-// OBSOLETE warning ("Thread %d is not suspended", mid);
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = thread_resume (thread_list[index]);
-// OBSOLETE
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE warning ("Error trying to resume thread %d : %s",
-// OBSOLETE mid, mach_error_string (ret));
-// OBSOLETE else if (mid != -1 && from_tty)
-// OBSOLETE warning ("Thread %d suspend count is %d",
-// OBSOLETE mid, --th_info.suspend_count);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE consume_send_rights (thread_list, thread_count);
-// OBSOLETE ret = vm_deallocate (mach_task_self (),
-// OBSOLETE (vm_address_t) thread_list,
-// OBSOLETE (thread_count * sizeof (int)));
-// OBSOLETE CHK ("Error trying to deallocate thread list", ret);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE thread_resume_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE mach_port_t saved_thread;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE thread_basic_info_data_t th_info;
-// OBSOLETE int infoCnt = THREAD_BASIC_INFO_COUNT;
-// OBSOLETE
-// OBSOLETE MACH_ERROR_NO_INFERIOR;
-// OBSOLETE
-// OBSOLETE if (!strcasecmp (args, "all"))
-// OBSOLETE {
-// OBSOLETE resume_all_threads (from_tty);
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE saved_thread = current_thread;
-// OBSOLETE
-// OBSOLETE mid = parse_thread_id (args, 0, 0);
-// OBSOLETE
-// OBSOLETE if (mid < 0)
-// OBSOLETE error ("You can resume only existing kernel threads with MID or @SLOTNUMBER");
-// OBSOLETE
-// OBSOLETE if (mid == 0)
-// OBSOLETE mid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD);
-// OBSOLETE else if (select_thread (inferior_task, mid, 0) != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE if (current_thread)
-// OBSOLETE current_thread = saved_thread;
-// OBSOLETE throw_exception (RETURN_ERROR);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = thread_info (current_thread,
-// OBSOLETE THREAD_BASIC_INFO,
-// OBSOLETE (thread_info_t) & th_info,
-// OBSOLETE &infoCnt);
-// OBSOLETE CHK ("resume can't get thread info", ret);
-// OBSOLETE
-// OBSOLETE if (!th_info.suspend_count)
-// OBSOLETE {
-// OBSOLETE warning ("Thread %d is not suspended", mid);
-// OBSOLETE goto out;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = thread_resume (current_thread);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE warning ("thread_resume failed : %s",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE th_info.suspend_count--;
-// OBSOLETE warning ("Thread %d suspend count is %d", mid, th_info.suspend_count);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE out:
-// OBSOLETE current_thread = saved_thread;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE thread_kill_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE int mid;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE int thread_count;
-// OBSOLETE thread_array_t thread_table;
-// OBSOLETE int index;
-// OBSOLETE mach_port_t thread_to_kill = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE MACH_ERROR_NO_INFERIOR;
-// OBSOLETE
-// OBSOLETE if (!args)
-// OBSOLETE error_no_arg ("thread mid to kill from the inferior task");
-// OBSOLETE
-// OBSOLETE mid = parse_thread_id (args, 0, 0);
-// OBSOLETE
-// OBSOLETE if (mid < 0)
-// OBSOLETE error ("You can kill only existing kernel threads with MID or @SLOTNUMBER");
-// OBSOLETE
-// OBSOLETE if (mid)
-// OBSOLETE {
-// OBSOLETE ret = machid_mach_port (mid_server, mid_auth, mid, &thread_to_kill);
-// OBSOLETE CHK ("thread_kill_command: machid_mach_port map failed", ret);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE mid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD);
-// OBSOLETE
-// OBSOLETE /* Don't allow gdb to kill *any* thread in the system. Use mkill program for that */
-// OBSOLETE ret = task_threads (inferior_task, &thread_table, &thread_count);
-// OBSOLETE CHK ("Error getting inferior's thread list", ret);
-// OBSOLETE
-// OBSOLETE if (thread_to_kill == current_thread)
-// OBSOLETE {
-// OBSOLETE ret = thread_terminate (thread_to_kill);
-// OBSOLETE CHK ("Thread could not be terminated", ret);
-// OBSOLETE
-// OBSOLETE if (select_thread (inferior_task, 0, 1) != KERN_SUCCESS)
-// OBSOLETE warning ("Last thread was killed, use \"kill\" command to kill task");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE if (thread_table[index] == thread_to_kill)
-// OBSOLETE {
-// OBSOLETE ret = thread_terminate (thread_to_kill);
-// OBSOLETE CHK ("Thread could not be terminated", ret);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (thread_count > 1)
-// OBSOLETE consume_send_rights (thread_table, thread_count);
-// OBSOLETE
-// OBSOLETE ret = vm_deallocate (mach_task_self (), (vm_address_t) thread_table,
-// OBSOLETE (thread_count * sizeof (mach_port_t)));
-// OBSOLETE CHK ("Error trying to deallocate thread list", ret);
-// OBSOLETE
-// OBSOLETE warning ("Thread %d killed", mid);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE
-// OBSOLETE /* Task specific commands; add more if you like */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE task_resume_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE task_basic_info_data_t ta_info;
-// OBSOLETE int infoCnt = TASK_BASIC_INFO_COUNT;
-// OBSOLETE int mid = map_port_name_to_mid (inferior_task, MACH_TYPE_TASK);
-// OBSOLETE
-// OBSOLETE MACH_ERROR_NO_INFERIOR;
-// OBSOLETE
-// OBSOLETE /* Would be trivial to change, but is it desirable? */
-// OBSOLETE if (args)
-// OBSOLETE error ("Currently gdb can resume only it's inferior task");
-// OBSOLETE
-// OBSOLETE ret = task_info (inferior_task,
-// OBSOLETE TASK_BASIC_INFO,
-// OBSOLETE (task_info_t) & ta_info,
-// OBSOLETE &infoCnt);
-// OBSOLETE CHK ("task_resume_command: task_info failed", ret);
-// OBSOLETE
-// OBSOLETE if (ta_info.suspend_count == 0)
-// OBSOLETE error ("Inferior task %d is not suspended", mid);
-// OBSOLETE else if (ta_info.suspend_count == 1 &&
-// OBSOLETE from_tty &&
-// OBSOLETE !query ("Suspend count is now 1. Do you know what you are doing? "))
-// OBSOLETE error ("Task not resumed");
-// OBSOLETE
-// OBSOLETE ret = task_resume (inferior_task);
-// OBSOLETE CHK ("task_resume_command: task_resume", ret);
-// OBSOLETE
-// OBSOLETE if (ta_info.suspend_count == 1)
-// OBSOLETE {
-// OBSOLETE warning ("Inferior task %d is no longer suspended", mid);
-// OBSOLETE must_suspend_thread = 1;
-// OBSOLETE /* @@ This is not complete: Registers change all the time when not
-// OBSOLETE suspended! */
-// OBSOLETE registers_changed ();
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE warning ("Inferior task %d suspend count is now %d",
-// OBSOLETE mid, ta_info.suspend_count - 1);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE task_suspend_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE task_basic_info_data_t ta_info;
-// OBSOLETE int infoCnt = TASK_BASIC_INFO_COUNT;
-// OBSOLETE int mid = map_port_name_to_mid (inferior_task, MACH_TYPE_TASK);
-// OBSOLETE
-// OBSOLETE MACH_ERROR_NO_INFERIOR;
-// OBSOLETE
-// OBSOLETE /* Would be trivial to change, but is it desirable? */
-// OBSOLETE if (args)
-// OBSOLETE error ("Currently gdb can suspend only it's inferior task");
-// OBSOLETE
-// OBSOLETE ret = task_suspend (inferior_task);
-// OBSOLETE CHK ("task_suspend_command: task_suspend", ret);
-// OBSOLETE
-// OBSOLETE must_suspend_thread = 0;
-// OBSOLETE
-// OBSOLETE ret = task_info (inferior_task,
-// OBSOLETE TASK_BASIC_INFO,
-// OBSOLETE (task_info_t) & ta_info,
-// OBSOLETE &infoCnt);
-// OBSOLETE CHK ("task_suspend_command: task_info failed", ret);
-// OBSOLETE
-// OBSOLETE warning ("Inferior task %d suspend count is now %d",
-// OBSOLETE mid, ta_info.suspend_count);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static char *
-// OBSOLETE get_size (int bytes)
-// OBSOLETE {
-// OBSOLETE static char size[30];
-// OBSOLETE int zz = bytes / 1024;
-// OBSOLETE
-// OBSOLETE if (zz / 1024)
-// OBSOLETE sprintf (size, "%-2.1f M", ((float) bytes) / (1024.0 * 1024.0));
-// OBSOLETE else
-// OBSOLETE sprintf (size, "%d K", zz);
-// OBSOLETE
-// OBSOLETE return size;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Does this require the target task to be suspended?? I don't think so. */
-// OBSOLETE void
-// OBSOLETE task_info_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE int mid = -5;
-// OBSOLETE mach_port_t task;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE task_basic_info_data_t ta_info;
-// OBSOLETE int infoCnt = TASK_BASIC_INFO_COUNT;
-// OBSOLETE int page_size = round_page (1);
-// OBSOLETE int thread_count = 0;
-// OBSOLETE
-// OBSOLETE if (MACH_PORT_VALID (inferior_task))
-// OBSOLETE mid = map_port_name_to_mid (inferior_task,
-// OBSOLETE MACH_TYPE_TASK);
-// OBSOLETE
-// OBSOLETE task = inferior_task;
-// OBSOLETE
-// OBSOLETE if (args)
-// OBSOLETE {
-// OBSOLETE int tmid = atoi (args);
-// OBSOLETE
-// OBSOLETE if (tmid <= 0)
-// OBSOLETE error ("Invalid mid %d for task info", tmid);
-// OBSOLETE
-// OBSOLETE if (tmid != mid)
-// OBSOLETE {
-// OBSOLETE mid = tmid;
-// OBSOLETE ret = machid_mach_port (mid_server, mid_auth, tmid, &task);
-// OBSOLETE CHK ("task_info_command: machid_mach_port map failed", ret);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (mid < 0)
-// OBSOLETE error ("You have to give the task MID as an argument");
-// OBSOLETE
-// OBSOLETE ret = task_info (task,
-// OBSOLETE TASK_BASIC_INFO,
-// OBSOLETE (task_info_t) & ta_info,
-// OBSOLETE &infoCnt);
-// OBSOLETE CHK ("task_info_command: task_info failed", ret);
-// OBSOLETE
-// OBSOLETE printf_filtered ("\nTask info for task %d:\n\n", mid);
-// OBSOLETE printf_filtered (" Suspend count : %d\n", ta_info.suspend_count);
-// OBSOLETE printf_filtered (" Base priority : %d\n", ta_info.base_priority);
-// OBSOLETE printf_filtered (" Virtual size : %s\n", get_size (ta_info.virtual_size));
-// OBSOLETE printf_filtered (" Resident size : %s\n", get_size (ta_info.resident_size));
-// OBSOLETE
-// OBSOLETE {
-// OBSOLETE thread_array_t thread_list;
-// OBSOLETE
-// OBSOLETE ret = task_threads (task, &thread_list, &thread_count);
-// OBSOLETE CHK ("task_info_command: task_threads", ret);
-// OBSOLETE
-// OBSOLETE printf_filtered (" Thread count : %d\n", thread_count);
-// OBSOLETE
-// OBSOLETE consume_send_rights (thread_list, thread_count);
-// OBSOLETE ret = vm_deallocate (mach_task_self (),
-// OBSOLETE (vm_address_t) thread_list,
-// OBSOLETE (thread_count * sizeof (int)));
-// OBSOLETE CHK ("Error trying to deallocate thread list", ret);
-// OBSOLETE }
-// OBSOLETE if (have_emulator_p (task))
-// OBSOLETE printf_filtered (" Emulator at : 0x%x..0x%x\n",
-// OBSOLETE EMULATOR_BASE, EMULATOR_END);
-// OBSOLETE else
-// OBSOLETE printf_filtered (" No emulator.\n");
-// OBSOLETE
-// OBSOLETE if (thread_count && task == inferior_task)
-// OBSOLETE printf_filtered ("\nUse the \"thread list\" command to see the threads\n");
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* You may either FORWARD the exception to the inferior, or KEEP
-// OBSOLETE * it and return to GDB command level.
-// OBSOLETE *
-// OBSOLETE * exception mid [ forward | keep ]
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE exception_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE char *scan = args;
-// OBSOLETE int exception;
-// OBSOLETE int len;
-// OBSOLETE
-// OBSOLETE if (!args)
-// OBSOLETE error_no_arg ("exception number action");
-// OBSOLETE
-// OBSOLETE while (*scan == ' ' || *scan == '\t')
-// OBSOLETE scan++;
-// OBSOLETE
-// OBSOLETE if ('0' <= *scan && *scan <= '9')
-// OBSOLETE while ('0' <= *scan && *scan <= '9')
-// OBSOLETE scan++;
-// OBSOLETE else
-// OBSOLETE error ("exception number action");
-// OBSOLETE
-// OBSOLETE exception = atoi (args);
-// OBSOLETE if (exception <= 0 || exception > MAX_EXCEPTION)
-// OBSOLETE error ("Allowed exception numbers are in range 1..%d",
-// OBSOLETE MAX_EXCEPTION);
-// OBSOLETE
-// OBSOLETE if (*scan != ' ' && *scan != '\t')
-// OBSOLETE error ("exception number must be followed by a space");
-// OBSOLETE else
-// OBSOLETE while (*scan == ' ' || *scan == '\t')
-// OBSOLETE scan++;
-// OBSOLETE
-// OBSOLETE args = scan;
-// OBSOLETE len = 0;
-// OBSOLETE while (*scan)
-// OBSOLETE {
-// OBSOLETE len++;
-// OBSOLETE scan++;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (!len)
-// OBSOLETE error ("exception number action");
-// OBSOLETE
-// OBSOLETE if (!strncasecmp (args, "forward", len))
-// OBSOLETE exception_map[exception].forward = TRUE;
-// OBSOLETE else if (!strncasecmp (args, "keep", len))
-// OBSOLETE exception_map[exception].forward = FALSE;
-// OBSOLETE else
-// OBSOLETE error ("exception action is either \"keep\" or \"forward\"");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE print_exception_info (int exception)
-// OBSOLETE {
-// OBSOLETE boolean_t forward = exception_map[exception].forward;
-// OBSOLETE
-// OBSOLETE printf_filtered ("%s\t(%d): ", exception_map[exception].name,
-// OBSOLETE exception);
-// OBSOLETE if (!forward)
-// OBSOLETE if (exception_map[exception].sigmap != SIG_UNKNOWN)
-// OBSOLETE printf_filtered ("keep and handle as signal %d\n",
-// OBSOLETE exception_map[exception].sigmap);
-// OBSOLETE else
-// OBSOLETE printf_filtered ("keep and handle as unknown signal %d\n",
-// OBSOLETE exception_map[exception].sigmap);
-// OBSOLETE else
-// OBSOLETE printf_filtered ("forward exception to inferior\n");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE exception_info (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE int exception;
-// OBSOLETE
-// OBSOLETE if (!args)
-// OBSOLETE for (exception = 1; exception <= MAX_EXCEPTION; exception++)
-// OBSOLETE print_exception_info (exception);
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE exception = atoi (args);
-// OBSOLETE
-// OBSOLETE if (exception <= 0 || exception > MAX_EXCEPTION)
-// OBSOLETE error ("Invalid exception number, values from 1 to %d allowed",
-// OBSOLETE MAX_EXCEPTION);
-// OBSOLETE print_exception_info (exception);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Check for actions for mach exceptions.
-// OBSOLETE */
-// OBSOLETE mach3_exception_actions (WAITTYPE *w, boolean_t force_print_only, char *who)
-// OBSOLETE {
-// OBSOLETE boolean_t force_print = FALSE;
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE if (force_print_only ||
-// OBSOLETE exception_map[stop_exception].sigmap == SIG_UNKNOWN)
-// OBSOLETE force_print = TRUE;
-// OBSOLETE else
-// OBSOLETE WSETSTOP (*w, exception_map[stop_exception].sigmap);
-// OBSOLETE
-// OBSOLETE if (exception_map[stop_exception].print || force_print)
-// OBSOLETE {
-// OBSOLETE target_terminal_ours ();
-// OBSOLETE
-// OBSOLETE printf_filtered ("\n%s received %s exception : ",
-// OBSOLETE who,
-// OBSOLETE exception_map[stop_exception].name);
-// OBSOLETE
-// OBSOLETE wrap_here (" ");
-// OBSOLETE
-// OBSOLETE switch (stop_exception)
-// OBSOLETE {
-// OBSOLETE case EXC_BAD_ACCESS:
-// OBSOLETE printf_filtered ("referencing address 0x%x : %s\n",
-// OBSOLETE stop_subcode,
-// OBSOLETE mach_error_string (stop_code));
-// OBSOLETE break;
-// OBSOLETE case EXC_BAD_INSTRUCTION:
-// OBSOLETE printf_filtered
-// OBSOLETE ("illegal or undefined instruction. code %d subcode %d\n",
-// OBSOLETE stop_code, stop_subcode);
-// OBSOLETE break;
-// OBSOLETE case EXC_ARITHMETIC:
-// OBSOLETE printf_filtered ("code %d\n", stop_code);
-// OBSOLETE break;
-// OBSOLETE case EXC_EMULATION:
-// OBSOLETE printf_filtered ("code %d subcode %d\n", stop_code, stop_subcode);
-// OBSOLETE break;
-// OBSOLETE case EXC_SOFTWARE:
-// OBSOLETE printf_filtered ("%s specific, code 0x%x\n",
-// OBSOLETE stop_code < 0xffff ? "hardware" : "os emulation",
-// OBSOLETE stop_code);
-// OBSOLETE break;
-// OBSOLETE case EXC_BREAKPOINT:
-// OBSOLETE printf_filtered ("type %d (machine dependent)\n",
-// OBSOLETE stop_code);
-// OBSOLETE break;
-// OBSOLETE default:
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "Unknown exception");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE setup_notify_port (int create_new)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE if (MACH_PORT_VALID (our_notify_port))
-// OBSOLETE {
-// OBSOLETE ret = mach_port_destroy (mach_task_self (), our_notify_port);
-// OBSOLETE CHK ("Could not destroy our_notify_port", ret);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE our_notify_port = MACH_PORT_NULL;
-// OBSOLETE notify_chain = (port_chain_t) NULL;
-// OBSOLETE port_chain_destroy (port_chain_obstack);
-// OBSOLETE
-// OBSOLETE if (create_new)
-// OBSOLETE {
-// OBSOLETE ret = mach_port_allocate (mach_task_self (),
-// OBSOLETE MACH_PORT_RIGHT_RECEIVE,
-// OBSOLETE &our_notify_port);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "Creating notify port %s", mach_error_string (ret));
-// OBSOLETE
-// OBSOLETE ret = mach_port_move_member (mach_task_self (),
-// OBSOLETE our_notify_port,
-// OBSOLETE inferior_wait_port_set);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "initial move member %s", mach_error_string (ret));
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Register our message port to the net name server
-// OBSOLETE *
-// OBSOLETE * Currently used only by the external stop-gdb program
-// OBSOLETE * since ^C does not work if you would like to enter
-// OBSOLETE * gdb command level while debugging your program.
-// OBSOLETE *
-// OBSOLETE * NOTE: If the message port is sometimes used for other
-// OBSOLETE * purposes also, the NAME must not be a guessable one.
-// OBSOLETE * Then, there should be a way to change it.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE char registered_name[MAX_NAME_LEN];
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE message_port_info (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE if (registered_name[0])
-// OBSOLETE printf_filtered ("gdb's message port name: '%s'\n",
-// OBSOLETE registered_name);
-// OBSOLETE else
-// OBSOLETE printf_filtered ("gdb's message port is not currently registered\n");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE gdb_register_port (char *name, mach_port_t port)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE static int already_signed = 0;
-// OBSOLETE int len;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (port) || !name || !*name)
-// OBSOLETE {
-// OBSOLETE warning ("Invalid registration request");
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (!already_signed)
-// OBSOLETE {
-// OBSOLETE ret = mach_port_insert_right (mach_task_self (),
-// OBSOLETE our_message_port,
-// OBSOLETE our_message_port,
-// OBSOLETE MACH_MSG_TYPE_MAKE_SEND);
-// OBSOLETE CHK ("Failed to create a signature to our_message_port", ret);
-// OBSOLETE already_signed = 1;
-// OBSOLETE }
-// OBSOLETE else if (already_signed > 1)
-// OBSOLETE {
-// OBSOLETE ret = netname_check_out (name_server_port,
-// OBSOLETE registered_name,
-// OBSOLETE our_message_port);
-// OBSOLETE CHK ("Failed to check out gdb's message port", ret);
-// OBSOLETE registered_name[0] = '\000';
-// OBSOLETE already_signed = 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = netname_check_in (name_server_port, /* Name server port */
-// OBSOLETE name, /* Name of service */
-// OBSOLETE our_message_port, /* Signature */
-// OBSOLETE port); /* Creates a new send right */
-// OBSOLETE CHK ("Failed to check in the port", ret);
-// OBSOLETE
-// OBSOLETE len = 0;
-// OBSOLETE while (len < MAX_NAME_LEN && *(name + len))
-// OBSOLETE {
-// OBSOLETE registered_name[len] = *(name + len);
-// OBSOLETE len++;
-// OBSOLETE }
-// OBSOLETE registered_name[len] = '\000';
-// OBSOLETE already_signed = 2;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE struct cmd_list_element *cmd_thread_list;
-// OBSOLETE struct cmd_list_element *cmd_task_list;
-// OBSOLETE
-// OBSOLETE /*ARGSUSED */
-// OBSOLETE static void
-// OBSOLETE thread_command (char *arg, int from_tty)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("\"thread\" must be followed by the name of a thread command.\n");
-// OBSOLETE help_list (cmd_thread_list, "thread ", -1, gdb_stdout);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*ARGSUSED */
-// OBSOLETE static void
-// OBSOLETE task_command (char *arg, int from_tty)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("\"task\" must be followed by the name of a task command.\n");
-// OBSOLETE help_list (cmd_task_list, "task ", -1, gdb_stdout);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE add_mach_specific_commands (void)
-// OBSOLETE {
-// OBSOLETE /* Thread handling commands */
-// OBSOLETE
-// OBSOLETE /* FIXME: Move our thread support into the generic thread.c stuff so we
-// OBSOLETE can share that code. */
-// OBSOLETE add_prefix_cmd ("mthread", class_stack, thread_command,
-// OBSOLETE "Generic command for handling Mach threads in the debugged task.",
-// OBSOLETE &cmd_thread_list, "thread ", 0, &cmdlist);
-// OBSOLETE
-// OBSOLETE add_com_alias ("th", "mthread", class_stack, 1);
-// OBSOLETE
-// OBSOLETE add_cmd ("select", class_stack, thread_select_command,
-// OBSOLETE "Select and print MID of the selected thread",
-// OBSOLETE &cmd_thread_list);
-// OBSOLETE add_cmd ("list", class_stack, thread_list_command,
-// OBSOLETE "List info of task's threads. Selected thread is marked with '*'",
-// OBSOLETE &cmd_thread_list);
-// OBSOLETE add_cmd ("suspend", class_run, thread_suspend_command,
-// OBSOLETE "Suspend one or all of the threads in the selected task.",
-// OBSOLETE &cmd_thread_list);
-// OBSOLETE add_cmd ("resume", class_run, thread_resume_command,
-// OBSOLETE "Resume one or all of the threads in the selected task.",
-// OBSOLETE &cmd_thread_list);
-// OBSOLETE add_cmd ("kill", class_run, thread_kill_command,
-// OBSOLETE "Kill the specified thread MID from inferior task.",
-// OBSOLETE &cmd_thread_list);
-// OBSOLETE #if 0
-// OBSOLETE /* The rest of this support (condition_thread) was not merged. It probably
-// OBSOLETE should not be merged in this form, but instead added to the generic GDB
-// OBSOLETE thread support. */
-// OBSOLETE add_cmd ("break", class_breakpoint, condition_thread,
-// OBSOLETE "Breakpoint N will only be effective for thread MID or @SLOT\n\
-// OBSOLETE If MID/@SLOT is omitted allow all threads to break at breakpoint",
-// OBSOLETE &cmd_thread_list);
-// OBSOLETE #endif
-// OBSOLETE /* Thread command shorthands (for backward compatibility) */
-// OBSOLETE add_alias_cmd ("ts", "mthread select", 0, 0, &cmdlist);
-// OBSOLETE add_alias_cmd ("tl", "mthread list", 0, 0, &cmdlist);
-// OBSOLETE
-// OBSOLETE /* task handling commands */
-// OBSOLETE
-// OBSOLETE add_prefix_cmd ("task", class_stack, task_command,
-// OBSOLETE "Generic command for handling debugged task.",
-// OBSOLETE &cmd_task_list, "task ", 0, &cmdlist);
-// OBSOLETE
-// OBSOLETE add_com_alias ("ta", "task", class_stack, 1);
-// OBSOLETE
-// OBSOLETE add_cmd ("suspend", class_run, task_suspend_command,
-// OBSOLETE "Suspend the inferior task.",
-// OBSOLETE &cmd_task_list);
-// OBSOLETE add_cmd ("resume", class_run, task_resume_command,
-// OBSOLETE "Resume the inferior task.",
-// OBSOLETE &cmd_task_list);
-// OBSOLETE add_cmd ("info", no_class, task_info_command,
-// OBSOLETE "Print information about the specified task.",
-// OBSOLETE &cmd_task_list);
-// OBSOLETE
-// OBSOLETE /* Print my message port name */
-// OBSOLETE
-// OBSOLETE add_info ("message-port", message_port_info,
-// OBSOLETE "Returns the name of gdb's message port in the netnameserver");
-// OBSOLETE
-// OBSOLETE /* Exception commands */
-// OBSOLETE
-// OBSOLETE add_info ("exceptions", exception_info,
-// OBSOLETE "What debugger does when program gets various exceptions.\n\
-// OBSOLETE Specify an exception number as argument to print info on that\n\
-// OBSOLETE exception only.");
-// OBSOLETE
-// OBSOLETE add_com ("exception", class_run, exception_command,
-// OBSOLETE "Specify how to handle an exception.\n\
-// OBSOLETE Args are exception number followed by \"forward\" or \"keep\".\n\
-// OBSOLETE `Forward' means forward the exception to the program's normal exception\n\
-// OBSOLETE handler.\n\
-// OBSOLETE `Keep' means reenter debugger if this exception happens, and GDB maps\n\
-// OBSOLETE the exception to some signal (see info exception)\n\
-// OBSOLETE Normally \"keep\" is used to return to GDB on exception.");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE kern_return_t
-// OBSOLETE do_mach_notify_dead_name (mach_port_t notify, mach_port_t name)
-// OBSOLETE {
-// OBSOLETE kern_return_t kr = KERN_SUCCESS;
-// OBSOLETE
-// OBSOLETE /* Find the thing that notified */
-// OBSOLETE port_chain_t element = port_chain_member (notify_chain, name);
-// OBSOLETE
-// OBSOLETE /* Take name of from unreceived dead name notification list */
-// OBSOLETE notify_chain = port_chain_delete (notify_chain, name);
-// OBSOLETE
-// OBSOLETE if (!element)
-// OBSOLETE error ("Received a dead name notify from unchained port (0x%x)", name);
-// OBSOLETE
-// OBSOLETE switch (element->type)
-// OBSOLETE {
-// OBSOLETE
-// OBSOLETE case MACH_TYPE_THREAD:
-// OBSOLETE target_terminal_ours_for_output ();
-// OBSOLETE if (name == current_thread)
-// OBSOLETE {
-// OBSOLETE printf_filtered ("\nCurrent thread %d died", element->mid);
-// OBSOLETE current_thread = MACH_PORT_NULL;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE printf_filtered ("\nThread %d died", element->mid);
-// OBSOLETE
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case MACH_TYPE_TASK:
-// OBSOLETE target_terminal_ours_for_output ();
-// OBSOLETE if (name != inferior_task)
-// OBSOLETE printf_filtered ("Task %d died, but it was not the selected task",
-// OBSOLETE element->mid);
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE printf_filtered ("Current task %d died", element->mid);
-// OBSOLETE
-// OBSOLETE mach_port_destroy (mach_task_self (), name);
-// OBSOLETE inferior_task = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE if (notify_chain)
-// OBSOLETE warning ("There were still unreceived dead_name_notifications???");
-// OBSOLETE
-// OBSOLETE /* Destroy the old notifications */
-// OBSOLETE setup_notify_port (0);
-// OBSOLETE
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE default:
-// OBSOLETE error ("Unregistered dead_name 0x%x notification received. Type is %d, mid is 0x%x",
-// OBSOLETE name, element->type, element->mid);
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return KERN_SUCCESS;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE kern_return_t
-// OBSOLETE do_mach_notify_msg_accepted (mach_port_t notify, mach_port_t name)
-// OBSOLETE {
-// OBSOLETE warning ("do_mach_notify_msg_accepted : notify %x, name %x",
-// OBSOLETE notify, name);
-// OBSOLETE return KERN_SUCCESS;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE kern_return_t
-// OBSOLETE do_mach_notify_no_senders (mach_port_t notify, mach_port_mscount_t mscount)
-// OBSOLETE {
-// OBSOLETE warning ("do_mach_notify_no_senders : notify %x, mscount %x",
-// OBSOLETE notify, mscount);
-// OBSOLETE return KERN_SUCCESS;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE kern_return_t
-// OBSOLETE do_mach_notify_port_deleted (mach_port_t notify, mach_port_t name)
-// OBSOLETE {
-// OBSOLETE warning ("do_mach_notify_port_deleted : notify %x, name %x",
-// OBSOLETE notify, name);
-// OBSOLETE return KERN_SUCCESS;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE kern_return_t
-// OBSOLETE do_mach_notify_port_destroyed (mach_port_t notify, mach_port_t rights)
-// OBSOLETE {
-// OBSOLETE warning ("do_mach_notify_port_destroyed : notify %x, rights %x",
-// OBSOLETE notify, rights);
-// OBSOLETE return KERN_SUCCESS;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE kern_return_t
-// OBSOLETE do_mach_notify_send_once (mach_port_t notify)
-// OBSOLETE {
-// OBSOLETE #ifdef DUMP_SYSCALL
-// OBSOLETE /* MANY of these are generated. */
-// OBSOLETE warning ("do_mach_notify_send_once : notify %x",
-// OBSOLETE notify);
-// OBSOLETE #endif
-// OBSOLETE return KERN_SUCCESS;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Kills the inferior. It's gone when you call this */
-// OBSOLETE static void
-// OBSOLETE kill_inferior_fast (void)
-// OBSOLETE {
-// OBSOLETE WAITTYPE w;
-// OBSOLETE
-// OBSOLETE if (PIDGET (inferior_ptid) == 0 || PIDGET (inferior_ptid) == 1)
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE /* kill() it, since the Unix server does not otherwise notice when
-// OBSOLETE * killed with task_terminate().
-// OBSOLETE */
-// OBSOLETE if (PIDGET (inferior_ptid) > 0)
-// OBSOLETE kill (PIDGET (inferior_ptid), SIGKILL);
-// OBSOLETE
-// OBSOLETE /* It's propably terminate already */
-// OBSOLETE (void) task_terminate (inferior_task);
-// OBSOLETE
-// OBSOLETE inferior_task = MACH_PORT_NULL;
-// OBSOLETE current_thread = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE wait3 (&w, WNOHANG, 0);
-// OBSOLETE
-// OBSOLETE setup_notify_port (0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_kill_inferior (void)
-// OBSOLETE {
-// OBSOLETE kill_inferior_fast ();
-// OBSOLETE target_mourn_inferior ();
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Clean up after the inferior dies. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_mourn_inferior (void)
-// OBSOLETE {
-// OBSOLETE unpush_target (&m3_ops);
-// OBSOLETE generic_mourn_inferior ();
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE
-// OBSOLETE /* Fork an inferior process, and start debugging it. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_create_inferior (char *exec_file, char *allargs, char **env)
-// OBSOLETE {
-// OBSOLETE fork_inferior (exec_file, allargs, env, m3_trace_me, m3_trace_him, NULL, NULL);
-// OBSOLETE /* We are at the first instruction we care about. */
-// OBSOLETE /* Pedal to the metal... */
-// OBSOLETE proceed ((CORE_ADDR) -1, 0, 0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Mark our target-struct as eligible for stray "run" and "attach"
-// OBSOLETE commands. */
-// OBSOLETE static int
-// OBSOLETE m3_can_run (void)
-// OBSOLETE {
-// OBSOLETE return 1;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Mach 3.0 does not need ptrace for anything
-// OBSOLETE * Make sure nobody uses it on mach.
-// OBSOLETE */
-// OBSOLETE ptrace (int a, int b, int c, int d)
-// OBSOLETE {
-// OBSOLETE error ("Lose, Lose! Somebody called ptrace\n");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Resume execution of the inferior process.
-// OBSOLETE If STEP is nonzero, single-step it.
-// OBSOLETE If SIGNAL is nonzero, give it that signal. */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE m3_resume (ptid_t ptid, int step, enum target_signal signal)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE if (step)
-// OBSOLETE {
-// OBSOLETE thread_basic_info_data_t th_info;
-// OBSOLETE unsigned int infoCnt = THREAD_BASIC_INFO_COUNT;
-// OBSOLETE
-// OBSOLETE /* There is no point in single stepping when current_thread
-// OBSOLETE * is dead.
-// OBSOLETE */
-// OBSOLETE if (!MACH_PORT_VALID (current_thread))
-// OBSOLETE error ("No thread selected; can not single step");
-// OBSOLETE
-// OBSOLETE /* If current_thread is suspended, tracing it would never return.
-// OBSOLETE */
-// OBSOLETE ret = thread_info (current_thread,
-// OBSOLETE THREAD_BASIC_INFO,
-// OBSOLETE (thread_info_t) & th_info,
-// OBSOLETE &infoCnt);
-// OBSOLETE CHK ("child_resume: can't get thread info", ret);
-// OBSOLETE
-// OBSOLETE if (th_info.suspend_count)
-// OBSOLETE error ("Can't trace a suspended thread. Use \"thread resume\" command to resume it");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE vm_read_cache_valid = FALSE;
-// OBSOLETE
-// OBSOLETE if (signal && PIDGET (inferior_ptid) > 0) /* Do not signal, if attached by MID */
-// OBSOLETE kill (PIDGET (inferior_ptid), target_signal_to_host (signal));
-// OBSOLETE
-// OBSOLETE if (step)
-// OBSOLETE {
-// OBSOLETE suspend_all_threads (0);
-// OBSOLETE
-// OBSOLETE setup_single_step (current_thread, TRUE);
-// OBSOLETE
-// OBSOLETE ret = thread_resume (current_thread);
-// OBSOLETE CHK ("thread_resume", ret);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = task_resume (inferior_task);
-// OBSOLETE if (ret == KERN_FAILURE)
-// OBSOLETE warning ("Task was not suspended");
-// OBSOLETE else
-// OBSOLETE CHK ("Resuming task", ret);
-// OBSOLETE
-// OBSOLETE /* HACK HACK This is needed by the multiserver system HACK HACK */
-// OBSOLETE while ((ret = task_resume (inferior_task)) == KERN_SUCCESS)
-// OBSOLETE /* make sure it really runs */ ;
-// OBSOLETE /* HACK HACK This is needed by the multiserver system HACK HACK */
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE #ifdef ATTACH_DETACH
-// OBSOLETE
-// OBSOLETE /* Start debugging the process with the given task */
-// OBSOLETE void
-// OBSOLETE task_attach (task_t tid)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE inferior_task = tid;
-// OBSOLETE
-// OBSOLETE ret = task_suspend (inferior_task);
-// OBSOLETE CHK ("task_attach: task_suspend", ret);
-// OBSOLETE
-// OBSOLETE must_suspend_thread = 0;
-// OBSOLETE
-// OBSOLETE setup_notify_port (1);
-// OBSOLETE
-// OBSOLETE request_notify (inferior_task, MACH_NOTIFY_DEAD_NAME, MACH_TYPE_TASK);
-// OBSOLETE
-// OBSOLETE setup_exception_port ();
-// OBSOLETE
-// OBSOLETE emulator_present = have_emulator_p (inferior_task);
-// OBSOLETE
-// OBSOLETE attach_flag = 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Well, we can call error also here and leave the
-// OBSOLETE * target stack inconsistent. Sigh.
-// OBSOLETE * Fix this sometime (the only way to fail here is that
-// OBSOLETE * the task has no threads at all, which is rare, but
-// OBSOLETE * possible; or if the target task has died, which is also
-// OBSOLETE * possible, but unlikely, since it has been suspended.
-// OBSOLETE * (Someone must have killed it))
-// OBSOLETE */
-// OBSOLETE void
-// OBSOLETE attach_to_thread (void)
-// OBSOLETE {
-// OBSOLETE if (select_thread (inferior_task, 0, 1) != KERN_SUCCESS)
-// OBSOLETE error ("Could not select any threads to attach to");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE mid_attach (int mid)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE ret = machid_mach_port (mid_server, mid_auth, mid, &inferior_task);
-// OBSOLETE CHK ("mid_attach: machid_mach_port", ret);
-// OBSOLETE
-// OBSOLETE task_attach (inferior_task);
-// OBSOLETE
-// OBSOLETE return mid;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Start debugging the process whose unix process-id is PID.
-// OBSOLETE * A negative "pid" value is legal and signifies a mach_id not a unix pid.
-// OBSOLETE *
-// OBSOLETE * Prevent (possible unwanted) dangerous operations by enabled users
-// OBSOLETE * like "atta 0" or "atta foo" (equal to the previous :-) and
-// OBSOLETE * "atta pidself". Anyway, the latter is allowed by specifying a MID.
-// OBSOLETE */
-// OBSOLETE static int
-// OBSOLETE m3_do_attach (int pid)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE if (pid == 0)
-// OBSOLETE error ("MID=0, Debugging the master unix server does not compute");
-// OBSOLETE
-// OBSOLETE /* Foo. This assumes gdb has a unix pid */
-// OBSOLETE if (pid == getpid ())
-// OBSOLETE error ("I will debug myself only by mid. (Gdb would suspend itself!)");
-// OBSOLETE
-// OBSOLETE if (pid < 0)
-// OBSOLETE {
-// OBSOLETE mid_attach (-(pid));
-// OBSOLETE
-// OBSOLETE /* inferior_ptid will be NEGATIVE! */
-// OBSOLETE inferior_ptid = pid_to_ptid (pid);
-// OBSOLETE
-// OBSOLETE return PIDGET (inferior_ptid);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE inferior_task = task_by_pid (pid);
-// OBSOLETE if (!MACH_PORT_VALID (inferior_task))
-// OBSOLETE error ("Cannot map Unix pid %d to Mach task port", pid);
-// OBSOLETE
-// OBSOLETE task_attach (inferior_task);
-// OBSOLETE
-// OBSOLETE inferior_ptid = pid_to_ptid (pid);
-// OBSOLETE
-// OBSOLETE return PIDGET (inferior_ptid);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Attach to process PID, then initialize for debugging it
-// OBSOLETE and wait for the trace-trap that results from attaching. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_attach (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE char *exec_file;
-// OBSOLETE int pid;
-// OBSOLETE
-// OBSOLETE if (!args)
-// OBSOLETE error_no_arg ("process-id to attach");
-// OBSOLETE
-// OBSOLETE pid = atoi (args);
-// OBSOLETE
-// OBSOLETE if (pid == getpid ()) /* Trying to masturbate? */
-// OBSOLETE error ("I refuse to debug myself!");
-// OBSOLETE
-// OBSOLETE if (from_tty)
-// OBSOLETE {
-// OBSOLETE exec_file = (char *) get_exec_file (0);
-// OBSOLETE
-// OBSOLETE if (exec_file)
-// OBSOLETE printf_unfiltered ("Attaching to program `%s', %s\n", exec_file,
-// OBSOLETE target_pid_to_str (pid_to_ptid (pid)));
-// OBSOLETE else
-// OBSOLETE printf_unfiltered ("Attaching to %s\n",
-// OBSOLETE target_pid_to_str (pid_to_ptid (pid)));
-// OBSOLETE
-// OBSOLETE gdb_flush (gdb_stdout);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE m3_do_attach (pid_to_ptid (pid));
-// OBSOLETE inferior_ptid = pid_to_ptid (pid);
-// OBSOLETE push_target (&m3_ops);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE void
-// OBSOLETE deallocate_inferior_ports (void)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE thread_array_t thread_list;
-// OBSOLETE int thread_count, index;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (inferior_task))
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE ret = task_threads (inferior_task, &thread_list, &thread_count);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE warning ("deallocate_inferior_ports: task_threads",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Get rid of send rights to task threads */
-// OBSOLETE for (index = 0; index < thread_count; index++)
-// OBSOLETE {
-// OBSOLETE int rights;
-// OBSOLETE ret = mach_port_get_refs (mach_task_self (),
-// OBSOLETE thread_list[index],
-// OBSOLETE MACH_PORT_RIGHT_SEND,
-// OBSOLETE &rights);
-// OBSOLETE CHK ("deallocate_inferior_ports: get refs", ret);
-// OBSOLETE
-// OBSOLETE if (rights > 0)
-// OBSOLETE {
-// OBSOLETE ret = mach_port_mod_refs (mach_task_self (),
-// OBSOLETE thread_list[index],
-// OBSOLETE MACH_PORT_RIGHT_SEND,
-// OBSOLETE -rights);
-// OBSOLETE CHK ("deallocate_inferior_ports: mod refs", ret);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = mach_port_mod_refs (mach_task_self (),
-// OBSOLETE inferior_exception_port,
-// OBSOLETE MACH_PORT_RIGHT_RECEIVE,
-// OBSOLETE -1);
-// OBSOLETE CHK ("deallocate_inferior_ports: cannot get rid of exception port", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_port_deallocate (mach_task_self (),
-// OBSOLETE inferior_task);
-// OBSOLETE CHK ("deallocate_task_port: deallocating inferior_task", ret);
-// OBSOLETE
-// OBSOLETE current_thread = MACH_PORT_NULL;
-// OBSOLETE inferior_task = MACH_PORT_NULL;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Stop debugging the process whose number is PID
-// OBSOLETE and continue it with signal number SIGNAL.
-// OBSOLETE SIGNAL = 0 means just continue it. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_do_detach (int signal)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE MACH_ERROR_NO_INFERIOR;
-// OBSOLETE
-// OBSOLETE if (current_thread != MACH_PORT_NULL)
-// OBSOLETE {
-// OBSOLETE /* Store the gdb's view of the thread we are deselecting
-// OBSOLETE * before we detach.
-// OBSOLETE * @@ I am really not sure if this is ever needeed.
-// OBSOLETE */
-// OBSOLETE target_prepare_to_store ();
-// OBSOLETE target_store_registers (-1);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE ret = task_set_special_port (inferior_task,
-// OBSOLETE TASK_EXCEPTION_PORT,
-// OBSOLETE inferior_old_exception_port);
-// OBSOLETE CHK ("task_set_special_port", ret);
-// OBSOLETE
-// OBSOLETE /* Discard all requested notifications */
-// OBSOLETE setup_notify_port (0);
-// OBSOLETE
-// OBSOLETE if (remove_breakpoints ())
-// OBSOLETE warning ("Could not remove breakpoints when detaching");
-// OBSOLETE
-// OBSOLETE if (signal && PIDGET (inferior_ptid) > 0)
-// OBSOLETE kill (PIDGET (inferior_ptid), signal);
-// OBSOLETE
-// OBSOLETE /* the task might be dead by now */
-// OBSOLETE (void) task_resume (inferior_task);
-// OBSOLETE
-// OBSOLETE deallocate_inferior_ports ();
-// OBSOLETE
-// OBSOLETE attach_flag = 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Take a program previously attached to and detaches it.
-// OBSOLETE The program resumes execution and will no longer stop
-// OBSOLETE on signals, etc. We'd better not have left any breakpoints
-// OBSOLETE in the program or it'll die when it hits one. For this
-// OBSOLETE to work, it may be necessary for the process to have been
-// OBSOLETE previously attached. It *might* work if the program was
-// OBSOLETE started via fork. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_detach (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE int siggnal = 0;
-// OBSOLETE
-// OBSOLETE if (from_tty)
-// OBSOLETE {
-// OBSOLETE char *exec_file = get_exec_file (0);
-// OBSOLETE if (exec_file == 0)
-// OBSOLETE exec_file = "";
-// OBSOLETE printf_unfiltered ("Detaching from program: %s %s\n",
-// OBSOLETE exec_file, target_pid_to_str (inferior_ptid));
-// OBSOLETE gdb_flush (gdb_stdout);
-// OBSOLETE }
-// OBSOLETE if (args)
-// OBSOLETE siggnal = atoi (args);
-// OBSOLETE
-// OBSOLETE m3_do_detach (siggnal);
-// OBSOLETE inferior_ptid = null_ptid;
-// OBSOLETE unpush_target (&m3_ops); /* Pop out of handling an inferior */
-// OBSOLETE }
-// OBSOLETE #endif /* ATTACH_DETACH */
-// 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 m3_prepare_to_store (void)
-// OBSOLETE {
-// OBSOLETE #ifdef CHILD_PREPARE_TO_STORE
-// OBSOLETE CHILD_PREPARE_TO_STORE ();
-// OBSOLETE #endif
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Print status information about what we're accessing. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_files_info (struct target_ops *ignore)
-// OBSOLETE {
-// OBSOLETE /* FIXME: should print MID and all that crap. */
-// OBSOLETE printf_unfiltered ("\tUsing the running image of %s %s.\n",
-// OBSOLETE attach_flag ? "attached" : "child", target_pid_to_str (inferior_ptid));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_open (char *arg, int from_tty)
-// OBSOLETE {
-// OBSOLETE error ("Use the \"run\" command to start a Unix child process.");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #ifdef DUMP_SYSCALL
-// OBSOLETE #define STR(x) #x
-// OBSOLETE
-// OBSOLETE char *bsd1_names[] =
-// OBSOLETE {
-// OBSOLETE "execve",
-// OBSOLETE "fork",
-// OBSOLETE "take_signal",
-// OBSOLETE "sigreturn",
-// OBSOLETE "getrusage",
-// OBSOLETE "chdir",
-// OBSOLETE "chroot",
-// OBSOLETE "open",
-// OBSOLETE "creat",
-// OBSOLETE "mknod",
-// OBSOLETE "link",
-// OBSOLETE "symlink",
-// OBSOLETE "unlink",
-// OBSOLETE "access",
-// OBSOLETE "stat",
-// OBSOLETE "readlink",
-// OBSOLETE "chmod",
-// OBSOLETE "chown",
-// OBSOLETE "utimes",
-// OBSOLETE "truncate",
-// OBSOLETE "rename",
-// OBSOLETE "mkdir",
-// OBSOLETE "rmdir",
-// OBSOLETE "xutimes",
-// OBSOLETE "mount",
-// OBSOLETE "umount",
-// OBSOLETE "acct",
-// OBSOLETE "setquota",
-// OBSOLETE "write_short",
-// OBSOLETE "write_long",
-// OBSOLETE "send_short",
-// OBSOLETE "send_long",
-// OBSOLETE "sendto_short",
-// OBSOLETE "sendto_long",
-// OBSOLETE "select",
-// OBSOLETE "task_by_pid",
-// OBSOLETE "recvfrom_short",
-// OBSOLETE "recvfrom_long",
-// OBSOLETE "setgroups",
-// OBSOLETE "setrlimit",
-// OBSOLETE "sigvec",
-// OBSOLETE "sigstack",
-// OBSOLETE "settimeofday",
-// OBSOLETE "adjtime",
-// OBSOLETE "setitimer",
-// OBSOLETE "sethostname",
-// OBSOLETE "bind",
-// OBSOLETE "accept",
-// OBSOLETE "connect",
-// OBSOLETE "setsockopt",
-// OBSOLETE "getsockopt",
-// OBSOLETE "getsockname",
-// OBSOLETE "getpeername",
-// OBSOLETE "init_process",
-// OBSOLETE "table_set",
-// OBSOLETE "table_get",
-// OBSOLETE "pioctl",
-// OBSOLETE "emulator_error",
-// OBSOLETE "readwrite",
-// OBSOLETE "share_wakeup",
-// OBSOLETE 0,
-// OBSOLETE "maprw_request_it",
-// OBSOLETE "maprw_release_it",
-// OBSOLETE "maprw_remap",
-// OBSOLETE "pid_by_task",
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE int bsd1_nnames = sizeof (bsd1_names) / sizeof (bsd1_names[0]);
-// OBSOLETE
-// OBSOLETE char *
-// OBSOLETE name_str (int name, char *buf)
-// OBSOLETE {
-// OBSOLETE switch (name)
-// OBSOLETE {
-// OBSOLETE case MACH_MSG_TYPE_BOOLEAN:
-// OBSOLETE return "boolean";
-// OBSOLETE case MACH_MSG_TYPE_INTEGER_16:
-// OBSOLETE return "short";
-// OBSOLETE case MACH_MSG_TYPE_INTEGER_32:
-// OBSOLETE return "long";
-// OBSOLETE case MACH_MSG_TYPE_CHAR:
-// OBSOLETE return "char";
-// OBSOLETE case MACH_MSG_TYPE_BYTE:
-// OBSOLETE return "byte";
-// OBSOLETE case MACH_MSG_TYPE_REAL:
-// OBSOLETE return "real";
-// OBSOLETE case MACH_MSG_TYPE_STRING:
-// OBSOLETE return "string";
-// OBSOLETE default:
-// OBSOLETE sprintf (buf, "%d", name);
-// OBSOLETE return buf;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE char *
-// OBSOLETE id_str (int id, char *buf)
-// OBSOLETE {
-// OBSOLETE char *p;
-// OBSOLETE if (id >= 101000 && id < 101000 + bsd1_nnames)
-// OBSOLETE {
-// OBSOLETE if (p = bsd1_names[id - 101000])
-// OBSOLETE return p;
-// OBSOLETE }
-// OBSOLETE if (id == 102000)
-// OBSOLETE return "psignal_retry";
-// OBSOLETE if (id == 100000)
-// OBSOLETE return "syscall";
-// OBSOLETE sprintf (buf, "%d", id);
-// OBSOLETE return buf;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE print_msg (mach_msg_header_t *mp)
-// OBSOLETE {
-// OBSOLETE char *fmt_x = "%20s : 0x%08x\n";
-// OBSOLETE char *fmt_d = "%20s : %10d\n";
-// OBSOLETE char *fmt_s = "%20s : %s\n";
-// OBSOLETE char buf[100];
-// OBSOLETE
-// OBSOLETE puts_filtered ("\n");
-// OBSOLETE #define pr(fmt,h,x) printf_filtered(fmt,STR(x),(h).x)
-// OBSOLETE pr (fmt_x, (*mp), msgh_bits);
-// OBSOLETE pr (fmt_d, (*mp), msgh_size);
-// OBSOLETE pr (fmt_x, (*mp), msgh_remote_port);
-// OBSOLETE pr (fmt_x, (*mp), msgh_local_port);
-// OBSOLETE pr (fmt_d, (*mp), msgh_kind);
-// OBSOLETE printf_filtered (fmt_s, STR (msgh_id), id_str (mp->msgh_id, buf));
-// OBSOLETE
-// OBSOLETE if (debug_level > 1)
-// OBSOLETE {
-// OBSOLETE char *p, *ep, *dp;
-// OBSOLETE int plen;
-// OBSOLETE p = (char *) mp;
-// OBSOLETE ep = p + mp->msgh_size;
-// OBSOLETE p += sizeof (*mp);
-// OBSOLETE for (; p < ep; p += plen)
-// OBSOLETE {
-// OBSOLETE mach_msg_type_t *tp;
-// OBSOLETE mach_msg_type_long_t *tlp;
-// OBSOLETE int name, size, number;
-// OBSOLETE tp = (mach_msg_type_t *) p;
-// OBSOLETE if (tp->msgt_longform)
-// OBSOLETE {
-// OBSOLETE tlp = (mach_msg_type_long_t *) tp;
-// OBSOLETE name = tlp->msgtl_name;
-// OBSOLETE size = tlp->msgtl_size;
-// OBSOLETE number = tlp->msgtl_number;
-// OBSOLETE plen = sizeof (*tlp);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE name = tp->msgt_name;
-// OBSOLETE size = tp->msgt_size;
-// OBSOLETE number = tp->msgt_number;
-// OBSOLETE plen = sizeof (*tp);
-// OBSOLETE }
-// OBSOLETE printf_filtered ("name=%-16s size=%2d number=%7d inline=%d long=%d deal=%d\n",
-// OBSOLETE name_str (name, buf), size, number, tp->msgt_inline,
-// OBSOLETE tp->msgt_longform, tp->msgt_deallocate);
-// OBSOLETE dp = p + plen;
-// OBSOLETE if (tp->msgt_inline)
-// OBSOLETE {
-// OBSOLETE int l;
-// OBSOLETE l = size * number / 8;
-// OBSOLETE l = (l + sizeof (long) - 1) & ~((sizeof (long)) - 1);
-// OBSOLETE plen += l;
-// OBSOLETE print_data (dp, size, number);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE plen += sizeof (int *);
-// OBSOLETE }
-// OBSOLETE printf_filtered ("plen=%d\n", plen);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE print_data (char *p, int size, int number)
-// OBSOLETE {
-// OBSOLETE int *ip;
-// OBSOLETE short *sp;
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE switch (size)
-// OBSOLETE {
-// OBSOLETE case 8:
-// OBSOLETE for (i = 0; i < number; i++)
-// OBSOLETE {
-// OBSOLETE printf_filtered (" %02x", p[i]);
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE case 16:
-// OBSOLETE sp = (short *) p;
-// OBSOLETE for (i = 0; i < number; i++)
-// OBSOLETE {
-// OBSOLETE printf_filtered (" %04x", sp[i]);
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE case 32:
-// OBSOLETE ip = (int *) p;
-// OBSOLETE for (i = 0; i < number; i++)
-// OBSOLETE {
-// OBSOLETE printf_filtered (" %08x", ip[i]);
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE puts_filtered ("\n");
-// OBSOLETE }
-// OBSOLETE #endif /* DUMP_SYSCALL */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE m3_stop (void)
-// OBSOLETE {
-// OBSOLETE error ("to_stop target function not implemented");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static char *
-// OBSOLETE m3_pid_to_exec_file (int pid)
-// OBSOLETE {
-// OBSOLETE error ("to_pid_to_exec_file target function not implemented");
-// OBSOLETE return NULL; /* To keep all compilers happy. */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE init_m3_ops (void)
-// OBSOLETE {
-// OBSOLETE m3_ops.to_shortname = "mach";
-// OBSOLETE m3_ops.to_longname = "Mach child process";
-// OBSOLETE m3_ops.to_doc = "Mach child process (started by the \"run\" command).";
-// OBSOLETE m3_ops.to_open = m3_open;
-// OBSOLETE m3_ops.to_attach = m3_attach;
-// OBSOLETE m3_ops.to_detach = m3_detach;
-// OBSOLETE m3_ops.to_resume = m3_resume;
-// OBSOLETE m3_ops.to_wait = mach_really_wait;
-// OBSOLETE m3_ops.to_fetch_registers = fetch_inferior_registers;
-// OBSOLETE m3_ops.to_store_registers = store_inferior_registers;
-// OBSOLETE m3_ops.to_prepare_to_store = m3_prepare_to_store;
-// OBSOLETE m3_ops.to_xfer_memory = m3_xfer_memory;
-// OBSOLETE m3_ops.to_files_info = m3_files_info;
-// OBSOLETE m3_ops.to_insert_breakpoint = memory_insert_breakpoint;
-// OBSOLETE m3_ops.to_remove_breakpoint = memory_remove_breakpoint;
-// OBSOLETE m3_ops.to_terminal_init = terminal_init_inferior;
-// OBSOLETE m3_ops.to_terminal_inferior = terminal_inferior;
-// OBSOLETE m3_ops.to_terminal_ours_for_output = terminal_ours_for_output;
-// OBSOLETE m3_ops.to_terminal_save_ours = terminal_save_ours;
-// OBSOLETE m3_ops.to_terminal_ours = terminal_ours;
-// OBSOLETE m3_ops.to_terminal_info = child_terminal_info;
-// OBSOLETE m3_ops.to_kill = m3_kill_inferior;
-// OBSOLETE m3_ops.to_create_inferior = m3_create_inferior;
-// OBSOLETE m3_ops.to_mourn_inferior = m3_mourn_inferior;
-// OBSOLETE m3_ops.to_can_run = m3_can_run;
-// OBSOLETE m3_ops.to_stop = m3_stop;
-// OBSOLETE m3_ops.to_pid_to_exec_file = m3_pid_to_exec_file;
-// OBSOLETE m3_ops.to_stratum = process_stratum;
-// OBSOLETE m3_ops.to_has_all_memory = 1;
-// OBSOLETE m3_ops.to_has_memory = 1;
-// OBSOLETE m3_ops.to_has_stack = 1;
-// OBSOLETE m3_ops.to_has_registers = 1;
-// OBSOLETE m3_ops.to_has_execution = 1;
-// OBSOLETE m3_ops.to_magic = OPS_MAGIC;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE _initialize_m3_nat (void)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE init_m3_ops ();
-// OBSOLETE add_target (&m3_ops);
-// OBSOLETE
-// OBSOLETE ret = mach_port_allocate (mach_task_self (),
-// OBSOLETE MACH_PORT_RIGHT_PORT_SET,
-// OBSOLETE &inferior_wait_port_set);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "initial port set %s", mach_error_string (ret));
-// OBSOLETE
-// OBSOLETE /* mach_really_wait now waits for this */
-// OBSOLETE currently_waiting_for = inferior_wait_port_set;
-// OBSOLETE
-// OBSOLETE ret = netname_look_up (name_server_port, hostname, "MachID", &mid_server);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE {
-// OBSOLETE mid_server = MACH_PORT_NULL;
-// OBSOLETE
-// OBSOLETE warning ("initialize machid: netname_lookup_up(MachID) : %s",
-// OBSOLETE mach_error_string (ret));
-// OBSOLETE warning ("Some (most?) features disabled...");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE mid_auth = mach_privileged_host_port ();
-// OBSOLETE if (mid_auth == MACH_PORT_NULL)
-// OBSOLETE mid_auth = mach_task_self ();
-// OBSOLETE
-// OBSOLETE obstack_init (port_chain_obstack);
-// OBSOLETE
-// OBSOLETE ret = mach_port_allocate (mach_task_self (),
-// OBSOLETE MACH_PORT_RIGHT_RECEIVE,
-// OBSOLETE &thread_exception_port);
-// OBSOLETE CHK ("Creating thread_exception_port for single stepping", ret);
-// OBSOLETE
-// OBSOLETE ret = mach_port_insert_right (mach_task_self (),
-// OBSOLETE thread_exception_port,
-// OBSOLETE thread_exception_port,
-// OBSOLETE MACH_MSG_TYPE_MAKE_SEND);
-// OBSOLETE CHK ("Inserting send right to thread_exception_port", ret);
-// OBSOLETE
-// OBSOLETE /* Allocate message port */
-// OBSOLETE ret = mach_port_allocate (mach_task_self (),
-// OBSOLETE MACH_PORT_RIGHT_RECEIVE,
-// OBSOLETE &our_message_port);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE warning ("Creating message port %s", mach_error_string (ret));
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE char buf[MAX_NAME_LEN];
-// OBSOLETE ret = mach_port_move_member (mach_task_self (),
-// OBSOLETE our_message_port,
-// OBSOLETE inferior_wait_port_set);
-// OBSOLETE if (ret != KERN_SUCCESS)
-// OBSOLETE warning ("message move member %s", mach_error_string (ret));
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE /* @@@@ No way to change message port name currently */
-// OBSOLETE /* Foo. This assumes gdb has a unix pid */
-// OBSOLETE sprintf (buf, "gdb-%d", getpid ());
-// OBSOLETE gdb_register_port (buf, our_message_port);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Heap for thread commands */
-// OBSOLETE obstack_init (cproc_obstack);
-// OBSOLETE
-// OBSOLETE add_mach_specific_commands ();
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /* Definitions to make GDB run on a mips box under Mach 3.0
-// OBSOLETE Copyright 1992, 1993, 1998, 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 /* Mach specific routines for little endian mips (e.g. pmax)
-// OBSOLETE * running Mach 3.0
-// OBSOLETE *
-// OBSOLETE * Author: Jukka Virtanen <jtv@hut.fi>
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "inferior.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 /* Find offsets to thread states at compile time.
-// OBSOLETE * If your compiler does not grok this, check the hand coded
-// OBSOLETE * offsets and use them.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE #if 1
-// OBSOLETE
-// OBSOLETE #define REG_OFFSET(reg) (int)(&((struct mips_thread_state *)0)->reg)
-// OBSOLETE #define CREG_OFFSET(reg) (int)(&((struct mips_float_state *)0)->reg)
-// OBSOLETE #define EREG_OFFSET(reg) (int)(&((struct mips_exc_state *)0)->reg)
-// OBSOLETE
-// OBSOLETE /* at reg_offset[i] is the offset to the mips_thread_state
-// OBSOLETE * location where the gdb registers[i] is stored.
-// OBSOLETE *
-// OBSOLETE * -1 means mach does not save it anywhere.
-// OBSOLETE */
-// OBSOLETE static int reg_offset[] =
-// OBSOLETE {
-// OBSOLETE /* zero at v0 v1 */
-// OBSOLETE -1, REG_OFFSET (r1), REG_OFFSET (r2), REG_OFFSET (r3),
-// OBSOLETE
-// OBSOLETE /* a0 a1 a2 a3 */
-// OBSOLETE REG_OFFSET (r4), REG_OFFSET (r5), REG_OFFSET (r6), REG_OFFSET (r7),
-// OBSOLETE
-// OBSOLETE /* t0 t1 t2 t3 */
-// OBSOLETE REG_OFFSET (r8), REG_OFFSET (r9), REG_OFFSET (r10), REG_OFFSET (r11),
-// OBSOLETE
-// OBSOLETE /* t4 t5 t6 t7 */
-// OBSOLETE REG_OFFSET (r12), REG_OFFSET (r13), REG_OFFSET (r14), REG_OFFSET (r15),
-// OBSOLETE
-// OBSOLETE /* s0 s1 s2 s3 */
-// OBSOLETE REG_OFFSET (r16), REG_OFFSET (r17), REG_OFFSET (r18), REG_OFFSET (r19),
-// OBSOLETE
-// OBSOLETE /* s4 s5 s6 s7 */
-// OBSOLETE REG_OFFSET (r20), REG_OFFSET (r21), REG_OFFSET (r22), REG_OFFSET (r23),
-// OBSOLETE
-// OBSOLETE /* t8 t9 k0 k1 */
-// OBSOLETE REG_OFFSET (r24), REG_OFFSET (r25), REG_OFFSET (r26), REG_OFFSET (r27),
-// OBSOLETE
-// OBSOLETE /* gp sp s8(30) == fp(72) ra */
-// OBSOLETE REG_OFFSET (r28), REG_OFFSET (r29), REG_OFFSET (r30), REG_OFFSET (r31),
-// OBSOLETE
-// OBSOLETE /* sr(32) PS_REGNUM */
-// OBSOLETE EREG_OFFSET (coproc_state),
-// OBSOLETE
-// OBSOLETE /* lo(33) hi(34) */
-// OBSOLETE REG_OFFSET (mdlo), REG_OFFSET (mdhi),
-// OBSOLETE
-// OBSOLETE /* bad(35) cause(36) pc(37) */
-// OBSOLETE EREG_OFFSET (address), EREG_OFFSET (cause), REG_OFFSET (pc),
-// OBSOLETE
-// OBSOLETE /* f0(38) f1(39) f2(40) f3(41) */
-// OBSOLETE CREG_OFFSET (r0), CREG_OFFSET (r1), CREG_OFFSET (r2), CREG_OFFSET (r3),
-// OBSOLETE CREG_OFFSET (r4), CREG_OFFSET (r5), CREG_OFFSET (r6), CREG_OFFSET (r7),
-// OBSOLETE CREG_OFFSET (r8), CREG_OFFSET (r9), CREG_OFFSET (r10), CREG_OFFSET (r11),
-// OBSOLETE CREG_OFFSET (r12), CREG_OFFSET (r13), CREG_OFFSET (r14), CREG_OFFSET (r15),
-// OBSOLETE CREG_OFFSET (r16), CREG_OFFSET (r17), CREG_OFFSET (r18), CREG_OFFSET (r19),
-// OBSOLETE CREG_OFFSET (r20), CREG_OFFSET (r21), CREG_OFFSET (r22), CREG_OFFSET (r23),
-// OBSOLETE CREG_OFFSET (r24), CREG_OFFSET (r25), CREG_OFFSET (r26), CREG_OFFSET (r27),
-// OBSOLETE CREG_OFFSET (r28), CREG_OFFSET (r29), CREG_OFFSET (r30), CREG_OFFSET (r31),
-// OBSOLETE
-// OBSOLETE /* fsr(70) fir(71) fp(72) == s8(30) */
-// OBSOLETE CREG_OFFSET (csr), CREG_OFFSET (esr), REG_OFFSET (r30)
-// OBSOLETE };
-// OBSOLETE #else
-// OBSOLETE /* If the compiler does not grok the above defines */
-// OBSOLETE static int reg_offset[] =
-// OBSOLETE {
-// OBSOLETE /* mach_thread_state offsets: */
-// OBSOLETE -1, 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56,
-// OBSOLETE 60, 64, 68, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120,
-// OBSOLETE /*sr, lo, hi,addr,cause,pc */
-// OBSOLETE 8, 124, 128, 4, 0, 132,
-// OBSOLETE /* mach_float_state offsets: */
-// OBSOLETE 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60,
-// OBSOLETE 64, 68, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 124,
-// OBSOLETE /*fsr,fir */
-// OBSOLETE 128, 132,
-// OBSOLETE /* FP_REGNUM pseudo maps to s8==r30 in mach_thread_state */
-// OBSOLETE 116
-// OBSOLETE };
-// OBSOLETE #endif
-// 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 (&deprecated_registers[REGISTER_BYTE (regnum)], \
-// OBSOLETE (char *)state+reg_offset[ 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 ((char *)state+reg_offset[ regnum ], \
-// OBSOLETE &deprecated_registers[REGISTER_BYTE (regnum)], \
-// OBSOLETE count*REGISTER_SIZE)
-// OBSOLETE
-// OBSOLETE #define REGS_ALL -1
-// OBSOLETE #define REGS_NORMAL 1
-// OBSOLETE #define REGS_EXC 2
-// OBSOLETE #define REGS_COP1 4
-// OBSOLETE
-// OBSOLETE /* Hardware regs that matches FP_REGNUM */
-// OBSOLETE #define MACH_FP_REGNUM 30
-// OBSOLETE
-// OBSOLETE /* Fech thread's registers. if regno == -1, fetch all regs */
-// OBSOLETE void
-// OBSOLETE fetch_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE thread_state_data_t state;
-// OBSOLETE struct mips_exc_state exc_state;
-// OBSOLETE
-// OBSOLETE int stateCnt = MIPS_THREAD_STATE_COUNT;
-// OBSOLETE
-// OBSOLETE int which_regs = 0; /* A bit mask */
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (current_thread))
-// OBSOLETE error ("fetch inferior registers: Invalid thread");
-// OBSOLETE
-// OBSOLETE if (regno < -1 || regno >= NUM_REGS)
-// OBSOLETE error ("invalid register %d supplied to fetch_inferior_registers", regno);
-// OBSOLETE
-// OBSOLETE if (regno == -1)
-// OBSOLETE which_regs = REGS_ALL;
-// OBSOLETE else if (regno == ZERO_REGNUM)
-// OBSOLETE {
-// OBSOLETE int zero = 0;
-// OBSOLETE supply_register (ZERO_REGNUM, &zero);
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE else if ((ZERO_REGNUM < regno && regno < PS_REGNUM)
-// OBSOLETE || regno == FP_REGNUM
-// OBSOLETE || regno == LO_REGNUM
-// OBSOLETE || regno == HI_REGNUM
-// OBSOLETE || regno == PC_REGNUM)
-// OBSOLETE which_regs = REGS_NORMAL;
-// OBSOLETE else if (FP0_REGNUM <= regno && regno <= FCRIR_REGNUM)
-// OBSOLETE which_regs = REGS_COP1 | REGS_EXC;
-// OBSOLETE else
-// OBSOLETE which_regs = REGS_EXC;
-// OBSOLETE
-// OBSOLETE /* fetch regs saved to mips_thread_state */
-// OBSOLETE if (which_regs & REGS_NORMAL)
-// OBSOLETE {
-// OBSOLETE ret = thread_get_state (current_thread,
-// OBSOLETE MIPS_THREAD_STATE,
-// OBSOLETE state,
-// OBSOLETE &stateCnt);
-// OBSOLETE CHK ("fetch inferior registers: thread_get_state", ret);
-// OBSOLETE
-// OBSOLETE if (which_regs == REGS_NORMAL)
-// OBSOLETE {
-// OBSOLETE /* Fetch also FP_REGNUM if fetching MACH_FP_REGNUM and vice versa */
-// OBSOLETE if (regno == MACH_FP_REGNUM || regno == FP_REGNUM)
-// OBSOLETE {
-// OBSOLETE supply_register (FP_REGNUM,
-// OBSOLETE (char *) state + reg_offset[MACH_FP_REGNUM]);
-// OBSOLETE supply_register (MACH_FP_REGNUM,
-// OBSOLETE (char *) state + reg_offset[MACH_FP_REGNUM]);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE supply_register (regno,
-// OBSOLETE (char *) state + reg_offset[regno]);
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* ZERO_REGNUM is always zero */
-// OBSOLETE *(int *) deprecated_registers = 0;
-// OBSOLETE
-// OBSOLETE /* Copy thread saved regs 1..31 to gdb's reg value array
-// OBSOLETE * Luckily, they are contiquous
-// OBSOLETE */
-// OBSOLETE FETCH_REGS (state, 1, 31);
-// OBSOLETE
-// OBSOLETE /* Copy mdlo and mdhi */
-// OBSOLETE FETCH_REGS (state, LO_REGNUM, 2);
-// OBSOLETE
-// OBSOLETE /* Copy PC */
-// OBSOLETE FETCH_REGS (state, PC_REGNUM, 1);
-// OBSOLETE
-// OBSOLETE /* Mach 3.0 saves FP to MACH_FP_REGNUM.
-// OBSOLETE * For some reason gdb wants to assign a pseudo register for it.
-// OBSOLETE */
-// OBSOLETE FETCH_REGS (state, FP_REGNUM, 1);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Read exc state. Also read if need to fetch floats */
-// OBSOLETE if (which_regs & REGS_EXC)
-// OBSOLETE {
-// OBSOLETE stateCnt = MIPS_EXC_STATE_COUNT;
-// OBSOLETE ret = thread_get_state (current_thread,
-// OBSOLETE MIPS_EXC_STATE,
-// OBSOLETE (thread_state_t) & exc_state,
-// OBSOLETE &stateCnt);
-// OBSOLETE CHK ("fetch inferior regs (exc): thread_get_state", ret);
-// OBSOLETE
-// OBSOLETE /* We need to fetch exc_state to see if the floating
-// OBSOLETE * state is valid for the thread.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE /* cproc_state: Which coprocessors the thread uses */
-// OBSOLETE supply_register (PS_REGNUM,
-// OBSOLETE (char *) &exc_state + reg_offset[PS_REGNUM]);
-// OBSOLETE
-// OBSOLETE if (which_regs == REGS_EXC || which_regs == REGS_ALL)
-// OBSOLETE {
-// OBSOLETE supply_register (BADVADDR_REGNUM,
-// OBSOLETE (char *) &exc_state + reg_offset[BADVADDR_REGNUM]);
-// OBSOLETE
-// OBSOLETE supply_register (CAUSE_REGNUM,
-// OBSOLETE (char *) &exc_state + reg_offset[CAUSE_REGNUM]);
-// OBSOLETE if (which_regs == REGS_EXC)
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE if (which_regs & REGS_COP1)
-// OBSOLETE {
-// OBSOLETE /* If the thread does not have saved COPROC1, set regs to zero */
-// OBSOLETE
-// OBSOLETE if (!(exc_state.coproc_state & MIPS_STATUS_USE_COP1))
-// OBSOLETE bzero (&deprecated_registers[REGISTER_BYTE (FP0_REGNUM)],
-// OBSOLETE sizeof (struct mips_float_state));
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE stateCnt = MIPS_FLOAT_STATE_COUNT;
-// OBSOLETE ret = thread_get_state (current_thread,
-// OBSOLETE MIPS_FLOAT_STATE,
-// OBSOLETE state,
-// OBSOLETE &stateCnt);
-// OBSOLETE CHK ("fetch inferior regs (floats): thread_get_state", ret);
-// OBSOLETE
-// OBSOLETE if (regno != -1)
-// OBSOLETE {
-// OBSOLETE supply_register (regno,
-// OBSOLETE (char *) state + reg_offset[regno]);
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE FETCH_REGS (state, FP0_REGNUM, 34);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* All registers are valid, if not returned yet */
-// OBSOLETE deprecated_registers_fetched ();
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Store gdb's view of registers to the thread.
-// OBSOLETE * All registers are always valid when entering here.
-// OBSOLETE * @@ ahem, maybe that is too strict, we could validate the necessary ones
-// OBSOLETE * here.
-// OBSOLETE *
-// OBSOLETE * Hmm. It seems that gdb set $reg=value command first reads everything,
-// OBSOLETE * then sets the reg and then stores everything. -> we must make sure
-// OBSOLETE * that the immutable registers are not changed by reading them first.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE store_inferior_registers (register int regno)
-// OBSOLETE {
-// OBSOLETE thread_state_data_t state;
-// OBSOLETE kern_return_t ret;
-// OBSOLETE
-// OBSOLETE if (!MACH_PORT_VALID (current_thread))
-// OBSOLETE error ("store inferior registers: Invalid thread");
-// OBSOLETE
-// OBSOLETE /* Check for read only regs.
-// OBSOLETE * @@ If some of these is can be changed, fix this
-// OBSOLETE */
-// OBSOLETE if (regno == ZERO_REGNUM ||
-// OBSOLETE regno == PS_REGNUM ||
-// OBSOLETE regno == BADVADDR_REGNUM ||
-// OBSOLETE regno == CAUSE_REGNUM ||
-// OBSOLETE regno == FCRIR_REGNUM)
-// OBSOLETE {
-// OBSOLETE message ("You can not alter read-only register `%s'",
-// OBSOLETE REGISTER_NAME (regno));
-// OBSOLETE fetch_inferior_registers (regno);
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (regno == -1)
-// OBSOLETE {
-// OBSOLETE /* Don't allow these to change */
-// OBSOLETE
-// OBSOLETE /* ZERO_REGNUM */
-// OBSOLETE *(int *) deprecated_registers = 0;
-// OBSOLETE
-// OBSOLETE fetch_inferior_registers (PS_REGNUM);
-// OBSOLETE fetch_inferior_registers (BADVADDR_REGNUM);
-// OBSOLETE fetch_inferior_registers (CAUSE_REGNUM);
-// OBSOLETE fetch_inferior_registers (FCRIR_REGNUM);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (regno == -1 || (ZERO_REGNUM < regno && regno <= PC_REGNUM))
-// OBSOLETE {
-// OBSOLETE #if 1
-// OBSOLETE /* Mach 3.0 saves thread's FP to MACH_FP_REGNUM.
-// OBSOLETE * GDB wants assigns a pseudo register FP_REGNUM for frame pointer.
-// OBSOLETE *
-// OBSOLETE * @@@ Here I assume (!) that gdb's FP has the value that
-// OBSOLETE * should go to threads frame pointer. If not true, this
-// OBSOLETE * fails badly!!!!!
-// OBSOLETE */
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (MACH_FP_REGNUM)],
-// OBSOLETE &deprecated_registers[REGISTER_BYTE (FP_REGNUM)],
-// OBSOLETE REGISTER_RAW_SIZE (FP_REGNUM));
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE /* Save gdb's regs 1..31 to thread saved regs 1..31
-// OBSOLETE * Luckily, they are contiquous
-// OBSOLETE */
-// OBSOLETE STORE_REGS (state, 1, 31);
-// OBSOLETE
-// OBSOLETE /* Save mdlo, mdhi */
-// OBSOLETE STORE_REGS (state, LO_REGNUM, 2);
-// OBSOLETE
-// OBSOLETE /* Save PC */
-// OBSOLETE STORE_REGS (state, PC_REGNUM, 1);
-// OBSOLETE
-// OBSOLETE ret = thread_set_state (current_thread,
-// OBSOLETE MIPS_THREAD_STATE,
-// OBSOLETE state,
-// OBSOLETE MIPS_FLOAT_STATE_COUNT);
-// OBSOLETE CHK ("store inferior regs : thread_set_state", ret);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (regno == -1 || regno >= FP0_REGNUM)
-// OBSOLETE {
-// OBSOLETE /* If thread has floating state, save it */
-// OBSOLETE if (read_register (PS_REGNUM) & MIPS_STATUS_USE_COP1)
-// OBSOLETE {
-// OBSOLETE /* Do NOT save FCRIR_REGNUM */
-// OBSOLETE STORE_REGS (state, FP0_REGNUM, 33);
-// OBSOLETE
-// OBSOLETE ret = thread_set_state (current_thread,
-// OBSOLETE MIPS_FLOAT_STATE,
-// OBSOLETE state,
-// OBSOLETE MIPS_FLOAT_STATE_COUNT);
-// OBSOLETE CHK ("store inferior registers (floats): thread_set_state", ret);
-// OBSOLETE }
-// OBSOLETE else if (regno != -1)
-// OBSOLETE message
-// OBSOLETE ("Thread does not use floating point unit, floating regs not saved");
-// OBSOLETE }
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /* Target-dependent code for the Matsushita MN10200 for GDB, the GNU debugger.
-// OBSOLETE
-// OBSOLETE Copyright 1997, 1998, 1999, 2000, 2001, 2003 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 #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.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
-// OBSOLETE /* Should call_function allocate stack space for a struct return? */
-// OBSOLETE int
-// OBSOLETE mn10200_use_struct_convention (int gcc_p, struct type *type)
-// OBSOLETE {
-// OBSOLETE return (TYPE_NFIELDS (type) > 1 || TYPE_LENGTH (type) > 8);
-// OBSOLETE }
-// OBSOLETE /* *INDENT-OFF* */
-// OBSOLETE /* The main purpose of this file is dealing with prologues to extract
-// OBSOLETE information about stack frames and saved registers.
-// OBSOLETE
-// OBSOLETE For reference here's how prologues look on the mn10200:
-// OBSOLETE
-// OBSOLETE With frame pointer:
-// OBSOLETE mov fp,a0
-// OBSOLETE mov sp,fp
-// OBSOLETE add <size>,sp
-// OBSOLETE Register saves for d2, d3, a1, a2 as needed. Saves start
-// OBSOLETE at fp - <size> + <outgoing_args_size> and work towards higher
-// OBSOLETE addresses. Note that the saves are actually done off the stack
-// OBSOLETE pointer in the prologue! This makes for smaller code and easier
-// OBSOLETE prologue scanning as the displacement fields will unlikely
-// OBSOLETE be more than 8 bits!
-// OBSOLETE
-// OBSOLETE Without frame pointer:
-// OBSOLETE add <size>,sp
-// OBSOLETE Register saves for d2, d3, a1, a2 as needed. Saves start
-// OBSOLETE at sp + <outgoing_args_size> and work towards higher addresses.
-// OBSOLETE
-// OBSOLETE Out of line prologue:
-// OBSOLETE add <local size>,sp -- optional
-// OBSOLETE jsr __prologue
-// OBSOLETE add <outgoing_size>,sp -- optional
-// OBSOLETE
-// OBSOLETE The stack pointer remains constant throughout the life of most
-// OBSOLETE functions. As a result the compiler will usually omit the
-// OBSOLETE frame pointer, so we must handle frame pointerless functions. */
-// OBSOLETE
-// OBSOLETE /* Analyze the prologue to determine where registers are saved,
-// OBSOLETE the end of the prologue, etc etc. Return the end of the prologue
-// OBSOLETE scanned.
-// OBSOLETE
-// OBSOLETE We store into FI (if non-null) several tidbits of information:
-// OBSOLETE
-// OBSOLETE * stack_size -- size of this stack frame. Note that if we stop in
-// OBSOLETE certain parts of the prologue/epilogue we may claim the size of the
-// OBSOLETE current frame is zero. This happens when the current frame has
-// OBSOLETE not been allocated yet or has already been deallocated.
-// OBSOLETE
-// OBSOLETE * fsr -- Addresses of registers saved in the stack by this frame.
-// OBSOLETE
-// OBSOLETE * status -- A (relatively) generic status indicator. It's a bitmask
-// OBSOLETE with the following bits:
-// OBSOLETE
-// OBSOLETE MY_FRAME_IN_SP: The base of the current frame is actually in
-// OBSOLETE the stack pointer. This can happen for frame pointerless
-// OBSOLETE functions, or cases where we're stopped in the prologue/epilogue
-// OBSOLETE itself. For these cases mn10200_analyze_prologue will need up
-// OBSOLETE update fi->frame before returning or analyzing the register
-// OBSOLETE save instructions.
-// OBSOLETE
-// OBSOLETE MY_FRAME_IN_FP: The base of the current frame is in the
-// OBSOLETE frame pointer register ($a2).
-// OBSOLETE
-// OBSOLETE CALLER_A2_IN_A0: $a2 from the caller's frame is temporarily
-// OBSOLETE in $a0. This can happen if we're stopped in the prologue.
-// OBSOLETE
-// OBSOLETE NO_MORE_FRAMES: Set this if the current frame is "start" or
-// OBSOLETE if the first instruction looks like mov <imm>,sp. This tells
-// OBSOLETE frame chain to not bother trying to unwind past this frame. */
-// OBSOLETE /* *INDENT-ON* */
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE #define MY_FRAME_IN_SP 0x1
-// OBSOLETE #define MY_FRAME_IN_FP 0x2
-// OBSOLETE #define CALLER_A2_IN_A0 0x4
-// OBSOLETE #define NO_MORE_FRAMES 0x8
-// OBSOLETE
-// OBSOLETE static CORE_ADDR
-// OBSOLETE mn10200_analyze_prologue (struct frame_info *fi, CORE_ADDR pc)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR func_addr, func_end, addr, stop;
-// OBSOLETE CORE_ADDR stack_size = 0;
-// OBSOLETE unsigned char buf[4];
-// OBSOLETE int status;
-// OBSOLETE char *name;
-// OBSOLETE int out_of_line_prologue = 0;
-// OBSOLETE
-// OBSOLETE /* Use the PC in the frame if it's provided to look up the
-// OBSOLETE start of this function. */
-// OBSOLETE pc = (fi ? get_frame_pc (fi) : pc);
-// OBSOLETE
-// OBSOLETE /* Find the start of this function. */
-// OBSOLETE status = find_pc_partial_function (pc, &name, &func_addr, &func_end);
-// OBSOLETE
-// OBSOLETE /* Do nothing if we couldn't find the start of this function or if we're
-// OBSOLETE stopped at the first instruction in the prologue. */
-// OBSOLETE if (status == 0)
-// OBSOLETE return pc;
-// OBSOLETE
-// OBSOLETE /* If we're in start, then give up. */
-// OBSOLETE if (strcmp (name, "start") == 0)
-// OBSOLETE {
-// OBSOLETE if (fi)
-// OBSOLETE fi->status = NO_MORE_FRAMES;
-// OBSOLETE return pc;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* At the start of a function our frame is in the stack pointer. */
-// OBSOLETE if (fi)
-// OBSOLETE fi->status = MY_FRAME_IN_SP;
-// OBSOLETE
-// OBSOLETE /* If we're physically on an RTS instruction, then our frame has already
-// OBSOLETE been deallocated.
-// OBSOLETE
-// OBSOLETE fi->frame is bogus, we need to fix it. */
-// OBSOLETE if (fi && get_frame_pc (fi) + 1 == func_end)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (get_frame_pc (fi), buf, 1);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (get_next_frame (fi) == NULL)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return get_frame_pc (fi);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (buf[0] == 0xfe)
-// OBSOLETE {
-// OBSOLETE if (get_next_frame (fi) == NULL)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return get_frame_pc (fi);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Similarly if we're stopped on the first insn of a prologue as our
-// OBSOLETE frame hasn't been allocated yet. */
-// OBSOLETE if (fi && get_frame_pc (fi) == func_addr)
-// OBSOLETE {
-// OBSOLETE if (get_next_frame (fi) == NULL)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return get_frame_pc (fi);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Figure out where to stop scanning. */
-// OBSOLETE stop = fi ? get_frame_pc (fi) : func_end;
-// OBSOLETE
-// OBSOLETE /* Don't walk off the end of the function. */
-// OBSOLETE stop = stop > func_end ? func_end : stop;
-// OBSOLETE
-// OBSOLETE /* Start scanning on the first instruction of this function. */
-// OBSOLETE addr = func_addr;
-// OBSOLETE
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && fi->status & MY_FRAME_IN_SP)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* First see if this insn sets the stack pointer; if so, it's something
-// OBSOLETE we won't understand, so quit now. */
-// OBSOLETE if (buf[0] == 0xdf
-// OBSOLETE || (buf[0] == 0xf4 && buf[1] == 0x77))
-// OBSOLETE {
-// OBSOLETE if (fi)
-// OBSOLETE fi->status = NO_MORE_FRAMES;
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Now see if we have a frame pointer.
-// OBSOLETE
-// OBSOLETE Search for mov a2,a0 (0xf278)
-// OBSOLETE then mov a3,a2 (0xf27e). */
-// OBSOLETE
-// OBSOLETE if (buf[0] == 0xf2 && buf[1] == 0x78)
-// OBSOLETE {
-// OBSOLETE /* Our caller's $a2 will be found in $a0 now. Note it for
-// OBSOLETE our callers. */
-// OBSOLETE if (fi)
-// OBSOLETE fi->status |= CALLER_A2_IN_A0;
-// OBSOLETE addr += 2;
-// OBSOLETE if (addr >= stop)
-// OBSOLETE {
-// OBSOLETE /* We still haven't allocated our local stack. Handle this
-// OBSOLETE as if we stopped on the first or last insn of a function. */
-// OBSOLETE if (fi && get_next_frame (fi) == NULL)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE if (buf[0] == 0xf2 && buf[1] == 0x7e)
-// OBSOLETE {
-// OBSOLETE addr += 2;
-// OBSOLETE
-// OBSOLETE /* Our frame pointer is valid now. */
-// OBSOLETE if (fi)
-// OBSOLETE {
-// OBSOLETE fi->status |= MY_FRAME_IN_FP;
-// OBSOLETE fi->status &= ~MY_FRAME_IN_SP;
-// OBSOLETE }
-// OBSOLETE if (addr >= stop)
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Next we should allocate the local frame.
-// OBSOLETE
-// OBSOLETE Search for add imm8,a3 (0xd3XX)
-// OBSOLETE or add imm16,a3 (0xf70bXXXX)
-// OBSOLETE or add imm24,a3 (0xf467XXXXXX).
-// OBSOLETE
-// OBSOLETE If none of the above was found, then this prologue has
-// OBSOLETE no stack, and therefore can't have any register saves,
-// OBSOLETE so quit now. */
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE if (buf[0] == 0xd3)
-// OBSOLETE {
-// OBSOLETE stack_size = extract_signed_integer (&buf[1], 1);
-// OBSOLETE if (fi)
-// OBSOLETE fi->stack_size = stack_size;
-// OBSOLETE addr += 2;
-// OBSOLETE if (addr >= stop)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp () - stack_size);
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else if (buf[0] == 0xf7 && buf[1] == 0x0b)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (addr + 2, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE stack_size = extract_signed_integer (buf, 2);
-// OBSOLETE if (fi)
-// OBSOLETE fi->stack_size = stack_size;
-// OBSOLETE addr += 4;
-// OBSOLETE if (addr >= stop)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp () - stack_size);
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else if (buf[0] == 0xf4 && buf[1] == 0x67)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (addr + 2, buf, 3);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE stack_size = extract_signed_integer (buf, 3);
-// OBSOLETE if (fi)
-// OBSOLETE fi->stack_size = stack_size;
-// OBSOLETE addr += 5;
-// OBSOLETE if (addr >= stop)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp () - stack_size);
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Now see if we have a call to __prologue for an out of line
-// OBSOLETE prologue. */
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE
-// OBSOLETE /* First check for 16bit pc-relative call to __prologue. */
-// OBSOLETE if (buf[0] == 0xfd)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR temp;
-// OBSOLETE status = target_read_memory (addr + 1, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Get the PC this instruction will branch to. */
-// OBSOLETE temp = (extract_signed_integer (buf, 2) + addr + 3) & 0xffffff;
-// OBSOLETE
-// OBSOLETE /* Get the name of the function at the target address. */
-// OBSOLETE status = find_pc_partial_function (temp, &name, NULL, NULL);
-// OBSOLETE if (status == 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Note if it is an out of line prologue. */
-// OBSOLETE out_of_line_prologue = (strcmp (name, "__prologue") == 0);
-// OBSOLETE
-// OBSOLETE /* This sucks up 3 bytes of instruction space. */
-// OBSOLETE if (out_of_line_prologue)
-// OBSOLETE addr += 3;
-// OBSOLETE
-// OBSOLETE if (addr >= stop)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL)
-// OBSOLETE {
-// OBSOLETE fi->stack_size -= 16;
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp () - fi->stack_size);
-// OBSOLETE }
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE /* Now check for the 24bit pc-relative call to __prologue. */
-// OBSOLETE else if (buf[0] == 0xf4 && buf[1] == 0xe1)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR temp;
-// OBSOLETE status = target_read_memory (addr + 2, buf, 3);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Get the PC this instruction will branch to. */
-// OBSOLETE temp = (extract_signed_integer (buf, 3) + addr + 5) & 0xffffff;
-// OBSOLETE
-// OBSOLETE /* Get the name of the function at the target address. */
-// OBSOLETE status = find_pc_partial_function (temp, &name, NULL, NULL);
-// OBSOLETE if (status == 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp ());
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Note if it is an out of line prologue. */
-// OBSOLETE out_of_line_prologue = (strcmp (name, "__prologue") == 0);
-// OBSOLETE
-// OBSOLETE /* This sucks up 5 bytes of instruction space. */
-// OBSOLETE if (out_of_line_prologue)
-// OBSOLETE addr += 5;
-// OBSOLETE
-// OBSOLETE if (addr >= stop)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP))
-// OBSOLETE {
-// OBSOLETE fi->stack_size -= 16;
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp () - fi->stack_size);
-// OBSOLETE }
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Now actually handle the out of line prologue. */
-// OBSOLETE if (out_of_line_prologue)
-// OBSOLETE {
-// OBSOLETE int outgoing_args_size = 0;
-// OBSOLETE
-// OBSOLETE /* First adjust the stack size for this function. The out of
-// OBSOLETE line prologue saves 4 registers (16bytes of data). */
-// OBSOLETE if (fi)
-// OBSOLETE fi->stack_size -= 16;
-// OBSOLETE
-// OBSOLETE /* Update fi->frame if necessary. */
-// OBSOLETE if (fi && get_next_frame (fi) == NULL)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp () - fi->stack_size);
-// OBSOLETE
-// OBSOLETE /* After the out of line prologue, there may be another
-// OBSOLETE stack adjustment for the outgoing arguments.
-// OBSOLETE
-// OBSOLETE Search for add imm8,a3 (0xd3XX)
-// OBSOLETE or add imm16,a3 (0xf70bXXXX)
-// OBSOLETE or add imm24,a3 (0xf467XXXXXX). */
-// OBSOLETE
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi)
-// OBSOLETE {
-// OBSOLETE fi->fsr.regs[2] = get_frame_base (fi) + fi->stack_size + 4;
-// OBSOLETE fi->fsr.regs[3] = get_frame_base (fi) + fi->stack_size + 8;
-// OBSOLETE fi->fsr.regs[5] = get_frame_base (fi) + fi->stack_size + 12;
-// OBSOLETE fi->fsr.regs[6] = get_frame_base (fi) + fi->stack_size + 16;
-// OBSOLETE }
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (buf[0] == 0xd3)
-// OBSOLETE {
-// OBSOLETE outgoing_args_size = extract_signed_integer (&buf[1], 1);
-// OBSOLETE addr += 2;
-// OBSOLETE }
-// OBSOLETE else if (buf[0] == 0xf7 && buf[1] == 0x0b)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (addr + 2, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi)
-// OBSOLETE {
-// OBSOLETE fi->fsr.regs[2] = get_frame_base (fi) + fi->stack_size + 4;
-// OBSOLETE fi->fsr.regs[3] = get_frame_base (fi) + fi->stack_size + 8;
-// OBSOLETE fi->fsr.regs[5] = get_frame_base (fi) + fi->stack_size + 12;
-// OBSOLETE fi->fsr.regs[6] = get_frame_base (fi) + fi->stack_size + 16;
-// OBSOLETE }
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE outgoing_args_size = extract_signed_integer (buf, 2);
-// OBSOLETE addr += 4;
-// OBSOLETE }
-// OBSOLETE else if (buf[0] == 0xf4 && buf[1] == 0x67)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (addr + 2, buf, 3);
-// OBSOLETE if (status != 0)
-// OBSOLETE {
-// OBSOLETE if (fi && get_next_frame (fi) == NULL)
-// OBSOLETE {
-// OBSOLETE fi->fsr.regs[2] = get_frame_base (fi) + fi->stack_size + 4;
-// OBSOLETE fi->fsr.regs[3] = get_frame_base (fi) + fi->stack_size + 8;
-// OBSOLETE fi->fsr.regs[5] = get_frame_base (fi) + fi->stack_size + 12;
-// OBSOLETE fi->fsr.regs[6] = get_frame_base (fi) + fi->stack_size + 16;
-// OBSOLETE }
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE outgoing_args_size = extract_signed_integer (buf, 3);
-// OBSOLETE addr += 5;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE outgoing_args_size = 0;
-// OBSOLETE
-// OBSOLETE /* Now that we know the size of the outgoing arguments, fix
-// OBSOLETE fi->frame again if this is the innermost frame. */
-// OBSOLETE if (fi && get_next_frame (fi) == NULL)
-// OBSOLETE deprecated_update_frame_base_hack (fi, get_frame_base (fi) - outgoing_args_size);
-// OBSOLETE
-// OBSOLETE /* Note the register save information and update the stack
-// OBSOLETE size for this frame too. */
-// OBSOLETE if (fi)
-// OBSOLETE {
-// OBSOLETE fi->fsr.regs[2] = get_frame_base (fi) + fi->stack_size + 4;
-// OBSOLETE fi->fsr.regs[3] = get_frame_base (fi) + fi->stack_size + 8;
-// OBSOLETE fi->fsr.regs[5] = get_frame_base (fi) + fi->stack_size + 12;
-// OBSOLETE fi->fsr.regs[6] = get_frame_base (fi) + fi->stack_size + 16;
-// OBSOLETE fi->stack_size += outgoing_args_size;
-// OBSOLETE }
-// OBSOLETE /* There can be no more prologue insns, so return now. */
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* At this point fi->frame needs to be correct.
-// OBSOLETE
-// OBSOLETE If MY_FRAME_IN_SP is set and we're the innermost frame, then we
-// OBSOLETE need to fix fi->frame so that backtracing, find_frame_saved_regs,
-// OBSOLETE etc work correctly. */
-// OBSOLETE if (fi && get_next_frame (fi) == NULL && (fi->status & MY_FRAME_IN_SP) != 0)
-// OBSOLETE deprecated_update_frame_base_hack (fi, read_sp () - fi->stack_size);
-// OBSOLETE
-// OBSOLETE /* And last we have the register saves. These are relatively
-// OBSOLETE simple because they're physically done off the stack pointer,
-// OBSOLETE and thus the number of different instructions we need to
-// OBSOLETE check is greatly reduced because we know the displacements
-// OBSOLETE will be small.
-// OBSOLETE
-// OBSOLETE Search for movx d2,(X,a3) (0xf55eXX)
-// OBSOLETE then movx d3,(X,a3) (0xf55fXX)
-// OBSOLETE then mov a1,(X,a3) (0x5dXX) No frame pointer case
-// OBSOLETE then mov a2,(X,a3) (0x5eXX) No frame pointer case
-// OBSOLETE or mov a0,(X,a3) (0x5cXX) Frame pointer case. */
-// OBSOLETE
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE if (buf[0] == 0xf5 && buf[1] == 0x5e)
-// OBSOLETE {
-// OBSOLETE if (fi)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (addr + 2, buf, 1);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE fi->fsr.regs[2] = (get_frame_base (fi) + stack_size
-// OBSOLETE + extract_signed_integer (buf, 1));
-// OBSOLETE }
-// OBSOLETE addr += 3;
-// OBSOLETE if (addr >= stop)
-// OBSOLETE return addr;
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE if (buf[0] == 0xf5 && buf[1] == 0x5f)
-// OBSOLETE {
-// OBSOLETE if (fi)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (addr + 2, buf, 1);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE fi->fsr.regs[3] = (get_frame_base (fi) + stack_size
-// OBSOLETE + extract_signed_integer (buf, 1));
-// OBSOLETE }
-// OBSOLETE addr += 3;
-// OBSOLETE if (addr >= stop)
-// OBSOLETE return addr;
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE if (buf[0] == 0x5d)
-// OBSOLETE {
-// OBSOLETE if (fi)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (addr + 1, buf, 1);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE fi->fsr.regs[5] = (get_frame_base (fi) + stack_size
-// OBSOLETE + extract_signed_integer (buf, 1));
-// OBSOLETE }
-// OBSOLETE addr += 2;
-// OBSOLETE if (addr >= stop)
-// OBSOLETE return addr;
-// OBSOLETE status = target_read_memory (addr, buf, 2);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE if (buf[0] == 0x5e || buf[0] == 0x5c)
-// OBSOLETE {
-// OBSOLETE if (fi)
-// OBSOLETE {
-// OBSOLETE status = target_read_memory (addr + 1, buf, 1);
-// OBSOLETE if (status != 0)
-// OBSOLETE return addr;
-// OBSOLETE fi->fsr.regs[6] = (get_frame_base (fi) + stack_size
-// OBSOLETE + extract_signed_integer (buf, 1));
-// OBSOLETE fi->status &= ~CALLER_A2_IN_A0;
-// OBSOLETE }
-// OBSOLETE addr += 2;
-// OBSOLETE if (addr >= stop)
-// OBSOLETE return addr;
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE return addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Function: frame_chain
-// OBSOLETE Figure out and return the caller's frame pointer given current
-// OBSOLETE frame_info struct.
-// OBSOLETE
-// OBSOLETE We don't handle dummy frames yet but we would probably just return the
-// OBSOLETE stack pointer that was in use at the time the function call was made? */
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE mn10200_frame_chain (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE struct frame_info *dummy_frame = deprecated_frame_xmalloc ();
-// OBSOLETE struct cleanup *old_chain = make_cleanup (xfree, dummy_frame);
-// OBSOLETE CORE_ADDR ret;
-// OBSOLETE
-// OBSOLETE /* Walk through the prologue to determine the stack size,
-// OBSOLETE location of saved registers, end of the prologue, etc. */
-// OBSOLETE if (fi->status == 0)
-// OBSOLETE mn10200_analyze_prologue (fi, (CORE_ADDR) 0);
-// OBSOLETE
-// OBSOLETE /* Quit now if mn10200_analyze_prologue set NO_MORE_FRAMES. */
-// OBSOLETE if (fi->status & NO_MORE_FRAMES)
-// OBSOLETE return 0;
-// OBSOLETE
-// OBSOLETE /* Now that we've analyzed our prologue, determine the frame
-// OBSOLETE pointer for our caller.
-// OBSOLETE
-// OBSOLETE If our caller has a frame pointer, then we need to
-// OBSOLETE find the entry value of $a2 to our function.
-// OBSOLETE
-// OBSOLETE If CALLER_A2_IN_A0, then the chain is in $a0.
-// OBSOLETE
-// OBSOLETE If fsr.regs[6] is nonzero, then it's at the memory
-// OBSOLETE location pointed to by fsr.regs[6].
-// OBSOLETE
-// OBSOLETE Else it's still in $a2.
-// OBSOLETE
-// OBSOLETE If our caller does not have a frame pointer, then his
-// OBSOLETE frame base is fi->frame + -caller's stack size + 4. */
-// OBSOLETE
-// OBSOLETE /* The easiest way to get that info is to analyze our caller's frame.
-// OBSOLETE
-// OBSOLETE So we set up a dummy frame and call mn10200_analyze_prologue to
-// OBSOLETE find stuff for us. */
-// OBSOLETE deprecated_update_frame_pc_hack (dummy_frame, FRAME_SAVED_PC (fi));
-// OBSOLETE deprecated_update_frame_base_hack (dummy_frame, get_frame_base (fi));
-// OBSOLETE memset (dummy_frame->fsr.regs, '\000', sizeof dummy_frame->fsr.regs);
-// OBSOLETE dummy_frame->status = 0;
-// OBSOLETE dummy_frame->stack_size = 0;
-// OBSOLETE mn10200_analyze_prologue (dummy_frame, 0);
-// OBSOLETE
-// OBSOLETE if (dummy_frame->status & MY_FRAME_IN_FP)
-// OBSOLETE {
-// OBSOLETE /* Our caller has a frame pointer. So find the frame in $a2, $a0,
-// OBSOLETE or in the stack. */
-// OBSOLETE if (fi->fsr.regs[6])
-// OBSOLETE ret = (read_memory_integer (fi->fsr.regs[FP_REGNUM], REGISTER_SIZE)
-// OBSOLETE & 0xffffff);
-// OBSOLETE else if (fi->status & CALLER_A2_IN_A0)
-// OBSOLETE ret = read_register (4);
-// OBSOLETE else
-// OBSOLETE ret = read_register (FP_REGNUM);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* Our caller does not have a frame pointer. So his frame starts
-// OBSOLETE at the base of our frame (fi->frame) + <his size> + 4 (saved pc). */
-// OBSOLETE ret = get_frame_base (fi) + -dummy_frame->stack_size + 4;
-// OBSOLETE }
-// OBSOLETE do_cleanups (old_chain);
-// OBSOLETE return ret;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Function: skip_prologue
-// OBSOLETE Return the address of the first inst past the prologue of the function. */
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE mn10200_skip_prologue (CORE_ADDR pc)
-// OBSOLETE {
-// OBSOLETE /* We used to check the debug symbols, but that can lose if
-// OBSOLETE we have a null prologue. */
-// OBSOLETE return mn10200_analyze_prologue (NULL, pc);
-// 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 mn10200_pop_frame (struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE int regnum;
-// OBSOLETE
-// OBSOLETE if (DEPRECATED_PC_IN_CALL_DUMMY (get_frame_pc (frame),
-// OBSOLETE get_frame_base (frame),
-// OBSOLETE get_frame_base (frame)))
-// OBSOLETE generic_pop_dummy_frame ();
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE write_register (PC_REGNUM, FRAME_SAVED_PC (frame));
-// OBSOLETE
-// OBSOLETE /* Restore any saved registers. */
-// OBSOLETE for (regnum = 0; regnum < NUM_REGS; regnum++)
-// OBSOLETE if (frame->fsr.regs[regnum] != 0)
-// OBSOLETE {
-// OBSOLETE ULONGEST value;
-// OBSOLETE
-// OBSOLETE value = read_memory_unsigned_integer (frame->fsr.regs[regnum],
-// OBSOLETE REGISTER_RAW_SIZE (regnum));
-// OBSOLETE write_register (regnum, value);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Actually cut back the stack. */
-// OBSOLETE write_register (SP_REGNUM, get_frame_base (frame));
-// OBSOLETE
-// OBSOLETE /* Don't we need to set the PC?!? XXX FIXME. */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Throw away any cached frame information. */
-// OBSOLETE flush_cached_frames ();
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Function: push_arguments
-// OBSOLETE Setup arguments for a call to the target. Arguments go in
-// OBSOLETE order on the stack. */
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE mn10200_push_arguments (int nargs, struct value **args, CORE_ADDR sp,
-// OBSOLETE unsigned char struct_return, CORE_ADDR struct_addr)
-// OBSOLETE {
-// OBSOLETE int argnum = 0;
-// OBSOLETE int len = 0;
-// OBSOLETE int stack_offset = 0;
-// OBSOLETE int regsused = struct_return ? 1 : 0;
-// OBSOLETE
-// OBSOLETE /* This should be a nop, but align the stack just in case something
-// OBSOLETE went wrong. Stacks are two byte aligned on the mn10200. */
-// OBSOLETE sp &= ~1;
-// OBSOLETE
-// OBSOLETE /* Now make space on the stack for the args.
-// OBSOLETE
-// OBSOLETE XXX This doesn't appear to handle pass-by-invisible reference
-// OBSOLETE arguments. */
-// OBSOLETE for (argnum = 0; argnum < nargs; argnum++)
-// OBSOLETE {
-// OBSOLETE int arg_length = (TYPE_LENGTH (VALUE_TYPE (args[argnum])) + 1) & ~1;
-// OBSOLETE
-// OBSOLETE /* If we've used all argument registers, then this argument is
-// OBSOLETE pushed. */
-// OBSOLETE if (regsused >= 2 || arg_length > 4)
-// OBSOLETE {
-// OBSOLETE regsused = 2;
-// OBSOLETE len += arg_length;
-// OBSOLETE }
-// OBSOLETE /* We know we've got some arg register space left. If this argument
-// OBSOLETE will fit entirely in regs, then put it there. */
-// OBSOLETE else if (arg_length <= 2
-// OBSOLETE || TYPE_CODE (VALUE_TYPE (args[argnum])) == TYPE_CODE_PTR)
-// OBSOLETE {
-// OBSOLETE regsused++;
-// OBSOLETE }
-// OBSOLETE else if (regsused == 0)
-// OBSOLETE {
-// OBSOLETE regsused = 2;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE regsused = 2;
-// OBSOLETE len += arg_length;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Allocate stack space. */
-// OBSOLETE sp -= len;
-// OBSOLETE
-// OBSOLETE regsused = struct_return ? 1 : 0;
-// OBSOLETE /* Push all arguments onto the stack. */
-// OBSOLETE for (argnum = 0; argnum < nargs; argnum++)
-// OBSOLETE {
-// OBSOLETE int len;
-// OBSOLETE char *val;
-// OBSOLETE
-// OBSOLETE /* XXX Check this. What about UNIONS? */
-// OBSOLETE if (TYPE_CODE (VALUE_TYPE (*args)) == TYPE_CODE_STRUCT
-// OBSOLETE && TYPE_LENGTH (VALUE_TYPE (*args)) > 8)
-// OBSOLETE {
-// OBSOLETE /* XXX Wrong, we want a pointer to this argument. */
-// OBSOLETE len = TYPE_LENGTH (VALUE_TYPE (*args));
-// OBSOLETE val = (char *) VALUE_CONTENTS (*args);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE len = TYPE_LENGTH (VALUE_TYPE (*args));
-// OBSOLETE val = (char *) VALUE_CONTENTS (*args);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (regsused < 2
-// OBSOLETE && (len <= 2
-// OBSOLETE || TYPE_CODE (VALUE_TYPE (*args)) == TYPE_CODE_PTR))
-// OBSOLETE {
-// OBSOLETE write_register (regsused, extract_unsigned_integer (val, 4));
-// OBSOLETE regsused++;
-// OBSOLETE }
-// OBSOLETE else if (regsused == 0 && len == 4)
-// OBSOLETE {
-// OBSOLETE write_register (regsused, extract_unsigned_integer (val, 2));
-// OBSOLETE write_register (regsused + 1, extract_unsigned_integer (val + 2, 2));
-// OBSOLETE regsused = 2;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE regsused = 2;
-// OBSOLETE while (len > 0)
-// OBSOLETE {
-// OBSOLETE write_memory (sp + stack_offset, val, 2);
-// OBSOLETE
-// OBSOLETE len -= 2;
-// OBSOLETE val += 2;
-// OBSOLETE stack_offset += 2;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE args++;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return sp;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Function: push_return_address (pc)
-// OBSOLETE Set up the return address for the inferior function call.
-// OBSOLETE Needed for targets where we don't actually execute a JSR/BSR instruction */
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE mn10200_push_return_address (CORE_ADDR pc, CORE_ADDR sp)
-// OBSOLETE {
-// OBSOLETE unsigned char buf[4];
-// OBSOLETE
-// OBSOLETE store_unsigned_integer (buf, 4, CALL_DUMMY_ADDRESS ());
-// OBSOLETE write_memory (sp - 4, buf, 4);
-// OBSOLETE return sp - 4;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Function: store_struct_return (addr,sp)
-// OBSOLETE Store the structure value return address for an inferior function
-// OBSOLETE call. */
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE mn10200_store_struct_return (CORE_ADDR addr, CORE_ADDR sp)
-// OBSOLETE {
-// OBSOLETE /* The structure return address is passed as the first argument. */
-// OBSOLETE write_register (0, addr);
-// OBSOLETE return sp;
-// 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 mn10200_frame_saved_pc (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE /* The saved PC will always be at the base of the current frame. */
-// OBSOLETE return (read_memory_integer (get_frame_base (fi), REGISTER_SIZE) & 0xffffff);
-// 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 mn10200_analyze_prologue().
-// OBSOLETE
-// OBSOLETE Note that when we are called for the last frame (currently active frame),
-// OBSOLETE that get_frame_pc (fi) 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. mn10200_analyze_prologue will fix fi->frame if
-// OBSOLETE it's not valid.
-// 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 mn10200_init_extra_frame_info (struct frame_info *fi)
-// OBSOLETE {
-// OBSOLETE if (get_next_frame (fi))
-// OBSOLETE deprecated_update_frame_pc_hack (fi, FRAME_SAVED_PC (get_next_frame (fi)));
-// OBSOLETE
-// OBSOLETE memset (fi->fsr.regs, '\000', sizeof fi->fsr.regs);
-// OBSOLETE fi->status = 0;
-// OBSOLETE fi->stack_size = 0;
-// OBSOLETE
-// OBSOLETE mn10200_analyze_prologue (fi, 0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE _initialize_mn10200_tdep (void)
-// OBSOLETE {
-// OBSOLETE tm_print_insn = print_insn_mn10200;
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /****************************************************************************
-// OBSOLETE
-// OBSOLETE THIS SOFTWARE IS NOT COPYRIGHTED
-// OBSOLETE
-// OBSOLETE HP offers the following for use in the public domain. HP makes no
-// OBSOLETE warranty with regard to the software or it's performance and the
-// OBSOLETE user accepts the software "AS IS" with all faults.
-// OBSOLETE
-// OBSOLETE HP DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD
-// OBSOLETE TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-// OBSOLETE OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-// OBSOLETE
-// OBSOLETE ****************************************************************************/
-// OBSOLETE
-// OBSOLETE /****************************************************************************
-// OBSOLETE * Header: remcom.c,v 1.34 91/03/09 12:29:49 glenne Exp $
-// OBSOLETE *
-// OBSOLETE * Module name: remcom.c $
-// OBSOLETE * Revision: 1.34 $
-// OBSOLETE * Date: 91/03/09 12:29:49 $
-// OBSOLETE * Contributor: Lake Stevens Instrument Division$
-// OBSOLETE *
-// OBSOLETE * Description: low level support for gdb debugger. $
-// OBSOLETE *
-// OBSOLETE * Considerations: only works on target hardware $
-// OBSOLETE *
-// OBSOLETE * Written by: Glenn Engel $
-// OBSOLETE * ModuleState: Experimental $
-// OBSOLETE *
-// OBSOLETE * NOTES: See Below $
-// OBSOLETE *
-// OBSOLETE * Modified for SPARC by Stu Grossman, Cygnus Support.
-// OBSOLETE * Based on sparc-stub.c, it's modified for SPARClite Debug Unit hardware
-// OBSOLETE * breakpoint support to create sparclite-stub.c, by Kung Hsu, Cygnus Support.
-// OBSOLETE *
-// OBSOLETE * This code has been extensively tested on the Fujitsu SPARClite demo board.
-// OBSOLETE *
-// OBSOLETE * To enable debugger support, two things need to happen. One, a
-// OBSOLETE * call to set_debug_traps() is necessary in order to allow any breakpoints
-// OBSOLETE * or error conditions to be properly intercepted and reported to gdb.
-// OBSOLETE * Two, a breakpoint needs to be generated to begin communication. This
-// OBSOLETE * is most easily accomplished by a call to breakpoint(). Breakpoint()
-// OBSOLETE * simulates a breakpoint by executing a trap #1.
-// OBSOLETE *
-// OBSOLETE *************
-// OBSOLETE *
-// OBSOLETE * The following gdb commands are supported:
-// OBSOLETE *
-// OBSOLETE * command function Return value
-// OBSOLETE *
-// OBSOLETE * g return the value of the CPU registers hex data or ENN
-// OBSOLETE * G set the value of the CPU registers OK or ENN
-// OBSOLETE * P set the value of a single CPU register OK or ENN
-// OBSOLETE *
-// OBSOLETE * mAA..AA,LLLL Read LLLL bytes at address AA..AA hex data or ENN
-// OBSOLETE * MAA..AA,LLLL: Write LLLL bytes at address AA.AA OK or ENN
-// OBSOLETE *
-// OBSOLETE * c Resume at current address SNN ( signal NN)
-// OBSOLETE * cAA..AA Continue at address AA..AA SNN
-// OBSOLETE *
-// OBSOLETE * s Step one instruction SNN
-// OBSOLETE * sAA..AA Step one instruction from AA..AA SNN
-// OBSOLETE *
-// OBSOLETE * k kill
-// OBSOLETE *
-// OBSOLETE * ? What was the last sigval ? SNN (signal NN)
-// OBSOLETE *
-// OBSOLETE * All commands and responses are sent with a packet which includes a
-// OBSOLETE * checksum. A packet consists of
-// OBSOLETE *
-// OBSOLETE * $<packet info>#<checksum>.
-// OBSOLETE *
-// OBSOLETE * where
-// OBSOLETE * <packet info> :: <characters representing the command or response>
-// OBSOLETE * <checksum> :: < two hex digits computed as modulo 256 sum of <packetinfo>>
-// OBSOLETE *
-// OBSOLETE * When a packet is received, it is first acknowledged with either '+' or '-'.
-// OBSOLETE * '+' indicates a successful transfer. '-' indicates a failed transfer.
-// OBSOLETE *
-// OBSOLETE * Example:
-// OBSOLETE *
-// OBSOLETE * Host: Reply:
-// OBSOLETE * $m0,10#2a +$00010203040506070809101112131415#42
-// OBSOLETE *
-// OBSOLETE ****************************************************************************/
-// OBSOLETE
-// OBSOLETE #include <string.h>
-// OBSOLETE #include <signal.h>
-// OBSOLETE #include <sparclite.h>
-// OBSOLETE
-// OBSOLETE /************************************************************************
-// OBSOLETE *
-// OBSOLETE * external low-level support routines
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE extern void putDebugChar (int c); /* write a single character */
-// OBSOLETE extern int getDebugChar (void); /* read and return a single char */
-// OBSOLETE
-// OBSOLETE /************************************************************************/
-// OBSOLETE /* BUFMAX defines the maximum number of characters in inbound/outbound buffers*/
-// OBSOLETE /* at least NUMREGBYTES*2 are needed for register packets */
-// OBSOLETE #define BUFMAX 2048
-// OBSOLETE
-// OBSOLETE static int initialized = 0; /* !0 means we've been initialized */
-// OBSOLETE
-// OBSOLETE extern void breakinst ();
-// OBSOLETE static void set_mem_fault_trap (int enable);
-// OBSOLETE static void get_in_break_mode (void);
-// OBSOLETE
-// OBSOLETE static const char hexchars[]="0123456789abcdef";
-// OBSOLETE
-// OBSOLETE #define NUMREGS 80
-// OBSOLETE
-// OBSOLETE /* Number of bytes of registers. */
-// OBSOLETE #define NUMREGBYTES (NUMREGS * 4)
-// OBSOLETE enum regnames {G0, G1, G2, G3, G4, G5, G6, G7,
-// OBSOLETE O0, O1, O2, O3, O4, O5, SP, O7,
-// OBSOLETE L0, L1, L2, L3, L4, L5, L6, L7,
-// OBSOLETE I0, I1, I2, I3, I4, I5, FP, I7,
-// OBSOLETE
-// OBSOLETE F0, F1, F2, F3, F4, F5, F6, F7,
-// OBSOLETE F8, F9, F10, F11, F12, F13, F14, F15,
-// OBSOLETE F16, F17, F18, F19, F20, F21, F22, F23,
-// OBSOLETE F24, F25, F26, F27, F28, F29, F30, F31,
-// OBSOLETE Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR,
-// OBSOLETE DIA1, DIA2, DDA1, DDA2, DDV1, DDV2, DCR, DSR };
-// OBSOLETE
-// OBSOLETE /*************************** ASSEMBLY CODE MACROS *************************/
-// OBSOLETE /* */
-// OBSOLETE
-// OBSOLETE extern void trap_low();
-// OBSOLETE
-// OBSOLETE /* Create private copies of common functions used by the stub. This prevents
-// OBSOLETE nasty interactions between app code and the stub (for instance if user steps
-// OBSOLETE into strlen, etc..) */
-// OBSOLETE
-// OBSOLETE static char *
-// OBSOLETE strcpy (char *dst, const char *src)
-// OBSOLETE {
-// OBSOLETE char *retval = dst;
-// OBSOLETE
-// OBSOLETE while ((*dst++ = *src++) != '\000');
-// OBSOLETE
-// OBSOLETE return retval;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void *
-// OBSOLETE memcpy (void *vdst, const void *vsrc, int n)
-// OBSOLETE {
-// OBSOLETE char *dst = vdst;
-// OBSOLETE const char *src = vsrc;
-// OBSOLETE char *retval = dst;
-// OBSOLETE
-// OBSOLETE while (n-- > 0)
-// OBSOLETE *dst++ = *src++;
-// OBSOLETE
-// OBSOLETE return retval;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE asm("
-// OBSOLETE .reserve trapstack, 1000 * 4, \"bss\", 8
-// OBSOLETE
-// OBSOLETE .data
-// OBSOLETE .align 4
-// OBSOLETE
-// OBSOLETE in_trap_handler:
-// OBSOLETE .word 0
-// OBSOLETE
-// OBSOLETE .text
-// OBSOLETE .align 4
-// OBSOLETE
-// OBSOLETE ! This function is called when any SPARC trap (except window overflow or
-// OBSOLETE ! underflow) occurs. It makes sure that the invalid register window is still
-// OBSOLETE ! available before jumping into C code. It will also restore the world if you
-// OBSOLETE ! return from handle_exception.
-// OBSOLETE !
-// OBSOLETE ! On entry, trap_low expects l1 and l2 to contain pc and npc respectivly.
-// OBSOLETE ! Register usage throughout the routine is as follows:
-// OBSOLETE !
-// OBSOLETE ! l0 - psr
-// OBSOLETE ! l1 - pc
-// OBSOLETE ! l2 - npc
-// OBSOLETE ! l3 - wim
-// OBSOLETE ! l4 - scratch and y reg
-// OBSOLETE ! l5 - scratch and tbr
-// OBSOLETE ! l6 - unused
-// OBSOLETE ! l7 - unused
-// OBSOLETE
-// OBSOLETE .globl _trap_low
-// OBSOLETE _trap_low:
-// OBSOLETE mov %psr, %l0
-// OBSOLETE mov %wim, %l3
-// OBSOLETE
-// OBSOLETE srl %l3, %l0, %l4 ! wim >> cwp
-// OBSOLETE cmp %l4, 1
-// OBSOLETE bne window_fine ! Branch if not in the invalid window
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! Handle window overflow
-// OBSOLETE
-// OBSOLETE mov %g1, %l4 ! Save g1, we use it to hold the wim
-// OBSOLETE srl %l3, 1, %g1 ! Rotate wim right
-// OBSOLETE tst %g1
-// OBSOLETE bg good_wim ! Branch if new wim is non-zero
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! At this point, we need to bring a 1 into the high order bit of the wim.
-// OBSOLETE ! Since we don't want to make any assumptions about the number of register
-// OBSOLETE ! windows, we figure it out dynamically so as to setup the wim correctly.
-// OBSOLETE
-// OBSOLETE not %g1 ! Fill g1 with ones
-// OBSOLETE mov %g1, %wim ! Fill the wim with ones
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE mov %wim, %g1 ! Read back the wim
-// OBSOLETE inc %g1 ! Now g1 has 1 just to left of wim
-// OBSOLETE srl %g1, 1, %g1 ! Now put 1 at top of wim
-// OBSOLETE mov %g0, %wim ! Clear wim so that subsequent save
-// OBSOLETE nop ! won't trap
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE good_wim:
-// OBSOLETE save %g0, %g0, %g0 ! Slip into next window
-// OBSOLETE mov %g1, %wim ! Install the new wim
-// OBSOLETE
-// OBSOLETE std %l0, [%sp + 0 * 4] ! save L & I registers
-// OBSOLETE std %l2, [%sp + 2 * 4]
-// OBSOLETE std %l4, [%sp + 4 * 4]
-// OBSOLETE std %l6, [%sp + 6 * 4]
-// OBSOLETE
-// OBSOLETE std %i0, [%sp + 8 * 4]
-// OBSOLETE std %i2, [%sp + 10 * 4]
-// OBSOLETE std %i4, [%sp + 12 * 4]
-// OBSOLETE std %i6, [%sp + 14 * 4]
-// OBSOLETE
-// OBSOLETE restore ! Go back to trap window.
-// OBSOLETE mov %l4, %g1 ! Restore %g1
-// OBSOLETE
-// OBSOLETE window_fine:
-// OBSOLETE sethi %hi(in_trap_handler), %l4
-// OBSOLETE ld [%lo(in_trap_handler) + %l4], %l5
-// OBSOLETE tst %l5
-// OBSOLETE bg recursive_trap
-// OBSOLETE inc %l5
-// OBSOLETE
-// OBSOLETE set trapstack+1000*4, %sp ! Switch to trap stack
-// OBSOLETE
-// OBSOLETE recursive_trap:
-// OBSOLETE st %l5, [%lo(in_trap_handler) + %l4]
-// OBSOLETE sub %sp,(16+1+6+1+80)*4,%sp ! Make room for input & locals
-// OBSOLETE ! + hidden arg + arg spill
-// OBSOLETE ! + doubleword alignment
-// OBSOLETE ! + registers[72] local var
-// OBSOLETE
-// OBSOLETE std %g0, [%sp + (24 + 0) * 4] ! registers[Gx]
-// OBSOLETE std %g2, [%sp + (24 + 2) * 4]
-// OBSOLETE std %g4, [%sp + (24 + 4) * 4]
-// OBSOLETE std %g6, [%sp + (24 + 6) * 4]
-// OBSOLETE
-// OBSOLETE std %i0, [%sp + (24 + 8) * 4] ! registers[Ox]
-// OBSOLETE std %i2, [%sp + (24 + 10) * 4]
-// OBSOLETE std %i4, [%sp + (24 + 12) * 4]
-// OBSOLETE std %i6, [%sp + (24 + 14) * 4]
-// OBSOLETE
-// OBSOLETE mov %y, %l4
-// OBSOLETE mov %tbr, %l5
-// OBSOLETE st %l4, [%sp + (24 + 64) * 4] ! Y
-// OBSOLETE st %l0, [%sp + (24 + 65) * 4] ! PSR
-// OBSOLETE st %l3, [%sp + (24 + 66) * 4] ! WIM
-// OBSOLETE st %l5, [%sp + (24 + 67) * 4] ! TBR
-// OBSOLETE st %l1, [%sp + (24 + 68) * 4] ! PC
-// OBSOLETE st %l2, [%sp + (24 + 69) * 4] ! NPC
-// OBSOLETE
-// OBSOLETE or %l0, 0xf20, %l4
-// OBSOLETE mov %l4, %psr ! Turn on traps, disable interrupts
-// OBSOLETE
-// OBSOLETE set 0x1000, %l1
-// OBSOLETE btst %l1, %l0 ! FP enabled?
-// OBSOLETE be no_fpstore
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! Must save fsr first, to flush the FQ. This may cause a deferred fp trap, so
-// OBSOLETE ! traps must be enabled to allow the trap handler to clean things up.
-// OBSOLETE
-// OBSOLETE st %fsr, [%sp + (24 + 70) * 4]
-// OBSOLETE
-// OBSOLETE std %f0, [%sp + (24 + 32) * 4]
-// OBSOLETE std %f2, [%sp + (24 + 34) * 4]
-// OBSOLETE std %f4, [%sp + (24 + 36) * 4]
-// OBSOLETE std %f6, [%sp + (24 + 38) * 4]
-// OBSOLETE std %f8, [%sp + (24 + 40) * 4]
-// OBSOLETE std %f10, [%sp + (24 + 42) * 4]
-// OBSOLETE std %f12, [%sp + (24 + 44) * 4]
-// OBSOLETE std %f14, [%sp + (24 + 46) * 4]
-// OBSOLETE std %f16, [%sp + (24 + 48) * 4]
-// OBSOLETE std %f18, [%sp + (24 + 50) * 4]
-// OBSOLETE std %f20, [%sp + (24 + 52) * 4]
-// OBSOLETE std %f22, [%sp + (24 + 54) * 4]
-// OBSOLETE std %f24, [%sp + (24 + 56) * 4]
-// OBSOLETE std %f26, [%sp + (24 + 58) * 4]
-// OBSOLETE std %f28, [%sp + (24 + 60) * 4]
-// OBSOLETE std %f30, [%sp + (24 + 62) * 4]
-// OBSOLETE no_fpstore:
-// OBSOLETE
-// OBSOLETE call _handle_exception
-// OBSOLETE add %sp, 24 * 4, %o0 ! Pass address of registers
-// OBSOLETE
-// OBSOLETE ! Reload all of the registers that aren't on the stack
-// OBSOLETE
-// OBSOLETE ld [%sp + (24 + 1) * 4], %g1 ! registers[Gx]
-// OBSOLETE ldd [%sp + (24 + 2) * 4], %g2
-// OBSOLETE ldd [%sp + (24 + 4) * 4], %g4
-// OBSOLETE ldd [%sp + (24 + 6) * 4], %g6
-// OBSOLETE
-// OBSOLETE ldd [%sp + (24 + 8) * 4], %i0 ! registers[Ox]
-// OBSOLETE ldd [%sp + (24 + 10) * 4], %i2
-// OBSOLETE ldd [%sp + (24 + 12) * 4], %i4
-// OBSOLETE ldd [%sp + (24 + 14) * 4], %i6
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE ldd [%sp + (24 + 64) * 4], %l0 ! Y & PSR
-// OBSOLETE ldd [%sp + (24 + 68) * 4], %l2 ! PC & NPC
-// OBSOLETE
-// OBSOLETE set 0x1000, %l5
-// OBSOLETE btst %l5, %l1 ! FP enabled?
-// OBSOLETE be no_fpreload
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ldd [%sp + (24 + 32) * 4], %f0
-// OBSOLETE ldd [%sp + (24 + 34) * 4], %f2
-// OBSOLETE ldd [%sp + (24 + 36) * 4], %f4
-// OBSOLETE ldd [%sp + (24 + 38) * 4], %f6
-// OBSOLETE ldd [%sp + (24 + 40) * 4], %f8
-// OBSOLETE ldd [%sp + (24 + 42) * 4], %f10
-// OBSOLETE ldd [%sp + (24 + 44) * 4], %f12
-// OBSOLETE ldd [%sp + (24 + 46) * 4], %f14
-// OBSOLETE ldd [%sp + (24 + 48) * 4], %f16
-// OBSOLETE ldd [%sp + (24 + 50) * 4], %f18
-// OBSOLETE ldd [%sp + (24 + 52) * 4], %f20
-// OBSOLETE ldd [%sp + (24 + 54) * 4], %f22
-// OBSOLETE ldd [%sp + (24 + 56) * 4], %f24
-// OBSOLETE ldd [%sp + (24 + 58) * 4], %f26
-// OBSOLETE ldd [%sp + (24 + 60) * 4], %f28
-// OBSOLETE ldd [%sp + (24 + 62) * 4], %f30
-// OBSOLETE
-// OBSOLETE ld [%sp + (24 + 70) * 4], %fsr
-// OBSOLETE no_fpreload:
-// OBSOLETE
-// OBSOLETE restore ! Ensure that previous window is valid
-// OBSOLETE save %g0, %g0, %g0 ! by causing a window_underflow trap
-// OBSOLETE
-// OBSOLETE mov %l0, %y
-// OBSOLETE mov %l1, %psr ! Make sure that traps are disabled
-// OBSOLETE ! for rett
-// OBSOLETE sethi %hi(in_trap_handler), %l4
-// OBSOLETE ld [%lo(in_trap_handler) + %l4], %l5
-// OBSOLETE dec %l5
-// OBSOLETE st %l5, [%lo(in_trap_handler) + %l4]
-// OBSOLETE
-// OBSOLETE jmpl %l2, %g0 ! Restore old PC
-// OBSOLETE rett %l3 ! Restore old nPC
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE /* Convert ch from a hex digit to an int */
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE hex (unsigned char ch)
-// OBSOLETE {
-// OBSOLETE if (ch >= 'a' && ch <= 'f')
-// OBSOLETE return ch-'a'+10;
-// OBSOLETE if (ch >= '0' && ch <= '9')
-// OBSOLETE return ch-'0';
-// OBSOLETE if (ch >= 'A' && ch <= 'F')
-// OBSOLETE return ch-'A'+10;
-// OBSOLETE return -1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static char remcomInBuffer[BUFMAX];
-// OBSOLETE static char remcomOutBuffer[BUFMAX];
-// OBSOLETE
-// OBSOLETE /* scan for the sequence $<data>#<checksum> */
-// OBSOLETE
-// OBSOLETE unsigned char *
-// OBSOLETE getpacket (void)
-// OBSOLETE {
-// OBSOLETE unsigned char *buffer = &remcomInBuffer[0];
-// OBSOLETE unsigned char checksum;
-// OBSOLETE unsigned char xmitcsum;
-// OBSOLETE int count;
-// OBSOLETE char ch;
-// OBSOLETE
-// OBSOLETE while (1)
-// OBSOLETE {
-// OBSOLETE /* wait around for the start character, ignore all other characters */
-// OBSOLETE while ((ch = getDebugChar ()) != '$')
-// OBSOLETE ;
-// OBSOLETE
-// OBSOLETE retry:
-// OBSOLETE checksum = 0;
-// OBSOLETE xmitcsum = -1;
-// OBSOLETE count = 0;
-// OBSOLETE
-// OBSOLETE /* now, read until a # or end of buffer is found */
-// OBSOLETE while (count < BUFMAX)
-// OBSOLETE {
-// OBSOLETE ch = getDebugChar ();
-// OBSOLETE if (ch == '$')
-// OBSOLETE goto retry;
-// OBSOLETE if (ch == '#')
-// OBSOLETE break;
-// OBSOLETE checksum = checksum + ch;
-// OBSOLETE buffer[count] = ch;
-// OBSOLETE count = count + 1;
-// OBSOLETE }
-// OBSOLETE buffer[count] = 0;
-// OBSOLETE
-// OBSOLETE if (ch == '#')
-// OBSOLETE {
-// OBSOLETE ch = getDebugChar ();
-// OBSOLETE xmitcsum = hex (ch) << 4;
-// OBSOLETE ch = getDebugChar ();
-// OBSOLETE xmitcsum += hex (ch);
-// OBSOLETE
-// OBSOLETE if (checksum != xmitcsum)
-// OBSOLETE {
-// OBSOLETE putDebugChar ('-'); /* failed checksum */
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE putDebugChar ('+'); /* successful transfer */
-// OBSOLETE
-// OBSOLETE /* if a sequence char is present, reply the sequence ID */
-// OBSOLETE if (buffer[2] == ':')
-// OBSOLETE {
-// OBSOLETE putDebugChar (buffer[0]);
-// OBSOLETE putDebugChar (buffer[1]);
-// OBSOLETE
-// OBSOLETE return &buffer[3];
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return &buffer[0];
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* send the packet in buffer. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE putpacket (unsigned char *buffer)
-// OBSOLETE {
-// OBSOLETE unsigned char checksum;
-// OBSOLETE int count;
-// OBSOLETE unsigned char ch;
-// OBSOLETE
-// OBSOLETE /* $<packet info>#<checksum>. */
-// OBSOLETE do
-// OBSOLETE {
-// OBSOLETE putDebugChar('$');
-// OBSOLETE checksum = 0;
-// OBSOLETE count = 0;
-// OBSOLETE
-// OBSOLETE while (ch = buffer[count])
-// OBSOLETE {
-// OBSOLETE putDebugChar (ch);
-// OBSOLETE checksum += ch;
-// OBSOLETE count += 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE putDebugChar('#');
-// OBSOLETE putDebugChar(hexchars[checksum >> 4]);
-// OBSOLETE putDebugChar(hexchars[checksum & 0xf]);
-// OBSOLETE
-// OBSOLETE }
-// OBSOLETE while (getDebugChar() != '+');
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Indicate to caller of mem2hex or hex2mem that there has been an
-// OBSOLETE error. */
-// OBSOLETE static volatile int mem_err = 0;
-// OBSOLETE
-// OBSOLETE /* Convert the memory pointed to by mem into hex, placing result in buf.
-// OBSOLETE * Return a pointer to the last char put in buf (null), in case of mem fault,
-// OBSOLETE * return 0.
-// OBSOLETE * If MAY_FAULT is non-zero, then we will handle memory faults by returning
-// OBSOLETE * a 0, else treat a fault like any other fault in the stub.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE static unsigned char *
-// OBSOLETE mem2hex (unsigned char *mem, unsigned char *buf, int count, int may_fault)
-// OBSOLETE {
-// OBSOLETE unsigned char ch;
-// OBSOLETE
-// OBSOLETE set_mem_fault_trap(may_fault);
-// OBSOLETE
-// OBSOLETE while (count-- > 0)
-// OBSOLETE {
-// OBSOLETE ch = *mem++;
-// OBSOLETE if (mem_err)
-// OBSOLETE return 0;
-// OBSOLETE *buf++ = hexchars[ch >> 4];
-// OBSOLETE *buf++ = hexchars[ch & 0xf];
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE *buf = 0;
-// OBSOLETE
-// OBSOLETE set_mem_fault_trap(0);
-// OBSOLETE
-// OBSOLETE return buf;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* convert the hex array pointed to by buf into binary to be placed in mem
-// OBSOLETE * return a pointer to the character AFTER the last byte written */
-// OBSOLETE
-// OBSOLETE static char *
-// OBSOLETE hex2mem (unsigned char *buf, unsigned char *mem, int count, int may_fault)
-// OBSOLETE {
-// OBSOLETE int i;
-// OBSOLETE unsigned char ch;
-// OBSOLETE
-// OBSOLETE set_mem_fault_trap(may_fault);
-// OBSOLETE
-// OBSOLETE for (i=0; i<count; i++)
-// OBSOLETE {
-// OBSOLETE ch = hex(*buf++) << 4;
-// OBSOLETE ch |= hex(*buf++);
-// OBSOLETE *mem++ = ch;
-// OBSOLETE if (mem_err)
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE set_mem_fault_trap(0);
-// OBSOLETE
-// OBSOLETE return mem;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* This table contains the mapping between SPARC hardware trap types, and
-// OBSOLETE signals, which are primarily what GDB understands. It also indicates
-// OBSOLETE which hardware traps we need to commandeer when initializing the stub. */
-// OBSOLETE
-// OBSOLETE static struct hard_trap_info
-// OBSOLETE {
-// OBSOLETE unsigned char tt; /* Trap type code for SPARClite */
-// OBSOLETE unsigned char signo; /* Signal that we map this trap into */
-// OBSOLETE } hard_trap_info[] = {
-// OBSOLETE {0x01, SIGSEGV}, /* instruction access error */
-// OBSOLETE {0x02, SIGILL}, /* privileged instruction */
-// OBSOLETE {0x03, SIGILL}, /* illegal instruction */
-// OBSOLETE {0x04, SIGEMT}, /* fp disabled */
-// OBSOLETE {0x07, SIGBUS}, /* mem address not aligned */
-// OBSOLETE {0x09, SIGSEGV}, /* data access exception */
-// OBSOLETE {0x0a, SIGEMT}, /* tag overflow */
-// OBSOLETE {0x20, SIGBUS}, /* r register access error */
-// OBSOLETE {0x21, SIGBUS}, /* instruction access error */
-// OBSOLETE {0x24, SIGEMT}, /* cp disabled */
-// OBSOLETE {0x29, SIGBUS}, /* data access error */
-// OBSOLETE {0x2a, SIGFPE}, /* divide by zero */
-// OBSOLETE {0x2b, SIGBUS}, /* data store error */
-// OBSOLETE {0x80+1, SIGTRAP}, /* ta 1 - normal breakpoint instruction */
-// OBSOLETE {0xff, SIGTRAP}, /* hardware breakpoint */
-// OBSOLETE {0, 0} /* Must be last */
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE /* Set up exception handlers for tracing and breakpoints */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE set_debug_traps (void)
-// OBSOLETE {
-// OBSOLETE struct hard_trap_info *ht;
-// OBSOLETE
-// OBSOLETE /* Only setup fp traps if the FP is disabled. */
-// OBSOLETE
-// OBSOLETE for (ht = hard_trap_info;
-// OBSOLETE ht->tt != 0 && ht->signo != 0;
-// OBSOLETE ht++)
-// OBSOLETE if (ht->tt != 4 || ! (read_psr () & 0x1000))
-// OBSOLETE exceptionHandler(ht->tt, trap_low);
-// OBSOLETE
-// OBSOLETE initialized = 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE asm ("
-// OBSOLETE ! Trap handler for memory errors. This just sets mem_err to be non-zero. It
-// OBSOLETE ! assumes that %l1 is non-zero. This should be safe, as it is doubtful that
-// OBSOLETE ! 0 would ever contain code that could mem fault. This routine will skip
-// OBSOLETE ! past the faulting instruction after setting mem_err.
-// OBSOLETE
-// OBSOLETE .text
-// OBSOLETE .align 4
-// OBSOLETE
-// OBSOLETE _fltr_set_mem_err:
-// OBSOLETE sethi %hi(_mem_err), %l0
-// OBSOLETE st %l1, [%l0 + %lo(_mem_err)]
-// OBSOLETE jmpl %l2, %g0
-// OBSOLETE rett %l2+4
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE set_mem_fault_trap (int enable)
-// OBSOLETE {
-// OBSOLETE extern void fltr_set_mem_err();
-// OBSOLETE mem_err = 0;
-// OBSOLETE
-// OBSOLETE if (enable)
-// OBSOLETE exceptionHandler(9, fltr_set_mem_err);
-// OBSOLETE else
-// OBSOLETE exceptionHandler(9, trap_low);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE asm ("
-// OBSOLETE .text
-// OBSOLETE .align 4
-// OBSOLETE
-// OBSOLETE _dummy_hw_breakpoint:
-// OBSOLETE jmpl %l2, %g0
-// OBSOLETE rett %l2+4
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE get_in_break_mode (void)
-// OBSOLETE {
-// OBSOLETE extern void dummy_hw_breakpoint();
-// OBSOLETE
-// OBSOLETE exceptionHandler (255, dummy_hw_breakpoint);
-// OBSOLETE
-// OBSOLETE asm ("ta 255");
-// OBSOLETE
-// OBSOLETE exceptionHandler (255, trap_low);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Convert the SPARC hardware trap type code to a unix signal number. */
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE computeSignal (int tt)
-// OBSOLETE {
-// OBSOLETE struct hard_trap_info *ht;
-// OBSOLETE
-// OBSOLETE for (ht = hard_trap_info; ht->tt && ht->signo; ht++)
-// OBSOLETE if (ht->tt == tt)
-// OBSOLETE return ht->signo;
-// OBSOLETE
-// OBSOLETE return SIGHUP; /* default for things we don't know about */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * While we find nice hex chars, build an int.
-// OBSOLETE * Return number of chars processed.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE hexToInt(char **ptr, int *intValue)
-// OBSOLETE {
-// OBSOLETE int numChars = 0;
-// OBSOLETE int hexValue;
-// OBSOLETE
-// OBSOLETE *intValue = 0;
-// OBSOLETE
-// OBSOLETE while (**ptr)
-// OBSOLETE {
-// OBSOLETE hexValue = hex(**ptr);
-// OBSOLETE if (hexValue < 0)
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE *intValue = (*intValue << 4) | hexValue;
-// OBSOLETE numChars ++;
-// OBSOLETE
-// OBSOLETE (*ptr)++;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return (numChars);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * This function does all command procesing for interfacing to gdb. It
-// OBSOLETE * returns 1 if you should skip the instruction at the trap address, 0
-// OBSOLETE * otherwise.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE handle_exception (unsigned long *registers)
-// OBSOLETE {
-// OBSOLETE int tt; /* Trap type */
-// OBSOLETE int sigval;
-// OBSOLETE int addr;
-// OBSOLETE int length;
-// OBSOLETE char *ptr;
-// OBSOLETE unsigned long *sp;
-// OBSOLETE unsigned long dsr;
-// OBSOLETE
-// OBSOLETE /* First, we must force all of the windows to be spilled out */
-// OBSOLETE
-// OBSOLETE asm(" save %sp, -64, %sp
-// OBSOLETE save %sp, -64, %sp
-// OBSOLETE save %sp, -64, %sp
-// OBSOLETE save %sp, -64, %sp
-// OBSOLETE save %sp, -64, %sp
-// OBSOLETE save %sp, -64, %sp
-// OBSOLETE save %sp, -64, %sp
-// OBSOLETE save %sp, -64, %sp
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE get_in_break_mode (); /* Enable DSU register writes */
-// OBSOLETE
-// OBSOLETE registers[DIA1] = read_asi (1, 0xff00);
-// OBSOLETE registers[DIA2] = read_asi (1, 0xff04);
-// OBSOLETE registers[DDA1] = read_asi (1, 0xff08);
-// OBSOLETE registers[DDA2] = read_asi (1, 0xff0c);
-// OBSOLETE registers[DDV1] = read_asi (1, 0xff10);
-// OBSOLETE registers[DDV2] = read_asi (1, 0xff14);
-// OBSOLETE registers[DCR] = read_asi (1, 0xff18);
-// OBSOLETE registers[DSR] = read_asi (1, 0xff1c);
-// OBSOLETE
-// OBSOLETE if (registers[PC] == (unsigned long)breakinst)
-// OBSOLETE {
-// OBSOLETE registers[PC] = registers[NPC];
-// OBSOLETE registers[NPC] += 4;
-// OBSOLETE }
-// OBSOLETE sp = (unsigned long *)registers[SP];
-// OBSOLETE
-// OBSOLETE dsr = (unsigned long)registers[DSR];
-// OBSOLETE if (dsr & 0x3c)
-// OBSOLETE tt = 255;
-// OBSOLETE else
-// OBSOLETE tt = (registers[TBR] >> 4) & 0xff;
-// OBSOLETE
-// OBSOLETE /* reply to host that an exception has occurred */
-// OBSOLETE sigval = computeSignal(tt);
-// OBSOLETE ptr = remcomOutBuffer;
-// OBSOLETE
-// OBSOLETE *ptr++ = 'T';
-// OBSOLETE *ptr++ = hexchars[sigval >> 4];
-// OBSOLETE *ptr++ = hexchars[sigval & 0xf];
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[PC >> 4];
-// OBSOLETE *ptr++ = hexchars[PC & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex((char *)®isters[PC], ptr, 4, 0);
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[FP >> 4];
-// OBSOLETE *ptr++ = hexchars[FP & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex(sp + 8 + 6, ptr, 4, 0); /* FP */
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[SP >> 4];
-// OBSOLETE *ptr++ = hexchars[SP & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex((char *)&sp, ptr, 4, 0);
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[NPC >> 4];
-// OBSOLETE *ptr++ = hexchars[NPC & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex((char *)®isters[NPC], ptr, 4, 0);
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[O7 >> 4];
-// OBSOLETE *ptr++ = hexchars[O7 & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex((char *)®isters[O7], ptr, 4, 0);
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = 0;
-// OBSOLETE
-// OBSOLETE putpacket(remcomOutBuffer);
-// OBSOLETE
-// OBSOLETE while (1)
-// OBSOLETE {
-// OBSOLETE remcomOutBuffer[0] = 0;
-// OBSOLETE
-// OBSOLETE ptr = getpacket();
-// OBSOLETE switch (*ptr++)
-// OBSOLETE {
-// OBSOLETE case '?':
-// OBSOLETE remcomOutBuffer[0] = 'S';
-// OBSOLETE remcomOutBuffer[1] = hexchars[sigval >> 4];
-// OBSOLETE remcomOutBuffer[2] = hexchars[sigval & 0xf];
-// OBSOLETE remcomOutBuffer[3] = 0;
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'd':
-// OBSOLETE /* toggle debug flag */
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'g': /* return the value of the CPU registers */
-// OBSOLETE memcpy (®isters[L0], sp, 16 * 4); /* Copy L & I regs from stack */
-// OBSOLETE mem2hex ((char *)registers, remcomOutBuffer, NUMREGBYTES, 0);
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'G': /* Set the value of all registers */
-// OBSOLETE case 'P': /* Set the value of one register */
-// OBSOLETE {
-// OBSOLETE unsigned long *newsp, psr;
-// OBSOLETE
-// OBSOLETE psr = registers[PSR];
-// OBSOLETE
-// OBSOLETE if (ptr[-1] == 'P')
-// OBSOLETE {
-// OBSOLETE int regno;
-// OBSOLETE
-// OBSOLETE if (hexToInt (&ptr, ®no)
-// OBSOLETE && *ptr++ == '=')
-// OBSOLETE if (regno >= L0 && regno <= I7)
-// OBSOLETE hex2mem (ptr, sp + regno - L0, 4, 0);
-// OBSOLETE else
-// OBSOLETE hex2mem (ptr, (char *)®isters[regno], 4, 0);
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE strcpy (remcomOutBuffer, "E01");
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE hex2mem (ptr, (char *)registers, NUMREGBYTES, 0);
-// OBSOLETE memcpy (sp, ®isters[L0], 16 * 4); /* Copy L & I regs to stack */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* See if the stack pointer has moved. If so, then copy the saved
-// OBSOLETE locals and ins to the new location. This keeps the window
-// OBSOLETE overflow and underflow routines happy. */
-// OBSOLETE
-// OBSOLETE newsp = (unsigned long *)registers[SP];
-// OBSOLETE if (sp != newsp)
-// OBSOLETE sp = memcpy(newsp, sp, 16 * 4);
-// OBSOLETE
-// OBSOLETE /* Don't allow CWP to be modified. */
-// OBSOLETE
-// OBSOLETE if (psr != registers[PSR])
-// OBSOLETE registers[PSR] = (psr & 0x1f) | (registers[PSR] & ~0x1f);
-// OBSOLETE
-// OBSOLETE strcpy(remcomOutBuffer,"OK");
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'm': /* mAA..AA,LLLL Read LLLL bytes at address AA..AA */
-// OBSOLETE /* Try to read %x,%x. */
-// OBSOLETE
-// OBSOLETE if (hexToInt(&ptr, &addr)
-// OBSOLETE && *ptr++ == ','
-// OBSOLETE && hexToInt(&ptr, &length))
-// OBSOLETE {
-// OBSOLETE if (mem2hex((char *)addr, remcomOutBuffer, length, 1))
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE strcpy (remcomOutBuffer, "E03");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE strcpy(remcomOutBuffer,"E01");
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'M': /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */
-// OBSOLETE /* Try to read '%x,%x:'. */
-// OBSOLETE
-// OBSOLETE if (hexToInt(&ptr, &addr)
-// OBSOLETE && *ptr++ == ','
-// OBSOLETE && hexToInt(&ptr, &length)
-// OBSOLETE && *ptr++ == ':')
-// OBSOLETE {
-// OBSOLETE if (hex2mem(ptr, (char *)addr, length, 1))
-// OBSOLETE strcpy(remcomOutBuffer, "OK");
-// OBSOLETE else
-// OBSOLETE strcpy(remcomOutBuffer, "E03");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE strcpy(remcomOutBuffer, "E02");
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'c': /* cAA..AA Continue at address AA..AA(optional) */
-// OBSOLETE /* try to read optional parameter, pc unchanged if no parm */
-// OBSOLETE if (hexToInt(&ptr, &addr))
-// OBSOLETE {
-// OBSOLETE registers[PC] = addr;
-// OBSOLETE registers[NPC] = addr + 4;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Need to flush the instruction cache here, as we may have deposited a
-// OBSOLETE breakpoint, and the icache probably has no way of knowing that a data ref to
-// OBSOLETE some location may have changed something that is in the instruction cache.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE flush_i_cache ();
-// OBSOLETE
-// OBSOLETE if (!(registers[DSR] & 0x1) /* DSU enabled? */
-// OBSOLETE && !(registers[DCR] & 0x200)) /* Are we in break state? */
-// OBSOLETE { /* Yes, set the DSU regs */
-// OBSOLETE write_asi (1, 0xff00, registers[DIA1]);
-// OBSOLETE write_asi (1, 0xff04, registers[DIA2]);
-// OBSOLETE write_asi (1, 0xff08, registers[DDA1]);
-// OBSOLETE write_asi (1, 0xff0c, registers[DDA2]);
-// OBSOLETE write_asi (1, 0xff10, registers[DDV1]);
-// OBSOLETE write_asi (1, 0xff14, registers[DDV2]);
-// OBSOLETE write_asi (1, 0xff1c, registers[DSR]);
-// OBSOLETE write_asi (1, 0xff18, registers[DCR] | 0x200); /* Clear break */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE /* kill the program */
-// OBSOLETE case 'k' : /* do nothing */
-// OBSOLETE break;
-// OBSOLETE #if 0
-// OBSOLETE case 't': /* Test feature */
-// OBSOLETE asm (" std %f30,[%sp]");
-// OBSOLETE break;
-// OBSOLETE #endif
-// OBSOLETE case 'r': /* Reset */
-// OBSOLETE asm ("call 0
-// OBSOLETE nop ");
-// OBSOLETE break;
-// OBSOLETE } /* switch */
-// OBSOLETE
-// OBSOLETE /* reply to the request */
-// OBSOLETE putpacket(remcomOutBuffer);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* This function will generate a breakpoint exception. It is used at the
-// OBSOLETE beginning of a program to sync up with a debugger and can be used
-// OBSOLETE otherwise as a quick means to stop program execution and "break" into
-// OBSOLETE the debugger. */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE breakpoint (void)
-// OBSOLETE {
-// OBSOLETE if (!initialized)
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE asm(" .globl _breakinst
-// OBSOLETE
-// OBSOLETE _breakinst: ta 1
-// OBSOLETE ");
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /* Target dependent code for the Fujitsu SPARClite for GDB, the GNU debugger.
-// OBSOLETE Copyright 1994, 1995, 1996, 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 #include "defs.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "breakpoint.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "serial.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE #include <sys/types.h>
-// OBSOLETE
-// OBSOLETE #if (!defined(__GO32__) && !defined(_WIN32)) || defined(__CYGWIN__)
-// OBSOLETE #define HAVE_SOCKETS
-// OBSOLETE #include <sys/time.h>
-// OBSOLETE #include <sys/socket.h>
-// OBSOLETE #include <netinet/in.h>
-// OBSOLETE #include <netdb.h>
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE static struct target_ops sparclite_ops;
-// OBSOLETE
-// OBSOLETE static char *remote_target_name = NULL;
-// OBSOLETE static struct serial *remote_desc = NULL;
-// OBSOLETE static int serial_flag;
-// OBSOLETE #ifdef HAVE_SOCKETS
-// OBSOLETE static int udp_fd = -1;
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE static struct serial *open_tty (char *name);
-// OBSOLETE static int send_resp (struct serial *desc, char c);
-// OBSOLETE static void close_tty (void * ignore);
-// OBSOLETE #ifdef HAVE_SOCKETS
-// OBSOLETE static int recv_udp_buf (int fd, unsigned char *buf, int len, int timeout);
-// OBSOLETE static int send_udp_buf (int fd, unsigned char *buf, int len);
-// OBSOLETE #endif
-// OBSOLETE static void sparclite_open (char *name, int from_tty);
-// OBSOLETE static void sparclite_close (int quitting);
-// OBSOLETE static void download (char *target_name, char *args, int from_tty,
-// OBSOLETE void (*write_routine) (bfd * from_bfd,
-// OBSOLETE asection * from_sec,
-// OBSOLETE file_ptr from_addr,
-// OBSOLETE bfd_vma to_addr, int len),
-// OBSOLETE void (*start_routine) (bfd_vma entry));
-// OBSOLETE static void sparclite_serial_start (bfd_vma entry);
-// OBSOLETE static void sparclite_serial_write (bfd * from_bfd, asection * from_sec,
-// OBSOLETE file_ptr from_addr,
-// OBSOLETE bfd_vma to_addr, int len);
-// OBSOLETE #ifdef HAVE_SOCKETS
-// OBSOLETE static unsigned short calc_checksum (unsigned char *buffer, int count);
-// OBSOLETE static void sparclite_udp_start (bfd_vma entry);
-// OBSOLETE static void sparclite_udp_write (bfd * from_bfd, asection * from_sec,
-// OBSOLETE file_ptr from_addr, bfd_vma to_addr,
-// OBSOLETE int len);
-// OBSOLETE #endif
-// OBSOLETE static void sparclite_download (char *filename, int from_tty);
-// OBSOLETE
-// OBSOLETE #define DDA2_SUP_ASI 0xb000000
-// OBSOLETE #define DDA1_SUP_ASI 0xb0000
-// OBSOLETE
-// OBSOLETE #define DDA2_ASI_MASK 0xff000000
-// OBSOLETE #define DDA1_ASI_MASK 0xff0000
-// OBSOLETE #define DIA2_SUP_MODE 0x8000
-// OBSOLETE #define DIA1_SUP_MODE 0x4000
-// OBSOLETE #define DDA2_ENABLE 0x100
-// OBSOLETE #define DDA1_ENABLE 0x80
-// OBSOLETE #define DIA2_ENABLE 0x40
-// OBSOLETE #define DIA1_ENABLE 0x20
-// OBSOLETE #define DSINGLE_STEP 0x10 /* not used */
-// OBSOLETE #define DDV_TYPE_MASK 0xc
-// OBSOLETE #define DDV_TYPE_LOAD 0x0
-// OBSOLETE #define DDV_TYPE_STORE 0x4
-// OBSOLETE #define DDV_TYPE_ACCESS 0x8
-// OBSOLETE #define DDV_TYPE_ALWAYS 0xc
-// OBSOLETE #define DDV_COND 0x2
-// OBSOLETE #define DDV_MASK 0x1
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE sparclite_insert_watchpoint (CORE_ADDR addr, int len, int type)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR dcr;
-// OBSOLETE
-// OBSOLETE dcr = read_register (DCR_REGNUM);
-// OBSOLETE
-// OBSOLETE if (!(dcr & DDA1_ENABLE))
-// OBSOLETE {
-// OBSOLETE write_register (DDA1_REGNUM, addr);
-// OBSOLETE dcr &= ~(DDA1_ASI_MASK | DDV_TYPE_MASK);
-// OBSOLETE dcr |= (DDA1_SUP_ASI | DDA1_ENABLE);
-// OBSOLETE if (type == 1)
-// OBSOLETE {
-// OBSOLETE write_register (DDV1_REGNUM, 0);
-// OBSOLETE write_register (DDV2_REGNUM, 0xffffffff);
-// OBSOLETE dcr |= (DDV_TYPE_LOAD & (~DDV_COND & ~DDV_MASK));
-// OBSOLETE }
-// OBSOLETE else if (type == 0)
-// OBSOLETE {
-// OBSOLETE write_register (DDV1_REGNUM, 0);
-// OBSOLETE write_register (DDV2_REGNUM, 0xffffffff);
-// OBSOLETE dcr |= (DDV_TYPE_STORE & (~DDV_COND & ~DDV_MASK));
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE write_register (DDV1_REGNUM, 0);
-// OBSOLETE write_register (DDV2_REGNUM, 0xffffffff);
-// OBSOLETE dcr |= (DDV_TYPE_ACCESS);
-// OBSOLETE }
-// OBSOLETE write_register (DCR_REGNUM, dcr);
-// OBSOLETE }
-// OBSOLETE else if (!(dcr & DDA2_ENABLE))
-// OBSOLETE {
-// OBSOLETE write_register (DDA2_REGNUM, addr);
-// OBSOLETE dcr &= ~(DDA2_ASI_MASK & DDV_TYPE_MASK);
-// OBSOLETE dcr |= (DDA2_SUP_ASI | DDA2_ENABLE);
-// OBSOLETE if (type == 1)
-// OBSOLETE {
-// OBSOLETE write_register (DDV1_REGNUM, 0);
-// OBSOLETE write_register (DDV2_REGNUM, 0xffffffff);
-// OBSOLETE dcr |= (DDV_TYPE_LOAD & ~DDV_COND & ~DDV_MASK);
-// OBSOLETE }
-// OBSOLETE else if (type == 0)
-// OBSOLETE {
-// OBSOLETE write_register (DDV1_REGNUM, 0);
-// OBSOLETE write_register (DDV2_REGNUM, 0xffffffff);
-// OBSOLETE dcr |= (DDV_TYPE_STORE & ~DDV_COND & ~DDV_MASK);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE write_register (DDV1_REGNUM, 0);
-// OBSOLETE write_register (DDV2_REGNUM, 0xffffffff);
-// OBSOLETE dcr |= (DDV_TYPE_ACCESS);
-// OBSOLETE }
-// OBSOLETE write_register (DCR_REGNUM, dcr);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE return -1;
-// OBSOLETE
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE sparclite_remove_watchpoint (CORE_ADDR addr, int len, int type)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR dcr, dda1, dda2;
-// OBSOLETE
-// OBSOLETE dcr = read_register (DCR_REGNUM);
-// OBSOLETE dda1 = read_register (DDA1_REGNUM);
-// OBSOLETE dda2 = read_register (DDA2_REGNUM);
-// OBSOLETE
-// OBSOLETE if ((dcr & DDA1_ENABLE) && addr == dda1)
-// OBSOLETE write_register (DCR_REGNUM, (dcr & ~DDA1_ENABLE));
-// OBSOLETE else if ((dcr & DDA2_ENABLE) && addr == dda2)
-// OBSOLETE write_register (DCR_REGNUM, (dcr & ~DDA2_ENABLE));
-// OBSOLETE else
-// OBSOLETE return -1;
-// OBSOLETE
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE sparclite_insert_hw_breakpoint (CORE_ADDR addr, int len)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR dcr;
-// OBSOLETE
-// OBSOLETE dcr = read_register (DCR_REGNUM);
-// OBSOLETE
-// OBSOLETE if (!(dcr & DIA1_ENABLE))
-// OBSOLETE {
-// OBSOLETE write_register (DIA1_REGNUM, addr);
-// OBSOLETE write_register (DCR_REGNUM, (dcr | DIA1_ENABLE | DIA1_SUP_MODE));
-// OBSOLETE }
-// OBSOLETE else if (!(dcr & DIA2_ENABLE))
-// OBSOLETE {
-// OBSOLETE write_register (DIA2_REGNUM, addr);
-// OBSOLETE write_register (DCR_REGNUM, (dcr | DIA2_ENABLE | DIA2_SUP_MODE));
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE return -1;
-// OBSOLETE
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE sparclite_remove_hw_breakpoint (CORE_ADDR addr, int shadow)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR dcr, dia1, dia2;
-// OBSOLETE
-// OBSOLETE dcr = read_register (DCR_REGNUM);
-// OBSOLETE dia1 = read_register (DIA1_REGNUM);
-// OBSOLETE dia2 = read_register (DIA2_REGNUM);
-// OBSOLETE
-// OBSOLETE if ((dcr & DIA1_ENABLE) && addr == dia1)
-// OBSOLETE write_register (DCR_REGNUM, (dcr & ~DIA1_ENABLE));
-// OBSOLETE else if ((dcr & DIA2_ENABLE) && addr == dia2)
-// OBSOLETE write_register (DCR_REGNUM, (dcr & ~DIA2_ENABLE));
-// OBSOLETE else
-// OBSOLETE return -1;
-// OBSOLETE
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE sparclite_check_watch_resources (int type, int cnt, int ot)
-// OBSOLETE {
-// OBSOLETE /* Watchpoints not supported on simulator. */
-// OBSOLETE if (strcmp (target_shortname, "sim") == 0)
-// OBSOLETE return 0;
-// OBSOLETE
-// OBSOLETE if (type == bp_hardware_breakpoint)
-// OBSOLETE {
-// OBSOLETE if (TARGET_HW_BREAK_LIMIT == 0)
-// OBSOLETE return 0;
-// OBSOLETE else if (cnt <= TARGET_HW_BREAK_LIMIT)
-// OBSOLETE return 1;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE if (TARGET_HW_WATCH_LIMIT == 0)
-// OBSOLETE return 0;
-// OBSOLETE else if (ot)
-// OBSOLETE return -1;
-// OBSOLETE else if (cnt <= TARGET_HW_WATCH_LIMIT)
-// OBSOLETE return 1;
-// OBSOLETE }
-// OBSOLETE return -1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE sparclite_stopped_data_address (void)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR dsr, dda1, dda2;
-// OBSOLETE
-// OBSOLETE dsr = read_register (DSR_REGNUM);
-// OBSOLETE dda1 = read_register (DDA1_REGNUM);
-// OBSOLETE dda2 = read_register (DDA2_REGNUM);
-// OBSOLETE
-// OBSOLETE if (dsr & 0x10)
-// OBSOLETE return dda1;
-// OBSOLETE else if (dsr & 0x20)
-// OBSOLETE return dda2;
-// OBSOLETE else
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE static struct serial *
-// OBSOLETE open_tty (char *name)
-// OBSOLETE {
-// OBSOLETE struct serial *desc;
-// OBSOLETE
-// OBSOLETE desc = serial_open (name);
-// OBSOLETE if (!desc)
-// OBSOLETE perror_with_name (name);
-// OBSOLETE
-// OBSOLETE if (baud_rate != -1)
-// OBSOLETE {
-// OBSOLETE if (serial_setbaudrate (desc, baud_rate))
-// OBSOLETE {
-// OBSOLETE serial_close (desc);
-// OBSOLETE perror_with_name (name);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE serial_raw (desc);
-// OBSOLETE
-// OBSOLETE serial_flush_input (desc);
-// OBSOLETE
-// OBSOLETE return desc;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Read a single character from the remote end, masking it down to 7 bits. */
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE readchar (struct serial *desc, int timeout)
-// OBSOLETE {
-// OBSOLETE int ch;
-// OBSOLETE char s[10];
-// OBSOLETE
-// OBSOLETE ch = serial_readchar (desc, timeout);
-// OBSOLETE
-// OBSOLETE switch (ch)
-// OBSOLETE {
-// OBSOLETE case SERIAL_EOF:
-// OBSOLETE error ("SPARClite remote connection closed");
-// OBSOLETE case SERIAL_ERROR:
-// OBSOLETE perror_with_name ("SPARClite communication error");
-// OBSOLETE case SERIAL_TIMEOUT:
-// OBSOLETE error ("SPARClite remote timeout");
-// OBSOLETE default:
-// OBSOLETE if (remote_debug > 0)
-// OBSOLETE {
-// OBSOLETE sprintf (s, "[%02x]", ch & 0xff);
-// OBSOLETE puts_debug ("read -->", s, "<--");
-// OBSOLETE }
-// OBSOLETE return ch;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE debug_serial_write (struct serial *desc, char *buf, int len)
-// OBSOLETE {
-// OBSOLETE char s[10];
-// OBSOLETE
-// OBSOLETE serial_write (desc, buf, len);
-// OBSOLETE if (remote_debug > 0)
-// OBSOLETE {
-// OBSOLETE while (len-- > 0)
-// OBSOLETE {
-// OBSOLETE sprintf (s, "[%02x]", *buf & 0xff);
-// OBSOLETE puts_debug ("Sent -->", s, "<--");
-// OBSOLETE buf++;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE send_resp (struct serial *desc, char c)
-// OBSOLETE {
-// OBSOLETE debug_serial_write (desc, &c, 1);
-// OBSOLETE return readchar (desc, remote_timeout);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE close_tty (void *ignore)
-// OBSOLETE {
-// OBSOLETE if (!remote_desc)
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE serial_close (remote_desc);
-// OBSOLETE
-// OBSOLETE remote_desc = NULL;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #ifdef HAVE_SOCKETS
-// OBSOLETE static int
-// OBSOLETE recv_udp_buf (int fd, unsigned char *buf, int len, int timeout)
-// OBSOLETE {
-// OBSOLETE int cc;
-// OBSOLETE fd_set readfds;
-// OBSOLETE
-// OBSOLETE FD_ZERO (&readfds);
-// OBSOLETE FD_SET (fd, &readfds);
-// OBSOLETE
-// OBSOLETE if (timeout >= 0)
-// OBSOLETE {
-// OBSOLETE struct timeval timebuf;
-// OBSOLETE
-// OBSOLETE timebuf.tv_sec = timeout;
-// OBSOLETE timebuf.tv_usec = 0;
-// OBSOLETE cc = select (fd + 1, &readfds, 0, 0, &timebuf);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE cc = select (fd + 1, &readfds, 0, 0, 0);
-// OBSOLETE
-// OBSOLETE if (cc == 0)
-// OBSOLETE return 0;
-// OBSOLETE
-// OBSOLETE if (cc != 1)
-// OBSOLETE perror_with_name ("recv_udp_buf: Bad return value from select:");
-// OBSOLETE
-// OBSOLETE cc = recv (fd, buf, len, 0);
-// OBSOLETE
-// OBSOLETE if (cc < 0)
-// OBSOLETE perror_with_name ("Got an error from recv: ");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE send_udp_buf (int fd, unsigned char *buf, int len)
-// OBSOLETE {
-// OBSOLETE int cc;
-// OBSOLETE
-// OBSOLETE cc = send (fd, buf, len, 0);
-// OBSOLETE
-// OBSOLETE if (cc == len)
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE if (cc < 0)
-// OBSOLETE perror_with_name ("Got an error from send: ");
-// OBSOLETE
-// OBSOLETE error ("Short count in send: tried %d, sent %d\n", len, cc);
-// OBSOLETE }
-// OBSOLETE #endif /* HAVE_SOCKETS */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclite_open (char *name, int from_tty)
-// OBSOLETE {
-// OBSOLETE struct cleanup *old_chain;
-// OBSOLETE int c;
-// OBSOLETE char *p;
-// OBSOLETE
-// OBSOLETE if (!name)
-// OBSOLETE error ("You need to specify what device or hostname is associated with the SparcLite board.");
-// OBSOLETE
-// OBSOLETE target_preopen (from_tty);
-// OBSOLETE
-// OBSOLETE unpush_target (&sparclite_ops);
-// OBSOLETE
-// OBSOLETE if (remote_target_name)
-// OBSOLETE xfree (remote_target_name);
-// OBSOLETE
-// OBSOLETE remote_target_name = xstrdup (name);
-// OBSOLETE
-// OBSOLETE /* We need a 'serial' or 'udp' keyword to disambiguate host:port, which can
-// OBSOLETE mean either a serial port on a terminal server, or the IP address of a
-// OBSOLETE SPARClite demo board. If there's no colon, then it pretty much has to be
-// OBSOLETE a local device (except for DOS... grrmble) */
-// OBSOLETE
-// OBSOLETE p = strchr (name, ' ');
-// OBSOLETE
-// OBSOLETE if (p)
-// OBSOLETE {
-// OBSOLETE *p++ = '\000';
-// OBSOLETE while ((*p != '\000') && isspace (*p))
-// OBSOLETE p++;
-// OBSOLETE
-// OBSOLETE if (strncmp (name, "serial", strlen (name)) == 0)
-// OBSOLETE serial_flag = 1;
-// OBSOLETE else if (strncmp (name, "udp", strlen (name)) == 0)
-// OBSOLETE serial_flag = 0;
-// OBSOLETE else
-// OBSOLETE error ("Must specify either `serial' or `udp'.");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE p = name;
-// OBSOLETE
-// OBSOLETE if (!strchr (name, ':'))
-// OBSOLETE serial_flag = 1; /* No colon is unambiguous (local device) */
-// OBSOLETE else
-// OBSOLETE error ("Usage: target sparclite serial /dev/ttyb\n\
-// OBSOLETE or: target sparclite udp host");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (serial_flag)
-// OBSOLETE {
-// OBSOLETE remote_desc = open_tty (p);
-// OBSOLETE
-// OBSOLETE old_chain = make_cleanup (close_tty, 0 /*ignore*/);
-// OBSOLETE
-// OBSOLETE c = send_resp (remote_desc, 0x00);
-// OBSOLETE
-// OBSOLETE if (c != 0xaa)
-// OBSOLETE error ("Unknown response (0x%x) from SparcLite. Try resetting the board.",
-// OBSOLETE c);
-// OBSOLETE
-// OBSOLETE c = send_resp (remote_desc, 0x55);
-// OBSOLETE
-// OBSOLETE if (c != 0x55)
-// OBSOLETE error ("Sparclite appears to be ill.");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE #ifdef HAVE_SOCKETS
-// OBSOLETE struct hostent *he;
-// OBSOLETE struct sockaddr_in sockaddr;
-// OBSOLETE unsigned char buffer[100];
-// OBSOLETE int cc;
-// OBSOLETE
-// OBSOLETE /* Setup the socket. Must be raw UDP. */
-// OBSOLETE
-// OBSOLETE he = gethostbyname (p);
-// OBSOLETE
-// OBSOLETE if (!he)
-// OBSOLETE error ("No such host %s.", p);
-// OBSOLETE
-// OBSOLETE udp_fd = socket (PF_INET, SOCK_DGRAM, 0);
-// OBSOLETE
-// OBSOLETE old_chain = make_cleanup (close, udp_fd);
-// OBSOLETE
-// OBSOLETE sockaddr.sin_family = PF_INET;
-// OBSOLETE sockaddr.sin_port = htons (7000);
-// OBSOLETE memcpy (&sockaddr.sin_addr.s_addr, he->h_addr, sizeof (struct in_addr));
-// OBSOLETE
-// OBSOLETE if (connect (udp_fd, &sockaddr, sizeof (sockaddr)))
-// OBSOLETE perror_with_name ("Connect failed");
-// OBSOLETE
-// OBSOLETE buffer[0] = 0x5;
-// OBSOLETE buffer[1] = 0;
-// OBSOLETE
-// OBSOLETE send_udp_buf (udp_fd, buffer, 2); /* Request version */
-// OBSOLETE cc = recv_udp_buf (udp_fd, buffer, sizeof (buffer), 5); /* Get response */
-// OBSOLETE if (cc == 0)
-// OBSOLETE error ("SPARClite isn't responding.");
-// OBSOLETE
-// OBSOLETE if (cc < 3)
-// OBSOLETE error ("SPARClite appears to be ill.");
-// OBSOLETE #else
-// OBSOLETE error ("UDP downloading is not supported for DOS hosts.");
-// OBSOLETE #endif /* HAVE_SOCKETS */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE printf_unfiltered ("[SPARClite appears to be alive]\n");
-// OBSOLETE
-// OBSOLETE push_target (&sparclite_ops);
-// OBSOLETE
-// OBSOLETE discard_cleanups (old_chain);
-// OBSOLETE
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclite_close (int quitting)
-// OBSOLETE {
-// OBSOLETE if (serial_flag)
-// OBSOLETE close_tty (0);
-// OBSOLETE #ifdef HAVE_SOCKETS
-// OBSOLETE else if (udp_fd != -1)
-// OBSOLETE close (udp_fd);
-// OBSOLETE #endif
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #define LOAD_ADDRESS 0x40000000
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE download (char *target_name, char *args, int from_tty,
-// OBSOLETE void (*write_routine) (bfd *from_bfd, asection *from_sec,
-// OBSOLETE file_ptr from_addr, bfd_vma to_addr, int len),
-// OBSOLETE void (*start_routine) (bfd_vma entry))
-// OBSOLETE {
-// OBSOLETE struct cleanup *old_chain;
-// OBSOLETE asection *section;
-// OBSOLETE bfd *pbfd;
-// OBSOLETE bfd_vma entry;
-// OBSOLETE int i;
-// OBSOLETE #define WRITESIZE 1024
-// OBSOLETE char *filename;
-// OBSOLETE int quiet;
-// OBSOLETE int nostart;
-// OBSOLETE
-// OBSOLETE quiet = 0;
-// OBSOLETE nostart = 0;
-// OBSOLETE filename = NULL;
-// OBSOLETE
-// OBSOLETE while (*args != '\000')
-// OBSOLETE {
-// OBSOLETE char *arg;
-// OBSOLETE
-// OBSOLETE while (isspace (*args))
-// OBSOLETE args++;
-// OBSOLETE
-// OBSOLETE arg = args;
-// OBSOLETE
-// OBSOLETE while ((*args != '\000') && !isspace (*args))
-// OBSOLETE args++;
-// OBSOLETE
-// OBSOLETE if (*args != '\000')
-// OBSOLETE *args++ = '\000';
-// OBSOLETE
-// OBSOLETE if (*arg != '-')
-// OBSOLETE filename = arg;
-// OBSOLETE else if (strncmp (arg, "-quiet", strlen (arg)) == 0)
-// OBSOLETE quiet = 1;
-// OBSOLETE else if (strncmp (arg, "-nostart", strlen (arg)) == 0)
-// OBSOLETE nostart = 1;
-// OBSOLETE else
-// OBSOLETE error ("unknown option `%s'", arg);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (!filename)
-// OBSOLETE filename = get_exec_file (1);
-// OBSOLETE
-// OBSOLETE pbfd = bfd_openr (filename, gnutarget);
-// OBSOLETE if (pbfd == NULL)
-// OBSOLETE {
-// OBSOLETE perror_with_name (filename);
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE old_chain = make_cleanup_bfd_close (pbfd);
-// OBSOLETE
-// OBSOLETE if (!bfd_check_format (pbfd, bfd_object))
-// OBSOLETE error ("\"%s\" is not an object file: %s", filename,
-// OBSOLETE 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_LOAD)
-// OBSOLETE {
-// OBSOLETE bfd_vma section_address;
-// OBSOLETE bfd_size_type section_size;
-// OBSOLETE file_ptr fptr;
-// OBSOLETE const char *section_name;
-// OBSOLETE
-// OBSOLETE section_name = bfd_get_section_name (pbfd, section);
-// OBSOLETE
-// OBSOLETE section_address = bfd_get_section_vma (pbfd, section);
-// OBSOLETE
-// OBSOLETE /* Adjust sections from a.out files, since they don't
-// OBSOLETE carry their addresses with. */
-// OBSOLETE if (bfd_get_flavour (pbfd) == bfd_target_aout_flavour)
-// OBSOLETE {
-// OBSOLETE if (strcmp (section_name, ".text") == 0)
-// OBSOLETE section_address = bfd_get_start_address (pbfd);
-// OBSOLETE else if (strcmp (section_name, ".data") == 0)
-// OBSOLETE {
-// OBSOLETE /* Read the first 8 bytes of the data section.
-// OBSOLETE There should be the string 'DaTa' followed by
-// OBSOLETE a word containing the actual section address. */
-// OBSOLETE struct data_marker
-// OBSOLETE {
-// OBSOLETE char signature[4]; /* 'DaTa' */
-// OBSOLETE unsigned char sdata[4]; /* &sdata */
-// OBSOLETE }
-// OBSOLETE marker;
-// OBSOLETE bfd_get_section_contents (pbfd, section, &marker, 0,
-// OBSOLETE sizeof (marker));
-// OBSOLETE if (strncmp (marker.signature, "DaTa", 4) == 0)
-// OBSOLETE {
-// OBSOLETE if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
-// OBSOLETE section_address = bfd_getb32 (marker.sdata);
-// OBSOLETE else
-// OBSOLETE section_address = bfd_getl32 (marker.sdata);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE section_size = bfd_get_section_size_before_reloc (section);
-// OBSOLETE
-// OBSOLETE if (!quiet)
-// OBSOLETE printf_filtered ("[Loading section %s at 0x%x (%d bytes)]\n",
-// OBSOLETE bfd_get_section_name (pbfd, section),
-// OBSOLETE section_address,
-// OBSOLETE section_size);
-// OBSOLETE
-// OBSOLETE fptr = 0;
-// OBSOLETE while (section_size > 0)
-// OBSOLETE {
-// OBSOLETE int count;
-// OBSOLETE static char inds[] = "|/-\\";
-// OBSOLETE static int k = 0;
-// OBSOLETE
-// OBSOLETE QUIT;
-// OBSOLETE
-// OBSOLETE count = min (section_size, WRITESIZE);
-// OBSOLETE
-// OBSOLETE write_routine (pbfd, section, fptr, section_address, count);
-// OBSOLETE
-// OBSOLETE if (!quiet)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("\r%c", inds[k++ % 4]);
-// OBSOLETE gdb_flush (gdb_stdout);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE section_address += count;
-// OBSOLETE fptr += count;
-// OBSOLETE section_size -= count;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (!nostart)
-// OBSOLETE {
-// OBSOLETE entry = bfd_get_start_address (pbfd);
-// OBSOLETE
-// OBSOLETE if (!quiet)
-// OBSOLETE printf_unfiltered ("[Starting %s at 0x%x]\n", filename, entry);
-// OBSOLETE
-// OBSOLETE start_routine (entry);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE do_cleanups (old_chain);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclite_serial_start (bfd_vma entry)
-// OBSOLETE {
-// OBSOLETE char buffer[5];
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE buffer[0] = 0x03;
-// OBSOLETE store_unsigned_integer (buffer + 1, 4, entry);
-// OBSOLETE
-// OBSOLETE debug_serial_write (remote_desc, buffer, 1 + 4);
-// OBSOLETE i = readchar (remote_desc, remote_timeout);
-// OBSOLETE if (i != 0x55)
-// OBSOLETE error ("Can't start SparcLite. Error code %d\n", i);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclite_serial_write (bfd *from_bfd, asection *from_sec, file_ptr from_addr,
-// OBSOLETE bfd_vma to_addr, int len)
-// OBSOLETE {
-// OBSOLETE char buffer[4 + 4 + WRITESIZE]; /* addr + len + data */
-// OBSOLETE unsigned char checksum;
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE store_unsigned_integer (buffer, 4, to_addr); /* Address */
-// OBSOLETE store_unsigned_integer (buffer + 4, 4, len); /* Length */
-// OBSOLETE
-// OBSOLETE bfd_get_section_contents (from_bfd, from_sec, buffer + 8, from_addr, len);
-// OBSOLETE
-// OBSOLETE checksum = 0;
-// OBSOLETE for (i = 0; i < len; i++)
-// OBSOLETE checksum += buffer[8 + i];
-// OBSOLETE
-// OBSOLETE i = send_resp (remote_desc, 0x01);
-// OBSOLETE
-// OBSOLETE if (i != 0x5a)
-// OBSOLETE error ("Bad response from load command (0x%x)", i);
-// OBSOLETE
-// OBSOLETE debug_serial_write (remote_desc, buffer, 4 + 4 + len);
-// OBSOLETE i = readchar (remote_desc, remote_timeout);
-// OBSOLETE
-// OBSOLETE if (i != checksum)
-// OBSOLETE error ("Bad checksum from load command (0x%x)", i);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #ifdef HAVE_SOCKETS
-// OBSOLETE
-// OBSOLETE static unsigned short
-// OBSOLETE calc_checksum (unsigned char *buffer, int count)
-// OBSOLETE {
-// OBSOLETE unsigned short checksum;
-// OBSOLETE
-// OBSOLETE checksum = 0;
-// OBSOLETE for (; count > 0; count -= 2, buffer += 2)
-// OBSOLETE checksum += (*buffer << 8) | *(buffer + 1);
-// OBSOLETE
-// OBSOLETE if (count != 0)
-// OBSOLETE checksum += *buffer << 8;
-// OBSOLETE
-// OBSOLETE return checksum;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclite_udp_start (bfd_vma entry)
-// OBSOLETE {
-// OBSOLETE unsigned char buffer[6];
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE buffer[0] = 0x3;
-// OBSOLETE buffer[1] = 0;
-// OBSOLETE buffer[2] = entry >> 24;
-// OBSOLETE buffer[3] = entry >> 16;
-// OBSOLETE buffer[4] = entry >> 8;
-// OBSOLETE buffer[5] = entry;
-// OBSOLETE
-// OBSOLETE send_udp_buf (udp_fd, buffer, 6); /* Send start addr */
-// OBSOLETE i = recv_udp_buf (udp_fd, buffer, sizeof (buffer), -1); /* Get response */
-// OBSOLETE
-// OBSOLETE if (i < 1 || buffer[0] != 0x55)
-// OBSOLETE error ("Failed to take start address.");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclite_udp_write (bfd *from_bfd, asection *from_sec, file_ptr from_addr,
-// OBSOLETE bfd_vma to_addr, int len)
-// OBSOLETE {
-// OBSOLETE unsigned char buffer[2000];
-// OBSOLETE unsigned short checksum;
-// OBSOLETE static int pkt_num = 0;
-// OBSOLETE static unsigned long old_addr = -1;
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE while (1)
-// OBSOLETE {
-// OBSOLETE if (to_addr != old_addr)
-// OBSOLETE {
-// OBSOLETE buffer[0] = 0x1; /* Load command */
-// OBSOLETE buffer[1] = 0x1; /* Loading address */
-// OBSOLETE buffer[2] = to_addr >> 24;
-// OBSOLETE buffer[3] = to_addr >> 16;
-// OBSOLETE buffer[4] = to_addr >> 8;
-// OBSOLETE buffer[5] = to_addr;
-// OBSOLETE
-// OBSOLETE checksum = 0;
-// OBSOLETE for (i = 0; i < 6; i++)
-// OBSOLETE checksum += buffer[i];
-// OBSOLETE checksum &= 0xff;
-// OBSOLETE
-// OBSOLETE send_udp_buf (udp_fd, buffer, 6);
-// OBSOLETE i = recv_udp_buf (udp_fd, buffer, sizeof buffer, -1);
-// OBSOLETE
-// OBSOLETE if (i < 1)
-// OBSOLETE error ("Got back short checksum for load addr.");
-// OBSOLETE
-// OBSOLETE if (checksum != buffer[0])
-// OBSOLETE error ("Got back bad checksum for load addr.");
-// OBSOLETE
-// OBSOLETE pkt_num = 0; /* Load addr resets packet seq # */
-// OBSOLETE old_addr = to_addr;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE bfd_get_section_contents (from_bfd, from_sec, buffer + 6, from_addr,
-// OBSOLETE len);
-// OBSOLETE
-// OBSOLETE checksum = calc_checksum (buffer + 6, len);
-// OBSOLETE
-// OBSOLETE buffer[0] = 0x1; /* Load command */
-// OBSOLETE buffer[1] = 0x2; /* Loading data */
-// OBSOLETE buffer[2] = pkt_num >> 8;
-// OBSOLETE buffer[3] = pkt_num;
-// OBSOLETE buffer[4] = checksum >> 8;
-// OBSOLETE buffer[5] = checksum;
-// OBSOLETE
-// OBSOLETE send_udp_buf (udp_fd, buffer, len + 6);
-// OBSOLETE i = recv_udp_buf (udp_fd, buffer, sizeof buffer, 3);
-// OBSOLETE
-// OBSOLETE if (i == 0)
-// OBSOLETE {
-// OBSOLETE fprintf_unfiltered (gdb_stderr, "send_data: timeout sending %d bytes to address 0x%x retrying\n", len, to_addr);
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (buffer[0] != 0xff)
-// OBSOLETE error ("Got back bad response for load data.");
-// OBSOLETE
-// OBSOLETE old_addr += len;
-// OBSOLETE pkt_num++;
-// OBSOLETE
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #endif /* HAVE_SOCKETS */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclite_download (char *filename, int from_tty)
-// OBSOLETE {
-// OBSOLETE if (!serial_flag)
-// OBSOLETE #ifdef HAVE_SOCKETS
-// OBSOLETE download (remote_target_name, filename, from_tty, sparclite_udp_write,
-// OBSOLETE sparclite_udp_start);
-// OBSOLETE #else
-// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check"); /* sparclite_open should prevent this! */
-// OBSOLETE #endif
-// OBSOLETE else
-// OBSOLETE download (remote_target_name, filename, from_tty, sparclite_serial_write,
-// OBSOLETE sparclite_serial_start);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* Set up the sparclite target vector. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE init_sparclite_ops (void)
-// OBSOLETE {
-// OBSOLETE sparclite_ops.to_shortname = "sparclite";
-// OBSOLETE sparclite_ops.to_longname = "SPARClite download target";
-// OBSOLETE sparclite_ops.to_doc = "Download to a remote SPARClite target board via serial of UDP.\n\
-// OBSOLETE Specify the device it is connected to (e.g. /dev/ttya).";
-// OBSOLETE sparclite_ops.to_open = sparclite_open;
-// OBSOLETE sparclite_ops.to_close = sparclite_close;
-// OBSOLETE sparclite_ops.to_load = sparclite_download;
-// OBSOLETE sparclite_ops.to_stratum = download_stratum;
-// OBSOLETE sparclite_ops.to_magic = OPS_MAGIC;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE _initialize_sparcl_tdep (void)
-// OBSOLETE {
-// OBSOLETE init_sparclite_ops ();
-// OBSOLETE add_target (&sparclite_ops);
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /* Remote target glue for the SPARC Sparclet ROM monitor.
-// OBSOLETE
-// OBSOLETE Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002 Free
-// OBSOLETE 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 #include "defs.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "monitor.h"
-// OBSOLETE #include "serial.h"
-// OBSOLETE #include "srec.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "symfile.h" /* for generic_load */
-// OBSOLETE #include "regcache.h"
-// OBSOLETE #include <time.h>
-// OBSOLETE
-// OBSOLETE extern void report_transfer_performance (unsigned long, time_t, time_t);
-// OBSOLETE
-// OBSOLETE static struct target_ops sparclet_ops;
-// OBSOLETE
-// OBSOLETE static void sparclet_open (char *args, int from_tty);
-// OBSOLETE
-// OBSOLETE /* This array of registers need to match the indexes used by GDB.
-// OBSOLETE This exists because the various ROM monitors use different strings
-// OBSOLETE than does GDB, and don't necessarily support all the registers
-// OBSOLETE either. So, typing "info reg sp" becomes a "r30". */
-// OBSOLETE
-// OBSOLETE /*PSR 0x00000080 impl ver icc AW LE EE EC EF PIL S PS ET CWP WIM
-// OBSOLETE 0x0 0x0 0x0 0 0 0 0 0 0x0 1 0 0 0x00 0x2
-// OBSOLETE 0000010
-// OBSOLETE INS LOCALS OUTS GLOBALS
-// OBSOLETE 0 0x00000000 0x00000000 0x00000000 0x00000000
-// OBSOLETE 1 0x00000000 0x00000000 0x00000000 0x00000000
-// OBSOLETE 2 0x00000000 0x00000000 0x00000000 0x00000000
-// OBSOLETE 3 0x00000000 0x00000000 0x00000000 0x00000000
-// OBSOLETE 4 0x00000000 0x00000000 0x00000000 0x00000000
-// OBSOLETE 5 0x00000000 0x00001000 0x00000000 0x00000000
-// OBSOLETE 6 0x00000000 0x00000000 0x123f0000 0x00000000
-// OBSOLETE 7 0x00000000 0x00000000 0x00000000 0x00000000
-// OBSOLETE pc: 0x12010000 0x00000000 unimp
-// OBSOLETE npc: 0x12010004 0x00001000 unimp 0x1000
-// OBSOLETE tbr: 0x00000000
-// OBSOLETE y: 0x00000000
-// OBSOLETE */
-// OBSOLETE /* these correspond to the offsets from tm-* files from config directories */
-// OBSOLETE
-// OBSOLETE /* is wim part of psr?? */
-// OBSOLETE /* monitor wants lower case */
-// OBSOLETE static char *sparclet_regnames[] = {
-// OBSOLETE "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7",
-// OBSOLETE "o0", "o1", "o2", "o3", "o4", "o5", "o6", "o7",
-// OBSOLETE "l0", "l1", "l2", "l3", "l4", "l5", "l6", "l7",
-// OBSOLETE "i0", "i1", "i2", "i3", "i4", "i5", "i6", "i7",
-// OBSOLETE
-// OBSOLETE "", "", "", "", "", "", "", "", /* no FPU regs */
-// OBSOLETE "", "", "", "", "", "", "", "",
-// OBSOLETE "", "", "", "", "", "", "", "",
-// OBSOLETE "", "", "", "", "", "", "", "",
-// OBSOLETE /* no CPSR, FPSR */
-// OBSOLETE "y", "psr", "wim", "tbr", "pc", "npc", "", "",
-// OBSOLETE
-// OBSOLETE "ccsr", "ccpr", "cccrcr", "ccor", "ccobr", "ccibr", "ccir", "",
-// OBSOLETE
-// OBSOLETE /* ASR15 ASR19 (don't display them) */
-// OBSOLETE "asr1", "", "asr17", "asr18", "", "asr20", "asr21", "asr22",
-// OBSOLETE /*
-// OBSOLETE "awr0", "awr1", "awr2", "awr3", "awr4", "awr5", "awr6", "awr7",
-// OBSOLETE "awr8", "awr9", "awr10", "awr11", "awr12", "awr13", "awr14", "awr15",
-// OBSOLETE "awr16", "awr17", "awr18", "awr19", "awr20", "awr21", "awr22", "awr23",
-// OBSOLETE "awr24", "awr25", "awr26", "awr27", "awr28", "awr29", "awr30", "awr31",
-// OBSOLETE "apsr",
-// OBSOLETE */
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE /* Function: sparclet_supply_register
-// OBSOLETE Just returns with no action.
-// OBSOLETE This function is required, because parse_register_dump (monitor.c)
-// OBSOLETE expects to be able to call it. If we don't supply something, it will
-// OBSOLETE call a null pointer and core-dump. Since this function does not
-// OBSOLETE actually do anything, GDB will request the registers individually. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclet_supply_register (char *regname, int regnamelen, char *val, int vallen)
-// OBSOLETE {
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclet_load (struct serial *desc, char *file, int hashmark)
-// OBSOLETE {
-// OBSOLETE bfd *abfd;
-// OBSOLETE asection *s;
-// OBSOLETE int i;
-// OBSOLETE CORE_ADDR load_offset;
-// OBSOLETE time_t start_time, end_time;
-// OBSOLETE unsigned long data_count = 0;
-// OBSOLETE
-// OBSOLETE /* enable user to specify address for downloading as 2nd arg to load */
-// OBSOLETE
-// OBSOLETE i = sscanf (file, "%*s 0x%lx", &load_offset);
-// OBSOLETE if (i >= 1)
-// OBSOLETE {
-// OBSOLETE char *p;
-// OBSOLETE
-// OBSOLETE for (p = file; *p != '\000' && !isspace (*p); p++);
-// OBSOLETE
-// OBSOLETE *p = '\000';
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE load_offset = 0;
-// OBSOLETE
-// OBSOLETE abfd = bfd_openr (file, 0);
-// OBSOLETE if (!abfd)
-// OBSOLETE {
-// OBSOLETE printf_filtered ("Unable to open file %s\n", file);
-// 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 start_time = time (NULL);
-// OBSOLETE
-// OBSOLETE for (s = abfd->sections; s; s = s->next)
-// OBSOLETE if (s->flags & SEC_LOAD)
-// OBSOLETE {
-// OBSOLETE bfd_size_type section_size;
-// OBSOLETE bfd_vma vma;
-// OBSOLETE
-// OBSOLETE vma = bfd_get_section_vma (abfd, s) + load_offset;
-// OBSOLETE section_size = bfd_section_size (abfd, s);
-// OBSOLETE
-// OBSOLETE data_count += section_size;
-// OBSOLETE
-// OBSOLETE printf_filtered ("%s\t: 0x%4x .. 0x%4x ",
-// OBSOLETE bfd_get_section_name (abfd, s), vma,
-// OBSOLETE vma + section_size);
-// OBSOLETE gdb_flush (gdb_stdout);
-// OBSOLETE
-// OBSOLETE monitor_printf ("load c r %x %x\r", vma, section_size);
-// OBSOLETE
-// OBSOLETE monitor_expect ("load: loading ", NULL, 0);
-// OBSOLETE monitor_expect ("\r", NULL, 0);
-// OBSOLETE
-// OBSOLETE for (i = 0; i < section_size; i += 2048)
-// OBSOLETE {
-// OBSOLETE int numbytes;
-// OBSOLETE char buf[2048];
-// OBSOLETE
-// OBSOLETE numbytes = min (sizeof buf, section_size - i);
-// OBSOLETE
-// OBSOLETE bfd_get_section_contents (abfd, s, buf, i, numbytes);
-// OBSOLETE
-// OBSOLETE serial_write (desc, buf, numbytes);
-// OBSOLETE
-// OBSOLETE if (hashmark)
-// OBSOLETE {
-// OBSOLETE putchar_unfiltered ('#');
-// OBSOLETE gdb_flush (gdb_stdout);
-// OBSOLETE }
-// OBSOLETE } /* Per-packet (or S-record) loop */
-// OBSOLETE
-// OBSOLETE monitor_expect_prompt (NULL, 0);
-// OBSOLETE
-// OBSOLETE putchar_unfiltered ('\n');
-// OBSOLETE } /* Loadable sections */
-// OBSOLETE
-// OBSOLETE monitor_printf ("reg pc %x\r", bfd_get_start_address (abfd));
-// OBSOLETE monitor_expect_prompt (NULL, 0);
-// OBSOLETE monitor_printf ("reg npc %x\r", bfd_get_start_address (abfd) + 4);
-// OBSOLETE monitor_expect_prompt (NULL, 0);
-// OBSOLETE
-// OBSOLETE monitor_printf ("run\r");
-// OBSOLETE
-// OBSOLETE end_time = time (NULL);
-// OBSOLETE
-// OBSOLETE if (hashmark)
-// OBSOLETE putchar_unfiltered ('\n');
-// OBSOLETE
-// OBSOLETE report_transfer_performance (data_count, start_time, end_time);
-// OBSOLETE
-// OBSOLETE pop_target ();
-// OBSOLETE push_remote_target (monitor_get_dev_name (), 1);
-// OBSOLETE
-// OBSOLETE throw_exception (RETURN_QUIT);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Define the monitor command strings. Since these are passed directly
-// OBSOLETE through to a printf style function, we may include formatting
-// OBSOLETE strings. We also need a CR or LF on the end. */
-// OBSOLETE
-// OBSOLETE /* need to pause the monitor for timing reasons, so slow it down */
-// OBSOLETE
-// OBSOLETE static char *sparclet_inits[] =
-// OBSOLETE {"\n\r\r\n", NULL};
-// OBSOLETE
-// OBSOLETE static struct monitor_ops sparclet_cmds;
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE init_sparclet_cmds (void)
-// OBSOLETE {
-// OBSOLETE sparclet_cmds.flags = MO_CLR_BREAK_USES_ADDR |
-// OBSOLETE MO_HEX_PREFIX |
-// OBSOLETE MO_NO_ECHO_ON_OPEN |
-// OBSOLETE MO_NO_ECHO_ON_SETMEM |
-// OBSOLETE MO_RUN_FIRST_TIME |
-// OBSOLETE MO_GETMEM_READ_SINGLE; /* flags */
-// OBSOLETE sparclet_cmds.init = sparclet_inits; /* Init strings */
-// OBSOLETE sparclet_cmds.cont = "cont\r"; /* continue command */
-// OBSOLETE sparclet_cmds.step = "step\r"; /* single step */
-// OBSOLETE sparclet_cmds.stop = "\r"; /* break interrupts the program */
-// OBSOLETE sparclet_cmds.set_break = "+bp %x\r"; /* set a breakpoint */
-// OBSOLETE sparclet_cmds.clr_break = "-bp %x\r"; /* can't use "br" because only 2 hw bps are supported */
-// OBSOLETE sparclet_cmds.clr_all_break = "-bp %x\r"; /* clear a breakpoint */
-// OBSOLETE "-bp\r"; /* clear all breakpoints */
-// OBSOLETE sparclet_cmds.fill = "fill %x -n %x -v %x -b\r"; /* fill (start length val) */
-// OBSOLETE /* can't use "fi" because it takes words, not bytes */
-// OBSOLETE /* ex [addr] [-n count] [-b|-s|-l] default: ex cur -n 1 -b */
-// OBSOLETE sparclet_cmds.setmem.cmdb = "ex %x -b\r%x\rq\r"; /* setmem.cmdb (addr, value) */
-// OBSOLETE sparclet_cmds.setmem.cmdw = "ex %x -s\r%x\rq\r"; /* setmem.cmdw (addr, value) */
-// OBSOLETE sparclet_cmds.setmem.cmdl = "ex %x -l\r%x\rq\r"; /* setmem.cmdl (addr, value) */
-// OBSOLETE sparclet_cmds.setmem.cmdll = NULL; /* setmem.cmdll (addr, value) */
-// OBSOLETE sparclet_cmds.setmem.resp_delim = NULL; /*": " *//* setmem.resp_delim */
-// OBSOLETE sparclet_cmds.setmem.term = NULL; /*"? " *//* setmem.term */
-// OBSOLETE sparclet_cmds.setmem.term_cmd = NULL; /*"q\r" *//* setmem.term_cmd */
-// OBSOLETE /* since the parsing of multiple bytes is difficult due to
-// OBSOLETE interspersed addresses, we'll only read 1 value at a time,
-// OBSOLETE even tho these can handle a count */
-// OBSOLETE /* we can use -n to set count to read, but may have to parse? */
-// OBSOLETE sparclet_cmds.getmem.cmdb = "ex %x -n 1 -b\r"; /* getmem.cmdb (addr, #bytes) */
-// OBSOLETE sparclet_cmds.getmem.cmdw = "ex %x -n 1 -s\r"; /* getmem.cmdw (addr, #swords) */
-// OBSOLETE sparclet_cmds.getmem.cmdl = "ex %x -n 1 -l\r"; /* getmem.cmdl (addr, #words) */
-// OBSOLETE sparclet_cmds.getmem.cmdll = NULL; /* getmem.cmdll (addr, #dwords) */
-// OBSOLETE sparclet_cmds.getmem.resp_delim = ": "; /* getmem.resp_delim */
-// OBSOLETE sparclet_cmds.getmem.term = NULL; /* getmem.term */
-// OBSOLETE sparclet_cmds.getmem.term_cmd = NULL; /* getmem.term_cmd */
-// OBSOLETE sparclet_cmds.setreg.cmd = "reg %s 0x%x\r"; /* setreg.cmd (name, value) */
-// OBSOLETE sparclet_cmds.setreg.resp_delim = NULL; /* setreg.resp_delim */
-// OBSOLETE sparclet_cmds.setreg.term = NULL; /* setreg.term */
-// OBSOLETE sparclet_cmds.setreg.term_cmd = NULL; /* setreg.term_cmd */
-// OBSOLETE sparclet_cmds.getreg.cmd = "reg %s\r"; /* getreg.cmd (name) */
-// OBSOLETE sparclet_cmds.getreg.resp_delim = " "; /* getreg.resp_delim */
-// OBSOLETE sparclet_cmds.getreg.term = NULL; /* getreg.term */
-// OBSOLETE sparclet_cmds.getreg.term_cmd = NULL; /* getreg.term_cmd */
-// OBSOLETE sparclet_cmds.dump_registers = "reg\r"; /* dump_registers */
-// OBSOLETE sparclet_cmds.register_pattern = "\\(\\w+\\)=\\([0-9a-fA-F]+\\)"; /* register_pattern */
-// OBSOLETE sparclet_cmds.supply_register = sparclet_supply_register; /* supply_register */
-// OBSOLETE sparclet_cmds.load_routine = sparclet_load; /* load_routine */
-// OBSOLETE sparclet_cmds.load = NULL; /* download command (srecs on console) */
-// OBSOLETE sparclet_cmds.loadresp = NULL; /* load response */
-// OBSOLETE sparclet_cmds.prompt = "monitor>"; /* monitor command prompt */
-// OBSOLETE /* yikes! gdb core dumps without this delimitor!! */
-// OBSOLETE sparclet_cmds.line_term = "\r"; /* end-of-command delimitor */
-// OBSOLETE sparclet_cmds.cmd_end = NULL; /* optional command terminator */
-// OBSOLETE sparclet_cmds.target = &sparclet_ops; /* target operations */
-// OBSOLETE sparclet_cmds.stopbits = SERIAL_1_STOPBITS; /* number of stop bits */
-// OBSOLETE sparclet_cmds.regnames = sparclet_regnames; /* registers names */
-// OBSOLETE sparclet_cmds.magic = MONITOR_OPS_MAGIC; /* magic */
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE sparclet_open (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE monitor_open (args, &sparclet_cmds, from_tty);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE _initialize_sparclet (void)
-// OBSOLETE {
-// OBSOLETE int i;
-// OBSOLETE init_sparclet_cmds ();
-// OBSOLETE
-// OBSOLETE for (i = 0; i < NUM_REGS; i++)
-// OBSOLETE if (sparclet_regnames[i][0] == 'c' ||
-// OBSOLETE sparclet_regnames[i][0] == 'a')
-// OBSOLETE sparclet_regnames[i] = 0; /* mon can't report c* or a* regs */
-// OBSOLETE
-// OBSOLETE sparclet_regnames[0] = 0; /* mon won't report %G0 */
-// OBSOLETE
-// OBSOLETE init_monitor_ops (&sparclet_ops);
-// OBSOLETE sparclet_ops.to_shortname = "sparclet"; /* for the target command */
-// OBSOLETE sparclet_ops.to_longname = "SPARC Sparclet monitor";
-// OBSOLETE /* use SW breaks; target only supports 2 HW breakpoints */
-// OBSOLETE sparclet_ops.to_insert_breakpoint = memory_insert_breakpoint;
-// OBSOLETE sparclet_ops.to_remove_breakpoint = memory_remove_breakpoint;
-// OBSOLETE
-// OBSOLETE sparclet_ops.to_doc =
-// OBSOLETE "Use a board running the Sparclet debug monitor.\n\
-// OBSOLETE Specify the serial device it is connected to (e.g. /dev/ttya).";
-// OBSOLETE
-// OBSOLETE sparclet_ops.to_open = sparclet_open;
-// OBSOLETE add_target (&sparclet_ops);
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /****************************************************************************
-// OBSOLETE
-// OBSOLETE THIS SOFTWARE IS NOT COPYRIGHTED
-// OBSOLETE
-// OBSOLETE HP offers the following for use in the public domain. HP makes no
-// OBSOLETE warranty with regard to the software or it's performance and the
-// OBSOLETE user accepts the software "AS IS" with all faults.
-// OBSOLETE
-// OBSOLETE HP DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD
-// OBSOLETE TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-// OBSOLETE OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-// OBSOLETE
-// OBSOLETE ****************************************************************************/
-// OBSOLETE
-// OBSOLETE /****************************************************************************
-// OBSOLETE * Header: remcom.c,v 1.34 91/03/09 12:29:49 glenne Exp $
-// OBSOLETE *
-// OBSOLETE * Module name: remcom.c $
-// OBSOLETE * Revision: 1.34 $
-// OBSOLETE * Date: 91/03/09 12:29:49 $
-// OBSOLETE * Contributor: Lake Stevens Instrument Division$
-// OBSOLETE *
-// OBSOLETE * Description: low level support for gdb debugger. $
-// OBSOLETE *
-// OBSOLETE * Considerations: only works on target hardware $
-// OBSOLETE *
-// OBSOLETE * Written by: Glenn Engel $
-// OBSOLETE * ModuleState: Experimental $
-// OBSOLETE *
-// OBSOLETE * NOTES: See Below $
-// OBSOLETE *
-// OBSOLETE * Modified for SPARC by Stu Grossman, Cygnus Support.
-// OBSOLETE * Based on sparc-stub.c, it's modified for SPARClite Debug Unit hardware
-// OBSOLETE * breakpoint support to create sparclite-stub.c, by Kung Hsu, Cygnus Support.
-// OBSOLETE *
-// OBSOLETE * This code has been extensively tested on the Fujitsu SPARClite demo board.
-// OBSOLETE *
-// OBSOLETE * To enable debugger support, two things need to happen. One, a
-// OBSOLETE * call to set_debug_traps() is necessary in order to allow any breakpoints
-// OBSOLETE * or error conditions to be properly intercepted and reported to gdb.
-// OBSOLETE * Two, a breakpoint needs to be generated to begin communication. This
-// OBSOLETE * is most easily accomplished by a call to breakpoint(). Breakpoint()
-// OBSOLETE * simulates a breakpoint by executing a trap #1.
-// OBSOLETE *
-// OBSOLETE *************
-// OBSOLETE *
-// OBSOLETE * The following gdb commands are supported:
-// OBSOLETE *
-// OBSOLETE * command function Return value
-// OBSOLETE *
-// OBSOLETE * g return the value of the CPU registers hex data or ENN
-// OBSOLETE * G set the value of the CPU registers OK or ENN
-// OBSOLETE * P set the value of a single CPU register OK or ENN
-// OBSOLETE *
-// OBSOLETE * mAA..AA,LLLL Read LLLL bytes at address AA..AA hex data or ENN
-// OBSOLETE * MAA..AA,LLLL: Write LLLL bytes at address AA.AA OK or ENN
-// OBSOLETE *
-// OBSOLETE * c Resume at current address SNN ( signal NN)
-// OBSOLETE * cAA..AA Continue at address AA..AA SNN
-// OBSOLETE *
-// OBSOLETE * s Step one instruction SNN
-// OBSOLETE * sAA..AA Step one instruction from AA..AA SNN
-// OBSOLETE *
-// OBSOLETE * k kill
-// OBSOLETE *
-// OBSOLETE * ? What was the last sigval ? SNN (signal NN)
-// OBSOLETE *
-// OBSOLETE * All commands and responses are sent with a packet which includes a
-// OBSOLETE * checksum. A packet consists of
-// OBSOLETE *
-// OBSOLETE * $<packet info>#<checksum>.
-// OBSOLETE *
-// OBSOLETE * where
-// OBSOLETE * <packet info> :: <characters representing the command or response>
-// OBSOLETE * <checksum> :: <two hex digits computed as modulo 256 sum of <packetinfo>>
-// OBSOLETE *
-// OBSOLETE * When a packet is received, it is first acknowledged with either '+' or '-'.
-// OBSOLETE * '+' indicates a successful transfer. '-' indicates a failed transfer.
-// OBSOLETE *
-// OBSOLETE * Example:
-// OBSOLETE *
-// OBSOLETE * Host: Reply:
-// OBSOLETE * $m0,10#2a +$00010203040506070809101112131415#42
-// OBSOLETE *
-// OBSOLETE ****************************************************************************/
-// OBSOLETE
-// OBSOLETE #include <string.h>
-// OBSOLETE #include <signal.h>
-// OBSOLETE
-// OBSOLETE /************************************************************************
-// OBSOLETE *
-// OBSOLETE * external low-level support routines
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE extern void putDebugChar(); /* write a single character */
-// OBSOLETE extern int getDebugChar(); /* read and return a single char */
-// OBSOLETE
-// OBSOLETE /************************************************************************/
-// OBSOLETE /* BUFMAX defines the maximum number of characters in inbound/outbound buffers*/
-// OBSOLETE /* at least NUMREGBYTES*2 are needed for register packets */
-// OBSOLETE #define BUFMAX 2048
-// OBSOLETE
-// OBSOLETE static int initialized = 0; /* !0 means we've been initialized */
-// OBSOLETE static int remote_debug = 0; /* turn on verbose debugging */
-// OBSOLETE
-// OBSOLETE extern void breakinst();
-// OBSOLETE void _cprint();
-// OBSOLETE static void hw_breakpoint();
-// OBSOLETE static void set_mem_fault_trap();
-// OBSOLETE static void get_in_break_mode();
-// OBSOLETE static unsigned char *mem2hex();
-// OBSOLETE
-// OBSOLETE static const char hexchars[]="0123456789abcdef";
-// OBSOLETE
-// OBSOLETE #define NUMREGS 121
-// OBSOLETE
-// OBSOLETE static unsigned long saved_stack_pointer;
-// OBSOLETE
-// OBSOLETE /* Number of bytes of registers. */
-// OBSOLETE #define NUMREGBYTES (NUMREGS * 4)
-// OBSOLETE enum regnames { G0, G1, G2, G3, G4, G5, G6, G7,
-// OBSOLETE O0, O1, O2, O3, O4, O5, SP, O7,
-// OBSOLETE L0, L1, L2, L3, L4, L5, L6, L7,
-// OBSOLETE I0, I1, I2, I3, I4, I5, FP, I7,
-// OBSOLETE
-// OBSOLETE F0, F1, F2, F3, F4, F5, F6, F7,
-// OBSOLETE F8, F9, F10, F11, F12, F13, F14, F15,
-// OBSOLETE F16, F17, F18, F19, F20, F21, F22, F23,
-// OBSOLETE F24, F25, F26, F27, F28, F29, F30, F31,
-// OBSOLETE
-// OBSOLETE Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR,
-// OBSOLETE CCSR, CCPR, CCCRCR, CCOR, CCOBR, CCIBR, CCIR, UNUSED1,
-// OBSOLETE
-// OBSOLETE ASR1, ASR15, ASR17, ASR18, ASR19, ASR20, ASR21, ASR22,
-// OBSOLETE /* the following not actually implemented */
-// OBSOLETE AWR0, AWR1, AWR2, AWR3, AWR4, AWR5, AWR6, AWR7,
-// OBSOLETE AWR8, AWR9, AWR10, AWR11, AWR12, AWR13, AWR14, AWR15,
-// OBSOLETE AWR16, AWR17, AWR18, AWR19, AWR20, AWR21, AWR22, AWR23,
-// OBSOLETE AWR24, AWR25, AWR26, AWR27, AWR28, AWR29, AWR30, AWR31,
-// OBSOLETE APSR
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE /*************************** ASSEMBLY CODE MACROS *************************/
-// OBSOLETE /* */
-// OBSOLETE
-// OBSOLETE extern void trap_low();
-// OBSOLETE
-// OBSOLETE asm("
-// OBSOLETE .reserve trapstack, 1000 * 4, \"bss\", 8
-// OBSOLETE
-// OBSOLETE .data
-// OBSOLETE .align 4
-// OBSOLETE
-// OBSOLETE in_trap_handler:
-// OBSOLETE .word 0
-// OBSOLETE
-// OBSOLETE .text
-// OBSOLETE .align 4
-// OBSOLETE
-// OBSOLETE ! This function is called when any SPARC trap (except window overflow or
-// OBSOLETE ! underflow) occurs. It makes sure that the invalid register window is still
-// OBSOLETE ! available before jumping into C code. It will also restore the world if you
-// OBSOLETE ! return from handle_exception.
-// OBSOLETE !
-// OBSOLETE ! On entry, trap_low expects l1 and l2 to contain pc and npc respectivly.
-// OBSOLETE
-// OBSOLETE .globl _trap_low
-// OBSOLETE _trap_low:
-// OBSOLETE mov %psr, %l0
-// OBSOLETE mov %wim, %l3
-// OBSOLETE
-// OBSOLETE srl %l3, %l0, %l4 ! wim >> cwp
-// OBSOLETE and %l4, 0xff, %l4 ! Mask off windows 28, 29
-// OBSOLETE cmp %l4, 1
-// OBSOLETE bne window_fine ! Branch if not in the invalid window
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! Handle window overflow
-// OBSOLETE
-// OBSOLETE mov %g1, %l4 ! Save g1, we use it to hold the wim
-// OBSOLETE srl %l3, 1, %g1 ! Rotate wim right
-// OBSOLETE and %g1, 0xff, %g1 ! Mask off windows 28, 29
-// OBSOLETE tst %g1
-// OBSOLETE bg good_wim ! Branch if new wim is non-zero
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! At this point, we need to bring a 1 into the high order bit of the wim.
-// OBSOLETE ! Since we don't want to make any assumptions about the number of register
-// OBSOLETE ! windows, we figure it out dynamically so as to setup the wim correctly.
-// OBSOLETE
-// OBSOLETE ! The normal way doesn't work on the sparclet as register windows
-// OBSOLETE ! 28 and 29 are special purpose windows.
-// OBSOLETE !not %g1 ! Fill g1 with ones
-// OBSOLETE !mov %g1, %wim ! Fill the wim with ones
-// OBSOLETE !nop
-// OBSOLETE !nop
-// OBSOLETE !nop
-// OBSOLETE !mov %wim, %g1 ! Read back the wim
-// OBSOLETE !inc %g1 ! Now g1 has 1 just to left of wim
-// OBSOLETE !srl %g1, 1, %g1 ! Now put 1 at top of wim
-// OBSOLETE
-// OBSOLETE mov 0x80, %g1 ! Hack for sparclet
-// OBSOLETE
-// OBSOLETE ! This doesn't work on the sparclet.
-// OBSOLETE !mov %g0, %wim ! Clear wim so that subsequent save
-// OBSOLETE ! won't trap
-// OBSOLETE andn %l3, 0xff, %l5 ! Clear wim but not windows 28, 29
-// OBSOLETE mov %l5, %wim
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE good_wim:
-// OBSOLETE save %g0, %g0, %g0 ! Slip into next window
-// OBSOLETE mov %g1, %wim ! Install the new wim
-// OBSOLETE
-// OBSOLETE std %l0, [%sp + 0 * 4] ! save L & I registers
-// OBSOLETE std %l2, [%sp + 2 * 4]
-// OBSOLETE std %l4, [%sp + 4 * 4]
-// OBSOLETE std %l6, [%sp + 6 * 4]
-// OBSOLETE
-// OBSOLETE std %i0, [%sp + 8 * 4]
-// OBSOLETE std %i2, [%sp + 10 * 4]
-// OBSOLETE std %i4, [%sp + 12 * 4]
-// OBSOLETE std %i6, [%sp + 14 * 4]
-// OBSOLETE
-// OBSOLETE restore ! Go back to trap window.
-// OBSOLETE mov %l4, %g1 ! Restore %g1
-// OBSOLETE
-// OBSOLETE window_fine:
-// OBSOLETE sethi %hi(in_trap_handler), %l4
-// OBSOLETE ld [%lo(in_trap_handler) + %l4], %l5
-// OBSOLETE tst %l5
-// OBSOLETE bg recursive_trap
-// OBSOLETE inc %l5
-// OBSOLETE
-// OBSOLETE set trapstack+1000*4, %sp ! Switch to trap stack
-// OBSOLETE
-// OBSOLETE recursive_trap:
-// OBSOLETE st %l5, [%lo(in_trap_handler) + %l4]
-// OBSOLETE sub %sp,(16+1+6+1+88)*4,%sp ! Make room for input & locals
-// OBSOLETE ! + hidden arg + arg spill
-// OBSOLETE ! + doubleword alignment
-// OBSOLETE ! + registers[121]
-// OBSOLETE
-// OBSOLETE std %g0, [%sp + (24 + 0) * 4] ! registers[Gx]
-// OBSOLETE std %g2, [%sp + (24 + 2) * 4]
-// OBSOLETE std %g4, [%sp + (24 + 4) * 4]
-// OBSOLETE std %g6, [%sp + (24 + 6) * 4]
-// OBSOLETE
-// OBSOLETE std %i0, [%sp + (24 + 8) * 4] ! registers[Ox]
-// OBSOLETE std %i2, [%sp + (24 + 10) * 4]
-// OBSOLETE std %i4, [%sp + (24 + 12) * 4]
-// OBSOLETE std %i6, [%sp + (24 + 14) * 4]
-// OBSOLETE
-// OBSOLETE ! FP regs (sparclet doesn't have fpu)
-// OBSOLETE
-// OBSOLETE mov %y, %l4
-// OBSOLETE mov %tbr, %l5
-// OBSOLETE st %l4, [%sp + (24 + 64) * 4] ! Y
-// OBSOLETE st %l0, [%sp + (24 + 65) * 4] ! PSR
-// OBSOLETE st %l3, [%sp + (24 + 66) * 4] ! WIM
-// OBSOLETE st %l5, [%sp + (24 + 67) * 4] ! TBR
-// OBSOLETE st %l1, [%sp + (24 + 68) * 4] ! PC
-// OBSOLETE st %l2, [%sp + (24 + 69) * 4] ! NPC
-// OBSOLETE ! CPSR and FPSR not impl
-// OBSOLETE or %l0, 0xf20, %l4
-// OBSOLETE mov %l4, %psr ! Turn on traps, disable interrupts
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! Save coprocessor state.
-// OBSOLETE ! See SK/demo/hdlc_demo/ldc_swap_context.S.
-// OBSOLETE
-// OBSOLETE mov %psr, %l0
-// OBSOLETE sethi %hi(0x2000), %l5 ! EC bit in PSR
-// OBSOLETE or %l5, %l0, %l5
-// OBSOLETE mov %l5, %psr ! enable coprocessor
-// OBSOLETE nop ! 3 nops after write to %psr (needed?)
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE crdcxt %ccsr, %l1 ! capture CCSR
-// OBSOLETE mov 0x6, %l2
-// OBSOLETE cwrcxt %l2, %ccsr ! set CCP state machine for CCFR
-// OBSOLETE crdcxt %ccfr, %l2 ! capture CCOR
-// OBSOLETE cwrcxt %l2, %ccfr ! tickle CCFR
-// OBSOLETE crdcxt %ccfr, %l3 ! capture CCOBR
-// OBSOLETE cwrcxt %l3, %ccfr ! tickle CCFR
-// OBSOLETE crdcxt %ccfr, %l4 ! capture CCIBR
-// OBSOLETE cwrcxt %l4, %ccfr ! tickle CCFR
-// OBSOLETE crdcxt %ccfr, %l5 ! capture CCIR
-// OBSOLETE cwrcxt %l5, %ccfr ! tickle CCFR
-// OBSOLETE crdcxt %ccpr, %l6 ! capture CCPR
-// OBSOLETE crdcxt %cccrcr, %l7 ! capture CCCRCR
-// OBSOLETE st %l1, [%sp + (24 + 72) * 4] ! save CCSR
-// OBSOLETE st %l2, [%sp + (24 + 75) * 4] ! save CCOR
-// OBSOLETE st %l3, [%sp + (24 + 76) * 4] ! save CCOBR
-// OBSOLETE st %l4, [%sp + (24 + 77) * 4] ! save CCIBR
-// OBSOLETE st %l5, [%sp + (24 + 78) * 4] ! save CCIR
-// OBSOLETE st %l6, [%sp + (24 + 73) * 4] ! save CCPR
-// OBSOLETE st %l7, [%sp + (24 + 74) * 4] ! save CCCRCR
-// OBSOLETE mov %l0, %psr ! restore original PSR
-// OBSOLETE nop ! 3 nops after write to %psr (needed?)
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! End of saving coprocessor state.
-// OBSOLETE ! Save asr regs
-// OBSOLETE
-// OBSOLETE ! Part of this is silly -- we should not display ASR15 or ASR19 at all.
-// OBSOLETE
-// OBSOLETE sethi %hi(0x01000000), %l6
-// OBSOLETE st %l6, [%sp + (24 + 81) * 4] ! ASR15 == NOP
-// OBSOLETE sethi %hi(0xdeadc0de), %l6
-// OBSOLETE or %l6, %lo(0xdeadc0de), %l6
-// OBSOLETE st %l6, [%sp + (24 + 84) * 4] ! ASR19 == DEADC0DE
-// OBSOLETE
-// OBSOLETE rd %asr1, %l4
-// OBSOLETE st %l4, [%sp + (24 + 80) * 4]
-// OBSOLETE ! rd %asr15, %l4 ! must not read ASR15
-// OBSOLETE ! st %l4, [%sp + (24 + 81) * 4] ! (illegal instr trap)
-// OBSOLETE rd %asr17, %l4
-// OBSOLETE st %l4, [%sp + (24 + 82) * 4]
-// OBSOLETE rd %asr18, %l4
-// OBSOLETE st %l4, [%sp + (24 + 83) * 4]
-// OBSOLETE ! rd %asr19, %l4 ! must not read asr19
-// OBSOLETE ! st %l4, [%sp + (24 + 84) * 4] ! (halts the CPU)
-// OBSOLETE rd %asr20, %l4
-// OBSOLETE st %l4, [%sp + (24 + 85) * 4]
-// OBSOLETE rd %asr21, %l4
-// OBSOLETE st %l4, [%sp + (24 + 86) * 4]
-// OBSOLETE rd %asr22, %l4
-// OBSOLETE st %l4, [%sp + (24 + 87) * 4]
-// OBSOLETE
-// OBSOLETE ! End of saving asr regs
-// OBSOLETE
-// OBSOLETE call _handle_exception
-// OBSOLETE add %sp, 24 * 4, %o0 ! Pass address of registers
-// OBSOLETE
-// OBSOLETE ! Reload all of the registers that aren't on the stack
-// OBSOLETE
-// OBSOLETE ld [%sp + (24 + 1) * 4], %g1 ! registers[Gx]
-// OBSOLETE ldd [%sp + (24 + 2) * 4], %g2
-// OBSOLETE ldd [%sp + (24 + 4) * 4], %g4
-// OBSOLETE ldd [%sp + (24 + 6) * 4], %g6
-// OBSOLETE
-// OBSOLETE ldd [%sp + (24 + 8) * 4], %i0 ! registers[Ox]
-// OBSOLETE ldd [%sp + (24 + 10) * 4], %i2
-// OBSOLETE ldd [%sp + (24 + 12) * 4], %i4
-// OBSOLETE ldd [%sp + (24 + 14) * 4], %i6
-// OBSOLETE
-// OBSOLETE ! FP regs (sparclet doesn't have fpu)
-// OBSOLETE
-// OBSOLETE ! Update the coprocessor registers.
-// OBSOLETE ! See SK/demo/hdlc_demo/ldc_swap_context.S.
-// OBSOLETE
-// OBSOLETE mov %psr, %l0
-// OBSOLETE sethi %hi(0x2000), %l5 ! EC bit in PSR
-// OBSOLETE or %l5, %l0, %l5
-// OBSOLETE mov %l5, %psr ! enable coprocessor
-// OBSOLETE nop ! 3 nops after write to %psr (needed?)
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE mov 0x6, %l2
-// OBSOLETE cwrcxt %l2, %ccsr ! set CCP state machine for CCFR
-// OBSOLETE
-// OBSOLETE ld [%sp + (24 + 72) * 4], %l1 ! saved CCSR
-// OBSOLETE ld [%sp + (24 + 75) * 4], %l2 ! saved CCOR
-// OBSOLETE ld [%sp + (24 + 76) * 4], %l3 ! saved CCOBR
-// OBSOLETE ld [%sp + (24 + 77) * 4], %l4 ! saved CCIBR
-// OBSOLETE ld [%sp + (24 + 78) * 4], %l5 ! saved CCIR
-// OBSOLETE ld [%sp + (24 + 73) * 4], %l6 ! saved CCPR
-// OBSOLETE ld [%sp + (24 + 74) * 4], %l7 ! saved CCCRCR
-// OBSOLETE
-// OBSOLETE cwrcxt %l2, %ccfr ! restore CCOR
-// OBSOLETE cwrcxt %l3, %ccfr ! restore CCOBR
-// OBSOLETE cwrcxt %l4, %ccfr ! restore CCIBR
-// OBSOLETE cwrcxt %l5, %ccfr ! restore CCIR
-// OBSOLETE cwrcxt %l6, %ccpr ! restore CCPR
-// OBSOLETE cwrcxt %l7, %cccrcr ! restore CCCRCR
-// OBSOLETE cwrcxt %l1, %ccsr ! restore CCSR
-// OBSOLETE
-// OBSOLETE mov %l0, %psr ! restore PSR
-// OBSOLETE nop ! 3 nops after write to %psr (needed?)
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! End of coprocessor handling stuff.
-// OBSOLETE ! Update asr regs
-// OBSOLETE
-// OBSOLETE ld [%sp + (24 + 80) * 4], %l4
-// OBSOLETE wr %l4, %asr1
-// OBSOLETE ! ld [%sp + (24 + 81) * 4], %l4 ! can't write asr15
-// OBSOLETE ! wr %l4, %asr15
-// OBSOLETE ld [%sp + (24 + 82) * 4], %l4
-// OBSOLETE wr %l4, %asr17
-// OBSOLETE ld [%sp + (24 + 83) * 4], %l4
-// OBSOLETE wr %l4, %asr18
-// OBSOLETE ! ld [%sp + (24 + 84) * 4], %l4 ! can't write asr19
-// OBSOLETE ! wr %l4, %asr19
-// OBSOLETE ! ld [%sp + (24 + 85) * 4], %l4 ! can't write asr20
-// OBSOLETE ! wr %l4, %asr20
-// OBSOLETE ! ld [%sp + (24 + 86) * 4], %l4 ! can't write asr21
-// OBSOLETE ! wr %l4, %asr21
-// OBSOLETE ld [%sp + (24 + 87) * 4], %l4
-// OBSOLETE wr %l4, %asr22
-// OBSOLETE
-// OBSOLETE ! End of restoring asr regs
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE ldd [%sp + (24 + 64) * 4], %l0 ! Y & PSR
-// OBSOLETE ldd [%sp + (24 + 68) * 4], %l2 ! PC & NPC
-// OBSOLETE
-// OBSOLETE restore ! Ensure that previous window is valid
-// OBSOLETE save %g0, %g0, %g0 ! by causing a window_underflow trap
-// OBSOLETE
-// OBSOLETE mov %l0, %y
-// OBSOLETE mov %l1, %psr ! Make sure that traps are disabled
-// OBSOLETE ! for rett
-// OBSOLETE nop ! 3 nops after write to %psr (needed?)
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE sethi %hi(in_trap_handler), %l4
-// OBSOLETE ld [%lo(in_trap_handler) + %l4], %l5
-// OBSOLETE dec %l5
-// OBSOLETE st %l5, [%lo(in_trap_handler) + %l4]
-// OBSOLETE
-// OBSOLETE jmpl %l2, %g0 ! Restore old PC
-// OBSOLETE rett %l3 ! Restore old nPC
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE /* Convert ch from a hex digit to an int */
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE hex (unsigned char ch)
-// OBSOLETE {
-// OBSOLETE if (ch >= 'a' && ch <= 'f')
-// OBSOLETE return ch-'a'+10;
-// OBSOLETE if (ch >= '0' && ch <= '9')
-// OBSOLETE return ch-'0';
-// OBSOLETE if (ch >= 'A' && ch <= 'F')
-// OBSOLETE return ch-'A'+10;
-// OBSOLETE return -1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static char remcomInBuffer[BUFMAX];
-// OBSOLETE static char remcomOutBuffer[BUFMAX];
-// OBSOLETE
-// OBSOLETE /* scan for the sequence $<data>#<checksum> */
-// OBSOLETE
-// OBSOLETE unsigned char *
-// OBSOLETE getpacket (void)
-// OBSOLETE {
-// OBSOLETE unsigned char *buffer = &remcomInBuffer[0];
-// OBSOLETE unsigned char checksum;
-// OBSOLETE unsigned char xmitcsum;
-// OBSOLETE int count;
-// OBSOLETE char ch;
-// OBSOLETE
-// OBSOLETE while (1)
-// OBSOLETE {
-// OBSOLETE /* wait around for the start character, ignore all other characters */
-// OBSOLETE while ((ch = getDebugChar ()) != '$')
-// OBSOLETE ;
-// OBSOLETE
-// OBSOLETE retry:
-// OBSOLETE checksum = 0;
-// OBSOLETE xmitcsum = -1;
-// OBSOLETE count = 0;
-// OBSOLETE
-// OBSOLETE /* now, read until a # or end of buffer is found */
-// OBSOLETE while (count < BUFMAX)
-// OBSOLETE {
-// OBSOLETE ch = getDebugChar ();
-// OBSOLETE if (ch == '$')
-// OBSOLETE goto retry;
-// OBSOLETE if (ch == '#')
-// OBSOLETE break;
-// OBSOLETE checksum = checksum + ch;
-// OBSOLETE buffer[count] = ch;
-// OBSOLETE count = count + 1;
-// OBSOLETE }
-// OBSOLETE buffer[count] = 0;
-// OBSOLETE
-// OBSOLETE if (ch == '#')
-// OBSOLETE {
-// OBSOLETE ch = getDebugChar ();
-// OBSOLETE xmitcsum = hex (ch) << 4;
-// OBSOLETE ch = getDebugChar ();
-// OBSOLETE xmitcsum += hex (ch);
-// OBSOLETE
-// OBSOLETE if (checksum != xmitcsum)
-// OBSOLETE {
-// OBSOLETE putDebugChar ('-'); /* failed checksum */
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE putDebugChar ('+'); /* successful transfer */
-// OBSOLETE
-// OBSOLETE /* if a sequence char is present, reply the sequence ID */
-// OBSOLETE if (buffer[2] == ':')
-// OBSOLETE {
-// OBSOLETE putDebugChar (buffer[0]);
-// OBSOLETE putDebugChar (buffer[1]);
-// OBSOLETE
-// OBSOLETE return &buffer[3];
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return &buffer[0];
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* send the packet in buffer. */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE putpacket (unsigned char *buffer)
-// OBSOLETE {
-// OBSOLETE unsigned char checksum;
-// OBSOLETE int count;
-// OBSOLETE unsigned char ch;
-// OBSOLETE
-// OBSOLETE /* $<packet info>#<checksum>. */
-// OBSOLETE do
-// OBSOLETE {
-// OBSOLETE putDebugChar('$');
-// OBSOLETE checksum = 0;
-// OBSOLETE count = 0;
-// OBSOLETE
-// OBSOLETE while (ch = buffer[count])
-// OBSOLETE {
-// OBSOLETE putDebugChar(ch);
-// OBSOLETE checksum += ch;
-// OBSOLETE count += 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE putDebugChar('#');
-// OBSOLETE putDebugChar(hexchars[checksum >> 4]);
-// OBSOLETE putDebugChar(hexchars[checksum & 0xf]);
-// OBSOLETE
-// OBSOLETE }
-// OBSOLETE while (getDebugChar() != '+');
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Indicate to caller of mem2hex or hex2mem that there has been an
-// OBSOLETE error. */
-// OBSOLETE static volatile int mem_err = 0;
-// OBSOLETE
-// OBSOLETE /* Convert the memory pointed to by mem into hex, placing result in buf.
-// OBSOLETE * Return a pointer to the last char put in buf (null), in case of mem fault,
-// OBSOLETE * return 0.
-// OBSOLETE * If MAY_FAULT is non-zero, then we will handle memory faults by returning
-// OBSOLETE * a 0, else treat a fault like any other fault in the stub.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE static unsigned char *
-// OBSOLETE mem2hex (unsigned char *mem, unsigned char *buf, int count, int may_fault)
-// OBSOLETE {
-// OBSOLETE unsigned char ch;
-// OBSOLETE
-// OBSOLETE set_mem_fault_trap(may_fault);
-// OBSOLETE
-// OBSOLETE while (count-- > 0)
-// OBSOLETE {
-// OBSOLETE ch = *mem++;
-// OBSOLETE if (mem_err)
-// OBSOLETE return 0;
-// OBSOLETE *buf++ = hexchars[ch >> 4];
-// OBSOLETE *buf++ = hexchars[ch & 0xf];
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE *buf = 0;
-// OBSOLETE
-// OBSOLETE set_mem_fault_trap(0);
-// OBSOLETE
-// OBSOLETE return buf;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* convert the hex array pointed to by buf into binary to be placed in mem
-// OBSOLETE * return a pointer to the character AFTER the last byte written */
-// OBSOLETE
-// OBSOLETE static char *
-// OBSOLETE hex2mem (unsigned char *buf, unsigned char *mem, int count, int may_fault)
-// OBSOLETE {
-// OBSOLETE int i;
-// OBSOLETE unsigned char ch;
-// OBSOLETE
-// OBSOLETE set_mem_fault_trap(may_fault);
-// OBSOLETE
-// OBSOLETE for (i=0; i<count; i++)
-// OBSOLETE {
-// OBSOLETE ch = hex(*buf++) << 4;
-// OBSOLETE ch |= hex(*buf++);
-// OBSOLETE *mem++ = ch;
-// OBSOLETE if (mem_err)
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE set_mem_fault_trap(0);
-// OBSOLETE
-// OBSOLETE return mem;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* This table contains the mapping between SPARC hardware trap types, and
-// OBSOLETE signals, which are primarily what GDB understands. It also indicates
-// OBSOLETE which hardware traps we need to commandeer when initializing the stub. */
-// OBSOLETE
-// OBSOLETE static struct hard_trap_info
-// OBSOLETE {
-// OBSOLETE unsigned char tt; /* Trap type code for SPARClite */
-// OBSOLETE unsigned char signo; /* Signal that we map this trap into */
-// OBSOLETE } hard_trap_info[] = {
-// OBSOLETE {1, SIGSEGV}, /* instruction access exception */
-// OBSOLETE {0x3b, SIGSEGV}, /* instruction access error */
-// OBSOLETE {2, SIGILL}, /* illegal instruction */
-// OBSOLETE {3, SIGILL}, /* privileged instruction */
-// OBSOLETE {4, SIGEMT}, /* fp disabled */
-// OBSOLETE {0x24, SIGEMT}, /* cp disabled */
-// OBSOLETE {7, SIGBUS}, /* mem address not aligned */
-// OBSOLETE {0x29, SIGSEGV}, /* data access exception */
-// OBSOLETE {10, SIGEMT}, /* tag overflow */
-// OBSOLETE {128+1, SIGTRAP}, /* ta 1 - normal breakpoint instruction */
-// OBSOLETE {0, 0} /* Must be last */
-// OBSOLETE };
-// OBSOLETE
-// OBSOLETE /* Set up exception handlers for tracing and breakpoints */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE set_debug_traps (void)
-// OBSOLETE {
-// OBSOLETE struct hard_trap_info *ht;
-// OBSOLETE
-// OBSOLETE for (ht = hard_trap_info; ht->tt && ht->signo; ht++)
-// OBSOLETE exceptionHandler(ht->tt, trap_low);
-// OBSOLETE
-// OBSOLETE initialized = 1;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE asm ("
-// OBSOLETE ! Trap handler for memory errors. This just sets mem_err to be non-zero. It
-// OBSOLETE ! assumes that %l1 is non-zero. This should be safe, as it is doubtful that
-// OBSOLETE ! 0 would ever contain code that could mem fault. This routine will skip
-// OBSOLETE ! past the faulting instruction after setting mem_err.
-// OBSOLETE
-// OBSOLETE .text
-// OBSOLETE .align 4
-// OBSOLETE
-// OBSOLETE _fltr_set_mem_err:
-// OBSOLETE sethi %hi(_mem_err), %l0
-// OBSOLETE st %l1, [%l0 + %lo(_mem_err)]
-// OBSOLETE jmpl %l2, %g0
-// OBSOLETE rett %l2+4
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE set_mem_fault_trap (int enable)
-// OBSOLETE {
-// OBSOLETE extern void fltr_set_mem_err();
-// OBSOLETE mem_err = 0;
-// OBSOLETE
-// OBSOLETE if (enable)
-// OBSOLETE exceptionHandler(0x29, fltr_set_mem_err);
-// OBSOLETE else
-// OBSOLETE exceptionHandler(0x29, trap_low);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE asm ("
-// OBSOLETE .text
-// OBSOLETE .align 4
-// OBSOLETE
-// OBSOLETE _dummy_hw_breakpoint:
-// OBSOLETE jmpl %l2, %g0
-// OBSOLETE rett %l2+4
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE set_hw_breakpoint_trap (int enable)
-// OBSOLETE {
-// OBSOLETE extern void dummy_hw_breakpoint();
-// OBSOLETE
-// OBSOLETE if (enable)
-// OBSOLETE exceptionHandler(255, dummy_hw_breakpoint);
-// OBSOLETE else
-// OBSOLETE exceptionHandler(255, trap_low);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE get_in_break_mode (void)
-// OBSOLETE {
-// OBSOLETE #if 0
-// OBSOLETE int x;
-// OBSOLETE mesg("get_in_break_mode, sp = ");
-// OBSOLETE phex(&x);
-// OBSOLETE #endif
-// OBSOLETE set_hw_breakpoint_trap(1);
-// OBSOLETE
-// OBSOLETE asm("
-// OBSOLETE sethi %hi(0xff10), %l4
-// OBSOLETE or %l4, %lo(0xff10), %l4
-// OBSOLETE sta %g0, [%l4]0x1
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE set_hw_breakpoint_trap(0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Convert the SPARC hardware trap type code to a unix signal number. */
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE computeSignal (int tt)
-// OBSOLETE {
-// OBSOLETE struct hard_trap_info *ht;
-// OBSOLETE
-// OBSOLETE for (ht = hard_trap_info; ht->tt && ht->signo; ht++)
-// OBSOLETE if (ht->tt == tt)
-// OBSOLETE return ht->signo;
-// OBSOLETE
-// OBSOLETE return SIGHUP; /* default for things we don't know about */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * While we find nice hex chars, build an int.
-// OBSOLETE * Return number of chars processed.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE hexToInt(char **ptr, int *intValue)
-// OBSOLETE {
-// OBSOLETE int numChars = 0;
-// OBSOLETE int hexValue;
-// OBSOLETE
-// OBSOLETE *intValue = 0;
-// OBSOLETE
-// OBSOLETE while (**ptr)
-// OBSOLETE {
-// OBSOLETE hexValue = hex(**ptr);
-// OBSOLETE if (hexValue < 0)
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE *intValue = (*intValue << 4) | hexValue;
-// OBSOLETE numChars ++;
-// OBSOLETE
-// OBSOLETE (*ptr)++;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE return (numChars);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * This function does all command procesing for interfacing to gdb. It
-// OBSOLETE * returns 1 if you should skip the instruction at the trap address, 0
-// OBSOLETE * otherwise.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE handle_exception (unsigned long *registers)
-// OBSOLETE {
-// OBSOLETE int tt; /* Trap type */
-// OBSOLETE int sigval;
-// OBSOLETE int addr;
-// OBSOLETE int length;
-// OBSOLETE char *ptr;
-// OBSOLETE unsigned long *sp;
-// OBSOLETE unsigned long dsr;
-// OBSOLETE
-// OBSOLETE /* First, we must force all of the windows to be spilled out */
-// OBSOLETE
-// OBSOLETE asm("
-// OBSOLETE ! Ugh. sparclet has broken save
-// OBSOLETE !save %sp, -64, %sp
-// OBSOLETE save
-// OBSOLETE add %fp,-64,%sp
-// OBSOLETE !save %sp, -64, %sp
-// OBSOLETE save
-// OBSOLETE add %fp,-64,%sp
-// OBSOLETE !save %sp, -64, %sp
-// OBSOLETE save
-// OBSOLETE add %fp,-64,%sp
-// OBSOLETE !save %sp, -64, %sp
-// OBSOLETE save
-// OBSOLETE add %fp,-64,%sp
-// OBSOLETE !save %sp, -64, %sp
-// OBSOLETE save
-// OBSOLETE add %fp,-64,%sp
-// OBSOLETE !save %sp, -64, %sp
-// OBSOLETE save
-// OBSOLETE add %fp,-64,%sp
-// OBSOLETE !save %sp, -64, %sp
-// OBSOLETE save
-// OBSOLETE add %fp,-64,%sp
-// OBSOLETE !save %sp, -64, %sp
-// OBSOLETE save
-// OBSOLETE add %fp,-64,%sp
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE restore
-// OBSOLETE ");
-// OBSOLETE
-// OBSOLETE if (registers[PC] == (unsigned long)breakinst)
-// OBSOLETE {
-// OBSOLETE registers[PC] = registers[NPC];
-// OBSOLETE registers[NPC] += 4;
-// OBSOLETE }
-// OBSOLETE sp = (unsigned long *)registers[SP];
-// OBSOLETE
-// OBSOLETE tt = (registers[TBR] >> 4) & 0xff;
-// OBSOLETE
-// OBSOLETE /* reply to host that an exception has occurred */
-// OBSOLETE sigval = computeSignal(tt);
-// OBSOLETE ptr = remcomOutBuffer;
-// OBSOLETE
-// OBSOLETE *ptr++ = 'T';
-// OBSOLETE *ptr++ = hexchars[sigval >> 4];
-// OBSOLETE *ptr++ = hexchars[sigval & 0xf];
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[PC >> 4];
-// OBSOLETE *ptr++ = hexchars[PC & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex((char *)®isters[PC], ptr, 4, 0);
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[FP >> 4];
-// OBSOLETE *ptr++ = hexchars[FP & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex(sp + 8 + 6, ptr, 4, 0); /* FP */
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[SP >> 4];
-// OBSOLETE *ptr++ = hexchars[SP & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex((char *)&sp, ptr, 4, 0);
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[NPC >> 4];
-// OBSOLETE *ptr++ = hexchars[NPC & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex((char *)®isters[NPC], ptr, 4, 0);
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = hexchars[O7 >> 4];
-// OBSOLETE *ptr++ = hexchars[O7 & 0xf];
-// OBSOLETE *ptr++ = ':';
-// OBSOLETE ptr = mem2hex((char *)®isters[O7], ptr, 4, 0);
-// OBSOLETE *ptr++ = ';';
-// OBSOLETE
-// OBSOLETE *ptr++ = 0;
-// OBSOLETE
-// OBSOLETE putpacket(remcomOutBuffer);
-// OBSOLETE
-// OBSOLETE while (1)
-// OBSOLETE {
-// OBSOLETE remcomOutBuffer[0] = 0;
-// OBSOLETE
-// OBSOLETE ptr = getpacket();
-// OBSOLETE switch (*ptr++)
-// OBSOLETE {
-// OBSOLETE case '?':
-// OBSOLETE remcomOutBuffer[0] = 'S';
-// OBSOLETE remcomOutBuffer[1] = hexchars[sigval >> 4];
-// OBSOLETE remcomOutBuffer[2] = hexchars[sigval & 0xf];
-// OBSOLETE remcomOutBuffer[3] = 0;
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'd':
-// OBSOLETE remote_debug = !(remote_debug); /* toggle debug flag */
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'g': /* return the value of the CPU registers */
-// OBSOLETE {
-// OBSOLETE ptr = remcomOutBuffer;
-// OBSOLETE ptr = mem2hex((char *)registers, ptr, 16 * 4, 0); /* G & O regs */
-// OBSOLETE ptr = mem2hex(sp + 0, ptr, 16 * 4, 0); /* L & I regs */
-// OBSOLETE memset(ptr, '0', 32 * 8); /* Floating point */
-// OBSOLETE ptr = mem2hex((char *)®isters[Y],
-// OBSOLETE ptr + 32 * 4 * 2,
-// OBSOLETE 8 * 4,
-// OBSOLETE 0); /* Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR */
-// OBSOLETE ptr = mem2hex((char *)®isters[CCSR],
-// OBSOLETE ptr,
-// OBSOLETE 8 * 4,
-// OBSOLETE 0); /* CCSR, CCPR, CCCRCR, CCOR, CCOBR, CCIBR, CCIR */
-// OBSOLETE ptr = mem2hex((char *)®isters[ASR1],
-// OBSOLETE ptr,
-// OBSOLETE 8 * 4,
-// OBSOLETE 0); /* ASR1,ASR15,ASR17,ASR18,ASR19,ASR20,ASR21,ASR22 */
-// OBSOLETE #if 0 /* not implemented */
-// OBSOLETE ptr = mem2hex((char *) ®isters[AWR0],
-// OBSOLETE ptr,
-// OBSOLETE 32 * 4,
-// OBSOLETE 0); /* Alternate Window Registers */
-// OBSOLETE #endif
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'G': /* set value of all the CPU registers - return OK */
-// OBSOLETE case 'P': /* set value of one CPU register - return OK */
-// OBSOLETE {
-// OBSOLETE unsigned long *newsp, psr;
-// OBSOLETE
-// OBSOLETE psr = registers[PSR];
-// OBSOLETE
-// OBSOLETE if (ptr[-1] == 'P') /* do a single register */
-// OBSOLETE {
-// OBSOLETE int regno;
-// OBSOLETE
-// OBSOLETE if (hexToInt (&ptr, ®no)
-// OBSOLETE && *ptr++ == '=')
-// OBSOLETE if (regno >= L0 && regno <= I7)
-// OBSOLETE hex2mem (ptr, sp + regno - L0, 4, 0);
-// OBSOLETE else
-// OBSOLETE hex2mem (ptr, (char *)®isters[regno], 4, 0);
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE strcpy (remcomOutBuffer, "E01");
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE hex2mem(ptr, (char *)registers, 16 * 4, 0); /* G & O regs */
-// OBSOLETE hex2mem(ptr + 16 * 4 * 2, sp + 0, 16 * 4, 0); /* L & I regs */
-// OBSOLETE hex2mem(ptr + 64 * 4 * 2, (char *)®isters[Y],
-// OBSOLETE 8 * 4, 0); /* Y,PSR,WIM,TBR,PC,NPC,FPSR,CPSR */
-// OBSOLETE hex2mem(ptr + 72 * 4 * 2, (char *)®isters[CCSR],
-// OBSOLETE 8 * 4, 0); /* CCSR,CCPR,CCCRCR,CCOR,CCOBR,CCIBR,CCIR */
-// OBSOLETE hex2mem(ptr + 80 * 4 * 2, (char *)®isters[ASR1],
-// OBSOLETE 8 * 4, 0); /* ASR1 ... ASR22 */
-// OBSOLETE #if 0 /* not implemented */
-// OBSOLETE hex2mem(ptr + 88 * 4 * 2, (char *)®isters[AWR0],
-// OBSOLETE 8 * 4, 0); /* Alternate Window Registers */
-// OBSOLETE #endif
-// OBSOLETE }
-// OBSOLETE /* See if the stack pointer has moved. If so, then copy the saved
-// OBSOLETE locals and ins to the new location. This keeps the window
-// OBSOLETE overflow and underflow routines happy. */
-// OBSOLETE
-// OBSOLETE newsp = (unsigned long *)registers[SP];
-// OBSOLETE if (sp != newsp)
-// OBSOLETE sp = memcpy(newsp, sp, 16 * 4);
-// OBSOLETE
-// OBSOLETE /* Don't allow CWP to be modified. */
-// OBSOLETE
-// OBSOLETE if (psr != registers[PSR])
-// OBSOLETE registers[PSR] = (psr & 0x1f) | (registers[PSR] & ~0x1f);
-// OBSOLETE
-// OBSOLETE strcpy(remcomOutBuffer,"OK");
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'm': /* mAA..AA,LLLL Read LLLL bytes at address AA..AA */
-// OBSOLETE /* Try to read %x,%x. */
-// OBSOLETE
-// OBSOLETE if (hexToInt(&ptr, &addr)
-// OBSOLETE && *ptr++ == ','
-// OBSOLETE && hexToInt(&ptr, &length))
-// OBSOLETE {
-// OBSOLETE if (mem2hex((char *)addr, remcomOutBuffer, length, 1))
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE strcpy (remcomOutBuffer, "E03");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE strcpy(remcomOutBuffer,"E01");
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'M': /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */
-// OBSOLETE /* Try to read '%x,%x:'. */
-// OBSOLETE
-// OBSOLETE if (hexToInt(&ptr, &addr)
-// OBSOLETE && *ptr++ == ','
-// OBSOLETE && hexToInt(&ptr, &length)
-// OBSOLETE && *ptr++ == ':')
-// OBSOLETE {
-// OBSOLETE if (hex2mem(ptr, (char *)addr, length, 1))
-// OBSOLETE strcpy(remcomOutBuffer, "OK");
-// OBSOLETE else
-// OBSOLETE strcpy(remcomOutBuffer, "E03");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE strcpy(remcomOutBuffer, "E02");
-// OBSOLETE break;
-// OBSOLETE
-// OBSOLETE case 'c': /* cAA..AA Continue at address AA..AA(optional) */
-// OBSOLETE /* try to read optional parameter, pc unchanged if no parm */
-// OBSOLETE
-// OBSOLETE if (hexToInt(&ptr, &addr))
-// OBSOLETE {
-// OBSOLETE registers[PC] = addr;
-// OBSOLETE registers[NPC] = addr + 4;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Need to flush the instruction cache here, as we may have deposited a
-// OBSOLETE breakpoint, and the icache probably has no way of knowing that a data ref to
-// OBSOLETE some location may have changed something that is in the instruction cache.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE flush_i_cache();
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE /* kill the program */
-// OBSOLETE case 'k' : /* do nothing */
-// OBSOLETE break;
-// OBSOLETE #if 0
-// OBSOLETE case 't': /* Test feature */
-// OBSOLETE asm (" std %f30,[%sp]");
-// OBSOLETE break;
-// OBSOLETE #endif
-// OBSOLETE case 'r': /* Reset */
-// OBSOLETE asm ("call 0
-// OBSOLETE nop ");
-// OBSOLETE break;
-// OBSOLETE } /* switch */
-// OBSOLETE
-// OBSOLETE /* reply to the request */
-// OBSOLETE putpacket(remcomOutBuffer);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* This function will generate a breakpoint exception. It is used at the
-// OBSOLETE beginning of a program to sync up with a debugger and can be used
-// OBSOLETE otherwise as a quick means to stop program execution and "break" into
-// OBSOLETE the debugger. */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE breakpoint (void)
-// OBSOLETE {
-// OBSOLETE if (!initialized)
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE asm(" .globl _breakinst
-// OBSOLETE
-// OBSOLETE _breakinst: ta 1
-// OBSOLETE ");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE hw_breakpoint (void)
-// OBSOLETE {
-// OBSOLETE asm("
-// OBSOLETE ta 127
-// OBSOLETE ");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #if 0 /* experimental and never finished, left here for reference */
-// OBSOLETE static void
-// OBSOLETE splet_temp(void)
-// OBSOLETE {
-// OBSOLETE asm(" sub %sp,(16+1+6+1+121)*4,%sp ! Make room for input & locals
-// OBSOLETE ! + hidden arg + arg spill
-// OBSOLETE ! + doubleword alignment
-// OBSOLETE ! + registers[121]
-// OBSOLETE
-// OBSOLETE ! Leave a trail of breadcrumbs! (save register save area for debugging)
-// OBSOLETE mov %sp, %l0
-// OBSOLETE add %l0, 24*4, %l0
-// OBSOLETE sethi %hi(_debug_registers), %l1
-// OBSOLETE st %l0, [%lo(_debug_registers) + %l1]
-// OBSOLETE
-// OBSOLETE ! Save the Alternate Register Set: (not implemented yet)
-// OBSOLETE ! To save the Alternate Register set, we must:
-// OBSOLETE ! 1) Save the current SP in some global location.
-// OBSOLETE ! 2) Swap the register sets.
-// OBSOLETE ! 3) Save the Alternate SP in the Y register
-// OBSOLETE ! 4) Fetch the SP that we saved in step 1.
-// OBSOLETE ! 5) Use that to save the rest of the regs (not forgetting ASP in Y)
-// OBSOLETE ! 6) Restore the Alternate SP from Y
-// OBSOLETE ! 7) Swap the registers back.
-// OBSOLETE
-// OBSOLETE ! 1) Copy the current stack pointer to global _SAVED_STACK_POINTER:
-// OBSOLETE sethi %hi(_saved_stack_pointer), %l0
-// OBSOLETE st %sp, [%lo(_saved_stack_pointer) + %l0]
-// OBSOLETE
-// OBSOLETE ! 2) Swap the register sets:
-// OBSOLETE mov %psr, %l1
-// OBSOLETE sethi %hi(0x10000), %l2
-// OBSOLETE xor %l1, %l2, %l1
-// OBSOLETE mov %l1, %psr
-// OBSOLETE nop ! 3 nops after write to %psr (needed?)
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE
-// OBSOLETE ! 3) Save Alternate L0 in Y
-// OBSOLETE wr %l0, 0, %y
-// OBSOLETE
-// OBSOLETE ! 4) Load former SP into alternate SP, using L0
-// OBSOLETE sethi %hi(_saved_stack_pointer), %l0
-// OBSOLETE or %lo(_saved_stack_pointer), %l0, %l0
-// OBSOLETE swap [%l0], %sp
-// OBSOLETE
-// OBSOLETE ! 4.5) Restore alternate L0
-// OBSOLETE rd %y, %l0
-// OBSOLETE
-// OBSOLETE ! 5) Save the Alternate Window Registers
-// OBSOLETE st %r0, [%sp + (24 + 88) * 4] ! AWR0
-// OBSOLETE st %r1, [%sp + (24 + 89) * 4] ! AWR1
-// OBSOLETE st %r2, [%sp + (24 + 90) * 4] ! AWR2
-// OBSOLETE st %r3, [%sp + (24 + 91) * 4] ! AWR3
-// OBSOLETE st %r4, [%sp + (24 + 92) * 4] ! AWR4
-// OBSOLETE st %r5, [%sp + (24 + 93) * 4] ! AWR5
-// OBSOLETE st %r6, [%sp + (24 + 94) * 4] ! AWR6
-// OBSOLETE st %r7, [%sp + (24 + 95) * 4] ! AWR7
-// OBSOLETE st %r8, [%sp + (24 + 96) * 4] ! AWR8
-// OBSOLETE st %r9, [%sp + (24 + 97) * 4] ! AWR9
-// OBSOLETE st %r10, [%sp + (24 + 98) * 4] ! AWR10
-// OBSOLETE st %r11, [%sp + (24 + 99) * 4] ! AWR11
-// OBSOLETE st %r12, [%sp + (24 + 100) * 4] ! AWR12
-// OBSOLETE st %r13, [%sp + (24 + 101) * 4] ! AWR13
-// OBSOLETE ! st %r14, [%sp + (24 + 102) * 4] ! AWR14 (SP)
-// OBSOLETE st %r15, [%sp + (24 + 103) * 4] ! AWR15
-// OBSOLETE st %r16, [%sp + (24 + 104) * 4] ! AWR16
-// OBSOLETE st %r17, [%sp + (24 + 105) * 4] ! AWR17
-// OBSOLETE st %r18, [%sp + (24 + 106) * 4] ! AWR18
-// OBSOLETE st %r19, [%sp + (24 + 107) * 4] ! AWR19
-// OBSOLETE st %r20, [%sp + (24 + 108) * 4] ! AWR20
-// OBSOLETE st %r21, [%sp + (24 + 109) * 4] ! AWR21
-// OBSOLETE st %r22, [%sp + (24 + 110) * 4] ! AWR22
-// OBSOLETE st %r23, [%sp + (24 + 111) * 4] ! AWR23
-// OBSOLETE st %r24, [%sp + (24 + 112) * 4] ! AWR24
-// OBSOLETE st %r25, [%sp + (24 + 113) * 4] ! AWR25
-// OBSOLETE st %r26, [%sp + (24 + 114) * 4] ! AWR26
-// OBSOLETE st %r27, [%sp + (24 + 115) * 4] ! AWR27
-// OBSOLETE st %r28, [%sp + (24 + 116) * 4] ! AWR28
-// OBSOLETE st %r29, [%sp + (24 + 117) * 4] ! AWR29
-// OBSOLETE st %r30, [%sp + (24 + 118) * 4] ! AWR30
-// OBSOLETE st %r31, [%sp + (24 + 119) * 4] ! AWR21
-// OBSOLETE
-// OBSOLETE ! Get the Alternate PSR (I hope...)
-// OBSOLETE
-// OBSOLETE rd %psr, %l2
-// OBSOLETE st %l2, [%sp + (24 + 120) * 4] ! APSR
-// OBSOLETE
-// OBSOLETE ! Don't forget the alternate stack pointer
-// OBSOLETE
-// OBSOLETE rd %y, %l3
-// OBSOLETE st %l3, [%sp + (24 + 102) * 4] ! AWR14 (SP)
-// OBSOLETE
-// OBSOLETE ! 6) Restore the Alternate SP (saved in Y)
-// OBSOLETE
-// OBSOLETE rd %y, %o6
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE ! 7) Swap the registers back:
-// OBSOLETE
-// OBSOLETE mov %psr, %l1
-// OBSOLETE sethi %hi(0x10000), %l2
-// OBSOLETE xor %l1, %l2, %l1
-// OBSOLETE mov %l1, %psr
-// OBSOLETE nop ! 3 nops after write to %psr (needed?)
-// OBSOLETE nop
-// OBSOLETE nop
-// OBSOLETE ");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #endif
+++ /dev/null
-// OBSOLETE /* Sequent Symmetry host interface, for GDB when running under Unix.
-// OBSOLETE
-// OBSOLETE Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994, 1995, 1999,
-// OBSOLETE 2000, 2001, 2003 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 /* FIXME, some 387-specific items of use taken from i387-tdep.c -- ought to be
-// OBSOLETE merged back in. */
-// OBSOLETE
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "target.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE
-// OBSOLETE /* FIXME: What is the _INKERNEL define for? */
-// OBSOLETE #define _INKERNEL
-// OBSOLETE #include <signal.h>
-// OBSOLETE #undef _INKERNEL
-// OBSOLETE #include "gdb_wait.h"
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE #include <sys/user.h>
-// OBSOLETE #include <sys/proc.h>
-// OBSOLETE #include <sys/dir.h>
-// OBSOLETE #include <sys/ioctl.h>
-// OBSOLETE #include "gdb_stat.h"
-// OBSOLETE #ifdef _SEQUENT_
-// OBSOLETE #include <sys/ptrace.h>
-// OBSOLETE #else
-// OBSOLETE /* Dynix has only machine/ptrace.h, which is already included by sys/user.h */
-// OBSOLETE /* Dynix has no mptrace call */
-// OBSOLETE #define mptrace ptrace
-// OBSOLETE #endif
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE #include <sgtty.h>
-// OBSOLETE #define TERMINAL struct sgttyb
-// OBSOLETE
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE store_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE struct pt_regset regs;
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE /* FIXME: Fetching the registers is a kludge to initialize all elements
-// OBSOLETE in the fpu and fpa status. This works for normal debugging, but
-// OBSOLETE might cause problems when calling functions in the inferior.
-// OBSOLETE At least fpu_control and fpa_pcr (probably more) should be added
-// OBSOLETE to the registers array to solve this properly. */
-// OBSOLETE mptrace (XPT_RREGS, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) & regs, 0);
-// OBSOLETE
-// OBSOLETE regs.pr_eax = *(int *) &deprecated_registers[REGISTER_BYTE (0)];
-// OBSOLETE regs.pr_ebx = *(int *) &deprecated_registers[REGISTER_BYTE (5)];
-// OBSOLETE regs.pr_ecx = *(int *) &deprecated_registers[REGISTER_BYTE (2)];
-// OBSOLETE regs.pr_edx = *(int *) &deprecated_registers[REGISTER_BYTE (1)];
-// OBSOLETE regs.pr_esi = *(int *) &deprecated_registers[REGISTER_BYTE (6)];
-// OBSOLETE regs.pr_edi = *(int *) &deprecated_registers[REGISTER_BYTE (7)];
-// OBSOLETE regs.pr_esp = *(int *) &deprecated_registers[REGISTER_BYTE (14)];
-// OBSOLETE regs.pr_ebp = *(int *) &deprecated_registers[REGISTER_BYTE (15)];
-// OBSOLETE regs.pr_eip = *(int *) &deprecated_registers[REGISTER_BYTE (16)];
-// OBSOLETE regs.pr_flags = *(int *) &deprecated_registers[REGISTER_BYTE (17)];
-// OBSOLETE for (i = 0; i < 31; i++)
-// OBSOLETE {
-// OBSOLETE regs.pr_fpa.fpa_regs[i] =
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (FP1_REGNUM + i)];
-// OBSOLETE }
-// OBSOLETE memcpy (regs.pr_fpu.fpu_stack[0], &deprecated_registers[REGISTER_BYTE (ST0_REGNUM)], 10);
-// OBSOLETE memcpy (regs.pr_fpu.fpu_stack[1], &deprecated_registers[REGISTER_BYTE (ST1_REGNUM)], 10);
-// OBSOLETE memcpy (regs.pr_fpu.fpu_stack[2], &deprecated_registers[REGISTER_BYTE (ST2_REGNUM)], 10);
-// OBSOLETE memcpy (regs.pr_fpu.fpu_stack[3], &deprecated_registers[REGISTER_BYTE (ST3_REGNUM)], 10);
-// OBSOLETE memcpy (regs.pr_fpu.fpu_stack[4], &deprecated_registers[REGISTER_BYTE (ST4_REGNUM)], 10);
-// OBSOLETE memcpy (regs.pr_fpu.fpu_stack[5], &deprecated_registers[REGISTER_BYTE (ST5_REGNUM)], 10);
-// OBSOLETE memcpy (regs.pr_fpu.fpu_stack[6], &deprecated_registers[REGISTER_BYTE (ST6_REGNUM)], 10);
-// OBSOLETE memcpy (regs.pr_fpu.fpu_stack[7], &deprecated_registers[REGISTER_BYTE (ST7_REGNUM)], 10);
-// OBSOLETE mptrace (XPT_WREGS, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) & regs, 0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE fetch_inferior_registers (int regno)
-// OBSOLETE {
-// OBSOLETE int i;
-// OBSOLETE struct pt_regset regs;
-// OBSOLETE
-// OBSOLETE deprecated_registers_fetched ();
-// OBSOLETE
-// OBSOLETE mptrace (XPT_RREGS, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) & regs, 0);
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (EAX_REGNUM)] = regs.pr_eax;
-// OBSOLETE *(int *) &rdeprecated_egisters[REGISTER_BYTE (EBX_REGNUM)] = regs.pr_ebx;
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (ECX_REGNUM)] = regs.pr_ecx;
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (EDX_REGNUM)] = regs.pr_edx;
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (ESI_REGNUM)] = regs.pr_esi;
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (EDI_REGNUM)] = regs.pr_edi;
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (EBP_REGNUM)] = regs.pr_ebp;
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (ESP_REGNUM)] = regs.pr_esp;
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (EIP_REGNUM)] = regs.pr_eip;
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (EFLAGS_REGNUM)] = regs.pr_flags;
-// OBSOLETE for (i = 0; i < FPA_NREGS; i++)
-// OBSOLETE {
-// OBSOLETE *(int *) &deprecated_registers[REGISTER_BYTE (FP1_REGNUM + i)] =
-// OBSOLETE regs.pr_fpa.fpa_regs[i];
-// OBSOLETE }
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (ST0_REGNUM)], regs.pr_fpu.fpu_stack[0], 10);
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (ST1_REGNUM)], regs.pr_fpu.fpu_stack[1], 10);
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (ST2_REGNUM)], regs.pr_fpu.fpu_stack[2], 10);
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (ST3_REGNUM)], regs.pr_fpu.fpu_stack[3], 10);
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (ST4_REGNUM)], regs.pr_fpu.fpu_stack[4], 10);
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (ST5_REGNUM)], regs.pr_fpu.fpu_stack[5], 10);
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (ST6_REGNUM)], regs.pr_fpu.fpu_stack[6], 10);
-// OBSOLETE memcpy (&deprecated_registers[REGISTER_BYTE (ST7_REGNUM)], regs.pr_fpu.fpu_stack[7], 10);
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE /* FIXME: This should be merged with i387-tdep.c as well. */
-// OBSOLETE static
-// OBSOLETE print_fpu_status (struct pt_regset ep)
-// OBSOLETE {
-// OBSOLETE int i;
-// OBSOLETE int bothstatus;
-// OBSOLETE int top;
-// OBSOLETE int fpreg;
-// OBSOLETE unsigned char *p;
-// OBSOLETE
-// OBSOLETE printf_unfiltered ("80387:");
-// OBSOLETE if (ep.pr_fpu.fpu_ip == 0)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered (" not in use.\n");
-// OBSOLETE return;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("\n");
-// OBSOLETE }
-// OBSOLETE if (ep.pr_fpu.fpu_status != 0)
-// OBSOLETE {
-// OBSOLETE print_387_status_word (ep.pr_fpu.fpu_status);
-// OBSOLETE }
-// OBSOLETE print_387_control_word (ep.pr_fpu.fpu_control);
-// OBSOLETE printf_unfiltered ("last exception: ");
-// OBSOLETE printf_unfiltered ("opcode 0x%x; ", ep.pr_fpu.fpu_rsvd4);
-// OBSOLETE printf_unfiltered ("pc 0x%x:0x%x; ", ep.pr_fpu.fpu_cs, ep.pr_fpu.fpu_ip);
-// OBSOLETE printf_unfiltered ("operand 0x%x:0x%x\n", ep.pr_fpu.fpu_data_offset, ep.pr_fpu.fpu_op_sel);
-// OBSOLETE
-// OBSOLETE top = (ep.pr_fpu.fpu_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.pr_fpu.fpu_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.pr_fpu.fpu_stack[fpreg][i]);
-// OBSOLETE
-// OBSOLETE i387_to_double ((char *) ep.pr_fpu.fpu_stack[fpreg], (char *) &val);
-// OBSOLETE printf_unfiltered (" %g\n", val);
-// OBSOLETE }
-// OBSOLETE if (ep.pr_fpu.fpu_rsvd1)
-// OBSOLETE warning ("rsvd1 is 0x%x\n", ep.pr_fpu.fpu_rsvd1);
-// OBSOLETE if (ep.pr_fpu.fpu_rsvd2)
-// OBSOLETE warning ("rsvd2 is 0x%x\n", ep.pr_fpu.fpu_rsvd2);
-// OBSOLETE if (ep.pr_fpu.fpu_rsvd3)
-// OBSOLETE warning ("rsvd3 is 0x%x\n", ep.pr_fpu.fpu_rsvd3);
-// OBSOLETE if (ep.pr_fpu.fpu_rsvd5)
-// OBSOLETE warning ("rsvd5 is 0x%x\n", ep.pr_fpu.fpu_rsvd5);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE print_1167_control_word (unsigned int pcr)
-// OBSOLETE {
-// OBSOLETE int pcr_tmp;
-// OBSOLETE
-// OBSOLETE pcr_tmp = pcr & FPA_PCR_MODE;
-// OBSOLETE printf_unfiltered ("\tMODE= %#x; RND= %#x ", pcr_tmp, pcr_tmp & 12);
-// OBSOLETE switch (pcr_tmp & 12)
-// OBSOLETE {
-// OBSOLETE case 0:
-// OBSOLETE printf_unfiltered ("RN (Nearest Value)");
-// OBSOLETE break;
-// OBSOLETE case 1:
-// OBSOLETE printf_unfiltered ("RZ (Zero)");
-// OBSOLETE break;
-// OBSOLETE case 2:
-// OBSOLETE printf_unfiltered ("RP (Positive Infinity)");
-// OBSOLETE break;
-// OBSOLETE case 3:
-// OBSOLETE printf_unfiltered ("RM (Negative Infinity)");
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE printf_unfiltered ("; IRND= %d ", pcr_tmp & 2);
-// OBSOLETE if (0 == pcr_tmp & 2)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("(same as RND)\n");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("(toward zero)\n");
-// OBSOLETE }
-// OBSOLETE pcr_tmp = pcr & FPA_PCR_EM;
-// OBSOLETE printf_unfiltered ("\tEM= %#x", pcr_tmp);
-// OBSOLETE if (pcr_tmp & FPA_PCR_EM_DM)
-// OBSOLETE printf_unfiltered (" DM");
-// OBSOLETE if (pcr_tmp & FPA_PCR_EM_UOM)
-// OBSOLETE printf_unfiltered (" UOM");
-// OBSOLETE if (pcr_tmp & FPA_PCR_EM_PM)
-// OBSOLETE printf_unfiltered (" PM");
-// OBSOLETE if (pcr_tmp & FPA_PCR_EM_UM)
-// OBSOLETE printf_unfiltered (" UM");
-// OBSOLETE if (pcr_tmp & FPA_PCR_EM_OM)
-// OBSOLETE printf_unfiltered (" OM");
-// OBSOLETE if (pcr_tmp & FPA_PCR_EM_ZM)
-// OBSOLETE printf_unfiltered (" ZM");
-// OBSOLETE if (pcr_tmp & FPA_PCR_EM_IM)
-// OBSOLETE printf_unfiltered (" IM");
-// OBSOLETE printf_unfiltered ("\n");
-// OBSOLETE pcr_tmp = FPA_PCR_CC;
-// OBSOLETE printf_unfiltered ("\tCC= %#x", pcr_tmp);
-// OBSOLETE if (pcr_tmp & FPA_PCR_20MHZ)
-// OBSOLETE printf_unfiltered (" 20MHZ");
-// OBSOLETE if (pcr_tmp & FPA_PCR_CC_Z)
-// OBSOLETE printf_unfiltered (" Z");
-// OBSOLETE if (pcr_tmp & FPA_PCR_CC_C2)
-// OBSOLETE printf_unfiltered (" C2");
-// OBSOLETE
-// OBSOLETE /* Dynix defines FPA_PCR_CC_C0 to 0x100 and ptx defines
-// OBSOLETE FPA_PCR_CC_C1 to 0x100. Use whichever is defined and assume
-// OBSOLETE the OS knows what it is doing. */
-// OBSOLETE #ifdef FPA_PCR_CC_C1
-// OBSOLETE if (pcr_tmp & FPA_PCR_CC_C1)
-// OBSOLETE printf_unfiltered (" C1");
-// OBSOLETE #else
-// OBSOLETE if (pcr_tmp & FPA_PCR_CC_C0)
-// OBSOLETE printf_unfiltered (" C0");
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE switch (pcr_tmp)
-// OBSOLETE {
-// OBSOLETE case FPA_PCR_CC_Z:
-// OBSOLETE printf_unfiltered (" (Equal)");
-// OBSOLETE break;
-// OBSOLETE #ifdef FPA_PCR_CC_C1
-// OBSOLETE case FPA_PCR_CC_C1:
-// OBSOLETE #else
-// OBSOLETE case FPA_PCR_CC_C0:
-// OBSOLETE #endif
-// OBSOLETE printf_unfiltered (" (Less than)");
-// OBSOLETE break;
-// OBSOLETE case 0:
-// OBSOLETE printf_unfiltered (" (Greater than)");
-// OBSOLETE break;
-// OBSOLETE case FPA_PCR_CC_Z |
-// OBSOLETE #ifdef FPA_PCR_CC_C1
-// OBSOLETE FPA_PCR_CC_C1
-// OBSOLETE #else
-// OBSOLETE FPA_PCR_CC_C0
-// OBSOLETE #endif
-// OBSOLETE | FPA_PCR_CC_C2:
-// OBSOLETE printf_unfiltered (" (Unordered)");
-// OBSOLETE break;
-// OBSOLETE default:
-// OBSOLETE printf_unfiltered (" (Undefined)");
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE printf_unfiltered ("\n");
-// OBSOLETE pcr_tmp = pcr & FPA_PCR_AE;
-// OBSOLETE printf_unfiltered ("\tAE= %#x", pcr_tmp);
-// OBSOLETE if (pcr_tmp & FPA_PCR_AE_DE)
-// OBSOLETE printf_unfiltered (" DE");
-// OBSOLETE if (pcr_tmp & FPA_PCR_AE_UOE)
-// OBSOLETE printf_unfiltered (" UOE");
-// OBSOLETE if (pcr_tmp & FPA_PCR_AE_PE)
-// OBSOLETE printf_unfiltered (" PE");
-// OBSOLETE if (pcr_tmp & FPA_PCR_AE_UE)
-// OBSOLETE printf_unfiltered (" UE");
-// OBSOLETE if (pcr_tmp & FPA_PCR_AE_OE)
-// OBSOLETE printf_unfiltered (" OE");
-// OBSOLETE if (pcr_tmp & FPA_PCR_AE_ZE)
-// OBSOLETE printf_unfiltered (" ZE");
-// OBSOLETE if (pcr_tmp & FPA_PCR_AE_EE)
-// OBSOLETE printf_unfiltered (" EE");
-// OBSOLETE if (pcr_tmp & FPA_PCR_AE_IE)
-// OBSOLETE printf_unfiltered (" IE");
-// OBSOLETE printf_unfiltered ("\n");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE print_1167_regs (long regs[FPA_NREGS])
-// OBSOLETE {
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE union
-// OBSOLETE {
-// OBSOLETE double d;
-// OBSOLETE long l[2];
-// OBSOLETE }
-// OBSOLETE xd;
-// OBSOLETE union
-// OBSOLETE {
-// OBSOLETE float f;
-// OBSOLETE long l;
-// OBSOLETE }
-// OBSOLETE xf;
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE for (i = 0; i < FPA_NREGS; i++)
-// OBSOLETE {
-// OBSOLETE xf.l = regs[i];
-// OBSOLETE printf_unfiltered ("%%fp%d: raw= %#x, single= %f", i + 1, regs[i], xf.f);
-// OBSOLETE if (!(i & 1))
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("\n");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE xd.l[1] = regs[i];
-// OBSOLETE xd.l[0] = regs[i + 1];
-// OBSOLETE printf_unfiltered (", double= %f\n", xd.d);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE print_fpa_status (struct pt_regset ep)
-// OBSOLETE {
-// OBSOLETE
-// OBSOLETE printf_unfiltered ("WTL 1167:");
-// OBSOLETE if (ep.pr_fpa.fpa_pcr != 0)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("\n");
-// OBSOLETE print_1167_control_word (ep.pr_fpa.fpa_pcr);
-// OBSOLETE print_1167_regs (ep.pr_fpa.fpa_regs);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE printf_unfiltered (" not in use.\n");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #if 0 /* disabled because it doesn't go through the target vector. */
-// OBSOLETE i386_float_info (void)
-// OBSOLETE {
-// OBSOLETE char ubuf[UPAGES * NBPG];
-// OBSOLETE struct pt_regset regset;
-// OBSOLETE
-// OBSOLETE if (have_inferior_p ())
-// OBSOLETE {
-// OBSOLETE PTRACE_READ_REGS (PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) & regset);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE int corechan = bfd_cache_lookup (core_bfd);
-// OBSOLETE if (lseek (corechan, 0, 0) < 0)
-// OBSOLETE {
-// OBSOLETE perror ("seek on core file");
-// OBSOLETE }
-// OBSOLETE if (myread (corechan, ubuf, UPAGES * NBPG) < 0)
-// OBSOLETE {
-// OBSOLETE perror ("read on core file");
-// OBSOLETE }
-// OBSOLETE /* only interested in the floating point registers */
-// OBSOLETE regset.pr_fpu = ((struct user *) ubuf)->u_fpusave;
-// OBSOLETE regset.pr_fpa = ((struct user *) ubuf)->u_fpasave;
-// OBSOLETE }
-// OBSOLETE print_fpu_status (regset);
-// OBSOLETE print_fpa_status (regset);
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE static volatile int got_sigchld;
-// OBSOLETE
-// OBSOLETE /*ARGSUSED */
-// OBSOLETE /* This will eventually be more interesting. */
-// OBSOLETE void
-// OBSOLETE sigchld_handler (int signo)
-// OBSOLETE {
-// OBSOLETE got_sigchld++;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Signals for which the default action does not cause the process
-// OBSOLETE * to die. See <sys/signal.h> for where this came from (alas, we
-// OBSOLETE * can't use those macros directly)
-// OBSOLETE */
-// OBSOLETE #ifndef sigmask
-// OBSOLETE #define sigmask(s) (1 << ((s) - 1))
-// OBSOLETE #endif
-// OBSOLETE #define SIGNALS_DFL_SAFE sigmask(SIGSTOP) | sigmask(SIGTSTP) | \
-// OBSOLETE sigmask(SIGTTIN) | sigmask(SIGTTOU) | sigmask(SIGCHLD) | \
-// OBSOLETE sigmask(SIGCONT) | sigmask(SIGWINCH) | sigmask(SIGPWR) | \
-// OBSOLETE sigmask(SIGURG) | sigmask(SIGPOLL)
-// OBSOLETE
-// OBSOLETE #ifdef ATTACH_DETACH
-// OBSOLETE /*
-// OBSOLETE * Thanks to XPT_MPDEBUGGER, we have to mange child_wait().
-// OBSOLETE */
-// OBSOLETE ptid_t
-// OBSOLETE child_wait (ptid_t ptid, struct target_waitstatus *status)
-// OBSOLETE {
-// OBSOLETE int save_errno, rv, xvaloff, saoff, sa_hand;
-// OBSOLETE struct pt_stop pt;
-// OBSOLETE struct user u;
-// OBSOLETE sigset_t set;
-// OBSOLETE /* Host signal number for a signal which the inferior terminates with, or
-// OBSOLETE 0 if it hasn't terminated due to a signal. */
-// OBSOLETE static int death_by_signal = 0;
-// OBSOLETE #ifdef SVR4_SHARED_LIBS /* use this to distinguish ptx 2 vs ptx 4 */
-// OBSOLETE prstatus_t pstatus;
-// OBSOLETE #endif
-// OBSOLETE int pid = PIDGET (ptid);
-// OBSOLETE
-// OBSOLETE do
-// OBSOLETE {
-// OBSOLETE set_sigint_trap (); /* Causes SIGINT to be passed on to the
-// OBSOLETE attached process. */
-// OBSOLETE save_errno = errno;
-// OBSOLETE
-// OBSOLETE got_sigchld = 0;
-// OBSOLETE
-// OBSOLETE sigemptyset (&set);
-// OBSOLETE
-// OBSOLETE while (got_sigchld == 0)
-// OBSOLETE {
-// OBSOLETE sigsuspend (&set);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE clear_sigint_trap ();
-// OBSOLETE
-// OBSOLETE rv = mptrace (XPT_STOPSTAT, 0, (char *) &pt, 0);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE printf ("XPT_STOPSTAT: errno %d\n", errno); /* DEBUG */
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE pid = pt.ps_pid;
-// OBSOLETE
-// OBSOLETE if (pid != PIDGET (inferior_ptid))
-// OBSOLETE {
-// OBSOLETE /* NOTE: the mystery fork in csh/tcsh needs to be ignored.
-// OBSOLETE * We should not return new children for the initial run
-// OBSOLETE * of a process until it has done the exec.
-// OBSOLETE */
-// OBSOLETE /* inferior probably forked; send it on its way */
-// OBSOLETE rv = mptrace (XPT_UNDEBUG, pid, 0, 0);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE printf ("child_wait: XPT_UNDEBUG: pid %d: %s\n", pid,
-// OBSOLETE safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE /* FIXME: Do we deal with fork notification correctly? */
-// OBSOLETE switch (pt.ps_reason)
-// OBSOLETE {
-// OBSOLETE case PTS_FORK:
-// OBSOLETE /* multi proc: treat like PTS_EXEC */
-// OBSOLETE /*
-// OBSOLETE * Pretend this didn't happen, since gdb isn't set up
-// OBSOLETE * to deal with stops on fork.
-// OBSOLETE */
-// OBSOLETE rv = ptrace (PT_CONTSIG, pid, 1, 0);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE printf ("PTS_FORK: PT_CONTSIG: error %d\n", errno);
-// OBSOLETE }
-// OBSOLETE continue;
-// OBSOLETE case PTS_EXEC:
-// OBSOLETE /*
-// OBSOLETE * Pretend this is a SIGTRAP.
-// OBSOLETE */
-// OBSOLETE status->kind = TARGET_WAITKIND_STOPPED;
-// OBSOLETE status->value.sig = TARGET_SIGNAL_TRAP;
-// OBSOLETE break;
-// OBSOLETE case PTS_EXIT:
-// OBSOLETE /*
-// OBSOLETE * Note: we stop before the exit actually occurs. Extract
-// OBSOLETE * the exit code from the uarea. If we're stopped in the
-// OBSOLETE * exit() system call, the exit code will be in
-// OBSOLETE * u.u_ap[0]. An exit due to an uncaught signal will have
-// OBSOLETE * something else in here, see the comment in the default:
-// OBSOLETE * case, below. Finally,let the process exit.
-// OBSOLETE */
-// OBSOLETE if (death_by_signal)
-// OBSOLETE {
-// OBSOLETE status->kind = TARGET_WAITKIND_SIGNALED;
-// OBSOLETE status->value.sig = target_signal_from_host (death_by_signal);
-// OBSOLETE death_by_signal = 0;
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE xvaloff = (unsigned long) &u.u_ap[0] - (unsigned long) &u;
-// OBSOLETE errno = 0;
-// OBSOLETE rv = ptrace (PT_RUSER, pid, (char *) xvaloff, 0);
-// OBSOLETE status->kind = TARGET_WAITKIND_EXITED;
-// OBSOLETE status->value.integer = rv;
-// OBSOLETE /*
-// OBSOLETE * addr & data to mptrace() don't matter here, since
-// OBSOLETE * the process is already dead.
-// OBSOLETE */
-// OBSOLETE rv = mptrace (XPT_UNDEBUG, pid, 0, 0);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE printf ("child_wait: PTS_EXIT: XPT_UNDEBUG: pid %d error %d\n", pid,
-// OBSOLETE errno);
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE case PTS_WATCHPT_HIT:
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "PTS_WATCHPT_HIT\n");
-// OBSOLETE break;
-// OBSOLETE default:
-// OBSOLETE /* stopped by signal */
-// OBSOLETE status->kind = TARGET_WAITKIND_STOPPED;
-// OBSOLETE status->value.sig = target_signal_from_host (pt.ps_reason);
-// OBSOLETE death_by_signal = 0;
-// OBSOLETE
-// OBSOLETE if (0 == (SIGNALS_DFL_SAFE & sigmask (pt.ps_reason)))
-// OBSOLETE {
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE /* else default action of signal is to die */
-// OBSOLETE #ifdef SVR4_SHARED_LIBS
-// OBSOLETE rv = ptrace (PT_GET_PRSTATUS, pid, (char *) &pstatus, 0);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE error ("child_wait: signal %d PT_GET_PRSTATUS: %s\n",
-// OBSOLETE pt.ps_reason, safe_strerror (errno));
-// OBSOLETE if (pstatus.pr_cursig != pt.ps_reason)
-// OBSOLETE {
-// OBSOLETE printf ("pstatus signal %d, pt signal %d\n",
-// OBSOLETE pstatus.pr_cursig, pt.ps_reason);
-// OBSOLETE }
-// OBSOLETE sa_hand = (int) pstatus.pr_action.sa_handler;
-// OBSOLETE #else
-// OBSOLETE saoff = (unsigned long) &u.u_sa[0] - (unsigned long) &u;
-// OBSOLETE saoff += sizeof (struct sigaction) * (pt.ps_reason - 1);
-// OBSOLETE errno = 0;
-// OBSOLETE sa_hand = ptrace (PT_RUSER, pid, (char *) saoff, 0);
-// OBSOLETE if (errno)
-// OBSOLETE error ("child_wait: signal %d: RUSER: %s\n",
-// OBSOLETE pt.ps_reason, safe_strerror (errno));
-// OBSOLETE #endif
-// OBSOLETE if ((int) SIG_DFL == sa_hand)
-// OBSOLETE {
-// OBSOLETE /* we will be dying */
-// OBSOLETE death_by_signal = pt.ps_reason;
-// OBSOLETE }
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE }
-// OBSOLETE while (pid != PIDGET (inferior_ptid)); /* Some other child died or stopped */
-// OBSOLETE
-// OBSOLETE return pid_to_ptid (pid);
-// OBSOLETE }
-// OBSOLETE #else /* !ATTACH_DETACH */
-// OBSOLETE /*
-// OBSOLETE * Simple child_wait() based on inftarg.c child_wait() for use until
-// OBSOLETE * the MPDEBUGGER child_wait() works properly. This will go away when
-// OBSOLETE * that is fixed.
-// OBSOLETE */
-// OBSOLETE ptid_t
-// OBSOLETE child_wait (ptid_t ptid, struct target_waitstatus *ourstatus)
-// OBSOLETE {
-// OBSOLETE int save_errno;
-// OBSOLETE int status;
-// OBSOLETE int pid = PIDGET (ptid);
-// OBSOLETE
-// OBSOLETE do
-// OBSOLETE {
-// OBSOLETE pid = wait (&status);
-// OBSOLETE save_errno = errno;
-// OBSOLETE
-// OBSOLETE if (pid == -1)
-// OBSOLETE {
-// OBSOLETE if (save_errno == EINTR)
-// OBSOLETE continue;
-// OBSOLETE fprintf (stderr, "Child process unexpectedly missing: %s.\n",
-// OBSOLETE safe_strerror (save_errno));
-// OBSOLETE ourstatus->kind = TARGET_WAITKIND_SIGNALLED;
-// OBSOLETE ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN;
-// OBSOLETE return pid_to_ptid (-1);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE while (pid != PIDGET (inferior_ptid)); /* Some other child died or stopped */
-// OBSOLETE store_waitstatus (ourstatus, status);
-// OBSOLETE return pid_to_ptid (pid);
-// OBSOLETE }
-// OBSOLETE #endif /* ATTACH_DETACH */
-// OBSOLETE \f
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE /* This function simply calls ptrace with the given arguments.
-// OBSOLETE It exists so that all calls to ptrace are isolated in this
-// OBSOLETE machine-dependent file. */
-// OBSOLETE int
-// OBSOLETE call_ptrace (int request, int pid, PTRACE_ARG3_TYPE addr, int data)
-// OBSOLETE {
-// OBSOLETE return ptrace (request, pid, addr, data);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE call_mptrace (int request, int pid, PTRACE_ARG3_TYPE addr, int data)
-// OBSOLETE {
-// OBSOLETE return mptrace (request, pid, addr, data);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #if defined (DEBUG_PTRACE)
-// OBSOLETE /* For the rest of the file, use an extra level of indirection */
-// OBSOLETE /* This lets us breakpoint usefully on call_ptrace. */
-// OBSOLETE #define ptrace call_ptrace
-// OBSOLETE #define mptrace call_mptrace
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE kill_inferior (void)
-// OBSOLETE {
-// OBSOLETE if (ptid_equal (inferior_ptid, null_ptid))
-// OBSOLETE return;
-// OBSOLETE
-// OBSOLETE /* For MPDEBUGGER, don't use PT_KILL, since the child will stop
-// OBSOLETE again with a PTS_EXIT. Just hit him with SIGKILL (so he stops)
-// OBSOLETE and detach. */
-// OBSOLETE
-// OBSOLETE kill (PIDGET (inferior_ptid), SIGKILL);
-// OBSOLETE #ifdef ATTACH_DETACH
-// OBSOLETE detach (SIGKILL);
-// OBSOLETE #else /* ATTACH_DETACH */
-// OBSOLETE ptrace (PT_KILL, PIDGET (inferior_ptid), 0, 0);
-// OBSOLETE wait ((int *) NULL);
-// OBSOLETE #endif /* ATTACH_DETACH */
-// OBSOLETE target_mourn_inferior ();
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Resume execution of the inferior process.
-// OBSOLETE If STEP is nonzero, single-step it.
-// OBSOLETE If SIGNAL is nonzero, give it that signal. */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE child_resume (ptid_t ptid, int step, enum target_signal signal)
-// OBSOLETE {
-// OBSOLETE int pid = PIDGET (ptid);
-// OBSOLETE
-// OBSOLETE errno = 0;
-// OBSOLETE
-// OBSOLETE if (pid == -1)
-// OBSOLETE pid = PIDGET (inferior_ptid);
-// OBSOLETE
-// OBSOLETE /* An address of (PTRACE_ARG3_TYPE)1 tells ptrace to continue from where
-// OBSOLETE it was. (If GDB wanted it to start some other way, we have already
-// OBSOLETE written a new PC value to the child.)
-// OBSOLETE
-// OBSOLETE If this system does not support PT_SSTEP, a higher level function will
-// OBSOLETE have called single_step() to transmute the step request into a
-// OBSOLETE continue request (by setting breakpoints on all possible successor
-// OBSOLETE instructions), so we don't have to worry about that here. */
-// OBSOLETE
-// OBSOLETE if (step)
-// OBSOLETE ptrace (PT_SSTEP, pid, (PTRACE_ARG3_TYPE) 1, signal);
-// OBSOLETE else
-// OBSOLETE ptrace (PT_CONTSIG, pid, (PTRACE_ARG3_TYPE) 1, signal);
-// OBSOLETE
-// OBSOLETE if (errno)
-// OBSOLETE perror_with_name ("ptrace");
-// OBSOLETE }
-// OBSOLETE \f
-// OBSOLETE #ifdef ATTACH_DETACH
-// OBSOLETE /* Start debugging the process whose number is PID. */
-// OBSOLETE int
-// OBSOLETE attach (int pid)
-// OBSOLETE {
-// OBSOLETE sigset_t set;
-// OBSOLETE int rv;
-// OBSOLETE
-// OBSOLETE rv = mptrace (XPT_DEBUG, pid, 0, 0);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE error ("mptrace(XPT_DEBUG): %s", safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE rv = mptrace (XPT_SIGNAL, pid, 0, SIGSTOP);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE error ("mptrace(XPT_SIGNAL): %s", safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE attach_flag = 1;
-// OBSOLETE return pid;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE detach (int signo)
-// OBSOLETE {
-// OBSOLETE int rv;
-// OBSOLETE
-// OBSOLETE rv = mptrace (XPT_UNDEBUG, PIDGET (inferior_ptid), 1, signo);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE error ("mptrace(XPT_UNDEBUG): %s", safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE attach_flag = 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #endif /* ATTACH_DETACH */
-// OBSOLETE \f
-// OBSOLETE /* Default the type of the ptrace transfer to int. */
-// OBSOLETE #ifndef PTRACE_XFER_TYPE
-// OBSOLETE #define PTRACE_XFER_TYPE int
-// OBSOLETE #endif
-// OBSOLETE \f
-// OBSOLETE
-// OBSOLETE /* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory
-// OBSOLETE in the NEW_SUN_PTRACE case.
-// OBSOLETE It ought to be straightforward. But it appears that writing did
-// OBSOLETE not write the data that I specified. I cannot understand where
-// OBSOLETE it got the data that it actually did write. */
-// 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 WRITE is nonzero. TARGET is ignored.
-// OBSOLETE
-// OBSOLETE Returns the length copied, which is either the LEN argument or zero.
-// OBSOLETE This xfer function does not do partial moves, since child_ops
-// OBSOLETE doesn't allow memory operations to cross below us in the target stack
-// OBSOLETE anyway. */
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE child_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int write,
-// OBSOLETE struct mem_attrib *attrib,
-// OBSOLETE struct target_ops *target)
-// OBSOLETE {
-// OBSOLETE register int i;
-// OBSOLETE /* Round starting address down to longword boundary. */
-// OBSOLETE register CORE_ADDR addr = memaddr & -(CORE_ADDR) sizeof (PTRACE_XFER_TYPE);
-// OBSOLETE /* Round ending address up; get number of longwords that makes. */
-// OBSOLETE register int count
-// OBSOLETE = (((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1)
-// OBSOLETE / sizeof (PTRACE_XFER_TYPE);
-// OBSOLETE /* Allocate buffer of that many longwords. */
-// OBSOLETE /* FIXME (alloca): This code, cloned from infptrace.c, is unsafe
-// OBSOLETE because it uses alloca to allocate a buffer of arbitrary size.
-// OBSOLETE For very large xfers, this could crash GDB's stack. */
-// OBSOLETE register PTRACE_XFER_TYPE *buffer
-// OBSOLETE = (PTRACE_XFER_TYPE *) alloca (count * sizeof (PTRACE_XFER_TYPE));
-// OBSOLETE
-// OBSOLETE if (write)
-// OBSOLETE {
-// OBSOLETE /* Fill start and end extra bytes of buffer with existing memory data. */
-// OBSOLETE
-// OBSOLETE if (addr != memaddr || len < (int) sizeof (PTRACE_XFER_TYPE))
-// OBSOLETE {
-// OBSOLETE /* Need part of initial word -- fetch it. */
-// OBSOLETE buffer[0] = ptrace (PT_RTEXT, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) addr,
-// OBSOLETE 0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (count > 1) /* FIXME, avoid if even boundary */
-// OBSOLETE {
-// OBSOLETE buffer[count - 1]
-// OBSOLETE = ptrace (PT_RTEXT, PIDGET (inferior_ptid),
-// OBSOLETE ((PTRACE_ARG3_TYPE)
-// OBSOLETE (addr + (count - 1) * sizeof (PTRACE_XFER_TYPE))),
-// OBSOLETE 0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Copy data to be written over corresponding part of buffer */
-// OBSOLETE
-// OBSOLETE memcpy ((char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)),
-// OBSOLETE myaddr,
-// OBSOLETE len);
-// OBSOLETE
-// OBSOLETE /* Write the entire buffer. */
-// OBSOLETE
-// OBSOLETE for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE))
-// OBSOLETE {
-// OBSOLETE errno = 0;
-// OBSOLETE ptrace (PT_WDATA, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) addr,
-// OBSOLETE buffer[i]);
-// OBSOLETE if (errno)
-// OBSOLETE {
-// OBSOLETE /* Using the appropriate one (I or D) is necessary for
-// OBSOLETE Gould NP1, at least. */
-// OBSOLETE errno = 0;
-// OBSOLETE ptrace (PT_WTEXT, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) addr,
-// OBSOLETE buffer[i]);
-// OBSOLETE }
-// OBSOLETE if (errno)
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* Read all the longwords */
-// OBSOLETE for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE))
-// OBSOLETE {
-// OBSOLETE errno = 0;
-// OBSOLETE buffer[i] = ptrace (PT_RTEXT, PIDGET (inferior_ptid),
-// OBSOLETE (PTRACE_ARG3_TYPE) addr, 0);
-// OBSOLETE if (errno)
-// OBSOLETE return 0;
-// OBSOLETE QUIT;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Copy appropriate bytes out of the buffer. */
-// OBSOLETE memcpy (myaddr,
-// OBSOLETE (char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)),
-// OBSOLETE len);
-// OBSOLETE }
-// OBSOLETE return len;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE _initialize_symm_nat (void)
-// OBSOLETE {
-// OBSOLETE #ifdef ATTACH_DETACH
-// OBSOLETE /*
-// OBSOLETE * the MPDEBUGGER is necessary for process tree debugging and attach
-// OBSOLETE * to work, but it alters the behavior of debugged processes, so other
-// OBSOLETE * things (at least child_wait()) will have to change to accomodate
-// OBSOLETE * that.
-// OBSOLETE *
-// OBSOLETE * Note that attach is not implemented in dynix 3, and not in ptx
-// OBSOLETE * until version 2.1 of the OS.
-// OBSOLETE */
-// OBSOLETE int rv;
-// OBSOLETE sigset_t set;
-// OBSOLETE struct sigaction sact;
-// OBSOLETE
-// OBSOLETE rv = mptrace (XPT_MPDEBUGGER, 0, 0, 0);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "_initialize_symm_nat(): mptrace(XPT_MPDEBUGGER): %s",
-// OBSOLETE safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Under MPDEBUGGER, we get SIGCLHD when a traced process does
-// OBSOLETE * anything of interest.
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE /*
-// OBSOLETE * Block SIGCHLD. We leave it blocked all the time, and then
-// OBSOLETE * call sigsuspend() in child_wait() to wait for the child
-// OBSOLETE * to do something. None of these ought to fail, but check anyway.
-// OBSOLETE */
-// OBSOLETE sigemptyset (&set);
-// OBSOLETE rv = sigaddset (&set, SIGCHLD);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "_initialize_symm_nat(): sigaddset(SIGCHLD): %s",
-// OBSOLETE safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE rv = sigprocmask (SIG_BLOCK, &set, (sigset_t *) NULL);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "_initialize_symm_nat(): sigprocmask(SIG_BLOCK): %s",
-// OBSOLETE safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE sact.sa_handler = sigchld_handler;
-// OBSOLETE sigemptyset (&sact.sa_mask);
-// OBSOLETE sact.sa_flags = SA_NOCLDWAIT; /* keep the zombies away */
-// OBSOLETE rv = sigaction (SIGCHLD, &sact, (struct sigaction *) NULL);
-// OBSOLETE if (-1 == rv)
-// OBSOLETE {
-// OBSOLETE internal_error (__FILE__, __LINE__,
-// OBSOLETE "_initialize_symm_nat(): sigaction(SIGCHLD): %s",
-// OBSOLETE safe_strerror (errno));
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /* Sequent Symmetry target interface, for GDB.
-// OBSOLETE Copyright 1986, 1987, 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 /* many 387-specific items of use taken from i386-dep.c */
-// OBSOLETE
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "inferior.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE
-// OBSOLETE #include <signal.h>
-// OBSOLETE #include <sys/param.h>
-// OBSOLETE #include <sys/user.h>
-// OBSOLETE #include <sys/dir.h>
-// OBSOLETE #include <sys/ioctl.h>
-// OBSOLETE #include "gdb_stat.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include <fcntl.h>
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE symmetry_extract_return_value (struct type *type, char *regbuf, char *valbuf)
-// OBSOLETE {
-// OBSOLETE union
-// OBSOLETE {
-// OBSOLETE double d;
-// OBSOLETE int l[2];
-// OBSOLETE }
-// OBSOLETE xd;
-// OBSOLETE struct minimal_symbol *msymbol;
-// OBSOLETE float f;
-// OBSOLETE
-// OBSOLETE if (TYPE_CODE_FLT == TYPE_CODE (type))
-// OBSOLETE {
-// OBSOLETE msymbol = lookup_minimal_symbol ("1167_flt", NULL, NULL);
-// OBSOLETE if (msymbol != NULL)
-// OBSOLETE {
-// OBSOLETE /* found "1167_flt" means 1167, %fp2-%fp3 */
-// OBSOLETE /* float & double; 19= %fp2, 20= %fp3 */
-// OBSOLETE /* no single precision on 1167 */
-// OBSOLETE xd.l[1] = *((int *) ®buf[REGISTER_BYTE (19)]);
-// OBSOLETE xd.l[0] = *((int *) ®buf[REGISTER_BYTE (20)]);
-// OBSOLETE switch (TYPE_LENGTH (type))
-// OBSOLETE {
-// OBSOLETE case 4:
-// OBSOLETE /* FIXME: broken for cross-debugging. */
-// OBSOLETE f = (float) xd.d;
-// OBSOLETE memcpy (valbuf, &f, TYPE_LENGTH (type));
-// OBSOLETE break;
-// OBSOLETE case 8:
-// OBSOLETE /* FIXME: broken for cross-debugging. */
-// OBSOLETE memcpy (valbuf, &xd.d, TYPE_LENGTH (type));
-// OBSOLETE break;
-// OBSOLETE default:
-// OBSOLETE error ("Unknown floating point size");
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* 387 %st(0), gcc uses this */
-// OBSOLETE i387_to_double (((int *) ®buf[REGISTER_BYTE (3)]),
-// OBSOLETE &xd.d);
-// OBSOLETE switch (TYPE_LENGTH (type))
-// OBSOLETE {
-// OBSOLETE case 4: /* float */
-// OBSOLETE f = (float) xd.d;
-// OBSOLETE /* FIXME: broken for cross-debugging. */
-// OBSOLETE memcpy (valbuf, &f, 4);
-// OBSOLETE break;
-// OBSOLETE case 8: /* double */
-// OBSOLETE /* FIXME: broken for cross-debugging. */
-// OBSOLETE memcpy (valbuf, &xd.d, 8);
-// OBSOLETE break;
-// OBSOLETE default:
-// OBSOLETE error ("Unknown floating point size");
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE memcpy (valbuf, regbuf, TYPE_LENGTH (type));
-// OBSOLETE }
-// OBSOLETE }
+++ /dev/null
-// OBSOLETE /* Target-machine dependent code for Zilog Z8000, for GDB.
-// OBSOLETE
-// OBSOLETE Copyright 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-// OBSOLETE 2002, 2003 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 Contributed by Steve Chamberlain
-// OBSOLETE sac@cygnus.com
-// OBSOLETE */
-// OBSOLETE
-// OBSOLETE #include "defs.h"
-// OBSOLETE #include "frame.h"
-// OBSOLETE #include "symtab.h"
-// OBSOLETE #include "gdbcmd.h"
-// OBSOLETE #include "gdbtypes.h"
-// OBSOLETE #include "dis-asm.h"
-// OBSOLETE #include "gdbcore.h"
-// OBSOLETE #include "regcache.h"
-// OBSOLETE
-// OBSOLETE #include "value.h" /* For read_register() */
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE static int read_memory_pointer (CORE_ADDR x);
-// 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 z8k_frame_saved_pc (struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE return read_memory_pointer (frame->frame + (BIG ? 4 : 2));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #define IS_PUSHL(x) (BIG ? ((x & 0xfff0) == 0x91e0):((x & 0xfff0) == 0x91F0))
-// OBSOLETE #define IS_PUSHW(x) (BIG ? ((x & 0xfff0) == 0x93e0):((x & 0xfff0)==0x93f0))
-// OBSOLETE #define IS_MOVE_FP(x) (BIG ? x == 0xa1ea : x == 0xa1fa)
-// OBSOLETE #define IS_MOV_SP_FP(x) (BIG ? x == 0x94ea : x == 0x0d76)
-// OBSOLETE #define IS_SUB2_SP(x) (x==0x1b87)
-// OBSOLETE #define IS_MOVK_R5(x) (x==0x7905)
-// OBSOLETE #define IS_SUB_SP(x) ((x & 0xffff) == 0x020f)
-// OBSOLETE #define IS_PUSH_FP(x) (BIG ? (x == 0x93ea) : (x == 0x93fa))
-// OBSOLETE
-// OBSOLETE /* work out how much local space is on the stack and
-// OBSOLETE return the pc pointing to the first push */
-// OBSOLETE
-// OBSOLETE static CORE_ADDR
-// OBSOLETE skip_adjust (CORE_ADDR pc, int *size)
-// OBSOLETE {
-// OBSOLETE *size = 0;
-// OBSOLETE
-// OBSOLETE if (IS_PUSH_FP (read_memory_short (pc))
-// OBSOLETE && IS_MOV_SP_FP (read_memory_short (pc + 2)))
-// OBSOLETE {
-// OBSOLETE /* This is a function with an explict frame pointer */
-// OBSOLETE pc += 4;
-// OBSOLETE *size += 2; /* remember the frame pointer */
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* remember any stack adjustment */
-// OBSOLETE if (IS_SUB_SP (read_memory_short (pc)))
-// OBSOLETE {
-// OBSOLETE *size += read_memory_short (pc + 2);
-// OBSOLETE pc += 4;
-// OBSOLETE }
-// OBSOLETE return pc;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static CORE_ADDR examine_frame (CORE_ADDR, CORE_ADDR * regs, CORE_ADDR);
-// OBSOLETE static CORE_ADDR
-// OBSOLETE examine_frame (CORE_ADDR pc, CORE_ADDR *regs, CORE_ADDR sp)
-// OBSOLETE {
-// OBSOLETE int w = read_memory_short (pc);
-// OBSOLETE int offset = 0;
-// OBSOLETE int regno;
-// OBSOLETE
-// OBSOLETE for (regno = 0; regno < NUM_REGS; regno++)
-// OBSOLETE regs[regno] = 0;
-// OBSOLETE
-// OBSOLETE while (IS_PUSHW (w) || IS_PUSHL (w))
-// OBSOLETE {
-// OBSOLETE /* work out which register is being pushed to where */
-// OBSOLETE if (IS_PUSHL (w))
-// OBSOLETE {
-// OBSOLETE regs[w & 0xf] = offset;
-// OBSOLETE regs[(w & 0xf) + 1] = offset + 2;
-// OBSOLETE offset += 4;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE regs[w & 0xf] = offset;
-// OBSOLETE offset += 2;
-// OBSOLETE }
-// OBSOLETE pc += 2;
-// OBSOLETE w = read_memory_short (pc);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if (IS_MOVE_FP (w))
-// OBSOLETE {
-// OBSOLETE /* We know the fp */
-// OBSOLETE
-// OBSOLETE }
-// OBSOLETE else if (IS_SUB_SP (w))
-// OBSOLETE {
-// OBSOLETE /* Subtracting a value from the sp, so were in a function
-// OBSOLETE which needs stack space for locals, but has no fp. We fake up
-// OBSOLETE the values as if we had an fp */
-// OBSOLETE regs[FP_REGNUM] = sp;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* This one didn't have an fp, we'll fake it up */
-// OBSOLETE regs[SP_REGNUM] = sp;
-// OBSOLETE }
-// OBSOLETE /* stack pointer contains address of next frame */
-// OBSOLETE /* regs[fp_regnum()] = fp; */
-// OBSOLETE regs[SP_REGNUM] = sp;
-// OBSOLETE return pc;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE z8k_skip_prologue (CORE_ADDR start_pc)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR dummy[NUM_REGS];
-// OBSOLETE
-// OBSOLETE return examine_frame (start_pc, dummy, 0);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE z8k_addr_bits_remove (CORE_ADDR addr)
-// OBSOLETE {
-// OBSOLETE return (addr & PTR_MASK);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static int
-// OBSOLETE read_memory_pointer (CORE_ADDR x)
-// OBSOLETE {
-// OBSOLETE return read_memory_integer (ADDR_BITS_REMOVE (x), BIG ? 4 : 2);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE CORE_ADDR
-// OBSOLETE z8k_frame_chain (struct frame_info *thisframe)
-// OBSOLETE {
-// OBSOLETE if (!inside_entry_file (get_frame_pc (thisframe)))
-// OBSOLETE {
-// OBSOLETE return read_memory_pointer (thisframe->frame);
-// OBSOLETE }
-// OBSOLETE return 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 void
-// OBSOLETE z8k_frame_init_saved_regs (struct frame_info *frame_info)
-// OBSOLETE {
-// OBSOLETE CORE_ADDR pc;
-// OBSOLETE int w;
-// OBSOLETE
-// OBSOLETE frame_saved_regs_zalloc (frame_info);
-// OBSOLETE pc = get_pc_function_start (get_frame_pc (frame_info));
-// OBSOLETE
-// OBSOLETE /* wander down the instruction stream */
-// OBSOLETE examine_frame (pc, frame_info->saved_regs, frame_info->frame);
-// OBSOLETE
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE z8k_push_dummy_frame (void)
-// OBSOLETE {
-// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check");
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE gdb_print_insn_z8k (bfd_vma memaddr, disassemble_info *info)
-// OBSOLETE {
-// OBSOLETE if (BIG)
-// OBSOLETE return print_insn_z8001 (memaddr, info);
-// OBSOLETE else
-// OBSOLETE return print_insn_z8002 (memaddr, info);
-// 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 CORE_ADDR
-// OBSOLETE NEXT_PROLOGUE_INSN (CORE_ADDR addr, CORE_ADDR lim, short *pword1)
-// OBSOLETE {
-// OBSOLETE char buf[2];
-// OBSOLETE if (addr < lim + 8)
-// OBSOLETE {
-// OBSOLETE read_memory (addr, buf, 2);
-// OBSOLETE *pword1 = extract_signed_integer (buf, 2);
-// OBSOLETE
-// OBSOLETE return addr + 2;
-// OBSOLETE }
-// OBSOLETE return 0;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE #if 0
-// 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_cache_obstack, since
-// OBSOLETE it is fairly expensive. */
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE frame_find_saved_regs (struct frame_info *fip, struct frame_saved_regs *fsrp)
-// OBSOLETE {
-// OBSOLETE int locals;
-// OBSOLETE CORE_ADDR pc;
-// OBSOLETE CORE_ADDR adr;
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE memset (fsrp, 0, sizeof *fsrp);
-// OBSOLETE
-// OBSOLETE pc = skip_adjust (get_pc_function_start (get_frame_pc (fip)), &locals);
-// OBSOLETE
-// OBSOLETE {
-// OBSOLETE adr = get_frame_base (fip) - locals;
-// OBSOLETE for (i = 0; i < 8; i++)
-// OBSOLETE {
-// OBSOLETE int word = read_memory_short (pc);
-// OBSOLETE
-// OBSOLETE pc += 2;
-// OBSOLETE if (IS_PUSHL (word))
-// OBSOLETE {
-// OBSOLETE fsrp->regs[word & 0xf] = adr;
-// OBSOLETE fsrp->regs[(word & 0xf) + 1] = adr - 2;
-// OBSOLETE adr -= 4;
-// OBSOLETE }
-// OBSOLETE else if (IS_PUSHW (word))
-// OBSOLETE {
-// OBSOLETE fsrp->regs[word & 0xf] = adr;
-// OBSOLETE adr -= 2;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE break;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE fsrp->regs[PC_REGNUM] = fip->frame + 4;
-// OBSOLETE fsrp->regs[FP_REGNUM] = fip->frame;
-// OBSOLETE
-// OBSOLETE }
-// OBSOLETE #endif
-// OBSOLETE
-// OBSOLETE int
-// OBSOLETE z8k_saved_pc_after_call (struct frame_info *frame)
-// OBSOLETE {
-// OBSOLETE return ADDR_BITS_REMOVE
-// OBSOLETE (read_memory_integer (read_register (SP_REGNUM), PTR_SIZE));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE extract_return_value (struct type *type, char *regbuf, char *valbuf)
-// OBSOLETE {
-// OBSOLETE int b;
-// OBSOLETE int len = TYPE_LENGTH (type);
-// OBSOLETE
-// OBSOLETE for (b = 0; b < len; b += 2)
-// OBSOLETE {
-// OBSOLETE int todo = len - b;
-// OBSOLETE
-// OBSOLETE if (todo > 2)
-// OBSOLETE todo = 2;
-// OBSOLETE memcpy (valbuf + b, regbuf + b, todo);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE write_return_value (struct type *type, char *valbuf)
-// OBSOLETE {
-// OBSOLETE int reg;
-// OBSOLETE int len;
-// OBSOLETE
-// OBSOLETE for (len = 0; len < TYPE_LENGTH (type); len += 2)
-// OBSOLETE deprecated_write_register_bytes (REGISTER_BYTE (len / 2 + 2),
-// OBSOLETE valbuf + len, 2);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE store_struct_return (CORE_ADDR addr, CORE_ADDR sp)
-// OBSOLETE {
-// OBSOLETE write_register (2, addr);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE z8k_print_register_hook (int regno)
-// OBSOLETE {
-// OBSOLETE if ((regno & 1) == 0 && regno < 16)
-// OBSOLETE {
-// OBSOLETE unsigned char l[4];
-// OBSOLETE
-// OBSOLETE frame_register_read (deprecated_selected_frame, regno, l + 0);
-// OBSOLETE frame_register_read (deprecated_selected_frame, regno + 1, l + 2);
-// OBSOLETE printf_unfiltered ("\t");
-// OBSOLETE printf_unfiltered ("0x%02x%02x%02x%02x", l[0], l[1], l[2], l[3]);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE if ((regno & 3) == 0 && regno < 16)
-// OBSOLETE {
-// OBSOLETE unsigned char l[8];
-// OBSOLETE
-// OBSOLETE frame_register_read (deprecated_selected_frame, regno, l + 0);
-// OBSOLETE frame_register_read (deprecated_selected_frame, regno + 1, l + 2);
-// OBSOLETE frame_register_read (deprecated_selected_frame, regno + 2, l + 4);
-// OBSOLETE frame_register_read (deprecated_selected_frame, regno + 3, l + 6);
-// OBSOLETE
-// OBSOLETE printf_unfiltered ("\t");
-// OBSOLETE printf_unfiltered ("0x%02x%02x%02x%02x%02x%02x%02x%02x",
-// OBSOLETE l[0], l[1], l[2], l[3], l[4], l[5], l[6], l[7]);
-// OBSOLETE }
-// OBSOLETE if (regno == 15)
-// OBSOLETE {
-// OBSOLETE unsigned short rval;
-// OBSOLETE int i;
-// OBSOLETE
-// OBSOLETE frame_register_read (deprecated_selected_frame, regno, (char *) (&rval));
-// OBSOLETE
-// OBSOLETE printf_unfiltered ("\n");
-// OBSOLETE for (i = 0; i < 10; i += 2)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("(sp+%d=%04x)", i,
-// OBSOLETE (unsigned int)read_memory_short (rval + i));
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE z8k_print_registers_info (struct gdbarch *gdbarch,
-// OBSOLETE struct ui_file *file,
-// OBSOLETE struct frame_info *frame,
-// OBSOLETE int regnum, int print_all)
-// OBSOLETE {
-// OBSOLETE int i;
-// OBSOLETE const int numregs = NUM_REGS + NUM_PSEUDO_REGS;
-// OBSOLETE char *raw_buffer = alloca (MAX_REGISTER_RAW_SIZE);
-// OBSOLETE char *virtual_buffer = alloca (MAX_REGISTER_VIRTUAL_SIZE);
-// OBSOLETE
-// OBSOLETE for (i = 0; i < numregs; i++)
-// OBSOLETE {
-// OBSOLETE /* Decide between printing all regs, non-float / vector regs, or
-// OBSOLETE specific reg. */
-// OBSOLETE if (regnum == -1)
-// OBSOLETE {
-// OBSOLETE if (!print_all)
-// OBSOLETE {
-// OBSOLETE if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT)
-// OBSOLETE continue;
-// OBSOLETE if (TYPE_VECTOR (REGISTER_VIRTUAL_TYPE (i)))
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE if (i != regnum)
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* If the register name is empty, it is undefined for this
-// OBSOLETE processor, so don't display anything. */
-// OBSOLETE if (REGISTER_NAME (i) == NULL || *(REGISTER_NAME (i)) == '\0')
-// OBSOLETE continue;
-// OBSOLETE
-// OBSOLETE fputs_filtered (REGISTER_NAME (i), file);
-// OBSOLETE print_spaces_filtered (15 - strlen (REGISTER_NAME (i)), file);
-// OBSOLETE
-// OBSOLETE /* Get the data in raw format. */
-// OBSOLETE if (! frame_register_read (frame, i, raw_buffer))
-// OBSOLETE {
-// OBSOLETE fprintf_filtered (file, "*value not available*\n");
-// OBSOLETE continue;
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* FIXME: cagney/2002-08-03: This code shouldn't be necessary.
-// OBSOLETE The function frame_register_read() should have returned the
-// OBSOLETE pre-cooked register so no conversion is necessary. */
-// OBSOLETE /* Convert raw data to virtual format if necessary. */
-// OBSOLETE if (REGISTER_CONVERTIBLE (i))
-// OBSOLETE {
-// OBSOLETE REGISTER_CONVERT_TO_VIRTUAL (i, REGISTER_VIRTUAL_TYPE (i),
-// OBSOLETE raw_buffer, virtual_buffer);
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE memcpy (virtual_buffer, raw_buffer,
-// OBSOLETE REGISTER_VIRTUAL_SIZE (i));
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* If virtual format is floating, print it that way, and in raw
-// OBSOLETE hex. */
-// OBSOLETE if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT)
-// OBSOLETE {
-// OBSOLETE int j;
-// OBSOLETE
-// OBSOLETE val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0,
-// OBSOLETE file, 0, 1, 0, Val_pretty_default);
-// OBSOLETE
-// OBSOLETE fprintf_filtered (file, "\t(raw 0x");
-// OBSOLETE for (j = 0; j < REGISTER_RAW_SIZE (i); j++)
-// OBSOLETE {
-// OBSOLETE int idx;
-// OBSOLETE if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
-// OBSOLETE idx = j;
-// OBSOLETE else
-// OBSOLETE idx = REGISTER_RAW_SIZE (i) - 1 - j;
-// OBSOLETE fprintf_filtered (file, "%02x", (unsigned char) raw_buffer[idx]);
-// OBSOLETE }
-// OBSOLETE fprintf_filtered (file, ")");
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE /* Print the register in hex. */
-// OBSOLETE val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0,
-// OBSOLETE file, 'x', 1, 0, Val_pretty_default);
-// OBSOLETE /* If not a vector register, print it also according to its
-// OBSOLETE natural format. */
-// OBSOLETE if (TYPE_VECTOR (REGISTER_VIRTUAL_TYPE (i)) == 0)
-// OBSOLETE {
-// OBSOLETE fprintf_filtered (file, "\t");
-// OBSOLETE val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, 0,
-// OBSOLETE file, 0, 1, 0, Val_pretty_default);
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE /* Some z8k specific info. */
-// OBSOLETE z8k_print_register_hook (i);
-// OBSOLETE
-// OBSOLETE fprintf_filtered (file, "\n");
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE z8k_do_registers_info (int regnum, int all)
-// OBSOLETE {
-// OBSOLETE z8k_print_registers_info (current_gdbarch, gdb_stdout,
-// OBSOLETE deprecated_selected_frame, regnum, all);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE z8k_pop_frame (void)
-// OBSOLETE {
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE struct cmd_list_element *setmemorylist;
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE z8k_set_pointer_size (int newsize)
-// OBSOLETE {
-// OBSOLETE static int oldsize = 0;
-// OBSOLETE
-// OBSOLETE if (oldsize != newsize)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("pointer size set to %d bits\n", newsize);
-// OBSOLETE oldsize = newsize;
-// OBSOLETE if (newsize == 32)
-// OBSOLETE {
-// OBSOLETE BIG = 1;
-// OBSOLETE }
-// OBSOLETE else
-// OBSOLETE {
-// OBSOLETE BIG = 0;
-// OBSOLETE }
-// OBSOLETE /* FIXME: This code should be using the GDBARCH framework to
-// OBSOLETE handle changed type sizes. If this problem is ever fixed
-// OBSOLETE (the direct reference to _initialize_gdbtypes() below
-// OBSOLETE eliminated) then Makefile.in should be updated so that
-// OBSOLETE z8k-tdep.c is again compiled with -Werror. */
-// OBSOLETE _initialize_gdbtypes ();
-// OBSOLETE }
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE segmented_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE z8k_set_pointer_size (32);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE unsegmented_command (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE z8k_set_pointer_size (16);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE static void
-// OBSOLETE set_memory (char *args, int from_tty)
-// OBSOLETE {
-// OBSOLETE printf_unfiltered ("\"set memory\" must be followed by the name of a memory subcommand.\n");
-// OBSOLETE help_list (setmemorylist, "set memory ", -1, gdb_stdout);
-// OBSOLETE }
-// OBSOLETE
-// OBSOLETE void
-// OBSOLETE _initialize_z8ktdep (void)
-// OBSOLETE {
-// OBSOLETE tm_print_insn = gdb_print_insn_z8k;
-// OBSOLETE
-// OBSOLETE add_prefix_cmd ("memory", no_class, set_memory,
-// OBSOLETE "set the memory model", &setmemorylist, "set memory ", 0,
-// OBSOLETE &setlist);
-// OBSOLETE add_cmd ("segmented", class_support, segmented_command,
-// OBSOLETE "Set segmented memory model.", &setmemorylist);
-// OBSOLETE add_cmd ("unsegmented", class_support, unsegmented_command,
-// OBSOLETE "Set unsegmented memory model.", &setmemorylist);
-// OBSOLETE
-// OBSOLETE }
projects / binutils-gdb.git / commitdiff