+Wed Feb 7 22:28:31 2001 Andrew Cagney <cagney@redhat.com>
+
+ * configure.tgt: Remove references to convex, pyramid, altos and
+ tahoe.
+ * configure.host: Ditto.
+ * MAINTAINERS: Ditto.
+ * NEWS: Update.
+
+ * tahoe-tdep.c: Delete obsolete file.
+ * pyr-xdep.c: Ditto.
+ * pyr-tdep.c: Ditto.
+ * convex-tdep.c: Ditto.
+ * convex-xdep.c: Ditto.
+ * config/tahoe/xm-tahoe.h: Ditto.
+ * config/tahoe/tm-tahoe.h: Ditto.
+ * config/tahoe/tahoe.mt: Ditto.
+ * config/tahoe/tahoe.mh: Ditto.
+ * config/pyr/xm-pyr.h: Ditto.
+ * config/pyr/tm-pyr.h: Ditto.
+ * config/pyr/pyramid.mt: Ditto.
+ * config/pyr/pyramid.mh: Ditto.
+ * config/m68k/xm-altos.h: Ditto.
+ * config/m68k/tm-altos.h: Ditto.
+ * config/m68k/altos.mt: Ditto.
+ * config/m68k/altos.mh: Ditto.
+ * config/convex/xm-convex.h: Ditto.
+ * config/convex/tm-convex.h: Ditto.
+ * config/convex/convex.mt: Ditto.
+ * config/convex/convex.mh: Ditto.
+ * config/convex/Convex.notes: Ditto.
+ * config/arm/xm-arm.h: Ditto.
+ * config/arm/nm-arm.h: Ditto.
+ * config/arm/arm.mt: Ditto.
+ * config/arm/arm.mh: Ditto.
+ * arm-convert.s: Ditto.
+ * arm-xdep.c: Ditto.
+ * altos-xdep.c: Ditto.
+
Wed Feb 7 19:41:21 2001 Andrew Cagney <cagney@redhat.com>
* defs.h (internal_error, internal_verror): Add __FILE__ and
Jim Ingham jingham@apple.com
Scott Bambrough scottb@netwinder.org
- convex OBSOLETE
-
d10v --target=d10v-elf ,-Werror
Andrew Cagney cagney@cygnus.com
Kevin Buettner kevinb@cygnus.com
Nick Duffek nsd@cygnus.com
- pyramid OBSOLETE
-
romp (?)
Maintenance only
sparc --target=sparc-elf,sparc64-elf ,-Werror
David Taylor taylor@cygnus.com
- tahoe OBSOLETE
-
tic80 (--target=tic80-coff broken)
Maintenance only
x86 FreeBSD before 2.2 i[3456]86*-freebsd{1,2.[01]}*,
-* Deleted configurations
+Configurations that have been declared obsolete in this release have
+been commented out. Unless there is activity to revive these
+configurations, the next release of GDB will have their sources
+permanently REMOVED.
+
+* REMOVED configurations
+
+Altos 3068 m68*-altos-*
+Convex c1-*-*, c2-*-*
+Pyramid pyramid-*-*
+ARM RISCix arm-*-* (as host)
+Tahoe tahoe-*-*
* Other news:
+++ /dev/null
-/* OBSOLETE /* Low level interface to ptrace, for GDB when running under m68k SVR2 Unix */
-/* OBSOLETE on Altos 3068. Report bugs to Jyrki Kuoppala <jkp@cs.hut.fi> */
-/* OBSOLETE Copyright (C) 1989, 1991 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, Boston, MA 02111-1307, USA. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #include "defs.h" */
-/* OBSOLETE #include "frame.h" */
-/* OBSOLETE #include "inferior.h" */
-/* OBSOLETE */
-/* OBSOLETE #ifdef USG */
-/* OBSOLETE #include <sys/types.h> */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE #include <sys/param.h> */
-/* OBSOLETE #include <sys/dir.h> */
-/* OBSOLETE #include <signal.h> */
-/* OBSOLETE #include <sys/ioctl.h> */
-/* OBSOLETE #include <fcntl.h> */
-/* OBSOLETE #ifdef USG */
-/* OBSOLETE #include <sys/page.h> */
-/* OBSOLETE #ifdef ALTOS */
-/* OBSOLETE #include <sys/net.h> */
-/* OBSOLETE #include <errno.h> */
-/* OBSOLETE #endif */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE #include "gdbcore.h" */
-/* OBSOLETE #include <sys/user.h> /* After a.out.h *x/ */
-/* OBSOLETE #include <sys/file.h> */
-/* OBSOLETE #include "gdb_stat.h" */
-/* OBSOLETE */
-/* OBSOLETE \f */
-/* OBSOLETE /* Work with core dump and executable files, for GDB. */
-/* OBSOLETE This code would be in corefile.c if it weren't machine-dependent. *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE core_file_command (filename, from_tty) */
-/* OBSOLETE char *filename; */
-/* OBSOLETE int from_tty; */
-/* OBSOLETE { */
-/* OBSOLETE int val; */
-/* OBSOLETE */
-/* OBSOLETE /* Discard all vestiges of any previous core file */
-/* OBSOLETE and mark data and stack spaces as empty. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (corefile) */
-/* OBSOLETE xfree (corefile); */
-/* OBSOLETE corefile = 0; */
-/* OBSOLETE */
-/* OBSOLETE if (corechan >= 0) */
-/* OBSOLETE close (corechan); */
-/* OBSOLETE corechan = -1; */
-/* OBSOLETE */
-/* OBSOLETE data_start = 0; */
-/* OBSOLETE data_end = 0; */
-/* OBSOLETE stack_start = STACK_END_ADDR; */
-/* OBSOLETE stack_end = STACK_END_ADDR; */
-/* OBSOLETE */
-/* OBSOLETE /* Now, if a new core file was specified, open it and digest it. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (filename) */
-/* OBSOLETE { */
-/* OBSOLETE filename = tilde_expand (filename); */
-/* OBSOLETE make_cleanup (xfree, filename); */
-/* OBSOLETE */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */
-/* OBSOLETE corechan = open (filename, O_RDONLY, 0); */
-/* OBSOLETE if (corechan < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE /* 4.2-style (and perhaps also sysV-style) core dump file. *x/ */
-/* OBSOLETE { */
-/* OBSOLETE struct user u; */
-/* OBSOLETE */
-/* OBSOLETE unsigned int reg_offset; */
-/* OBSOLETE */
-/* OBSOLETE val = myread (corechan, &u, sizeof u); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name ("Not a core file: reading upage"); */
-/* OBSOLETE if (val != sizeof u) */
-/* OBSOLETE error ("Not a core file: could only read %d bytes", val); */
-/* OBSOLETE data_start = exec_data_start; */
-/* OBSOLETE */
-/* OBSOLETE #if !defined (NBPG) */
-/* OBSOLETE #define NBPG NBPP */
-/* OBSOLETE #endif */
-/* OBSOLETE #if !defined (UPAGES) */
-/* OBSOLETE #define UPAGES USIZE */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE data_end = data_start + NBPG * u.u_dsize; */
-/* OBSOLETE stack_start = stack_end - NBPG * u.u_ssize; */
-/* OBSOLETE data_offset = NBPG * UPAGES + exec_data_start % NBPG /* Not sure about this //jkp *x/; */
-/* OBSOLETE stack_offset = NBPG * (UPAGES + u.u_dsize); */
-/* OBSOLETE */
-/* OBSOLETE /* Some machines put an absolute address in here and some put */
-/* OBSOLETE the offset in the upage of the regs. *x/ */
-/* OBSOLETE reg_offset = (int) u.u_state; */
-/* OBSOLETE if (reg_offset > NBPG * UPAGES) */
-/* OBSOLETE reg_offset -= KERNEL_U_ADDR; */
-/* OBSOLETE */
-/* OBSOLETE memcpy (&core_aouthdr, &u.u_exdata, sizeof (AOUTHDR)); */
-/* OBSOLETE printf_unfiltered ("Core file is from \"%s\".\n", u.u_comm); */
-/* OBSOLETE */
-/* OBSOLETE /* I don't know where to find this info. */
-/* OBSOLETE So, for now, mark it as not available. *x/ */
-/* OBSOLETE N_SET_MAGIC (core_aouthdr, 0); */
-/* OBSOLETE */
-/* OBSOLETE /* Read the register values out of the core file and store */
-/* OBSOLETE them where `read_register' will find them. *x/ */
-/* OBSOLETE */
-/* OBSOLETE { */
-/* OBSOLETE register int regno; */
-/* OBSOLETE */
-/* OBSOLETE for (regno = 0; regno < NUM_REGS; regno++) */
-/* OBSOLETE { */
-/* OBSOLETE char buf[MAX_REGISTER_RAW_SIZE]; */
-/* OBSOLETE */
-/* OBSOLETE val = lseek (corechan, register_addr (regno, reg_offset), 0); */
-/* OBSOLETE if (val < 0 */
-/* OBSOLETE || (val = myread (corechan, buf, sizeof buf)) < 0) */
-/* OBSOLETE { */
-/* OBSOLETE char * buffer = (char *) alloca (strlen (REGISTER_NAME (regno)) */
-/* OBSOLETE + 30); */
-/* OBSOLETE strcpy (buffer, "Reading register "); */
-/* OBSOLETE strcat (buffer, REGISTER_NAME (regno)); */
-/* OBSOLETE */
-/* OBSOLETE perror_with_name (buffer); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE supply_register (regno, buf); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE if (filename[0] == '/') */
-/* OBSOLETE corefile = savestring (filename, strlen (filename)); */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE flush_cached_frames (); */
-/* OBSOLETE select_frame (get_current_frame (), 0); */
-/* OBSOLETE validate_files (); */
-/* OBSOLETE } */
-/* OBSOLETE else if (from_tty) */
-/* OBSOLETE printf_unfiltered ("No core file now.\n"); */
-/* OBSOLETE } */
+++ /dev/null
- .text
- .global _convert_from_extended
-
-_convert_from_extended:
-
- ldfe f0,[a1]
- stfd f0,[a2]
- movs pc,lr
-
- .global _convert_to_extended
-
-_convert_to_extended:
-
- ldfd f0,[a1]
- stfe f0,[a2]
- movs pc,lr
+++ /dev/null
-/* OBSOLETE /* Acorn Risc Machine host machine support. */
-/* OBSOLETE Copyright (C) 1988, 1989, 1991 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. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #include "defs.h" */
-/* OBSOLETE #include "frame.h" */
-/* OBSOLETE #include "inferior.h" */
-/* OBSOLETE #include "opcode/arm.h" */
-/* OBSOLETE */
-/* OBSOLETE #include <sys/param.h> */
-/* OBSOLETE #include <sys/dir.h> */
-/* OBSOLETE #include <signal.h> */
-/* OBSOLETE #include <sys/ioctl.h> */
-/* OBSOLETE #include <sys/ptrace.h> */
-/* OBSOLETE #include <machine/reg.h> */
-/* OBSOLETE */
-/* OBSOLETE #define N_TXTADDR(hdr) 0x8000 */
-/* OBSOLETE #define N_DATADDR(hdr) (hdr.a_text + 0x8000) */
-/* OBSOLETE */
-/* OBSOLETE #include "gdbcore.h" */
-/* OBSOLETE */
-/* OBSOLETE #include <sys/user.h> /* After a.out.h *x/ */
-/* OBSOLETE #include <sys/file.h> */
-/* OBSOLETE #include "gdb_stat.h" */
-/* OBSOLETE */
-/* OBSOLETE #include <errno.h> */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE fetch_inferior_registers (regno) */
-/* OBSOLETE int regno; /* Original value discarded *x/ */
-/* OBSOLETE { */
-/* OBSOLETE register unsigned int regaddr; */
-/* OBSOLETE char buf[MAX_REGISTER_RAW_SIZE]; */
-/* OBSOLETE register int i; */
-/* OBSOLETE */
-/* OBSOLETE struct user u; */
-/* OBSOLETE unsigned int offset = (char *) &u.u_ar0 - (char *) &u; */
-/* OBSOLETE offset = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) */
-/* OBSOLETE - KERNEL_U_ADDR; */
-/* OBSOLETE */
-/* OBSOLETE registers_fetched (); */
-/* OBSOLETE */
-/* OBSOLETE for (regno = 0; regno < 16; regno++) */
-/* OBSOLETE { */
-/* OBSOLETE regaddr = offset + regno * 4; */
-/* OBSOLETE *(int *) &buf[0] = ptrace (PT_READ_U, inferior_pid, */
-/* OBSOLETE (PTRACE_ARG3_TYPE) regaddr, 0); */
-/* OBSOLETE if (regno == PC_REGNUM) */
-/* OBSOLETE *(int *) &buf[0] = GET_PC_PART (*(int *) &buf[0]); */
-/* OBSOLETE supply_register (regno, buf); */
-/* OBSOLETE } */
-/* OBSOLETE *(int *) &buf[0] = ptrace (PT_READ_U, inferior_pid, */
-/* OBSOLETE (PTRACE_ARG3_TYPE) (offset + PC * 4), 0); */
-/* OBSOLETE supply_register (PS_REGNUM, buf); /* set virtual register ps same as pc *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* read the floating point registers *x/ */
-/* OBSOLETE offset = (char *) &u.u_fp_regs - (char *) &u; */
-/* OBSOLETE *(int *) buf = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0); */
-/* OBSOLETE supply_register (FPS_REGNUM, buf); */
-/* OBSOLETE for (regno = 16; regno < 24; regno++) */
-/* OBSOLETE { */
-/* OBSOLETE regaddr = offset + 4 + 12 * (regno - 16); */
-/* OBSOLETE for (i = 0; i < 12; i += sizeof (int)) */
-/* OBSOLETE *(int *) &buf[i] = ptrace (PT_READ_U, inferior_pid, */
-/* OBSOLETE (PTRACE_ARG3_TYPE) (regaddr + i), 0); */
-/* OBSOLETE supply_register (regno, buf); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Store our register values back into the inferior. */
-/* OBSOLETE If REGNO is -1, do this for all registers. */
-/* OBSOLETE Otherwise, REGNO specifies which register (so we can save time). *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE store_inferior_registers (regno) */
-/* OBSOLETE int regno; */
-/* OBSOLETE { */
-/* OBSOLETE register unsigned int regaddr; */
-/* OBSOLETE char buf[80]; */
-/* OBSOLETE */
-/* OBSOLETE struct user u; */
-/* OBSOLETE unsigned long value; */
-/* OBSOLETE unsigned int offset = (char *) &u.u_ar0 - (char *) &u; */
-/* OBSOLETE offset = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) */
-/* OBSOLETE - KERNEL_U_ADDR; */
-/* OBSOLETE */
-/* OBSOLETE if (regno >= 0) */
-/* OBSOLETE { */
-/* OBSOLETE if (regno >= 16) */
-/* OBSOLETE return; */
-/* OBSOLETE regaddr = offset + 4 * regno; */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE value = read_register (regno); */
-/* OBSOLETE if (regno == PC_REGNUM) */
-/* OBSOLETE value = SET_PC_PART (read_register (PS_REGNUM), value); */
-/* OBSOLETE ptrace (PT_WRITE_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, value); */
-/* OBSOLETE if (errno != 0) */
-/* OBSOLETE { */
-/* OBSOLETE sprintf (buf, "writing register number %d", regno); */
-/* OBSOLETE perror_with_name (buf); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE for (regno = 0; regno < 15; regno++) */
-/* OBSOLETE { */
-/* OBSOLETE regaddr = offset + regno * 4; */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE value = read_register (regno); */
-/* OBSOLETE if (regno == PC_REGNUM) */
-/* OBSOLETE value = SET_PC_PART (read_register (PS_REGNUM), value); */
-/* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, value); */
-/* OBSOLETE if (errno != 0) */
-/* OBSOLETE { */
-/* OBSOLETE sprintf (buf, "writing all regs, number %d", regno); */
-/* OBSOLETE perror_with_name (buf); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE \f */
-/* OBSOLETE /* Work with core dump and executable files, for GDB. */
-/* OBSOLETE This code would be in corefile.c if it weren't machine-dependent. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Structure to describe the chain of shared libraries used */
-/* OBSOLETE by the execfile. */
-/* OBSOLETE e.g. prog shares Xt which shares X11 which shares c. *x/ */
-/* OBSOLETE */
-/* OBSOLETE struct shared_library */
-/* OBSOLETE { */
-/* OBSOLETE struct exec_header header; */
-/* OBSOLETE char name[SHLIBLEN]; */
-/* OBSOLETE CORE_ADDR text_start; /* CORE_ADDR of 1st byte of text, this file *x/ */
-/* OBSOLETE long data_offset; /* offset of data section in file *x/ */
-/* OBSOLETE int chan; /* file descriptor for the file *x/ */
-/* OBSOLETE struct shared_library *shares; /* library this one shares *x/ */
-/* OBSOLETE }; */
-/* OBSOLETE static struct shared_library *shlib = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Hook for `exec_file_command' command to call. *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern void (*exec_file_display_hook) (); */
-/* OBSOLETE */
-/* OBSOLETE static CORE_ADDR unshared_text_start; */
-/* OBSOLETE */
-/* OBSOLETE /* extended header from exec file (for shared library info) *x/ */
-/* OBSOLETE */
-/* OBSOLETE static struct exec_header exec_header; */
-/* OBSOLETE \f */
-/* OBSOLETE void */
-/* OBSOLETE core_file_command (filename, from_tty) */
-/* OBSOLETE char *filename; */
-/* OBSOLETE int from_tty; */
-/* OBSOLETE { */
-/* OBSOLETE int val; */
-/* OBSOLETE */
-/* OBSOLETE /* Discard all vestiges of any previous core file */
-/* OBSOLETE and mark data and stack spaces as empty. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (corefile) */
-/* OBSOLETE xfree (corefile); */
-/* OBSOLETE corefile = 0; */
-/* OBSOLETE */
-/* OBSOLETE if (corechan >= 0) */
-/* OBSOLETE close (corechan); */
-/* OBSOLETE corechan = -1; */
-/* OBSOLETE */
-/* OBSOLETE data_start = 0; */
-/* OBSOLETE data_end = 0; */
-/* OBSOLETE stack_start = STACK_END_ADDR; */
-/* OBSOLETE stack_end = STACK_END_ADDR; */
-/* OBSOLETE */
-/* OBSOLETE /* Now, if a new core file was specified, open it and digest it. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (filename) */
-/* OBSOLETE { */
-/* OBSOLETE filename = tilde_expand (filename); */
-/* OBSOLETE make_cleanup (xfree, filename); */
-/* OBSOLETE */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */
-/* OBSOLETE corechan = open (filename, O_RDONLY, 0); */
-/* OBSOLETE if (corechan < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE /* 4.2-style (and perhaps also sysV-style) core dump file. *x/ */
-/* OBSOLETE { */
-/* OBSOLETE struct user u; */
-/* OBSOLETE */
-/* OBSOLETE unsigned int reg_offset, fp_reg_offset; */
-/* OBSOLETE */
-/* OBSOLETE val = myread (corechan, &u, sizeof u); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name ("Not a core file: reading upage"); */
-/* OBSOLETE if (val != sizeof u) */
-/* OBSOLETE error ("Not a core file: could only read %d bytes", val); */
-/* OBSOLETE */
-/* OBSOLETE /* We are depending on exec_file_command having been called */
-/* OBSOLETE previously to set exec_data_start. Since the executable */
-/* OBSOLETE and the core file share the same text segment, the address */
-/* OBSOLETE of the data segment will be the same in both. *x/ */
-/* OBSOLETE data_start = exec_data_start; */
-/* OBSOLETE */
-/* OBSOLETE data_end = data_start + NBPG * u.u_dsize; */
-/* OBSOLETE stack_start = stack_end - NBPG * u.u_ssize; */
-/* OBSOLETE data_offset = NBPG * UPAGES; */
-/* OBSOLETE stack_offset = NBPG * (UPAGES + u.u_dsize); */
-/* OBSOLETE */
-/* OBSOLETE /* Some machines put an absolute address in here and some put */
-/* OBSOLETE the offset in the upage of the regs. *x/ */
-/* OBSOLETE reg_offset = (int) u.u_ar0; */
-/* OBSOLETE if (reg_offset > NBPG * UPAGES) */
-/* OBSOLETE reg_offset -= KERNEL_U_ADDR; */
-/* OBSOLETE fp_reg_offset = (char *) &u.u_fp_regs - (char *) &u; */
-/* OBSOLETE */
-/* OBSOLETE /* I don't know where to find this info. */
-/* OBSOLETE So, for now, mark it as not available. *x/ */
-/* OBSOLETE N_SET_MAGIC (core_aouthdr, 0); */
-/* OBSOLETE */
-/* OBSOLETE /* Read the register values out of the core file and store */
-/* OBSOLETE them where `read_register' will find them. *x/ */
-/* OBSOLETE */
-/* OBSOLETE { */
-/* OBSOLETE register int regno; */
-/* OBSOLETE */
-/* OBSOLETE for (regno = 0; regno < NUM_REGS; regno++) */
-/* OBSOLETE { */
-/* OBSOLETE char buf[MAX_REGISTER_RAW_SIZE]; */
-/* OBSOLETE */
-/* OBSOLETE if (regno < 16) */
-/* OBSOLETE val = lseek (corechan, reg_offset + 4 * regno, 0); */
-/* OBSOLETE else if (regno < 24) */
-/* OBSOLETE val = lseek (corechan, fp_reg_offset + 4 + 12 * (regno - 24), 0); */
-/* OBSOLETE else if (regno == 24) */
-/* OBSOLETE val = lseek (corechan, fp_reg_offset, 0); */
-/* OBSOLETE else if (regno == 25) */
-/* OBSOLETE val = lseek (corechan, reg_offset + 4 * PC, 0); */
-/* OBSOLETE if (val < 0 */
-/* OBSOLETE || (val = myread (corechan, buf, sizeof buf)) < 0) */
-/* OBSOLETE { */
-/* OBSOLETE char *buffer = (char *) alloca (strlen (REGISTER_NAME (regno)) */
-/* OBSOLETE + 30); */
-/* OBSOLETE strcpy (buffer, "Reading register "); */
-/* OBSOLETE strcat (buffer, REGISTER_NAME (regno)); */
-/* OBSOLETE */
-/* OBSOLETE perror_with_name (buffer); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (regno == PC_REGNUM) */
-/* OBSOLETE *(int *) buf = GET_PC_PART (*(int *) buf); */
-/* OBSOLETE supply_register (regno, buf); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE if (filename[0] == '/') */
-/* OBSOLETE corefile = savestring (filename, strlen (filename)); */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE flush_cached_frames (); */
-/* OBSOLETE select_frame (get_current_frame (), 0); */
-/* OBSOLETE validate_files (); */
-/* OBSOLETE } */
-/* OBSOLETE else if (from_tty) */
-/* OBSOLETE printf ("No core file now.\n"); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE #if 0 */
-/* OBSOLETE /* Work with core dump and executable files, for GDB. */
-/* OBSOLETE This code would be in corefile.c if it weren't machine-dependent. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Structure to describe the chain of shared libraries used */
-/* OBSOLETE by the execfile. */
-/* OBSOLETE e.g. prog shares Xt which shares X11 which shares c. *x/ */
-/* OBSOLETE */
-/* OBSOLETE struct shared_library */
-/* OBSOLETE { */
-/* OBSOLETE struct exec_header header; */
-/* OBSOLETE char name[SHLIBLEN]; */
-/* OBSOLETE CORE_ADDR text_start; /* CORE_ADDR of 1st byte of text, this file *x/ */
-/* OBSOLETE long data_offset; /* offset of data section in file *x/ */
-/* OBSOLETE int chan; /* file descriptor for the file *x/ */
-/* OBSOLETE struct shared_library *shares; /* library this one shares *x/ */
-/* OBSOLETE }; */
-/* OBSOLETE static struct shared_library *shlib = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Hook for `exec_file_command' command to call. *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern void (*exec_file_display_hook) (); */
-/* OBSOLETE */
-/* OBSOLETE static CORE_ADDR unshared_text_start; */
-/* OBSOLETE */
-/* OBSOLETE /* extended header from exec file (for shared library info) *x/ */
-/* OBSOLETE */
-/* OBSOLETE static struct exec_header exec_header; */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE exec_file_command (filename, from_tty) */
-/* OBSOLETE char *filename; */
-/* OBSOLETE int from_tty; */
-/* OBSOLETE { */
-/* OBSOLETE int val; */
-/* OBSOLETE */
-/* OBSOLETE /* Eliminate all traces of old exec file. */
-/* OBSOLETE Mark text segment as empty. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (execfile) */
-/* OBSOLETE xfree (execfile); */
-/* OBSOLETE execfile = 0; */
-/* OBSOLETE data_start = 0; */
-/* OBSOLETE data_end -= exec_data_start; */
-/* OBSOLETE text_start = 0; */
-/* OBSOLETE unshared_text_start = 0; */
-/* OBSOLETE text_end = 0; */
-/* OBSOLETE exec_data_start = 0; */
-/* OBSOLETE exec_data_end = 0; */
-/* OBSOLETE if (execchan >= 0) */
-/* OBSOLETE close (execchan); */
-/* OBSOLETE execchan = -1; */
-/* OBSOLETE if (shlib) */
-/* OBSOLETE { */
-/* OBSOLETE close_shared_library (shlib); */
-/* OBSOLETE shlib = 0; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Now open and digest the file the user requested, if any. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (filename) */
-/* OBSOLETE { */
-/* OBSOLETE filename = tilde_expand (filename); */
-/* OBSOLETE make_cleanup (xfree, filename); */
-/* OBSOLETE */
-/* OBSOLETE execchan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0, */
-/* OBSOLETE &execfile); */
-/* OBSOLETE if (execchan < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE { */
-/* OBSOLETE struct stat st_exec; */
-/* OBSOLETE */
-/* OBSOLETE #ifdef HEADER_SEEK_FD */
-/* OBSOLETE HEADER_SEEK_FD (execchan); */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE val = myread (execchan, &exec_header, sizeof exec_header); */
-/* OBSOLETE exec_aouthdr = exec_header.a_exec; */
-/* OBSOLETE */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE text_start = 0x8000; */
-/* OBSOLETE */
-/* OBSOLETE /* Look for shared library if needed *x/ */
-/* OBSOLETE if (exec_header.a_exec.a_magic & MF_USES_SL) */
-/* OBSOLETE shlib = open_shared_library (exec_header.a_shlibname, text_start); */
-/* OBSOLETE */
-/* OBSOLETE text_offset = N_TXTOFF (exec_aouthdr); */
-/* OBSOLETE exec_data_offset = N_TXTOFF (exec_aouthdr) + exec_aouthdr.a_text; */
-/* OBSOLETE */
-/* OBSOLETE if (shlib) */
-/* OBSOLETE { */
-/* OBSOLETE unshared_text_start = shared_text_end (shlib) & ~0x7fff; */
-/* OBSOLETE stack_start = shlib->header.a_exec.a_sldatabase; */
-/* OBSOLETE stack_end = STACK_END_ADDR; */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE unshared_text_start = 0x8000; */
-/* OBSOLETE text_end = unshared_text_start + exec_aouthdr.a_text; */
-/* OBSOLETE */
-/* OBSOLETE exec_data_start = unshared_text_start + exec_aouthdr.a_text; */
-/* OBSOLETE exec_data_end = exec_data_start + exec_aouthdr.a_data; */
-/* OBSOLETE */
-/* OBSOLETE data_start = exec_data_start; */
-/* OBSOLETE data_end += exec_data_start; */
-/* OBSOLETE */
-/* OBSOLETE fstat (execchan, &st_exec); */
-/* OBSOLETE exec_mtime = st_exec.st_mtime; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE validate_files (); */
-/* OBSOLETE } */
-/* OBSOLETE else if (from_tty) */
-/* OBSOLETE printf ("No executable file now.\n"); */
-/* OBSOLETE */
-/* OBSOLETE /* Tell display code (if any) about the changed file name. *x/ */
-/* OBSOLETE if (exec_file_display_hook) */
-/* OBSOLETE (*exec_file_display_hook) (filename); */
-/* OBSOLETE } */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE #if 0 */
-/* OBSOLETE /* Read from the program's memory (except for inferior processes). */
-/* OBSOLETE This function is misnamed, since it only reads, never writes; and */
-/* OBSOLETE since it will use the core file and/or executable file as necessary. */
-/* OBSOLETE */
-/* OBSOLETE It should be extended to write as well as read, FIXME, for patching files. */
-/* OBSOLETE */
-/* OBSOLETE Return 0 if address could be read, EIO if addresss out of bounds. *x/ */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE xfer_core_file (memaddr, myaddr, len) */
-/* OBSOLETE CORE_ADDR memaddr; */
-/* OBSOLETE char *myaddr; */
-/* OBSOLETE int len; */
-/* OBSOLETE { */
-/* OBSOLETE register int i; */
-/* OBSOLETE register int val; */
-/* OBSOLETE int xferchan; */
-/* OBSOLETE char **xferfile; */
-/* OBSOLETE int fileptr; */
-/* OBSOLETE int returnval = 0; */
-/* OBSOLETE */
-/* OBSOLETE while (len > 0) */
-/* OBSOLETE { */
-/* OBSOLETE xferfile = 0; */
-/* OBSOLETE xferchan = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Determine which file the next bunch of addresses reside in, */
-/* OBSOLETE and where in the file. Set the file's read/write pointer */
-/* OBSOLETE to point at the proper place for the desired address */
-/* OBSOLETE and set xferfile and xferchan for the correct file. */
-/* OBSOLETE */
-/* OBSOLETE If desired address is nonexistent, leave them zero. */
-/* OBSOLETE */
-/* OBSOLETE i is set to the number of bytes that can be handled */
-/* OBSOLETE along with the next address. */
-/* OBSOLETE */
-/* OBSOLETE We put the most likely tests first for efficiency. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Note that if there is no core file */
-/* OBSOLETE data_start and data_end are equal. *x/ */
-/* OBSOLETE if (memaddr >= data_start && memaddr < data_end) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, data_end - memaddr); */
-/* OBSOLETE fileptr = memaddr - data_start + data_offset; */
-/* OBSOLETE xferfile = &corefile; */
-/* OBSOLETE xferchan = corechan; */
-/* OBSOLETE } */
-/* OBSOLETE /* Note that if there is no core file */
-/* OBSOLETE stack_start and stack_end define the shared library data. *x/ */
-/* OBSOLETE else if (memaddr >= stack_start && memaddr < stack_end) */
-/* OBSOLETE { */
-/* OBSOLETE if (corechan < 0) */
-/* OBSOLETE { */
-/* OBSOLETE struct shared_library *lib; */
-/* OBSOLETE for (lib = shlib; lib; lib = lib->shares) */
-/* OBSOLETE if (memaddr >= lib->header.a_exec.a_sldatabase && */
-/* OBSOLETE memaddr < lib->header.a_exec.a_sldatabase + */
-/* OBSOLETE lib->header.a_exec.a_data) */
-/* OBSOLETE break; */
-/* OBSOLETE if (lib) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, lib->header.a_exec.a_sldatabase + */
-/* OBSOLETE lib->header.a_exec.a_data - memaddr); */
-/* OBSOLETE fileptr = lib->data_offset + memaddr - */
-/* OBSOLETE lib->header.a_exec.a_sldatabase; */
-/* OBSOLETE xferfile = execfile; */
-/* OBSOLETE xferchan = lib->chan; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, stack_end - memaddr); */
-/* OBSOLETE fileptr = memaddr - stack_start + stack_offset; */
-/* OBSOLETE xferfile = &corefile; */
-/* OBSOLETE xferchan = corechan; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE else if (corechan < 0 */
-/* OBSOLETE && memaddr >= exec_data_start && memaddr < exec_data_end) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, exec_data_end - memaddr); */
-/* OBSOLETE fileptr = memaddr - exec_data_start + exec_data_offset; */
-/* OBSOLETE xferfile = &execfile; */
-/* OBSOLETE xferchan = execchan; */
-/* OBSOLETE } */
-/* OBSOLETE else if (memaddr >= text_start && memaddr < text_end) */
-/* OBSOLETE { */
-/* OBSOLETE struct shared_library *lib; */
-/* OBSOLETE for (lib = shlib; lib; lib = lib->shares) */
-/* OBSOLETE if (memaddr >= lib->text_start && */
-/* OBSOLETE memaddr < lib->text_start + lib->header.a_exec.a_text) */
-/* OBSOLETE break; */
-/* OBSOLETE if (lib) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, lib->header.a_exec.a_text + */
-/* OBSOLETE lib->text_start - memaddr); */
-/* OBSOLETE fileptr = memaddr - lib->text_start + text_offset; */
-/* OBSOLETE xferfile = &execfile; */
-/* OBSOLETE xferchan = lib->chan; */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, text_end - memaddr); */
-/* OBSOLETE fileptr = memaddr - unshared_text_start + text_offset; */
-/* OBSOLETE xferfile = &execfile; */
-/* OBSOLETE xferchan = execchan; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE else if (memaddr < text_start) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, text_start - memaddr); */
-/* OBSOLETE } */
-/* OBSOLETE else if (memaddr >= text_end */
-/* OBSOLETE && memaddr < (corechan >= 0 ? data_start : exec_data_start)) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, data_start - memaddr); */
-/* OBSOLETE } */
-/* OBSOLETE else if (corechan >= 0 */
-/* OBSOLETE && memaddr >= data_end && memaddr < stack_start) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, stack_start - memaddr); */
-/* OBSOLETE } */
-/* OBSOLETE else if (corechan < 0 && memaddr >= exec_data_end) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, -memaddr); */
-/* OBSOLETE } */
-/* OBSOLETE else if (memaddr >= stack_end && stack_end != 0) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, -memaddr); */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE /* Address did not classify into one of the known ranges. */
-/* OBSOLETE This shouldn't happen; we catch the endpoints. *x/ */
-/* OBSOLETE internal_error ("Bad case logic in xfer_core_file."); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Now we know which file to use. */
-/* OBSOLETE Set up its pointer and transfer the data. *x/ */
-/* OBSOLETE if (xferfile) */
-/* OBSOLETE { */
-/* OBSOLETE if (*xferfile == 0) */
-/* OBSOLETE if (xferfile == &execfile) */
-/* OBSOLETE error ("No program file to examine."); */
-/* OBSOLETE else */
-/* OBSOLETE error ("No core dump file or running program to examine."); */
-/* OBSOLETE val = lseek (xferchan, fileptr, 0); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name (*xferfile); */
-/* OBSOLETE val = myread (xferchan, myaddr, i); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name (*xferfile); */
-/* OBSOLETE } */
-/* OBSOLETE /* If this address is for nonexistent memory, */
-/* OBSOLETE read zeros if reading, or do nothing if writing. */
-/* OBSOLETE Actually, we never right. *x/ */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE memset (myaddr, '\0', i); */
-/* OBSOLETE returnval = EIO; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE memaddr += i; */
-/* OBSOLETE myaddr += i; */
-/* OBSOLETE len -= i; */
-/* OBSOLETE } */
-/* OBSOLETE return returnval; */
-/* OBSOLETE } */
-/* OBSOLETE #endif */
+++ /dev/null
-# Host: Acorn RISC machine running RISCiX (4.3bsd)
-XDEPFILES= infptrace.o inftarg.o fork-child.o arm-xdep.o arm-convert.o
-XM_FILE= xm-arm.h
-
-NAT_FILE= nm-arm.h
+++ /dev/null
-# Target: Acorn RISC machine (ARM) with simulator
-TDEPFILES= arm-tdep.o remote-rdp.o
-TM_FILE= tm-arm.h
-
-SIM_OBS = remote-sim.o
-SIM = ../sim/arm/libsim.a
+++ /dev/null
-/* Definitions to make GDB run on an ARM under RISCiX (4.3bsd).
- Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-/* This is the amount to subtract from u.u_ar0
- to get the offset in the core file of the register values. */
-
-#define KERNEL_U_ADDR (0x01000000 - (UPAGES * NBPG))
-
-/* Override copies of {fetch,store}_inferior_registers in infptrace.c. */
-#define FETCH_INFERIOR_REGISTERS
-#define HOST_BYTE_ORDER LITTLE_ENDIAN
+++ /dev/null
-/* Definitions to make GDB run on an ARM under RISCiX (4.3bsd).
- Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#define HOST_BYTE_ORDER LITTLE_ENDIAN
-
-\f
-#if 0
-/* Interface definitions for kernel debugger KDB. */
-
-/* Map machine fault codes into signal numbers.
- First subtract 0, divide by 4, then index in a table.
- Faults for which the entry in this table is 0
- are not handled by KDB; the program's own trap handler
- gets to handle then. */
-
-#define FAULT_CODE_ORIGIN 0
-#define FAULT_CODE_UNITS 4
-#define FAULT_TABLE \
-{ 0, SIGKILL, SIGSEGV, 0, 0, 0, 0, 0, \
- 0, 0, SIGTRAP, SIGTRAP, 0, 0, 0, 0, \
- 0, 0, 0, 0, 0, 0, 0, 0}
-
-/* Start running with a stack stretching from BEG to END.
- BEG and END should be symbols meaningful to the assembler.
- This is used only for kdb. */
-
-#define INIT_STACK(beg, end) \
-{ asm (".globl end"); \
- asm ("movl $ end, sp"); \
- asm ("clrl fp"); }
-
-/* Push the frame pointer register on the stack. */
-#define PUSH_FRAME_PTR \
- asm ("pushl fp");
-
-/* Copy the top-of-stack to the frame pointer register. */
-#define POP_FRAME_PTR \
- asm ("movl (sp), fp");
-
-/* After KDB is entered by a fault, push all registers
- that GDB thinks about (all NUM_REGS of them),
- so that they appear in order of ascending GDB register number.
- The fault code will be on the stack beyond the last register. */
-
-#define PUSH_REGISTERS \
-{ asm ("pushl 8(sp)"); \
- asm ("pushl 8(sp)"); \
- asm ("pushal 0x14(sp)"); \
- asm ("pushr $037777"); }
-
-/* Assuming the registers (including processor status) have been
- pushed on the stack in order of ascending GDB register number,
- restore them and return to the address in the saved PC register. */
-
-#define POP_REGISTERS \
-{ asm ("popr $037777"); \
- asm ("subl2 $8,(sp)"); \
- asm ("movl (sp),sp"); \
- asm ("rei"); }
-#endif /* 0 */
+++ /dev/null
-
-@node Convex,,, Top
-@appendix Convex-specific info
-@cindex Convex notes
-
-Scalar registers are 64 bits long, which is a pain since
-left half of an S register frequently contains noise.
-Therefore there are two ways to obtain the value of an S register.
-
-@table @kbd
-@item $s0
-returns the low half of the register as an int
-
-@item $S0
-returns the whole register as a long long
-@end table
-
-You can print the value in floating point by using @samp{p/f $s0} or @samp{p/f $S0}
-to print a single or double precision value.
-
-@cindex vector registers
-Vector registers are handled similarly, with @samp{$V0} denoting the whole
-64-bit register and @kbd{$v0} denoting the 32-bit low half; @samp{p/f $v0}
-or @samp{p/f $V0} can be used to examine the register in floating point.
-The length of the vector registers is taken from @samp{$vl}.
-
-Individual elements of a vector register are denoted in the obvious way;
-@samp{print $v3[9]} prints the tenth element of register @kbd{v3}, and
-@samp{set $v3[9] = 1234} alters it.
-
-@kbd{$vl} and @kbd{$vs} are int, and @kbd{$vm} is an int vector.
-Elements of @kbd{$vm} can't be assigned to.
-
-@cindex communication registers
-@kindex info comm-registers
-Communication registers have names @kbd{$C0 .. $C63}, with @kbd{$c0 .. $c63}
-denoting the low-order halves. @samp{info comm-registers} will print them
-all out, and tell which are locked. (A communication register is
-locked when a value is sent to it, and unlocked when the value is
-received.) Communication registers are, of course, global to all
-threads, so it does not matter what the currently selected thread is.
-@samp{info comm-reg @var{name}} prints just that one communication
-register; @samp{name} may also be a communication register number
-@samp{nn} or @samp{0xnn}.
-@samp{info comm-reg @var{address}} prints the contents of the resource
-structure at that address.
-
-@kindex info psw
-The command @samp{info psw} prints the processor status word @kbd{$ps}
-bit by bit.
-
-@kindex set base
-GDB normally prints all integers in base 10, but the leading
-@kbd{0x80000000} of pointers is intolerable in decimal, so the default
-output radix has been changed to try to print addresses appropriately.
-The @samp{set base} command can be used to change this.
-
-@table @code
-@item set base 10
-Integer values always print in decimal.
-
-@item set base 16
-Integer values always print in hex.
-
-@item set base
-Go back to the initial state, which prints integer values in hex if they
-look like pointers (specifically, if they start with 0x8 or 0xf in the
-stack), otherwise in decimal.
-@end table
-
-@kindex set pipeline
-When an exception such as a bus error or overflow happens, usually the PC
-is several instructions ahead by the time the exception is detected.
-The @samp{set pipe} command will disable this.
-
-@table @code
-@item set pipeline off
-Forces serial execution of instructions; no vector chaining and no
-scalar instruction overlap. With this, exceptions are detected with
-the PC pointing to the instruction after the one in error.
-
-@item set pipeline on
-Returns to normal, fast, execution. This is the default.
-@end table
-
-@cindex parallel
-In a parallel program, multiple threads may be executing, each
-with its own registers, stack, and local memory. When one of them
-hits a breakpoint, that thread is selected. Other threads do
-not run while the thread is in the breakpoint.
-
-@kindex 1cont
-The selected thread can be single-stepped, given signals, and so
-on. Any other threads remain stopped. When a @samp{cont} command is given,
-all threads are resumed. To resume just the selected thread, use
-the command @samp{1cont}.
-
-@kindex thread
-The @samp{thread} command will show the active threads and the
-instruction they are about to execute. The selected thread is marked
-with an asterisk. The command @samp{thread @var{n}} will select thread @var{n},
-shifting the debugger's attention to it for single-stepping,
-registers, local memory, and so on.
-
-@kindex info threads
-The @samp{info threads} command will show what threads, if any, have
-invisibly hit breakpoints or signals and are waiting to be noticed.
-
-@kindex set parallel
-The @samp{set parallel} command controls how many threads can be active.
-
-@table @code
-@item set parallel off
-One thread. Requests by the program that other threads join in
-(spawn and pfork instructions) do not cause other threads to start up.
-This does the same thing as the @samp{limit concurrency 1} command.
-
-@item set parallel fixed
-All CPUs are assigned to your program whenever it runs. When it
-executes a pfork or spawn instruction, it begins parallel execution
-immediately. This does the same thing as the @samp{mpa -f} command.
-
-@item set parallel on
-One or more threads. Spawn and pfork cause CPUs to join in when and if
-they are free. This is the default. It is very good for system
-throughput, but not very good for finding bugs in parallel code. If you
-suspect a bug in parallel code, you probably want @samp{set parallel fixed.}
-@end table
-
-@subsection Limitations
-
-WARNING: Convex GDB evaluates expressions in long long, because S
-registers are 64 bits long. However, GDB expression semantics are not
-exactly C semantics. This is a bug, strictly speaking, but it's not one I
-know how to fix. If @samp{x} is a program variable of type int, then it
-is also type int to GDB, but @samp{x + 1} is long long, as is @samp{x + y}
-or any other expression requiring computation. So is the expression
-@samp{1}, or any other constant. You only really have to watch out for
-calls. The innocuous expression @samp{list_node (0x80001234)} has an
-argument of type long long. You must explicitly cast it to int.
-
-It is not possible to continue after an uncaught fatal signal by using
-@samp{signal 0}, @samp{return}, @samp{jump}, or anything else. The difficulty is with
-Unix, not GDB.
-
-I have made no big effort to make such things as single-stepping a
-@kbd{join} instruction do something reasonable. If the program seems to
-hang when doing this, type @kbd{ctrl-c} and @samp{cont}, or use
-@samp{thread} to shift to a live thread. Single-stepping a @kbd{spawn}
-instruction apparently causes new threads to be born with their T bit set;
-this is not handled gracefully. When a thread has hit a breakpoint, other
-threads may have invisibly hit the breakpoint in the background; if you
-clear the breakpoint gdb will be surprised when threads seem to continue
-to stop at it. All of these situations produce spurious signal 5 traps;
-if this happens, just type @samp{cont}. If it becomes a nuisance, use
-@samp{handle 5 nostop}. (It will ask if you are sure. You are.)
-
-There is no way in GDB to store a float in a register, as with
-@kbd{set $s0 = 3.1416}. The identifier @kbd{$s0} denotes an integer,
-and like any C expression which assigns to an integer variable, the
-right-hand side is casted to type int. If you should need to do
-something like this, you can assign the value to @kbd{@{float@} ($sp-4)}
-and then do @kbd{set $s0 = $sp[-4]}. Same deal with @kbd{set $v0[69] = 6.9}.
+++ /dev/null
-# Host: Convex Unix (4bsd)
-XDEPFILES= convex-xdep.o
-XM_FILE= xm-convex.h
+++ /dev/null
-# Target: Convex Unix (4bsd)
-TDEPFILES= convex-tdep.o
-TM_FILE= tm-convex.h
+++ /dev/null
-/* OBSOLETE /* Definitions to make GDB run on Convex Unix (4bsd) */
-/* OBSOLETE Copyright 1989, 1991, 1993 Free Software Foundation, Inc. */
-/* OBSOLETE */
-/* OBSOLETE This file is part of GDB. */
-/* OBSOLETE */
-/* OBSOLETE This program is free software; you can redistribute it and/or modify */
-/* OBSOLETE it under the terms of the GNU General Public License as published by */
-/* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
-/* OBSOLETE (at your option) any later version. */
-/* OBSOLETE */
-/* OBSOLETE This program is distributed in the hope that it will be useful, */
-/* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
-/* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
-/* OBSOLETE GNU General Public License for more details. */
-/* OBSOLETE */
-/* OBSOLETE You should have received a copy of the GNU General Public License */
-/* OBSOLETE along with this program; if not, write to the Free Software */
-/* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define TARGET_BYTE_ORDER BIG_ENDIAN */
-/* OBSOLETE */
-/* OBSOLETE /* There is come problem with the debugging symbols generated by the */
-/* OBSOLETE compiler such that the debugging symbol for the first line of a */
-/* OBSOLETE function overlap with the function prologue. *x/ */
-/* OBSOLETE #define PROLOGUE_FIRSTLINE_OVERLAP */
-/* OBSOLETE */
-/* OBSOLETE /* When convex pcc says CHAR or SHORT, it provides the correct address. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define BELIEVE_PCC_PROMOTION 1 */
-/* OBSOLETE */
-/* OBSOLETE /* Symbol types to ignore. *x/ */
-/* OBSOLETE /* 0xc4 is N_MONPT. Use the numeric value for the benefit of people */
-/* OBSOLETE with (rather) old OS's. *x/ */
-/* OBSOLETE #define IGNORE_SYMBOL(TYPE) \ */
-/* OBSOLETE (((TYPE) & ~N_EXT) == N_TBSS \ */
-/* OBSOLETE || ((TYPE) & ~N_EXT) == N_TDATA \ */
-/* OBSOLETE || ((TYPE) & ~N_EXT) == 0xc4) */
-/* OBSOLETE */
-/* OBSOLETE /* Offset from address of function to start of its code. */
-/* OBSOLETE Zero on most machines. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FUNCTION_START_OFFSET 0 */
-/* OBSOLETE */
-/* OBSOLETE /* Advance PC across any function entry prologue instructions */
-/* OBSOLETE to reach some "real" code. */
-/* OBSOLETE Convex prolog is: */
-/* OBSOLETE [sub.w #-,sp] in one of 3 possible sizes */
-/* OBSOLETE [mov psw,- fc/vc main program prolog */
-/* OBSOLETE and #-,- (skip it because the "mov psw" saves the */
-/* OBSOLETE mov -,psw] T bit, so continue gets a surprise trap) */
-/* OBSOLETE [and #-,sp] fc/vc O2 main program prolog */
-/* OBSOLETE [ld.- -(ap),-] pcc/gcc register arg loads */
-/* OBSOLETE *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern CORE_ADDR convex_skip_prologue (CORE_ADDR pc); */
-/* OBSOLETE #define SKIP_PROLOGUE(pc) (convex_skip_prologue (pc)) */
-/* OBSOLETE */
-/* OBSOLETE /* Immediately after a function call, return the saved pc. */
-/* OBSOLETE (ignore frame and return *$sp so we can handle both calls and callq) *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define SAVED_PC_AFTER_CALL(frame) \ */
-/* OBSOLETE read_memory_integer (read_register (SP_REGNUM), 4) */
-/* OBSOLETE */
-/* OBSOLETE /* Address of end of stack space. */
-/* OBSOLETE This is ((USRSTACK + 0xfff) & -0x1000)) from <convex/vmparam.h> but */
-/* OBSOLETE that expression depends on the kernel version; instead, fetch a */
-/* OBSOLETE page-zero pointer and get it from that. This will be invalid if */
-/* OBSOLETE they ever change the way bkpt signals are delivered. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define STACK_END_ADDR (0xfffff000 & *(unsigned *) 0x80000050) */
-/* OBSOLETE */
-/* OBSOLETE /* User-mode traps push an extended rtn block, */
-/* OBSOLETE then fault with one of the following PCs *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define is_trace_pc(pc) ((unsigned) ((pc) - (*(int *) 0x80000040)) <= 4) */
-/* OBSOLETE #define is_arith_pc(pc) ((unsigned) ((pc) - (*(int *) 0x80000044)) <= 4) */
-/* OBSOLETE #define is_break_pc(pc) ((unsigned) ((pc) - (*(int *) 0x80000050)) <= 4) */
-/* OBSOLETE */
-/* OBSOLETE /* We need to manipulate trap bits in the psw *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define PSW_TRAP_FLAGS 0x69670000 */
-/* OBSOLETE #define PSW_T_BIT 0x08000000 */
-/* OBSOLETE #define PSW_S_BIT 0x01000000 */
-/* OBSOLETE */
-/* OBSOLETE /* Stack grows downward. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define INNER_THAN(lhs,rhs) ((lhs) < (rhs)) */
-/* OBSOLETE */
-/* OBSOLETE /* Sequence of bytes for breakpoint instruction. (bkpt) *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define BREAKPOINT {0x7d,0x50} */
-/* OBSOLETE */
-/* OBSOLETE /* Amount PC must be decremented by after a breakpoint. */
-/* OBSOLETE This is often the number of bytes in BREAKPOINT but not always. */
-/* OBSOLETE (The break PC needs to be decremented by 2, but we do it when the */
-/* OBSOLETE break frame is recognized and popped. That way gdb can tell breaks */
-/* OBSOLETE from trace traps with certainty.) *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define DECR_PC_AFTER_BREAK 0 */
-/* OBSOLETE */
-/* OBSOLETE /* Say how long (ordinary) registers are. This is a piece of bogosity */
-/* OBSOLETE used in push_word and a few other places; REGISTER_RAW_SIZE is the */
-/* OBSOLETE real way to know how big a register is. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_SIZE 8 */
-/* OBSOLETE */
-/* OBSOLETE /* Number of machine registers *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define NUM_REGS 26 */
-/* OBSOLETE */
-/* OBSOLETE /* Initializer for an array of names of registers. */
-/* OBSOLETE There should be NUM_REGS strings in this initializer. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_NAMES {"pc","psw","fp","ap","a5","a4","a3","a2","a1","sp",\ */
-/* OBSOLETE "s7","s6","s5","s4","s3","s2","s1","s0",\ */
-/* OBSOLETE "S7","S6","S5","S4","S3","S2","S1","S0"} */
-/* OBSOLETE */
-/* OBSOLETE /* Register numbers of various important registers. */
-/* OBSOLETE Note that some of these values are "real" register numbers, */
-/* OBSOLETE and correspond to the general registers of the machine, */
-/* OBSOLETE and some are "phony" register numbers which are too large */
-/* OBSOLETE to be actual register numbers as far as the user is concerned */
-/* OBSOLETE but do serve to get the desired values when passed to read_register. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define S0_REGNUM 25 /* the real S regs *x/ */
-/* OBSOLETE #define S7_REGNUM 18 */
-/* OBSOLETE #define s0_REGNUM 17 /* low-order halves of S regs *x/ */
-/* OBSOLETE #define s7_REGNUM 10 */
-/* OBSOLETE #define SP_REGNUM 9 /* A regs *x/ */
-/* OBSOLETE #define A1_REGNUM 8 */
-/* OBSOLETE #define A5_REGNUM 4 */
-/* OBSOLETE #define AP_REGNUM 3 */
-/* OBSOLETE #define FP_REGNUM 2 /* Contains address of executing stack frame *x/ */
-/* OBSOLETE #define PS_REGNUM 1 /* Contains processor status *x/ */
-/* OBSOLETE #define PC_REGNUM 0 /* Contains program counter *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* convert dbx stab register number (from `r' declaration) to a gdb REGNUM *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define STAB_REG_TO_REGNUM(value) \ */
-/* OBSOLETE ((value) < 8 ? S0_REGNUM - (value) : SP_REGNUM - ((value) - 8)) */
-/* OBSOLETE */
-/* OBSOLETE /* Vector register numbers, not handled as ordinary regs. */
-/* OBSOLETE They are treated as convenience variables whose values are read */
-/* OBSOLETE from the inferior when needed. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define V0_REGNUM 0 */
-/* OBSOLETE #define V7_REGNUM 7 */
-/* OBSOLETE #define VM_REGNUM 8 */
-/* OBSOLETE #define VS_REGNUM 9 */
-/* OBSOLETE #define VL_REGNUM 10 */
-/* OBSOLETE */
-/* OBSOLETE /* Total amount of space needed to store our copies of the machine's */
-/* OBSOLETE register state, the array `registers'. *x/ */
-/* OBSOLETE #define REGISTER_BYTES (4*10 + 8*8) */
-/* OBSOLETE */
-/* OBSOLETE /* Index within `registers' of the first byte of the space for */
-/* OBSOLETE register N. */
-/* OBSOLETE NB: must match structure of struct syscall_context for correct operation *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_BYTE(N) ((N) < s7_REGNUM ? 4*(N) : \ */
-/* OBSOLETE (N) < S7_REGNUM ? 44 + 8 * ((N)-s7_REGNUM) : \ */
-/* OBSOLETE 40 + 8 * ((N)-S7_REGNUM)) */
-/* OBSOLETE */
-/* OBSOLETE /* Number of bytes of storage in the actual machine representation */
-/* OBSOLETE for register N. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_RAW_SIZE(N) ((N) < S7_REGNUM ? 4 : 8) */
-/* OBSOLETE */
-/* OBSOLETE /* Number of bytes of storage in the program's representation */
-/* OBSOLETE for register N. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_VIRTUAL_SIZE(N) REGISTER_RAW_SIZE(N) */
-/* OBSOLETE */
-/* OBSOLETE /* Largest value REGISTER_RAW_SIZE can have. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define MAX_REGISTER_RAW_SIZE 8 */
-/* OBSOLETE */
-/* OBSOLETE /* Largest value REGISTER_VIRTUAL_SIZE can have. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define MAX_REGISTER_VIRTUAL_SIZE 8 */
-/* OBSOLETE */
-/* OBSOLETE /* Return the GDB type object for the "standard" data type */
-/* OBSOLETE of data in register N. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_VIRTUAL_TYPE(N) \ */
-/* OBSOLETE ((N) < S7_REGNUM ? builtin_type_int : builtin_type_long_long) */
-/* OBSOLETE */
-/* OBSOLETE /* Store the address of the place in which to copy the structure the */
-/* OBSOLETE subroutine will return. This is called from call_function. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define STORE_STRUCT_RETURN(ADDR, SP) \ */
-/* OBSOLETE { write_register (A1_REGNUM, (ADDR)); } */
-/* OBSOLETE */
-/* OBSOLETE /* Extract from an array REGBUF containing the (raw) register state */
-/* OBSOLETE a function return value of type TYPE, and copy that, in virtual format, */
-/* OBSOLETE into VALBUF. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ */
-/* OBSOLETE memcpy (VALBUF, &((char *) REGBUF) [REGISTER_BYTE (S0_REGNUM) + \ */
-/* OBSOLETE 8 - TYPE_LENGTH (TYPE)],\ */
-/* OBSOLETE TYPE_LENGTH (TYPE)) */
-/* OBSOLETE */
-/* OBSOLETE /* Write into appropriate registers a function return value */
-/* OBSOLETE of type TYPE, given in virtual format. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define STORE_RETURN_VALUE(TYPE,VALBUF) \ */
-/* OBSOLETE write_register_bytes (REGISTER_BYTE (S0_REGNUM), VALBUF, 8) */
-/* OBSOLETE */
-/* OBSOLETE /* Extract from an array REGBUF containing the (raw) register state */
-/* OBSOLETE the address in which a function should return its structure value, */
-/* OBSOLETE as a CORE_ADDR (or an expression that can be used as one). *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ */
-/* OBSOLETE (*(int *) & ((char *) REGBUF) [REGISTER_BYTE (s0_REGNUM)]) */
-/* OBSOLETE */
-/* OBSOLETE /* Define trapped internal variable hooks to read and write */
-/* OBSOLETE vector and communication registers. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define IS_TRAPPED_INTERNALVAR is_trapped_internalvar */
-/* OBSOLETE #define VALUE_OF_TRAPPED_INTERNALVAR value_of_trapped_internalvar */
-/* OBSOLETE #define SET_TRAPPED_INTERNALVAR set_trapped_internalvar */
-/* OBSOLETE */
-/* OBSOLETE extern struct value *value_of_trapped_internalvar (); */
-/* OBSOLETE */
-/* OBSOLETE /* Hooks to read data from soff exec and core files, */
-/* OBSOLETE and to describe the files. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FILES_INFO_HOOK print_maps */
-/* OBSOLETE */
-/* OBSOLETE /* Hook to call to print a typeless integer value, normally printed in decimal. */
-/* OBSOLETE For convex, use hex instead if the number looks like an address. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define PRINT_TYPELESS_INTEGER decout */
-/* OBSOLETE */
-/* OBSOLETE /* For the native compiler, variables for a particular lexical context */
-/* OBSOLETE are listed after the beginning LBRAC instead of before in the */
-/* OBSOLETE executables list of symbols. Using "gcc_compiled." to distinguish */
-/* OBSOLETE between GCC and native compiler doesn't work on Convex because the */
-/* OBSOLETE linker sorts the symbols to put "gcc_compiled." in the wrong place. */
-/* OBSOLETE desc is nonzero for native, zero for gcc. *x/ */
-/* OBSOLETE #define VARIABLES_INSIDE_BLOCK(desc, gcc_p) (desc != 0) */
-/* OBSOLETE */
-/* OBSOLETE /* Pcc occaisionally puts an SO where there should be an SOL. *x/ */
-/* OBSOLETE #define PCC_SOL_BROKEN */
-/* OBSOLETE \f */
-/* OBSOLETE /* Describe the pointer in each stack frame to the previous stack frame */
-/* OBSOLETE (its caller). *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* FRAME_CHAIN takes a frame_info with a frame's nominal address in fi->frame, */
-/* OBSOLETE and produces the frame's chain-pointer. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* (caller fp is saved at 8(fp)) *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_CHAIN(fi) (read_memory_integer ((fi)->frame + 8, 4)) */
-/* OBSOLETE */
-/* OBSOLETE /* Define other aspects of the stack frame. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* We need the boundaries of the text in the exec file, as a kludge, */
-/* OBSOLETE for FRAMELESS_FUNCTION_INVOCATION and CALL_DUMMY_LOCATION. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define NEED_TEXT_START_END 1 */
-/* OBSOLETE */
-/* OBSOLETE /* An expression that tells us whether the function invocation represented */
-/* OBSOLETE by FI does not have a frame on the stack associated with it. */
-/* OBSOLETE On convex, check at the return address for `callq' -- if so, frameless, */
-/* OBSOLETE otherwise, not. *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern int convex_frameless_function_invocation (struct frame_info *fi); */
-/* OBSOLETE #define FRAMELESS_FUNCTION_INVOCATION(FI) (convex_frameless_function_invocatio (FI)) */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_SAVED_PC(fi) (read_memory_integer ((fi)->frame, 4)) */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_ARGS_ADDRESS(fi) (read_memory_integer ((fi)->frame + 12, 4)) */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_LOCALS_ADDRESS(fi) (fi)->frame */
-/* OBSOLETE */
-/* OBSOLETE /* Return number of args passed to a frame. */
-/* OBSOLETE Can return -1, meaning no way to tell. *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern int convex_frame_num_args (struct frame_info *fi); */
-/* OBSOLETE #define FRAME_NUM_ARGS(fi) (convex_frame_num_args ((fi))) */
-/* OBSOLETE */
-/* OBSOLETE /* Return number of bytes at start of arglist that are not really args. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_ARGS_SKIP 0 */
-/* OBSOLETE */
-/* OBSOLETE /* Put here the code to store, into a struct frame_saved_regs, */
-/* OBSOLETE the addresses of the saved registers of frame described by FRAME_INFO. */
-/* OBSOLETE This includes special registers such as pc and fp saved in special */
-/* OBSOLETE ways in the stack frame. sp is even more special: */
-/* OBSOLETE the address we return for it IS the sp for the next frame. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Normal (short) frames save only PC, FP, (callee's) AP. To reasonably */
-/* OBSOLETE handle gcc and pcc register variables, scan the code following the */
-/* OBSOLETE call for the instructions the compiler inserts to reload register */
-/* OBSOLETE variables from stack slots and record the stack slots as the saved */
-/* OBSOLETE locations of those registers. This will occasionally identify some */
-/* OBSOLETE random load as a saved register; this is harmless. vc does not */
-/* OBSOLETE declare its register allocation actions in the stabs. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ */
-/* OBSOLETE { register int regnum; \ */
-/* OBSOLETE register int frame_length = /* 3 short, 2 long, 1 extended, 0 context *x/\ */
-/* OBSOLETE (read_memory_integer ((frame_info)->frame + 4, 4) >> 25) & 3; \ */
-/* OBSOLETE register CORE_ADDR frame_fp = \ */
-/* OBSOLETE read_memory_integer ((frame_info)->frame + 8, 4); \ */
-/* OBSOLETE register CORE_ADDR next_addr; \ */
-/* OBSOLETE memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ */
-/* OBSOLETE (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame + 0; \ */
-/* OBSOLETE (frame_saved_regs).regs[PS_REGNUM] = (frame_info)->frame + 4; \ */
-/* OBSOLETE (frame_saved_regs).regs[FP_REGNUM] = (frame_info)->frame + 8; \ */
-/* OBSOLETE (frame_saved_regs).regs[AP_REGNUM] = frame_fp + 12; \ */
-/* OBSOLETE next_addr = (frame_info)->frame + 12; \ */
-/* OBSOLETE if (frame_length < 3) \ */
-/* OBSOLETE for (regnum = A5_REGNUM; regnum < SP_REGNUM; ++regnum) \ */
-/* OBSOLETE (frame_saved_regs).regs[regnum] = (next_addr += 4); \ */
-/* OBSOLETE if (frame_length < 2) \ */
-/* OBSOLETE (frame_saved_regs).regs[SP_REGNUM] = (next_addr += 4); \ */
-/* OBSOLETE next_addr -= 4; \ */
-/* OBSOLETE if (frame_length < 3) \ */
-/* OBSOLETE for (regnum = S7_REGNUM; regnum < S0_REGNUM; ++regnum) \ */
-/* OBSOLETE (frame_saved_regs).regs[regnum] = (next_addr += 8); \ */
-/* OBSOLETE if (frame_length < 2) \ */
-/* OBSOLETE (frame_saved_regs).regs[S0_REGNUM] = (next_addr += 8); \ */
-/* OBSOLETE else \ */
-/* OBSOLETE (frame_saved_regs).regs[SP_REGNUM] = next_addr + 8; \ */
-/* OBSOLETE if (frame_length == 3) { \ */
-/* OBSOLETE CORE_ADDR pc = read_memory_integer ((frame_info)->frame, 4); \ */
-/* OBSOLETE int op, ix, disp; \ */
-/* OBSOLETE op = read_memory_integer (pc, 2); \ */
-/* OBSOLETE if ((op & 0xffc7) == 0x1480) pc += 4; /* add.w #-,sp *x/ \ */
-/* OBSOLETE else if ((op & 0xffc7) == 0x58c0) pc += 2; /* add.w #-,sp *x/ \ */
-/* OBSOLETE op = read_memory_integer (pc, 2); \ */
-/* OBSOLETE if ((op & 0xffc7) == 0x2a06) pc += 4; /* ld.w -,ap *x/ \ */
-/* OBSOLETE for (;;) { \ */
-/* OBSOLETE op = read_memory_integer (pc, 2); \ */
-/* OBSOLETE ix = (op >> 3) & 7; \ */
-/* OBSOLETE if ((op & 0xfcc0) == 0x2800) { /* ld.- -,ak *x/ \ */
-/* OBSOLETE regnum = SP_REGNUM - (op & 7); \ */
-/* OBSOLETE disp = read_memory_integer (pc + 2, 2); \ */
-/* OBSOLETE pc += 4;} \ */
-/* OBSOLETE else if ((op & 0xfcc0) == 0x2840) { /* ld.- -,ak *x/ \ */
-/* OBSOLETE regnum = SP_REGNUM - (op & 7); \ */
-/* OBSOLETE disp = read_memory_integer (pc + 2, 4); \ */
-/* OBSOLETE pc += 6;} \ */
-/* OBSOLETE if ((op & 0xfcc0) == 0x3000) { /* ld.- -,sk *x/ \ */
-/* OBSOLETE regnum = S0_REGNUM - (op & 7); \ */
-/* OBSOLETE disp = read_memory_integer (pc + 2, 2); \ */
-/* OBSOLETE pc += 4;} \ */
-/* OBSOLETE else if ((op & 0xfcc0) == 0x3040) { /* ld.- -,sk *x/ \ */
-/* OBSOLETE regnum = S0_REGNUM - (op & 7); \ */
-/* OBSOLETE disp = read_memory_integer (pc + 2, 4); \ */
-/* OBSOLETE pc += 6;} \ */
-/* OBSOLETE else if ((op & 0xff00) == 0x7100) { /* br crossjump *x/ \ */
-/* OBSOLETE pc += 2 * (char) op; \ */
-/* OBSOLETE continue;} \ */
-/* OBSOLETE else if (op == 0x0140) { /* jmp crossjump *x/ \ */
-/* OBSOLETE pc = read_memory_integer (pc + 2, 4); \ */
-/* OBSOLETE continue;} \ */
-/* OBSOLETE else break; \ */
-/* OBSOLETE if ((frame_saved_regs).regs[regnum]) \ */
-/* OBSOLETE break; \ */
-/* OBSOLETE if (ix == 7) disp += frame_fp; \ */
-/* OBSOLETE else if (ix == 6) disp += read_memory_integer (frame_fp + 12, 4); \ */
-/* OBSOLETE else if (ix != 0) break; \ */
-/* OBSOLETE (frame_saved_regs).regs[regnum] = \ */
-/* OBSOLETE disp - 8 + (1 << ((op >> 8) & 3)); \ */
-/* OBSOLETE if (regnum >= S7_REGNUM) \ */
-/* OBSOLETE (frame_saved_regs).regs[regnum - S0_REGNUM + s0_REGNUM] = \ */
-/* OBSOLETE disp - 4 + (1 << ((op >> 8) & 3)); \ */
-/* OBSOLETE } \ */
-/* OBSOLETE } \ */
-/* OBSOLETE } */
-/* OBSOLETE \f */
-/* OBSOLETE /* Things needed for making the inferior call functions. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define CALL_DUMMY_LOCATION BEFORE_TEXT_END */
-/* OBSOLETE */
-/* OBSOLETE /* Push an empty stack frame, to record the current PC, etc. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define PUSH_DUMMY_FRAME \ */
-/* OBSOLETE { register CORE_ADDR sp = read_register (SP_REGNUM); \ */
-/* OBSOLETE register int regnum; \ */
-/* OBSOLETE char buf[8]; \ */
-/* OBSOLETE long word; \ */
-/* OBSOLETE for (regnum = S0_REGNUM; regnum >= S7_REGNUM; --regnum) { \ */
-/* OBSOLETE read_register_bytes (REGISTER_BYTE (regnum), buf, 8); \ */
-/* OBSOLETE sp = push_bytes (sp, buf, 8);} \ */
-/* OBSOLETE for (regnum = SP_REGNUM; regnum >= FP_REGNUM; --regnum) { \ */
-/* OBSOLETE word = read_register (regnum); \ */
-/* OBSOLETE sp = push_bytes (sp, &word, 4);} \ */
-/* OBSOLETE word = (read_register (PS_REGNUM) &~ (3<<25)) | (1<<25); \ */
-/* OBSOLETE sp = push_bytes (sp, &word, 4); \ */
-/* OBSOLETE word = read_register (PC_REGNUM); \ */
-/* OBSOLETE sp = push_bytes (sp, &word, 4); \ */
-/* OBSOLETE write_register (SP_REGNUM, sp); \ */
-/* OBSOLETE write_register (FP_REGNUM, sp); \ */
-/* OBSOLETE write_register (AP_REGNUM, sp);} */
-/* OBSOLETE */
-/* OBSOLETE /* Discard from the stack the innermost frame, restoring all registers. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define POP_FRAME do {\ */
-/* OBSOLETE register CORE_ADDR fp = read_register (FP_REGNUM); \ */
-/* OBSOLETE register int regnum; \ */
-/* OBSOLETE register int frame_length = /* 3 short, 2 long, 1 extended, 0 context *x/ \ */
-/* OBSOLETE (read_memory_integer (fp + 4, 4) >> 25) & 3; \ */
-/* OBSOLETE char buf[8]; \ */
-/* OBSOLETE write_register (PC_REGNUM, read_memory_integer (fp, 4)); \ */
-/* OBSOLETE write_register (PS_REGNUM, read_memory_integer (fp += 4, 4)); \ */
-/* OBSOLETE write_register (FP_REGNUM, read_memory_integer (fp += 4, 4)); \ */
-/* OBSOLETE write_register (AP_REGNUM, read_memory_integer (fp += 4, 4)); \ */
-/* OBSOLETE if (frame_length < 3) \ */
-/* OBSOLETE for (regnum = A5_REGNUM; regnum < SP_REGNUM; ++regnum) \ */
-/* OBSOLETE write_register (regnum, read_memory_integer (fp += 4, 4)); \ */
-/* OBSOLETE if (frame_length < 2) \ */
-/* OBSOLETE write_register (SP_REGNUM, read_memory_integer (fp += 4, 4)); \ */
-/* OBSOLETE fp -= 4; \ */
-/* OBSOLETE if (frame_length < 3) \ */
-/* OBSOLETE for (regnum = S7_REGNUM; regnum < S0_REGNUM; ++regnum) { \ */
-/* OBSOLETE read_memory (fp += 8, buf, 8); \ */
-/* OBSOLETE write_register_bytes (REGISTER_BYTE (regnum), buf, 8);} \ */
-/* OBSOLETE if (frame_length < 2) { \ */
-/* OBSOLETE read_memory (fp += 8, buf, 8); \ */
-/* OBSOLETE write_register_bytes (REGISTER_BYTE (regnum), buf, 8);} \ */
-/* OBSOLETE else write_register (SP_REGNUM, fp + 8); \ */
-/* OBSOLETE flush_cached_frames (); \ */
-/* OBSOLETE } while (0) */
-/* OBSOLETE */
-/* OBSOLETE /* This sequence of words is the instructions */
-/* OBSOLETE mov sp,ap */
-/* OBSOLETE pshea 69696969 */
-/* OBSOLETE calls 32323232 */
-/* OBSOLETE bkpt */
-/* OBSOLETE Note this is 16 bytes. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define CALL_DUMMY {0x50860d4069696969LL,0x2140323232327d50LL} */
-/* OBSOLETE */
-/* OBSOLETE #define CALL_DUMMY_LENGTH 16 */
-/* OBSOLETE */
-/* OBSOLETE #define CALL_DUMMY_START_OFFSET 0 */
-/* OBSOLETE */
-/* OBSOLETE /* Insert the specified number of args and function address */
-/* OBSOLETE into a call sequence of the above form stored at DUMMYNAME. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ */
-/* OBSOLETE { *(int *)((char *) dummyname + 4) = nargs; \ */
-/* OBSOLETE *(int *)((char *) dummyname + 10) = fun; } */
-/* OBSOLETE \f */
-/* OBSOLETE /* Defs to read soff symbol tables, see dbxread.c *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define NUMBER_OF_SYMBOLS ((long) opthdr.o_nsyms) */
-/* OBSOLETE #define STRING_TABLE_OFFSET ((long) filehdr.h_strptr) */
-/* OBSOLETE #define SYMBOL_TABLE_OFFSET ((long) opthdr.o_symptr) */
-/* OBSOLETE #define STRING_TABLE_SIZE ((long) filehdr.h_strsiz) */
-/* OBSOLETE #define SIZE_OF_TEXT_SEGMENT ((long) txthdr.s_size) */
-/* OBSOLETE #define ENTRY_POINT ((long) opthdr.o_entry) */
-/* OBSOLETE */
-/* OBSOLETE #define READ_STRING_TABLE_SIZE(BUFFER) \ */
-/* OBSOLETE (BUFFER = STRING_TABLE_SIZE) */
-/* OBSOLETE */
-/* OBSOLETE #define DECLARE_FILE_HEADERS \ */
-/* OBSOLETE FILEHDR filehdr; \ */
-/* OBSOLETE OPTHDR opthdr; \ */
-/* OBSOLETE SCNHDR txthdr */
-/* OBSOLETE */
-/* OBSOLETE #define READ_FILE_HEADERS(DESC,NAME) \ */
-/* OBSOLETE { \ */
-/* OBSOLETE int n; \ */
-/* OBSOLETE val = myread (DESC, &filehdr, sizeof filehdr); \ */
-/* OBSOLETE if (val < 0) \ */
-/* OBSOLETE perror_with_name (NAME); \ */
-/* OBSOLETE if (! IS_SOFF_MAGIC (filehdr.h_magic)) \ */
-/* OBSOLETE error ("%s: not an executable file.", NAME); \ */
-/* OBSOLETE lseek (DESC, 0L, 0); \ */
-/* OBSOLETE if (myread (DESC, &filehdr, sizeof filehdr) < 0) \ */
-/* OBSOLETE perror_with_name (NAME); \ */
-/* OBSOLETE if (myread (DESC, &opthdr, filehdr.h_opthdr) <= 0) \ */
-/* OBSOLETE perror_with_name (NAME); \ */
-/* OBSOLETE for (n = 0; n < filehdr.h_nscns; n++) \ */
-/* OBSOLETE { \ */
-/* OBSOLETE if (myread (DESC, &txthdr, sizeof txthdr) < 0) \ */
-/* OBSOLETE perror_with_name (NAME); \ */
-/* OBSOLETE if ((txthdr.s_flags & S_TYPMASK) == S_TEXT) \ */
-/* OBSOLETE break; \ */
-/* OBSOLETE } \ */
-/* OBSOLETE } */
+++ /dev/null
-/* Definitions to make GDB run on Convex Unix (4bsd)
- Copyright 1989, 1991, 1992, 1996 Free Software Foundation, Inc.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#define HOST_BYTE_ORDER BIG_ENDIAN
-
-#define ATTACH_DETACH
-#define HAVE_WAIT_STRUCT
-#define NO_SIGINTERRUPT
-
-/* Use SIGCONT rather than SIGTSTP because convex Unix occasionally
- turkeys SIGTSTP. I think. */
-
-#define STOP_SIGNAL SIGCONT
-
-/* Hook to call after creating inferior process. Now init_trace_fun
- is in the same place. So re-write this to use the init_trace_fun
- (making convex a debugging target). FIXME. */
-
-#define CREATE_INFERIOR_HOOK create_inferior_hook
+++ /dev/null
-# Host: Altos 3068 (m68k, System V release 2)
-
-XM_FILE= xm-altos.h
-XDEPFILES= infptrace.o inftarg.o fork-child.o altos-xdep.o
-
+++ /dev/null
-# Target: Altos 3068 (m68k, System V release 2)
-TDEPFILES= m68k-tdep.o
-TM_FILE= tm-altos.h
+++ /dev/null
-/* OBSOLETE /* Target definitions for GDB on an Altos 3068 (m68k running SVR2) */
-/* OBSOLETE Copyright 1987, 1989, 1991, 1993 Free Software Foundation, Inc. */
-/* OBSOLETE */
-/* OBSOLETE This file is part of GDB. */
-/* OBSOLETE */
-/* OBSOLETE This program is free software; you can redistribute it and/or modify */
-/* OBSOLETE it under the terms of the GNU General Public License as published by */
-/* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
-/* OBSOLETE (at your option) any later version. */
-/* OBSOLETE */
-/* OBSOLETE This program is distributed in the hope that it will be useful, */
-/* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
-/* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
-/* OBSOLETE GNU General Public License for more details. */
-/* OBSOLETE */
-/* OBSOLETE You should have received a copy of the GNU General Public License */
-/* OBSOLETE along with this program; if not, write to the Free Software */
-/* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* The child target can't deal with floating registers. *x/ */
-/* OBSOLETE #define CANNOT_STORE_REGISTER(regno) ((regno) >= FP0_REGNUM) */
-/* OBSOLETE */
-/* OBSOLETE /* Define BPT_VECTOR if it is different than the default. */
-/* OBSOLETE This is the vector number used by traps to indicate a breakpoint. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define BPT_VECTOR 0xe */
-/* OBSOLETE */
-/* OBSOLETE /* Address of end of stack space. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /*#define STACK_END_ADDR (0xffffff)*x/ */
-/* OBSOLETE #define STACK_END_ADDR (0x1000000) */
-/* OBSOLETE */
-/* OBSOLETE /* Amount PC must be decremented by after a breakpoint. */
-/* OBSOLETE On the Altos, the kernel resets the pc to the trap instr *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define DECR_PC_AFTER_BREAK 0 */
-/* OBSOLETE */
-/* OBSOLETE /* The only reason this is here is the tm-altos.h reference below. It */
-/* OBSOLETE was moved back here from tm-m68k.h. FIXME? *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern CORE_ADDR altos_skip_prologue (CORE_ADDR); */
-/* OBSOLETE #define SKIP_PROLOGUE(pc) (altos_skip_prologue (pc)) */
-/* OBSOLETE */
-/* OBSOLETE #include "m68k/tm-m68k.h" */
+++ /dev/null
-/* Definitions to make GDB run on an Altos 3068 (m68k running SVR2)
- Copyright (C) 1987,1989 Free Software Foundation, Inc.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#define HOST_BYTE_ORDER BIG_ENDIAN
-
-/* The altos support would make a good base for a port to other USGR2 systems
- (like the 3b1 and the Convergent miniframe). */
-
-/* This is only needed in one file, but it's cleaner to put it here than
- putting in more #ifdef's. */
-#include <sys/page.h>
-#include <sys/net.h>
-
-#define USG
-
-#define HAVE_TERMIO
-
-#define CBREAK XTABS /* It takes all kinds... */
-
-#ifndef R_OK
-#define R_OK 4
-#define W_OK 2
-#define X_OK 1
-#define F_OK 0
-#endif
-
-/* Get sys/wait.h ie. from a Sun and edit it a little (mc68000 to m68k) */
-/* Why bother? */
-#if 0
-#define HAVE_WAIT_STRUCT
-#endif
-
-/* This is the amount to subtract from u.u_ar0
- to get the offset in the core file of the register values. */
-
-#define KERNEL_U_ADDR 0x1fbf000
-
-#define REGISTER_U_ADDR(addr, blockend, regno) \
-{ if (regno <= SP_REGNUM) \
- addr = blockend + regno * 4; \
- else if (regno == PS_REGNUM) \
- addr = blockend + regno * 4 + 4; \
- else if (regno == PC_REGNUM) \
- addr = blockend + regno * 4 + 2; \
-}
-
-#define REGISTER_ADDR(u_ar0, regno) \
- (((regno) < PS_REGNUM) \
- ? (&((struct exception_stack *) (u_ar0))->e_regs[(regno + R0)]) \
- : (((regno) == PS_REGNUM) \
- ? ((int *) (&((struct exception_stack *) (u_ar0))->e_PS)) \
- : (&((struct exception_stack *) (u_ar0))->e_PC)))
-
-#define FP_REGISTER_ADDR(u, regno) \
- (((char *) \
- (((regno) < FPC_REGNUM) \
- ? (&u.u_pcb.pcb_mc68881[FMC68881_R0 + (((regno) - FP0_REGNUM) * 3)]) \
- : (&u.u_pcb.pcb_mc68881[FMC68881_C + ((regno) - FPC_REGNUM)]))) \
- - ((char *) (& u)))
-
-\f
-#ifndef __GNUC__
-#undef USE_GAS
-#define ALTOS_AS
-#else
-#define USE_GAS
-#endif
-
-/* Motorola assembly format */
-#if !defined(USE_GAS) && !defined(ALTOS)
-#define MOTOROLA
-#endif
-
-/* Interface definitions for kernel debugger KDB. */
-
-/* Map machine fault codes into signal numbers.
- First subtract 0, divide by 4, then index in a table.
- Faults for which the entry in this table is 0
- are not handled by KDB; the program's own trap handler
- gets to handle then. */
-
-#define FAULT_CODE_ORIGIN 0
-#define FAULT_CODE_UNITS 4
-#define FAULT_TABLE \
-{ 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \
- 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \
- 0, 0, 0, 0, 0, 0, 0, 0, \
- SIGILL }
-
-/* Start running with a stack stretching from BEG to END.
- BEG and END should be symbols meaningful to the assembler.
- This is used only for kdb. */
-
-#ifdef MOTOROLA
-#define INIT_STACK(beg, end) \
-{ asm (".globl end"); \
- asm ("move.l $ end, sp"); \
- asm ("clr.l fp"); }
-#else
-#ifdef ALTOS_AS
-#define INIT_STACK(beg, end) \
-{ asm ("global end"); \
- asm ("mov.l &end,%sp"); \
- asm ("clr.l %fp"); }
-#else
-#define INIT_STACK(beg, end) \
-{ asm (".globl end"); \
- asm ("movel $ end, sp"); \
- asm ("clrl fp"); }
-#endif
-#endif
-
-/* Push the frame pointer register on the stack. */
-#ifdef MOTOROLA
-#define PUSH_FRAME_PTR \
- asm ("move.l fp, -(sp)");
-#else
-#ifdef ALTOS_AS
-#define PUSH_FRAME_PTR \
- asm ("mov.l %fp, -(%sp)");
-#else
-#define PUSH_FRAME_PTR \
- asm ("movel fp, -(sp)");
-#endif
-#endif
-
-/* Copy the top-of-stack to the frame pointer register. */
-#ifdef MOTOROLA
-#define POP_FRAME_PTR \
- asm ("move.l (sp), fp");
-#else
-#ifdef ALTOS_AS
-#define POP_FRAME_PTR \
- asm ("mov.l (%sp), %fp");
-#else
-#define POP_FRAME_PTR \
- asm ("movl (sp), fp");
-#endif
-#endif
-
-/* After KDB is entered by a fault, push all registers
- that GDB thinks about (all NUM_REGS of them),
- so that they appear in order of ascending GDB register number.
- The fault code will be on the stack beyond the last register. */
-
-#ifdef MOTOROLA
-#define PUSH_REGISTERS \
-{ asm ("clr.w -(sp)"); \
- asm ("pea (10,sp)"); \
- asm ("movem $ 0xfffe,-(sp)"); }
-#else
-#ifdef ALTOS_AS
-#define PUSH_REGISTERS \
-{ asm ("clr.w -(%sp)"); \
- asm ("pea (10,%sp)"); \
- asm ("movm.l &0xfffe,-(%sp)"); }
-#else
-#define PUSH_REGISTERS \
-{ asm ("clrw -(sp)"); \
- asm ("pea 10(sp)"); \
- asm ("movem $ 0xfffe,-(sp)"); }
-#endif
-#endif
-
-/* Assuming the registers (including processor status) have been
- pushed on the stack in order of ascending GDB register number,
- restore them and return to the address in the saved PC register. */
-
-#ifdef MOTOROLA
-#define POP_REGISTERS \
-{ asm ("subi.l $8,28(sp)"); \
- asm ("movem (sp),$ 0xffff"); \
- asm ("rte"); }
-#else
-#ifdef ALTOS_AS
-#define POP_REGISTERS \
-{ asm ("sub.l &8,28(%sp)"); \
- asm ("movem (%sp),&0xffff"); \
- asm ("rte"); }
-#else
-#define POP_REGISTERS \
-{ asm ("subil $8,28(sp)"); \
- asm ("movem (sp),$ 0xffff"); \
- asm ("rte"); }
-#endif
-#endif
+++ /dev/null
-# Host: Pyramid under OSx 4.0 (4.2bsd).
-
-#msg If you don't compile GDB with GCC, you'll need to add
-#msg ALLOCA=alloca.o and ALLOCA1=alloca.o to the Makefile.
-#msg
-
-XDEPFILES= pyr-xdep.o infptrace.o inftarg.o fork-child.o
-XM_FILE= xm-pyr.h
+++ /dev/null
-# Target: Pyramid under OSx 4.0 (4.2bsd).
-TDEPFILES= pyr-tdep.o
-TM_FILE= tm-pyr.h
+++ /dev/null
-/* Definitions to make GDB run on a Pyramid under OSx 4.0 (4.2bsd).
- Copyright 1988, 1989, 1991, 1993 Free Software Foundation, Inc.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#define TARGET_BYTE_ORDER BIG_ENDIAN
-
-/* Traditional Unix virtual address spaces have thre regions: text,
- data and stack. The text, initialised data, and uninitialised data
- are represented in separate segments of the a.out file.
- When a process dumps core, the data and stack regions are written
- to a core file. This gives a debugger enough information to
- reconstruct (and debug) the virtual address space at the time of
- the coredump.
- Pyramids have an distinct fourth region of the virtual address
- space, in which the contents of the windowed registers are stacked
- in fixed-size frames. Pyramid refer to this region as the control
- stack. Each call (or trap) automatically allocates a new register
- frame; each return deallocates the current frame and restores the
- windowed registers to their values before the call.
-
- When dumping core, the control stack is written to a core files as
- a third segment. The core-handling functions need to know to deal
- with it. */
-
-/* Tell corefile.c there is an extra segment. */
-#define REG_STACK_SEGMENT
-
-/* Floating point is IEEE compatible on most Pyramid hardware
- (Older processors do not have IEEE NaNs). */
-#define IEEE_FLOAT
-
-/* Offset from address of function to start of its code.
- Zero on most machines. */
-
-#define FUNCTION_START_OFFSET 0
-
-/* Advance PC across any function entry prologue instructions
- to reach some "real" code. */
-
-/* FIXME -- do we want to skip insns to allocate the local frame?
- If so, what do they look like?
- This is becoming harder, since tege@sics.SE wants to change
- gcc to not output a prologue when no frame is needed. */
-#define SKIP_PROLOGUE(pc) do {} while (0)
-
-
-/* Immediately after a function call, return the saved pc.
- Can't always go through the frames for this because on some machines
- the new frame is not set up until the new function executes
- some instructions. */
-
-#define SAVED_PC_AFTER_CALL(frame) FRAME_SAVED_PC(frame)
-
-/* Address of end of stack space. */
-/* This seems to be right for the 90x comp.vuw.ac.nz.
- The correct value at any site may be a function of the configured
- maximum control stack depth. If so, I don't know where the
- control-stack depth is configured, so I can't #include it here. */
-#define STACK_END_ADDR (0xc00cc000)
-
-/* Register window stack (Control stack) stack definitions
- - Address of beginning of control stack.
- - size of control stack frame
- (Note that since crts0 is usually the first function called,
- main()'s control stack is one frame (0x80 bytes) beyond this value. */
-
-#define CONTROL_STACK_ADDR (0xc00cd000)
-
-/* Bytes in a register window -- 16 parameter regs, 16 local regs
- for each call, is 32 regs * 4 bytes */
-
-#define CONTROL_STACK_FRAME_SIZE (32*4)
-
-/* FIXME. On a pyr, Data Stack grows downward; control stack goes upwards.
- Which direction should we use for INNER_THAN, PC_INNER_THAN ?? */
-
-#define INNER_THAN(lhs,rhs) ((lhs) < (rhs))
-
-/* Stack must be aligned on 32-bit boundaries when synthesizing
- function calls. */
-
-#define STACK_ALIGN(ADDR) (((ADDR) + 3) & -4)
-
-/* Sequence of bytes for breakpoint instruction. */
-
-#define BREAKPOINT {0xf0, 00, 00, 00}
-
-/* Amount PC must be decremented by after a breakpoint.
- This is often the number of bytes in BREAKPOINT
- but not always. */
-
-#define DECR_PC_AFTER_BREAK 0
-
-/* Say how long (ordinary) registers are. This is a piece of bogosity
- used in push_word and a few other places; REGISTER_RAW_SIZE is the
- real way to know how big a register is. */
-
-#define REGISTER_SIZE 4
-
-/* Number of machine registers */
-/* pyramids have 64, plus one for the PSW; plus perhaps one more for the
- kernel stack pointer (ksp) and control-stack pointer (CSP) */
-
-#define NUM_REGS 67
-
-/* Initializer for an array of names of registers.
- There should be NUM_REGS strings in this initializer. */
-
-#define REGISTER_NAMES \
-{"gr0", "gr1", "gr2", "gr3", "gr4", "gr5", "gr6", "gr7", \
- "gr8", "gr9", "gr10", "gr11", "logpsw", "cfp", "sp", "pc", \
- "pr0", "pr1", "pr2", "pr3", "pr4", "pr5", "pr6", "pr7", \
- "pr8", "pr9", "pr10", "pr11", "pr12", "pr13", "pr14", "pr15", \
- "lr0", "lr1", "lr2", "lr3", "lr4", "lr5", "lr6", "lr7", \
- "lr8", "lr9", "lr10", "lr11", "lr12", "lr13", "lr14", "lr15", \
- "tr0", "tr1", "tr2", "tr3", "tr4", "tr5", "tr6", "tr7", \
- "tr8", "tr9", "tr10", "tr11", "tr12", "tr13", "tr14", "tr15", \
- "psw", "ksp", "csp"}
-
-/* Register numbers of various important registers.
- Note that some of these values are "real" register numbers,
- and correspond to the general registers of the machine,
- and some are "phony" register numbers which are too large
- to be actual register numbers as far as the user is concerned
- but do serve to get the desired values when passed to read_register. */
-
-/* pseudo-registers: */
-#define PS_REGNUM 64 /* Contains processor status */
-#define PSW_REGNUM 64 /* Contains current psw, whatever it is.*/
-#define CSP_REGNUM 65 /* address of this control stack frame*/
-#define KSP_REGNUM 66 /* Contains process's Kernel Stack Pointer */
-
-#define CFP_REGNUM 13 /* Current data-stack frame ptr */
-#define TR0_REGNUM 48 /* After function call, contains
- function result */
-
-/* Registers interesting to the machine-independent part of gdb*/
-
-#define FP_REGNUM CSP_REGNUM /* Contains address of executing (control)
- stack frame */
-#define SP_REGNUM 14 /* Contains address of top of stack -??*/
-#define PC_REGNUM 15 /* Contains program counter */
-
-/* Define DO_REGISTERS_INFO() to do machine-specific formatting
- of register dumps. */
-
-#define DO_REGISTERS_INFO(_regnum, fp) pyr_do_registers_info(_regnum, fp)
-
-/* need this so we can find the global registers: they never get saved. */
-extern unsigned int global_reg_offset;
-extern unsigned int last_frame_offset;
-
-/* Total amount of space needed to store our copies of the machine's
- register state, the array `registers'. */
-#define REGISTER_BYTES (NUM_REGS*4)
-
-/* the Pyramid has register windows. */
-
-#define HAVE_REGISTER_WINDOWS
-
-/* Is this register part of the register window system? A yes answer
- implies that 1) The name of this register will not be the same in
- other frames, and 2) This register is automatically "saved" (out
- registers shifting into ins counts) upon subroutine calls and thus
- there is no need to search more than one stack frame for it. */
-
-#define REGISTER_IN_WINDOW_P(regnum) \
- ((regnum) >= 16 && (regnum) < 64)
-
-/* Index within `registers' of the first byte of the space for
- register N. */
-
-#define REGISTER_BYTE(N) ((N) * 4)
-
-/* Number of bytes of storage in the actual machine representation
- for register N. On the Pyramid, all regs are 4 bytes. */
-
-#define REGISTER_RAW_SIZE(N) 4
-
-/* Number of bytes of storage in the program's representation
- for register N. On the Pyramid, all regs are 4 bytes. */
-
-#define REGISTER_VIRTUAL_SIZE(N) 4
-
-/* Largest value REGISTER_RAW_SIZE can have. */
-
-#define MAX_REGISTER_RAW_SIZE 4
-
-/* Largest value REGISTER_VIRTUAL_SIZE can have. */
-
-#define MAX_REGISTER_VIRTUAL_SIZE 4
-
-/* Return the GDB type object for the "standard" data type
- of data in register N. */
-
-#define REGISTER_VIRTUAL_TYPE(N) builtin_type_int
-
-/* FIXME: It seems impossible for both EXTRACT_RETURN_VALUE and
- STORE_RETURN_VALUE to be correct. */
-
-/* Store the address of the place in which to copy the structure the
- subroutine will return. This is called from call_function. */
-
-/****FIXME****/
-#define STORE_STRUCT_RETURN(ADDR, SP) \
- { write_register (TR0_REGNUM, (ADDR)); }
-
-/* Extract from an array REGBUF containing the (raw) register state
- a function return value of type TYPE, and copy that, in virtual format,
- into VALBUF. */
-
-/* Note that on a register-windowing machine (eg, Pyr, SPARC), this is
- where the value is found after the function call -- ie, it should
- correspond to GNU CC's FUNCTION_VALUE rather than FUNCTION_OUTGOING_VALUE.*/
-
-#define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \
- memcpy (VALBUF, ((int *)(REGBUF))+TR0_REGNUM, TYPE_LENGTH (TYPE))
-
-/* Write into appropriate registers a function return value
- of type TYPE, given in virtual format. */
-/* on pyrs, values are returned in */
-
-#define STORE_RETURN_VALUE(TYPE,VALBUF) \
- write_register_bytes (REGISTER_BYTE(TR0_REGNUM), VALBUF, TYPE_LENGTH (TYPE))
-
-/* Extract from an array REGBUF containing the (raw) register state
- the address in which a function should return its structure value,
- as a CORE_ADDR (or an expression that can be used as one). */
-/* FIXME */
-#define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \
- ( ((int *)(REGBUF)) [TR0_REGNUM])
-
-\f
-/* Describe the pointer in each stack frame to the previous stack frame
- (its caller). */
-
-#define EXTRA_FRAME_INFO \
- CORE_ADDR bottom; \
- CORE_ADDR frame_cfp; \
- CORE_ADDR frame_window_addr;
-
-/* The bottom field is misnamed, since it might imply that memory from
- bottom to frame contains this frame. That need not be true if
- stack frames are allocated in different segments (e.g. some on a
- stack, some on a heap in the data segment). */
-
-#define INIT_EXTRA_FRAME_INFO(fromleaf, fci) \
-do { \
- (fci)->frame_window_addr = (fci)->frame; \
- (fci)->bottom = \
- ((fci)->next ? \
- ((fci)->frame == (fci)->next->frame ? \
- (fci)->next->bottom : (fci)->next->frame) : \
- read_register (SP_REGNUM)); \
- (fci)->frame_cfp = \
- read_register (CFP_REGNUM); \
- /***fprintf (stderr, \
- "[[creating new frame for %0x,pc=%0x,csp=%0x]]\n", \
- (fci)->frame, (fci)->pc,(fci)->frame_cfp);*/ \
-} while (0);
-
-/* FRAME_CHAIN takes a frame's nominal address
- and produces the frame's chain-pointer. */
-
-/* In the case of the pyr, the frame's nominal address is the address
- of parameter register 0. The previous frame is found 32 words up. */
-
-#define FRAME_CHAIN(thisframe) \
- ( (thisframe) -> frame - CONTROL_STACK_FRAME_SIZE)
-
- /*((thisframe) >= CONTROL_STACK_ADDR))*/
-
-/* Define other aspects of the stack frame. */
-
-/* A macro that tells us whether the function invocation represented
- by FI does not have a frame on the stack associated with it. If it
- does not, FRAMELESS is set to 1, else 0.
-
- I do not understand what this means on a Pyramid, where functions
- *always* have a control-stack frame, but may or may not have a
- frame on the data stack. Since GBD uses the value of the
- control stack pointer as its "address" of a frame, FRAMELESS
- is always 1, so does not need to be defined. */
-
-
-/* Where is the PC for a specific frame */
-
-#define FRAME_SAVED_PC(fi) \
- ((CORE_ADDR) (read_memory_integer ( (fi) -> frame + 60, 4)))
-
-/* There may be bugs in FRAME_ARGS_ADDRESS and FRAME_LOCALS_ADDRESS;
- or there may be bugs in accessing the registers that break
- their definitions.
- Having the macros expand into functions makes them easier to debug.
- When the bug is finally located, the inline macro defintions can
- be un-#if 0ed, and frame_args_addr and frame_locals_address can
- be deleted from pyr-dep.c */
-
-/* If the argument is on the stack, it will be here. */
-#define FRAME_ARGS_ADDRESS(fi) \
- frame_args_addr(fi)
-
-#define FRAME_LOCALS_ADDRESS(fi) \
- frame_locals_address(fi)
-
-/* The following definitions doesn't seem to work.
- I don't understand why. */
-#if 0
-#define FRAME_ARGS_ADDRESS(fi) \
- /*(FRAME_FP(fi) + (13*4))*/ (read_register (CFP_REGNUM))
-
-#define FRAME_LOCALS_ADDRESS(fi) \
- ((fi)->frame +(16*4))
-
-#endif /* 0 */
-
-/* Return number of args passed to a frame.
- Can return -1, meaning no way to tell. */
-
-#define FRAME_NUM_ARGS(val, fi) (val = -1)
-
-/* Return number of bytes at start of arglist that are not really args. */
-
-#define FRAME_ARGS_SKIP 0
-
-/* Put here the code to store, into a struct frame_saved_regs,
- the addresses of the saved registers of frame described by FRAME_INFO.
- This includes special registers such as pc and fp saved in special
- ways in the stack frame. sp is even more special:
- the address we return for it IS the sp for the next frame.
-
- Note that on register window machines, we are currently making the
- assumption that window registers are being saved somewhere in the
- frame in which they are being used. If they are stored in an
- inferior frame, find_saved_register will break.
-
- On pyrs, frames of window registers are stored contiguously on a
- separate stack. All window registers are always stored.
- The pc and psw (gr15 and gr14) are also always saved: the call
- insn saves them in pr15 and pr14 of the new frame (tr15,tr14 of the
- old frame).
- The data-stack frame pointer (CFP) is only saved in functions which
- allocate a (data)stack frame (with "adsf"). We detect them by
- looking at the first insn of the procedure.
-
- Other non-window registers (gr0-gr11) are never saved. Pyramid's C
- compiler and gcc currently ignore them, so it's not an issue. */
-
-#define FRAME_FIND_SAVED_REGS(fi_p, frame_saved_regs) \
-{ register int regnum; \
- register CORE_ADDR pc; \
- register CORE_ADDR fn_start_pc; \
- register int first_insn; \
- register CORE_ADDR prev_cf_addr; \
- register int window_ptr; \
- if (!fi_p) fatal ("Bad frame info struct in FRAME_FIND_SAVED_REGS"); \
- memset (&(frame_saved_regs), '\0', sizeof (frame_saved_regs)); \
- \
- window_ptr = prev_cf_addr = FRAME_FP(fi_p); \
- \
- for (regnum = 16 ; regnum < 64; regnum++,window_ptr+=4) \
- { \
- (frame_saved_regs).regs[regnum] = window_ptr; \
- } \
- \
- /* In each window, psw, and pc are "saved" in tr14,tr15. */ \
- /*** psw is sometimes saved in gr12 (so sez <sys/pcb.h>) */ \
- (frame_saved_regs).regs[PS_REGNUM] = FRAME_FP(fi_p) + (14*4); \
- \
-/*(frame_saved_regs).regs[PC_REGNUM] = (frame_saved_regs).regs[31];*/ \
- (frame_saved_regs).regs[PC_REGNUM] = FRAME_FP(fi_p) + ((15+32)*4); \
- \
- /* Functions that allocate a frame save sp *where*? */ \
-/*first_insn = read_memory_integer (get_pc_function_start ((fi_p)->pc),4); */ \
- \
- fn_start_pc = (get_pc_function_start ((fi_p)->pc)); \
- first_insn = read_memory_integer(fn_start_pc, 4); \
- \
- if (0x08 == ((first_insn >> 20) &0x0ff)) { \
- /* NB: because WINDOW_REGISTER_P(cfp) is false, a saved cfp \
- in this frame is only visible in this frame's callers. \
- That means the cfp we mark saved is my caller's cfp, ie pr13. \
- I don't understand why we don't have to do that for pc, too. */ \
- \
- (frame_saved_regs).regs[CFP_REGNUM] = FRAME_FP(fi_p)+(13*4); \
- \
- (frame_saved_regs).regs[SP_REGNUM] = \
- read_memory_integer (FRAME_FP(fi_p)+((13+32)*4),4); \
- } \
- \
-/* \
- *(frame_saved_regs).regs[CFP_REGNUM] = (frame_saved_regs).regs[61]; \
- * (frame_saved_regs).regs[SP_REGNUM] = \
- * read_memory_integer (FRAME_FP(fi_p)+((13+32)*4),4); \
- */ \
- \
- (frame_saved_regs).regs[CSP_REGNUM] = prev_cf_addr; \
-}
-\f
-/* Things needed for making the inferior call functions. */
-#if 0
-/* These are all lies. These macro definitions are appropriate for a
- SPARC. On a pyramid, pushing a dummy frame will
- surely involve writing the control stack pointer,
- then saving the pc. This requires a privileged instruction.
- Maybe one day Pyramid can be persuaded to add a syscall to do this.
- Until then, we are out of luck. */
-
-/* Push an empty stack frame, to record the current PC, etc. */
-
-#define PUSH_DUMMY_FRAME \
-{ register CORE_ADDR sp = read_register (SP_REGNUM);\
- register int regnum; \
- sp = push_word (sp, 0); /* arglist */ \
- for (regnum = 11; regnum >= 0; regnum--) \
- sp = push_word (sp, read_register (regnum)); \
- sp = push_word (sp, read_register (PC_REGNUM)); \
- sp = push_word (sp, read_register (FP_REGNUM)); \
-/* sp = push_word (sp, read_register (AP_REGNUM));*/ \
- sp = push_word (sp, (read_register (PS_REGNUM) & 0xffef) \
- + 0x2fff0000); \
- sp = push_word (sp, 0); \
- write_register (SP_REGNUM, sp); \
- write_register (FP_REGNUM, sp); \
-/* write_register (AP_REGNUM, sp + 17 * sizeof (int));*/ }
-
-/* Discard from the stack the innermost frame, restoring all registers. */
-
-#define POP_FRAME \
-{ register CORE_ADDR fp = read_register (FP_REGNUM); \
- register int regnum; \
- register int regmask = read_memory_integer (fp + 4, 4); \
- write_register (PS_REGNUM, \
- (regmask & 0xffff) \
- | (read_register (PS_REGNUM) & 0xffff0000)); \
- write_register (PC_REGNUM, read_memory_integer (fp + 16, 4)); \
- write_register (FP_REGNUM, read_memory_integer (fp + 12, 4)); \
-/* write_register (AP_REGNUM, read_memory_integer (fp + 8, 4));*/ \
- fp += 16; \
- for (regnum = 0; regnum < 12; regnum++) \
- if (regmask & (0x10000 << regnum)) \
- write_register (regnum, read_memory_integer (fp += 4, 4)); \
- fp = fp + 4 + ((regmask >> 30) & 3); \
- if (regmask & 0x20000000) \
- { regnum = read_memory_integer (fp, 4); \
- fp += (regnum + 1) * 4; } \
- write_register (SP_REGNUM, fp); \
- set_current_frame (read_register (FP_REGNUM)); }
-
-/* This sequence of words is the instructions
- calls #69, @#32323232
- bpt
- Note this is 8 bytes. */
-
-#define CALL_DUMMY {0x329f69fb, 0x03323232}
-
-#define CALL_DUMMY_START_OFFSET 0 /* Start execution at beginning of dummy */
-
-/* Insert the specified number of args and function address
- into a call sequence of the above form stored at DUMMYNAME. */
-
-#define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \
-{ *((char *) dummyname + 1) = nargs; \
- *(int *)((char *) dummyname + 3) = fun; }
-#endif /* 0 */
-
-#define POP_FRAME \
- { error ("The return command is not supported on this machine."); }
+++ /dev/null
-/* Definitions to make GDB run on a Pyramidax under OSx 4.0 (4.2bsd).
- Copyright 1988, 1989, 1992 Free Software Foundation, Inc.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#define HOST_BYTE_ORDER BIG_ENDIAN
-
-/* Define PYRAMID_CONTROL_FRAME_DEBUGGING to get copious messages
- about reading the control stack on standard output. This
- makes gdb unusable as a debugger. */
-
-/* #define PYRAMID_CONTROL_FRAME_DEBUGGING */
-
-/* Define PYRAMID_FRAME_DEBUGGING for ? */
-
-/* use Pyramid's slightly strange ptrace */
-#define PYRAMID_PTRACE
-
-/* Traditional Unix virtual address spaces have thre regions: text,
- data and stack. The text, initialised data, and uninitialised data
- are represented in separate segments of the a.out file.
- When a process dumps core, the data and stack regions are written
- to a core file. This gives a debugger enough information to
- reconstruct (and debug) the virtual address space at the time of
- the coredump.
- Pyramids have an distinct fourth region of the virtual address
- space, in which the contents of the windowed registers are stacked
- in fixed-size frames. Pyramid refer to this region as the control
- stack. Each call (or trap) automatically allocates a new register
- frame; each return deallocates the current frame and restores the
- windowed registers to their values before the call.
-
- When dumping core, the control stack is written to a core files as
- a third segment. The core-handling functions need to know to deal
- with it. */
-
-/* Tell dep.c what the extra segment is. */
-#define PYRAMID_CORE
-
-#define NO_SIGINTERRUPT
-
-#define HAVE_WAIT_STRUCT
-
-/* This is the amount to subtract from u.u_ar0
- to get the offset in the core file of the register values. */
-
-#define KERNEL_U_ADDR (0x80000000 - (UPAGES * NBPG))
-
-/* Define offsets of registers in the core file (or maybe u area) */
-#define REGISTER_U_ADDR(addr, blockend, regno) \
-{ struct user __u; \
- addr = blockend + (regno - 16 ) * 4; \
- if (regno == 67) { \
- printf("\\geting reg 67\\"); \
- addr = (int)(&__u.u_pcb.pcb_csp) - (int) &__u; \
- } else if (regno == KSP_REGNUM) { \
- printf("\\geting KSP (reg %d)\\", KSP_REGNUM); \
- addr = (int)(&__u.u_pcb.pcb_ksp) - (int) &__u; \
- } else if (regno == CSP_REGNUM) { \
- printf("\\geting CSP (reg %d\\",CSP_REGNUM); \
- addr = (int)(&__u.u_pcb.pcb_csp) - (int) &__u; \
- } else if (regno == 64) { \
- printf("\\geting reg 64\\"); \
- addr = (int)(&__u.u_pcb.pcb_csp) - (int) &__u; \
- } else if (regno == PS_REGNUM) \
- addr = blockend - 4; \
- else if (1 && ((16 > regno) && (regno > 11))) \
- addr = last_frame_offset + (4 *(regno+32)); \
- else if (0 && (12 > regno)) \
- addr = global_reg_offset + (4 *regno); \
- else if (16 > regno) \
- addr = global_reg_offset + (4 *regno); \
- else \
- addr = blockend + (regno - 16 ) * 4; \
-}
-
-/* Override copies of {fetch,store}_inferior_registers in infptrace.c. */
-#define FETCH_INFERIOR_REGISTERS
+++ /dev/null
-# Host: CCI or Harris Tahoe running BSD Unix
-
-XM_FILE= xm-tahoe.h
-XDEPFILES= infptrace.o inftarg.o fork-child.o corelow.o core-aout.o
+++ /dev/null
-# Target: CCI or Harris Tahoe running BSD Unix
-TDEPFILES= tahoe-tdep.o
-TM_FILE= tm-tahoe.h
+++ /dev/null
-/* OBSOLETE /* Definitions to make GDB target for a tahoe running 4.3-Reno. */
-/* OBSOLETE Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. */
-/* OBSOLETE */
-/* OBSOLETE This file is part of GDB. */
-/* OBSOLETE */
-/* OBSOLETE This program is free software; you can redistribute it and/or modify */
-/* OBSOLETE it under the terms of the GNU General Public License as published by */
-/* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
-/* OBSOLETE (at your option) any later version. */
-/* OBSOLETE */
-/* OBSOLETE This program is distributed in the hope that it will be useful, */
-/* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
-/* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
-/* OBSOLETE GNU General Public License for more details. */
-/* OBSOLETE */
-/* OBSOLETE You should have received a copy of the GNU General Public License */
-/* OBSOLETE along with this program; if not, write to the Free Software */
-/* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, */
-/* OBSOLETE Boston, MA 02111-1307, USA. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* */
-/* OBSOLETE * Ported by the State University of New York at Buffalo by the Distributed */
-/* OBSOLETE * Computer Systems Lab, Department of Computer Science, 1991. */
-/* OBSOLETE *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define TARGET_BYTE_ORDER BIG_ENDIAN */
-/* OBSOLETE #define BITS_BIG_ENDIAN 0 */
-/* OBSOLETE */
-/* OBSOLETE /* Offset from address of function to start of its code. */
-/* OBSOLETE Zero on most machines. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FUNCTION_START_OFFSET 2 */
-/* OBSOLETE */
-/* OBSOLETE /* Advance PC across any function entry prologue instructions */
-/* OBSOLETE to reach some "real" code. *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern CORE_ADDR tahoe_skip_prologue (CORE_ADDR); */
-/* OBSOLETE #define SKIP_PROLOGUE(pc) (tahoe_skip_prologue (pc)) */
-/* OBSOLETE */
-/* OBSOLETE /* Immediately after a function call, return the saved pc. */
-/* OBSOLETE Can't always go through the frames for this because on some machines */
-/* OBSOLETE the new frame is not set up until the new function executes */
-/* OBSOLETE some instructions. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define SAVED_PC_AFTER_CALL(frame) FRAME_SAVED_PC(frame) */
-/* OBSOLETE */
-/* OBSOLETE /* Wrong for cross-debugging. I don't know the real values. *x/ */
-/* OBSOLETE #include <machine/param.h> */
-/* OBSOLETE #define TARGET_UPAGES UPAGES */
-/* OBSOLETE #define TARGET_NBPG NBPG */
-/* OBSOLETE */
-/* OBSOLETE /* Address of end of stack space. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define STACK_END_ADDR (0xc0000000 - (TARGET_UPAGES * TARGET_NBPG)) */
-/* OBSOLETE */
-/* OBSOLETE /* On BSD, sigtramp is in the u area. Can't check the exact */
-/* OBSOLETE addresses because for cross-debugging we don't have target include */
-/* OBSOLETE files around. This should be close enough. *x/ */
-/* OBSOLETE #define IN_SIGTRAMP(pc, name) ((pc) >= STACK_END_ADDR && (pc < 0xc0000000)) */
-/* OBSOLETE */
-/* OBSOLETE /* Stack grows downward. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define INNER_THAN(lhs,rhs) ((lhs) < (rhs)) */
-/* OBSOLETE */
-/* OBSOLETE /* Sequence of bytes for breakpoint instruction. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define BREAKPOINT {0x30} */
-/* OBSOLETE */
-/* OBSOLETE /* Amount PC must be decremented by after a breakpoint. */
-/* OBSOLETE This is often the number of bytes in BREAKPOINT */
-/* OBSOLETE but not always. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define DECR_PC_AFTER_BREAK 0 */
-/* OBSOLETE */
-/* OBSOLETE /* Return 1 if P points to an invalid floating point value. */
-/* OBSOLETE LEN is the length in bytes -- not relevant on the Tahoe. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define INVALID_FLOAT(p, len) ((*(short *) p & 0xff80) == 0x8000) */
-/* OBSOLETE */
-/* OBSOLETE /* Say how long (ordinary) registers are. This is a piece of bogosity */
-/* OBSOLETE used in push_word and a few other places; REGISTER_RAW_SIZE is the */
-/* OBSOLETE real way to know how big a register is. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_SIZE 4 */
-/* OBSOLETE */
-/* OBSOLETE /* Number of machine registers *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define NUM_REGS 19 */
-/* OBSOLETE */
-/* OBSOLETE /* Initializer for an array of names of registers. */
-/* OBSOLETE There should be NUM_REGS strings in this initializer. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_NAMES {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "fp", "sp", "pc", "ps", "al", "ah"} */
-/* OBSOLETE */
-/* OBSOLETE #define FP_REGNUM 13 /* Contains address of executing stack frame *x/ */
-/* OBSOLETE #define SP_REGNUM 14 /* Contains address of top of stack *x/ */
-/* OBSOLETE #define PC_REGNUM 15 /* Contains program counter *x/ */
-/* OBSOLETE #define PS_REGNUM 16 /* Contains processor status *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define AL_REGNUM 17 /* Contains accumulator *x/ */
-/* OBSOLETE #define AH_REGNUM 18 */
-/* OBSOLETE */
-/* OBSOLETE /* Total amount of space needed to store our copies of the machine's */
-/* OBSOLETE register state, the array `registers'. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_BYTES (19*4) */
-/* OBSOLETE */
-/* OBSOLETE /* Index within `registers' of the first byte of the space for */
-/* OBSOLETE register N. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_BYTE(N) ((N) * 4) */
-/* OBSOLETE */
-/* OBSOLETE /* Number of bytes of storage in the actual machine representation */
-/* OBSOLETE for register N. On the tahoe, all regs are 4 bytes. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_RAW_SIZE(N) 4 */
-/* OBSOLETE */
-/* OBSOLETE /* Number of bytes of storage in the program's representation */
-/* OBSOLETE for register N. On the tahoe, all regs are 4 bytes. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_VIRTUAL_SIZE(N) 4 */
-/* OBSOLETE */
-/* OBSOLETE /* Largest value REGISTER_RAW_SIZE can have. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define MAX_REGISTER_RAW_SIZE 4 */
-/* OBSOLETE */
-/* OBSOLETE /* Largest value REGISTER_VIRTUAL_SIZE can have. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define MAX_REGISTER_VIRTUAL_SIZE 4 */
-/* OBSOLETE */
-/* OBSOLETE /* Return the GDB type object for the "standard" data type */
-/* OBSOLETE of data in register N. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define REGISTER_VIRTUAL_TYPE(N) builtin_type_int */
-/* OBSOLETE */
-/* OBSOLETE /* Store the address of the place in which to copy the structure the */
-/* OBSOLETE subroutine will return. This is called from call_function. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define STORE_STRUCT_RETURN(ADDR, SP) \ */
-/* OBSOLETE { write_register (1, (ADDR)); } */
-/* OBSOLETE */
-/* OBSOLETE /* Extract from an array REGBUF containing the (raw) register state */
-/* OBSOLETE a function return value of type TYPE, and copy that, in virtual format, */
-/* OBSOLETE into VALBUF. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ */
-/* OBSOLETE memcpy (VALBUF, REGBUF, TYPE_LENGTH (TYPE)) */
-/* OBSOLETE */
-/* OBSOLETE /* Write into appropriate registers a function return value */
-/* OBSOLETE of type TYPE, given in virtual format. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define STORE_RETURN_VALUE(TYPE,VALBUF) \ */
-/* OBSOLETE write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) */
-/* OBSOLETE */
-/* OBSOLETE /* Extract from an array REGBUF containing the (raw) register state */
-/* OBSOLETE the address in which a function should return its structure value, */
-/* OBSOLETE as a CORE_ADDR (or an expression that can be used as one). *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) */
-/* OBSOLETE */
-/* OBSOLETE /* Describe the pointer in each stack frame to the previous stack frame */
-/* OBSOLETE (its caller). */
-/* OBSOLETE */
-/* OBSOLETE FRAME_CHAIN takes a frame's nominal address */
-/* OBSOLETE and produces the frame's chain-pointer. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* In the case of the Tahoe, the frame's nominal address is the FP value, */
-/* OBSOLETE and it points to the old FP *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_CHAIN(thisframe) \ */
-/* OBSOLETE (!inside_entry_file ((thisframe)->pc) ? \ */
-/* OBSOLETE read_memory_integer ((thisframe)->frame, 4) :\ */
-/* OBSOLETE 0) */
-/* OBSOLETE */
-/* OBSOLETE /* Define other aspects of the stack frame. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Saved PC *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_SAVED_PC(FRAME) (read_memory_integer ((FRAME)->frame - 8, 4)) */
-/* OBSOLETE */
-/* OBSOLETE /* In most of GDB, getting the args address is too important to */
-/* OBSOLETE just say "I don't know". *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) */
-/* OBSOLETE */
-/* OBSOLETE /* Address to use as an anchor for finding local variables *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) */
-/* OBSOLETE */
-/* OBSOLETE /* Return number of args passed to a frame. */
-/* OBSOLETE Can return -1, meaning no way to tell. *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern int tahoe_frame_num_args (struct frame_info * fi); */
-/* OBSOLETE #define FRAME_NUM_ARGS(fi) (tahoe_frame_num_args ((fi))) */
-/* OBSOLETE */
-/* OBSOLETE /* Return number of bytes at start of arglist that are not really args. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_ARGS_SKIP 0 */
-/* OBSOLETE */
-/* OBSOLETE /* Put here the code to store, into a struct frame_saved_regs, */
-/* OBSOLETE the addresses of the saved registers of frame described by FRAME_INFO. */
-/* OBSOLETE This includes special registers such as pc and fp saved in special */
-/* OBSOLETE ways in the stack frame. sp is even more special: */
-/* OBSOLETE the address we return for it IS the sp for the next frame. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ */
-/* OBSOLETE { register int regnum; \ */
-/* OBSOLETE register int rmask = read_memory_integer ((frame_info)->frame-4, 4) >> 16;\ */
-/* OBSOLETE register CORE_ADDR next_addr; \ */
-/* OBSOLETE memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ */
-/* OBSOLETE next_addr = (frame_info)->frame - 8; \ */
-/* OBSOLETE for (regnum = 12; regnum >= 0; regnum--, rmask <<= 1) \ */
-/* OBSOLETE (frame_saved_regs).regs[regnum] = (rmask & 0x1000) ? (next_addr -= 4) : 0;\ */
-/* OBSOLETE (frame_saved_regs).regs[SP_REGNUM] = (frame_info)->frame + 4; \ */
-/* OBSOLETE (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame - 8; \ */
-/* OBSOLETE (frame_saved_regs).regs[FP_REGNUM] = (frame_info)->frame; \ */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Things needed for making the inferior call functions. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Push an empty stack frame, to record the current PC, etc. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define PUSH_DUMMY_FRAME \ */
-/* OBSOLETE { register CORE_ADDR sp = read_register (SP_REGNUM); \ */
-/* OBSOLETE register int regnum; \ */
-/* OBSOLETE printf("PUSH_DUMMY_FRAME\n"); \ */
-/* OBSOLETE sp = push_word (sp, read_register (FP_REGNUM)); \ */
-/* OBSOLETE write_register (FP_REGNUM, sp); \ */
-/* OBSOLETE sp = push_word (sp, 0x1fff0004); /*SAVE MASK*x/ \ */
-/* OBSOLETE sp = push_word (sp, read_register (PC_REGNUM)); \ */
-/* OBSOLETE for (regnum = 12; regnum >= 0; regnum--) \ */
-/* OBSOLETE sp = push_word (sp, read_register (regnum)); \ */
-/* OBSOLETE write_register (SP_REGNUM, sp); \ */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Discard from the stack the innermost frame, restoring all registers. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define POP_FRAME \ */
-/* OBSOLETE { register CORE_ADDR fp = read_register (FP_REGNUM); \ */
-/* OBSOLETE register int regnum; \ */
-/* OBSOLETE register int regmask = read_memory_integer (fp-4, 4); \ */
-/* OBSOLETE printf("POP_FRAME\n"); \ */
-/* OBSOLETE regmask >>= 16; \ */
-/* OBSOLETE write_register (SP_REGNUM, fp+4); \ */
-/* OBSOLETE write_register (PC_REGNUM, read_memory_integer(fp-8, 4)); \ */
-/* OBSOLETE write_register (FP_REGNUM, read_memory_integer(fp, 4)); \ */
-/* OBSOLETE fp -= 8; \ */
-/* OBSOLETE for (regnum = 12; regnum >= 0; regnum--, regmask <<= 1) \ */
-/* OBSOLETE if (regmask & 0x1000) \ */
-/* OBSOLETE write_register (regnum, read_memory_integer (fp-=4, 4)); \ */
-/* OBSOLETE flush_cached_frames (); \ */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* This sequence of words is the instructions */
-/* OBSOLETE calls #69, @#32323232 */
-/* OBSOLETE bpt */
-/* OBSOLETE Note this is 8 bytes. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define CALL_DUMMY {0xbf699f32, 0x32323230} */
-/* OBSOLETE */
-/* OBSOLETE /* Start execution at beginning of dummy *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define CALL_DUMMY_START_OFFSET 0 */
-/* OBSOLETE */
-/* OBSOLETE /* Insert the specified number of args and function address */
-/* OBSOLETE into a call sequence of the above form stored at DUMMYNAME. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, valtype, using_gcc) \ */
-/* OBSOLETE { int temp = (int) fun; \ */
-/* OBSOLETE *((char *) dummyname + 1) = nargs; \ */
-/* OBSOLETE memcpy((char *)dummyname+3,&temp,4); } */
+++ /dev/null
-/* Definitions to make GDB hosted on a tahoe running 4.3-Reno
- Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc.
- Contributed by the State University of New York at Buffalo, by the
- Distributed Computer Systems Lab, Department of Computer Science, 1991.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-/* Make sure the system include files define BIG_ENDIAN, UINT_MAX, const,
- etc, rather than GDB's files. */
-#include <stdio.h>
-#include <sys/param.h>
-
-/* Host is big-endian */
-
-#define HOST_BYTE_ORDER BIG_ENDIAN
-
-/* This is the amount to subtract from u.u_ar0
- to get the offset in the core file of the register values. */
-
-#define KERNEL_U_ADDR (0xc0000000 - (TARGET_UPAGES * TARGET_NBPG))
-
-#define REGISTER_U_ADDR(addr, blockend, regno) \
-{ addr = blockend - 100 + regno * 4; \
- if (regno == PC_REGNUM) addr = blockend - 8; \
- if (regno == PS_REGNUM) addr = blockend - 4; \
- if (regno == FP_REGNUM) addr = blockend - 40; \
- if (regno == SP_REGNUM) addr = blockend - 36; \
- if (regno == AL_REGNUM) addr = blockend - 20; \
- if (regno == AH_REGNUM) addr = blockend - 24;}
-
-/* Interface definitions for kernel debugger KDB. */
-
-/* Map machine fault codes into signal numbers.
- First subtract 0, divide by 4, then index in a table.
- Faults for which the entry in this table is 0
- are not handled by KDB; the program's own trap handler
- gets to handle then. */
-
-#define FAULT_CODE_ORIGIN 0
-#define FAULT_CODE_UNITS 4
-#define FAULT_TABLE \
-{ 0, SIGKILL, SIGSEGV, 0, 0, 0, 0, 0, \
- 0, 0, SIGTRAP, SIGTRAP, 0, 0, 0, 0, \
- 0, 0, 0, 0, 0, 0, 0, 0}
-
-/* Start running with a stack stretching from BEG to END.
- BEG and END should be symbols meaningful to the assembler.
- This is used only for kdb. */
-
-#define INIT_STACK(beg, end) \
-{ asm (".globl end"); \
- asm ("movl $ end, sp"); \
- asm ("clrl fp"); }
-
-/* Push the frame pointer register on the stack. */
-
-#define PUSH_FRAME_PTR \
- asm ("pushl fp");
-
-/* Copy the top-of-stack to the frame pointer register. */
-
-#define POP_FRAME_PTR \
- asm ("movl (sp), fp");
-
-/* After KDB is entered by a fault, push all registers
- that GDB thinks about (all NUM_REGS of them),
- so that they appear in order of ascending GDB register number.
- The fault code will be on the stack beyond the last register. */
-
-#define PUSH_REGISTERS \
-{ asm ("pushl 8(sp)"); \
- asm ("pushl 8(sp)"); \
- asm ("pushal 0x41(sp)"); \
- asm ("pushl r0" ); \
- asm ("pushl r1" ); \
- asm ("pushl r2" ); \
- asm ("pushl r3" ); \
- asm ("pushl r4" ); \
- asm ("pushl r5" ); \
- asm ("pushl r6" ); \
- asm ("pushl r7" ); \
- asm ("pushl r8" ); \
- asm ("pushl r9" ); \
- asm ("pushl r10" ); \
- asm ("pushl r11" ); \
- asm ("pushl r12" ); \
- asm ("pushl fp" ); \
- asm ("pushl sp" ); \
- asm ("pushl pc" ); \
- asm ("pushl ps" ); \
- asm ("pushl aclo" ); \
- asm ("pushl achi" ); \
-}
-
-/* Assuming the registers (including processor status) have been
- pushed on the stack in order of ascending GDB register number,
- restore them and return to the address in the saved PC register. */
-
-#define POP_REGISTERS \
-{ \
- asm ("movl (sp)+, achi"); \
- asm ("movl (sp)+, aclo"); \
- asm ("movl (sp)+, ps"); \
- asm ("movl (sp)+, pc"); \
- asm ("movl (sp)+, sp"); \
- asm ("movl (sp)+, fp"); \
- asm ("movl (sp)+, r12"); \
- asm ("movl (sp)+, r11"); \
- asm ("movl (sp)+, r10"); \
- asm ("movl (sp)+, r9"); \
- asm ("movl (sp)+, r8"); \
- asm ("movl (sp)+, r7"); \
- asm ("movl (sp)+, r6"); \
- asm ("movl (sp)+, r5"); \
- asm ("movl (sp)+, r4"); \
- asm ("movl (sp)+, r3"); \
- asm ("movl (sp)+, r2"); \
- asm ("movl (sp)+, r1"); \
- asm ("movl (sp)+, r0"); \
- asm ("subl2 $8,(sp)"); \
- asm ("movl (sp),sp"); \
- asm ("rei"); }
alpha*) gdb_host_cpu=alpha ;;
arm*) gdb_host_cpu=arm ;;
-# OBSOLETE c[12]) gdb_host_cpu=convex ;;
hppa*) gdb_host_cpu=pa ;;
i[3456]86*) gdb_host_cpu=i386 ;;
m68*) gdb_host_cpu=m68k ;;
m88*) gdb_host_cpu=m88k ;;
-# OBSOLETE pyramid) gdb_host_cpu=pyr ;;
powerpc*) gdb_host_cpu=powerpc ;;
sparc64) gdb_host_cpu=sparc ;;
*) gdb_host_cpu=$host_cpu ;;
arm*-*-linux*) gdb_host=linux ;;
arm*-*-*) gdb_host=arm ;;
-# OBSOLETE c[12]-*-*) gdb_host=convex ;;
-
hppa*-*-bsd*) gdb_host=hppabsd ;;
hppa*-*-hiux*) gdb_host=hppahpux ;;
hppa*-*-hpux10.20) gdb_host=hpux1020 ;;
m680[01]0-sun-sunos4*) gdb_host=sun2os4 ;;
m68030-sony-*) gdb_host=news1000 ;;
-# OBSOLETE m68*-altos-*) gdb_host=altos ;;
m68*-apollo*-sysv*) gdb_host=apollo68v ;;
m68*-apollo*-bsd*) gdb_host=apollo68b ;;
m68*-att-*) gdb_host=3b1 ;;
powerpc-*-linux*) gdb_host=linux ;;
powerpc-*-netbsd*) gdb_host=nbsd ;;
-# OBSOLETE pn-*-*) gdb_host=pn ;;
-
-# OBSOLETE pyramid-*-*) gdb_host=pyramid ;;
-
romp-*-*) gdb_host=rtbsd ;;
rs6000-*-lynxos*) gdb_host=rs6000lynx ;;
strongarm-*-*) gdb_host=arm ;;
xscale-*-*) gdb_host=arm ;;
-# OBSOLETE tahoe-*-*) gdb_host=tahoe ;;
-
vax-*-bsd*) gdb_host=vaxbsd ;;
vax-*-ultrix2*) gdb_host=vaxult2 ;;
vax-*-ultrix*) gdb_host=vaxult ;;
alpha*) gdb_target_cpu=alpha ;;
arm*) gdb_target_cpu=arm ;;
-# OBSOLETE c[12]) gdb_target_cpu=convex ;;
hppa*) gdb_target_cpu=pa ;;
i[3456]86*) gdb_target_cpu=i386 ;;
m68hc11*|m6811*) gdb_target_cpu=m68hc11 ;;
m88*) gdb_target_cpu=m88k ;;
mips*) gdb_target_cpu=mips ;;
powerpc*) gdb_target_cpu=powerpc ;;
-# OBSOLETE pyramid) gdb_target_cpu=pyr ;;
sparc*) gdb_target_cpu=sparc ;;
thumb*) gdb_target_cpu=arm ;;
strongarm*) gdb_target_cpu=arm ;;
xscale-*-*) gdb_target=embed
configdirs="$configdirs rdi-share"
;;
-# OBSOLETE c1-*-*) gdb_target=convex ;;
-# OBSOLETE c2-*-*) gdb_target=convex ;;
d10v-*-*) gdb_target=d10v ;;
d30v-*-*) gdb_target=d30v ;;
m68*-bull-sysv*) gdb_target=dpx2 ;;
m68*-hp-bsd*) gdb_target=hp300bsd ;;
m68*-hp-hpux*) gdb_target=hp300hpux ;;
-# OBSOLETE m68*-altos-*) gdb_target=altos ;;
m68*-att-*) gdb_target=3b1 ;;
m68*-cisco*-*) gdb_target=cisco ;;
m68*-ericsson-*) gdb_target=es1800 ;;
powerpc-*-linux*) gdb_target=linux ;;
powerpc-*-vxworks*) gdb_target=vxworks ;;
-# OBSOLETE pyramid-*-*) gdb_target=pyramid ;;
-
rs6000-*-lynxos*) gdb_target=rs6000lynx
configdirs="${configdirs} gdbserver" ;;
rs6000-*-aix4*) gdb_target=aix4 ;;
#sparc64-*-solaris2*) gdb_target=sp64sol2 ;;
sparc64-*-*) gdb_target=sp64 ;;
-# OBSOLETE tahoe-*-*) gdb_target=tahoe ;;
-
tic80-*-*) gdb_target=tic80
configdirs="${configdirs} gdbserver" ;;
+++ /dev/null
-/* OBSOLETE /* Convex stuff for GDB. */
-/* OBSOLETE Copyright (C) 1990, 1991, 1996, 2000 Free Software Foundation, Inc. */
-/* OBSOLETE */
-/* OBSOLETE This file is part of GDB. */
-/* OBSOLETE */
-/* OBSOLETE This program is free software; you can redistribute it and/or modify */
-/* OBSOLETE it under the terms of the GNU General Public License as published by */
-/* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
-/* OBSOLETE (at your option) any later version. */
-/* OBSOLETE */
-/* OBSOLETE This program is distributed in the hope that it will be useful, */
-/* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
-/* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
-/* OBSOLETE GNU General Public License for more details. */
-/* OBSOLETE */
-/* OBSOLETE You should have received a copy of the GNU General Public License */
-/* OBSOLETE along with this program; if not, write to the Free Software */
-/* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #include "defs.h" */
-/* OBSOLETE #include "command.h" */
-/* OBSOLETE #include "symtab.h" */
-/* OBSOLETE #include "value.h" */
-/* OBSOLETE #include "frame.h" */
-/* OBSOLETE #include "inferior.h" */
-/* OBSOLETE #include "gdb_wait.h" */
-/* OBSOLETE */
-/* OBSOLETE #include <signal.h> */
-/* OBSOLETE #include <fcntl.h> */
-/* OBSOLETE */
-/* OBSOLETE #include "gdbcore.h" */
-/* OBSOLETE #include <sys/param.h> */
-/* OBSOLETE #include <sys/dir.h> */
-/* OBSOLETE #include <sys/user.h> */
-/* OBSOLETE #include <sys/ioctl.h> */
-/* OBSOLETE #include <sys/pcntl.h> */
-/* OBSOLETE #include <sys/thread.h> */
-/* OBSOLETE #include <sys/proc.h> */
-/* OBSOLETE #include <sys/file.h> */
-/* OBSOLETE #include "gdb_stat.h" */
-/* OBSOLETE #include <sys/mman.h> */
-/* OBSOLETE */
-/* OBSOLETE #include "gdbcmd.h" */
-/* OBSOLETE */
-/* OBSOLETE CORE_ADDR */
-/* OBSOLETE convex_skip_prologue (pc) */
-/* OBSOLETE CORE_ADDR pc; */
-/* OBSOLETE { */
-/* OBSOLETE int op, ix; */
-/* OBSOLETE op = read_memory_integer (pc, 2); */
-/* OBSOLETE if ((op & 0xffc7) == 0x5ac0) */
-/* OBSOLETE pc += 2; */
-/* OBSOLETE else if (op == 0x1580) */
-/* OBSOLETE pc += 4; */
-/* OBSOLETE else if (op == 0x15c0) */
-/* OBSOLETE pc += 6; */
-/* OBSOLETE if ((read_memory_integer (pc, 2) & 0xfff8) == 0x7c40 */
-/* OBSOLETE && (read_memory_integer (pc + 2, 2) & 0xfff8) == 0x1240 */
-/* OBSOLETE && (read_memory_integer (pc + 8, 2) & 0xfff8) == 0x7c48) */
-/* OBSOLETE pc += 10; */
-/* OBSOLETE if (read_memory_integer (pc, 2) == 0x1240) */
-/* OBSOLETE pc += 6; */
-/* OBSOLETE for (;;) */
-/* OBSOLETE { */
-/* OBSOLETE op = read_memory_integer (pc, 2); */
-/* OBSOLETE ix = (op >> 3) & 7; */
-/* OBSOLETE if (ix != 6) */
-/* OBSOLETE break; */
-/* OBSOLETE if ((op & 0xfcc0) == 0x3000) */
-/* OBSOLETE pc += 4; */
-/* OBSOLETE else if ((op & 0xfcc0) == 0x3040) */
-/* OBSOLETE pc += 6; */
-/* OBSOLETE else if ((op & 0xfcc0) == 0x2800) */
-/* OBSOLETE pc += 4; */
-/* OBSOLETE else if ((op & 0xfcc0) == 0x2840) */
-/* OBSOLETE pc += 6; */
-/* OBSOLETE else */
-/* OBSOLETE break; */
-/* OBSOLETE } */
-/* OBSOLETE return pc; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE convex_frameless_function_invocation (fi) */
-/* OBSOLETE struct frame_info *fi; */
-/* OBSOLETE { */
-/* OBSOLETE int frameless; */
-/* OBSOLETE extern CORE_ADDR text_start, text_end; */
-/* OBSOLETE CORE_ADDR call_addr = SAVED_PC_AFTER_CALL (FI); */
-/* OBSOLETE frameless = (call_addr >= text_start && call_addr < text_end */
-/* OBSOLETE && read_memory_integer (call_addr - 6, 1) == 0x22); */
-/* OBSOLETE return frameless; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE convex_frame_num_args (fi) */
-/* OBSOLETE struct frame_info *fi; */
-/* OBSOLETE { */
-/* OBSOLETE int numargs = read_memory_integer (FRAME_ARGS_ADDRESS (fi) - 4, 4); */
-/* OBSOLETE if (numargs < 0 || numargs >= 256) */
-/* OBSOLETE numargs = -1; */
-/* OBSOLETE return numargs; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE exec_file_command (filename, from_tty) */
-/* OBSOLETE char *filename; */
-/* OBSOLETE int from_tty; */
-/* OBSOLETE { */
-/* OBSOLETE int val; */
-/* OBSOLETE int n; */
-/* OBSOLETE struct stat st_exec; */
-/* OBSOLETE */
-/* OBSOLETE /* Eliminate all traces of old exec file. */
-/* OBSOLETE Mark text segment as empty. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (execfile) */
-/* OBSOLETE xfree (execfile); */
-/* OBSOLETE execfile = 0; */
-/* OBSOLETE data_start = 0; */
-/* OBSOLETE data_end = 0; */
-/* OBSOLETE text_start = 0; */
-/* OBSOLETE text_end = 0; */
-/* OBSOLETE exec_data_start = 0; */
-/* OBSOLETE exec_data_end = 0; */
-/* OBSOLETE if (execchan >= 0) */
-/* OBSOLETE close (execchan); */
-/* OBSOLETE execchan = -1; */
-/* OBSOLETE */
-/* OBSOLETE n_exec = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Now open and digest the file the user requested, if any. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (filename) */
-/* OBSOLETE { */
-/* OBSOLETE filename = tilde_expand (filename); */
-/* OBSOLETE make_cleanup (xfree, filename); */
-/* OBSOLETE */
-/* OBSOLETE execchan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0, */
-/* OBSOLETE &execfile); */
-/* OBSOLETE if (execchan < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE if (myread (execchan, &filehdr, sizeof filehdr) < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE if (! IS_SOFF_MAGIC (filehdr.h_magic)) */
-/* OBSOLETE error ("%s: not an executable file.", filename); */
-/* OBSOLETE */
-/* OBSOLETE if (myread (execchan, &opthdr, filehdr.h_opthdr) <= 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE /* Read through the section headers. */
-/* OBSOLETE For text, data, etc, record an entry in the exec file map. */
-/* OBSOLETE Record text_start and text_end. *x/ */
-/* OBSOLETE */
-/* OBSOLETE lseek (execchan, (long) filehdr.h_scnptr, 0); */
-/* OBSOLETE */
-/* OBSOLETE for (n = 0; n < filehdr.h_nscns; n++) */
-/* OBSOLETE { */
-/* OBSOLETE if (myread (execchan, &scnhdr, sizeof scnhdr) < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE if ((scnhdr.s_flags & S_TYPMASK) >= S_TEXT */
-/* OBSOLETE && (scnhdr.s_flags & S_TYPMASK) <= S_COMON) */
-/* OBSOLETE { */
-/* OBSOLETE exec_map[n_exec].mem_addr = scnhdr.s_vaddr; */
-/* OBSOLETE exec_map[n_exec].mem_end = scnhdr.s_vaddr + scnhdr.s_size; */
-/* OBSOLETE exec_map[n_exec].file_addr = scnhdr.s_scnptr; */
-/* OBSOLETE exec_map[n_exec].type = scnhdr.s_flags & S_TYPMASK; */
-/* OBSOLETE n_exec++; */
-/* OBSOLETE */
-/* OBSOLETE if ((scnhdr.s_flags & S_TYPMASK) == S_TEXT) */
-/* OBSOLETE { */
-/* OBSOLETE text_start = scnhdr.s_vaddr; */
-/* OBSOLETE text_end = scnhdr.s_vaddr + scnhdr.s_size; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE fstat (execchan, &st_exec); */
-/* OBSOLETE exec_mtime = st_exec.st_mtime; */
-/* OBSOLETE */
-/* OBSOLETE validate_files (); */
-/* OBSOLETE } */
-/* OBSOLETE else if (from_tty) */
-/* OBSOLETE printf_filtered ("No executable file now.\n"); */
-/* OBSOLETE */
-/* OBSOLETE /* Tell display code (if any) about the changed file name. *x/ */
-/* OBSOLETE if (exec_file_display_hook) */
-/* OBSOLETE (*exec_file_display_hook) (filename); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE #if 0 */
-/* OBSOLETE /* Read data from SOFF exec or core file. */
-/* OBSOLETE Return 0 on success, EIO if address out of bounds. *x/ */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE xfer_core_file (memaddr, myaddr, len) */
-/* OBSOLETE CORE_ADDR memaddr; */
-/* OBSOLETE char *myaddr; */
-/* OBSOLETE int len; */
-/* OBSOLETE { */
-/* OBSOLETE register int i; */
-/* OBSOLETE register int n; */
-/* OBSOLETE register int val; */
-/* OBSOLETE int xferchan; */
-/* OBSOLETE char **xferfile; */
-/* OBSOLETE int fileptr; */
-/* OBSOLETE int returnval = 0; */
-/* OBSOLETE */
-/* OBSOLETE while (len > 0) */
-/* OBSOLETE { */
-/* OBSOLETE xferfile = 0; */
-/* OBSOLETE xferchan = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Determine which file the next bunch of addresses reside in, */
-/* OBSOLETE and where in the file. Set the file's read/write pointer */
-/* OBSOLETE to point at the proper place for the desired address */
-/* OBSOLETE and set xferfile and xferchan for the correct file. */
-/* OBSOLETE If desired address is nonexistent, leave them zero. */
-/* OBSOLETE i is set to the number of bytes that can be handled */
-/* OBSOLETE along with the next address. *x/ */
-/* OBSOLETE */
-/* OBSOLETE i = len; */
-/* OBSOLETE */
-/* OBSOLETE for (n = 0; n < n_core; n++) */
-/* OBSOLETE { */
-/* OBSOLETE if (memaddr >= core_map[n].mem_addr && memaddr < core_map[n].mem_end */
-/* OBSOLETE && (core_map[n].thread == -1 */
-/* OBSOLETE || core_map[n].thread == inferior_thread)) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, core_map[n].mem_end - memaddr); */
-/* OBSOLETE fileptr = core_map[n].file_addr + memaddr - core_map[n].mem_addr; */
-/* OBSOLETE if (core_map[n].file_addr) */
-/* OBSOLETE { */
-/* OBSOLETE xferfile = &corefile; */
-/* OBSOLETE xferchan = corechan; */
-/* OBSOLETE } */
-/* OBSOLETE break; */
-/* OBSOLETE } */
-/* OBSOLETE else if (core_map[n].mem_addr >= memaddr */
-/* OBSOLETE && core_map[n].mem_addr < memaddr + i) */
-/* OBSOLETE i = core_map[n].mem_addr - memaddr; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (!xferfile) */
-/* OBSOLETE for (n = 0; n < n_exec; n++) */
-/* OBSOLETE { */
-/* OBSOLETE if (memaddr >= exec_map[n].mem_addr */
-/* OBSOLETE && memaddr < exec_map[n].mem_end) */
-/* OBSOLETE { */
-/* OBSOLETE i = min (len, exec_map[n].mem_end - memaddr); */
-/* OBSOLETE fileptr = exec_map[n].file_addr + memaddr */
-/* OBSOLETE - exec_map[n].mem_addr; */
-/* OBSOLETE if (exec_map[n].file_addr) */
-/* OBSOLETE { */
-/* OBSOLETE xferfile = &execfile; */
-/* OBSOLETE xferchan = execchan; */
-/* OBSOLETE } */
-/* OBSOLETE break; */
-/* OBSOLETE } */
-/* OBSOLETE else if (exec_map[n].mem_addr >= memaddr */
-/* OBSOLETE && exec_map[n].mem_addr < memaddr + i) */
-/* OBSOLETE i = exec_map[n].mem_addr - memaddr; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Now we know which file to use. */
-/* OBSOLETE Set up its pointer and transfer the data. *x/ */
-/* OBSOLETE if (xferfile) */
-/* OBSOLETE { */
-/* OBSOLETE if (*xferfile == 0) */
-/* OBSOLETE if (xferfile == &execfile) */
-/* OBSOLETE error ("No program file to examine."); */
-/* OBSOLETE else */
-/* OBSOLETE error ("No core dump file or running program to examine."); */
-/* OBSOLETE val = lseek (xferchan, fileptr, 0); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name (*xferfile); */
-/* OBSOLETE val = myread (xferchan, myaddr, i); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name (*xferfile); */
-/* OBSOLETE } */
-/* OBSOLETE /* If this address is for nonexistent memory, */
-/* OBSOLETE read zeros if reading, or do nothing if writing. *x/ */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE memset (myaddr, '\0', i); */
-/* OBSOLETE returnval = EIO; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE memaddr += i; */
-/* OBSOLETE myaddr += i; */
-/* OBSOLETE len -= i; */
-/* OBSOLETE } */
-/* OBSOLETE return returnval; */
-/* OBSOLETE } */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE /* Here from info files command to print an address map. *x/ */
-/* OBSOLETE */
-/* OBSOLETE print_maps () */
-/* OBSOLETE { */
-/* OBSOLETE struct pmap ptrs[200]; */
-/* OBSOLETE int n; */
-/* OBSOLETE */
-/* OBSOLETE /* ID strings for core and executable file sections *x/ */
-/* OBSOLETE */
-/* OBSOLETE static char *idstr[] = */
-/* OBSOLETE { */
-/* OBSOLETE "0", "text", "data", "tdata", "bss", "tbss", */
-/* OBSOLETE "common", "ttext", "ctx", "tctx", "10", "11", "12", */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE for (n = 0; n < n_core; n++) */
-/* OBSOLETE { */
-/* OBSOLETE core_map[n].which = 0; */
-/* OBSOLETE ptrs[n] = core_map[n]; */
-/* OBSOLETE } */
-/* OBSOLETE for (n = 0; n < n_exec; n++) */
-/* OBSOLETE { */
-/* OBSOLETE exec_map[n].which = 1; */
-/* OBSOLETE ptrs[n_core+n] = exec_map[n]; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE qsort (ptrs, n_core + n_exec, sizeof *ptrs, ptr_cmp); */
-/* OBSOLETE */
-/* OBSOLETE for (n = 0; n < n_core + n_exec; n++) */
-/* OBSOLETE { */
-/* OBSOLETE struct pmap *p = &ptrs[n]; */
-/* OBSOLETE if (n > 0) */
-/* OBSOLETE { */
-/* OBSOLETE if (p->mem_addr < ptrs[n-1].mem_end) */
-/* OBSOLETE p->mem_addr = ptrs[n-1].mem_end; */
-/* OBSOLETE if (p->mem_addr >= p->mem_end) */
-/* OBSOLETE continue; */
-/* OBSOLETE } */
-/* OBSOLETE printf_filtered ("%08x .. %08x %-6s %s\n", */
-/* OBSOLETE p->mem_addr, p->mem_end, idstr[p->type], */
-/* OBSOLETE p->which ? execfile : corefile); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Compare routine to put file sections in order. */
-/* OBSOLETE Sort into increasing order on address, and put core file sections */
-/* OBSOLETE before exec file sections if both files contain the same addresses. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static ptr_cmp (a, b) */
-/* OBSOLETE struct pmap *a, *b; */
-/* OBSOLETE { */
-/* OBSOLETE if (a->mem_addr != b->mem_addr) return a->mem_addr - b->mem_addr; */
-/* OBSOLETE return a->which - b->which; */
-/* OBSOLETE } */
-/* OBSOLETE \f */
-/* OBSOLETE /* Trapped internal variables are used to handle special registers. */
-/* OBSOLETE A trapped i.v. calls a hook here every time it is dereferenced, */
-/* OBSOLETE to provide a new value for the variable, and it calls a hook here */
-/* OBSOLETE when a new value is assigned, to do something with the value. */
-/* OBSOLETE */
-/* OBSOLETE The vector registers are $vl, $vs, $vm, $vN, $VN (N in 0..7). */
-/* OBSOLETE The communication registers are $cN, $CN (N in 0..63). */
-/* OBSOLETE They not handled as regular registers because it's expensive to */
-/* OBSOLETE read them, and their size varies, and they have too many names. *x/ */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE /* Return 1 if NAME is a trapped internal variable, else 0. *x/ */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE is_trapped_internalvar (name) */
-/* OBSOLETE char *name; */
-/* OBSOLETE { */
-/* OBSOLETE if ((name[0] == 'c' || name[0] == 'C') */
-/* OBSOLETE && name[1] >= '0' && name[1] <= '9' */
-/* OBSOLETE && (name[2] == '\0' */
-/* OBSOLETE || (name[2] >= '0' && name[2] <= '9' */
-/* OBSOLETE && name[3] == '\0' && name[1] != '0')) */
-/* OBSOLETE && atoi (&name[1]) < 64) return 1; */
-/* OBSOLETE */
-/* OBSOLETE if ((name[0] == 'v' || name[0] == 'V') */
-/* OBSOLETE && (((name[1] & -8) == '0' && name[2] == '\0') */
-/* OBSOLETE || STREQ (name, "vl") */
-/* OBSOLETE || STREQ (name, "vs") */
-/* OBSOLETE || STREQ (name, "vm"))) */
-/* OBSOLETE return 1; */
-/* OBSOLETE else return 0; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Return the value of trapped internal variable VAR *x/ */
-/* OBSOLETE */
-/* OBSOLETE value */
-/* OBSOLETE value_of_trapped_internalvar (var) */
-/* OBSOLETE struct internalvar *var; */
-/* OBSOLETE { */
-/* OBSOLETE char *name = var->name; */
-/* OBSOLETE value val; */
-/* OBSOLETE struct type *type; */
-/* OBSOLETE struct type *range_type; */
-/* OBSOLETE long len = *read_vector_register (VL_REGNUM); */
-/* OBSOLETE if (len <= 0 || len > 128) len = 128; */
-/* OBSOLETE */
-/* OBSOLETE if (STREQ (name, "vl")) */
-/* OBSOLETE { */
-/* OBSOLETE val = value_from_longest (builtin_type_int, */
-/* OBSOLETE (LONGEST) *read_vector_register_1 (VL_REGNUM)); */
-/* OBSOLETE } */
-/* OBSOLETE else if (STREQ (name, "vs")) */
-/* OBSOLETE { */
-/* OBSOLETE val = value_from_longest (builtin_type_int, */
-/* OBSOLETE (LONGEST) *read_vector_register_1 (VS_REGNUM)); */
-/* OBSOLETE } */
-/* OBSOLETE else if (STREQ (name, "vm")) */
-/* OBSOLETE { */
-/* OBSOLETE long vm[4]; */
-/* OBSOLETE long i, *p; */
-/* OBSOLETE memcpy (vm, read_vector_register_1 (VM_REGNUM), sizeof vm); */
-/* OBSOLETE range_type = */
-/* OBSOLETE create_range_type ((struct type *) NULL, builtin_type_int, 0, len - 1); */
-/* OBSOLETE type = */
-/* OBSOLETE create_array_type ((struct type *) NULL, builtin_type_int, range_type); */
-/* OBSOLETE val = allocate_value (type); */
-/* OBSOLETE p = (long *) VALUE_CONTENTS (val); */
-/* OBSOLETE for (i = 0; i < len; i++) */
-/* OBSOLETE *p++ = !! (vm[3 - (i >> 5)] & (1 << (i & 037))); */
-/* OBSOLETE } */
-/* OBSOLETE else if (name[0] == 'V') */
-/* OBSOLETE { */
-/* OBSOLETE range_type = */
-/* OBSOLETE create_range_type ((struct type *) NULL, builtin_type_int 0, len - 1); */
-/* OBSOLETE type = */
-/* OBSOLETE create_array_type ((struct type *) NULL, builtin_type_long_long, */
-/* OBSOLETE range_type); */
-/* OBSOLETE val = allocate_value (type); */
-/* OBSOLETE memcpy (VALUE_CONTENTS (val), */
-/* OBSOLETE read_vector_register_1 (name[1] - '0'), */
-/* OBSOLETE TYPE_LENGTH (type)); */
-/* OBSOLETE } */
-/* OBSOLETE else if (name[0] == 'v') */
-/* OBSOLETE { */
-/* OBSOLETE long *p1, *p2; */
-/* OBSOLETE range_type = */
-/* OBSOLETE create_range_type ((struct type *) NULL, builtin_type_int 0, len - 1); */
-/* OBSOLETE type = */
-/* OBSOLETE create_array_type ((struct type *) NULL, builtin_type_long, */
-/* OBSOLETE range_type); */
-/* OBSOLETE val = allocate_value (type); */
-/* OBSOLETE p1 = read_vector_register_1 (name[1] - '0'); */
-/* OBSOLETE p2 = (long *) VALUE_CONTENTS (val); */
-/* OBSOLETE while (--len >= 0) {p1++; *p2++ = *p1++;} */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE else if (name[0] == 'c') */
-/* OBSOLETE val = value_from_longest (builtin_type_int, */
-/* OBSOLETE read_comm_register (atoi (&name[1]))); */
-/* OBSOLETE else if (name[0] == 'C') */
-/* OBSOLETE val = value_from_longest (builtin_type_long_long, */
-/* OBSOLETE read_comm_register (atoi (&name[1]))); */
-/* OBSOLETE */
-/* OBSOLETE VALUE_LVAL (val) = lval_internalvar; */
-/* OBSOLETE VALUE_INTERNALVAR (val) = var; */
-/* OBSOLETE return val; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Handle a new value assigned to a trapped internal variable *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE set_trapped_internalvar (var, val, bitpos, bitsize, offset) */
-/* OBSOLETE struct internalvar *var; */
-/* OBSOLETE value val; */
-/* OBSOLETE int bitpos, bitsize, offset; */
-/* OBSOLETE { */
-/* OBSOLETE char *name = var->name; */
-/* OBSOLETE long long newval = value_as_long (val); */
-/* OBSOLETE */
-/* OBSOLETE if (STREQ (name, "vl")) */
-/* OBSOLETE write_vector_register (VL_REGNUM, 0, newval); */
-/* OBSOLETE else if (STREQ (name, "vs")) */
-/* OBSOLETE write_vector_register (VS_REGNUM, 0, newval); */
-/* OBSOLETE else if (name[0] == 'c' || name[0] == 'C') */
-/* OBSOLETE write_comm_register (atoi (&name[1]), newval); */
-/* OBSOLETE else if (STREQ (name, "vm")) */
-/* OBSOLETE error ("can't assign to $vm"); */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE offset /= bitsize / 8; */
-/* OBSOLETE write_vector_register (name[1] - '0', offset, newval); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Print an integer value when no format was specified. gdb normally */
-/* OBSOLETE prints these values in decimal, but the the leading 0x80000000 of */
-/* OBSOLETE pointers produces intolerable 10-digit negative numbers. */
-/* OBSOLETE If it looks like an address, print it in hex instead. *x/ */
-/* OBSOLETE */
-/* OBSOLETE decout (stream, type, val) */
-/* OBSOLETE struct ui_file *stream; */
-/* OBSOLETE struct type *type; */
-/* OBSOLETE LONGEST val; */
-/* OBSOLETE { */
-/* OBSOLETE long lv = val; */
-/* OBSOLETE */
-/* OBSOLETE switch (output_radix) */
-/* OBSOLETE { */
-/* OBSOLETE case 0: */
-/* OBSOLETE if ((lv == val || (unsigned) lv == val) */
-/* OBSOLETE && ((lv & 0xf0000000) == 0x80000000 */
-/* OBSOLETE || ((lv & 0xf0000000) == 0xf0000000 && lv < STACK_END_ADDR))) */
-/* OBSOLETE { */
-/* OBSOLETE print_longest (stream, "x", 0, val); */
-/* OBSOLETE return; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE case 10: */
-/* OBSOLETE print_longest (stream, TYPE_UNSIGNED (type) ? "u" : "d", 0, val); */
-/* OBSOLETE return; */
-/* OBSOLETE */
-/* OBSOLETE case 8: */
-/* OBSOLETE print_longest (stream, "o", 0, val); */
-/* OBSOLETE return; */
-/* OBSOLETE */
-/* OBSOLETE case 16: */
-/* OBSOLETE print_longest (stream, "x", 0, val); */
-/* OBSOLETE return; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Change the default output radix to 10 or 16, or set it to 0 (heuristic). */
-/* OBSOLETE This command is mostly obsolete now that the print command allows */
-/* OBSOLETE formats to apply to aggregates, but is still handy occasionally. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE set_base_command (arg) */
-/* OBSOLETE char *arg; */
-/* OBSOLETE { */
-/* OBSOLETE int new_radix; */
-/* OBSOLETE */
-/* OBSOLETE if (!arg) */
-/* OBSOLETE output_radix = 0; */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE new_radix = atoi (arg); */
-/* OBSOLETE if (new_radix != 10 && new_radix != 16 && new_radix != 8) */
-/* OBSOLETE error ("base must be 8, 10 or 16, or null"); */
-/* OBSOLETE else output_radix = new_radix; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Turn pipelining on or off in the inferior. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE set_pipelining_command (arg) */
-/* OBSOLETE char *arg; */
-/* OBSOLETE { */
-/* OBSOLETE if (!arg) */
-/* OBSOLETE { */
-/* OBSOLETE sequential = !sequential; */
-/* OBSOLETE printf_filtered ("%s\n", sequential ? "off" : "on"); */
-/* OBSOLETE } */
-/* OBSOLETE else if (STREQ (arg, "on")) */
-/* OBSOLETE sequential = 0; */
-/* OBSOLETE else if (STREQ (arg, "off")) */
-/* OBSOLETE sequential = 1; */
-/* OBSOLETE else error ("valid args are `on', to allow instructions to overlap, or\n\ */
-/* OBSOLETE `off', to prevent it and thereby pinpoint exceptions."); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Enable, disable, or force parallel execution in the inferior. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE set_parallel_command (arg) */
-/* OBSOLETE char *arg; */
-/* OBSOLETE { */
-/* OBSOLETE struct rlimit rl; */
-/* OBSOLETE int prevparallel = parallel; */
-/* OBSOLETE */
-/* OBSOLETE if (!strncmp (arg, "fixed", strlen (arg))) */
-/* OBSOLETE parallel = 2; */
-/* OBSOLETE else if (STREQ (arg, "on")) */
-/* OBSOLETE parallel = 1; */
-/* OBSOLETE else if (STREQ (arg, "off")) */
-/* OBSOLETE parallel = 0; */
-/* OBSOLETE else error ("valid args are `on', to allow multiple threads, or\n\ */
-/* OBSOLETE `fixed', to force multiple threads, or\n\ */
-/* OBSOLETE `off', to run with one thread only."); */
-/* OBSOLETE */
-/* OBSOLETE if ((prevparallel == 0) != (parallel == 0) && inferior_pid) */
-/* OBSOLETE printf_filtered ("will take effect at next run.\n"); */
-/* OBSOLETE */
-/* OBSOLETE getrlimit (RLIMIT_CONCUR, &rl); */
-/* OBSOLETE rl.rlim_cur = parallel ? rl.rlim_max : 1; */
-/* OBSOLETE setrlimit (RLIMIT_CONCUR, &rl); */
-/* OBSOLETE */
-/* OBSOLETE if (inferior_pid) */
-/* OBSOLETE set_fixed_scheduling (inferior_pid, parallel == 2); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Add a new name for an existing command. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE alias_command (arg) */
-/* OBSOLETE char *arg; */
-/* OBSOLETE { */
-/* OBSOLETE static char *aliaserr = "usage is `alias NEW OLD', no args allowed"; */
-/* OBSOLETE char *newname = arg; */
-/* OBSOLETE struct cmd_list_element *new, *old; */
-/* OBSOLETE */
-/* OBSOLETE if (!arg) */
-/* OBSOLETE error_no_arg ("newname oldname"); */
-/* OBSOLETE */
-/* OBSOLETE new = lookup_cmd (&arg, cmdlist, "", -1); */
-/* OBSOLETE if (new && !strncmp (newname, new->name, strlen (new->name))) */
-/* OBSOLETE { */
-/* OBSOLETE newname = new->name; */
-/* OBSOLETE if (!(*arg == '-' */
-/* OBSOLETE || (*arg >= 'a' && *arg <= 'z') */
-/* OBSOLETE || (*arg >= 'A' && *arg <= 'Z') */
-/* OBSOLETE || (*arg >= '0' && *arg <= '9'))) */
-/* OBSOLETE error (aliaserr); */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE arg = newname; */
-/* OBSOLETE while (*arg == '-' */
-/* OBSOLETE || (*arg >= 'a' && *arg <= 'z') */
-/* OBSOLETE || (*arg >= 'A' && *arg <= 'Z') */
-/* OBSOLETE || (*arg >= '0' && *arg <= '9')) */
-/* OBSOLETE arg++; */
-/* OBSOLETE if (*arg != ' ' && *arg != '\t') */
-/* OBSOLETE error (aliaserr); */
-/* OBSOLETE *arg = '\0'; */
-/* OBSOLETE arg++; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE old = lookup_cmd (&arg, cmdlist, "", 0); */
-/* OBSOLETE */
-/* OBSOLETE if (*arg != '\0') */
-/* OBSOLETE error (aliaserr); */
-/* OBSOLETE */
-/* OBSOLETE if (new && !strncmp (newname, new->name, strlen (new->name))) */
-/* OBSOLETE { */
-/* OBSOLETE char *tem; */
-/* OBSOLETE if (new->class == (int) class_user || new->class == (int) class_alias) */
-/* OBSOLETE tem = "Redefine command \"%s\"? "; */
-/* OBSOLETE else */
-/* OBSOLETE tem = "Really redefine built-in command \"%s\"? "; */
-/* OBSOLETE if (!query (tem, new->name)) */
-/* OBSOLETE error ("Command \"%s\" not redefined.", new->name); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE add_com (newname, class_alias, old->function, old->doc); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE /* Print the current thread number, and any threads with signals in the */
-/* OBSOLETE queue. *x/ */
-/* OBSOLETE */
-/* OBSOLETE thread_info () */
-/* OBSOLETE { */
-/* OBSOLETE struct threadpid *p; */
-/* OBSOLETE */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE { */
-/* OBSOLETE ps.pi_buffer = (char *) &comm_registers; */
-/* OBSOLETE ps.pi_nbytes = sizeof comm_registers; */
-/* OBSOLETE ps.pi_offset = 0; */
-/* OBSOLETE ps.pi_thread = inferior_thread; */
-/* OBSOLETE ioctl (inferior_fd, PIXRDCREGS, &ps); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* FIXME: stop_signal is from target.h but stop_sigcode is a */
-/* OBSOLETE convex-specific thing. *x/ */
-/* OBSOLETE printf_filtered ("Current thread %d stopped with signal %d.%d (%s).\n", */
-/* OBSOLETE inferior_thread, stop_signal, stop_sigcode, */
-/* OBSOLETE subsig_name (stop_signal, stop_sigcode)); */
-/* OBSOLETE */
-/* OBSOLETE for (p = signal_stack; p->pid; p--) */
-/* OBSOLETE printf_filtered ("Thread %d stopped with signal %d.%d (%s).\n", */
-/* OBSOLETE p->thread, p->signo, p->subsig, */
-/* OBSOLETE subsig_name (p->signo, p->subsig)); */
-/* OBSOLETE */
-/* OBSOLETE if (iscrlbit (comm_registers.crctl.lbits.cc, 64+13)) */
-/* OBSOLETE printf_filtered ("New thread start pc %#x\n", */
-/* OBSOLETE (long) (comm_registers.crreg.pcpsw >> 32)); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Return string describing a signal.subcode number *x/ */
-/* OBSOLETE */
-/* OBSOLETE static char * */
-/* OBSOLETE subsig_name (signo, subcode) */
-/* OBSOLETE int signo, subcode; */
-/* OBSOLETE { */
-/* OBSOLETE static char *subsig4[] = { */
-/* OBSOLETE "error exit", "privileged instruction", "unknown", */
-/* OBSOLETE "unknown", "undefined opcode", */
-/* OBSOLETE 0}; */
-/* OBSOLETE static char *subsig5[] = {0, */
-/* OBSOLETE "breakpoint", "single step", "fork trap", "exec trap", "pfork trap", */
-/* OBSOLETE "join trap", "idle trap", "last thread", "wfork trap", */
-/* OBSOLETE "process breakpoint", "trap instruction", */
-/* OBSOLETE 0}; */
-/* OBSOLETE static char *subsig8[] = {0, */
-/* OBSOLETE "int overflow", "int divide check", "float overflow", */
-/* OBSOLETE "float divide check", "float underflow", "reserved operand", */
-/* OBSOLETE "sqrt error", "exp error", "ln error", "sin error", "cos error", */
-/* OBSOLETE 0}; */
-/* OBSOLETE static char *subsig10[] = {0, */
-/* OBSOLETE "invalid inward ring address", "invalid outward ring call", */
-/* OBSOLETE "invalid inward ring return", "invalid syscall gate", */
-/* OBSOLETE "invalid rtn frame length", "invalid comm reg address", */
-/* OBSOLETE "invalid trap gate", */
-/* OBSOLETE 0}; */
-/* OBSOLETE static char *subsig11[] = {0, */
-/* OBSOLETE "read access denied", "write access denied", "execute access denied", */
-/* OBSOLETE "segment descriptor fault", "page table fault", "data reference fault", */
-/* OBSOLETE "i/o access denied", "levt pte invalid", */
-/* OBSOLETE 0}; */
-/* OBSOLETE */
-/* OBSOLETE static char **subsig_list[] = */
-/* OBSOLETE {0, 0, 0, 0, subsig4, subsig5, 0, 0, subsig8, 0, subsig10, subsig11, 0}; */
-/* OBSOLETE */
-/* OBSOLETE int i; */
-/* OBSOLETE char *p; */
-/* OBSOLETE */
-/* OBSOLETE if ((p = strsignal (signo)) == NULL) */
-/* OBSOLETE p = "unknown"; */
-/* OBSOLETE if (signo >= (sizeof subsig_list / sizeof *subsig_list) */
-/* OBSOLETE || !subsig_list[signo]) */
-/* OBSOLETE return p; */
-/* OBSOLETE for (i = 1; subsig_list[signo][i]; i++) */
-/* OBSOLETE if (i == subcode) */
-/* OBSOLETE return subsig_list[signo][subcode]; */
-/* OBSOLETE return p; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE /* Print a compact display of thread status, essentially x/i $pc */
-/* OBSOLETE for all active threads. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE threadstat () */
-/* OBSOLETE { */
-/* OBSOLETE int t; */
-/* OBSOLETE */
-/* OBSOLETE for (t = 0; t < n_threads; t++) */
-/* OBSOLETE if (thread_state[t] == PI_TALIVE) */
-/* OBSOLETE { */
-/* OBSOLETE printf_filtered ("%d%c %08x%c %d.%d ", t, */
-/* OBSOLETE (t == inferior_thread ? '*' : ' '), thread_pc[t], */
-/* OBSOLETE (thread_is_in_kernel[t] ? '#' : ' '), */
-/* OBSOLETE thread_signal[t], thread_sigcode[t]); */
-/* OBSOLETE print_insn (thread_pc[t], stdout); */
-/* OBSOLETE printf_filtered ("\n"); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Change the current thread to ARG. *x/ */
-/* OBSOLETE */
-/* OBSOLETE set_thread_command (arg) */
-/* OBSOLETE char *arg; */
-/* OBSOLETE { */
-/* OBSOLETE int thread; */
-/* OBSOLETE */
-/* OBSOLETE if (!arg) */
-/* OBSOLETE { */
-/* OBSOLETE threadstat (); */
-/* OBSOLETE return; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE thread = parse_and_eval_address (arg); */
-/* OBSOLETE */
-/* OBSOLETE if (thread < 0 || thread > n_threads || thread_state[thread] != PI_TALIVE) */
-/* OBSOLETE error ("no such thread."); */
-/* OBSOLETE */
-/* OBSOLETE select_thread (thread); */
-/* OBSOLETE */
-/* OBSOLETE stop_pc = read_pc (); */
-/* OBSOLETE flush_cached_frames (); */
-/* OBSOLETE select_frame (get_current_frame (), 0); */
-/* OBSOLETE print_stack_frame (selected_frame, selected_frame_level, -1); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Here on CONT command; gdb's dispatch address is changed to come here. */
-/* OBSOLETE Set global variable ALL_CONTINUE to tell resume() that it should */
-/* OBSOLETE start up all threads, and that a thread switch will not blow gdb's */
-/* OBSOLETE mind. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE convex_cont_command (proc_count_exp, from_tty) */
-/* OBSOLETE char *proc_count_exp; */
-/* OBSOLETE int from_tty; */
-/* OBSOLETE { */
-/* OBSOLETE all_continue = 1; */
-/* OBSOLETE cont_command (proc_count_exp, from_tty); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Here on 1CONT command. Resume only the current thread. *x/ */
-/* OBSOLETE */
-/* OBSOLETE one_cont_command (proc_count_exp, from_tty) */
-/* OBSOLETE char *proc_count_exp; */
-/* OBSOLETE int from_tty; */
-/* OBSOLETE { */
-/* OBSOLETE cont_command (proc_count_exp, from_tty); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Print the contents and lock bits of all communication registers, */
-/* OBSOLETE or just register ARG if ARG is a communication register, */
-/* OBSOLETE or the 3-word resource structure in memory at address ARG. *x/ */
-/* OBSOLETE */
-/* OBSOLETE comm_registers_info (arg) */
-/* OBSOLETE char *arg; */
-/* OBSOLETE { */
-/* OBSOLETE int i, regnum; */
-/* OBSOLETE */
-/* OBSOLETE if (arg) */
-/* OBSOLETE { */
-/* OBSOLETE if (sscanf (arg, "$c%d", ®num) == 1) { */
-/* OBSOLETE ; */
-/* OBSOLETE } else if (sscanf (arg, "$C%d", ®num) == 1) { */
-/* OBSOLETE ; */
-/* OBSOLETE } else { */
-/* OBSOLETE regnum = parse_and_eval_address (arg); */
-/* OBSOLETE if (regnum > 0) */
-/* OBSOLETE regnum &= ~0x8000; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (regnum >= 64) */
-/* OBSOLETE error ("%s: invalid register name.", arg); */
-/* OBSOLETE */
-/* OBSOLETE /* if we got a (user) address, examine the resource struct there *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (regnum < 0) */
-/* OBSOLETE { */
-/* OBSOLETE static int buf[3]; */
-/* OBSOLETE read_memory (regnum, buf, sizeof buf); */
-/* OBSOLETE printf_filtered ("%08x %08x%08x%s\n", regnum, buf[1], buf[2], */
-/* OBSOLETE buf[0] & 0xff ? " locked" : ""); */
-/* OBSOLETE return; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE ps.pi_buffer = (char *) &comm_registers; */
-/* OBSOLETE ps.pi_nbytes = sizeof comm_registers; */
-/* OBSOLETE ps.pi_offset = 0; */
-/* OBSOLETE ps.pi_thread = inferior_thread; */
-/* OBSOLETE ioctl (inferior_fd, PIXRDCREGS, &ps); */
-/* OBSOLETE */
-/* OBSOLETE for (i = 0; i < 64; i++) */
-/* OBSOLETE if (!arg || i == regnum) */
-/* OBSOLETE printf_filtered ("%2d 0x8%03x %016llx%s\n", i, i, */
-/* OBSOLETE comm_registers.crreg.r4[i], */
-/* OBSOLETE (iscrlbit (comm_registers.crctl.lbits.cc, i) */
-/* OBSOLETE ? " locked" : "")); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Print the psw *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE psw_info (arg) */
-/* OBSOLETE char *arg; */
-/* OBSOLETE { */
-/* OBSOLETE struct pswbit */
-/* OBSOLETE { */
-/* OBSOLETE int bit; */
-/* OBSOLETE int pos; */
-/* OBSOLETE char *text; */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE static struct pswbit pswbit[] = */
-/* OBSOLETE { */
-/* OBSOLETE { 0x80000000, -1, "A carry" }, */
-/* OBSOLETE { 0x40000000, -1, "A integer overflow" }, */
-/* OBSOLETE { 0x20000000, -1, "A zero divide" }, */
-/* OBSOLETE { 0x10000000, -1, "Integer overflow enable" }, */
-/* OBSOLETE { 0x08000000, -1, "Trace" }, */
-/* OBSOLETE { 0x06000000, 25, "Frame length" }, */
-/* OBSOLETE { 0x01000000, -1, "Sequential" }, */
-/* OBSOLETE { 0x00800000, -1, "S carry" }, */
-/* OBSOLETE { 0x00400000, -1, "S integer overflow" }, */
-/* OBSOLETE { 0x00200000, -1, "S zero divide" }, */
-/* OBSOLETE { 0x00100000, -1, "Zero divide enable" }, */
-/* OBSOLETE { 0x00080000, -1, "Floating underflow" }, */
-/* OBSOLETE { 0x00040000, -1, "Floating overflow" }, */
-/* OBSOLETE { 0x00020000, -1, "Floating reserved operand" }, */
-/* OBSOLETE { 0x00010000, -1, "Floating zero divide" }, */
-/* OBSOLETE { 0x00008000, -1, "Floating error enable" }, */
-/* OBSOLETE { 0x00004000, -1, "Floating underflow enable" }, */
-/* OBSOLETE { 0x00002000, -1, "IEEE" }, */
-/* OBSOLETE { 0x00001000, -1, "Sequential stores" }, */
-/* OBSOLETE { 0x00000800, -1, "Intrinsic error" }, */
-/* OBSOLETE { 0x00000400, -1, "Intrinsic error enable" }, */
-/* OBSOLETE { 0x00000200, -1, "Trace thread creates" }, */
-/* OBSOLETE { 0x00000100, -1, "Thread init trap" }, */
-/* OBSOLETE { 0x000000e0, 5, "Reserved" }, */
-/* OBSOLETE { 0x0000001f, 0, "Intrinsic error code" }, */
-/* OBSOLETE {0, 0, 0}, */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE long psw; */
-/* OBSOLETE struct pswbit *p; */
-/* OBSOLETE */
-/* OBSOLETE if (arg) */
-/* OBSOLETE psw = parse_and_eval_address (arg); */
-/* OBSOLETE else */
-/* OBSOLETE psw = read_register (PS_REGNUM); */
-/* OBSOLETE */
-/* OBSOLETE for (p = pswbit; p->bit; p++) */
-/* OBSOLETE { */
-/* OBSOLETE if (p->pos < 0) */
-/* OBSOLETE printf_filtered ("%08x %s %s\n", p->bit, */
-/* OBSOLETE (psw & p->bit) ? "yes" : "no ", p->text); */
-/* OBSOLETE else */
-/* OBSOLETE printf_filtered ("%08x %3d %s\n", p->bit, */
-/* OBSOLETE (psw & p->bit) >> p->pos, p->text); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE \f */
-/* OBSOLETE #include "symtab.h" */
-/* OBSOLETE */
-/* OBSOLETE /* reg (fmt_field, inst_field) -- */
-/* OBSOLETE the {first,second,third} operand of instruction as fmt_field = [ijk] */
-/* OBSOLETE gets the value of the field from the [ijk] position of the instruction *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define reg(a,b) ((char (*)[3])(op[fmt->a]))[inst.f0.b] */
-/* OBSOLETE */
-/* OBSOLETE /* lit (fmt_field) -- field [ijk] is a literal (PSW, VL, eg) *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define lit(i) op[fmt->i] */
-/* OBSOLETE */
-/* OBSOLETE /* aj[j] -- name for A register j *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define aj ((char (*)[3])(op[A])) */
-/* OBSOLETE \f */
-/* OBSOLETE union inst { */
-/* OBSOLETE struct { */
-/* OBSOLETE unsigned : 7; */
-/* OBSOLETE unsigned i : 3; */
-/* OBSOLETE unsigned j : 3; */
-/* OBSOLETE unsigned k : 3; */
-/* OBSOLETE unsigned : 16; */
-/* OBSOLETE unsigned : 32; */
-/* OBSOLETE } f0; */
-/* OBSOLETE struct { */
-/* OBSOLETE unsigned : 8; */
-/* OBSOLETE unsigned indir : 1; */
-/* OBSOLETE unsigned len : 1; */
-/* OBSOLETE unsigned j : 3; */
-/* OBSOLETE unsigned k : 3; */
-/* OBSOLETE unsigned : 16; */
-/* OBSOLETE unsigned : 32; */
-/* OBSOLETE } f1; */
-/* OBSOLETE unsigned char byte[8]; */
-/* OBSOLETE unsigned short half[4]; */
-/* OBSOLETE char signed_byte[8]; */
-/* OBSOLETE short signed_half[4]; */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE struct opform { */
-/* OBSOLETE int mask; /* opcode mask *x/ */
-/* OBSOLETE int shift; /* opcode align *x/ */
-/* OBSOLETE struct formstr *formstr[3]; /* ST, E0, E1 *x/ */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE struct formstr { */
-/* OBSOLETE unsigned lop:8, rop:5; /* opcode *x/ */
-/* OBSOLETE unsigned fmt:5; /* inst format *x/ */
-/* OBSOLETE unsigned i:5, j:5, k:2; /* operand formats *x/ */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE #include "opcode/convex.h" */
-/* OBSOLETE */
-/* OBSOLETE CONST unsigned char formdecode [] = { */
-/* OBSOLETE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, */
-/* OBSOLETE 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, */
-/* OBSOLETE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, */
-/* OBSOLETE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, */
-/* OBSOLETE 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, */
-/* OBSOLETE 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, */
-/* OBSOLETE 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, */
-/* OBSOLETE 4,4,4,4,4,4,4,4,5,5,5,5,6,6,7,8, */
-/* OBSOLETE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, */
-/* OBSOLETE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, */
-/* OBSOLETE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, */
-/* OBSOLETE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, */
-/* OBSOLETE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, */
-/* OBSOLETE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, */
-/* OBSOLETE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, */
-/* OBSOLETE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE CONST struct opform opdecode[] = { */
-/* OBSOLETE 0x7e00, 9, format0, e0_format0, e1_format0, */
-/* OBSOLETE 0x3f00, 8, format1, e0_format1, e1_format1, */
-/* OBSOLETE 0x1fc0, 6, format2, e0_format2, e1_format2, */
-/* OBSOLETE 0x0fc0, 6, format3, e0_format3, e1_format3, */
-/* OBSOLETE 0x0700, 8, format4, e0_format4, e1_format4, */
-/* OBSOLETE 0x03c0, 6, format5, e0_format5, e1_format5, */
-/* OBSOLETE 0x01f8, 3, format6, e0_format6, e1_format6, */
-/* OBSOLETE 0x00f8, 3, format7, e0_format7, e1_format7, */
-/* OBSOLETE 0x0000, 0, formatx, formatx, formatx, */
-/* OBSOLETE 0x0f80, 7, formatx, formatx, formatx, */
-/* OBSOLETE 0x0f80, 7, formatx, formatx, formatx, */
-/* OBSOLETE }; */
-/* OBSOLETE \f */
-/* OBSOLETE /* Print the instruction at address MEMADDR in debugged memory, */
-/* OBSOLETE on STREAM. Returns length of the instruction, in bytes. *x/ */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE convex_print_insn (memaddr, stream) */
-/* OBSOLETE CORE_ADDR memaddr; */
-/* OBSOLETE FILE *stream; */
-/* OBSOLETE { */
-/* OBSOLETE union inst inst; */
-/* OBSOLETE struct formstr *fmt; */
-/* OBSOLETE register int format, op1, pfx; */
-/* OBSOLETE int l; */
-/* OBSOLETE */
-/* OBSOLETE read_memory (memaddr, &inst, sizeof inst); */
-/* OBSOLETE */
-/* OBSOLETE /* Remove and note prefix, if present *x/ */
-/* OBSOLETE */
-/* OBSOLETE pfx = inst.half[0]; */
-/* OBSOLETE if ((pfx & 0xfff0) == 0x7ef0) */
-/* OBSOLETE { */
-/* OBSOLETE pfx = ((pfx >> 3) & 1) + 1; */
-/* OBSOLETE *(long long *) &inst = *(long long *) &inst.half[1]; */
-/* OBSOLETE } */
-/* OBSOLETE else pfx = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Split opcode into format.op1 and look up in appropriate table *x/ */
-/* OBSOLETE */
-/* OBSOLETE format = formdecode[inst.byte[0]]; */
-/* OBSOLETE op1 = (inst.half[0] & opdecode[format].mask) >> opdecode[format].shift; */
-/* OBSOLETE if (format == 9) */
-/* OBSOLETE { */
-/* OBSOLETE if (pfx) */
-/* OBSOLETE fmt = formatx; */
-/* OBSOLETE else if (inst.f1.j == 0) */
-/* OBSOLETE fmt = &format1a[op1]; */
-/* OBSOLETE else if (inst.f1.j == 1) */
-/* OBSOLETE fmt = &format1b[op1]; */
-/* OBSOLETE else */
-/* OBSOLETE fmt = formatx; */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE fmt = &opdecode[format].formstr[pfx][op1]; */
-/* OBSOLETE */
-/* OBSOLETE /* Print it *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (fmt->fmt == xxx) */
-/* OBSOLETE { */
-/* OBSOLETE /* noninstruction *x/ */
-/* OBSOLETE fprintf (stream, "0x%04x", pfx ? pfx : inst.half[0]); */
-/* OBSOLETE return 2; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (pfx) */
-/* OBSOLETE pfx = 2; */
-/* OBSOLETE */
-/* OBSOLETE fprintf (stream, "%s%s%s", lop[fmt->lop], rop[fmt->rop], */
-/* OBSOLETE &" "[strlen(lop[fmt->lop]) + strlen(rop[fmt->rop])]); */
-/* OBSOLETE */
-/* OBSOLETE switch (fmt->fmt) */
-/* OBSOLETE { */
-/* OBSOLETE case rrr: /* three register *x/ */
-/* OBSOLETE fprintf (stream, "%s,%s,%s", reg(i,i), reg(j,j), reg(k,k)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case rr: /* two register *x/ */
-/* OBSOLETE fprintf (stream, "%s,%s", reg(i,j), reg(j,k)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case rxr: /* two register, reversed i and j fields *x/ */
-/* OBSOLETE fprintf (stream, "%s,%s", reg(i,k), reg(j,j)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case r: /* one register *x/ */
-/* OBSOLETE fprintf (stream, "%s", reg(i,k)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case nops: /* no operands *x/ */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case nr: /* short immediate, one register *x/ */
-/* OBSOLETE fprintf (stream, "#%d,%s", inst.f0.j, reg(i,k)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case pcrel: /* pc relative *x/ */
-/* OBSOLETE print_address (memaddr + 2 * inst.signed_byte[1], stream); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case lr: /* literal, one register *x/ */
-/* OBSOLETE fprintf (stream, "%s,%s", lit(i), reg(j,k)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case rxl: /* one register, literal *x/ */
-/* OBSOLETE fprintf (stream, "%s,%s", reg(i,k), lit(j)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case rlr: /* register, literal, register *x/ */
-/* OBSOLETE fprintf (stream, "%s,%s,%s", reg(i,j), lit(j), reg(k,k)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case rrl: /* register, register, literal *x/ */
-/* OBSOLETE fprintf (stream, "%s,%s,%s", reg(i,j), reg(j,k), lit(k)); */
-/* OBSOLETE return pfx + 2; */
-/* OBSOLETE */
-/* OBSOLETE case iml: /* immediate, literal *x/ */
-/* OBSOLETE if (inst.f1.len) */
-/* OBSOLETE { */
-/* OBSOLETE fprintf (stream, "#%#x,%s", */
-/* OBSOLETE (inst.signed_half[1] << 16) + inst.half[2], lit(i)); */
-/* OBSOLETE return pfx + 6; */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE fprintf (stream, "#%d,%s", inst.signed_half[1], lit(i)); */
-/* OBSOLETE return pfx + 4; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE case imr: /* immediate, register *x/ */
-/* OBSOLETE if (inst.f1.len) */
-/* OBSOLETE { */
-/* OBSOLETE fprintf (stream, "#%#x,%s", */
-/* OBSOLETE (inst.signed_half[1] << 16) + inst.half[2], reg(i,k)); */
-/* OBSOLETE return pfx + 6; */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE fprintf (stream, "#%d,%s", inst.signed_half[1], reg(i,k)); */
-/* OBSOLETE return pfx + 4; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE case a1r: /* memory, register *x/ */
-/* OBSOLETE l = print_effa (inst, stream); */
-/* OBSOLETE fprintf (stream, ",%s", reg(i,k)); */
-/* OBSOLETE return pfx + l; */
-/* OBSOLETE */
-/* OBSOLETE case a1l: /* memory, literal *x/ */
-/* OBSOLETE l = print_effa (inst, stream); */
-/* OBSOLETE fprintf (stream, ",%s", lit(i)); */
-/* OBSOLETE return pfx + l; */
-/* OBSOLETE */
-/* OBSOLETE case a2r: /* register, memory *x/ */
-/* OBSOLETE fprintf (stream, "%s,", reg(i,k)); */
-/* OBSOLETE return pfx + print_effa (inst, stream); */
-/* OBSOLETE */
-/* OBSOLETE case a2l: /* literal, memory *x/ */
-/* OBSOLETE fprintf (stream, "%s,", lit(i)); */
-/* OBSOLETE return pfx + print_effa (inst, stream); */
-/* OBSOLETE */
-/* OBSOLETE case a3: /* memory *x/ */
-/* OBSOLETE return pfx + print_effa (inst, stream); */
-/* OBSOLETE */
-/* OBSOLETE case a4: /* system call *x/ */
-/* OBSOLETE l = 29; goto a4a5; */
-/* OBSOLETE case a5: /* trap *x/ */
-/* OBSOLETE l = 27; */
-/* OBSOLETE a4a5: */
-/* OBSOLETE if (inst.f1.len) */
-/* OBSOLETE { */
-/* OBSOLETE unsigned int m = (inst.signed_half[1] << 16) + inst.half[2]; */
-/* OBSOLETE fprintf (stream, "#%d,#%d", m >> l, m & (-1 >> (32-l))); */
-/* OBSOLETE return pfx + 6; */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE unsigned int m = inst.signed_half[1]; */
-/* OBSOLETE fprintf (stream, "#%d,#%d", m >> l, m & (-1 >> (32-l))); */
-/* OBSOLETE return pfx + 4; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE /* print effective address @nnn(aj), return instruction length *x/ */
-/* OBSOLETE */
-/* OBSOLETE int print_effa (inst, stream) */
-/* OBSOLETE union inst inst; */
-/* OBSOLETE FILE *stream; */
-/* OBSOLETE { */
-/* OBSOLETE int n, l; */
-/* OBSOLETE */
-/* OBSOLETE if (inst.f1.len) */
-/* OBSOLETE { */
-/* OBSOLETE n = (inst.signed_half[1] << 16) + inst.half[2]; */
-/* OBSOLETE l = 6; */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE n = inst.signed_half[1]; */
-/* OBSOLETE l = 4; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (inst.f1.indir) */
-/* OBSOLETE printf ("@"); */
-/* OBSOLETE */
-/* OBSOLETE if (!inst.f1.j) */
-/* OBSOLETE { */
-/* OBSOLETE print_address (n, stream); */
-/* OBSOLETE return l; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE fprintf (stream, (n & 0xf0000000) == 0x80000000 ? "%#x(%s)" : "%d(%s)", */
-/* OBSOLETE n, aj[inst.f1.j]); */
-/* OBSOLETE */
-/* OBSOLETE return l; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE \f */
-/* OBSOLETE void */
-/* OBSOLETE _initialize_convex_dep () */
-/* OBSOLETE { */
-/* OBSOLETE add_com ("alias", class_support, alias_command, */
-/* OBSOLETE "Add a new name for an existing command."); */
-/* OBSOLETE */
-/* OBSOLETE add_cmd ("base", class_vars, set_base_command, */
-/* OBSOLETE "Change the integer output radix to 8, 10 or 16\n\ */
-/* OBSOLETE or use just `set base' with no args to return to the ad-hoc default,\n\ */
-/* OBSOLETE which is 16 for integers that look like addresses, 10 otherwise.", */
-/* OBSOLETE &setlist); */
-/* OBSOLETE */
-/* OBSOLETE add_cmd ("pipeline", class_run, set_pipelining_command, */
-/* OBSOLETE "Enable or disable overlapped execution of instructions.\n\ */
-/* OBSOLETE With `set pipe off', exceptions are reported with\n\ */
-/* OBSOLETE $pc pointing at the instruction after the faulting one.\n\ */
-/* OBSOLETE The default is `set pipe on', which runs faster.", */
-/* OBSOLETE &setlist); */
-/* OBSOLETE */
-/* OBSOLETE add_cmd ("parallel", class_run, set_parallel_command, */
-/* OBSOLETE "Enable or disable multi-threaded execution of parallel code.\n\ */
-/* OBSOLETE `set parallel off' means run the program on a single CPU.\n\ */
-/* OBSOLETE `set parallel fixed' means run the program with all CPUs assigned to it.\n\ */
-/* OBSOLETE `set parallel on' means run the program on any CPUs that are available.", */
-/* OBSOLETE &setlist); */
-/* OBSOLETE */
-/* OBSOLETE add_com ("1cont", class_run, one_cont_command, */
-/* OBSOLETE "Continue the program, activating only the current thread.\n\ */
-/* OBSOLETE Args are the same as the `cont' command."); */
-/* OBSOLETE */
-/* OBSOLETE add_com ("thread", class_run, set_thread_command, */
-/* OBSOLETE "Change the current thread, the one under scrutiny and control.\n\ */
-/* OBSOLETE With no arg, show the active threads, the current one marked with *."); */
-/* OBSOLETE */
-/* OBSOLETE add_info ("threads", thread_info, */
-/* OBSOLETE "List status of active threads."); */
-/* OBSOLETE */
-/* OBSOLETE add_info ("comm-registers", comm_registers_info, */
-/* OBSOLETE "List communication registers and their contents.\n\ */
-/* OBSOLETE A communication register name as argument means describe only that register.\n\ */
-/* OBSOLETE An address as argument means describe the resource structure at that address.\n\ */
-/* OBSOLETE `Locked' means that the register has been sent to but not yet received from."); */
-/* OBSOLETE */
-/* OBSOLETE add_info ("psw", psw_info, */
-/* OBSOLETE "Display $ps, the processor status word, bit by bit.\n\ */
-/* OBSOLETE An argument means display that value's interpretation as a psw."); */
-/* OBSOLETE */
-/* OBSOLETE add_cmd ("convex", no_class, 0, "Convex-specific commands.\n\ */
-/* OBSOLETE 32-bit registers $pc $ps $sp $ap $fp $a1-5 $s0-7 $v0-7 $vl $vs $vm $c0-63\n\ */
-/* OBSOLETE 64-bit registers $S0-7 $V0-7 $C0-63\n\ */
-/* OBSOLETE \n\ */
-/* OBSOLETE info threads display info on stopped threads waiting to signal\n\ */
-/* OBSOLETE thread display list of active threads\n\ */
-/* OBSOLETE thread N select thread N (its registers, stack, memory, etc.)\n\ */
-/* OBSOLETE step, next, etc step selected thread only\n\ */
-/* OBSOLETE 1cont continue selected thread only\n\ */
-/* OBSOLETE cont continue all threads\n\ */
-/* OBSOLETE info comm-registers display contents of comm register(s) or a resource struct\n\ */
-/* OBSOLETE info psw display processor status word $ps\n\ */
-/* OBSOLETE set base N change integer radix used by `print' without a format\n\ */
-/* OBSOLETE set pipeline off exceptions are precise, $pc points after the faulting insn\n\ */
-/* OBSOLETE set pipeline on normal mode, $pc is somewhere ahead of faulting insn\n\ */
-/* OBSOLETE set parallel off program runs on a single CPU\n\ */
-/* OBSOLETE set parallel fixed all CPUs are assigned to the program\n\ */
-/* OBSOLETE set parallel on normal mode, parallel execution on random available CPUs\n\ */
-/* OBSOLETE ", */
-/* OBSOLETE &cmdlist); */
-/* OBSOLETE */
-/* OBSOLETE } */
+++ /dev/null
-/* OBSOLETE /* Convex host-dependent code for GDB. */
-/* OBSOLETE Copyright 1990, 1991, 1992 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, Boston, MA 02111-1307, USA. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #include "defs.h" */
-/* OBSOLETE #include "command.h" */
-/* OBSOLETE #include "symtab.h" */
-/* OBSOLETE #include "value.h" */
-/* OBSOLETE #include "frame.h" */
-/* OBSOLETE #include "inferior.h" */
-/* OBSOLETE #include "gdb_wait.h" */
-/* OBSOLETE */
-/* OBSOLETE #include <signal.h> */
-/* OBSOLETE #include <fcntl.h> */
-/* OBSOLETE #include "gdbcore.h" */
-/* OBSOLETE */
-/* OBSOLETE #include <sys/param.h> */
-/* OBSOLETE #include <sys/dir.h> */
-/* OBSOLETE #include <sys/user.h> */
-/* OBSOLETE #include <sys/ioctl.h> */
-/* OBSOLETE #include <sys/pcntl.h> */
-/* OBSOLETE #include <sys/thread.h> */
-/* OBSOLETE #include <sys/proc.h> */
-/* OBSOLETE #include <sys/file.h> */
-/* OBSOLETE #include "gdb_stat.h" */
-/* OBSOLETE #include <sys/mman.h> */
-/* OBSOLETE */
-/* OBSOLETE #include <convex/vmparam.h> */
-/* OBSOLETE #include <convex/filehdr.h> */
-/* OBSOLETE #include <convex/opthdr.h> */
-/* OBSOLETE #include <convex/scnhdr.h> */
-/* OBSOLETE #include <convex/core.h> */
-/* OBSOLETE */
-/* OBSOLETE /* Per-thread data, read from the inferior at each stop and written */
-/* OBSOLETE back at each resume. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Number of active threads. */
-/* OBSOLETE Tables are valid for thread numbers less than this. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int n_threads; */
-/* OBSOLETE */
-/* OBSOLETE #define MAXTHREADS 8 */
-/* OBSOLETE */
-/* OBSOLETE /* Thread state. The remaining data is valid only if this is PI_TALIVE. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int thread_state[MAXTHREADS]; */
-/* OBSOLETE */
-/* OBSOLETE /* Stop pc, signal, signal subcode *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int thread_pc[MAXTHREADS]; */
-/* OBSOLETE static int thread_signal[MAXTHREADS]; */
-/* OBSOLETE static int thread_sigcode[MAXTHREADS]; */
-/* OBSOLETE */
-/* OBSOLETE /* Thread registers. */
-/* OBSOLETE If thread is selected, the regs are in registers[] instead. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static char thread_regs[MAXTHREADS][REGISTER_BYTES]; */
-/* OBSOLETE */
-/* OBSOLETE /* 1 if the top frame on the thread's stack was a context frame, */
-/* OBSOLETE meaning that the kernel is up to something and we should not */
-/* OBSOLETE touch the thread at all except to resume it. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static char thread_is_in_kernel[MAXTHREADS]; */
-/* OBSOLETE */
-/* OBSOLETE /* The currently selected thread's number. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int inferior_thread; */
-/* OBSOLETE */
-/* OBSOLETE /* Inferior process's file handle and a process control block */
-/* OBSOLETE to feed args to ioctl with. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int inferior_fd; */
-/* OBSOLETE static struct pcntl ps; */
-/* OBSOLETE */
-/* OBSOLETE /* SOFF file headers for exec or core file. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static FILEHDR filehdr; */
-/* OBSOLETE static OPTHDR opthdr; */
-/* OBSOLETE static SCNHDR scnhdr; */
-/* OBSOLETE */
-/* OBSOLETE /* Address maps constructed from section headers of exec and core files. */
-/* OBSOLETE Defines process address -> file address translation. *x/ */
-/* OBSOLETE */
-/* OBSOLETE struct pmap */
-/* OBSOLETE { */
-/* OBSOLETE long mem_addr; /* process start address *x/ */
-/* OBSOLETE long mem_end; /* process end+1 address *x/ */
-/* OBSOLETE long file_addr; /* file start address *x/ */
-/* OBSOLETE long thread; /* -1 shared; 0,1,... thread-local *x/ */
-/* OBSOLETE long type; /* S_TEXT S_DATA S_BSS S_TBSS etc *x/ */
-/* OBSOLETE long which; /* used to sort map for info files *x/ */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE static int n_exec, n_core; */
-/* OBSOLETE static struct pmap exec_map[100]; */
-/* OBSOLETE static struct pmap core_map[100]; */
-/* OBSOLETE */
-/* OBSOLETE /* Offsets in the core file of core_context and core_tcontext blocks. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int context_offset; */
-/* OBSOLETE static int tcontext_offset[MAXTHREADS]; */
-/* OBSOLETE */
-/* OBSOLETE /* Core file control blocks. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static struct core_context_v70 c; */
-/* OBSOLETE static struct core_tcontext_v70 tc; */
-/* OBSOLETE static struct user u; */
-/* OBSOLETE static thread_t th; */
-/* OBSOLETE static proc_t pr; */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE /* Vector and communication registers from core dump or from inferior. */
-/* OBSOLETE These are read on demand, ie, not normally valid. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static struct vecst vector_registers; */
-/* OBSOLETE static struct creg_ctx comm_registers; */
-/* OBSOLETE */
-/* OBSOLETE /* Flag, set on a vanilla CONT command and cleared when the inferior */
-/* OBSOLETE is continued. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int all_continue; */
-/* OBSOLETE */
-/* OBSOLETE /* Flag, set when the inferior is continued by a vanilla CONT command, */
-/* OBSOLETE cleared if it is continued for any other purpose. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int thread_switch_ok; */
-/* OBSOLETE */
-/* OBSOLETE /* Stack of signals recieved from threads but not yet delivered to gdb. *x/ */
-/* OBSOLETE */
-/* OBSOLETE struct threadpid */
-/* OBSOLETE { */
-/* OBSOLETE int pid; */
-/* OBSOLETE int thread; */
-/* OBSOLETE int signo; */
-/* OBSOLETE int subsig; */
-/* OBSOLETE int pc; */
-/* OBSOLETE }; */
-/* OBSOLETE */
-/* OBSOLETE static struct threadpid signal_stack_bot[100]; */
-/* OBSOLETE static struct threadpid *signal_stack = signal_stack_bot; */
-/* OBSOLETE */
-/* OBSOLETE /* How to detect empty stack -- bottom frame is all zero. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #define signal_stack_is_empty() (signal_stack->pid == 0) */
-/* OBSOLETE */
-/* OBSOLETE /* Mode controlled by SET PIPE command, controls the psw SEQ bit */
-/* OBSOLETE which forces each instruction to complete before the next one starts. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int sequential = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Mode controlled by the SET PARALLEL command. Values are: */
-/* OBSOLETE 0 concurrency limit 1 thread, dynamic scheduling */
-/* OBSOLETE 1 no concurrency limit, dynamic scheduling */
-/* OBSOLETE 2 no concurrency limit, fixed scheduling *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int parallel = 1; */
-/* OBSOLETE */
-/* OBSOLETE /* Mode controlled by SET BASE command, output radix for unformatted */
-/* OBSOLETE integer typeout, as in argument lists, aggregates, and so on. */
-/* OBSOLETE Zero means guess whether it's an address (hex) or not (decimal). *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int output_radix = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Signal subcode at last thread stop. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int stop_sigcode; */
-/* OBSOLETE */
-/* OBSOLETE /* Hack, see wait() below. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static int exec_trap_timer; */
-/* OBSOLETE */
-/* OBSOLETE #include "gdbcmd.h" */
-/* OBSOLETE */
-/* OBSOLETE static struct type *vector_type (); */
-/* OBSOLETE static long *read_vector_register (); */
-/* OBSOLETE static long *read_vector_register_1 (); */
-/* OBSOLETE static void write_vector_register (); */
-/* OBSOLETE static ULONGEST read_comm_register (); */
-/* OBSOLETE static void write_comm_register (); */
-/* OBSOLETE static void convex_cont_command (); */
-/* OBSOLETE static void thread_continue (); */
-/* OBSOLETE static void select_thread (); */
-/* OBSOLETE static void scan_stack (); */
-/* OBSOLETE static void set_fixed_scheduling (); */
-/* OBSOLETE static char *subsig_name (); */
-/* OBSOLETE static void psw_info (); */
-/* OBSOLETE static sig_noop (); */
-/* OBSOLETE static ptr_cmp (); */
-/* OBSOLETE */
-/* OBSOLETE \f */
-/* OBSOLETE /* Execute ptrace. Convex V7 replaced ptrace with pattach. */
-/* OBSOLETE Allow ptrace (0) as a no-op. *x/ */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE call_ptrace (request, pid, procaddr, buf) */
-/* OBSOLETE int request, pid; */
-/* OBSOLETE PTRACE_ARG3_TYPE procaddr; */
-/* OBSOLETE int buf; */
-/* OBSOLETE { */
-/* OBSOLETE if (request == 0) */
-/* OBSOLETE return; */
-/* OBSOLETE error ("no ptrace"); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Replacement for system execle routine. */
-/* OBSOLETE Convert it to an equivalent exect, which pattach insists on. *x/ */
-/* OBSOLETE */
-/* OBSOLETE execle (name, argv) */
-/* OBSOLETE char *name, *argv; */
-/* OBSOLETE { */
-/* OBSOLETE char ***envp = (char ***) &argv; */
-/* OBSOLETE while (*envp++) ; */
-/* OBSOLETE */
-/* OBSOLETE signal (SIGTRAP, sig_noop); */
-/* OBSOLETE exect (name, &argv, *envp); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Stupid handler for stupid trace trap that otherwise causes */
-/* OBSOLETE startup to stupidly hang. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static sig_noop () */
-/* OBSOLETE {} */
-/* OBSOLETE */
-/* OBSOLETE /* Read registers from inferior into registers[] array. */
-/* OBSOLETE For convex, they are already there, read in when the inferior stops. *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE fetch_inferior_registers (regno) */
-/* OBSOLETE int regno; */
-/* OBSOLETE { */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Store our register values back into the inferior. */
-/* OBSOLETE For Convex, do this only once, right before resuming inferior. *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE store_inferior_registers (regno) */
-/* OBSOLETE int regno; */
-/* OBSOLETE { */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Copy LEN bytes from inferior's memory starting at MEMADDR */
-/* OBSOLETE to debugger memory starting at MYADDR. */
-/* OBSOLETE On failure (cannot read from inferior, usually because address is out */
-/* OBSOLETE of bounds) returns the value of errno. *x/ */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE read_inferior_memory (memaddr, myaddr, len) */
-/* OBSOLETE CORE_ADDR memaddr; */
-/* OBSOLETE char *myaddr; */
-/* OBSOLETE int len; */
-/* OBSOLETE { */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE while (len > 0) */
-/* OBSOLETE { */
-/* OBSOLETE /* little-known undocumented max request size *x/ */
-/* OBSOLETE int i = (len < 12288) ? len : 12288; */
-/* OBSOLETE */
-/* OBSOLETE lseek (inferior_fd, memaddr, 0); */
-/* OBSOLETE read (inferior_fd, myaddr, i); */
-/* OBSOLETE */
-/* OBSOLETE memaddr += i; */
-/* OBSOLETE myaddr += i; */
-/* OBSOLETE len -= i; */
-/* OBSOLETE } */
-/* OBSOLETE if (errno) */
-/* OBSOLETE memset (myaddr, '\0', len); */
-/* OBSOLETE return errno; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Copy LEN bytes of data from debugger memory at MYADDR */
-/* OBSOLETE to inferior's memory at MEMADDR. */
-/* OBSOLETE Returns errno on failure (cannot write the inferior) *x/ */
-/* OBSOLETE */
-/* OBSOLETE int */
-/* OBSOLETE write_inferior_memory (memaddr, myaddr, len) */
-/* OBSOLETE CORE_ADDR memaddr; */
-/* OBSOLETE char *myaddr; */
-/* OBSOLETE int len; */
-/* OBSOLETE { */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE lseek (inferior_fd, memaddr, 0); */
-/* OBSOLETE write (inferior_fd, myaddr, len); */
-/* OBSOLETE return errno; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Here from create_inferior when the inferior process has been created */
-/* OBSOLETE and started up. We must do a pattach to grab it for debugging. */
-/* OBSOLETE */
-/* OBSOLETE Also, intercept the CONT command by altering its dispatch address. *x/ */
-/* OBSOLETE /* FIXME: This used to be called from a macro CREATE_INFERIOR_HOOK. */
-/* OBSOLETE But now init_trace_fun is in the same place. So re-write this to */
-/* OBSOLETE use the init_trace_fun (making convex a debugging target). *x/ */
-/* OBSOLETE */
-/* OBSOLETE create_inferior_hook (pid) */
-/* OBSOLETE int pid; */
-/* OBSOLETE { */
-/* OBSOLETE static char cont[] = "cont"; */
-/* OBSOLETE static char cont1[] = "c"; */
-/* OBSOLETE char *linep = cont; */
-/* OBSOLETE char *linep1 = cont1; */
-/* OBSOLETE char **line = &linep; */
-/* OBSOLETE char **line1 = &linep1; */
-/* OBSOLETE struct cmd_list_element *c; */
-/* OBSOLETE */
-/* OBSOLETE c = lookup_cmd (line, cmdlist, "", 0); */
-/* OBSOLETE c->function = convex_cont_command; */
-/* OBSOLETE c = lookup_cmd (line1, cmdlist, "", 0); */
-/* OBSOLETE c->function = convex_cont_command; */
-/* OBSOLETE */
-/* OBSOLETE inferior_fd = pattach (pid, O_EXCL); */
-/* OBSOLETE if (inferior_fd < 0) */
-/* OBSOLETE perror_with_name ("pattach"); */
-/* OBSOLETE inferior_thread = 0; */
-/* OBSOLETE set_fixed_scheduling (pid, parallel == 2); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Attach process PID for debugging. *x/ */
-/* OBSOLETE */
-/* OBSOLETE attach (pid) */
-/* OBSOLETE int pid; */
-/* OBSOLETE { */
-/* OBSOLETE int fd = pattach (pid, O_EXCL); */
-/* OBSOLETE if (fd < 0) */
-/* OBSOLETE perror_with_name ("pattach"); */
-/* OBSOLETE attach_flag = 1; */
-/* OBSOLETE /* wait for strange kernel reverberations to go away *x/ */
-/* OBSOLETE sleep (1); */
-/* OBSOLETE */
-/* OBSOLETE setpgrp (pid, pid); */
-/* OBSOLETE */
-/* OBSOLETE inferior_fd = fd; */
-/* OBSOLETE inferior_thread = 0; */
-/* OBSOLETE return pid; */
-/* 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. *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE detach (signal) */
-/* OBSOLETE int signal; */
-/* OBSOLETE { */
-/* OBSOLETE signal_stack = signal_stack_bot; */
-/* OBSOLETE thread_continue (-1, 0, signal); */
-/* OBSOLETE ioctl (inferior_fd, PIXDETACH, &ps); */
-/* OBSOLETE close (inferior_fd); */
-/* OBSOLETE inferior_fd = 0; */
-/* OBSOLETE attach_flag = 0; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Kill off the inferior process. *x/ */
-/* OBSOLETE */
-/* OBSOLETE kill_inferior () */
-/* OBSOLETE { */
-/* OBSOLETE if (inferior_pid == 0) */
-/* OBSOLETE return; */
-/* OBSOLETE ioctl (inferior_fd, PIXTERMINATE, 0); */
-/* OBSOLETE wait (0); */
-/* OBSOLETE target_mourn_inferior (); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Read vector register REG, and return a pointer to the value. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static long * */
-/* OBSOLETE read_vector_register (reg) */
-/* OBSOLETE int reg; */
-/* OBSOLETE { */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE { */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE ps.pi_buffer = (char *) &vector_registers; */
-/* OBSOLETE ps.pi_nbytes = sizeof vector_registers; */
-/* OBSOLETE ps.pi_offset = 0; */
-/* OBSOLETE ps.pi_thread = inferior_thread; */
-/* OBSOLETE ioctl (inferior_fd, PIXRDVREGS, &ps); */
-/* OBSOLETE if (errno) */
-/* OBSOLETE memset (&vector_registers, '\0', sizeof vector_registers); */
-/* OBSOLETE } */
-/* OBSOLETE else if (corechan >= 0) */
-/* OBSOLETE { */
-/* OBSOLETE lseek (corechan, tcontext_offset[inferior_thread], 0); */
-/* OBSOLETE if (myread (corechan, &tc, sizeof tc) < 0) */
-/* OBSOLETE perror_with_name (corefile); */
-/* OBSOLETE lseek (corechan, tc.core_thread_p, 0); */
-/* OBSOLETE if (myread (corechan, &th, sizeof th) < 0) */
-/* OBSOLETE perror_with_name (corefile); */
-/* OBSOLETE lseek (corechan, tc.core_vregs_p, 0); */
-/* OBSOLETE if (myread (corechan, &vector_registers, 16*128) < 0) */
-/* OBSOLETE perror_with_name (corefile); */
-/* OBSOLETE vector_registers.vm[0] = th.t_vect_ctx.vc_vm[0]; */
-/* OBSOLETE vector_registers.vm[1] = th.t_vect_ctx.vc_vm[1]; */
-/* OBSOLETE vector_registers.vls = th.t_vect_ctx.vc_vls; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE return read_vector_register_1 (reg); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Return a pointer to vector register REG, which must already have been */
-/* OBSOLETE fetched from the inferior or core file. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static long * */
-/* OBSOLETE read_vector_register_1 (reg) */
-/* OBSOLETE int reg; */
-/* OBSOLETE { */
-/* OBSOLETE switch (reg) */
-/* OBSOLETE { */
-/* OBSOLETE case VM_REGNUM: */
-/* OBSOLETE return (long *) vector_registers.vm; */
-/* OBSOLETE case VS_REGNUM: */
-/* OBSOLETE return (long *) &vector_registers.vls; */
-/* OBSOLETE case VL_REGNUM: */
-/* OBSOLETE return 1 + (long *) &vector_registers.vls; */
-/* OBSOLETE default: */
-/* OBSOLETE return (long *) &vector_registers.vr[reg]; */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Write vector register REG, element ELEMENT, new value VAL. */
-/* OBSOLETE NB: must use read-modify-write on the entire vector state, */
-/* OBSOLETE since pattach does not do offsetted writes correctly. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE write_vector_register (reg, element, val) */
-/* OBSOLETE int reg, element; */
-/* OBSOLETE ULONGEST val; */
-/* OBSOLETE { */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE { */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE ps.pi_thread = inferior_thread; */
-/* OBSOLETE ps.pi_offset = 0; */
-/* OBSOLETE ps.pi_buffer = (char *) &vector_registers; */
-/* OBSOLETE ps.pi_nbytes = sizeof vector_registers; */
-/* OBSOLETE */
-/* OBSOLETE ioctl (inferior_fd, PIXRDVREGS, &ps); */
-/* OBSOLETE */
-/* OBSOLETE switch (reg) */
-/* OBSOLETE { */
-/* OBSOLETE case VL_REGNUM: */
-/* OBSOLETE vector_registers.vls = */
-/* OBSOLETE (vector_registers.vls & 0xffffffff00000000LL) */
-/* OBSOLETE + (unsigned long) val; */
-/* OBSOLETE break; */
-/* OBSOLETE */
-/* OBSOLETE case VS_REGNUM: */
-/* OBSOLETE vector_registers.vls = */
-/* OBSOLETE (val << 32) + (unsigned long) vector_registers.vls; */
-/* OBSOLETE break; */
-/* OBSOLETE */
-/* OBSOLETE default: */
-/* OBSOLETE vector_registers.vr[reg].el[element] = val; */
-/* OBSOLETE break; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE ioctl (inferior_fd, PIXWRVREGS, &ps); */
-/* OBSOLETE */
-/* OBSOLETE if (errno) */
-/* OBSOLETE perror_with_name ("writing vector register"); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Return the contents of communication register NUM. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static ULONGEST */
-/* OBSOLETE read_comm_register (num) */
-/* OBSOLETE int num; */
-/* OBSOLETE { */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE { */
-/* OBSOLETE ps.pi_buffer = (char *) &comm_registers; */
-/* OBSOLETE ps.pi_nbytes = sizeof comm_registers; */
-/* OBSOLETE ps.pi_offset = 0; */
-/* OBSOLETE ps.pi_thread = inferior_thread; */
-/* OBSOLETE ioctl (inferior_fd, PIXRDCREGS, &ps); */
-/* OBSOLETE } */
-/* OBSOLETE return comm_registers.crreg.r4[num]; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Store a new value VAL into communication register NUM. */
-/* OBSOLETE NB: Must use read-modify-write on the whole comm register set */
-/* OBSOLETE since pattach does not do offsetted writes correctly. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE write_comm_register (num, val) */
-/* OBSOLETE int num; */
-/* OBSOLETE ULONGEST val; */
-/* OBSOLETE { */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE { */
-/* OBSOLETE ps.pi_buffer = (char *) &comm_registers; */
-/* OBSOLETE ps.pi_nbytes = sizeof comm_registers; */
-/* OBSOLETE ps.pi_offset = 0; */
-/* OBSOLETE ps.pi_thread = inferior_thread; */
-/* OBSOLETE ioctl (inferior_fd, PIXRDCREGS, &ps); */
-/* OBSOLETE comm_registers.crreg.r4[num] = val; */
-/* OBSOLETE ioctl (inferior_fd, PIXWRCREGS, &ps); */
-/* OBSOLETE } */
-/* 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. *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE resume (step, signal) */
-/* OBSOLETE int step; */
-/* OBSOLETE int signal; */
-/* OBSOLETE { */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE if (step || signal) */
-/* OBSOLETE thread_continue (inferior_thread, step, signal); */
-/* OBSOLETE else */
-/* OBSOLETE thread_continue (-1, 0, 0); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Maybe resume some threads. */
-/* OBSOLETE THREAD is which thread to resume, or -1 to resume them all. */
-/* OBSOLETE STEP and SIGNAL are as in resume. */
-/* OBSOLETE */
-/* OBSOLETE Global variable ALL_CONTINUE is set when we are here to do a */
-/* OBSOLETE `cont' command; otherwise we may be doing `finish' or a call or */
-/* OBSOLETE something else that will not tolerate an automatic thread switch. */
-/* OBSOLETE */
-/* OBSOLETE If there are stopped threads waiting to deliver signals, and */
-/* OBSOLETE ALL_CONTINUE, do not actually resume anything. gdb will do a wait */
-/* OBSOLETE and see one of the stopped threads in the queue. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE thread_continue (thread, step, signal) */
-/* OBSOLETE int thread, step, signal; */
-/* OBSOLETE { */
-/* OBSOLETE int n; */
-/* OBSOLETE */
-/* OBSOLETE /* If we are to continue all threads, but not for the CONTINUE command, */
-/* OBSOLETE pay no attention and continue only the selected thread. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (thread < 0 && ! all_continue) */
-/* OBSOLETE thread = inferior_thread; */
-/* OBSOLETE */
-/* OBSOLETE /* If we are not stepping, we have now executed the continue part */
-/* OBSOLETE of a CONTINUE command. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (! step) */
-/* OBSOLETE all_continue = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Allow wait() to switch threads if this is an all-out continue. *x/ */
-/* OBSOLETE */
-/* OBSOLETE thread_switch_ok = thread < 0; */
-/* OBSOLETE */
-/* OBSOLETE /* If there are threads queued up, don't resume. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (thread_switch_ok && ! signal_stack_is_empty ()) */
-/* OBSOLETE return; */
-/* OBSOLETE */
-/* OBSOLETE /* OK, do it. *x/ */
-/* OBSOLETE */
-/* OBSOLETE for (n = 0; n < n_threads; n++) */
-/* OBSOLETE if (thread_state[n] == PI_TALIVE) */
-/* OBSOLETE { */
-/* OBSOLETE select_thread (n); */
-/* OBSOLETE */
-/* OBSOLETE if ((thread < 0 || n == thread) && ! thread_is_in_kernel[n]) */
-/* OBSOLETE { */
-/* OBSOLETE /* Blam the trace bits in the stack's saved psws to match */
-/* OBSOLETE the desired step mode. This is required so that */
-/* OBSOLETE single-stepping a return doesn't restore a psw with a */
-/* OBSOLETE clear trace bit and fly away, and conversely, */
-/* OBSOLETE proceeding through a return in a routine that was */
-/* OBSOLETE stepped into doesn't cause a phantom break by restoring */
-/* OBSOLETE a psw with the trace bit set. *x/ */
-/* OBSOLETE scan_stack (PSW_T_BIT, step); */
-/* OBSOLETE scan_stack (PSW_S_BIT, sequential); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE ps.pi_buffer = registers; */
-/* OBSOLETE ps.pi_nbytes = REGISTER_BYTES; */
-/* OBSOLETE ps.pi_offset = 0; */
-/* OBSOLETE ps.pi_thread = n; */
-/* OBSOLETE if (! thread_is_in_kernel[n]) */
-/* OBSOLETE if (ioctl (inferior_fd, PIXWRREGS, &ps)) */
-/* OBSOLETE perror_with_name ("PIXWRREGS"); */
-/* OBSOLETE */
-/* OBSOLETE if (thread < 0 || n == thread) */
-/* OBSOLETE { */
-/* OBSOLETE ps.pi_pc = 1; */
-/* OBSOLETE ps.pi_signo = signal; */
-/* OBSOLETE if (ioctl (inferior_fd, step ? PIXSTEP : PIXCONTINUE, &ps) < 0) */
-/* OBSOLETE perror_with_name ("PIXCONTINUE"); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (ioctl (inferior_fd, PIXRUN, &ps) < 0) */
-/* OBSOLETE perror_with_name ("PIXRUN"); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Replacement for system wait routine. */
-/* OBSOLETE */
-/* OBSOLETE The system wait returns with one or more threads stopped by */
-/* OBSOLETE signals. Put stopped threads on a stack and return them one by */
-/* OBSOLETE one, so that it appears that wait returns one thread at a time. */
-/* OBSOLETE */
-/* OBSOLETE Global variable THREAD_SWITCH_OK is set when gdb can tolerate wait */
-/* OBSOLETE returning a new thread. If it is false, then only one thread is */
-/* OBSOLETE running; we will do a real wait, the thread will do something, and */
-/* OBSOLETE we will return that. *x/ */
-/* OBSOLETE */
-/* OBSOLETE pid_t */
-/* OBSOLETE wait (w) */
-/* OBSOLETE union wait *w; */
-/* OBSOLETE { */
-/* OBSOLETE int pid; */
-/* OBSOLETE */
-/* OBSOLETE if (!w) */
-/* OBSOLETE return wait3 (0, 0, 0); */
-/* OBSOLETE */
-/* OBSOLETE /* Do a real wait if we were told to, or if there are no queued threads. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (! thread_switch_ok || signal_stack_is_empty ()) */
-/* OBSOLETE { */
-/* OBSOLETE int thread; */
-/* OBSOLETE */
-/* OBSOLETE pid = wait3 (w, 0, 0); */
-/* OBSOLETE */
-/* OBSOLETE if (!WIFSTOPPED (*w) || pid != inferior_pid) */
-/* OBSOLETE return pid; */
-/* OBSOLETE */
-/* OBSOLETE /* The inferior has done something and stopped. Read in all the */
-/* OBSOLETE threads' registers, and queue up any signals that happened. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (ioctl (inferior_fd, PIXGETTHCOUNT, &ps) < 0) */
-/* OBSOLETE perror_with_name ("PIXGETTHCOUNT"); */
-/* OBSOLETE */
-/* OBSOLETE n_threads = ps.pi_othdcnt; */
-/* OBSOLETE for (thread = 0; thread < n_threads; thread++) */
-/* OBSOLETE { */
-/* OBSOLETE ps.pi_thread = thread; */
-/* OBSOLETE if (ioctl (inferior_fd, PIXGETSUBCODE, &ps) < 0) */
-/* OBSOLETE perror_with_name ("PIXGETSUBCODE"); */
-/* OBSOLETE thread_state[thread] = ps.pi_otstate; */
-/* OBSOLETE */
-/* OBSOLETE if (ps.pi_otstate == PI_TALIVE) */
-/* OBSOLETE { */
-/* OBSOLETE select_thread (thread); */
-/* OBSOLETE ps.pi_buffer = registers; */
-/* OBSOLETE ps.pi_nbytes = REGISTER_BYTES; */
-/* OBSOLETE ps.pi_offset = 0; */
-/* OBSOLETE ps.pi_thread = thread; */
-/* OBSOLETE if (ioctl (inferior_fd, PIXRDREGS, &ps) < 0) */
-/* OBSOLETE perror_with_name ("PIXRDREGS"); */
-/* OBSOLETE */
-/* OBSOLETE registers_fetched (); */
-/* OBSOLETE */
-/* OBSOLETE thread_pc[thread] = read_pc (); */
-/* OBSOLETE thread_signal[thread] = ps.pi_osigno; */
-/* OBSOLETE thread_sigcode[thread] = ps.pi_osigcode; */
-/* OBSOLETE */
-/* OBSOLETE /* If the thread's stack has a context frame */
-/* OBSOLETE on top, something fucked is going on. I do not */
-/* OBSOLETE know what, but do I know this: the only thing you */
-/* OBSOLETE can do with such a thread is continue it. *x/ */
-/* OBSOLETE */
-/* OBSOLETE thread_is_in_kernel[thread] = */
-/* OBSOLETE ((read_register (PS_REGNUM) >> 25) & 3) == 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Signals push an extended frame and then fault */
-/* OBSOLETE with a ridiculous pc. Pop the frame. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (thread_pc[thread] > STACK_END_ADDR) */
-/* OBSOLETE { */
-/* OBSOLETE POP_FRAME; */
-/* OBSOLETE if (is_break_pc (thread_pc[thread])) */
-/* OBSOLETE thread_pc[thread] = read_pc () - 2; */
-/* OBSOLETE else */
-/* OBSOLETE thread_pc[thread] = read_pc (); */
-/* OBSOLETE write_register (PC_REGNUM, thread_pc[thread]); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (ps.pi_osigno || ps.pi_osigcode) */
-/* OBSOLETE { */
-/* OBSOLETE signal_stack++; */
-/* OBSOLETE signal_stack->pid = pid; */
-/* OBSOLETE signal_stack->thread = thread; */
-/* OBSOLETE signal_stack->signo = thread_signal[thread]; */
-/* OBSOLETE signal_stack->subsig = thread_sigcode[thread]; */
-/* OBSOLETE signal_stack->pc = thread_pc[thread]; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* The following hackery is caused by a unix 7.1 feature: */
-/* OBSOLETE the inferior's fixed scheduling mode is cleared when */
-/* OBSOLETE it execs the shell (since the shell is not a parallel */
-/* OBSOLETE program). So, note the 5.4 trap we get when */
-/* OBSOLETE the shell does its exec, then catch the 5.0 trap */
-/* OBSOLETE that occurs when the debuggee starts, and set fixed */
-/* OBSOLETE scheduling mode properly. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (ps.pi_osigno == 5 && ps.pi_osigcode == 4) */
-/* OBSOLETE exec_trap_timer = 1; */
-/* OBSOLETE else */
-/* OBSOLETE exec_trap_timer--; */
-/* OBSOLETE */
-/* OBSOLETE if (ps.pi_osigno == 5 && exec_trap_timer == 0) */
-/* OBSOLETE set_fixed_scheduling (pid, parallel == 2); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (signal_stack_is_empty ()) */
-/* OBSOLETE error ("no active threads?!"); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Select the thread that stopped, and return *w saying why. *x/ */
-/* OBSOLETE */
-/* OBSOLETE select_thread (signal_stack->thread); */
-/* OBSOLETE */
-/* OBSOLETE FIXME: need to convert from host sig. */
-/* OBSOLETE stop_signal = signal_stack->signo; */
-/* OBSOLETE stop_sigcode = signal_stack->subsig; */
-/* OBSOLETE */
-/* OBSOLETE WSETSTOP (*w, signal_stack->signo); */
-/* OBSOLETE w->w_thread = signal_stack->thread; */
-/* OBSOLETE return (signal_stack--)->pid; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Select thread THREAD -- its registers, stack, per-thread memory. */
-/* OBSOLETE This is the only routine that may assign to inferior_thread */
-/* OBSOLETE or thread_regs[]. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE select_thread (thread) */
-/* OBSOLETE int thread; */
-/* OBSOLETE { */
-/* OBSOLETE if (thread == inferior_thread) */
-/* OBSOLETE return; */
-/* OBSOLETE */
-/* OBSOLETE memcpy (thread_regs[inferior_thread], registers, REGISTER_BYTES); */
-/* OBSOLETE ps.pi_thread = inferior_thread = thread; */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE ioctl (inferior_fd, PISETRWTID, &ps); */
-/* OBSOLETE memcpy (registers, thread_regs[thread], REGISTER_BYTES); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Routine to set or clear a psw bit in the psw and also all psws */
-/* OBSOLETE saved on the stack. Quits when we get to a frame in which the */
-/* OBSOLETE saved psw is correct. *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE scan_stack (bit, val) */
-/* OBSOLETE long bit, val; */
-/* OBSOLETE { */
-/* OBSOLETE long ps = read_register (PS_REGNUM); */
-/* OBSOLETE long fp; */
-/* OBSOLETE if (val ? !(ps & bit) : (ps & bit)) */
-/* OBSOLETE { */
-/* OBSOLETE ps ^= bit; */
-/* OBSOLETE write_register (PS_REGNUM, ps); */
-/* OBSOLETE */
-/* OBSOLETE fp = read_register (FP_REGNUM); */
-/* OBSOLETE while (fp & 0x80000000) */
-/* OBSOLETE { */
-/* OBSOLETE ps = read_memory_integer (fp + 4, 4); */
-/* OBSOLETE if (val ? (ps & bit) : !(ps & bit)) */
-/* OBSOLETE break; */
-/* OBSOLETE ps ^= bit; */
-/* OBSOLETE write_memory (fp + 4, &ps, 4); */
-/* OBSOLETE fp = read_memory_integer (fp + 8, 4); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Set fixed scheduling (alliant mode) of process PID to ARG (0 or 1). *x/ */
-/* OBSOLETE */
-/* OBSOLETE static void */
-/* OBSOLETE set_fixed_scheduling (pid, arg) */
-/* OBSOLETE int arg; */
-/* OBSOLETE { */
-/* OBSOLETE struct pattributes pattr; */
-/* OBSOLETE getpattr (pid, &pattr); */
-/* OBSOLETE pattr.pattr_pfixed = arg; */
-/* OBSOLETE setpattr (pid, &pattr); */
-/* OBSOLETE } */
-/* OBSOLETE \f */
-/* OBSOLETE void */
-/* OBSOLETE core_file_command (filename, from_tty) */
-/* OBSOLETE char *filename; */
-/* OBSOLETE int from_tty; */
-/* OBSOLETE { */
-/* OBSOLETE int n; */
-/* OBSOLETE */
-/* OBSOLETE /* Discard all vestiges of any previous core file */
-/* OBSOLETE and mark data and stack spaces as empty. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (corefile) */
-/* OBSOLETE xfree (corefile); */
-/* OBSOLETE corefile = 0; */
-/* OBSOLETE */
-/* OBSOLETE if (corechan >= 0) */
-/* OBSOLETE close (corechan); */
-/* OBSOLETE corechan = -1; */
-/* OBSOLETE */
-/* OBSOLETE data_start = 0; */
-/* OBSOLETE data_end = 0; */
-/* OBSOLETE stack_start = STACK_END_ADDR; */
-/* OBSOLETE stack_end = STACK_END_ADDR; */
-/* OBSOLETE n_core = 0; */
-/* OBSOLETE */
-/* OBSOLETE /* Now, if a new core file was specified, open it and digest it. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (filename) */
-/* OBSOLETE { */
-/* OBSOLETE filename = tilde_expand (filename); */
-/* OBSOLETE make_cleanup (xfree, filename); */
-/* OBSOLETE */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */
-/* OBSOLETE corechan = open (filename, O_RDONLY, 0); */
-/* OBSOLETE if (corechan < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE if (myread (corechan, &filehdr, sizeof filehdr) < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE if (!IS_CORE_SOFF_MAGIC (filehdr.h_magic)) */
-/* OBSOLETE error ("%s: not a core file.\n", filename); */
-/* OBSOLETE */
-/* OBSOLETE if (myread (corechan, &opthdr, filehdr.h_opthdr) < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE /* Read through the section headers. */
-/* OBSOLETE For text, data, etc, record an entry in the core file map. */
-/* OBSOLETE For context and tcontext, record the file address of */
-/* OBSOLETE the context blocks. *x/ */
-/* OBSOLETE */
-/* OBSOLETE lseek (corechan, (long) filehdr.h_scnptr, 0); */
-/* OBSOLETE */
-/* OBSOLETE n_threads = 0; */
-/* OBSOLETE for (n = 0; n < filehdr.h_nscns; n++) */
-/* OBSOLETE { */
-/* OBSOLETE if (myread (corechan, &scnhdr, sizeof scnhdr) < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE if ((scnhdr.s_flags & S_TYPMASK) >= S_TEXT */
-/* OBSOLETE && (scnhdr.s_flags & S_TYPMASK) <= S_COMON) */
-/* OBSOLETE { */
-/* OBSOLETE core_map[n_core].mem_addr = scnhdr.s_vaddr; */
-/* OBSOLETE core_map[n_core].mem_end = scnhdr.s_vaddr + scnhdr.s_size; */
-/* OBSOLETE core_map[n_core].file_addr = scnhdr.s_scnptr; */
-/* OBSOLETE core_map[n_core].type = scnhdr.s_flags & S_TYPMASK; */
-/* OBSOLETE if (core_map[n_core].type != S_TBSS */
-/* OBSOLETE && core_map[n_core].type != S_TDATA */
-/* OBSOLETE && core_map[n_core].type != S_TTEXT) */
-/* OBSOLETE core_map[n_core].thread = -1; */
-/* OBSOLETE else if (n_core == 0 */
-/* OBSOLETE || core_map[n_core-1].mem_addr != scnhdr.s_vaddr) */
-/* OBSOLETE core_map[n_core].thread = 0; */
-/* OBSOLETE else */
-/* OBSOLETE core_map[n_core].thread = core_map[n_core-1].thread + 1; */
-/* OBSOLETE n_core++; */
-/* OBSOLETE } */
-/* OBSOLETE else if ((scnhdr.s_flags & S_TYPMASK) == S_CONTEXT) */
-/* OBSOLETE context_offset = scnhdr.s_scnptr; */
-/* OBSOLETE else if ((scnhdr.s_flags & S_TYPMASK) == S_TCONTEXT) */
-/* OBSOLETE tcontext_offset[n_threads++] = scnhdr.s_scnptr; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Read the context block, struct user, struct proc, */
-/* OBSOLETE and the comm regs. *x/ */
-/* OBSOLETE */
-/* OBSOLETE lseek (corechan, context_offset, 0); */
-/* OBSOLETE if (myread (corechan, &c, sizeof c) < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE lseek (corechan, c.core_user_p, 0); */
-/* OBSOLETE if (myread (corechan, &u, sizeof u) < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE lseek (corechan, c.core_proc_p, 0); */
-/* OBSOLETE if (myread (corechan, &pr, sizeof pr) < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE comm_registers = pr.p_creg; */
-/* OBSOLETE */
-/* OBSOLETE /* Core file apparently is really there. Make it really exist */
-/* OBSOLETE for xfer_core_file so we can do read_memory on it. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (filename[0] == '/') */
-/* OBSOLETE corefile = savestring (filename, strlen (filename)); */
-/* OBSOLETE else */
-/* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */
-/* OBSOLETE */
-/* OBSOLETE printf_filtered ("Program %s ", u.u_comm); */
-/* OBSOLETE */
-/* OBSOLETE /* Read the thread registers and fill in the thread_xxx[] data. *x/ */
-/* OBSOLETE */
-/* OBSOLETE for (n = 0; n < n_threads; n++) */
-/* OBSOLETE { */
-/* OBSOLETE select_thread (n); */
-/* OBSOLETE */
-/* OBSOLETE lseek (corechan, tcontext_offset[n], 0); */
-/* OBSOLETE if (myread (corechan, &tc, sizeof tc) < 0) */
-/* OBSOLETE perror_with_name (corefile); */
-/* OBSOLETE lseek (corechan, tc.core_thread_p, 0); */
-/* OBSOLETE if (myread (corechan, &th, sizeof th) < 0) */
-/* OBSOLETE perror_with_name (corefile); */
-/* OBSOLETE */
-/* OBSOLETE lseek (corechan, tc.core_syscall_context_p, 0); */
-/* OBSOLETE if (myread (corechan, registers, REGISTER_BYTES) < 0) */
-/* OBSOLETE perror_with_name (corefile); */
-/* OBSOLETE */
-/* OBSOLETE thread_signal[n] = th.t_cursig; */
-/* OBSOLETE thread_sigcode[n] = th.t_code; */
-/* OBSOLETE thread_state[n] = th.t_state; */
-/* OBSOLETE thread_pc[n] = read_pc (); */
-/* OBSOLETE */
-/* OBSOLETE if (thread_pc[n] > STACK_END_ADDR) */
-/* OBSOLETE { */
-/* OBSOLETE POP_FRAME; */
-/* OBSOLETE if (is_break_pc (thread_pc[n])) */
-/* OBSOLETE thread_pc[n] = read_pc () - 2; */
-/* OBSOLETE else */
-/* OBSOLETE thread_pc[n] = read_pc (); */
-/* OBSOLETE write_register (PC_REGNUM, thread_pc[n]); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE printf_filtered ("thread %d received signal %d, %s\n", */
-/* OBSOLETE n, thread_signal[n], */
-/* OBSOLETE safe_strsignal (thread_signal[n])); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Select an interesting thread -- also-rans died with SIGKILL, */
-/* OBSOLETE so find one that didn't. *x/ */
-/* OBSOLETE */
-/* OBSOLETE for (n = 0; n < n_threads; n++) */
-/* OBSOLETE if (thread_signal[n] != 0 && thread_signal[n] != SIGKILL) */
-/* OBSOLETE { */
-/* OBSOLETE select_thread (n); */
-/* OBSOLETE stop_signal = thread_signal[n]; */
-/* OBSOLETE stop_sigcode = thread_sigcode[n]; */
-/* OBSOLETE break; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE core_aouthdr.a_magic = 0; */
-/* OBSOLETE */
-/* OBSOLETE flush_cached_frames (); */
-/* OBSOLETE select_frame (get_current_frame (), 0); */
-/* OBSOLETE validate_files (); */
-/* OBSOLETE */
-/* OBSOLETE print_stack_frame (selected_frame, selected_frame_level, -1); */
-/* OBSOLETE } */
-/* OBSOLETE else if (from_tty) */
-/* OBSOLETE printf_filtered ("No core file now.\n"); */
-/* OBSOLETE } */
+++ /dev/null
-/* Pyramid target-dependent code for GDB.
- Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#include "defs.h"
-
-/*** Prettier register printing. ***/
-
-/* Print registers in the same format as pyramid's dbx, adb, sdb. */
-pyr_print_registers(reg_buf, regnum)
- long *reg_buf[];
-{
- register int regno;
- int usp, ksp;
- struct user u;
-
- for (regno = 0; regno < 16; regno++) {
- printf_unfiltered/*_filtered*/ ("%6.6s: %8x %6.6s: %8x %6s: %8x %6s: %8x\n",
- REGISTER_NAME (regno), reg_buf[regno],
- REGISTER_NAME (regno+16), reg_buf[regno+16],
- REGISTER_NAME (regno+32), reg_buf[regno+32],
- REGISTER_NAME (regno+48), reg_buf[regno+48]);
- }
- usp = ptrace (3, inferior_pid,
- (PTRACE_ARG3_TYPE) ((char *)&u.u_pcb.pcb_usp) -
- ((char *)&u), 0);
- ksp = ptrace (3, inferior_pid,
- (PTRACE_ARG3_TYPE) ((char *)&u.u_pcb.pcb_ksp) -
- ((char *)&u), 0);
- printf_unfiltered/*_filtered*/ ("\n%6.6s: %8x %6.6s: %8x (%08x) %6.6s %8x\n",
- REGISTER_NAME (CSP_REGNUM),reg_buf[CSP_REGNUM],
- REGISTER_NAME (KSP_REGNUM), reg_buf[KSP_REGNUM], ksp,
- "usp", usp);
-}
-
-/* Print the register regnum, or all registers if regnum is -1.
- fpregs is currently ignored. */
-
-pyr_do_registers_info (regnum, fpregs)
- int regnum;
- int fpregs;
-{
- /* On a pyr, we know a virtual register can always fit in an long.
- Here (and elsewhere) we take advantage of that. Yuk. */
- long raw_regs[MAX_REGISTER_RAW_SIZE*NUM_REGS];
- register int i;
-
- for (i = 0 ; i < 64 ; i++) {
- read_relative_register_raw_bytes(i, raw_regs+i);
- }
- if (regnum == -1)
- pyr_print_registers (raw_regs, regnum);
- else
- for (i = 0; i < NUM_REGS; i++)
- if (i == regnum) {
- long val = raw_regs[i];
-
- fputs_filtered (REGISTER_NAME (i), gdb_stdout);
- printf_filtered(":");
- print_spaces_filtered (6 - strlen (REGISTER_NAME (i)), gdb_stdout);
- if (val == 0)
- printf_filtered ("0");
- else
- printf_filtered ("%s %d", local_hex_string_custom(val,"08"), val);
- printf_filtered("\n");
- }
-}
-\f
-/*** Debugging editions of various macros from m-pyr.h ****/
-
-CORE_ADDR frame_locals_address (frame)
- struct frame_info *frame;
-{
- register int addr = find_saved_register (frame,CFP_REGNUM);
- register int result = read_memory_integer (addr, 4);
-#ifdef PYRAMID_CONTROL_FRAME_DEBUGGING
- fprintf_unfiltered (gdb_stderr,
- "\t[[..frame_locals:%8x, %s= %x @%x fcfp= %x foo= %x\n\t gr13=%x pr13=%x tr13=%x @%x]]\n",
- frame->frame,
- REGISTER_NAME (CFP_REGNUM),
- result, addr,
- frame->frame_cfp, (CFP_REGNUM),
-
-
- read_register(13), read_register(29), read_register(61),
- find_saved_register(frame, 61));
-#endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */
-
- /* FIXME: I thought read_register (CFP_REGNUM) should be the right answer;
- or at least CFP_REGNUM relative to FRAME (ie, result).
- There seems to be a bug in the way the innermost frame is set up. */
-
- return ((frame->next) ? result: frame->frame_cfp);
-}
-
-CORE_ADDR frame_args_addr (frame)
- struct frame_info *frame;
-{
- register int addr = find_saved_register (frame,CFP_REGNUM);
- register int result = read_memory_integer (addr, 4);
-
-#ifdef PYRAMID_CONTROL_FRAME_DEBUGGING
- fprintf_unfiltered (gdb_stderr,
- "\t[[..frame_args:%8x, %s= %x @%x fcfp= %x r_r= %x\n\t gr13=%x pr13=%x tr13=%x @%x]]\n",
- frame->frame,
- REGISTER_NAME (CFP_REGNUM),
- result, addr,
- frame->frame_cfp, read_register(CFP_REGNUM),
-
- read_register(13), read_register(29), read_register(61),
- find_saved_register(frame, 61));
-#endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */
-
- /* FIXME: I thought read_register (CFP_REGNUM) should be the right answer;
- or at least CFP_REGNUM relative to FRAME (ie, result).
- There seems to be a bug in the way the innermost frame is set up. */
- return ((frame->next) ? result: frame->frame_cfp);
-}
-
-#include "symtab.h"
-#include "opcode/pyr.h"
-#include "gdbcore.h"
-
-\f
-/* A couple of functions used for debugging frame-handling on
- Pyramids. (The Pyramid-dependent handling of register values for
- windowed registers is known to be buggy.)
-
- When debugging, these functions can supplant the normal definitions of some
- of the macros in tm-pyramid.h The quantity of information produced
- when these functions are used makes the gdb unusable as a
- debugger for user programs. */
-
-extern unsigned pyr_saved_pc(), pyr_frame_chain();
-
-CORE_ADDR pyr_frame_chain(frame)
- CORE_ADDR frame;
-{
- int foo=frame - CONTROL_STACK_FRAME_SIZE;
- /* printf_unfiltered ("...following chain from %x: got %x\n", frame, foo);*/
- return foo;
-}
-
-CORE_ADDR pyr_saved_pc(frame)
- CORE_ADDR frame;
-{
- int foo=0;
- foo = read_memory_integer (((CORE_ADDR)(frame))+60, 4);
- printf_unfiltered ("..reading pc from frame 0x%0x+%d regs: got %0x\n",
- frame, 60/4, foo);
- return foo;
-}
-
-/* Pyramid instructions are never longer than this many bytes. */
-#define MAXLEN 24
-
-/* Number of elements in the opcode table. */
-/*const*/ static int nopcodes = (sizeof (pyr_opcodes) / sizeof( pyr_opcodes[0]));
-#define NOPCODES (nopcodes)
-
-/* Let's be byte-independent so we can use this as a cross-assembler. */
-
-#define NEXTLONG(p) \
- (p += 4, (((((p[-4] << 8) + p[-3]) << 8) + p[-2]) << 8) + p[-1])
-\f
-/* Print one instruction at address MEMADDR in debugged memory,
- on STREAM. Returns length of the instruction, in bytes. */
-
-int
-pyr_print_insn (memaddr, stream)
- CORE_ADDR memaddr;
- GDB_FILE *stream;
-{
- unsigned char buffer[MAXLEN];
- register int i, nargs, insn_size =4;
- register unsigned char *p;
- register char *d;
- register int insn_opcode, operand_mode;
- register int index_multiplier, index_reg_regno, op_1_regno, op_2_regno ;
- long insn; /* first word of the insn, not broken down. */
- pyr_insn_format insn_decode; /* the same, broken out into op{code,erands} */
- long extra_1, extra_2;
-
- read_memory (memaddr, buffer, MAXLEN);
- insn_decode = *((pyr_insn_format *) buffer);
- insn = * ((int *) buffer);
- insn_opcode = insn_decode.operator;
- operand_mode = insn_decode.mode;
- index_multiplier = insn_decode.index_scale;
- index_reg_regno = insn_decode.index_reg;
- op_1_regno = insn_decode.operand_1;
- op_2_regno = insn_decode.operand_2;
-
-
- if (*((int *)buffer) == 0x0) {
- /* "halt" looks just like an invalid "jump" to the insn decoder,
- so is dealt with as a special case */
- fprintf_unfiltered (stream, "halt");
- return (4);
- }
-
- for (i = 0; i < NOPCODES; i++)
- if (pyr_opcodes[i].datum.code == insn_opcode)
- break;
-
- if (i == NOPCODES)
- /* FIXME: Handle unrecognised instructions better. */
- fprintf_unfiltered (stream, "???\t#%08x\t(op=%x mode =%x)",
- insn, insn_decode.operator, insn_decode.mode);
- else
- {
- /* Print the mnemonic for the instruction. Pyramid insn operands
- are so regular that we can deal with almost all of them
- separately.
- Unconditional branches are an exception: they are encoded as
- conditional branches (branch if false condition, I think)
- with no condition specified. The average user will not be
- aware of this. To maintain their illusion that an
- unconditional branch insn exists, we will have to FIXME to
- treat the insn mnemnonic of all branch instructions here as a
- special case: check the operands of branch insn and print an
- appropriate mnemonic. */
-
- fprintf_unfiltered (stream, "%s\t", pyr_opcodes[i].name);
-
- /* Print the operands of the insn (as specified in
- insn.operand_mode).
- Branch operands of branches are a special case: they are a word
- offset, not a byte offset. */
-
- if (insn_decode.operator == 0x01 || insn_decode.operator == 0x02) {
- register int bit_codes=(insn >> 16)&0xf;
- register int i;
- register int displacement = (insn & 0x0000ffff) << 2;
-
- static char cc_bit_names[] = "cvzn"; /* z,n,c,v: strange order? */
-
- /* Is bfc and no bits specified an unconditional branch?*/
- for (i=0;i<4;i++) {
- if ((bit_codes) & 0x1)
- fputc_unfiltered (cc_bit_names[i], stream);
- bit_codes >>= 1;
- }
-
- fprintf_unfiltered (stream, ",%0x",
- displacement + memaddr);
- return (insn_size);
- }
-
- switch (operand_mode) {
- case 0:
- fprintf_unfiltered (stream, "%s,%s",
- REGISTER_NAME (op_1_regno),
- REGISTER_NAME (op_2_regno));
- break;
-
- case 1:
- fprintf_unfiltered (stream, " 0x%0x,%s",
- op_1_regno,
- REGISTER_NAME (op_2_regno));
- break;
-
- case 2:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- fprintf_unfiltered (stream, " $0x%0x,%s",
- extra_1,
- REGISTER_NAME (op_2_regno));
- break;
- case 3:
- fprintf_unfiltered (stream, " (%s),%s",
- REGISTER_NAME (op_1_regno),
- REGISTER_NAME (op_2_regno));
- break;
-
- case 4:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- fprintf_unfiltered (stream, " 0x%0x(%s),%s",
- extra_1,
- REGISTER_NAME (op_1_regno),
- REGISTER_NAME (op_2_regno));
- break;
-
- /* S1 destination mode */
- case 5:
- fprintf_unfiltered (stream,
- ((index_reg_regno) ? "%s,(%s)[%s*%1d]" : "%s,(%s)"),
- REGISTER_NAME (op_1_regno),
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
-
- case 6:
- fprintf_unfiltered (stream,
- ((index_reg_regno) ? " $%#0x,(%s)[%s*%1d]"
- : " $%#0x,(%s)"),
- op_1_regno,
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
-
- case 7:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- fprintf_unfiltered (stream,
- ((index_reg_regno) ? " $%#0x,(%s)[%s*%1d]"
- : " $%#0x,(%s)"),
- extra_1,
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
-
- case 8:
- fprintf_unfiltered (stream,
- ((index_reg_regno) ? " (%s),(%s)[%s*%1d]" : " (%s),(%s)"),
- REGISTER_NAME (op_1_regno),
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
-
- case 9:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- fprintf_unfiltered (stream,
- ((index_reg_regno)
- ? "%#0x(%s),(%s)[%s*%1d]"
- : "%#0x(%s),(%s)"),
- extra_1,
- REGISTER_NAME (op_1_regno),
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
-
- /* S2 destination mode */
- case 10:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- fprintf_unfiltered (stream,
- ((index_reg_regno) ? "%s,%#0x(%s)[%s*%1d]" : "%s,%#0x(%s)"),
- REGISTER_NAME (op_1_regno),
- extra_1,
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
- case 11:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- fprintf_unfiltered (stream,
- ((index_reg_regno) ?
- " $%#0x,%#0x(%s)[%s*%1d]" : " $%#0x,%#0x(%s)"),
- op_1_regno,
- extra_1,
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
- case 12:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- read_memory (memaddr+8, buffer, MAXLEN);
- insn_size += 4;
- extra_2 = * ((int *) buffer);
- fprintf_unfiltered (stream,
- ((index_reg_regno) ?
- " $%#0x,%#0x(%s)[%s*%1d]" : " $%#0x,%#0x(%s)"),
- extra_1,
- extra_2,
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
-
- case 13:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- fprintf_unfiltered (stream,
- ((index_reg_regno)
- ? " (%s),%#0x(%s)[%s*%1d]"
- : " (%s),%#0x(%s)"),
- REGISTER_NAME (op_1_regno),
- extra_1,
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
- case 14:
- read_memory (memaddr+4, buffer, MAXLEN);
- insn_size += 4;
- extra_1 = * ((int *) buffer);
- read_memory (memaddr+8, buffer, MAXLEN);
- insn_size += 4;
- extra_2 = * ((int *) buffer);
- fprintf_unfiltered (stream,
- ((index_reg_regno) ? "%#0x(%s),%#0x(%s)[%s*%1d]"
- : "%#0x(%s),%#0x(%s) "),
- extra_1,
- REGISTER_NAME (op_1_regno),
- extra_2,
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- break;
-
- default:
- fprintf_unfiltered (stream,
- ((index_reg_regno) ? "%s,%s [%s*%1d]" : "%s,%s"),
- REGISTER_NAME (op_1_regno),
- REGISTER_NAME (op_2_regno),
- REGISTER_NAME (index_reg_regno),
- index_multiplier);
- fprintf_unfiltered (stream,
- "\t\t# unknown mode in %08x",
- insn);
- break;
- } /* switch */
- }
-
- {
- return insn_size;
- }
- abort ();
-}
+++ /dev/null
-/* OBSOLETE /* Low level Pyramid interface to ptrace, for GDB when running under Unix. */
-/* OBSOLETE Copyright (C) 1988, 1989, 1991 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, Boston, MA 02111-1307, USA. *x/ */
-/* OBSOLETE */
-/* OBSOLETE #include "defs.h" */
-/* OBSOLETE #include "frame.h" */
-/* OBSOLETE #include "inferior.h" */
-/* OBSOLETE */
-/* OBSOLETE #include <sys/param.h> */
-/* OBSOLETE #include <sys/dir.h> */
-/* OBSOLETE #include <signal.h> */
-/* OBSOLETE #include <sys/ioctl.h> */
-/* OBSOLETE /* #include <fcntl.h> Can we live without this? *x/ */
-/* OBSOLETE */
-/* OBSOLETE #include "gdbcore.h" */
-/* OBSOLETE #include <sys/user.h> /* After a.out.h *x/ */
-/* OBSOLETE #include <sys/file.h> */
-/* OBSOLETE #include "gdb_stat.h" */
-/* OBSOLETE */
-/* OBSOLETE \f */
-/* OBSOLETE void */
-/* OBSOLETE fetch_inferior_registers (regno) */
-/* OBSOLETE int regno; */
-/* OBSOLETE { */
-/* OBSOLETE register int datum; */
-/* OBSOLETE register unsigned int regaddr; */
-/* OBSOLETE int reg_buf[NUM_REGS+1]; */
-/* OBSOLETE struct user u; */
-/* OBSOLETE register int skipped_frames = 0; */
-/* OBSOLETE */
-/* OBSOLETE registers_fetched (); */
-/* OBSOLETE */
-/* OBSOLETE for (regno = 0; regno < 64; regno++) { */
-/* OBSOLETE reg_buf[regno] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) regno, 0); */
-/* OBSOLETE */
-/* OBSOLETE #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
-/* OBSOLETE printf_unfiltered ("Fetching register %s, got %0x\n", */
-/* OBSOLETE REGISTER_NAME (regno), */
-/* OBSOLETE reg_buf[regno]); */
-/* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (reg_buf[regno] == -1 && errno == EIO) { */
-/* OBSOLETE printf_unfiltered("fetch_interior_registers: fetching register %s\n", */
-/* OBSOLETE REGISTER_NAME (regno)); */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE } */
-/* OBSOLETE supply_register (regno, reg_buf+regno); */
-/* OBSOLETE } */
-/* OBSOLETE /* that leaves regs 64, 65, and 66 *x/ */
-/* OBSOLETE datum = ptrace (3, inferior_pid, */
-/* OBSOLETE (PTRACE_ARG3_TYPE) (((char *)&u.u_pcb.pcb_csp) - */
-/* OBSOLETE ((char *)&u)), 0); */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE /* FIXME: Find the Current Frame Pointer (CFP). CFP is a global */
-/* OBSOLETE register (ie, NOT windowed), that gets saved in a frame iff */
-/* OBSOLETE the code for that frame has a prologue (ie, "adsf N"). If */
-/* OBSOLETE there is a prologue, the adsf insn saves the old cfp in */
-/* OBSOLETE pr13, cfp is set to sp, and N bytes of locals are allocated */
-/* OBSOLETE (sp is decremented by n). */
-/* OBSOLETE This makes finding CFP hard. I guess the right way to do it */
-/* OBSOLETE is: */
-/* OBSOLETE - If this is the innermost frame, believe ptrace() or */
-/* OBSOLETE the core area. */
-/* OBSOLETE - Otherwise: */
-/* OBSOLETE Find the first insn of the current frame. */
-/* OBSOLETE - find the saved pc; */
-/* OBSOLETE - find the call insn that saved it; */
-/* OBSOLETE - figure out where the call is to; */
-/* OBSOLETE - if the first insn is an adsf, we got a frame */
-/* OBSOLETE pointer. *x/ */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE /* Normal processors have separate stack pointers for user and */
-/* OBSOLETE kernel mode. Getting the last user mode frame on such */
-/* OBSOLETE machines is easy: the kernel context of the ptrace()'d */
-/* OBSOLETE process is on the kernel stack, and the USP points to what */
-/* OBSOLETE we want. But Pyramids only have a single cfp for both user and */
-/* OBSOLETE kernel mode. And processes being ptrace()'d have some */
-/* OBSOLETE kernel-context control frames on their stack. */
-/* OBSOLETE To avoid tracing back into the kernel context of an inferior, */
-/* OBSOLETE we skip 0 or more contiguous control frames where the pc is */
-/* OBSOLETE in the kernel. *x/ */
-/* OBSOLETE */
-/* OBSOLETE while (1) { */
-/* OBSOLETE register int inferior_saved_pc; */
-/* OBSOLETE inferior_saved_pc = ptrace (1, inferior_pid, */
-/* OBSOLETE (PTRACE_ARG3_TYPE) (datum+((32+15)*4)), 0); */
-/* OBSOLETE if (inferior_saved_pc > 0) break; */
-/* OBSOLETE #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
-/* OBSOLETE printf_unfiltered("skipping kernel frame %08x, pc=%08x\n", datum, */
-/* OBSOLETE inferior_saved_pc); */
-/* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
-/* OBSOLETE skipped_frames++; */
-/* OBSOLETE datum -= CONTROL_STACK_FRAME_SIZE; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE reg_buf[CSP_REGNUM] = datum; */
-/* OBSOLETE supply_register(CSP_REGNUM, reg_buf+CSP_REGNUM); */
-/* OBSOLETE #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING */
-/* OBSOLETE if (skipped_frames) { */
-/* OBSOLETE fprintf_unfiltered (gdb_stderr, */
-/* OBSOLETE "skipped %d frames from %x to %x; cfp was %x, now %x\n", */
-/* OBSOLETE skipped_frames, reg_buf[CSP_REGNUM]); */
-/* OBSOLETE } */
-/* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* Store our register values back into the inferior. */
-/* OBSOLETE If REGNO is -1, do this for all registers. */
-/* OBSOLETE Otherwise, REGNO specifies which register (so we can save time). *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE store_inferior_registers (regno) */
-/* OBSOLETE int regno; */
-/* OBSOLETE { */
-/* OBSOLETE register unsigned int regaddr; */
-/* OBSOLETE char buf[80]; */
-/* OBSOLETE */
-/* OBSOLETE if (regno >= 0) */
-/* OBSOLETE { */
-/* OBSOLETE if ((0 <= regno) && (regno < 64)) { */
-/* OBSOLETE /*regaddr = register_addr (regno, offset);*x/ */
-/* OBSOLETE regaddr = regno; */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */
-/* OBSOLETE read_register (regno)); */
-/* OBSOLETE if (errno != 0) */
-/* OBSOLETE { */
-/* OBSOLETE sprintf (buf, "writing register number %d", regno); */
-/* OBSOLETE perror_with_name (buf); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE for (regno = 0; regno < NUM_REGS; regno++) */
-/* OBSOLETE { */
-/* OBSOLETE /*regaddr = register_addr (regno, offset);*x/ */
-/* OBSOLETE regaddr = regno; */
-/* OBSOLETE errno = 0; */
-/* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */
-/* OBSOLETE read_register (regno)); */
-/* OBSOLETE if (errno != 0) */
-/* OBSOLETE { */
-/* OBSOLETE sprintf (buf, "writing all regs, number %d", regno); */
-/* OBSOLETE perror_with_name (buf); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE \f */
-/* OBSOLETE /*** Extensions to core and dump files, for GDB. *x/ */
-/* OBSOLETE */
-/* OBSOLETE extern unsigned int last_frame_offset; */
-/* OBSOLETE */
-/* OBSOLETE #ifdef PYRAMID_CORE */
-/* OBSOLETE */
-/* OBSOLETE /* Can't make definitions here static, since corefile.c needs them */
-/* OBSOLETE to do bounds checking on the core-file areas. O well. *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* have two stacks: one for data, one for register windows. *x/ */
-/* OBSOLETE extern CORE_ADDR reg_stack_start; */
-/* OBSOLETE extern CORE_ADDR reg_stack_end; */
-/* OBSOLETE */
-/* OBSOLETE /* need this so we can find the global registers: they never get saved. *x/ */
-/* OBSOLETE CORE_ADDR global_reg_offset; */
-/* OBSOLETE static CORE_ADDR last_frame_address; */
-/* OBSOLETE CORE_ADDR last_frame_offset; */
-/* OBSOLETE */
-/* OBSOLETE */
-/* OBSOLETE /* Address in core file of start of register window stack area. */
-/* OBSOLETE Don't know if is this any of meaningful, useful or necessary. *x/ */
-/* OBSOLETE extern int reg_stack_offset; */
-/* OBSOLETE */
-/* OBSOLETE #endif /* PYRAMID_CORE *x/ */
-/* OBSOLETE */
-/* OBSOLETE \f */
-/* OBSOLETE /* Work with core dump and executable files, for GDB. */
-/* OBSOLETE This code would be in corefile.c if it weren't machine-dependent. *x/ */
-/* OBSOLETE */
-/* OBSOLETE void */
-/* OBSOLETE core_file_command (filename, from_tty) */
-/* OBSOLETE char *filename; */
-/* OBSOLETE int from_tty; */
-/* OBSOLETE { */
-/* OBSOLETE int val; */
-/* OBSOLETE */
-/* OBSOLETE /* Discard all vestiges of any previous core file */
-/* OBSOLETE and mark data and stack spaces as empty. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (corefile) */
-/* OBSOLETE xfree (corefile); */
-/* OBSOLETE corefile = 0; */
-/* OBSOLETE */
-/* OBSOLETE if (corechan >= 0) */
-/* OBSOLETE close (corechan); */
-/* OBSOLETE corechan = -1; */
-/* OBSOLETE */
-/* OBSOLETE data_start = 0; */
-/* OBSOLETE data_end = 0; */
-/* OBSOLETE stack_start = STACK_END_ADDR; */
-/* OBSOLETE stack_end = STACK_END_ADDR; */
-/* OBSOLETE */
-/* OBSOLETE #ifdef PYRAMID_CORE */
-/* OBSOLETE reg_stack_start = CONTROL_STACK_ADDR; */
-/* OBSOLETE reg_stack_end = CONTROL_STACK_ADDR; /* this isn't strictly true...*x/ */
-/* OBSOLETE #endif /* PYRAMID_CORE *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Now, if a new core file was specified, open it and digest it. *x/ */
-/* OBSOLETE */
-/* OBSOLETE if (filename) */
-/* OBSOLETE { */
-/* OBSOLETE filename = tilde_expand (filename); */
-/* OBSOLETE make_cleanup (xfree, filename); */
-/* OBSOLETE */
-/* OBSOLETE if (have_inferior_p ()) */
-/* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */
-/* OBSOLETE corechan = open (filename, O_RDONLY, 0); */
-/* OBSOLETE if (corechan < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE /* 4.2-style (and perhaps also sysV-style) core dump file. *x/ */
-/* OBSOLETE { */
-/* OBSOLETE struct user u; */
-/* OBSOLETE */
-/* OBSOLETE unsigned int reg_offset; */
-/* OBSOLETE */
-/* OBSOLETE val = myread (corechan, &u, sizeof u); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name ("Not a core file: reading upage"); */
-/* OBSOLETE if (val != sizeof u) */
-/* OBSOLETE error ("Not a core file: could only read %d bytes", val); */
-/* OBSOLETE data_start = exec_data_start; */
-/* OBSOLETE */
-/* OBSOLETE data_end = data_start + NBPG * u.u_dsize; */
-/* OBSOLETE data_offset = NBPG * UPAGES; */
-/* OBSOLETE stack_offset = NBPG * (UPAGES + u.u_dsize); */
-/* OBSOLETE */
-/* OBSOLETE /* find registers in core file *x/ */
-/* OBSOLETE #ifdef PYRAMID_PTRACE */
-/* OBSOLETE stack_start = stack_end - NBPG * u.u_ussize; */
-/* OBSOLETE reg_stack_offset = stack_offset + (NBPG *u.u_ussize); */
-/* OBSOLETE reg_stack_end = reg_stack_start + NBPG * u.u_cssize; */
-/* OBSOLETE */
-/* OBSOLETE last_frame_address = ((int) u.u_pcb.pcb_csp); */
-/* OBSOLETE last_frame_offset = reg_stack_offset + last_frame_address */
-/* OBSOLETE - CONTROL_STACK_ADDR ; */
-/* OBSOLETE global_reg_offset = (char *)&u - (char *)&u.u_pcb.pcb_gr0 ; */
-/* OBSOLETE */
-/* OBSOLETE /* skip any control-stack frames that were executed in the */
-/* OBSOLETE kernel. *x/ */
-/* OBSOLETE */
-/* OBSOLETE while (1) { */
-/* OBSOLETE char buf[4]; */
-/* OBSOLETE val = lseek (corechan, last_frame_offset+(47*4), 0); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE val = myread (corechan, buf, sizeof buf); */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE */
-/* OBSOLETE if (*(int *)buf >= 0) */
-/* OBSOLETE break; */
-/* OBSOLETE printf_unfiltered ("skipping frame %s\n", local_hex_string (last_frame_address)); */
-/* OBSOLETE last_frame_offset -= CONTROL_STACK_FRAME_SIZE; */
-/* OBSOLETE last_frame_address -= CONTROL_STACK_FRAME_SIZE; */
-/* OBSOLETE } */
-/* OBSOLETE reg_offset = last_frame_offset; */
-/* OBSOLETE */
-/* OBSOLETE #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
-/* OBSOLETE printf_unfiltered ("Control stack pointer = %s\n", */
-/* OBSOLETE local_hex_string (u.u_pcb.pcb_csp)); */
-/* OBSOLETE printf_unfiltered ("offset to control stack %d outermost frame %d (%s)\n", */
-/* OBSOLETE reg_stack_offset, reg_offset, local_hex_string (last_frame_address)); */
-/* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
-/* OBSOLETE */
-/* OBSOLETE #else /* not PYRAMID_CORE *x/ */
-/* OBSOLETE stack_start = stack_end - NBPG * u.u_ssize; */
-/* OBSOLETE reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR; */
-/* OBSOLETE #endif /* not PYRAMID_CORE *x/ */
-/* OBSOLETE */
-/* OBSOLETE #ifdef __not_on_pyr_yet */
-/* OBSOLETE /* Some machines put an absolute address in here and some put */
-/* OBSOLETE the offset in the upage of the regs. *x/ */
-/* OBSOLETE reg_offset = (int) u.u_ar0; */
-/* OBSOLETE if (reg_offset > NBPG * UPAGES) */
-/* OBSOLETE reg_offset -= KERNEL_U_ADDR; */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE /* I don't know where to find this info. */
-/* OBSOLETE So, for now, mark it as not available. *x/ */
-/* OBSOLETE N_SET_MAGIC (core_aouthdr, 0); */
-/* OBSOLETE */
-/* OBSOLETE /* Read the register values out of the core file and store */
-/* OBSOLETE them where `read_register' will find them. *x/ */
-/* OBSOLETE */
-/* OBSOLETE { */
-/* OBSOLETE register int regno; */
-/* OBSOLETE */
-/* OBSOLETE for (regno = 0; regno < 64; regno++) */
-/* OBSOLETE { */
-/* OBSOLETE char buf[MAX_REGISTER_RAW_SIZE]; */
-/* OBSOLETE */
-/* OBSOLETE val = lseek (corechan, register_addr (regno, reg_offset), 0); */
-/* OBSOLETE if (val < 0 */
-/* OBSOLETE || (val = myread (corechan, buf, sizeof buf)) < 0) */
-/* OBSOLETE { */
-/* OBSOLETE char * buffer = (char *) alloca (strlen (REGISTER_NAME (regno)) */
-/* OBSOLETE + 30); */
-/* OBSOLETE strcpy (buffer, "Reading register "); */
-/* OBSOLETE strcat (buffer, REGISTER_NAME (regno)); */
-/* OBSOLETE */
-/* OBSOLETE perror_with_name (buffer); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE if (val < 0) */
-/* OBSOLETE perror_with_name (filename); */
-/* OBSOLETE #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING */
-/* OBSOLETE printf_unfiltered ("[reg %s(%d), offset in file %s=0x%0x, addr =0x%0x, =%0x]\n", */
-/* OBSOLETE REGISTER_NAME (regno), regno, filename, */
-/* OBSOLETE register_addr(regno, reg_offset), */
-/* OBSOLETE regno * 4 + last_frame_address, */
-/* OBSOLETE *((int *)buf)); */
-/* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
-/* OBSOLETE supply_register (regno, buf); */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE } */
-/* OBSOLETE if (filename[0] == '/') */
-/* OBSOLETE corefile = savestring (filename, strlen (filename)); */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
-/* OBSOLETE printf_unfiltered ("Providing CSP (%s) as nominal address of current frame.\n", */
-/* OBSOLETE local_hex_string(last_frame_address)); */
-/* OBSOLETE #endif PYRAMID_CONTROL_FRAME_DEBUGGING */
-/* OBSOLETE /* FIXME: Which of the following is correct? *x/ */
-/* OBSOLETE #if 0 */
-/* OBSOLETE set_current_frame ( create_new_frame (read_register (FP_REGNUM), */
-/* OBSOLETE read_pc ())); */
-/* OBSOLETE #else */
-/* OBSOLETE set_current_frame ( create_new_frame (last_frame_address, */
-/* OBSOLETE read_pc ())); */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE select_frame (get_current_frame (), 0); */
-/* OBSOLETE validate_files (); */
-/* OBSOLETE } */
-/* OBSOLETE else if (from_tty) */
-/* OBSOLETE printf_unfiltered ("No core file now.\n"); */
-/* OBSOLETE } */
+++ /dev/null
-/* Print instructions for Tahoe target machines, for GDB.
- Copyright 1986, 1989, 1991, 1992 Free Software Foundation, Inc.
- Contributed by the State University of New York at Buffalo, by the
- Distributed Computer Systems Lab, Department of Computer Science, 1991.
-
-This file is part of GDB.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#include "defs.h"
-#include "symtab.h"
-#include "opcode/tahoe.h"
-
-/* Tahoe instructions are never longer than this. */
-#define MAXLEN 62
-
-/* Number of elements in the opcode table. */
-#define NOPCODES (sizeof votstrs / sizeof votstrs[0])
-
-static unsigned char *print_insn_arg ();
-
-/* Print the Tahoe instruction at address MEMADDR in debugged memory,
- on STREAM. Returns length of the instruction, in bytes. */
-
-int
-tahoe_print_insn (memaddr, stream)
- CORE_ADDR memaddr;
- GDB_FILE *stream;
-{
- unsigned char buffer[MAXLEN];
- register int i;
- register unsigned char *p;
- register char *d;
-
- read_memory (memaddr, buffer, MAXLEN);
-
- for (i = 0; i < NOPCODES; i++)
- if (votstrs[i].detail.code == buffer[0]
- || votstrs[i].detail.code == *(unsigned short *)buffer)
- break;
-
- /* Handle undefined instructions. */
- if (i == NOPCODES)
- {
- fprintf_unfiltered (stream, "0%o", buffer[0]);
- return 1;
- }
-
- fprintf_unfiltered (stream, "%s", votstrs[i].name);
-
- /* Point at first byte of argument data,
- and at descriptor for first argument. */
- p = buffer + 1 + (votstrs[i].detail.code >= 0x100);
- d = votstrs[i].detail.args;
-
- if (*d)
- fputc_unfiltered ('\t', stream);
-
- while (*d)
- {
- p = print_insn_arg (d, p, memaddr + (p - buffer), stream);
- d += 2;
- if (*d)
- fprintf_unfiltered (stream, ",");
- }
- return p - buffer;
-}
-/*******************************************************************/
-static unsigned char *
-print_insn_arg (d, p, addr, stream)
- char *d;
- register char *p;
- CORE_ADDR addr;
- GDB_FILE *stream;
-{
- int temp1 = 0;
- register int regnum = *p & 0xf;
- float floatlitbuf;
-
- if (*d == 'b')
- {
- if (d[1] == 'b')
- fprintf_unfiltered (stream, "0x%x", addr + *p++ + 1);
- else
- {
-
- temp1 = *p;
- temp1 <<= 8;
- temp1 |= *(p + 1);
- fprintf_unfiltered (stream, "0x%x", addr + temp1 + 2);
- p += 2;
- }
- }
- else
- switch ((*p++ >> 4) & 0xf)
- {
- case 0:
- case 1:
- case 2:
- case 3: /* Literal (short immediate byte) mode */
- if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h')
- {
- *(int *)&floatlitbuf = 0x4000 + ((p[-1] & 0x3f) << 4);
- fprintf_unfiltered (stream, "$%f", floatlitbuf);
- }
- else
- fprintf_unfiltered (stream, "$%d", p[-1] & 0x3f);
- break;
-
- case 4: /* Indexed */
- p = (char *) print_insn_arg (d, p, addr + 1, stream);
- fprintf_unfiltered (stream, "[%s]", REGISTER_NAME (regnum));
- break;
-
- case 5: /* Register */
- fprintf_unfiltered (stream, REGISTER_NAME (regnum));
- break;
-
- case 7: /* Autodecrement */
- fputc_unfiltered ('-', stream);
- case 6: /* Register deferred */
- fprintf_unfiltered (stream, "(%s)", REGISTER_NAME (regnum));
- break;
-
- case 9: /* Absolute Address & Autoincrement deferred */
- fputc_unfiltered ('*', stream);
- if (regnum == PC_REGNUM)
- {
- temp1 = *p;
- temp1 <<= 8;
- temp1 |= *(p +1);
-
- fputc_unfiltered ('$', stream);
- print_address (temp1, stream);
- p += 4;
- break;
- }
- case 8: /*Immediate & Autoincrement SP */
- if (regnum == 8) /*88 is Immediate Byte Mode*/
- fprintf_unfiltered (stream, "$%d", *p++);
-
- else if (regnum == 9) /*89 is Immediate Word Mode*/
- {
- temp1 = *p;
- temp1 <<= 8;
- temp1 |= *(p +1);
- fprintf_unfiltered (stream, "$%d", temp1);
- p += 2;
- }
-
- else if (regnum == PC_REGNUM) /*8F is Immediate Long Mode*/
- {
- temp1 = *p;
- temp1 <<=8;
- temp1 |= *(p +1);
- temp1 <<=8;
- temp1 |= *(p +2);
- temp1 <<= 8;
- temp1 |= *(p +3);
- fprintf_unfiltered (stream, "$%d", temp1);
- p += 4;
- }
-
- else /*8E is Autoincrement SP Mode*/
- fprintf_unfiltered (stream, "(%s)+", REGISTER_NAME (regnum));
- break;
-
- case 11: /* Register + Byte Displacement Deferred Mode*/
- fputc_unfiltered ('*', stream);
- case 10: /* Register + Byte Displacement Mode*/
- if (regnum == PC_REGNUM)
- print_address (addr + *p + 2, stream);
- else
- fprintf_unfiltered (stream, "%d(%s)", *p, REGISTER_NAME (regnum));
- p += 1;
- break;
-
- case 13: /* Register + Word Displacement Deferred Mode*/
- fputc_unfiltered ('*', stream);
- case 12: /* Register + Word Displacement Mode*/
- temp1 = *p;
- temp1 <<= 8;
- temp1 |= *(p +1);
- if (regnum == PC_REGNUM)
- print_address (addr + temp1 + 3, stream);
- else
- fprintf_unfiltered (stream, "%d(%s)", temp1, REGISTER_NAME (regnum));
- p += 2;
- break;
-
- case 15: /* Register + Long Displacement Deferred Mode*/
- fputc_unfiltered ('*', stream);
- case 14: /* Register + Long Displacement Mode*/
- temp1 = *p;
- temp1 <<= 8;
- temp1 |= *(p +1);
- temp1 <<= 8;
- temp1 |= *(p +2);
- temp1 <<= 8;
- temp1 |= *(p +3);
- if (regnum == PC_REGNUM)
- print_address (addr + temp1 + 5, stream);
- else
- fprintf_unfiltered (stream, "%d(%s)", temp1, REGISTER_NAME (regnum));
- p += 4;
- }
-
- return (unsigned char *) p;
-}
-
-
-
-
-
-
-
-
-
-
-
-
-