diff options
| -rw-r--r-- | gdb/ChangeLog | 18 | ||||
| -rw-r--r-- | gdb/MAINTAINERS | 4 | ||||
| -rw-r--r-- | gdb/Makefile.in | 21 | ||||
| -rw-r--r-- | gdb/NEWS | 1 | ||||
| -rw-r--r-- | gdb/config/i960/mon960.mt | 11 | ||||
| -rw-r--r-- | gdb/config/i960/nindy960.mt | 6 | ||||
| -rw-r--r-- | gdb/config/i960/tm-i960.h | 690 | ||||
| -rw-r--r-- | gdb/config/i960/tm-mon960.h | 138 | ||||
| -rw-r--r-- | gdb/config/i960/tm-nindy960.h | 212 | ||||
| -rw-r--r-- | gdb/config/i960/tm-vx960.h | 104 | ||||
| -rw-r--r-- | gdb/config/i960/vxworks960.mt | 12 | ||||
| -rw-r--r-- | gdb/configure.tgt | 14 | ||||
| -rw-r--r-- | gdb/i960-tdep.c | 2112 | ||||
| -rw-r--r-- | gdb/remote-nindy.c | 1524 | ||||
| -rw-r--r-- | gdb/remote-nrom.c | 702 | ||||
| -rw-r--r-- | gdb/remote-vx960.c | 320 |
16 files changed, 2952 insertions, 2937 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index d2707b8..7ae79d1 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,21 @@ +2002-08-22 Andrew Cagney <cagney@redhat.com> + + * NEWS: Mention that the i960 has been made obsolete. + * Makefile.in (SFILES): Delete remote-nrom.c, remote-nindy.c and + i960-tdep.c + (remote-nrom.o): Obsolete target. + (remote-nindy.o, i960-tdep.o): Ditto. + * remote-nrom.c: Make file obsolete. + * remote-nindy.c, remote-vx960.c: Ditto. + * config/i960/vxworks960.mt, config/i960/nindy960.mt: Ditto. + * config/i960/mon960.mt, config/i960/tm-i960.h: Ditto. + * config/i960/tm-vx960.h, config/i960/tm-nindy960.h: Ditto. + * config/i960/tm-mon960.h, i960-tdep.c: Ditto. + * configure.tgt: Make i960-*-bout*, i960-nindy-coff*, + i960-*-coff*, i960-nindy-elf*, i960-*-elf*, i960-*-nindy* and + i960-*-vxworks* obsolete. + * MAINTAINERS: Note that the i960 is obsolete. + 2002-08-21 Corinna Vinschen <vinschen@redhat.com * aix-thread.c (aix_thread_detach): Disable thread debugging on diff --git a/gdb/MAINTAINERS b/gdb/MAINTAINERS index 7468d64..212007e 100644 --- a/gdb/MAINTAINERS +++ b/gdb/MAINTAINERS @@ -91,9 +91,7 @@ maintainer works with the native maintainer when resolving API issues. i386 --target=i386-elf ,-Werror Mark Kettenis kettenis@gnu.org - i960 --target=i960-coff ,-Werror - Maintenance only - OBSOLETE candidate, not multi-arch + i960 (--target=i960-coff OBSOLETE) ia64 --target=ia64-linux-gnu ,-Werror (--target=ia64-elf broken) diff --git a/gdb/Makefile.in b/gdb/Makefile.in index b00833e..756ffdf 100644 --- a/gdb/Makefile.in +++ b/gdb/Makefile.in @@ -542,7 +542,7 @@ SFILES = ada-exp.y ada-lang.c ada-typeprint.c ada-valprint.c ada-tasks.c \ memattr.c mem-break.c minsyms.c mipsread.c nlmread.c objfiles.c \ p-exp.y p-lang.c p-typeprint.c p-valprint.c parse.c \ macrotab.c macroexp.c macrocmd.c macroscope.c \ - printcmd.c remote.c remote-nrom.c scm-exp.c scm-lang.c \ + printcmd.c remote.c scm-exp.c scm-lang.c \ scm-valprint.c source.c stabsread.c stack.c symfile.c \ symmisc.c symtab.c linespec.c target.c thread.c top.c tracepoint.c \ typeprint.c utils.c valarith.c valops.c valprint.c values.c \ @@ -1359,7 +1359,6 @@ ALLDEPFILES = a68v-nat.c \ i387-tdep.c \ i386-linux-tdep.c i386-nat.c \ i386gnu-nat.c i386gnu-tdep.c \ - i960-tdep.c \ ia64-linux-nat.c ia64-linux-tdep.c ia64-tdep.c \ infptrace.c inftarg.c irix4-nat.c irix5-nat.c \ lynx-nat.c m3-nat.c \ @@ -1381,7 +1380,7 @@ ALLDEPFILES = a68v-nat.c \ procfs.c \ remote-array.c remote-e7000.c \ remote-es.c remote-hms.c remote-mips.c \ - remote-nindy.c remote-rdp.c remote-sim.c \ + remote-rdp.c remote-sim.c \ remote-st.c remote-utils.c dcache.c \ remote-vx.c \ rs6000-nat.c rs6000-tdep.c \ @@ -1794,8 +1793,8 @@ i386v4-nat.o: i386v4-nat.c $(defs_h) $(regcache_h) i387-tdep.o: i387-tdep.c $(floatformat_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) $(language_h) $(regcache_h) $(doublest_h) i386-tdep.h -i960-tdep.o: i960-tdep.c $(defs_h) $(symtab_h) $(value_h) $(frame_h) \ - $(floatformat_h) $(target_h) $(gdbcore_h) $(inferior_h) $(regcache_h) +# OBSOLETE i960-tdep.o: i960-tdep.c $(defs_h) $(symtab_h) $(value_h) $(frame_h) \ +# OBSOLETE $(floatformat_h) $(target_h) $(gdbcore_h) $(inferior_h) $(regcache_h) ia64-linux-nat.o: ia64-linux-nat.c $(defs_h) $(inferior_h) $(target_h) \ $(gdbcore_h) $(regcache_h) @@ -2101,10 +2100,10 @@ remote-mips.o: remote-mips.c $(defs_h) $(gdbcmd_h) \ $(gdbcore_h) $(inferior_h) $(serial_h) $(symfile_h) $(target_h) \ $(regcache_h) -remote-nindy.o: remote-nindy.c $(floatformat_h) $(command_h) \ - $(defs_h) $(gdbcore_h) $(inferior_h) \ - nindy-share/env.h nindy-share/stop.h $(remote_utils_h) \ - $(symfile_h) $(regcache_h) +# OBSOLETE remote-nindy.o: remote-nindy.c $(floatformat_h) $(command_h) \ +# OBSOLETE $(defs_h) $(gdbcore_h) $(inferior_h) \ +# OBSOLETE nindy-share/env.h nindy-share/stop.h $(remote_utils_h) \ +# OBSOLETE $(symfile_h) $(regcache_h) # OBSOLETE remote-os9k.o: remote-os9k.c $(defs_h) $(gdbcore_h) \ # OBSOLETE $(command_h) $(monitor_h) $(remote_utils_h) $(symtab_h) $(symfile_h) \ @@ -2145,8 +2144,8 @@ remote.o: remote.c $(bfd_h) $(gdb_wait_h) $(defs_h) $(gdbcmd_h) \ $(gdb_string_h) $(event_loop_h) $(event_top_h) $(remote_h) \ $(inf_loop_h) $(value_h) -remote-nrom.o: remote-nrom.c $(bfd_h) $(gdb_wait_h) $(defs_h) $(gdbcmd_h) \ - $(inferior_h) $(remote_utils_h) $(symfile_h) $(terminal_h) +# OBSOLETE remote-nrom.o: remote-nrom.c $(bfd_h) $(gdb_wait_h) $(defs_h) $(gdbcmd_h) \ +# OBSOLETE $(inferior_h) $(remote_utils_h) $(symfile_h) $(terminal_h) rom68k-rom.o: rom68k-rom.c $(monitor_h) $(bfd_h) $(gdb_wait_h) $(defs_h) \ $(gdbcmd_h) $(inferior_h) $(target_h) $(serial_h) $(terminal_h) \ @@ -67,6 +67,7 @@ i386 running OSF/1 i[3456]86-*osf1mk* HP/Apollo 68k Family m68*-apollo*-sysv*, m68*-apollo*-bsd*, m68*-hp-bsd*, m68*-hp-hpux* +I960 with MON960 i960-*-coff * OBSOLETE languages diff --git a/gdb/config/i960/mon960.mt b/gdb/config/i960/mon960.mt index 6cd7345..c735d94 100644 --- a/gdb/config/i960/mon960.mt +++ b/gdb/config/i960/mon960.mt @@ -1,6 +1,5 @@ -# Target: Intel 960 rom monitor -TDEPFILES= i960-tdep.o monitor.o mon960-rom.o ttyflush.o xmodem.o dsrec.o -TM_FILE= tm-mon960.h -SIM_OBS = remote-sim.o -SIM = ../sim/i960/libsim.a - +# OBSOLETE # Target: Intel 960 rom monitor +# OBSOLETE TDEPFILES= i960-tdep.o monitor.o mon960-rom.o ttyflush.o xmodem.o dsrec.o +# OBSOLETE TM_FILE= tm-mon960.h +# OBSOLETE SIM_OBS = remote-sim.o +# OBSOLETE SIM = ../sim/i960/libsim.a diff --git a/gdb/config/i960/nindy960.mt b/gdb/config/i960/nindy960.mt index f37c1da..5ed15a8 100644 --- a/gdb/config/i960/nindy960.mt +++ b/gdb/config/i960/nindy960.mt @@ -1,3 +1,3 @@ -# Target: Intel 80960, in an embedded system under the NINDY monitor -TDEPFILES= i960-tdep.o nindy-tdep.o remote-nindy.o nindy.o Onindy.o ttyflush.o -TM_FILE= tm-nindy960.h +# OBSOLETE # Target: Intel 80960, in an embedded system under the NINDY monitor +# OBSOLETE TDEPFILES= i960-tdep.o nindy-tdep.o remote-nindy.o nindy.o Onindy.o ttyflush.o +# OBSOLETE TM_FILE= tm-nindy960.h diff --git a/gdb/config/i960/tm-i960.h b/gdb/config/i960/tm-i960.h index a0ae164..91bdf91 100644 --- a/gdb/config/i960/tm-i960.h +++ b/gdb/config/i960/tm-i960.h @@ -1,345 +1,345 @@ -/* Parameters for target machine Intel 960, for GDB, the GNU debugger. - - Copyright 1990, 1991, 1993, 1994, 1996, 1998, 1999, 2000, 2002 Free - Software Foundation, Inc. - - Contributed by Intel Corporation. - 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. */ - -/* Definitions to target GDB to any i960. */ - -#ifndef I80960 -#define I80960 -#endif - -#include "doublest.h" - -/* Hook for the SYMBOL_CLASS of a parameter when decoding DBX symbol - information. In the i960, parameters can be stored as locals or as - args, depending on the type of the debug record. - - From empirical observation, gcc960 uses N_LSYM to indicate - arguments passed in registers and then copied immediately - to the frame, and N_PSYM to indicate arguments passed in a - g14-relative argument block. */ - -#define DBX_PARM_SYMBOL_CLASS(type) ((type == N_LSYM)? LOC_LOCAL_ARG: LOC_ARG) - -/* Offset from address of function to start of its code. - Zero on most machines. */ - -#define FUNCTION_START_OFFSET 0 - -/* Advance ip across any function entry prologue instructions - to reach some "real" code. */ - -#define SKIP_PROLOGUE(ip) (i960_skip_prologue (ip)) -extern CORE_ADDR i960_skip_prologue (); - -/* Immediately after a function call, return the saved ip. - 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) (saved_pc_after_call (frame)) -extern CORE_ADDR saved_pc_after_call (); - -/* Stack grows upward */ - -#define INNER_THAN(lhs,rhs) ((lhs) > (rhs)) - -/* 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 */ -#define NUM_REGS 40 - -/* Initializer for an array of names of registers. - There should be NUM_REGS strings in this initializer. */ - -#define REGISTER_NAMES { \ - /* 0 */ "pfp", "sp", "rip", "r3", "r4", "r5", "r6", "r7", \ - /* 8 */ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",\ - /* 16 */ "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", \ - /* 24 */ "g8", "g9", "g10", "g11", "g12", "g13", "g14", "fp", \ - /* 32 */ "pcw", "ac", "tc", "ip", "fp0", "fp1", "fp2", "fp3",\ -} - -/* Register numbers of various important registers (used to index - into arrays of register names and register values). */ - -#define R0_REGNUM 0 /* First local register */ -#define SP_REGNUM 1 /* Contains address of top of stack */ -#define RIP_REGNUM 2 /* Return instruction pointer (local r2) */ -#define R15_REGNUM 15 /* Last local register */ -#define G0_REGNUM 16 /* First global register */ -#define G13_REGNUM 29 /* g13 - holds struct return address */ -#define G14_REGNUM 30 /* g14 - ptr to arg block / leafproc return address */ -#define FP_REGNUM 31 /* Contains address of executing stack frame */ -#define PCW_REGNUM 32 /* process control word */ -#define ACW_REGNUM 33 /* arithmetic control word */ -#define TCW_REGNUM 34 /* trace control word */ -#define IP_REGNUM 35 /* instruction pointer */ -#define FP0_REGNUM 36 /* First floating point register */ - -/* Some registers have more than one name */ - -#define PC_REGNUM IP_REGNUM /* GDB refers to ip as the Program Counter */ -#define PFP_REGNUM R0_REGNUM /* Previous frame pointer */ - -/* Total amount of space needed to store our copies of the machine's - register state, the array `registers'. */ -#define REGISTER_BYTES ((36*4) + (4*10)) - -/* Index within `registers' of the first byte of the space for register N. */ - -#define REGISTER_BYTE(N) ( (N) < FP0_REGNUM ? \ - (4*(N)) : ((10*(N)) - (6*FP0_REGNUM)) ) - -/* The i960 has register windows, sort of. */ - -extern void i960_get_saved_register (char *raw_buffer, - int *optimized, - CORE_ADDR *addrp, - struct frame_info *frame, - int regnum, - enum lval_type *lval); - -#define GET_SAVED_REGISTER(raw_buffer, optimized, addrp, frame, regnum, lval) \ - i960_get_saved_register(raw_buffer, optimized, addrp, frame, regnum, lval) - - -/* Number of bytes of storage in the actual machine representation - for register N. On the i960, all regs are 4 bytes except for floating - point, which are 10. NINDY only sends us 8 byte values for these, - which is a pain, but VxWorks handles this correctly, so we must. */ - -#define REGISTER_RAW_SIZE(N) ( (N) < FP0_REGNUM ? 4 : 10 ) - -/* Number of bytes of storage in the program's representation for register N. */ - -#define REGISTER_VIRTUAL_SIZE(N) ( (N) < FP0_REGNUM ? 4 : 8 ) - -/* Largest value REGISTER_RAW_SIZE can have. */ - -#define MAX_REGISTER_RAW_SIZE 10 - -/* Largest value REGISTER_VIRTUAL_SIZE can have. */ - -#define MAX_REGISTER_VIRTUAL_SIZE 8 - -#include "floatformat.h" - -#define TARGET_LONG_DOUBLE_FORMAT &floatformat_i960_ext - -/* Return the GDB type object for the "standard" data type - of data in register N. */ - -struct type *i960_register_type (int regnum); -#define REGISTER_VIRTUAL_TYPE(N) i960_register_type (N) - -/* Macros for understanding function return values... */ - -/* Does the specified function use the "struct returning" convention - or the "value returning" convention? The "value returning" convention - almost invariably returns the entire value in registers. The - "struct returning" convention often returns the entire value in - memory, and passes a pointer (out of or into the function) saying - where the value (is or should go). - - Since this sometimes depends on whether it was compiled with GCC, - this is also an argument. This is used in call_function to build a - stack, and in value_being_returned to print return values. - - On i960, a structure is returned in registers g0-g3, if it will fit. - If it's more than 16 bytes long, g13 pointed to it on entry. */ - -extern use_struct_convention_fn i960_use_struct_convention; -#define USE_STRUCT_CONVENTION(gcc_p, type) i960_use_struct_convention (gcc_p, type) - -/* 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. This is only called if USE_STRUCT_CONVENTION for this - type is 0. - - On the i960 we just take as many bytes as we need from G0 through G3. */ - -#define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ - memcpy(VALBUF, REGBUF+REGISTER_BYTE(G0_REGNUM), TYPE_LENGTH (TYPE)) - -/* If USE_STRUCT_CONVENTION produces a 1, - 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). - - Address of where to put structure was passed in in global - register g13 on entry. God knows what's in g13 now. The - (..., 0) below is to make it appear to return a value, though - actually all it does is call error(). */ - -#define DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ - (error("Don't know where large structure is returned on i960"), 0) - -/* Write into appropriate registers a function return value - of type TYPE, given in virtual format, for "value returning" functions. - - For 'return' command: not (yet) implemented for i960. */ - -#define STORE_RETURN_VALUE(TYPE,VALBUF) \ - error ("Returning values from functions is not implemented in i960 gdb") - -/* Store the address of the place in which to copy the structure the - subroutine will return. This is called from call_function. */ - -#define STORE_STRUCT_RETURN(ADDR, SP) \ - error ("Returning values from functions is not implemented in i960 gdb") - -/* Describe the pointer in each stack frame to the previous stack frame - (its caller). */ - -/* FRAME_CHAIN takes a frame's nominal address - and produces the frame's chain-pointer. - - However, if FRAME_CHAIN_VALID returns zero, - it means the given frame is the outermost one and has no caller. */ - -/* We cache information about saved registers in the frame structure, - to save us from having to re-scan function prologues every time - a register in a non-current frame is accessed. */ - -#define EXTRA_FRAME_INFO \ - struct frame_saved_regs *fsr; \ - CORE_ADDR arg_pointer; - -/* Zero the frame_saved_regs pointer when the frame is initialized, - so that FRAME_FIND_SAVED_REGS () will know to allocate and - initialize a frame_saved_regs struct the first time it is called. - Set the arg_pointer to -1, which is not valid; 0 and other values - indicate real, cached values. */ - -#define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \ - ((fi)->fsr = 0, (fi)->arg_pointer = -1) - -/* On the i960, we get the chain pointer by reading the PFP saved - on the stack and clearing the status bits. */ - -#define FRAME_CHAIN(thisframe) \ - (read_memory_integer (FRAME_FP(thisframe), 4) & ~0xf) - -/* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one - and has no caller. - - On the i960, each various target system type must define FRAME_CHAIN_VALID, - since it differs between NINDY and VxWorks, the two currently supported - targets types. We leave it undefined here. */ - - -/* 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. */ - -CORE_ADDR leafproc_return (CORE_ADDR ip); -#define FRAMELESS_FUNCTION_INVOCATION(FI) \ - (leafproc_return ((FI)->pc) != 0) - -/* Note that in the i960 architecture the return pointer is saved in the - *caller's* stack frame. - - Make sure to zero low-order bits because of bug in 960CA A-step part - (instruction addresses should always be word-aligned anyway). */ - -#define FRAME_SAVED_PC(frame) \ - ((read_memory_integer(FRAME_CHAIN(frame)+8,4)) & ~3) - -/* On the i960, FRAME_ARGS_ADDRESS should return the value of - g14 as passed into the frame, if known. We need a function for this. - We cache this value in the frame info if we've already looked it up. */ - -#define FRAME_ARGS_ADDRESS(fi) \ - (((fi)->arg_pointer != -1)? (fi)->arg_pointer: frame_args_address (fi, 0)) -extern CORE_ADDR frame_args_address (); /* i960-tdep.c */ - -/* This is the same except it should return 0 when - it does not really know where the args are, rather than guessing. - This value is not cached since it is only used infrequently. */ - -#define FRAME_ARGS_ADDRESS_CORRECT(fi) (frame_args_address (fi, 1)) - -#define FRAME_LOCALS_ADDRESS(fi) (fi)->frame - -/* Set NUMARGS to the number of args passed to a frame. - Can return -1, meaning no way to tell. */ - -#define FRAME_NUM_ARGS(fi) (-1) - -/* Return number of bytes at start of arglist that are not really args. */ - -#define FRAME_ARGS_SKIP 0 - -/* Produce the positions of the saved registers in a stack frame. */ - -#define FRAME_FIND_SAVED_REGS(frame_info_addr, sr) \ - frame_find_saved_regs (frame_info_addr, &sr) -extern void frame_find_saved_regs (); /* See i960-tdep.c */ - -/* Things needed for making calls to functions in the inferior process */ - -/* Push an empty stack frame, to record the current ip, etc. - - Not (yet?) implemented for i960. */ - -#define PUSH_DUMMY_FRAME \ -error("Function calls into the inferior process are not supported on the i960") - -/* Discard from the stack the innermost frame, restoring all registers. */ - - -void i960_pop_frame (void); -#define POP_FRAME \ - i960_pop_frame () - - -/* This sequence of words is the instructions - - callx 0x00000000 - fmark - */ - -/* #define CALL_DUMMY { 0x86003000, 0x00000000, 0x66003e00 } */ - - /* #define CALL_DUMMY_START_OFFSET 0 *//* Start execution at beginning of dummy */ - -/* Indicate that we don't support calling inferior child functions. */ - -#undef CALL_DUMMY - -/* Insert the specified number of args and function address - into a call sequence of the above form stored at 'dummyname'. - - Ignore arg count on i960. */ - -/* #define FIX_CALL_DUMMY(dummyname, fun, nargs) *(((int *)dummyname)+1) = fun */ - -#undef FIX_CALL_DUMMY - - -/* Interface definitions for kernel debugger KDB */ -/* (Not relevant to i960.) */ +// OBSOLETE /* Parameters for target machine Intel 960, for GDB, the GNU debugger. +// OBSOLETE +// OBSOLETE Copyright 1990, 1991, 1993, 1994, 1996, 1998, 1999, 2000, 2002 Free +// OBSOLETE Software Foundation, Inc. +// OBSOLETE +// OBSOLETE Contributed by Intel Corporation. +// OBSOLETE This file is part of GDB. +// OBSOLETE +// OBSOLETE This program is free software; you can redistribute it and/or modify +// OBSOLETE it under the terms of the GNU General Public License as published by +// OBSOLETE the Free Software Foundation; either version 2 of the License, or +// OBSOLETE (at your option) any later version. +// OBSOLETE +// OBSOLETE This program is distributed in the hope that it will be useful, +// OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of +// OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// OBSOLETE GNU General Public License for more details. +// OBSOLETE +// OBSOLETE You should have received a copy of the GNU General Public License +// OBSOLETE along with this program; if not, write to the Free Software +// OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, +// OBSOLETE Boston, MA 02111-1307, USA. */ +// OBSOLETE +// OBSOLETE /* Definitions to target GDB to any i960. */ +// OBSOLETE +// OBSOLETE #ifndef I80960 +// OBSOLETE #define I80960 +// OBSOLETE #endif +// OBSOLETE +// OBSOLETE #include "doublest.h" +// OBSOLETE +// OBSOLETE /* Hook for the SYMBOL_CLASS of a parameter when decoding DBX symbol +// OBSOLETE information. In the i960, parameters can be stored as locals or as +// OBSOLETE args, depending on the type of the debug record. +// OBSOLETE +// OBSOLETE From empirical observation, gcc960 uses N_LSYM to indicate +// OBSOLETE arguments passed in registers and then copied immediately +// OBSOLETE to the frame, and N_PSYM to indicate arguments passed in a +// OBSOLETE g14-relative argument block. */ +// OBSOLETE +// OBSOLETE #define DBX_PARM_SYMBOL_CLASS(type) ((type == N_LSYM)? LOC_LOCAL_ARG: LOC_ARG) +// OBSOLETE +// OBSOLETE /* Offset from address of function to start of its code. +// OBSOLETE Zero on most machines. */ +// OBSOLETE +// OBSOLETE #define FUNCTION_START_OFFSET 0 +// OBSOLETE +// OBSOLETE /* Advance ip across any function entry prologue instructions +// OBSOLETE to reach some "real" code. */ +// OBSOLETE +// OBSOLETE #define SKIP_PROLOGUE(ip) (i960_skip_prologue (ip)) +// OBSOLETE extern CORE_ADDR i960_skip_prologue (); +// OBSOLETE +// OBSOLETE /* Immediately after a function call, return the saved ip. +// OBSOLETE Can't always go through the frames for this because on some machines +// OBSOLETE the new frame is not set up until the new function +// OBSOLETE executes some instructions. */ +// OBSOLETE +// OBSOLETE #define SAVED_PC_AFTER_CALL(frame) (saved_pc_after_call (frame)) +// OBSOLETE extern CORE_ADDR saved_pc_after_call (); +// OBSOLETE +// OBSOLETE /* Stack grows upward */ +// OBSOLETE +// OBSOLETE #define INNER_THAN(lhs,rhs) ((lhs) > (rhs)) +// OBSOLETE +// OBSOLETE /* Say how long (ordinary) registers are. This is a piece of bogosity +// OBSOLETE used in push_word and a few other places; REGISTER_RAW_SIZE is the +// OBSOLETE real way to know how big a register is. */ +// OBSOLETE +// OBSOLETE #define REGISTER_SIZE 4 +// OBSOLETE +// OBSOLETE /* Number of machine registers */ +// OBSOLETE #define NUM_REGS 40 +// OBSOLETE +// OBSOLETE /* Initializer for an array of names of registers. +// OBSOLETE There should be NUM_REGS strings in this initializer. */ +// OBSOLETE +// OBSOLETE #define REGISTER_NAMES { \ +// OBSOLETE /* 0 */ "pfp", "sp", "rip", "r3", "r4", "r5", "r6", "r7", \ +// OBSOLETE /* 8 */ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",\ +// OBSOLETE /* 16 */ "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", \ +// OBSOLETE /* 24 */ "g8", "g9", "g10", "g11", "g12", "g13", "g14", "fp", \ +// OBSOLETE /* 32 */ "pcw", "ac", "tc", "ip", "fp0", "fp1", "fp2", "fp3",\ +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Register numbers of various important registers (used to index +// OBSOLETE into arrays of register names and register values). */ +// OBSOLETE +// OBSOLETE #define R0_REGNUM 0 /* First local register */ +// OBSOLETE #define SP_REGNUM 1 /* Contains address of top of stack */ +// OBSOLETE #define RIP_REGNUM 2 /* Return instruction pointer (local r2) */ +// OBSOLETE #define R15_REGNUM 15 /* Last local register */ +// OBSOLETE #define G0_REGNUM 16 /* First global register */ +// OBSOLETE #define G13_REGNUM 29 /* g13 - holds struct return address */ +// OBSOLETE #define G14_REGNUM 30 /* g14 - ptr to arg block / leafproc return address */ +// OBSOLETE #define FP_REGNUM 31 /* Contains address of executing stack frame */ +// OBSOLETE #define PCW_REGNUM 32 /* process control word */ +// OBSOLETE #define ACW_REGNUM 33 /* arithmetic control word */ +// OBSOLETE #define TCW_REGNUM 34 /* trace control word */ +// OBSOLETE #define IP_REGNUM 35 /* instruction pointer */ +// OBSOLETE #define FP0_REGNUM 36 /* First floating point register */ +// OBSOLETE +// OBSOLETE /* Some registers have more than one name */ +// OBSOLETE +// OBSOLETE #define PC_REGNUM IP_REGNUM /* GDB refers to ip as the Program Counter */ +// OBSOLETE #define PFP_REGNUM R0_REGNUM /* Previous frame pointer */ +// OBSOLETE +// OBSOLETE /* Total amount of space needed to store our copies of the machine's +// OBSOLETE register state, the array `registers'. */ +// OBSOLETE #define REGISTER_BYTES ((36*4) + (4*10)) +// OBSOLETE +// OBSOLETE /* Index within `registers' of the first byte of the space for register N. */ +// OBSOLETE +// OBSOLETE #define REGISTER_BYTE(N) ( (N) < FP0_REGNUM ? \ +// OBSOLETE (4*(N)) : ((10*(N)) - (6*FP0_REGNUM)) ) +// OBSOLETE +// OBSOLETE /* The i960 has register windows, sort of. */ +// OBSOLETE +// OBSOLETE extern void i960_get_saved_register (char *raw_buffer, +// OBSOLETE int *optimized, +// OBSOLETE CORE_ADDR *addrp, +// OBSOLETE struct frame_info *frame, +// OBSOLETE int regnum, +// OBSOLETE enum lval_type *lval); +// OBSOLETE +// OBSOLETE #define GET_SAVED_REGISTER(raw_buffer, optimized, addrp, frame, regnum, lval) \ +// OBSOLETE i960_get_saved_register(raw_buffer, optimized, addrp, frame, regnum, lval) +// OBSOLETE +// OBSOLETE +// OBSOLETE /* Number of bytes of storage in the actual machine representation +// OBSOLETE for register N. On the i960, all regs are 4 bytes except for floating +// OBSOLETE point, which are 10. NINDY only sends us 8 byte values for these, +// OBSOLETE which is a pain, but VxWorks handles this correctly, so we must. */ +// OBSOLETE +// OBSOLETE #define REGISTER_RAW_SIZE(N) ( (N) < FP0_REGNUM ? 4 : 10 ) +// OBSOLETE +// OBSOLETE /* Number of bytes of storage in the program's representation for register N. */ +// OBSOLETE +// OBSOLETE #define REGISTER_VIRTUAL_SIZE(N) ( (N) < FP0_REGNUM ? 4 : 8 ) +// OBSOLETE +// OBSOLETE /* Largest value REGISTER_RAW_SIZE can have. */ +// OBSOLETE +// OBSOLETE #define MAX_REGISTER_RAW_SIZE 10 +// OBSOLETE +// OBSOLETE /* Largest value REGISTER_VIRTUAL_SIZE can have. */ +// OBSOLETE +// OBSOLETE #define MAX_REGISTER_VIRTUAL_SIZE 8 +// OBSOLETE +// OBSOLETE #include "floatformat.h" +// OBSOLETE +// OBSOLETE #define TARGET_LONG_DOUBLE_FORMAT &floatformat_i960_ext +// OBSOLETE +// OBSOLETE /* Return the GDB type object for the "standard" data type +// OBSOLETE of data in register N. */ +// OBSOLETE +// OBSOLETE struct type *i960_register_type (int regnum); +// OBSOLETE #define REGISTER_VIRTUAL_TYPE(N) i960_register_type (N) +// OBSOLETE +// OBSOLETE /* Macros for understanding function return values... */ +// OBSOLETE +// OBSOLETE /* Does the specified function use the "struct returning" convention +// OBSOLETE or the "value returning" convention? The "value returning" convention +// OBSOLETE almost invariably returns the entire value in registers. The +// OBSOLETE "struct returning" convention often returns the entire value in +// OBSOLETE memory, and passes a pointer (out of or into the function) saying +// OBSOLETE where the value (is or should go). +// OBSOLETE +// OBSOLETE Since this sometimes depends on whether it was compiled with GCC, +// OBSOLETE this is also an argument. This is used in call_function to build a +// OBSOLETE stack, and in value_being_returned to print return values. +// OBSOLETE +// OBSOLETE On i960, a structure is returned in registers g0-g3, if it will fit. +// OBSOLETE If it's more than 16 bytes long, g13 pointed to it on entry. */ +// OBSOLETE +// OBSOLETE extern use_struct_convention_fn i960_use_struct_convention; +// OBSOLETE #define USE_STRUCT_CONVENTION(gcc_p, type) i960_use_struct_convention (gcc_p, type) +// OBSOLETE +// OBSOLETE /* Extract from an array REGBUF containing the (raw) register state +// OBSOLETE a function return value of type TYPE, and copy that, in virtual format, +// OBSOLETE into VALBUF. This is only called if USE_STRUCT_CONVENTION for this +// OBSOLETE type is 0. +// OBSOLETE +// OBSOLETE On the i960 we just take as many bytes as we need from G0 through G3. */ +// OBSOLETE +// OBSOLETE #define DEPRECATED_EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ +// OBSOLETE memcpy(VALBUF, REGBUF+REGISTER_BYTE(G0_REGNUM), TYPE_LENGTH (TYPE)) +// OBSOLETE +// OBSOLETE /* If USE_STRUCT_CONVENTION produces a 1, +// OBSOLETE extract from an array REGBUF containing the (raw) register state +// OBSOLETE the address in which a function should return its structure value, +// OBSOLETE as a CORE_ADDR (or an expression that can be used as one). +// OBSOLETE +// OBSOLETE Address of where to put structure was passed in in global +// OBSOLETE register g13 on entry. God knows what's in g13 now. The +// OBSOLETE (..., 0) below is to make it appear to return a value, though +// OBSOLETE actually all it does is call error(). */ +// OBSOLETE +// OBSOLETE #define DEPRECATED_EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ +// OBSOLETE (error("Don't know where large structure is returned on i960"), 0) +// OBSOLETE +// OBSOLETE /* Write into appropriate registers a function return value +// OBSOLETE of type TYPE, given in virtual format, for "value returning" functions. +// OBSOLETE +// OBSOLETE For 'return' command: not (yet) implemented for i960. */ +// OBSOLETE +// OBSOLETE #define STORE_RETURN_VALUE(TYPE,VALBUF) \ +// OBSOLETE error ("Returning values from functions is not implemented in i960 gdb") +// OBSOLETE +// OBSOLETE /* Store the address of the place in which to copy the structure the +// OBSOLETE subroutine will return. This is called from call_function. */ +// OBSOLETE +// OBSOLETE #define STORE_STRUCT_RETURN(ADDR, SP) \ +// OBSOLETE error ("Returning values from functions is not implemented in i960 gdb") +// OBSOLETE +// OBSOLETE /* Describe the pointer in each stack frame to the previous stack frame +// OBSOLETE (its caller). */ +// OBSOLETE +// OBSOLETE /* FRAME_CHAIN takes a frame's nominal address +// OBSOLETE and produces the frame's chain-pointer. +// OBSOLETE +// OBSOLETE However, if FRAME_CHAIN_VALID returns zero, +// OBSOLETE it means the given frame is the outermost one and has no caller. */ +// OBSOLETE +// OBSOLETE /* We cache information about saved registers in the frame structure, +// OBSOLETE to save us from having to re-scan function prologues every time +// OBSOLETE a register in a non-current frame is accessed. */ +// OBSOLETE +// OBSOLETE #define EXTRA_FRAME_INFO \ +// OBSOLETE struct frame_saved_regs *fsr; \ +// OBSOLETE CORE_ADDR arg_pointer; +// OBSOLETE +// OBSOLETE /* Zero the frame_saved_regs pointer when the frame is initialized, +// OBSOLETE so that FRAME_FIND_SAVED_REGS () will know to allocate and +// OBSOLETE initialize a frame_saved_regs struct the first time it is called. +// OBSOLETE Set the arg_pointer to -1, which is not valid; 0 and other values +// OBSOLETE indicate real, cached values. */ +// OBSOLETE +// OBSOLETE #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \ +// OBSOLETE ((fi)->fsr = 0, (fi)->arg_pointer = -1) +// OBSOLETE +// OBSOLETE /* On the i960, we get the chain pointer by reading the PFP saved +// OBSOLETE on the stack and clearing the status bits. */ +// OBSOLETE +// OBSOLETE #define FRAME_CHAIN(thisframe) \ +// OBSOLETE (read_memory_integer (FRAME_FP(thisframe), 4) & ~0xf) +// OBSOLETE +// OBSOLETE /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one +// OBSOLETE and has no caller. +// OBSOLETE +// OBSOLETE On the i960, each various target system type must define FRAME_CHAIN_VALID, +// OBSOLETE since it differs between NINDY and VxWorks, the two currently supported +// OBSOLETE targets types. We leave it undefined here. */ +// OBSOLETE +// OBSOLETE +// OBSOLETE /* A macro that tells us whether the function invocation represented +// OBSOLETE by FI does not have a frame on the stack associated with it. If it +// OBSOLETE does not, FRAMELESS is set to 1, else 0. */ +// OBSOLETE +// OBSOLETE CORE_ADDR leafproc_return (CORE_ADDR ip); +// OBSOLETE #define FRAMELESS_FUNCTION_INVOCATION(FI) \ +// OBSOLETE (leafproc_return ((FI)->pc) != 0) +// OBSOLETE +// OBSOLETE /* Note that in the i960 architecture the return pointer is saved in the +// OBSOLETE *caller's* stack frame. +// OBSOLETE +// OBSOLETE Make sure to zero low-order bits because of bug in 960CA A-step part +// OBSOLETE (instruction addresses should always be word-aligned anyway). */ +// OBSOLETE +// OBSOLETE #define FRAME_SAVED_PC(frame) \ +// OBSOLETE ((read_memory_integer(FRAME_CHAIN(frame)+8,4)) & ~3) +// OBSOLETE +// OBSOLETE /* On the i960, FRAME_ARGS_ADDRESS should return the value of +// OBSOLETE g14 as passed into the frame, if known. We need a function for this. +// OBSOLETE We cache this value in the frame info if we've already looked it up. */ +// OBSOLETE +// OBSOLETE #define FRAME_ARGS_ADDRESS(fi) \ +// OBSOLETE (((fi)->arg_pointer != -1)? (fi)->arg_pointer: frame_args_address (fi, 0)) +// OBSOLETE extern CORE_ADDR frame_args_address (); /* i960-tdep.c */ +// OBSOLETE +// OBSOLETE /* This is the same except it should return 0 when +// OBSOLETE it does not really know where the args are, rather than guessing. +// OBSOLETE This value is not cached since it is only used infrequently. */ +// OBSOLETE +// OBSOLETE #define FRAME_ARGS_ADDRESS_CORRECT(fi) (frame_args_address (fi, 1)) +// OBSOLETE +// OBSOLETE #define FRAME_LOCALS_ADDRESS(fi) (fi)->frame +// OBSOLETE +// OBSOLETE /* Set NUMARGS to the number of args passed to a frame. +// OBSOLETE Can return -1, meaning no way to tell. */ +// OBSOLETE +// OBSOLETE #define FRAME_NUM_ARGS(fi) (-1) +// OBSOLETE +// OBSOLETE /* Return number of bytes at start of arglist that are not really args. */ +// OBSOLETE +// OBSOLETE #define FRAME_ARGS_SKIP 0 +// OBSOLETE +// OBSOLETE /* Produce the positions of the saved registers in a stack frame. */ +// OBSOLETE +// OBSOLETE #define FRAME_FIND_SAVED_REGS(frame_info_addr, sr) \ +// OBSOLETE frame_find_saved_regs (frame_info_addr, &sr) +// OBSOLETE extern void frame_find_saved_regs (); /* See i960-tdep.c */ +// OBSOLETE +// OBSOLETE /* Things needed for making calls to functions in the inferior process */ +// OBSOLETE +// OBSOLETE /* Push an empty stack frame, to record the current ip, etc. +// OBSOLETE +// OBSOLETE Not (yet?) implemented for i960. */ +// OBSOLETE +// OBSOLETE #define PUSH_DUMMY_FRAME \ +// OBSOLETE error("Function calls into the inferior process are not supported on the i960") +// OBSOLETE +// OBSOLETE /* Discard from the stack the innermost frame, restoring all registers. */ +// OBSOLETE +// OBSOLETE +// OBSOLETE void i960_pop_frame (void); +// OBSOLETE #define POP_FRAME \ +// OBSOLETE i960_pop_frame () +// OBSOLETE +// OBSOLETE +// OBSOLETE /* This sequence of words is the instructions +// OBSOLETE +// OBSOLETE callx 0x00000000 +// OBSOLETE fmark +// OBSOLETE */ +// OBSOLETE +// OBSOLETE /* #define CALL_DUMMY { 0x86003000, 0x00000000, 0x66003e00 } */ +// OBSOLETE +// OBSOLETE /* #define CALL_DUMMY_START_OFFSET 0 *//* Start execution at beginning of dummy */ +// OBSOLETE +// OBSOLETE /* Indicate that we don't support calling inferior child functions. */ +// OBSOLETE +// OBSOLETE #undef CALL_DUMMY +// OBSOLETE +// OBSOLETE /* Insert the specified number of args and function address +// OBSOLETE into a call sequence of the above form stored at 'dummyname'. +// OBSOLETE +// OBSOLETE Ignore arg count on i960. */ +// OBSOLETE +// OBSOLETE /* #define FIX_CALL_DUMMY(dummyname, fun, nargs) *(((int *)dummyname)+1) = fun */ +// OBSOLETE +// OBSOLETE #undef FIX_CALL_DUMMY +// OBSOLETE +// OBSOLETE +// OBSOLETE /* Interface definitions for kernel debugger KDB */ +// OBSOLETE /* (Not relevant to i960.) */ diff --git a/gdb/config/i960/tm-mon960.h b/gdb/config/i960/tm-mon960.h index 98c03b1..dedce0e 100644 --- a/gdb/config/i960/tm-mon960.h +++ b/gdb/config/i960/tm-mon960.h @@ -1,69 +1,69 @@ -/* Parameters for Intel 960 running MON960 monitor, for GDB, the GNU debugger. - Copyright 1990, 1991, 1996, 1999, 2000 Free Software Foundation, Inc. - Contributed by Intel Corporation and Cygnus Support. - - 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. */ - -/***************************************************************************** - * Definitions to target GDB to an i960 debugged over a serial line. - ******************************************************************************/ - -#include "i960/tm-i960.h" - -/* forward declarations */ -struct frame_info; - -/* redefined from tm-i960.h */ -/* Number of machine registers */ -#undef NUM_REGS -#define NUM_REGS 40 - -/* Initializer for an array of names of registers. - There should be NUM_REGS strings in this initializer. */ -#undef REGISTER_NAMES -#define REGISTER_NAMES { \ - /* 0 */ "pfp", "sp", "rip", "r3", "r4", "r5", "r6", "r7", \ - /* 8 */ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",\ - /* 16 */ "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", \ - /* 24 */ "g8", "g9", "g10", "g11", "g12", "g13", "g14", "fp", \ - /* 32 */ "pc", "ac", "tc", "ip", "fp0", "fp1", "fp2", "fp3",\ -} - -/* Override the standard gdb prompt when compiled for this target. */ - -#define DEFAULT_PROMPT "(gdb960) " - -/* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one - and has no caller. - - On the i960, each various target system type defines FRAME_CHAIN_VALID, - since it differs between Nindy, Mon960 and VxWorks, the currently supported - target types. */ - -extern int mon960_frame_chain_valid (CORE_ADDR, struct frame_info *); -#define FRAME_CHAIN_VALID(chain, thisframe) mon960_frame_chain_valid (chain, thisframe) - -/* Sequence of bytes for breakpoint instruction */ - -#define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} - -/* Amount ip must be decremented by after a breakpoint. - * This is often the number of bytes in BREAKPOINT but not always. - */ - -#define DECR_PC_AFTER_BREAK 4 +// OBSOLETE /* Parameters for Intel 960 running MON960 monitor, for GDB, the GNU debugger. +// OBSOLETE Copyright 1990, 1991, 1996, 1999, 2000 Free Software Foundation, Inc. +// OBSOLETE Contributed by Intel Corporation and Cygnus Support. +// OBSOLETE +// OBSOLETE This file is part of GDB. +// OBSOLETE +// OBSOLETE This program is free software; you can redistribute it and/or modify +// OBSOLETE it under the terms of the GNU General Public License as published by +// OBSOLETE the Free Software Foundation; either version 2 of the License, or +// OBSOLETE (at your option) any later version. +// OBSOLETE +// OBSOLETE This program is distributed in the hope that it will be useful, +// OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of +// OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// OBSOLETE GNU General Public License for more details. +// OBSOLETE +// OBSOLETE You should have received a copy of the GNU General Public License +// OBSOLETE along with this program; if not, write to the Free Software +// OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, +// OBSOLETE Boston, MA 02111-1307, USA. */ +// OBSOLETE +// OBSOLETE /***************************************************************************** +// OBSOLETE * Definitions to target GDB to an i960 debugged over a serial line. +// OBSOLETE ******************************************************************************/ +// OBSOLETE +// OBSOLETE #include "i960/tm-i960.h" +// OBSOLETE +// OBSOLETE /* forward declarations */ +// OBSOLETE struct frame_info; +// OBSOLETE +// OBSOLETE /* redefined from tm-i960.h */ +// OBSOLETE /* Number of machine registers */ +// OBSOLETE #undef NUM_REGS +// OBSOLETE #define NUM_REGS 40 +// OBSOLETE +// OBSOLETE /* Initializer for an array of names of registers. +// OBSOLETE There should be NUM_REGS strings in this initializer. */ +// OBSOLETE #undef REGISTER_NAMES +// OBSOLETE #define REGISTER_NAMES { \ +// OBSOLETE /* 0 */ "pfp", "sp", "rip", "r3", "r4", "r5", "r6", "r7", \ +// OBSOLETE /* 8 */ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",\ +// OBSOLETE /* 16 */ "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", \ +// OBSOLETE /* 24 */ "g8", "g9", "g10", "g11", "g12", "g13", "g14", "fp", \ +// OBSOLETE /* 32 */ "pc", "ac", "tc", "ip", "fp0", "fp1", "fp2", "fp3",\ +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Override the standard gdb prompt when compiled for this target. */ +// OBSOLETE +// OBSOLETE #define DEFAULT_PROMPT "(gdb960) " +// OBSOLETE +// OBSOLETE /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one +// OBSOLETE and has no caller. +// OBSOLETE +// OBSOLETE On the i960, each various target system type defines FRAME_CHAIN_VALID, +// OBSOLETE since it differs between Nindy, Mon960 and VxWorks, the currently supported +// OBSOLETE target types. */ +// OBSOLETE +// OBSOLETE extern int mon960_frame_chain_valid (CORE_ADDR, struct frame_info *); +// OBSOLETE #define FRAME_CHAIN_VALID(chain, thisframe) mon960_frame_chain_valid (chain, thisframe) +// OBSOLETE +// OBSOLETE /* Sequence of bytes for breakpoint instruction */ +// OBSOLETE +// OBSOLETE #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} +// OBSOLETE +// OBSOLETE /* Amount ip must be decremented by after a breakpoint. +// OBSOLETE * This is often the number of bytes in BREAKPOINT but not always. +// OBSOLETE */ +// OBSOLETE +// OBSOLETE #define DECR_PC_AFTER_BREAK 4 diff --git a/gdb/config/i960/tm-nindy960.h b/gdb/config/i960/tm-nindy960.h index e9cb99c..6a6dca2 100644 --- a/gdb/config/i960/tm-nindy960.h +++ b/gdb/config/i960/tm-nindy960.h @@ -1,106 +1,106 @@ -/* Parameters for Intel 960 running NINDY monitor, for GDB, the GNU debugger. - Copyright 1990, 1991, 1996, 1999, 2000 Free Software Foundation, Inc. - Contributed by Intel Corporation and Cygnus Support. - - 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. */ - -/***************************************************************************** - * Definitions to target GDB to an i960 debugged over a serial line. - ******************************************************************************/ - -#include "i960/tm-i960.h" - -/* forward declarations */ -struct frame_info; - -/* Override the standard gdb prompt when compiled for this target. */ - -#define DEFAULT_PROMPT "(gdb960) " - -/* Additional command line options accepted by nindy gdb's, for handling - the remote-nindy.c interface. These should really be target-specific - rather than architecture-specific. */ - -extern int nindy_old_protocol; /* nonzero if old NINDY serial protocol */ -extern int nindy_initial_brk; /* Send a BREAK to reset board first */ -extern char *nindy_ttyname; /* Name of serial port to talk to nindy */ - -#define ADDITIONAL_OPTIONS \ - {"O", no_argument, &nindy_old_protocol, 1}, \ - {"brk", no_argument, &nindy_initial_brk, 1}, \ - {"ser", required_argument, 0, 1004}, /* 1004 is magic cookie for ADDL_CASES */ - -#define ADDITIONAL_OPTION_CASES \ - case 1004: /* -ser option: remote nindy auto-start */ \ - nindy_ttyname = optarg; \ - break; - -#define ADDITIONAL_OPTION_HELP \ - "\ - -O Use old protocol to talk to a Nindy target\n\ - -brk Send a break to a Nindy target to reset it.\n\ - -ser SERIAL Open remote Nindy session to SERIAL port.\n\ -" - -/* If specified on the command line, open tty for talking to nindy, - and download the executable file if one was specified. */ - -extern void nindy_open (char *name, int from_tty); -#define ADDITIONAL_OPTION_HANDLER \ - if (nindy_ttyname != NULL) \ - { \ - if (catch_command_errors (nindy_open, nindy_ttyname, \ - !batch, RETURN_MASK_ALL)) \ - { \ - if (execarg != NULL) \ - catch_command_errors (target_load, execarg, !batch, \ - RETURN_MASK_ALL); \ - } \ - } - -/* If configured for i960 target, we take control before main loop - and demand that we configure for a nindy target. */ - -#define BEFORE_MAIN_LOOP_HOOK \ - nindy_before_main_loop(); - -extern void - nindy_before_main_loop (); /* In remote-nindy.c */ - -/* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one - and has no caller. - - On the i960, each various target system type defines FRAME_CHAIN_VALID, - since it differs between NINDY and VxWorks, the two currently supported - targets types. */ - -extern int nindy_frame_chain_valid (CORE_ADDR, struct frame_info *); -#define FRAME_CHAIN_VALID(chain, thisframe) nindy_frame_chain_valid (chain, thisframe) - -extern int - nindy_frame_chain_valid (); /* See nindy-tdep.c */ - -/* Sequence of bytes for breakpoint instruction */ - -#define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} - -/* Amount ip 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 +// OBSOLETE /* Parameters for Intel 960 running NINDY monitor, for GDB, the GNU debugger. +// OBSOLETE Copyright 1990, 1991, 1996, 1999, 2000 Free Software Foundation, Inc. +// OBSOLETE Contributed by Intel Corporation and Cygnus Support. +// OBSOLETE +// OBSOLETE This file is part of GDB. +// OBSOLETE +// OBSOLETE This program is free software; you can redistribute it and/or modify +// OBSOLETE it under the terms of the GNU General Public License as published by +// OBSOLETE the Free Software Foundation; either version 2 of the License, or +// OBSOLETE (at your option) any later version. +// OBSOLETE +// OBSOLETE This program is distributed in the hope that it will be useful, +// OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of +// OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// OBSOLETE GNU General Public License for more details. +// OBSOLETE +// OBSOLETE You should have received a copy of the GNU General Public License +// OBSOLETE along with this program; if not, write to the Free Software +// OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, +// OBSOLETE Boston, MA 02111-1307, USA. */ +// OBSOLETE +// OBSOLETE /***************************************************************************** +// OBSOLETE * Definitions to target GDB to an i960 debugged over a serial line. +// OBSOLETE ******************************************************************************/ +// OBSOLETE +// OBSOLETE #include "i960/tm-i960.h" +// OBSOLETE +// OBSOLETE /* forward declarations */ +// OBSOLETE struct frame_info; +// OBSOLETE +// OBSOLETE /* Override the standard gdb prompt when compiled for this target. */ +// OBSOLETE +// OBSOLETE #define DEFAULT_PROMPT "(gdb960) " +// OBSOLETE +// OBSOLETE /* Additional command line options accepted by nindy gdb's, for handling +// OBSOLETE the remote-nindy.c interface. These should really be target-specific +// OBSOLETE rather than architecture-specific. */ +// OBSOLETE +// OBSOLETE extern int nindy_old_protocol; /* nonzero if old NINDY serial protocol */ +// OBSOLETE extern int nindy_initial_brk; /* Send a BREAK to reset board first */ +// OBSOLETE extern char *nindy_ttyname; /* Name of serial port to talk to nindy */ +// OBSOLETE +// OBSOLETE #define ADDITIONAL_OPTIONS \ +// OBSOLETE {"O", no_argument, &nindy_old_protocol, 1}, \ +// OBSOLETE {"brk", no_argument, &nindy_initial_brk, 1}, \ +// OBSOLETE {"ser", required_argument, 0, 1004}, /* 1004 is magic cookie for ADDL_CASES */ +// OBSOLETE +// OBSOLETE #define ADDITIONAL_OPTION_CASES \ +// OBSOLETE case 1004: /* -ser option: remote nindy auto-start */ \ +// OBSOLETE nindy_ttyname = optarg; \ +// OBSOLETE break; +// OBSOLETE +// OBSOLETE #define ADDITIONAL_OPTION_HELP \ +// OBSOLETE "\ +// OBSOLETE -O Use old protocol to talk to a Nindy target\n\ +// OBSOLETE -brk Send a break to a Nindy target to reset it.\n\ +// OBSOLETE -ser SERIAL Open remote Nindy session to SERIAL port.\n\ +// OBSOLETE " +// OBSOLETE +// OBSOLETE /* If specified on the command line, open tty for talking to nindy, +// OBSOLETE and download the executable file if one was specified. */ +// OBSOLETE +// OBSOLETE extern void nindy_open (char *name, int from_tty); +// OBSOLETE #define ADDITIONAL_OPTION_HANDLER \ +// OBSOLETE if (nindy_ttyname != NULL) \ +// OBSOLETE { \ +// OBSOLETE if (catch_command_errors (nindy_open, nindy_ttyname, \ +// OBSOLETE !batch, RETURN_MASK_ALL)) \ +// OBSOLETE { \ +// OBSOLETE if (execarg != NULL) \ +// OBSOLETE catch_command_errors (target_load, execarg, !batch, \ +// OBSOLETE RETURN_MASK_ALL); \ +// OBSOLETE } \ +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* If configured for i960 target, we take control before main loop +// OBSOLETE and demand that we configure for a nindy target. */ +// OBSOLETE +// OBSOLETE #define BEFORE_MAIN_LOOP_HOOK \ +// OBSOLETE nindy_before_main_loop(); +// OBSOLETE +// OBSOLETE extern void +// OBSOLETE nindy_before_main_loop (); /* In remote-nindy.c */ +// OBSOLETE +// OBSOLETE /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one +// OBSOLETE and has no caller. +// OBSOLETE +// OBSOLETE On the i960, each various target system type defines FRAME_CHAIN_VALID, +// OBSOLETE since it differs between NINDY and VxWorks, the two currently supported +// OBSOLETE targets types. */ +// OBSOLETE +// OBSOLETE extern int nindy_frame_chain_valid (CORE_ADDR, struct frame_info *); +// OBSOLETE #define FRAME_CHAIN_VALID(chain, thisframe) nindy_frame_chain_valid (chain, thisframe) +// OBSOLETE +// OBSOLETE extern int +// OBSOLETE nindy_frame_chain_valid (); /* See nindy-tdep.c */ +// OBSOLETE +// OBSOLETE /* Sequence of bytes for breakpoint instruction */ +// OBSOLETE +// OBSOLETE #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} +// OBSOLETE +// OBSOLETE /* Amount ip must be decremented by after a breakpoint. +// OBSOLETE * This is often the number of bytes in BREAKPOINT but not always. +// OBSOLETE */ +// OBSOLETE +// OBSOLETE #define DECR_PC_AFTER_BREAK 0 diff --git a/gdb/config/i960/tm-vx960.h b/gdb/config/i960/tm-vx960.h index a2e07cc..44ff627 100644 --- a/gdb/config/i960/tm-vx960.h +++ b/gdb/config/i960/tm-vx960.h @@ -1,52 +1,52 @@ -/* Parameters for VxWorks Intel 960's, for GDB, the GNU debugger. - Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1998, 1999 - Free Software Foundation, Inc. - Contributed by Cygnus Support. - - 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 "i960/tm-i960.h" -#include "config/tm-vxworks.h" - -/* Under VxWorks the IP isn't filled in. Skip it, go with RIP, which has - the real value. */ -#undef PC_REGNUM -#define PC_REGNUM RIP_REGNUM - -/* We have more complex, useful breakpoints on the target. - Amount ip must be decremented by after a breakpoint. */ - -#define DECR_PC_AFTER_BREAK 0 - -/* We are guaranteed to have a zero frame pointer at bottom of stack, too. */ - -#define FRAME_CHAIN_VALID(chain, thisframe) nonnull_frame_chain_valid (chain, thisframe) - -/* Breakpoint patching is handled at the target end in VxWorks. */ -/* #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} */ - -/* Number of registers in a ptrace_getregs call. */ - -#define VX_NUM_REGS (16 + 16 + 3) - -/* Number of registers in a ptrace_getfpregs call. */ - - /* @@ Can't use this -- the rdb library for the 960 target - doesn't support setting or retrieving FP regs. KR */ - -/* #define VX_SIZE_FPREGS (REGISTER_RAW_SIZE (FP0_REGNUM) * 4) */ +// OBSOLETE /* Parameters for VxWorks Intel 960's, for GDB, the GNU debugger. +// OBSOLETE Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1998, 1999 +// OBSOLETE Free Software Foundation, Inc. +// OBSOLETE Contributed by Cygnus Support. +// OBSOLETE +// OBSOLETE This file is part of GDB. +// OBSOLETE +// OBSOLETE This program is free software; you can redistribute it and/or modify +// OBSOLETE it under the terms of the GNU General Public License as published by +// OBSOLETE the Free Software Foundation; either version 2 of the License, or +// OBSOLETE (at your option) any later version. +// OBSOLETE +// OBSOLETE This program is distributed in the hope that it will be useful, +// OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of +// OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// OBSOLETE GNU General Public License for more details. +// OBSOLETE +// OBSOLETE You should have received a copy of the GNU General Public License +// OBSOLETE along with this program; if not, write to the Free Software +// OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, +// OBSOLETE Boston, MA 02111-1307, USA. */ +// OBSOLETE +// OBSOLETE #include "i960/tm-i960.h" +// OBSOLETE #include "config/tm-vxworks.h" +// OBSOLETE +// OBSOLETE /* Under VxWorks the IP isn't filled in. Skip it, go with RIP, which has +// OBSOLETE the real value. */ +// OBSOLETE #undef PC_REGNUM +// OBSOLETE #define PC_REGNUM RIP_REGNUM +// OBSOLETE +// OBSOLETE /* We have more complex, useful breakpoints on the target. +// OBSOLETE Amount ip must be decremented by after a breakpoint. */ +// OBSOLETE +// OBSOLETE #define DECR_PC_AFTER_BREAK 0 +// OBSOLETE +// OBSOLETE /* We are guaranteed to have a zero frame pointer at bottom of stack, too. */ +// OBSOLETE +// OBSOLETE #define FRAME_CHAIN_VALID(chain, thisframe) nonnull_frame_chain_valid (chain, thisframe) +// OBSOLETE +// OBSOLETE /* Breakpoint patching is handled at the target end in VxWorks. */ +// OBSOLETE /* #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} */ +// OBSOLETE +// OBSOLETE /* Number of registers in a ptrace_getregs call. */ +// OBSOLETE +// OBSOLETE #define VX_NUM_REGS (16 + 16 + 3) +// OBSOLETE +// OBSOLETE /* Number of registers in a ptrace_getfpregs call. */ +// OBSOLETE +// OBSOLETE /* @@ Can't use this -- the rdb library for the 960 target +// OBSOLETE doesn't support setting or retrieving FP regs. KR */ +// OBSOLETE +// OBSOLETE /* #define VX_SIZE_FPREGS (REGISTER_RAW_SIZE (FP0_REGNUM) * 4) */ diff --git a/gdb/config/i960/vxworks960.mt b/gdb/config/i960/vxworks960.mt index ad32934..e7f04c4 100644 --- a/gdb/config/i960/vxworks960.mt +++ b/gdb/config/i960/vxworks960.mt @@ -1,6 +1,6 @@ -# Target: VxWorks running on an Intel 960 -TDEPFILES= i960-tdep.o remote-vx.o remote-vx960.o xdr_ld.o xdr_ptrace.o xdr_rdb.o -TM_FILE= tm-vx960.h - -# Define this for the vx-share routines, which don't see param.h. -MT_CFLAGS= -DI80960 +# OBSOLETE # Target: VxWorks running on an Intel 960 +# OBSOLETE TDEPFILES= i960-tdep.o remote-vx.o remote-vx960.o xdr_ld.o xdr_ptrace.o xdr_rdb.o +# OBSOLETE TM_FILE= tm-vx960.h +# OBSOLETE +# OBSOLETE # Define this for the vx-share routines, which don't see param.h. +# OBSOLETE MT_CFLAGS= -DI80960 diff --git a/gdb/configure.tgt b/gdb/configure.tgt index 5249294..385dbd0 100644 --- a/gdb/configure.tgt +++ b/gdb/configure.tgt @@ -120,13 +120,13 @@ i[3456]86-*-cygwin*) gdb_target=cygwin ;; i[3456]86-*-vxworks*) gdb_target=vxworks ;; i[3456]86-*-*) gdb_target=embed ;; -i960-*-bout*) gdb_target=vxworks960 ;; -i960-nindy-coff*) gdb_target=nindy960 ;; -i960-*-coff*) gdb_target=mon960 ;; -i960-nindy-elf*) gdb_target=nindy960 ;; -i960-*-elf*) gdb_target=mon960 ;; -i960-*-nindy*) gdb_target=nindy960 ;; -i960-*-vxworks*) gdb_target=vxworks960 ;; +# OBSOLETE i960-*-bout*) gdb_target=vxworks960 ;; +# OBSOLETE i960-nindy-coff*) gdb_target=nindy960 ;; +# OBSOLETE i960-*-coff*) gdb_target=mon960 ;; +# OBSOLETE i960-nindy-elf*) gdb_target=nindy960 ;; +# OBSOLETE i960-*-elf*) gdb_target=mon960 ;; +# OBSOLETE i960-*-nindy*) gdb_target=nindy960 ;; +# OBSOLETE i960-*-vxworks*) gdb_target=vxworks960 ;; ia64-*-aix*) gdb_target=aix ;; ia64-*-linux*) gdb_target=linux diff --git a/gdb/i960-tdep.c b/gdb/i960-tdep.c index 2b16adf..d059a7b 100644 --- a/gdb/i960-tdep.c +++ b/gdb/i960-tdep.c @@ -1,1056 +1,1056 @@ -/* Target-machine dependent code for the Intel 960 - - Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, - 2001, 2002 Free Software Foundation, Inc. - - Contributed by Intel Corporation. - examine_prologue and other parts contributed by Wind River Systems. - - 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 "value.h" -#include "frame.h" -#include "floatformat.h" -#include "target.h" -#include "gdbcore.h" -#include "inferior.h" -#include "regcache.h" -#include "gdb_string.h" - -static CORE_ADDR next_insn (CORE_ADDR memaddr, - unsigned int *pword1, unsigned int *pword2); - -struct type * -i960_register_type (int regnum) -{ - if (regnum < FP0_REGNUM) - return builtin_type_int32; - else - return builtin_type_i960_ext; -} - - -/* Does the specified function use the "struct returning" convention - or the "value returning" convention? The "value returning" convention - almost invariably returns the entire value in registers. The - "struct returning" convention often returns the entire value in - memory, and passes a pointer (out of or into the function) saying - where the value (is or should go). - - Since this sometimes depends on whether it was compiled with GCC, - this is also an argument. This is used in call_function to build a - stack, and in value_being_returned to print return values. - - On i960, a structure is returned in registers g0-g3, if it will fit. - If it's more than 16 bytes long, g13 pointed to it on entry. */ - -int -i960_use_struct_convention (int gcc_p, struct type *type) -{ - return (TYPE_LENGTH (type) > 16); -} - -/* gdb960 is always running on a non-960 host. Check its characteristics. - This routine must be called as part of gdb initialization. */ - -static void -check_host (void) -{ - int i; - - static struct typestruct - { - int hostsize; /* Size of type on host */ - int i960size; /* Size of type on i960 */ - char *typename; /* Name of type, for error msg */ - } - types[] = - { - { - sizeof (short), 2, "short" - } - , - { - sizeof (int), 4, "int" - } - , - { - sizeof (long), 4, "long" - } - , - { - sizeof (float), 4, "float" - } - , - { - sizeof (double), 8, "double" - } - , - { - sizeof (char *), 4, "pointer" - } - , - }; -#define TYPELEN (sizeof(types) / sizeof(struct typestruct)) - - /* Make sure that host type sizes are same as i960 - */ - for (i = 0; i < TYPELEN; i++) - { - if (types[i].hostsize != types[i].i960size) - { - printf_unfiltered ("sizeof(%s) != %d: PROCEED AT YOUR OWN RISK!\n", - types[i].typename, types[i].i960size); - } - - } -} - -/* 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" upon - subroutine calls and thus there is no need to search more than one - stack frame for it. - - On the i960, in fact, the name of this register in another frame is - "mud" -- there is no overlap between the windows. Each window is - simply saved into the stack (true for our purposes, after having been - flushed; normally they reside on-chip and are restored from on-chip - without ever going to memory). */ - -static int -register_in_window_p (int regnum) -{ - return regnum <= R15_REGNUM; -} - -/* i960_find_saved_register () - - Return the address in which frame FRAME's value of register REGNUM - has been saved in memory. Or return zero if it has not been saved. - If REGNUM specifies the SP, the value we return is actually the SP - value, not an address where it was saved. */ - -static CORE_ADDR -i960_find_saved_register (struct frame_info *frame, int regnum) -{ - register struct frame_info *frame1 = NULL; - register CORE_ADDR addr = 0; - - if (frame == NULL) /* No regs saved if want current frame */ - return 0; - - /* We assume that a register in a register window will only be saved - in one place (since the name changes and/or disappears as you go - towards inner frames), so we only call get_frame_saved_regs on - the current frame. This is directly in contradiction to the - usage below, which assumes that registers used in a frame must be - saved in a lower (more interior) frame. This change is a result - of working on a register window machine; get_frame_saved_regs - always returns the registers saved within a frame, within the - context (register namespace) of that frame. */ - - /* However, note that we don't want this to return anything if - nothing is saved (if there's a frame inside of this one). Also, - callers to this routine asking for the stack pointer want the - stack pointer saved for *this* frame; this is returned from the - next frame. */ - - if (register_in_window_p (regnum)) - { - frame1 = get_next_frame (frame); - if (!frame1) - return 0; /* Registers of this frame are active. */ - - /* Get the SP from the next frame in; it will be this - current frame. */ - if (regnum != SP_REGNUM) - frame1 = frame; - - FRAME_INIT_SAVED_REGS (frame1); - return frame1->saved_regs[regnum]; /* ... which might be zero */ - } - - /* Note that this next routine assumes that registers used in - frame x will be saved only in the frame that x calls and - frames interior to it. This is not true on the sparc, but the - above macro takes care of it, so we should be all right. */ - while (1) - { - QUIT; - frame1 = get_next_frame (frame); - if (frame1 == 0) - break; - frame = frame1; - FRAME_INIT_SAVED_REGS (frame1); - if (frame1->saved_regs[regnum]) - addr = frame1->saved_regs[regnum]; - } - - return addr; -} - -/* i960_get_saved_register () - - Find register number REGNUM relative to FRAME and put its (raw, - target format) contents in *RAW_BUFFER. Set *OPTIMIZED if the - variable was optimized out (and thus can't be fetched). Set *LVAL - to lval_memory, lval_register, or not_lval, depending on whether - the value was fetched from memory, from a register, or in a strange - and non-modifiable way (e.g. a frame pointer which was calculated - rather than fetched). Set *ADDRP to the address, either in memory - on as a REGISTER_BYTE offset into the registers array. - - Note that this implementation never sets *LVAL to not_lval. But it - can be replaced by defining GET_SAVED_REGISTER and supplying your - own. - - The argument RAW_BUFFER must point to aligned memory. */ - -void -i960_get_saved_register (char *raw_buffer, - int *optimized, - CORE_ADDR *addrp, - struct frame_info *frame, - int regnum, - enum lval_type *lval) -{ - CORE_ADDR addr; - - if (!target_has_registers) - error ("No registers."); - - /* Normal systems don't optimize out things with register numbers. */ - if (optimized != NULL) - *optimized = 0; - addr = i960_find_saved_register (frame, regnum); - if (addr != 0) - { - if (lval != NULL) - *lval = lval_memory; - if (regnum == SP_REGNUM) - { - if (raw_buffer != NULL) - { - /* Put it back in target format. */ - store_address (raw_buffer, REGISTER_RAW_SIZE (regnum), - (LONGEST) addr); - } - if (addrp != NULL) - *addrp = 0; - return; - } - if (raw_buffer != NULL) - target_read_memory (addr, raw_buffer, REGISTER_RAW_SIZE (regnum)); - } - else - { - if (lval != NULL) - *lval = lval_register; - addr = REGISTER_BYTE (regnum); - if (raw_buffer != NULL) - read_register_gen (regnum, raw_buffer); - } - if (addrp != NULL) - *addrp = addr; -} - -/* Examine an i960 function prologue, recording the addresses at which - registers are saved explicitly by the prologue code, and returning - the address of the first instruction after the prologue (but not - after the instruction at address LIMIT, as explained below). - - LIMIT places an upper bound on addresses of the instructions to be - examined. If the prologue code scan reaches LIMIT, the scan is - aborted and LIMIT is returned. This is used, when examining the - prologue for the current frame, to keep examine_prologue () from - claiming that a given register has been saved when in fact the - instruction that saves it has not yet been executed. LIMIT is used - at other times to stop the scan when we hit code after the true - function prologue (e.g. for the first source line) which might - otherwise be mistaken for function prologue. - - The format of the function prologue matched by this routine is - derived from examination of the source to gcc960 1.21, particularly - the routine i960_function_prologue (). A "regular expression" for - the function prologue is given below: - - (lda LRn, g14 - mov g14, g[0-7] - (mov 0, g14) | (lda 0, g14))? - - (mov[qtl]? g[0-15], r[4-15])* - ((addo [1-31], sp, sp) | (lda n(sp), sp))? - (st[qtl]? g[0-15], n(fp))* - - (cmpobne 0, g14, LFn - mov sp, g14 - lda 0x30(sp), sp - LFn: stq g0, (g14) - stq g4, 0x10(g14) - stq g8, 0x20(g14))? - - (st g14, n(fp))? - (mov g13,r[4-15])? - */ - -/* Macros for extracting fields from i960 instructions. */ - -#define BITMASK(pos, width) (((0x1 << (width)) - 1) << (pos)) -#define EXTRACT_FIELD(val, pos, width) ((val) >> (pos) & BITMASK (0, width)) - -#define REG_SRC1(insn) EXTRACT_FIELD (insn, 0, 5) -#define REG_SRC2(insn) EXTRACT_FIELD (insn, 14, 5) -#define REG_SRCDST(insn) EXTRACT_FIELD (insn, 19, 5) -#define MEM_SRCDST(insn) EXTRACT_FIELD (insn, 19, 5) -#define MEMA_OFFSET(insn) EXTRACT_FIELD (insn, 0, 12) - -/* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or - is not the address of a valid instruction, the address of the next - instruction beyond ADDR otherwise. *PWORD1 receives the first word - of the instruction, and (for two-word instructions), *PWORD2 receives - the second. */ - -#define NEXT_PROLOGUE_INSN(addr, lim, pword1, pword2) \ - (((addr) < (lim)) ? next_insn (addr, pword1, pword2) : 0) - -static CORE_ADDR -examine_prologue (register CORE_ADDR ip, register CORE_ADDR limit, - CORE_ADDR frame_addr, struct frame_saved_regs *fsr) -{ - register CORE_ADDR next_ip; - register int src, dst; - register unsigned int *pcode; - unsigned int insn1, insn2; - int size; - int within_leaf_prologue; - CORE_ADDR save_addr; - static unsigned int varargs_prologue_code[] = - { - 0x3507a00c, /* cmpobne 0x0, g14, LFn */ - 0x5cf01601, /* mov sp, g14 */ - 0x8c086030, /* lda 0x30(sp), sp */ - 0xb2879000, /* LFn: stq g0, (g14) */ - 0xb2a7a010, /* stq g4, 0x10(g14) */ - 0xb2c7a020 /* stq g8, 0x20(g14) */ - }; - - /* Accept a leaf procedure prologue code fragment if present. - Note that ip might point to either the leaf or non-leaf - entry point; we look for the non-leaf entry point first: */ - - within_leaf_prologue = 0; - if ((next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2)) - && ((insn1 & 0xfffff000) == 0x8cf00000 /* lda LRx, g14 (MEMA) */ - || (insn1 & 0xfffffc60) == 0x8cf03000)) /* lda LRx, g14 (MEMB) */ - { - within_leaf_prologue = 1; - next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn1, &insn2); - } - - /* Now look for the prologue code at a leaf entry point: */ - - if (next_ip - && (insn1 & 0xff87ffff) == 0x5c80161e /* mov g14, gx */ - && REG_SRCDST (insn1) <= G0_REGNUM + 7) - { - within_leaf_prologue = 1; - if ((next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn1, &insn2)) - && (insn1 == 0x8cf00000 /* lda 0, g14 */ - || insn1 == 0x5cf01e00)) /* mov 0, g14 */ - { - ip = next_ip; - next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); - within_leaf_prologue = 0; - } - } - - /* If something that looks like the beginning of a leaf prologue - has been seen, but the remainder of the prologue is missing, bail. - We don't know what we've got. */ - - if (within_leaf_prologue) - return (ip); - - /* Accept zero or more instances of "mov[qtl]? gx, ry", where y >= 4. - This may cause us to mistake the moving of a register - parameter to a local register for the saving of a callee-saved - register, but that can't be helped, since with the - "-fcall-saved" flag, any register can be made callee-saved. */ - - while (next_ip - && (insn1 & 0xfc802fb0) == 0x5c000610 - && (dst = REG_SRCDST (insn1)) >= (R0_REGNUM + 4)) - { - src = REG_SRC1 (insn1); - size = EXTRACT_FIELD (insn1, 24, 2) + 1; - save_addr = frame_addr + ((dst - R0_REGNUM) * 4); - while (size--) - { - fsr->regs[src++] = save_addr; - save_addr += 4; - } - ip = next_ip; - next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); - } - - /* Accept an optional "addo n, sp, sp" or "lda n(sp), sp". */ - - if (next_ip && - ((insn1 & 0xffffffe0) == 0x59084800 /* addo n, sp, sp */ - || (insn1 & 0xfffff000) == 0x8c086000 /* lda n(sp), sp (MEMA) */ - || (insn1 & 0xfffffc60) == 0x8c087400)) /* lda n(sp), sp (MEMB) */ - { - ip = next_ip; - next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); - } - - /* Accept zero or more instances of "st[qtl]? gx, n(fp)". - This may cause us to mistake the copying of a register - parameter to the frame for the saving of a callee-saved - register, but that can't be helped, since with the - "-fcall-saved" flag, any register can be made callee-saved. - We can, however, refuse to accept a save of register g14, - since that is matched explicitly below. */ - - while (next_ip && - ((insn1 & 0xf787f000) == 0x9287e000 /* stl? gx, n(fp) (MEMA) */ - || (insn1 & 0xf787fc60) == 0x9287f400 /* stl? gx, n(fp) (MEMB) */ - || (insn1 & 0xef87f000) == 0xa287e000 /* st[tq] gx, n(fp) (MEMA) */ - || (insn1 & 0xef87fc60) == 0xa287f400) /* st[tq] gx, n(fp) (MEMB) */ - && ((src = MEM_SRCDST (insn1)) != G14_REGNUM)) - { - save_addr = frame_addr + ((insn1 & BITMASK (12, 1)) - ? insn2 : MEMA_OFFSET (insn1)); - size = (insn1 & BITMASK (29, 1)) ? ((insn1 & BITMASK (28, 1)) ? 4 : 3) - : ((insn1 & BITMASK (27, 1)) ? 2 : 1); - while (size--) - { - fsr->regs[src++] = save_addr; - save_addr += 4; - } - ip = next_ip; - next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); - } - - /* Accept the varargs prologue code if present. */ - - size = sizeof (varargs_prologue_code) / sizeof (int); - pcode = varargs_prologue_code; - while (size-- && next_ip && *pcode++ == insn1) - { - ip = next_ip; - next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); - } - - /* Accept an optional "st g14, n(fp)". */ - - if (next_ip && - ((insn1 & 0xfffff000) == 0x92f7e000 /* st g14, n(fp) (MEMA) */ - || (insn1 & 0xfffffc60) == 0x92f7f400)) /* st g14, n(fp) (MEMB) */ - { - fsr->regs[G14_REGNUM] = frame_addr + ((insn1 & BITMASK (12, 1)) - ? insn2 : MEMA_OFFSET (insn1)); - ip = next_ip; - next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); - } - - /* Accept zero or one instance of "mov g13, ry", where y >= 4. - This is saving the address where a struct should be returned. */ - - if (next_ip - && (insn1 & 0xff802fbf) == 0x5c00061d - && (dst = REG_SRCDST (insn1)) >= (R0_REGNUM + 4)) - { - save_addr = frame_addr + ((dst - R0_REGNUM) * 4); - fsr->regs[G0_REGNUM + 13] = save_addr; - ip = next_ip; -#if 0 /* We'll need this once there is a subsequent instruction examined. */ - next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); -#endif - } - - return (ip); -} - -/* Given an ip value corresponding to the start of a function, - return the ip of the first instruction after the function - prologue. */ - -CORE_ADDR -i960_skip_prologue (CORE_ADDR ip) -{ - struct frame_saved_regs saved_regs_dummy; - struct symtab_and_line sal; - CORE_ADDR limit; - - sal = find_pc_line (ip, 0); - limit = (sal.end) ? sal.end : 0xffffffff; - - return (examine_prologue (ip, limit, (CORE_ADDR) 0, &saved_regs_dummy)); -} - -/* 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. - - We cache the result of doing this in the frame_obstack, since it is - fairly expensive. */ - -void -frame_find_saved_regs (struct frame_info *fi, struct frame_saved_regs *fsr) -{ - register CORE_ADDR next_addr; - register CORE_ADDR *saved_regs; - register int regnum; - register struct frame_saved_regs *cache_fsr; - CORE_ADDR ip; - struct symtab_and_line sal; - CORE_ADDR limit; - - if (!fi->fsr) - { - cache_fsr = (struct frame_saved_regs *) - frame_obstack_alloc (sizeof (struct frame_saved_regs)); - memset (cache_fsr, '\0', sizeof (struct frame_saved_regs)); - fi->fsr = cache_fsr; - - /* Find the start and end of the function prologue. If the PC - is in the function prologue, we only consider the part that - has executed already. */ - - ip = get_pc_function_start (fi->pc); - sal = find_pc_line (ip, 0); - limit = (sal.end && sal.end < fi->pc) ? sal.end : fi->pc; - - examine_prologue (ip, limit, fi->frame, cache_fsr); - - /* Record the addresses at which the local registers are saved. - Strictly speaking, we should only do this for non-leaf procedures, - but no one will ever look at these values if it is a leaf procedure, - since local registers are always caller-saved. */ - - next_addr = (CORE_ADDR) fi->frame; - saved_regs = cache_fsr->regs; - for (regnum = R0_REGNUM; regnum <= R15_REGNUM; regnum++) - { - *saved_regs++ = next_addr; - next_addr += 4; - } - - cache_fsr->regs[FP_REGNUM] = cache_fsr->regs[PFP_REGNUM]; - } - - *fsr = *fi->fsr; - - /* Fetch the value of the sp from memory every time, since it - is conceivable that it has changed since the cache was flushed. - This unfortunately undoes much of the savings from caching the - saved register values. I suggest adding an argument to - get_frame_saved_regs () specifying the register number we're - interested in (or -1 for all registers). This would be passed - through to FRAME_FIND_SAVED_REGS (), permitting more efficient - computation of saved register addresses (e.g., on the i960, - we don't have to examine the prologue to find local registers). - -- markf@wrs.com - FIXME, we don't need to refetch this, since the cache is cleared - every time the child process is restarted. If GDB itself - modifies SP, it has to clear the cache by hand (does it?). -gnu */ - - fsr->regs[SP_REGNUM] = read_memory_integer (fsr->regs[SP_REGNUM], 4); -} - -/* Return the address of the argument block for the frame - described by FI. Returns 0 if the address is unknown. */ - -CORE_ADDR -frame_args_address (struct frame_info *fi, int must_be_correct) -{ - struct frame_saved_regs fsr; - CORE_ADDR ap; - - /* If g14 was saved in the frame by the function prologue code, return - the saved value. If the frame is current and we are being sloppy, - return the value of g14. Otherwise, return zero. */ - - get_frame_saved_regs (fi, &fsr); - if (fsr.regs[G14_REGNUM]) - ap = read_memory_integer (fsr.regs[G14_REGNUM], 4); - else - { - if (must_be_correct) - return 0; /* Don't cache this result */ - if (get_next_frame (fi)) - ap = 0; - else - ap = read_register (G14_REGNUM); - if (ap == 0) - ap = fi->frame; - } - fi->arg_pointer = ap; /* Cache it for next time */ - return ap; -} - -/* Return the address of the return struct for the frame - described by FI. Returns 0 if the address is unknown. */ - -CORE_ADDR -frame_struct_result_address (struct frame_info *fi) -{ - struct frame_saved_regs fsr; - CORE_ADDR ap; - - /* If the frame is non-current, check to see if g14 was saved in the - frame by the function prologue code; return the saved value if so, - zero otherwise. If the frame is current, return the value of g14. - - FIXME, shouldn't this use the saved value as long as we are past - the function prologue, and only use the current value if we have - no saved value and are at TOS? -- gnu@cygnus.com */ - - if (get_next_frame (fi)) - { - get_frame_saved_regs (fi, &fsr); - if (fsr.regs[G13_REGNUM]) - ap = read_memory_integer (fsr.regs[G13_REGNUM], 4); - else - ap = 0; - } - else - ap = read_register (G13_REGNUM); - - return ap; -} - -/* Return address to which the currently executing leafproc will return, - or 0 if IP, the value of the instruction pointer from the currently - executing function, is not in a leafproc (or if we can't tell if it - is). - - Do this by finding the starting address of the routine in which IP lies. - If the instruction there is "mov g14, gx" (where x is in [0,7]), this - is a leafproc and the return address is in register gx. Well, this is - true unless the return address points at a RET instruction in the current - procedure, which indicates that we have a 'dual entry' routine that - has been entered through the CALL entry point. */ - -CORE_ADDR -leafproc_return (CORE_ADDR ip) -{ - register struct minimal_symbol *msymbol; - char *p; - int dst; - unsigned int insn1, insn2; - CORE_ADDR return_addr; - - if ((msymbol = lookup_minimal_symbol_by_pc (ip)) != NULL) - { - if ((p = strchr (SYMBOL_NAME (msymbol), '.')) && STREQ (p, ".lf")) - { - if (next_insn (SYMBOL_VALUE_ADDRESS (msymbol), &insn1, &insn2) - && (insn1 & 0xff87ffff) == 0x5c80161e /* mov g14, gx */ - && (dst = REG_SRCDST (insn1)) <= G0_REGNUM + 7) - { - /* Get the return address. If the "mov g14, gx" - instruction hasn't been executed yet, read - the return address from g14; otherwise, read it - from the register into which g14 was moved. */ - - return_addr = - read_register ((ip == SYMBOL_VALUE_ADDRESS (msymbol)) - ? G14_REGNUM : dst); - - /* We know we are in a leaf procedure, but we don't know - whether the caller actually did a "bal" to the ".lf" - entry point, or a normal "call" to the non-leaf entry - point one instruction before. In the latter case, the - return address will be the address of a "ret" - instruction within the procedure itself. We test for - this below. */ - - if (!next_insn (return_addr, &insn1, &insn2) - || (insn1 & 0xff000000) != 0xa000000 /* ret */ - || lookup_minimal_symbol_by_pc (return_addr) != msymbol) - return (return_addr); - } - } - } - - return (0); -} - -/* Immediately after a function call, return the saved pc. - Can't go through the frames for this because on some machines - the new frame is not set up until the new function executes - some instructions. - On the i960, the frame *is* set up immediately after the call, - unless the function is a leaf procedure. */ - -CORE_ADDR -saved_pc_after_call (struct frame_info *frame) -{ - CORE_ADDR saved_pc; - - saved_pc = leafproc_return (get_frame_pc (frame)); - if (!saved_pc) - saved_pc = FRAME_SAVED_PC (frame); - - return saved_pc; -} - -/* Discard from the stack the innermost frame, - restoring all saved registers. */ - -void -i960_pop_frame (void) -{ - register struct frame_info *current_fi, *prev_fi; - register int i; - CORE_ADDR save_addr; - CORE_ADDR leaf_return_addr; - struct frame_saved_regs fsr; - char local_regs_buf[16 * 4]; - - current_fi = get_current_frame (); - - /* First, undo what the hardware does when we return. - If this is a non-leaf procedure, restore local registers from - the save area in the calling frame. Otherwise, load the return - address obtained from leafproc_return () into the rip. */ - - leaf_return_addr = leafproc_return (current_fi->pc); - if (!leaf_return_addr) - { - /* Non-leaf procedure. Restore local registers, incl IP. */ - prev_fi = get_prev_frame (current_fi); - read_memory (prev_fi->frame, local_regs_buf, sizeof (local_regs_buf)); - write_register_bytes (REGISTER_BYTE (R0_REGNUM), local_regs_buf, - sizeof (local_regs_buf)); - - /* Restore frame pointer. */ - write_register (FP_REGNUM, prev_fi->frame); - } - else - { - /* Leaf procedure. Just restore the return address into the IP. */ - write_register (RIP_REGNUM, leaf_return_addr); - } - - /* Now restore any global regs that the current function had saved. */ - get_frame_saved_regs (current_fi, &fsr); - for (i = G0_REGNUM; i < G14_REGNUM; i++) - { - save_addr = fsr.regs[i]; - if (save_addr != 0) - write_register (i, read_memory_integer (save_addr, 4)); - } - - /* Flush the frame cache, create a frame for the new innermost frame, - and make it the current frame. */ - - flush_cached_frames (); -} - -/* Given a 960 stop code (fault or trace), return the signal which - corresponds. */ - -enum target_signal -i960_fault_to_signal (int fault) -{ - switch (fault) - { - case 0: - return TARGET_SIGNAL_BUS; /* parallel fault */ - case 1: - return TARGET_SIGNAL_UNKNOWN; - case 2: - return TARGET_SIGNAL_ILL; /* operation fault */ - case 3: - return TARGET_SIGNAL_FPE; /* arithmetic fault */ - case 4: - return TARGET_SIGNAL_FPE; /* floating point fault */ - - /* constraint fault. This appears not to distinguish between - a range constraint fault (which should be SIGFPE) and a privileged - fault (which should be SIGILL). */ - case 5: - return TARGET_SIGNAL_ILL; - - case 6: - return TARGET_SIGNAL_SEGV; /* virtual memory fault */ - - /* protection fault. This is for an out-of-range argument to - "calls". I guess it also could be SIGILL. */ - case 7: - return TARGET_SIGNAL_SEGV; - - case 8: - return TARGET_SIGNAL_BUS; /* machine fault */ - case 9: - return TARGET_SIGNAL_BUS; /* structural fault */ - case 0xa: - return TARGET_SIGNAL_ILL; /* type fault */ - case 0xb: - return TARGET_SIGNAL_UNKNOWN; /* reserved fault */ - case 0xc: - return TARGET_SIGNAL_BUS; /* process fault */ - case 0xd: - return TARGET_SIGNAL_SEGV; /* descriptor fault */ - case 0xe: - return TARGET_SIGNAL_BUS; /* event fault */ - case 0xf: - return TARGET_SIGNAL_UNKNOWN; /* reserved fault */ - case 0x10: - return TARGET_SIGNAL_TRAP; /* single-step trace */ - case 0x11: - return TARGET_SIGNAL_TRAP; /* branch trace */ - case 0x12: - return TARGET_SIGNAL_TRAP; /* call trace */ - case 0x13: - return TARGET_SIGNAL_TRAP; /* return trace */ - case 0x14: - return TARGET_SIGNAL_TRAP; /* pre-return trace */ - case 0x15: - return TARGET_SIGNAL_TRAP; /* supervisor call trace */ - case 0x16: - return TARGET_SIGNAL_TRAP; /* breakpoint trace */ - default: - return TARGET_SIGNAL_UNKNOWN; - } -} - -/****************************************/ -/* MEM format */ -/****************************************/ - -struct tabent -{ - char *name; - char numops; -}; - -/* Return instruction length, either 4 or 8. When NOPRINT is non-zero - (TRUE), don't output any text. (Actually, as implemented, if NOPRINT - is 0, abort() is called.) */ - -static int -mem (unsigned long memaddr, unsigned long word1, unsigned long word2, - int noprint) -{ - int i, j; - int len; - int mode; - int offset; - const char *reg1, *reg2, *reg3; - - /* This lookup table is too sparse to make it worth typing in, but not - * so large as to make a sparse array necessary. We allocate the - * table at runtime, initialize all entries to empty, and copy the - * real ones in from an initialization table. - * - * NOTE: In this table, the meaning of 'numops' is: - * 1: single operand - * 2: 2 operands, load instruction - * -2: 2 operands, store instruction - */ - static struct tabent *mem_tab = NULL; -/* Opcodes of 0x8X, 9X, aX, bX, and cX must be in the table. */ -#define MEM_MIN 0x80 -#define MEM_MAX 0xcf -#define MEM_SIZ ((MEM_MAX-MEM_MIN+1) * sizeof(struct tabent)) - - static struct - { - int opcode; - char *name; - char numops; - } - mem_init[] = - { - 0x80, "ldob", 2, - 0x82, "stob", -2, - 0x84, "bx", 1, - 0x85, "balx", 2, - 0x86, "callx", 1, - 0x88, "ldos", 2, - 0x8a, "stos", -2, - 0x8c, "lda", 2, - 0x90, "ld", 2, - 0x92, "st", -2, - 0x98, "ldl", 2, - 0x9a, "stl", -2, - 0xa0, "ldt", 2, - 0xa2, "stt", -2, - 0xb0, "ldq", 2, - 0xb2, "stq", -2, - 0xc0, "ldib", 2, - 0xc2, "stib", -2, - 0xc8, "ldis", 2, - 0xca, "stis", -2, - 0, NULL, 0 - }; - - if (mem_tab == NULL) - { - mem_tab = (struct tabent *) xmalloc (MEM_SIZ); - memset (mem_tab, '\0', MEM_SIZ); - for (i = 0; mem_init[i].opcode != 0; i++) - { - j = mem_init[i].opcode - MEM_MIN; - mem_tab[j].name = mem_init[i].name; - mem_tab[j].numops = mem_init[i].numops; - } - } - - i = ((word1 >> 24) & 0xff) - MEM_MIN; - mode = (word1 >> 10) & 0xf; - - if ((mem_tab[i].name != NULL) /* Valid instruction */ - && ((mode == 5) || (mode >= 12))) - { /* With 32-bit displacement */ - len = 8; - } - else - { - len = 4; - } - - if (noprint) - { - return len; - } - internal_error (__FILE__, __LINE__, "failed internal consistency check"); -} - -/* Read the i960 instruction at 'memaddr' and return the address of - the next instruction after that, or 0 if 'memaddr' is not the - address of a valid instruction. The first word of the instruction - is stored at 'pword1', and the second word, if any, is stored at - 'pword2'. */ - -static CORE_ADDR -next_insn (CORE_ADDR memaddr, unsigned int *pword1, unsigned int *pword2) -{ - int len; - char buf[8]; - - /* Read the two (potential) words of the instruction at once, - to eliminate the overhead of two calls to read_memory (). - FIXME: Loses if the first one is readable but the second is not - (e.g. last word of the segment). */ - - read_memory (memaddr, buf, 8); - *pword1 = extract_unsigned_integer (buf, 4); - *pword2 = extract_unsigned_integer (buf + 4, 4); - - /* Divide instruction set into classes based on high 4 bits of opcode */ - - switch ((*pword1 >> 28) & 0xf) - { - case 0x0: - case 0x1: /* ctrl */ - - case 0x2: - case 0x3: /* cobr */ - - case 0x5: - case 0x6: - case 0x7: /* reg */ - len = 4; - break; - - case 0x8: - case 0x9: - case 0xa: - case 0xb: - case 0xc: - len = mem (memaddr, *pword1, *pword2, 1); - break; - - default: /* invalid instruction */ - len = 0; - break; - } - - if (len) - return memaddr + len; - else - return 0; -} - -/* 'start_frame' is a variable in the MON960 runtime startup routine - that contains the frame pointer of the 'start' routine (the routine - that calls 'main'). By reading its contents out of remote memory, - we can tell where the frame chain ends: backtraces should halt before - they display this frame. */ - -int -mon960_frame_chain_valid (CORE_ADDR chain, struct frame_info *curframe) -{ - struct symbol *sym; - struct minimal_symbol *msymbol; - - /* crtmon960.o is an assembler module that is assumed to be linked - * first in an i80960 executable. It contains the true entry point; - * it performs startup up initialization and then calls 'main'. - * - * 'sf' is the name of a variable in crtmon960.o that is set - * during startup to the address of the first frame. - * - * 'a' is the address of that variable in 80960 memory. - */ - static char sf[] = "start_frame"; - CORE_ADDR a; - - - chain &= ~0x3f; /* Zero low 6 bits because previous frame pointers - contain return status info in them. */ - if (chain == 0) - { - return 0; - } - - sym = lookup_symbol (sf, 0, VAR_NAMESPACE, (int *) NULL, - (struct symtab **) NULL); - if (sym != 0) - { - a = SYMBOL_VALUE (sym); - } - else - { - msymbol = lookup_minimal_symbol (sf, NULL, NULL); - if (msymbol == NULL) - return 0; - a = SYMBOL_VALUE_ADDRESS (msymbol); - } - - return (chain != read_memory_integer (a, 4)); -} - - -void -_initialize_i960_tdep (void) -{ - check_host (); - - tm_print_insn = print_insn_i960; -} +// OBSOLETE /* Target-machine dependent code for the Intel 960 +// OBSOLETE +// OBSOLETE Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, +// OBSOLETE 2001, 2002 Free Software Foundation, Inc. +// OBSOLETE +// OBSOLETE Contributed by Intel Corporation. +// OBSOLETE examine_prologue and other parts contributed by Wind River Systems. +// OBSOLETE +// OBSOLETE This file is part of GDB. +// OBSOLETE +// OBSOLETE This program is free software; you can redistribute it and/or modify +// OBSOLETE it under the terms of the GNU General Public License as published by +// OBSOLETE the Free Software Foundation; either version 2 of the License, or +// OBSOLETE (at your option) any later version. +// OBSOLETE +// OBSOLETE This program is distributed in the hope that it will be useful, +// OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of +// OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// OBSOLETE GNU General Public License for more details. +// OBSOLETE +// OBSOLETE You should have received a copy of the GNU General Public License +// OBSOLETE along with this program; if not, write to the Free Software +// OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, +// OBSOLETE Boston, MA 02111-1307, USA. */ +// OBSOLETE +// OBSOLETE #include "defs.h" +// OBSOLETE #include "symtab.h" +// OBSOLETE #include "value.h" +// OBSOLETE #include "frame.h" +// OBSOLETE #include "floatformat.h" +// OBSOLETE #include "target.h" +// OBSOLETE #include "gdbcore.h" +// OBSOLETE #include "inferior.h" +// OBSOLETE #include "regcache.h" +// OBSOLETE #include "gdb_string.h" +// OBSOLETE +// OBSOLETE static CORE_ADDR next_insn (CORE_ADDR memaddr, +// OBSOLETE unsigned int *pword1, unsigned int *pword2); +// OBSOLETE +// OBSOLETE struct type * +// OBSOLETE i960_register_type (int regnum) +// OBSOLETE { +// OBSOLETE if (regnum < FP0_REGNUM) +// OBSOLETE return builtin_type_int32; +// OBSOLETE else +// OBSOLETE return builtin_type_i960_ext; +// OBSOLETE } +// OBSOLETE +// OBSOLETE +// OBSOLETE /* Does the specified function use the "struct returning" convention +// OBSOLETE or the "value returning" convention? The "value returning" convention +// OBSOLETE almost invariably returns the entire value in registers. The +// OBSOLETE "struct returning" convention often returns the entire value in +// OBSOLETE memory, and passes a pointer (out of or into the function) saying +// OBSOLETE where the value (is or should go). +// OBSOLETE +// OBSOLETE Since this sometimes depends on whether it was compiled with GCC, +// OBSOLETE this is also an argument. This is used in call_function to build a +// OBSOLETE stack, and in value_being_returned to print return values. +// OBSOLETE +// OBSOLETE On i960, a structure is returned in registers g0-g3, if it will fit. +// OBSOLETE If it's more than 16 bytes long, g13 pointed to it on entry. */ +// OBSOLETE +// OBSOLETE int +// OBSOLETE i960_use_struct_convention (int gcc_p, struct type *type) +// OBSOLETE { +// OBSOLETE return (TYPE_LENGTH (type) > 16); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* gdb960 is always running on a non-960 host. Check its characteristics. +// OBSOLETE This routine must be called as part of gdb initialization. */ +// OBSOLETE +// OBSOLETE static void +// OBSOLETE check_host (void) +// OBSOLETE { +// OBSOLETE int i; +// OBSOLETE +// OBSOLETE static struct typestruct +// OBSOLETE { +// OBSOLETE int hostsize; /* Size of type on host */ +// OBSOLETE int i960size; /* Size of type on i960 */ +// OBSOLETE char *typename; /* Name of type, for error msg */ +// OBSOLETE } +// OBSOLETE types[] = +// OBSOLETE { +// OBSOLETE { +// OBSOLETE sizeof (short), 2, "short" +// OBSOLETE } +// OBSOLETE , +// OBSOLETE { +// OBSOLETE sizeof (int), 4, "int" +// OBSOLETE } +// OBSOLETE , +// OBSOLETE { +// OBSOLETE sizeof (long), 4, "long" +// OBSOLETE } +// OBSOLETE , +// OBSOLETE { +// OBSOLETE sizeof (float), 4, "float" +// OBSOLETE } +// OBSOLETE , +// OBSOLETE { +// OBSOLETE sizeof (double), 8, "double" +// OBSOLETE } +// OBSOLETE , +// OBSOLETE { +// OBSOLETE sizeof (char *), 4, "pointer" +// OBSOLETE } +// OBSOLETE , +// OBSOLETE }; +// OBSOLETE #define TYPELEN (sizeof(types) / sizeof(struct typestruct)) +// OBSOLETE +// OBSOLETE /* Make sure that host type sizes are same as i960 +// OBSOLETE */ +// OBSOLETE for (i = 0; i < TYPELEN; i++) +// OBSOLETE { +// OBSOLETE if (types[i].hostsize != types[i].i960size) +// OBSOLETE { +// OBSOLETE printf_unfiltered ("sizeof(%s) != %d: PROCEED AT YOUR OWN RISK!\n", +// OBSOLETE types[i].typename, types[i].i960size); +// OBSOLETE } +// OBSOLETE +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Is this register part of the register window system? A yes answer +// OBSOLETE implies that 1) The name of this register will not be the same in +// OBSOLETE other frames, and 2) This register is automatically "saved" upon +// OBSOLETE subroutine calls and thus there is no need to search more than one +// OBSOLETE stack frame for it. +// OBSOLETE +// OBSOLETE On the i960, in fact, the name of this register in another frame is +// OBSOLETE "mud" -- there is no overlap between the windows. Each window is +// OBSOLETE simply saved into the stack (true for our purposes, after having been +// OBSOLETE flushed; normally they reside on-chip and are restored from on-chip +// OBSOLETE without ever going to memory). */ +// OBSOLETE +// OBSOLETE static int +// OBSOLETE register_in_window_p (int regnum) +// OBSOLETE { +// OBSOLETE return regnum <= R15_REGNUM; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* i960_find_saved_register () +// OBSOLETE +// OBSOLETE Return the address in which frame FRAME's value of register REGNUM +// OBSOLETE has been saved in memory. Or return zero if it has not been saved. +// OBSOLETE If REGNUM specifies the SP, the value we return is actually the SP +// OBSOLETE value, not an address where it was saved. */ +// OBSOLETE +// OBSOLETE static CORE_ADDR +// OBSOLETE i960_find_saved_register (struct frame_info *frame, int regnum) +// OBSOLETE { +// OBSOLETE register struct frame_info *frame1 = NULL; +// OBSOLETE register CORE_ADDR addr = 0; +// OBSOLETE +// OBSOLETE if (frame == NULL) /* No regs saved if want current frame */ +// OBSOLETE return 0; +// OBSOLETE +// OBSOLETE /* We assume that a register in a register window will only be saved +// OBSOLETE in one place (since the name changes and/or disappears as you go +// OBSOLETE towards inner frames), so we only call get_frame_saved_regs on +// OBSOLETE the current frame. This is directly in contradiction to the +// OBSOLETE usage below, which assumes that registers used in a frame must be +// OBSOLETE saved in a lower (more interior) frame. This change is a result +// OBSOLETE of working on a register window machine; get_frame_saved_regs +// OBSOLETE always returns the registers saved within a frame, within the +// OBSOLETE context (register namespace) of that frame. */ +// OBSOLETE +// OBSOLETE /* However, note that we don't want this to return anything if +// OBSOLETE nothing is saved (if there's a frame inside of this one). Also, +// OBSOLETE callers to this routine asking for the stack pointer want the +// OBSOLETE stack pointer saved for *this* frame; this is returned from the +// OBSOLETE next frame. */ +// OBSOLETE +// OBSOLETE if (register_in_window_p (regnum)) +// OBSOLETE { +// OBSOLETE frame1 = get_next_frame (frame); +// OBSOLETE if (!frame1) +// OBSOLETE return 0; /* Registers of this frame are active. */ +// OBSOLETE +// OBSOLETE /* Get the SP from the next frame in; it will be this +// OBSOLETE current frame. */ +// OBSOLETE if (regnum != SP_REGNUM) +// OBSOLETE frame1 = frame; +// OBSOLETE +// OBSOLETE FRAME_INIT_SAVED_REGS (frame1); +// OBSOLETE return frame1->saved_regs[regnum]; /* ... which might be zero */ +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Note that this next routine assumes that registers used in +// OBSOLETE frame x will be saved only in the frame that x calls and +// OBSOLETE frames interior to it. This is not true on the sparc, but the +// OBSOLETE above macro takes care of it, so we should be all right. */ +// OBSOLETE while (1) +// OBSOLETE { +// OBSOLETE QUIT; +// OBSOLETE frame1 = get_next_frame (frame); +// OBSOLETE if (frame1 == 0) +// OBSOLETE break; +// OBSOLETE frame = frame1; +// OBSOLETE FRAME_INIT_SAVED_REGS (frame1); +// OBSOLETE if (frame1->saved_regs[regnum]) +// OBSOLETE addr = frame1->saved_regs[regnum]; +// OBSOLETE } +// OBSOLETE +// OBSOLETE return addr; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* i960_get_saved_register () +// OBSOLETE +// OBSOLETE Find register number REGNUM relative to FRAME and put its (raw, +// OBSOLETE target format) contents in *RAW_BUFFER. Set *OPTIMIZED if the +// OBSOLETE variable was optimized out (and thus can't be fetched). Set *LVAL +// OBSOLETE to lval_memory, lval_register, or not_lval, depending on whether +// OBSOLETE the value was fetched from memory, from a register, or in a strange +// OBSOLETE and non-modifiable way (e.g. a frame pointer which was calculated +// OBSOLETE rather than fetched). Set *ADDRP to the address, either in memory +// OBSOLETE on as a REGISTER_BYTE offset into the registers array. +// OBSOLETE +// OBSOLETE Note that this implementation never sets *LVAL to not_lval. But it +// OBSOLETE can be replaced by defining GET_SAVED_REGISTER and supplying your +// OBSOLETE own. +// OBSOLETE +// OBSOLETE The argument RAW_BUFFER must point to aligned memory. */ +// OBSOLETE +// OBSOLETE void +// OBSOLETE i960_get_saved_register (char *raw_buffer, +// OBSOLETE int *optimized, +// OBSOLETE CORE_ADDR *addrp, +// OBSOLETE struct frame_info *frame, +// OBSOLETE int regnum, +// OBSOLETE enum lval_type *lval) +// OBSOLETE { +// OBSOLETE CORE_ADDR addr; +// OBSOLETE +// OBSOLETE if (!target_has_registers) +// OBSOLETE error ("No registers."); +// OBSOLETE +// OBSOLETE /* Normal systems don't optimize out things with register numbers. */ +// OBSOLETE if (optimized != NULL) +// OBSOLETE *optimized = 0; +// OBSOLETE addr = i960_find_saved_register (frame, regnum); +// OBSOLETE if (addr != 0) +// OBSOLETE { +// OBSOLETE if (lval != NULL) +// OBSOLETE *lval = lval_memory; +// OBSOLETE if (regnum == SP_REGNUM) +// OBSOLETE { +// OBSOLETE if (raw_buffer != NULL) +// OBSOLETE { +// OBSOLETE /* Put it back in target format. */ +// OBSOLETE store_address (raw_buffer, REGISTER_RAW_SIZE (regnum), +// OBSOLETE (LONGEST) addr); +// OBSOLETE } +// OBSOLETE if (addrp != NULL) +// OBSOLETE *addrp = 0; +// OBSOLETE return; +// OBSOLETE } +// OBSOLETE if (raw_buffer != NULL) +// OBSOLETE target_read_memory (addr, raw_buffer, REGISTER_RAW_SIZE (regnum)); +// OBSOLETE } +// OBSOLETE else +// OBSOLETE { +// OBSOLETE if (lval != NULL) +// OBSOLETE *lval = lval_register; +// OBSOLETE addr = REGISTER_BYTE (regnum); +// OBSOLETE if (raw_buffer != NULL) +// OBSOLETE read_register_gen (regnum, raw_buffer); +// OBSOLETE } +// OBSOLETE if (addrp != NULL) +// OBSOLETE *addrp = addr; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Examine an i960 function prologue, recording the addresses at which +// OBSOLETE registers are saved explicitly by the prologue code, and returning +// OBSOLETE the address of the first instruction after the prologue (but not +// OBSOLETE after the instruction at address LIMIT, as explained below). +// OBSOLETE +// OBSOLETE LIMIT places an upper bound on addresses of the instructions to be +// OBSOLETE examined. If the prologue code scan reaches LIMIT, the scan is +// OBSOLETE aborted and LIMIT is returned. This is used, when examining the +// OBSOLETE prologue for the current frame, to keep examine_prologue () from +// OBSOLETE claiming that a given register has been saved when in fact the +// OBSOLETE instruction that saves it has not yet been executed. LIMIT is used +// OBSOLETE at other times to stop the scan when we hit code after the true +// OBSOLETE function prologue (e.g. for the first source line) which might +// OBSOLETE otherwise be mistaken for function prologue. +// OBSOLETE +// OBSOLETE The format of the function prologue matched by this routine is +// OBSOLETE derived from examination of the source to gcc960 1.21, particularly +// OBSOLETE the routine i960_function_prologue (). A "regular expression" for +// OBSOLETE the function prologue is given below: +// OBSOLETE +// OBSOLETE (lda LRn, g14 +// OBSOLETE mov g14, g[0-7] +// OBSOLETE (mov 0, g14) | (lda 0, g14))? +// OBSOLETE +// OBSOLETE (mov[qtl]? g[0-15], r[4-15])* +// OBSOLETE ((addo [1-31], sp, sp) | (lda n(sp), sp))? +// OBSOLETE (st[qtl]? g[0-15], n(fp))* +// OBSOLETE +// OBSOLETE (cmpobne 0, g14, LFn +// OBSOLETE mov sp, g14 +// OBSOLETE lda 0x30(sp), sp +// OBSOLETE LFn: stq g0, (g14) +// OBSOLETE stq g4, 0x10(g14) +// OBSOLETE stq g8, 0x20(g14))? +// OBSOLETE +// OBSOLETE (st g14, n(fp))? +// OBSOLETE (mov g13,r[4-15])? +// OBSOLETE */ +// OBSOLETE +// OBSOLETE /* Macros for extracting fields from i960 instructions. */ +// OBSOLETE +// OBSOLETE #define BITMASK(pos, width) (((0x1 << (width)) - 1) << (pos)) +// OBSOLETE #define EXTRACT_FIELD(val, pos, width) ((val) >> (pos) & BITMASK (0, width)) +// OBSOLETE +// OBSOLETE #define REG_SRC1(insn) EXTRACT_FIELD (insn, 0, 5) +// OBSOLETE #define REG_SRC2(insn) EXTRACT_FIELD (insn, 14, 5) +// OBSOLETE #define REG_SRCDST(insn) EXTRACT_FIELD (insn, 19, 5) +// OBSOLETE #define MEM_SRCDST(insn) EXTRACT_FIELD (insn, 19, 5) +// OBSOLETE #define MEMA_OFFSET(insn) EXTRACT_FIELD (insn, 0, 12) +// OBSOLETE +// OBSOLETE /* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or +// OBSOLETE is not the address of a valid instruction, the address of the next +// OBSOLETE instruction beyond ADDR otherwise. *PWORD1 receives the first word +// OBSOLETE of the instruction, and (for two-word instructions), *PWORD2 receives +// OBSOLETE the second. */ +// OBSOLETE +// OBSOLETE #define NEXT_PROLOGUE_INSN(addr, lim, pword1, pword2) \ +// OBSOLETE (((addr) < (lim)) ? next_insn (addr, pword1, pword2) : 0) +// OBSOLETE +// OBSOLETE static CORE_ADDR +// OBSOLETE examine_prologue (register CORE_ADDR ip, register CORE_ADDR limit, +// OBSOLETE CORE_ADDR frame_addr, struct frame_saved_regs *fsr) +// OBSOLETE { +// OBSOLETE register CORE_ADDR next_ip; +// OBSOLETE register int src, dst; +// OBSOLETE register unsigned int *pcode; +// OBSOLETE unsigned int insn1, insn2; +// OBSOLETE int size; +// OBSOLETE int within_leaf_prologue; +// OBSOLETE CORE_ADDR save_addr; +// OBSOLETE static unsigned int varargs_prologue_code[] = +// OBSOLETE { +// OBSOLETE 0x3507a00c, /* cmpobne 0x0, g14, LFn */ +// OBSOLETE 0x5cf01601, /* mov sp, g14 */ +// OBSOLETE 0x8c086030, /* lda 0x30(sp), sp */ +// OBSOLETE 0xb2879000, /* LFn: stq g0, (g14) */ +// OBSOLETE 0xb2a7a010, /* stq g4, 0x10(g14) */ +// OBSOLETE 0xb2c7a020 /* stq g8, 0x20(g14) */ +// OBSOLETE }; +// OBSOLETE +// OBSOLETE /* Accept a leaf procedure prologue code fragment if present. +// OBSOLETE Note that ip might point to either the leaf or non-leaf +// OBSOLETE entry point; we look for the non-leaf entry point first: */ +// OBSOLETE +// OBSOLETE within_leaf_prologue = 0; +// OBSOLETE if ((next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2)) +// OBSOLETE && ((insn1 & 0xfffff000) == 0x8cf00000 /* lda LRx, g14 (MEMA) */ +// OBSOLETE || (insn1 & 0xfffffc60) == 0x8cf03000)) /* lda LRx, g14 (MEMB) */ +// OBSOLETE { +// OBSOLETE within_leaf_prologue = 1; +// OBSOLETE next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn1, &insn2); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Now look for the prologue code at a leaf entry point: */ +// OBSOLETE +// OBSOLETE if (next_ip +// OBSOLETE && (insn1 & 0xff87ffff) == 0x5c80161e /* mov g14, gx */ +// OBSOLETE && REG_SRCDST (insn1) <= G0_REGNUM + 7) +// OBSOLETE { +// OBSOLETE within_leaf_prologue = 1; +// OBSOLETE if ((next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn1, &insn2)) +// OBSOLETE && (insn1 == 0x8cf00000 /* lda 0, g14 */ +// OBSOLETE || insn1 == 0x5cf01e00)) /* mov 0, g14 */ +// OBSOLETE { +// OBSOLETE ip = next_ip; +// OBSOLETE next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); +// OBSOLETE within_leaf_prologue = 0; +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* If something that looks like the beginning of a leaf prologue +// OBSOLETE has been seen, but the remainder of the prologue is missing, bail. +// OBSOLETE We don't know what we've got. */ +// OBSOLETE +// OBSOLETE if (within_leaf_prologue) +// OBSOLETE return (ip); +// OBSOLETE +// OBSOLETE /* Accept zero or more instances of "mov[qtl]? gx, ry", where y >= 4. +// OBSOLETE This may cause us to mistake the moving of a register +// OBSOLETE parameter to a local register for the saving of a callee-saved +// OBSOLETE register, but that can't be helped, since with the +// OBSOLETE "-fcall-saved" flag, any register can be made callee-saved. */ +// OBSOLETE +// OBSOLETE while (next_ip +// OBSOLETE && (insn1 & 0xfc802fb0) == 0x5c000610 +// OBSOLETE && (dst = REG_SRCDST (insn1)) >= (R0_REGNUM + 4)) +// OBSOLETE { +// OBSOLETE src = REG_SRC1 (insn1); +// OBSOLETE size = EXTRACT_FIELD (insn1, 24, 2) + 1; +// OBSOLETE save_addr = frame_addr + ((dst - R0_REGNUM) * 4); +// OBSOLETE while (size--) +// OBSOLETE { +// OBSOLETE fsr->regs[src++] = save_addr; +// OBSOLETE save_addr += 4; +// OBSOLETE } +// OBSOLETE ip = next_ip; +// OBSOLETE next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Accept an optional "addo n, sp, sp" or "lda n(sp), sp". */ +// OBSOLETE +// OBSOLETE if (next_ip && +// OBSOLETE ((insn1 & 0xffffffe0) == 0x59084800 /* addo n, sp, sp */ +// OBSOLETE || (insn1 & 0xfffff000) == 0x8c086000 /* lda n(sp), sp (MEMA) */ +// OBSOLETE || (insn1 & 0xfffffc60) == 0x8c087400)) /* lda n(sp), sp (MEMB) */ +// OBSOLETE { +// OBSOLETE ip = next_ip; +// OBSOLETE next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Accept zero or more instances of "st[qtl]? gx, n(fp)". +// OBSOLETE This may cause us to mistake the copying of a register +// OBSOLETE parameter to the frame for the saving of a callee-saved +// OBSOLETE register, but that can't be helped, since with the +// OBSOLETE "-fcall-saved" flag, any register can be made callee-saved. +// OBSOLETE We can, however, refuse to accept a save of register g14, +// OBSOLETE since that is matched explicitly below. */ +// OBSOLETE +// OBSOLETE while (next_ip && +// OBSOLETE ((insn1 & 0xf787f000) == 0x9287e000 /* stl? gx, n(fp) (MEMA) */ +// OBSOLETE || (insn1 & 0xf787fc60) == 0x9287f400 /* stl? gx, n(fp) (MEMB) */ +// OBSOLETE || (insn1 & 0xef87f000) == 0xa287e000 /* st[tq] gx, n(fp) (MEMA) */ +// OBSOLETE || (insn1 & 0xef87fc60) == 0xa287f400) /* st[tq] gx, n(fp) (MEMB) */ +// OBSOLETE && ((src = MEM_SRCDST (insn1)) != G14_REGNUM)) +// OBSOLETE { +// OBSOLETE save_addr = frame_addr + ((insn1 & BITMASK (12, 1)) +// OBSOLETE ? insn2 : MEMA_OFFSET (insn1)); +// OBSOLETE size = (insn1 & BITMASK (29, 1)) ? ((insn1 & BITMASK (28, 1)) ? 4 : 3) +// OBSOLETE : ((insn1 & BITMASK (27, 1)) ? 2 : 1); +// OBSOLETE while (size--) +// OBSOLETE { +// OBSOLETE fsr->regs[src++] = save_addr; +// OBSOLETE save_addr += 4; +// OBSOLETE } +// OBSOLETE ip = next_ip; +// OBSOLETE next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Accept the varargs prologue code if present. */ +// OBSOLETE +// OBSOLETE size = sizeof (varargs_prologue_code) / sizeof (int); +// OBSOLETE pcode = varargs_prologue_code; +// OBSOLETE while (size-- && next_ip && *pcode++ == insn1) +// OBSOLETE { +// OBSOLETE ip = next_ip; +// OBSOLETE next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Accept an optional "st g14, n(fp)". */ +// OBSOLETE +// OBSOLETE if (next_ip && +// OBSOLETE ((insn1 & 0xfffff000) == 0x92f7e000 /* st g14, n(fp) (MEMA) */ +// OBSOLETE || (insn1 & 0xfffffc60) == 0x92f7f400)) /* st g14, n(fp) (MEMB) */ +// OBSOLETE { +// OBSOLETE fsr->regs[G14_REGNUM] = frame_addr + ((insn1 & BITMASK (12, 1)) +// OBSOLETE ? insn2 : MEMA_OFFSET (insn1)); +// OBSOLETE ip = next_ip; +// OBSOLETE next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Accept zero or one instance of "mov g13, ry", where y >= 4. +// OBSOLETE This is saving the address where a struct should be returned. */ +// OBSOLETE +// OBSOLETE if (next_ip +// OBSOLETE && (insn1 & 0xff802fbf) == 0x5c00061d +// OBSOLETE && (dst = REG_SRCDST (insn1)) >= (R0_REGNUM + 4)) +// OBSOLETE { +// OBSOLETE save_addr = frame_addr + ((dst - R0_REGNUM) * 4); +// OBSOLETE fsr->regs[G0_REGNUM + 13] = save_addr; +// OBSOLETE ip = next_ip; +// OBSOLETE #if 0 /* We'll need this once there is a subsequent instruction examined. */ +// OBSOLETE next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); +// OBSOLETE #endif +// OBSOLETE } +// OBSOLETE +// OBSOLETE return (ip); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Given an ip value corresponding to the start of a function, +// OBSOLETE return the ip of the first instruction after the function +// OBSOLETE prologue. */ +// OBSOLETE +// OBSOLETE CORE_ADDR +// OBSOLETE i960_skip_prologue (CORE_ADDR ip) +// OBSOLETE { +// OBSOLETE struct frame_saved_regs saved_regs_dummy; +// OBSOLETE struct symtab_and_line sal; +// OBSOLETE CORE_ADDR limit; +// OBSOLETE +// OBSOLETE sal = find_pc_line (ip, 0); +// OBSOLETE limit = (sal.end) ? sal.end : 0xffffffff; +// OBSOLETE +// OBSOLETE return (examine_prologue (ip, limit, (CORE_ADDR) 0, &saved_regs_dummy)); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Put here the code to store, into a struct frame_saved_regs, +// OBSOLETE the addresses of the saved registers of frame described by FRAME_INFO. +// OBSOLETE This includes special registers such as pc and fp saved in special +// OBSOLETE ways in the stack frame. sp is even more special: +// OBSOLETE the address we return for it IS the sp for the next frame. +// OBSOLETE +// OBSOLETE We cache the result of doing this in the frame_obstack, since it is +// OBSOLETE fairly expensive. */ +// OBSOLETE +// OBSOLETE void +// OBSOLETE frame_find_saved_regs (struct frame_info *fi, struct frame_saved_regs *fsr) +// OBSOLETE { +// OBSOLETE register CORE_ADDR next_addr; +// OBSOLETE register CORE_ADDR *saved_regs; +// OBSOLETE register int regnum; +// OBSOLETE register struct frame_saved_regs *cache_fsr; +// OBSOLETE CORE_ADDR ip; +// OBSOLETE struct symtab_and_line sal; +// OBSOLETE CORE_ADDR limit; +// OBSOLETE +// OBSOLETE if (!fi->fsr) +// OBSOLETE { +// OBSOLETE cache_fsr = (struct frame_saved_regs *) +// OBSOLETE frame_obstack_alloc (sizeof (struct frame_saved_regs)); +// OBSOLETE memset (cache_fsr, '\0', sizeof (struct frame_saved_regs)); +// OBSOLETE fi->fsr = cache_fsr; +// OBSOLETE +// OBSOLETE /* Find the start and end of the function prologue. If the PC +// OBSOLETE is in the function prologue, we only consider the part that +// OBSOLETE has executed already. */ +// OBSOLETE +// OBSOLETE ip = get_pc_function_start (fi->pc); +// OBSOLETE sal = find_pc_line (ip, 0); +// OBSOLETE limit = (sal.end && sal.end < fi->pc) ? sal.end : fi->pc; +// OBSOLETE +// OBSOLETE examine_prologue (ip, limit, fi->frame, cache_fsr); +// OBSOLETE +// OBSOLETE /* Record the addresses at which the local registers are saved. +// OBSOLETE Strictly speaking, we should only do this for non-leaf procedures, +// OBSOLETE but no one will ever look at these values if it is a leaf procedure, +// OBSOLETE since local registers are always caller-saved. */ +// OBSOLETE +// OBSOLETE next_addr = (CORE_ADDR) fi->frame; +// OBSOLETE saved_regs = cache_fsr->regs; +// OBSOLETE for (regnum = R0_REGNUM; regnum <= R15_REGNUM; regnum++) +// OBSOLETE { +// OBSOLETE *saved_regs++ = next_addr; +// OBSOLETE next_addr += 4; +// OBSOLETE } +// OBSOLETE +// OBSOLETE cache_fsr->regs[FP_REGNUM] = cache_fsr->regs[PFP_REGNUM]; +// OBSOLETE } +// OBSOLETE +// OBSOLETE *fsr = *fi->fsr; +// OBSOLETE +// OBSOLETE /* Fetch the value of the sp from memory every time, since it +// OBSOLETE is conceivable that it has changed since the cache was flushed. +// OBSOLETE This unfortunately undoes much of the savings from caching the +// OBSOLETE saved register values. I suggest adding an argument to +// OBSOLETE get_frame_saved_regs () specifying the register number we're +// OBSOLETE interested in (or -1 for all registers). This would be passed +// OBSOLETE through to FRAME_FIND_SAVED_REGS (), permitting more efficient +// OBSOLETE computation of saved register addresses (e.g., on the i960, +// OBSOLETE we don't have to examine the prologue to find local registers). +// OBSOLETE -- markf@wrs.com +// OBSOLETE FIXME, we don't need to refetch this, since the cache is cleared +// OBSOLETE every time the child process is restarted. If GDB itself +// OBSOLETE modifies SP, it has to clear the cache by hand (does it?). -gnu */ +// OBSOLETE +// OBSOLETE fsr->regs[SP_REGNUM] = read_memory_integer (fsr->regs[SP_REGNUM], 4); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Return the address of the argument block for the frame +// OBSOLETE described by FI. Returns 0 if the address is unknown. */ +// OBSOLETE +// OBSOLETE CORE_ADDR +// OBSOLETE frame_args_address (struct frame_info *fi, int must_be_correct) +// OBSOLETE { +// OBSOLETE struct frame_saved_regs fsr; +// OBSOLETE CORE_ADDR ap; +// OBSOLETE +// OBSOLETE /* If g14 was saved in the frame by the function prologue code, return +// OBSOLETE the saved value. If the frame is current and we are being sloppy, +// OBSOLETE return the value of g14. Otherwise, return zero. */ +// OBSOLETE +// OBSOLETE get_frame_saved_regs (fi, &fsr); +// OBSOLETE if (fsr.regs[G14_REGNUM]) +// OBSOLETE ap = read_memory_integer (fsr.regs[G14_REGNUM], 4); +// OBSOLETE else +// OBSOLETE { +// OBSOLETE if (must_be_correct) +// OBSOLETE return 0; /* Don't cache this result */ +// OBSOLETE if (get_next_frame (fi)) +// OBSOLETE ap = 0; +// OBSOLETE else +// OBSOLETE ap = read_register (G14_REGNUM); +// OBSOLETE if (ap == 0) +// OBSOLETE ap = fi->frame; +// OBSOLETE } +// OBSOLETE fi->arg_pointer = ap; /* Cache it for next time */ +// OBSOLETE return ap; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Return the address of the return struct for the frame +// OBSOLETE described by FI. Returns 0 if the address is unknown. */ +// OBSOLETE +// OBSOLETE CORE_ADDR +// OBSOLETE frame_struct_result_address (struct frame_info *fi) +// OBSOLETE { +// OBSOLETE struct frame_saved_regs fsr; +// OBSOLETE CORE_ADDR ap; +// OBSOLETE +// OBSOLETE /* If the frame is non-current, check to see if g14 was saved in the +// OBSOLETE frame by the function prologue code; return the saved value if so, +// OBSOLETE zero otherwise. If the frame is current, return the value of g14. +// OBSOLETE +// OBSOLETE FIXME, shouldn't this use the saved value as long as we are past +// OBSOLETE the function prologue, and only use the current value if we have +// OBSOLETE no saved value and are at TOS? -- gnu@cygnus.com */ +// OBSOLETE +// OBSOLETE if (get_next_frame (fi)) +// OBSOLETE { +// OBSOLETE get_frame_saved_regs (fi, &fsr); +// OBSOLETE if (fsr.regs[G13_REGNUM]) +// OBSOLETE ap = read_memory_integer (fsr.regs[G13_REGNUM], 4); +// OBSOLETE else +// OBSOLETE ap = 0; +// OBSOLETE } +// OBSOLETE else +// OBSOLETE ap = read_register (G13_REGNUM); +// OBSOLETE +// OBSOLETE return ap; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Return address to which the currently executing leafproc will return, +// OBSOLETE or 0 if IP, the value of the instruction pointer from the currently +// OBSOLETE executing function, is not in a leafproc (or if we can't tell if it +// OBSOLETE is). +// OBSOLETE +// OBSOLETE Do this by finding the starting address of the routine in which IP lies. +// OBSOLETE If the instruction there is "mov g14, gx" (where x is in [0,7]), this +// OBSOLETE is a leafproc and the return address is in register gx. Well, this is +// OBSOLETE true unless the return address points at a RET instruction in the current +// OBSOLETE procedure, which indicates that we have a 'dual entry' routine that +// OBSOLETE has been entered through the CALL entry point. */ +// OBSOLETE +// OBSOLETE CORE_ADDR +// OBSOLETE leafproc_return (CORE_ADDR ip) +// OBSOLETE { +// OBSOLETE register struct minimal_symbol *msymbol; +// OBSOLETE char *p; +// OBSOLETE int dst; +// OBSOLETE unsigned int insn1, insn2; +// OBSOLETE CORE_ADDR return_addr; +// OBSOLETE +// OBSOLETE if ((msymbol = lookup_minimal_symbol_by_pc (ip)) != NULL) +// OBSOLETE { +// OBSOLETE if ((p = strchr (SYMBOL_NAME (msymbol), '.')) && STREQ (p, ".lf")) +// OBSOLETE { +// OBSOLETE if (next_insn (SYMBOL_VALUE_ADDRESS (msymbol), &insn1, &insn2) +// OBSOLETE && (insn1 & 0xff87ffff) == 0x5c80161e /* mov g14, gx */ +// OBSOLETE && (dst = REG_SRCDST (insn1)) <= G0_REGNUM + 7) +// OBSOLETE { +// OBSOLETE /* Get the return address. If the "mov g14, gx" +// OBSOLETE instruction hasn't been executed yet, read +// OBSOLETE the return address from g14; otherwise, read it +// OBSOLETE from the register into which g14 was moved. */ +// OBSOLETE +// OBSOLETE return_addr = +// OBSOLETE read_register ((ip == SYMBOL_VALUE_ADDRESS (msymbol)) +// OBSOLETE ? G14_REGNUM : dst); +// OBSOLETE +// OBSOLETE /* We know we are in a leaf procedure, but we don't know +// OBSOLETE whether the caller actually did a "bal" to the ".lf" +// OBSOLETE entry point, or a normal "call" to the non-leaf entry +// OBSOLETE point one instruction before. In the latter case, the +// OBSOLETE return address will be the address of a "ret" +// OBSOLETE instruction within the procedure itself. We test for +// OBSOLETE this below. */ +// OBSOLETE +// OBSOLETE if (!next_insn (return_addr, &insn1, &insn2) +// OBSOLETE || (insn1 & 0xff000000) != 0xa000000 /* ret */ +// OBSOLETE || lookup_minimal_symbol_by_pc (return_addr) != msymbol) +// OBSOLETE return (return_addr); +// OBSOLETE } +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE return (0); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Immediately after a function call, return the saved pc. +// OBSOLETE Can't go through the frames for this because on some machines +// OBSOLETE the new frame is not set up until the new function executes +// OBSOLETE some instructions. +// OBSOLETE On the i960, the frame *is* set up immediately after the call, +// OBSOLETE unless the function is a leaf procedure. */ +// OBSOLETE +// OBSOLETE CORE_ADDR +// OBSOLETE saved_pc_after_call (struct frame_info *frame) +// OBSOLETE { +// OBSOLETE CORE_ADDR saved_pc; +// OBSOLETE +// OBSOLETE saved_pc = leafproc_return (get_frame_pc (frame)); +// OBSOLETE if (!saved_pc) +// OBSOLETE saved_pc = FRAME_SAVED_PC (frame); +// OBSOLETE +// OBSOLETE return saved_pc; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Discard from the stack the innermost frame, +// OBSOLETE restoring all saved registers. */ +// OBSOLETE +// OBSOLETE void +// OBSOLETE i960_pop_frame (void) +// OBSOLETE { +// OBSOLETE register struct frame_info *current_fi, *prev_fi; +// OBSOLETE register int i; +// OBSOLETE CORE_ADDR save_addr; +// OBSOLETE CORE_ADDR leaf_return_addr; +// OBSOLETE struct frame_saved_regs fsr; +// OBSOLETE char local_regs_buf[16 * 4]; +// OBSOLETE +// OBSOLETE current_fi = get_current_frame (); +// OBSOLETE +// OBSOLETE /* First, undo what the hardware does when we return. +// OBSOLETE If this is a non-leaf procedure, restore local registers from +// OBSOLETE the save area in the calling frame. Otherwise, load the return +// OBSOLETE address obtained from leafproc_return () into the rip. */ +// OBSOLETE +// OBSOLETE leaf_return_addr = leafproc_return (current_fi->pc); +// OBSOLETE if (!leaf_return_addr) +// OBSOLETE { +// OBSOLETE /* Non-leaf procedure. Restore local registers, incl IP. */ +// OBSOLETE prev_fi = get_prev_frame (current_fi); +// OBSOLETE read_memory (prev_fi->frame, local_regs_buf, sizeof (local_regs_buf)); +// OBSOLETE write_register_bytes (REGISTER_BYTE (R0_REGNUM), local_regs_buf, +// OBSOLETE sizeof (local_regs_buf)); +// OBSOLETE +// OBSOLETE /* Restore frame pointer. */ +// OBSOLETE write_register (FP_REGNUM, prev_fi->frame); +// OBSOLETE } +// OBSOLETE else +// OBSOLETE { +// OBSOLETE /* Leaf procedure. Just restore the return address into the IP. */ +// OBSOLETE write_register (RIP_REGNUM, leaf_return_addr); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Now restore any global regs that the current function had saved. */ +// OBSOLETE get_frame_saved_regs (current_fi, &fsr); +// OBSOLETE for (i = G0_REGNUM; i < G14_REGNUM; i++) +// OBSOLETE { +// OBSOLETE save_addr = fsr.regs[i]; +// OBSOLETE if (save_addr != 0) +// OBSOLETE write_register (i, read_memory_integer (save_addr, 4)); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Flush the frame cache, create a frame for the new innermost frame, +// OBSOLETE and make it the current frame. */ +// OBSOLETE +// OBSOLETE flush_cached_frames (); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Given a 960 stop code (fault or trace), return the signal which +// OBSOLETE corresponds. */ +// OBSOLETE +// OBSOLETE enum target_signal +// OBSOLETE i960_fault_to_signal (int fault) +// OBSOLETE { +// OBSOLETE switch (fault) +// OBSOLETE { +// OBSOLETE case 0: +// OBSOLETE return TARGET_SIGNAL_BUS; /* parallel fault */ +// OBSOLETE case 1: +// OBSOLETE return TARGET_SIGNAL_UNKNOWN; +// OBSOLETE case 2: +// OBSOLETE return TARGET_SIGNAL_ILL; /* operation fault */ +// OBSOLETE case 3: +// OBSOLETE return TARGET_SIGNAL_FPE; /* arithmetic fault */ +// OBSOLETE case 4: +// OBSOLETE return TARGET_SIGNAL_FPE; /* floating point fault */ +// OBSOLETE +// OBSOLETE /* constraint fault. This appears not to distinguish between +// OBSOLETE a range constraint fault (which should be SIGFPE) and a privileged +// OBSOLETE fault (which should be SIGILL). */ +// OBSOLETE case 5: +// OBSOLETE return TARGET_SIGNAL_ILL; +// OBSOLETE +// OBSOLETE case 6: +// OBSOLETE return TARGET_SIGNAL_SEGV; /* virtual memory fault */ +// OBSOLETE +// OBSOLETE /* protection fault. This is for an out-of-range argument to +// OBSOLETE "calls". I guess it also could be SIGILL. */ +// OBSOLETE case 7: +// OBSOLETE return TARGET_SIGNAL_SEGV; +// OBSOLETE +// OBSOLETE case 8: +// OBSOLETE return TARGET_SIGNAL_BUS; /* machine fault */ +// OBSOLETE case 9: +// OBSOLETE return TARGET_SIGNAL_BUS; /* structural fault */ +// OBSOLETE case 0xa: +// OBSOLETE return TARGET_SIGNAL_ILL; /* type fault */ +// OBSOLETE case 0xb: +// OBSOLETE return TARGET_SIGNAL_UNKNOWN; /* reserved fault */ +// OBSOLETE case 0xc: +// OBSOLETE return TARGET_SIGNAL_BUS; /* process fault */ +// OBSOLETE case 0xd: +// OBSOLETE return TARGET_SIGNAL_SEGV; /* descriptor fault */ +// OBSOLETE case 0xe: +// OBSOLETE return TARGET_SIGNAL_BUS; /* event fault */ +// OBSOLETE case 0xf: +// OBSOLETE return TARGET_SIGNAL_UNKNOWN; /* reserved fault */ +// OBSOLETE case 0x10: +// OBSOLETE return TARGET_SIGNAL_TRAP; /* single-step trace */ +// OBSOLETE case 0x11: +// OBSOLETE return TARGET_SIGNAL_TRAP; /* branch trace */ +// OBSOLETE case 0x12: +// OBSOLETE return TARGET_SIGNAL_TRAP; /* call trace */ +// OBSOLETE case 0x13: +// OBSOLETE return TARGET_SIGNAL_TRAP; /* return trace */ +// OBSOLETE case 0x14: +// OBSOLETE return TARGET_SIGNAL_TRAP; /* pre-return trace */ +// OBSOLETE case 0x15: +// OBSOLETE return TARGET_SIGNAL_TRAP; /* supervisor call trace */ +// OBSOLETE case 0x16: +// OBSOLETE return TARGET_SIGNAL_TRAP; /* breakpoint trace */ +// OBSOLETE default: +// OBSOLETE return TARGET_SIGNAL_UNKNOWN; +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE /****************************************/ +// OBSOLETE /* MEM format */ +// OBSOLETE /****************************************/ +// OBSOLETE +// OBSOLETE struct tabent +// OBSOLETE { +// OBSOLETE char *name; +// OBSOLETE char numops; +// OBSOLETE }; +// OBSOLETE +// OBSOLETE /* Return instruction length, either 4 or 8. When NOPRINT is non-zero +// OBSOLETE (TRUE), don't output any text. (Actually, as implemented, if NOPRINT +// OBSOLETE is 0, abort() is called.) */ +// OBSOLETE +// OBSOLETE static int +// OBSOLETE mem (unsigned long memaddr, unsigned long word1, unsigned long word2, +// OBSOLETE int noprint) +// OBSOLETE { +// OBSOLETE int i, j; +// OBSOLETE int len; +// OBSOLETE int mode; +// OBSOLETE int offset; +// OBSOLETE const char *reg1, *reg2, *reg3; +// OBSOLETE +// OBSOLETE /* This lookup table is too sparse to make it worth typing in, but not +// OBSOLETE * so large as to make a sparse array necessary. We allocate the +// OBSOLETE * table at runtime, initialize all entries to empty, and copy the +// OBSOLETE * real ones in from an initialization table. +// OBSOLETE * +// OBSOLETE * NOTE: In this table, the meaning of 'numops' is: +// OBSOLETE * 1: single operand +// OBSOLETE * 2: 2 operands, load instruction +// OBSOLETE * -2: 2 operands, store instruction +// OBSOLETE */ +// OBSOLETE static struct tabent *mem_tab = NULL; +// OBSOLETE /* Opcodes of 0x8X, 9X, aX, bX, and cX must be in the table. */ +// OBSOLETE #define MEM_MIN 0x80 +// OBSOLETE #define MEM_MAX 0xcf +// OBSOLETE #define MEM_SIZ ((MEM_MAX-MEM_MIN+1) * sizeof(struct tabent)) +// OBSOLETE +// OBSOLETE static struct +// OBSOLETE { +// OBSOLETE int opcode; +// OBSOLETE char *name; +// OBSOLETE char numops; +// OBSOLETE } +// OBSOLETE mem_init[] = +// OBSOLETE { +// OBSOLETE 0x80, "ldob", 2, +// OBSOLETE 0x82, "stob", -2, +// OBSOLETE 0x84, "bx", 1, +// OBSOLETE 0x85, "balx", 2, +// OBSOLETE 0x86, "callx", 1, +// OBSOLETE 0x88, "ldos", 2, +// OBSOLETE 0x8a, "stos", -2, +// OBSOLETE 0x8c, "lda", 2, +// OBSOLETE 0x90, "ld", 2, +// OBSOLETE 0x92, "st", -2, +// OBSOLETE 0x98, "ldl", 2, +// OBSOLETE 0x9a, "stl", -2, +// OBSOLETE 0xa0, "ldt", 2, +// OBSOLETE 0xa2, "stt", -2, +// OBSOLETE 0xb0, "ldq", 2, +// OBSOLETE 0xb2, "stq", -2, +// OBSOLETE 0xc0, "ldib", 2, +// OBSOLETE 0xc2, "stib", -2, +// OBSOLETE 0xc8, "ldis", 2, +// OBSOLETE 0xca, "stis", -2, +// OBSOLETE 0, NULL, 0 +// OBSOLETE }; +// OBSOLETE +// OBSOLETE if (mem_tab == NULL) +// OBSOLETE { +// OBSOLETE mem_tab = (struct tabent *) xmalloc (MEM_SIZ); +// OBSOLETE memset (mem_tab, '\0', MEM_SIZ); +// OBSOLETE for (i = 0; mem_init[i].opcode != 0; i++) +// OBSOLETE { +// OBSOLETE j = mem_init[i].opcode - MEM_MIN; +// OBSOLETE mem_tab[j].name = mem_init[i].name; +// OBSOLETE mem_tab[j].numops = mem_init[i].numops; +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE i = ((word1 >> 24) & 0xff) - MEM_MIN; +// OBSOLETE mode = (word1 >> 10) & 0xf; +// OBSOLETE +// OBSOLETE if ((mem_tab[i].name != NULL) /* Valid instruction */ +// OBSOLETE && ((mode == 5) || (mode >= 12))) +// OBSOLETE { /* With 32-bit displacement */ +// OBSOLETE len = 8; +// OBSOLETE } +// OBSOLETE else +// OBSOLETE { +// OBSOLETE len = 4; +// OBSOLETE } +// OBSOLETE +// OBSOLETE if (noprint) +// OBSOLETE { +// OBSOLETE return len; +// OBSOLETE } +// OBSOLETE internal_error (__FILE__, __LINE__, "failed internal consistency check"); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Read the i960 instruction at 'memaddr' and return the address of +// OBSOLETE the next instruction after that, or 0 if 'memaddr' is not the +// OBSOLETE address of a valid instruction. The first word of the instruction +// OBSOLETE is stored at 'pword1', and the second word, if any, is stored at +// OBSOLETE 'pword2'. */ +// OBSOLETE +// OBSOLETE static CORE_ADDR +// OBSOLETE next_insn (CORE_ADDR memaddr, unsigned int *pword1, unsigned int *pword2) +// OBSOLETE { +// OBSOLETE int len; +// OBSOLETE char buf[8]; +// OBSOLETE +// OBSOLETE /* Read the two (potential) words of the instruction at once, +// OBSOLETE to eliminate the overhead of two calls to read_memory (). +// OBSOLETE FIXME: Loses if the first one is readable but the second is not +// OBSOLETE (e.g. last word of the segment). */ +// OBSOLETE +// OBSOLETE read_memory (memaddr, buf, 8); +// OBSOLETE *pword1 = extract_unsigned_integer (buf, 4); +// OBSOLETE *pword2 = extract_unsigned_integer (buf + 4, 4); +// OBSOLETE +// OBSOLETE /* Divide instruction set into classes based on high 4 bits of opcode */ +// OBSOLETE +// OBSOLETE switch ((*pword1 >> 28) & 0xf) +// OBSOLETE { +// OBSOLETE case 0x0: +// OBSOLETE case 0x1: /* ctrl */ +// OBSOLETE +// OBSOLETE case 0x2: +// OBSOLETE case 0x3: /* cobr */ +// OBSOLETE +// OBSOLETE case 0x5: +// OBSOLETE case 0x6: +// OBSOLETE case 0x7: /* reg */ +// OBSOLETE len = 4; +// OBSOLETE break; +// OBSOLETE +// OBSOLETE case 0x8: +// OBSOLETE case 0x9: +// OBSOLETE case 0xa: +// OBSOLETE case 0xb: +// OBSOLETE case 0xc: +// OBSOLETE len = mem (memaddr, *pword1, *pword2, 1); +// OBSOLETE break; +// OBSOLETE +// OBSOLETE default: /* invalid instruction */ +// OBSOLETE len = 0; +// OBSOLETE break; +// OBSOLETE } +// OBSOLETE +// OBSOLETE if (len) +// OBSOLETE return memaddr + len; +// OBSOLETE else +// OBSOLETE return 0; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* 'start_frame' is a variable in the MON960 runtime startup routine +// OBSOLETE that contains the frame pointer of the 'start' routine (the routine +// OBSOLETE that calls 'main'). By reading its contents out of remote memory, +// OBSOLETE we can tell where the frame chain ends: backtraces should halt before +// OBSOLETE they display this frame. */ +// OBSOLETE +// OBSOLETE int +// OBSOLETE mon960_frame_chain_valid (CORE_ADDR chain, struct frame_info *curframe) +// OBSOLETE { +// OBSOLETE struct symbol *sym; +// OBSOLETE struct minimal_symbol *msymbol; +// OBSOLETE +// OBSOLETE /* crtmon960.o is an assembler module that is assumed to be linked +// OBSOLETE * first in an i80960 executable. It contains the true entry point; +// OBSOLETE * it performs startup up initialization and then calls 'main'. +// OBSOLETE * +// OBSOLETE * 'sf' is the name of a variable in crtmon960.o that is set +// OBSOLETE * during startup to the address of the first frame. +// OBSOLETE * +// OBSOLETE * 'a' is the address of that variable in 80960 memory. +// OBSOLETE */ +// OBSOLETE static char sf[] = "start_frame"; +// OBSOLETE CORE_ADDR a; +// OBSOLETE +// OBSOLETE +// OBSOLETE chain &= ~0x3f; /* Zero low 6 bits because previous frame pointers +// OBSOLETE contain return status info in them. */ +// OBSOLETE if (chain == 0) +// OBSOLETE { +// OBSOLETE return 0; +// OBSOLETE } +// OBSOLETE +// OBSOLETE sym = lookup_symbol (sf, 0, VAR_NAMESPACE, (int *) NULL, +// OBSOLETE (struct symtab **) NULL); +// OBSOLETE if (sym != 0) +// OBSOLETE { +// OBSOLETE a = SYMBOL_VALUE (sym); +// OBSOLETE } +// OBSOLETE else +// OBSOLETE { +// OBSOLETE msymbol = lookup_minimal_symbol (sf, NULL, NULL); +// OBSOLETE if (msymbol == NULL) +// OBSOLETE return 0; +// OBSOLETE a = SYMBOL_VALUE_ADDRESS (msymbol); +// OBSOLETE } +// OBSOLETE +// OBSOLETE return (chain != read_memory_integer (a, 4)); +// OBSOLETE } +// OBSOLETE +// OBSOLETE +// OBSOLETE void +// OBSOLETE _initialize_i960_tdep (void) +// OBSOLETE { +// OBSOLETE check_host (); +// OBSOLETE +// OBSOLETE tm_print_insn = print_insn_i960; +// OBSOLETE } diff --git a/gdb/remote-nindy.c b/gdb/remote-nindy.c index 679dfad..ffbe7d8 100644 --- a/gdb/remote-nindy.c +++ b/gdb/remote-nindy.c @@ -1,762 +1,762 @@ -/* Memory-access and commands for remote NINDY process, for GDB. - - Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, - 2000, 2001, 2002 Free Software Foundation, Inc. - - Contributed by Intel Corporation. Modified from remote.c by Chris Benenati. - - GDB is distributed in the hope that it will be useful, but WITHOUT ANY - WARRANTY. No author or distributor accepts responsibility to anyone - for the consequences of using it or for whether it serves any - particular purpose or works at all, unless he says so in writing. - Refer to the GDB General Public License for full details. - - Everyone is granted permission to copy, modify and redistribute GDB, - but only under the conditions described in the GDB General Public - License. A copy of this license is supposed to have been given to you - along with GDB so you can know your rights and responsibilities. It - should be in a file named COPYING. Among other things, the copyright - notice and this notice must be preserved on all copies. - - In other words, go ahead and share GDB, but don't try to stop - anyone else from sharing it farther. Help stamp out software hoarding! */ - -/* - Except for the data cache routines, this file bears little resemblence - to remote.c. A new (although similar) protocol has been specified, and - portions of the code are entirely dependent on having an i80960 with a - NINDY ROM monitor at the other end of the line. - */ - -/***************************************************************************** - * - * REMOTE COMMUNICATION PROTOCOL BETWEEN GDB960 AND THE NINDY ROM MONITOR. - * - * - * MODES OF OPERATION - * ----- -- --------- - * - * As far as NINDY is concerned, GDB is always in one of two modes: command - * mode or passthrough mode. - * - * In command mode (the default) pre-defined packets containing requests - * are sent by GDB to NINDY. NINDY never talks except in reponse to a request. - * - * Once the the user program is started, GDB enters passthrough mode, to give - * the user program access to the terminal. GDB remains in this mode until - * NINDY indicates that the program has stopped. - * - * - * PASSTHROUGH MODE - * ----------- ---- - * - * GDB writes all input received from the keyboard directly to NINDY, and writes - * all characters received from NINDY directly to the monitor. - * - * Keyboard input is neither buffered nor echoed to the monitor. - * - * GDB remains in passthrough mode until NINDY sends a single ^P character, - * to indicate that the user process has stopped. - * - * Note: - * GDB assumes NINDY performs a 'flushreg' when the user program stops. - * - * - * COMMAND MODE - * ------- ---- - * - * All info (except for message ack and nak) is transferred between gdb - * and the remote processor in messages of the following format: - * - * <info>#<checksum> - * - * where - * # is a literal character - * - * <info> ASCII information; all numeric information is in the - * form of hex digits ('0'-'9' and lowercase 'a'-'f'). - * - * <checksum> - * is a pair of ASCII hex digits representing an 8-bit - * checksum formed by adding together each of the - * characters in <info>. - * - * The receiver of a message always sends a single character to the sender - * to indicate that the checksum was good ('+') or bad ('-'); the sender - * re-transmits the entire message over until a '+' is received. - * - * In response to a command NINDY always sends back either data or - * a result code of the form "Xnn", where "nn" are hex digits and "X00" - * means no errors. (Exceptions: the "s" and "c" commands don't respond.) - * - * SEE THE HEADER OF THE FILE "gdb.c" IN THE NINDY MONITOR SOURCE CODE FOR A - * FULL DESCRIPTION OF LEGAL COMMANDS. - * - * SEE THE FILE "stop.h" IN THE NINDY MONITOR SOURCE CODE FOR A LIST - * OF STOP CODES. - * - ***************************************************************************/ - -#include "defs.h" -#include <signal.h> -#include <sys/types.h> -#include <setjmp.h> - -#include "frame.h" -#include "inferior.h" -#include "bfd.h" -#include "symfile.h" -#include "target.h" -#include "gdbcore.h" -#include "command.h" -#include "floatformat.h" -#include "regcache.h" - -#include <sys/file.h> -#include <ctype.h> -#include "serial.h" -#include "nindy-share/env.h" -#include "nindy-share/stop.h" -#include "remote-utils.h" - -extern int unlink (); -extern char *getenv (); -extern char *mktemp (); - -extern void generic_mourn_inferior (); - -extern struct target_ops nindy_ops; -extern FILE *instream; - -extern char ninStopWhy (); -extern int ninMemGet (); -extern int ninMemPut (); - -int nindy_initial_brk; /* nonzero if want to send an initial BREAK to nindy */ -int nindy_old_protocol; /* nonzero if want to use old protocol */ -char *nindy_ttyname; /* name of tty to talk to nindy on, or null */ - -#define DLE '\020' /* Character NINDY sends to indicate user program has - * halted. */ -#define TRUE 1 -#define FALSE 0 - -/* From nindy-share/nindy.c. */ -extern struct serial *nindy_serial; - -static int have_regs = 0; /* 1 iff regs read since i960 last halted */ -static int regs_changed = 0; /* 1 iff regs were modified since last read */ - -extern char *exists (); - -static void nindy_fetch_registers (int); - -static void nindy_store_registers (int); - -static char *savename; - -static void -nindy_close (int quitting) -{ - if (nindy_serial != NULL) - serial_close (nindy_serial); - nindy_serial = NULL; - - if (savename) - xfree (savename); - savename = 0; -} - -/* Open a connection to a remote debugger. - FIXME, there should be "set" commands for the options that are - now specified with gdb command-line options (old_protocol, - and initial_brk). */ -void -nindy_open (char *name, /* "/dev/ttyXX", "ttyXX", or "XX": tty to be opened */ - int from_tty) -{ - char baudrate[1024]; - - if (!name) - error_no_arg ("serial port device name"); - - target_preopen (from_tty); - - nindy_close (0); - - have_regs = regs_changed = 0; - - /* Allow user to interrupt the following -- we could hang if there's - no NINDY at the other end of the remote tty. */ - immediate_quit++; - /* If baud_rate is -1, then ninConnect will not recognize the baud rate - and will deal with the situation in a (more or less) reasonable - fashion. */ - sprintf (baudrate, "%d", baud_rate); - ninConnect (name, baudrate, - nindy_initial_brk, !from_tty, nindy_old_protocol); - immediate_quit--; - - if (nindy_serial == NULL) - { - perror_with_name (name); - } - - savename = savestring (name, strlen (name)); - push_target (&nindy_ops); - - target_fetch_registers (-1); - - init_thread_list (); - init_wait_for_inferior (); - clear_proceed_status (); - normal_stop (); -} - -/* User-initiated quit of nindy operations. */ - -static void -nindy_detach (char *name, int from_tty) -{ - if (name) - error ("Too many arguments"); - pop_target (); -} - -static void -nindy_files_info (void) -{ - /* FIXME: this lies about the baud rate if we autobauded. */ - printf_unfiltered ("\tAttached to %s at %d bits per second%s%s.\n", savename, - baud_rate, - nindy_old_protocol ? " in old protocol" : "", - nindy_initial_brk ? " with initial break" : ""); -} - -/* Return the number of characters in the buffer BUF before - the first DLE character. N is maximum number of characters to - consider. */ - -static -int -non_dle (char *buf, int n) -{ - int i; - - for (i = 0; i < n; i++) - { - if (buf[i] == DLE) - { - break; - } - } - return i; -} - -/* Tell the remote machine to resume. */ - -void -nindy_resume (ptid_t ptid, int step, enum target_signal siggnal) -{ - if (siggnal != TARGET_SIGNAL_0 && siggnal != stop_signal) - warning ("Can't send signals to remote NINDY targets."); - - if (regs_changed) - { - nindy_store_registers (-1); - regs_changed = 0; - } - have_regs = 0; - ninGo (step); -} - -/* FIXME, we can probably use the normal terminal_inferior stuff here. - We have to do terminal_inferior and then set up the passthrough - settings initially. Thereafter, terminal_ours and terminal_inferior - will automatically swap the settings around for us. */ - -struct clean_up_tty_args -{ - serial_ttystate state; - struct serial *serial; -}; -static struct clean_up_tty_args tty_args; - -static void -clean_up_tty (PTR ptrarg) -{ - struct clean_up_tty_args *args = (struct clean_up_tty_args *) ptrarg; - serial_set_tty_state (args->serial, args->state); - xfree (args->state); - warning ("\n\nYou may need to reset the 80960 and/or reload your program.\n"); -} - -/* Recover from ^Z or ^C while remote process is running */ -static void (*old_ctrlc) (); -#ifdef SIGTSTP -static void (*old_ctrlz) (); -#endif - -static void -clean_up_int (void) -{ - serial_set_tty_state (tty_args.serial, tty_args.state); - xfree (tty_args.state); - - signal (SIGINT, old_ctrlc); -#ifdef SIGTSTP - signal (SIGTSTP, old_ctrlz); -#endif - error ("\n\nYou may need to reset the 80960 and/or reload your program.\n"); -} - -/* Wait until the remote machine stops. While waiting, operate in passthrough - * mode; i.e., pass everything NINDY sends to gdb_stdout, and everything from - * stdin to NINDY. - * - * Return to caller, storing status in 'status' just as `wait' would. - */ - -static ptid_t -nindy_wait (ptid_t ptid, struct target_waitstatus *status) -{ - fd_set fds; - int c; - char buf[2]; - int i, n; - unsigned char stop_exit; - unsigned char stop_code; - struct cleanup *old_cleanups; - long ip_value, fp_value, sp_value; /* Reg values from stop */ - - status->kind = TARGET_WAITKIND_EXITED; - status->value.integer = 0; - - /* OPERATE IN PASSTHROUGH MODE UNTIL NINDY SENDS A DLE CHARACTER */ - - /* Save current tty attributes, and restore them when done. */ - tty_args.serial = serial_fdopen (0); - tty_args.state = serial_get_tty_state (tty_args.serial); - old_ctrlc = signal (SIGINT, clean_up_int); -#ifdef SIGTSTP - old_ctrlz = signal (SIGTSTP, clean_up_int); -#endif - - old_cleanups = make_cleanup (clean_up_tty, &tty_args); - - /* Pass input from keyboard to NINDY as it arrives. NINDY will interpret - <CR> and perform echo. */ - /* This used to set CBREAK and clear ECHO and CRMOD. I hope this is close - enough. */ - serial_raw (tty_args.serial); - - while (1) - { - /* Input on remote */ - c = serial_readchar (nindy_serial, -1); - if (c == SERIAL_ERROR) - { - error ("Cannot read from serial line"); - } - else if (c == 0x1b) /* ESC */ - { - c = serial_readchar (nindy_serial, -1); - c &= ~0x40; - } - else if (c != 0x10) /* DLE */ - /* Write out any characters preceding DLE */ - { - buf[0] = (char) c; - write (1, buf, 1); - } - else - { - stop_exit = ninStopWhy (&stop_code, - &ip_value, &fp_value, &sp_value); - if (!stop_exit && (stop_code == STOP_SRQ)) - { - immediate_quit++; - ninSrq (); - immediate_quit--; - } - else - { - /* Get out of loop */ - supply_register (IP_REGNUM, - (char *) &ip_value); - supply_register (FP_REGNUM, - (char *) &fp_value); - supply_register (SP_REGNUM, - (char *) &sp_value); - break; - } - } - } - - serial_set_tty_state (tty_args.serial, tty_args.state); - xfree (tty_args.state); - discard_cleanups (old_cleanups); - - if (stop_exit) - { - status->kind = TARGET_WAITKIND_EXITED; - status->value.integer = stop_code; - } - else - { - /* nindy has some special stop code need to be handled */ - if (stop_code == STOP_GDB_BPT) - stop_code = TRACE_STEP; - status->kind = TARGET_WAITKIND_STOPPED; - status->value.sig = i960_fault_to_signal (stop_code); - } - return inferior_ptid; -} - -/* Read the remote registers into the block REGS. */ - -/* This is the block that ninRegsGet and ninRegsPut handles. */ -struct nindy_regs -{ - char local_regs[16 * 4]; - char global_regs[16 * 4]; - char pcw_acw[2 * 4]; - char ip[4]; - char tcw[4]; - char fp_as_double[4 * 8]; -}; - -static void -nindy_fetch_registers (int regno) -{ - struct nindy_regs nindy_regs; - int regnum; - - immediate_quit++; - ninRegsGet ((char *) &nindy_regs); - immediate_quit--; - - memcpy (®isters[REGISTER_BYTE (R0_REGNUM)], nindy_regs.local_regs, 16 * 4); - memcpy (®isters[REGISTER_BYTE (G0_REGNUM)], nindy_regs.global_regs, 16 * 4); - memcpy (®isters[REGISTER_BYTE (PCW_REGNUM)], nindy_regs.pcw_acw, 2 * 4); - memcpy (®isters[REGISTER_BYTE (IP_REGNUM)], nindy_regs.ip, 1 * 4); - memcpy (®isters[REGISTER_BYTE (TCW_REGNUM)], nindy_regs.tcw, 1 * 4); - memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], nindy_regs.fp_as_double, 4 * 8); - - registers_fetched (); -} - -static void -nindy_prepare_to_store (void) -{ - /* Fetch all regs if they aren't already here. */ - read_register_bytes (0, NULL, REGISTER_BYTES); -} - -static void -nindy_store_registers (int regno) -{ - struct nindy_regs nindy_regs; - int regnum; - - memcpy (nindy_regs.local_regs, ®isters[REGISTER_BYTE (R0_REGNUM)], 16 * 4); - memcpy (nindy_regs.global_regs, ®isters[REGISTER_BYTE (G0_REGNUM)], 16 * 4); - memcpy (nindy_regs.pcw_acw, ®isters[REGISTER_BYTE (PCW_REGNUM)], 2 * 4); - memcpy (nindy_regs.ip, ®isters[REGISTER_BYTE (IP_REGNUM)], 1 * 4); - memcpy (nindy_regs.tcw, ®isters[REGISTER_BYTE (TCW_REGNUM)], 1 * 4); - memcpy (nindy_regs.fp_as_double, ®isters[REGISTER_BYTE (FP0_REGNUM)], 8 * 4); - - immediate_quit++; - ninRegsPut ((char *) &nindy_regs); - immediate_quit--; -} - -/* Copy LEN bytes to or from inferior's memory starting at MEMADDR - to debugger memory starting at MYADDR. Copy to inferior if - SHOULD_WRITE is nonzero. Returns the length copied. TARGET is - unused. */ - -int -nindy_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len, - int should_write, struct mem_attrib *attrib, - struct target_ops *target) -{ - int res; - - if (len <= 0) - return 0; - - if (should_write) - res = ninMemPut (memaddr, myaddr, len); - else - res = ninMemGet (memaddr, myaddr, len); - - return res; -} - -static void -nindy_create_inferior (char *execfile, char *args, char **env) -{ - int entry_pt; - int pid; - - if (args && *args) - error ("Can't pass arguments to remote NINDY process"); - - if (execfile == 0 || exec_bfd == 0) - error ("No executable file specified"); - - entry_pt = (int) bfd_get_start_address (exec_bfd); - - pid = 42; - - /* The "process" (board) is already stopped awaiting our commands, and - the program is already downloaded. We just set its PC and go. */ - - inferior_ptid = pid_to_ptid (pid); /* Needed for wait_for_inferior below */ - - clear_proceed_status (); - - /* Tell wait_for_inferior that we've started a new process. */ - init_wait_for_inferior (); - - /* Set up the "saved terminal modes" of the inferior - based on what modes we are starting it with. */ - target_terminal_init (); - - /* Install inferior's terminal modes. */ - target_terminal_inferior (); - - /* insert_step_breakpoint (); FIXME, do we need this? */ - /* Let 'er rip... */ - proceed ((CORE_ADDR) entry_pt, TARGET_SIGNAL_DEFAULT, 0); -} - -static void -reset_command (char *args, int from_tty) -{ - if (nindy_serial == NULL) - { - error ("No target system to reset -- use 'target nindy' command."); - } - if (query ("Really reset the target system?", 0, 0)) - { - serial_send_break (nindy_serial); - tty_flush (nindy_serial); - } -} - -void -nindy_kill (char *args, int from_tty) -{ - return; /* Ignore attempts to kill target system */ -} - -/* Clean up when a program exits. - - The program actually lives on in the remote processor's RAM, and may be - run again without a download. Don't leave it full of breakpoint - instructions. */ - -void -nindy_mourn_inferior (void) -{ - remove_breakpoints (); - unpush_target (&nindy_ops); - generic_mourn_inferior (); /* Do all the proper things now */ -} - -/* Pass the args the way catch_errors wants them. */ -static int -nindy_open_stub (char *arg) -{ - nindy_open (arg, 1); - return 1; -} - -static void -nindy_load (char *filename, int from_tty) -{ - asection *s; - /* Can't do unix style forking on a VMS system, so we'll use bfd to do - all the work for us - */ - - bfd *file = bfd_openr (filename, 0); - if (!file) - { - perror_with_name (filename); - return; - } - - if (!bfd_check_format (file, bfd_object)) - { - error ("can't prove it's an object file\n"); - return; - } - - for (s = file->sections; s; s = s->next) - { - if (s->flags & SEC_LOAD) - { - char *buffer = xmalloc (s->_raw_size); - bfd_get_section_contents (file, s, buffer, 0, s->_raw_size); - printf ("Loading section %s, size %x vma %x\n", - s->name, - s->_raw_size, - s->vma); - ninMemPut (s->vma, buffer, s->_raw_size); - xfree (buffer); - } - } - bfd_close (file); -} - -static int -load_stub (char *arg) -{ - target_load (arg, 1); - return 1; -} - -/* This routine is run as a hook, just before the main command loop is - entered. If gdb is configured for the i960, but has not had its - nindy target specified yet, this will loop prompting the user to do so. - - Unlike the loop provided by Intel, we actually let the user get out - of this with a RETURN. This is useful when e.g. simply examining - an i960 object file on the host system. */ - -void -nindy_before_main_loop (void) -{ - char ttyname[100]; - char *p, *p2; - - while (target_stack->target_ops != &nindy_ops) /* What is this crap??? */ - { /* remote tty not specified yet */ - if (instream == stdin) - { - printf_unfiltered ("\nAttach /dev/ttyNN -- specify NN, or \"quit\" to quit: "); - gdb_flush (gdb_stdout); - } - fgets (ttyname, sizeof (ttyname) - 1, stdin); - - /* Strip leading and trailing whitespace */ - for (p = ttyname; isspace (*p); p++) - { - ; - } - if (*p == '\0') - { - return; /* User just hit spaces or return, wants out */ - } - for (p2 = p; !isspace (*p2) && (*p2 != '\0'); p2++) - { - ; - } - *p2 = '\0'; - if (STREQ ("quit", p)) - { - exit (1); - } - - if (catch_errors (nindy_open_stub, p, "", RETURN_MASK_ALL)) - { - /* Now that we have a tty open for talking to the remote machine, - download the executable file if one was specified. */ - if (exec_bfd) - { - catch_errors (load_stub, bfd_get_filename (exec_bfd), "", - RETURN_MASK_ALL); - } - } - } -} - -/* Define the target subroutine names */ - -struct target_ops nindy_ops; - -static void -init_nindy_ops (void) -{ - nindy_ops.to_shortname = "nindy"; - "Remote serial target in i960 NINDY-specific protocol", - nindy_ops.to_longname = "Use a remote i960 system running NINDY connected by a serial line.\n\ -Specify the name of the device the serial line is connected to.\n\ -The speed (baud rate), whether to use the old NINDY protocol,\n\ -and whether to send a break on startup, are controlled by options\n\ -specified when you started GDB."; - nindy_ops.to_doc = ""; - nindy_ops.to_open = nindy_open; - nindy_ops.to_close = nindy_close; - nindy_ops.to_attach = 0; - nindy_ops.to_post_attach = NULL; - nindy_ops.to_require_attach = NULL; - nindy_ops.to_detach = nindy_detach; - nindy_ops.to_require_detach = NULL; - nindy_ops.to_resume = nindy_resume; - nindy_ops.to_wait = nindy_wait; - nindy_ops.to_post_wait = NULL; - nindy_ops.to_fetch_registers = nindy_fetch_registers; - nindy_ops.to_store_registers = nindy_store_registers; - nindy_ops.to_prepare_to_store = nindy_prepare_to_store; - nindy_ops.to_xfer_memory = nindy_xfer_inferior_memory; - nindy_ops.to_files_info = nindy_files_info; - nindy_ops.to_insert_breakpoint = memory_insert_breakpoint; - nindy_ops.to_remove_breakpoint = memory_remove_breakpoint; - nindy_ops.to_terminal_init = 0; - nindy_ops.to_terminal_inferior = 0; - nindy_ops.to_terminal_ours_for_output = 0; - nindy_ops.to_terminal_ours = 0; - nindy_ops.to_terminal_info = 0; /* Terminal crud */ - nindy_ops.to_kill = nindy_kill; - nindy_ops.to_load = nindy_load; - nindy_ops.to_lookup_symbol = 0; /* lookup_symbol */ - nindy_ops.to_create_inferior = nindy_create_inferior; - nindy_ops.to_post_startup_inferior = NULL; - nindy_ops.to_acknowledge_created_inferior = NULL; - nindy_ops.to_clone_and_follow_inferior = NULL; - nindy_ops.to_post_follow_inferior_by_clone = NULL; - nindy_ops.to_insert_fork_catchpoint = NULL; - nindy_ops.to_remove_fork_catchpoint = NULL; - nindy_ops.to_insert_vfork_catchpoint = NULL; - nindy_ops.to_remove_vfork_catchpoint = NULL; - nindy_ops.to_has_forked = NULL; - nindy_ops.to_has_vforked = NULL; - nindy_ops.to_can_follow_vfork_prior_to_exec = NULL; - nindy_ops.to_post_follow_vfork = NULL; - nindy_ops.to_insert_exec_catchpoint = NULL; - nindy_ops.to_remove_exec_catchpoint = NULL; - nindy_ops.to_has_execd = NULL; - nindy_ops.to_reported_exec_events_per_exec_call = NULL; - nindy_ops.to_has_exited = NULL; - nindy_ops.to_mourn_inferior = nindy_mourn_inferior; - nindy_ops.to_can_run = 0; /* can_run */ - nindy_ops.to_notice_signals = 0; /* notice_signals */ - nindy_ops.to_thread_alive = 0; /* to_thread_alive */ - nindy_ops.to_stop = 0; /* to_stop */ - nindy_ops.to_pid_to_exec_file = NULL; - nindy_ops.to_stratum = process_stratum; - nindy_ops.DONT_USE = 0; /* next */ - nindy_ops.to_has_all_memory = 1; - nindy_ops.to_has_memory = 1; - nindy_ops.to_has_stack = 1; - nindy_ops.to_has_registers = 1; - nindy_ops.to_has_execution = 1; /* all mem, mem, stack, regs, exec */ - nindy_ops.to_sections = 0; - nindy_ops.to_sections_end = 0; /* Section pointers */ - nindy_ops.to_magic = OPS_MAGIC; /* Always the last thing */ -} - -void -_initialize_nindy (void) -{ - init_nindy_ops (); - add_target (&nindy_ops); - add_com ("reset", class_obscure, reset_command, - "Send a 'break' to the remote target system.\n\ -Only useful if the target has been equipped with a circuit\n\ -to perform a hard reset when a break is detected."); -} +// OBSOLETE /* Memory-access and commands for remote NINDY process, for GDB. +// OBSOLETE +// OBSOLETE Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, +// OBSOLETE 2000, 2001, 2002 Free Software Foundation, Inc. +// OBSOLETE +// OBSOLETE Contributed by Intel Corporation. Modified from remote.c by Chris Benenati. +// OBSOLETE +// OBSOLETE GDB is distributed in the hope that it will be useful, but WITHOUT ANY +// OBSOLETE WARRANTY. No author or distributor accepts responsibility to anyone +// OBSOLETE for the consequences of using it or for whether it serves any +// OBSOLETE particular purpose or works at all, unless he says so in writing. +// OBSOLETE Refer to the GDB General Public License for full details. +// OBSOLETE +// OBSOLETE Everyone is granted permission to copy, modify and redistribute GDB, +// OBSOLETE but only under the conditions described in the GDB General Public +// OBSOLETE License. A copy of this license is supposed to have been given to you +// OBSOLETE along with GDB so you can know your rights and responsibilities. It +// OBSOLETE should be in a file named COPYING. Among other things, the copyright +// OBSOLETE notice and this notice must be preserved on all copies. +// OBSOLETE +// OBSOLETE In other words, go ahead and share GDB, but don't try to stop +// OBSOLETE anyone else from sharing it farther. Help stamp out software hoarding! */ +// OBSOLETE +// OBSOLETE /* +// OBSOLETE Except for the data cache routines, this file bears little resemblence +// OBSOLETE to remote.c. A new (although similar) protocol has been specified, and +// OBSOLETE portions of the code are entirely dependent on having an i80960 with a +// OBSOLETE NINDY ROM monitor at the other end of the line. +// OBSOLETE */ +// OBSOLETE +// OBSOLETE /***************************************************************************** +// OBSOLETE * +// OBSOLETE * REMOTE COMMUNICATION PROTOCOL BETWEEN GDB960 AND THE NINDY ROM MONITOR. +// OBSOLETE * +// OBSOLETE * +// OBSOLETE * MODES OF OPERATION +// OBSOLETE * ----- -- --------- +// OBSOLETE * +// OBSOLETE * As far as NINDY is concerned, GDB is always in one of two modes: command +// OBSOLETE * mode or passthrough mode. +// OBSOLETE * +// OBSOLETE * In command mode (the default) pre-defined packets containing requests +// OBSOLETE * are sent by GDB to NINDY. NINDY never talks except in reponse to a request. +// OBSOLETE * +// OBSOLETE * Once the the user program is started, GDB enters passthrough mode, to give +// OBSOLETE * the user program access to the terminal. GDB remains in this mode until +// OBSOLETE * NINDY indicates that the program has stopped. +// OBSOLETE * +// OBSOLETE * +// OBSOLETE * PASSTHROUGH MODE +// OBSOLETE * ----------- ---- +// OBSOLETE * +// OBSOLETE * GDB writes all input received from the keyboard directly to NINDY, and writes +// OBSOLETE * all characters received from NINDY directly to the monitor. +// OBSOLETE * +// OBSOLETE * Keyboard input is neither buffered nor echoed to the monitor. +// OBSOLETE * +// OBSOLETE * GDB remains in passthrough mode until NINDY sends a single ^P character, +// OBSOLETE * to indicate that the user process has stopped. +// OBSOLETE * +// OBSOLETE * Note: +// OBSOLETE * GDB assumes NINDY performs a 'flushreg' when the user program stops. +// OBSOLETE * +// OBSOLETE * +// OBSOLETE * COMMAND MODE +// OBSOLETE * ------- ---- +// OBSOLETE * +// OBSOLETE * All info (except for message ack and nak) is transferred between gdb +// OBSOLETE * and the remote processor in messages of the following format: +// OBSOLETE * +// OBSOLETE * <info>#<checksum> +// OBSOLETE * +// OBSOLETE * where +// OBSOLETE * # is a literal character +// OBSOLETE * +// OBSOLETE * <info> ASCII information; all numeric information is in the +// OBSOLETE * form of hex digits ('0'-'9' and lowercase 'a'-'f'). +// OBSOLETE * +// OBSOLETE * <checksum> +// OBSOLETE * is a pair of ASCII hex digits representing an 8-bit +// OBSOLETE * checksum formed by adding together each of the +// OBSOLETE * characters in <info>. +// OBSOLETE * +// OBSOLETE * The receiver of a message always sends a single character to the sender +// OBSOLETE * to indicate that the checksum was good ('+') or bad ('-'); the sender +// OBSOLETE * re-transmits the entire message over until a '+' is received. +// OBSOLETE * +// OBSOLETE * In response to a command NINDY always sends back either data or +// OBSOLETE * a result code of the form "Xnn", where "nn" are hex digits and "X00" +// OBSOLETE * means no errors. (Exceptions: the "s" and "c" commands don't respond.) +// OBSOLETE * +// OBSOLETE * SEE THE HEADER OF THE FILE "gdb.c" IN THE NINDY MONITOR SOURCE CODE FOR A +// OBSOLETE * FULL DESCRIPTION OF LEGAL COMMANDS. +// OBSOLETE * +// OBSOLETE * SEE THE FILE "stop.h" IN THE NINDY MONITOR SOURCE CODE FOR A LIST +// OBSOLETE * OF STOP CODES. +// OBSOLETE * +// OBSOLETE ***************************************************************************/ +// OBSOLETE +// OBSOLETE #include "defs.h" +// OBSOLETE #include <signal.h> +// OBSOLETE #include <sys/types.h> +// OBSOLETE #include <setjmp.h> +// OBSOLETE +// OBSOLETE #include "frame.h" +// OBSOLETE #include "inferior.h" +// OBSOLETE #include "bfd.h" +// OBSOLETE #include "symfile.h" +// OBSOLETE #include "target.h" +// OBSOLETE #include "gdbcore.h" +// OBSOLETE #include "command.h" +// OBSOLETE #include "floatformat.h" +// OBSOLETE #include "regcache.h" +// OBSOLETE +// OBSOLETE #include <sys/file.h> +// OBSOLETE #include <ctype.h> +// OBSOLETE #include "serial.h" +// OBSOLETE #include "nindy-share/env.h" +// OBSOLETE #include "nindy-share/stop.h" +// OBSOLETE #include "remote-utils.h" +// OBSOLETE +// OBSOLETE extern int unlink (); +// OBSOLETE extern char *getenv (); +// OBSOLETE extern char *mktemp (); +// OBSOLETE +// OBSOLETE extern void generic_mourn_inferior (); +// OBSOLETE +// OBSOLETE extern struct target_ops nindy_ops; +// OBSOLETE extern FILE *instream; +// OBSOLETE +// OBSOLETE extern char ninStopWhy (); +// OBSOLETE extern int ninMemGet (); +// OBSOLETE extern int ninMemPut (); +// OBSOLETE +// OBSOLETE int nindy_initial_brk; /* nonzero if want to send an initial BREAK to nindy */ +// OBSOLETE int nindy_old_protocol; /* nonzero if want to use old protocol */ +// OBSOLETE char *nindy_ttyname; /* name of tty to talk to nindy on, or null */ +// OBSOLETE +// OBSOLETE #define DLE '\020' /* Character NINDY sends to indicate user program has +// OBSOLETE * halted. */ +// OBSOLETE #define TRUE 1 +// OBSOLETE #define FALSE 0 +// OBSOLETE +// OBSOLETE /* From nindy-share/nindy.c. */ +// OBSOLETE extern struct serial *nindy_serial; +// OBSOLETE +// OBSOLETE static int have_regs = 0; /* 1 iff regs read since i960 last halted */ +// OBSOLETE static int regs_changed = 0; /* 1 iff regs were modified since last read */ +// OBSOLETE +// OBSOLETE extern char *exists (); +// OBSOLETE +// OBSOLETE static void nindy_fetch_registers (int); +// OBSOLETE +// OBSOLETE static void nindy_store_registers (int); +// OBSOLETE +// OBSOLETE static char *savename; +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nindy_close (int quitting) +// OBSOLETE { +// OBSOLETE if (nindy_serial != NULL) +// OBSOLETE serial_close (nindy_serial); +// OBSOLETE nindy_serial = NULL; +// OBSOLETE +// OBSOLETE if (savename) +// OBSOLETE xfree (savename); +// OBSOLETE savename = 0; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Open a connection to a remote debugger. +// OBSOLETE FIXME, there should be "set" commands for the options that are +// OBSOLETE now specified with gdb command-line options (old_protocol, +// OBSOLETE and initial_brk). */ +// OBSOLETE void +// OBSOLETE nindy_open (char *name, /* "/dev/ttyXX", "ttyXX", or "XX": tty to be opened */ +// OBSOLETE int from_tty) +// OBSOLETE { +// OBSOLETE char baudrate[1024]; +// OBSOLETE +// OBSOLETE if (!name) +// OBSOLETE error_no_arg ("serial port device name"); +// OBSOLETE +// OBSOLETE target_preopen (from_tty); +// OBSOLETE +// OBSOLETE nindy_close (0); +// OBSOLETE +// OBSOLETE have_regs = regs_changed = 0; +// OBSOLETE +// OBSOLETE /* Allow user to interrupt the following -- we could hang if there's +// OBSOLETE no NINDY at the other end of the remote tty. */ +// OBSOLETE immediate_quit++; +// OBSOLETE /* If baud_rate is -1, then ninConnect will not recognize the baud rate +// OBSOLETE and will deal with the situation in a (more or less) reasonable +// OBSOLETE fashion. */ +// OBSOLETE sprintf (baudrate, "%d", baud_rate); +// OBSOLETE ninConnect (name, baudrate, +// OBSOLETE nindy_initial_brk, !from_tty, nindy_old_protocol); +// OBSOLETE immediate_quit--; +// OBSOLETE +// OBSOLETE if (nindy_serial == NULL) +// OBSOLETE { +// OBSOLETE perror_with_name (name); +// OBSOLETE } +// OBSOLETE +// OBSOLETE savename = savestring (name, strlen (name)); +// OBSOLETE push_target (&nindy_ops); +// OBSOLETE +// OBSOLETE target_fetch_registers (-1); +// OBSOLETE +// OBSOLETE init_thread_list (); +// OBSOLETE init_wait_for_inferior (); +// OBSOLETE clear_proceed_status (); +// OBSOLETE normal_stop (); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* User-initiated quit of nindy operations. */ +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nindy_detach (char *name, int from_tty) +// OBSOLETE { +// OBSOLETE if (name) +// OBSOLETE error ("Too many arguments"); +// OBSOLETE pop_target (); +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nindy_files_info (void) +// OBSOLETE { +// OBSOLETE /* FIXME: this lies about the baud rate if we autobauded. */ +// OBSOLETE printf_unfiltered ("\tAttached to %s at %d bits per second%s%s.\n", savename, +// OBSOLETE baud_rate, +// OBSOLETE nindy_old_protocol ? " in old protocol" : "", +// OBSOLETE nindy_initial_brk ? " with initial break" : ""); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Return the number of characters in the buffer BUF before +// OBSOLETE the first DLE character. N is maximum number of characters to +// OBSOLETE consider. */ +// OBSOLETE +// OBSOLETE static +// OBSOLETE int +// OBSOLETE non_dle (char *buf, int n) +// OBSOLETE { +// OBSOLETE int i; +// OBSOLETE +// OBSOLETE for (i = 0; i < n; i++) +// OBSOLETE { +// OBSOLETE if (buf[i] == DLE) +// OBSOLETE { +// OBSOLETE break; +// OBSOLETE } +// OBSOLETE } +// OBSOLETE return i; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Tell the remote machine to resume. */ +// OBSOLETE +// OBSOLETE void +// OBSOLETE nindy_resume (ptid_t ptid, int step, enum target_signal siggnal) +// OBSOLETE { +// OBSOLETE if (siggnal != TARGET_SIGNAL_0 && siggnal != stop_signal) +// OBSOLETE warning ("Can't send signals to remote NINDY targets."); +// OBSOLETE +// OBSOLETE if (regs_changed) +// OBSOLETE { +// OBSOLETE nindy_store_registers (-1); +// OBSOLETE regs_changed = 0; +// OBSOLETE } +// OBSOLETE have_regs = 0; +// OBSOLETE ninGo (step); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* FIXME, we can probably use the normal terminal_inferior stuff here. +// OBSOLETE We have to do terminal_inferior and then set up the passthrough +// OBSOLETE settings initially. Thereafter, terminal_ours and terminal_inferior +// OBSOLETE will automatically swap the settings around for us. */ +// OBSOLETE +// OBSOLETE struct clean_up_tty_args +// OBSOLETE { +// OBSOLETE serial_ttystate state; +// OBSOLETE struct serial *serial; +// OBSOLETE }; +// OBSOLETE static struct clean_up_tty_args tty_args; +// OBSOLETE +// OBSOLETE static void +// OBSOLETE clean_up_tty (PTR ptrarg) +// OBSOLETE { +// OBSOLETE struct clean_up_tty_args *args = (struct clean_up_tty_args *) ptrarg; +// OBSOLETE serial_set_tty_state (args->serial, args->state); +// OBSOLETE xfree (args->state); +// OBSOLETE warning ("\n\nYou may need to reset the 80960 and/or reload your program.\n"); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Recover from ^Z or ^C while remote process is running */ +// OBSOLETE static void (*old_ctrlc) (); +// OBSOLETE #ifdef SIGTSTP +// OBSOLETE static void (*old_ctrlz) (); +// OBSOLETE #endif +// OBSOLETE +// OBSOLETE static void +// OBSOLETE clean_up_int (void) +// OBSOLETE { +// OBSOLETE serial_set_tty_state (tty_args.serial, tty_args.state); +// OBSOLETE xfree (tty_args.state); +// OBSOLETE +// OBSOLETE signal (SIGINT, old_ctrlc); +// OBSOLETE #ifdef SIGTSTP +// OBSOLETE signal (SIGTSTP, old_ctrlz); +// OBSOLETE #endif +// OBSOLETE error ("\n\nYou may need to reset the 80960 and/or reload your program.\n"); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Wait until the remote machine stops. While waiting, operate in passthrough +// OBSOLETE * mode; i.e., pass everything NINDY sends to gdb_stdout, and everything from +// OBSOLETE * stdin to NINDY. +// OBSOLETE * +// OBSOLETE * Return to caller, storing status in 'status' just as `wait' would. +// OBSOLETE */ +// OBSOLETE +// OBSOLETE static ptid_t +// OBSOLETE nindy_wait (ptid_t ptid, struct target_waitstatus *status) +// OBSOLETE { +// OBSOLETE fd_set fds; +// OBSOLETE int c; +// OBSOLETE char buf[2]; +// OBSOLETE int i, n; +// OBSOLETE unsigned char stop_exit; +// OBSOLETE unsigned char stop_code; +// OBSOLETE struct cleanup *old_cleanups; +// OBSOLETE long ip_value, fp_value, sp_value; /* Reg values from stop */ +// OBSOLETE +// OBSOLETE status->kind = TARGET_WAITKIND_EXITED; +// OBSOLETE status->value.integer = 0; +// OBSOLETE +// OBSOLETE /* OPERATE IN PASSTHROUGH MODE UNTIL NINDY SENDS A DLE CHARACTER */ +// OBSOLETE +// OBSOLETE /* Save current tty attributes, and restore them when done. */ +// OBSOLETE tty_args.serial = serial_fdopen (0); +// OBSOLETE tty_args.state = serial_get_tty_state (tty_args.serial); +// OBSOLETE old_ctrlc = signal (SIGINT, clean_up_int); +// OBSOLETE #ifdef SIGTSTP +// OBSOLETE old_ctrlz = signal (SIGTSTP, clean_up_int); +// OBSOLETE #endif +// OBSOLETE +// OBSOLETE old_cleanups = make_cleanup (clean_up_tty, &tty_args); +// OBSOLETE +// OBSOLETE /* Pass input from keyboard to NINDY as it arrives. NINDY will interpret +// OBSOLETE <CR> and perform echo. */ +// OBSOLETE /* This used to set CBREAK and clear ECHO and CRMOD. I hope this is close +// OBSOLETE enough. */ +// OBSOLETE serial_raw (tty_args.serial); +// OBSOLETE +// OBSOLETE while (1) +// OBSOLETE { +// OBSOLETE /* Input on remote */ +// OBSOLETE c = serial_readchar (nindy_serial, -1); +// OBSOLETE if (c == SERIAL_ERROR) +// OBSOLETE { +// OBSOLETE error ("Cannot read from serial line"); +// OBSOLETE } +// OBSOLETE else if (c == 0x1b) /* ESC */ +// OBSOLETE { +// OBSOLETE c = serial_readchar (nindy_serial, -1); +// OBSOLETE c &= ~0x40; +// OBSOLETE } +// OBSOLETE else if (c != 0x10) /* DLE */ +// OBSOLETE /* Write out any characters preceding DLE */ +// OBSOLETE { +// OBSOLETE buf[0] = (char) c; +// OBSOLETE write (1, buf, 1); +// OBSOLETE } +// OBSOLETE else +// OBSOLETE { +// OBSOLETE stop_exit = ninStopWhy (&stop_code, +// OBSOLETE &ip_value, &fp_value, &sp_value); +// OBSOLETE if (!stop_exit && (stop_code == STOP_SRQ)) +// OBSOLETE { +// OBSOLETE immediate_quit++; +// OBSOLETE ninSrq (); +// OBSOLETE immediate_quit--; +// OBSOLETE } +// OBSOLETE else +// OBSOLETE { +// OBSOLETE /* Get out of loop */ +// OBSOLETE supply_register (IP_REGNUM, +// OBSOLETE (char *) &ip_value); +// OBSOLETE supply_register (FP_REGNUM, +// OBSOLETE (char *) &fp_value); +// OBSOLETE supply_register (SP_REGNUM, +// OBSOLETE (char *) &sp_value); +// OBSOLETE break; +// OBSOLETE } +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE serial_set_tty_state (tty_args.serial, tty_args.state); +// OBSOLETE xfree (tty_args.state); +// OBSOLETE discard_cleanups (old_cleanups); +// OBSOLETE +// OBSOLETE if (stop_exit) +// OBSOLETE { +// OBSOLETE status->kind = TARGET_WAITKIND_EXITED; +// OBSOLETE status->value.integer = stop_code; +// OBSOLETE } +// OBSOLETE else +// OBSOLETE { +// OBSOLETE /* nindy has some special stop code need to be handled */ +// OBSOLETE if (stop_code == STOP_GDB_BPT) +// OBSOLETE stop_code = TRACE_STEP; +// OBSOLETE status->kind = TARGET_WAITKIND_STOPPED; +// OBSOLETE status->value.sig = i960_fault_to_signal (stop_code); +// OBSOLETE } +// OBSOLETE return inferior_ptid; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Read the remote registers into the block REGS. */ +// OBSOLETE +// OBSOLETE /* This is the block that ninRegsGet and ninRegsPut handles. */ +// OBSOLETE struct nindy_regs +// OBSOLETE { +// OBSOLETE char local_regs[16 * 4]; +// OBSOLETE char global_regs[16 * 4]; +// OBSOLETE char pcw_acw[2 * 4]; +// OBSOLETE char ip[4]; +// OBSOLETE char tcw[4]; +// OBSOLETE char fp_as_double[4 * 8]; +// OBSOLETE }; +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nindy_fetch_registers (int regno) +// OBSOLETE { +// OBSOLETE struct nindy_regs nindy_regs; +// OBSOLETE int regnum; +// OBSOLETE +// OBSOLETE immediate_quit++; +// OBSOLETE ninRegsGet ((char *) &nindy_regs); +// OBSOLETE immediate_quit--; +// OBSOLETE +// OBSOLETE memcpy (®isters[REGISTER_BYTE (R0_REGNUM)], nindy_regs.local_regs, 16 * 4); +// OBSOLETE memcpy (®isters[REGISTER_BYTE (G0_REGNUM)], nindy_regs.global_regs, 16 * 4); +// OBSOLETE memcpy (®isters[REGISTER_BYTE (PCW_REGNUM)], nindy_regs.pcw_acw, 2 * 4); +// OBSOLETE memcpy (®isters[REGISTER_BYTE (IP_REGNUM)], nindy_regs.ip, 1 * 4); +// OBSOLETE memcpy (®isters[REGISTER_BYTE (TCW_REGNUM)], nindy_regs.tcw, 1 * 4); +// OBSOLETE memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], nindy_regs.fp_as_double, 4 * 8); +// OBSOLETE +// OBSOLETE registers_fetched (); +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nindy_prepare_to_store (void) +// OBSOLETE { +// OBSOLETE /* Fetch all regs if they aren't already here. */ +// OBSOLETE read_register_bytes (0, NULL, REGISTER_BYTES); +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nindy_store_registers (int regno) +// OBSOLETE { +// OBSOLETE struct nindy_regs nindy_regs; +// OBSOLETE int regnum; +// OBSOLETE +// OBSOLETE memcpy (nindy_regs.local_regs, ®isters[REGISTER_BYTE (R0_REGNUM)], 16 * 4); +// OBSOLETE memcpy (nindy_regs.global_regs, ®isters[REGISTER_BYTE (G0_REGNUM)], 16 * 4); +// OBSOLETE memcpy (nindy_regs.pcw_acw, ®isters[REGISTER_BYTE (PCW_REGNUM)], 2 * 4); +// OBSOLETE memcpy (nindy_regs.ip, ®isters[REGISTER_BYTE (IP_REGNUM)], 1 * 4); +// OBSOLETE memcpy (nindy_regs.tcw, ®isters[REGISTER_BYTE (TCW_REGNUM)], 1 * 4); +// OBSOLETE memcpy (nindy_regs.fp_as_double, ®isters[REGISTER_BYTE (FP0_REGNUM)], 8 * 4); +// OBSOLETE +// OBSOLETE immediate_quit++; +// OBSOLETE ninRegsPut ((char *) &nindy_regs); +// OBSOLETE immediate_quit--; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Copy LEN bytes to or from inferior's memory starting at MEMADDR +// OBSOLETE to debugger memory starting at MYADDR. Copy to inferior if +// OBSOLETE SHOULD_WRITE is nonzero. Returns the length copied. TARGET is +// OBSOLETE unused. */ +// OBSOLETE +// OBSOLETE int +// OBSOLETE nindy_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len, +// OBSOLETE int should_write, struct mem_attrib *attrib, +// OBSOLETE struct target_ops *target) +// OBSOLETE { +// OBSOLETE int res; +// OBSOLETE +// OBSOLETE if (len <= 0) +// OBSOLETE return 0; +// OBSOLETE +// OBSOLETE if (should_write) +// OBSOLETE res = ninMemPut (memaddr, myaddr, len); +// OBSOLETE else +// OBSOLETE res = ninMemGet (memaddr, myaddr, len); +// OBSOLETE +// OBSOLETE return res; +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nindy_create_inferior (char *execfile, char *args, char **env) +// OBSOLETE { +// OBSOLETE int entry_pt; +// OBSOLETE int pid; +// OBSOLETE +// OBSOLETE if (args && *args) +// OBSOLETE error ("Can't pass arguments to remote NINDY process"); +// OBSOLETE +// OBSOLETE if (execfile == 0 || exec_bfd == 0) +// OBSOLETE error ("No executable file specified"); +// OBSOLETE +// OBSOLETE entry_pt = (int) bfd_get_start_address (exec_bfd); +// OBSOLETE +// OBSOLETE pid = 42; +// OBSOLETE +// OBSOLETE /* The "process" (board) is already stopped awaiting our commands, and +// OBSOLETE the program is already downloaded. We just set its PC and go. */ +// OBSOLETE +// OBSOLETE inferior_ptid = pid_to_ptid (pid); /* Needed for wait_for_inferior below */ +// OBSOLETE +// OBSOLETE clear_proceed_status (); +// OBSOLETE +// OBSOLETE /* Tell wait_for_inferior that we've started a new process. */ +// OBSOLETE init_wait_for_inferior (); +// OBSOLETE +// OBSOLETE /* Set up the "saved terminal modes" of the inferior +// OBSOLETE based on what modes we are starting it with. */ +// OBSOLETE target_terminal_init (); +// OBSOLETE +// OBSOLETE /* Install inferior's terminal modes. */ +// OBSOLETE target_terminal_inferior (); +// OBSOLETE +// OBSOLETE /* insert_step_breakpoint (); FIXME, do we need this? */ +// OBSOLETE /* Let 'er rip... */ +// OBSOLETE proceed ((CORE_ADDR) entry_pt, TARGET_SIGNAL_DEFAULT, 0); +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE reset_command (char *args, int from_tty) +// OBSOLETE { +// OBSOLETE if (nindy_serial == NULL) +// OBSOLETE { +// OBSOLETE error ("No target system to reset -- use 'target nindy' command."); +// OBSOLETE } +// OBSOLETE if (query ("Really reset the target system?", 0, 0)) +// OBSOLETE { +// OBSOLETE serial_send_break (nindy_serial); +// OBSOLETE tty_flush (nindy_serial); +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE void +// OBSOLETE nindy_kill (char *args, int from_tty) +// OBSOLETE { +// OBSOLETE return; /* Ignore attempts to kill target system */ +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Clean up when a program exits. +// OBSOLETE +// OBSOLETE The program actually lives on in the remote processor's RAM, and may be +// OBSOLETE run again without a download. Don't leave it full of breakpoint +// OBSOLETE instructions. */ +// OBSOLETE +// OBSOLETE void +// OBSOLETE nindy_mourn_inferior (void) +// OBSOLETE { +// OBSOLETE remove_breakpoints (); +// OBSOLETE unpush_target (&nindy_ops); +// OBSOLETE generic_mourn_inferior (); /* Do all the proper things now */ +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Pass the args the way catch_errors wants them. */ +// OBSOLETE static int +// OBSOLETE nindy_open_stub (char *arg) +// OBSOLETE { +// OBSOLETE nindy_open (arg, 1); +// OBSOLETE return 1; +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nindy_load (char *filename, int from_tty) +// OBSOLETE { +// OBSOLETE asection *s; +// OBSOLETE /* Can't do unix style forking on a VMS system, so we'll use bfd to do +// OBSOLETE all the work for us +// OBSOLETE */ +// OBSOLETE +// OBSOLETE bfd *file = bfd_openr (filename, 0); +// OBSOLETE if (!file) +// OBSOLETE { +// OBSOLETE perror_with_name (filename); +// OBSOLETE return; +// OBSOLETE } +// OBSOLETE +// OBSOLETE if (!bfd_check_format (file, bfd_object)) +// OBSOLETE { +// OBSOLETE error ("can't prove it's an object file\n"); +// OBSOLETE return; +// OBSOLETE } +// OBSOLETE +// OBSOLETE for (s = file->sections; s; s = s->next) +// OBSOLETE { +// OBSOLETE if (s->flags & SEC_LOAD) +// OBSOLETE { +// OBSOLETE char *buffer = xmalloc (s->_raw_size); +// OBSOLETE bfd_get_section_contents (file, s, buffer, 0, s->_raw_size); +// OBSOLETE printf ("Loading section %s, size %x vma %x\n", +// OBSOLETE s->name, +// OBSOLETE s->_raw_size, +// OBSOLETE s->vma); +// OBSOLETE ninMemPut (s->vma, buffer, s->_raw_size); +// OBSOLETE xfree (buffer); +// OBSOLETE } +// OBSOLETE } +// OBSOLETE bfd_close (file); +// OBSOLETE } +// OBSOLETE +// OBSOLETE static int +// OBSOLETE load_stub (char *arg) +// OBSOLETE { +// OBSOLETE target_load (arg, 1); +// OBSOLETE return 1; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* This routine is run as a hook, just before the main command loop is +// OBSOLETE entered. If gdb is configured for the i960, but has not had its +// OBSOLETE nindy target specified yet, this will loop prompting the user to do so. +// OBSOLETE +// OBSOLETE Unlike the loop provided by Intel, we actually let the user get out +// OBSOLETE of this with a RETURN. This is useful when e.g. simply examining +// OBSOLETE an i960 object file on the host system. */ +// OBSOLETE +// OBSOLETE void +// OBSOLETE nindy_before_main_loop (void) +// OBSOLETE { +// OBSOLETE char ttyname[100]; +// OBSOLETE char *p, *p2; +// OBSOLETE +// OBSOLETE while (target_stack->target_ops != &nindy_ops) /* What is this crap??? */ +// OBSOLETE { /* remote tty not specified yet */ +// OBSOLETE if (instream == stdin) +// OBSOLETE { +// OBSOLETE printf_unfiltered ("\nAttach /dev/ttyNN -- specify NN, or \"quit\" to quit: "); +// OBSOLETE gdb_flush (gdb_stdout); +// OBSOLETE } +// OBSOLETE fgets (ttyname, sizeof (ttyname) - 1, stdin); +// OBSOLETE +// OBSOLETE /* Strip leading and trailing whitespace */ +// OBSOLETE for (p = ttyname; isspace (*p); p++) +// OBSOLETE { +// OBSOLETE ; +// OBSOLETE } +// OBSOLETE if (*p == '\0') +// OBSOLETE { +// OBSOLETE return; /* User just hit spaces or return, wants out */ +// OBSOLETE } +// OBSOLETE for (p2 = p; !isspace (*p2) && (*p2 != '\0'); p2++) +// OBSOLETE { +// OBSOLETE ; +// OBSOLETE } +// OBSOLETE *p2 = '\0'; +// OBSOLETE if (STREQ ("quit", p)) +// OBSOLETE { +// OBSOLETE exit (1); +// OBSOLETE } +// OBSOLETE +// OBSOLETE if (catch_errors (nindy_open_stub, p, "", RETURN_MASK_ALL)) +// OBSOLETE { +// OBSOLETE /* Now that we have a tty open for talking to the remote machine, +// OBSOLETE download the executable file if one was specified. */ +// OBSOLETE if (exec_bfd) +// OBSOLETE { +// OBSOLETE catch_errors (load_stub, bfd_get_filename (exec_bfd), "", +// OBSOLETE RETURN_MASK_ALL); +// OBSOLETE } +// OBSOLETE } +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Define the target subroutine names */ +// OBSOLETE +// OBSOLETE struct target_ops nindy_ops; +// OBSOLETE +// OBSOLETE static void +// OBSOLETE init_nindy_ops (void) +// OBSOLETE { +// OBSOLETE nindy_ops.to_shortname = "nindy"; +// OBSOLETE "Remote serial target in i960 NINDY-specific protocol", +// OBSOLETE nindy_ops.to_longname = "Use a remote i960 system running NINDY connected by a serial line.\n\ +// OBSOLETE Specify the name of the device the serial line is connected to.\n\ +// OBSOLETE The speed (baud rate), whether to use the old NINDY protocol,\n\ +// OBSOLETE and whether to send a break on startup, are controlled by options\n\ +// OBSOLETE specified when you started GDB."; +// OBSOLETE nindy_ops.to_doc = ""; +// OBSOLETE nindy_ops.to_open = nindy_open; +// OBSOLETE nindy_ops.to_close = nindy_close; +// OBSOLETE nindy_ops.to_attach = 0; +// OBSOLETE nindy_ops.to_post_attach = NULL; +// OBSOLETE nindy_ops.to_require_attach = NULL; +// OBSOLETE nindy_ops.to_detach = nindy_detach; +// OBSOLETE nindy_ops.to_require_detach = NULL; +// OBSOLETE nindy_ops.to_resume = nindy_resume; +// OBSOLETE nindy_ops.to_wait = nindy_wait; +// OBSOLETE nindy_ops.to_post_wait = NULL; +// OBSOLETE nindy_ops.to_fetch_registers = nindy_fetch_registers; +// OBSOLETE nindy_ops.to_store_registers = nindy_store_registers; +// OBSOLETE nindy_ops.to_prepare_to_store = nindy_prepare_to_store; +// OBSOLETE nindy_ops.to_xfer_memory = nindy_xfer_inferior_memory; +// OBSOLETE nindy_ops.to_files_info = nindy_files_info; +// OBSOLETE nindy_ops.to_insert_breakpoint = memory_insert_breakpoint; +// OBSOLETE nindy_ops.to_remove_breakpoint = memory_remove_breakpoint; +// OBSOLETE nindy_ops.to_terminal_init = 0; +// OBSOLETE nindy_ops.to_terminal_inferior = 0; +// OBSOLETE nindy_ops.to_terminal_ours_for_output = 0; +// OBSOLETE nindy_ops.to_terminal_ours = 0; +// OBSOLETE nindy_ops.to_terminal_info = 0; /* Terminal crud */ +// OBSOLETE nindy_ops.to_kill = nindy_kill; +// OBSOLETE nindy_ops.to_load = nindy_load; +// OBSOLETE nindy_ops.to_lookup_symbol = 0; /* lookup_symbol */ +// OBSOLETE nindy_ops.to_create_inferior = nindy_create_inferior; +// OBSOLETE nindy_ops.to_post_startup_inferior = NULL; +// OBSOLETE nindy_ops.to_acknowledge_created_inferior = NULL; +// OBSOLETE nindy_ops.to_clone_and_follow_inferior = NULL; +// OBSOLETE nindy_ops.to_post_follow_inferior_by_clone = NULL; +// OBSOLETE nindy_ops.to_insert_fork_catchpoint = NULL; +// OBSOLETE nindy_ops.to_remove_fork_catchpoint = NULL; +// OBSOLETE nindy_ops.to_insert_vfork_catchpoint = NULL; +// OBSOLETE nindy_ops.to_remove_vfork_catchpoint = NULL; +// OBSOLETE nindy_ops.to_has_forked = NULL; +// OBSOLETE nindy_ops.to_has_vforked = NULL; +// OBSOLETE nindy_ops.to_can_follow_vfork_prior_to_exec = NULL; +// OBSOLETE nindy_ops.to_post_follow_vfork = NULL; +// OBSOLETE nindy_ops.to_insert_exec_catchpoint = NULL; +// OBSOLETE nindy_ops.to_remove_exec_catchpoint = NULL; +// OBSOLETE nindy_ops.to_has_execd = NULL; +// OBSOLETE nindy_ops.to_reported_exec_events_per_exec_call = NULL; +// OBSOLETE nindy_ops.to_has_exited = NULL; +// OBSOLETE nindy_ops.to_mourn_inferior = nindy_mourn_inferior; +// OBSOLETE nindy_ops.to_can_run = 0; /* can_run */ +// OBSOLETE nindy_ops.to_notice_signals = 0; /* notice_signals */ +// OBSOLETE nindy_ops.to_thread_alive = 0; /* to_thread_alive */ +// OBSOLETE nindy_ops.to_stop = 0; /* to_stop */ +// OBSOLETE nindy_ops.to_pid_to_exec_file = NULL; +// OBSOLETE nindy_ops.to_stratum = process_stratum; +// OBSOLETE nindy_ops.DONT_USE = 0; /* next */ +// OBSOLETE nindy_ops.to_has_all_memory = 1; +// OBSOLETE nindy_ops.to_has_memory = 1; +// OBSOLETE nindy_ops.to_has_stack = 1; +// OBSOLETE nindy_ops.to_has_registers = 1; +// OBSOLETE nindy_ops.to_has_execution = 1; /* all mem, mem, stack, regs, exec */ +// OBSOLETE nindy_ops.to_sections = 0; +// OBSOLETE nindy_ops.to_sections_end = 0; /* Section pointers */ +// OBSOLETE nindy_ops.to_magic = OPS_MAGIC; /* Always the last thing */ +// OBSOLETE } +// OBSOLETE +// OBSOLETE void +// OBSOLETE _initialize_nindy (void) +// OBSOLETE { +// OBSOLETE init_nindy_ops (); +// OBSOLETE add_target (&nindy_ops); +// OBSOLETE add_com ("reset", class_obscure, reset_command, +// OBSOLETE "Send a 'break' to the remote target system.\n\ +// OBSOLETE Only useful if the target has been equipped with a circuit\n\ +// OBSOLETE to perform a hard reset when a break is detected."); +// OBSOLETE } diff --git a/gdb/remote-nrom.c b/gdb/remote-nrom.c index 436c3d2..31336b6 100644 --- a/gdb/remote-nrom.c +++ b/gdb/remote-nrom.c @@ -1,351 +1,351 @@ -/* Remote debugging with the XLNT Designs, Inc (XDI) NetROM. - Copyright 1990, 1991, 1992, 1995, 1998, 1999, 2000 - Free Software Foundation, Inc. - Contributed by: - Roger Moyers - XLNT Designs, Inc. - 15050 Avenue of Science, Suite 106 - San Diego, CA 92128 - (619)487-9320 - roger@xlnt.com - Adapted from work done at Cygnus Support in remote-nindy.c, - later merged in by Stan Shebs at Cygnus. - - 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 "gdbcmd.h" -#include "serial.h" -#include "target.h" - -/* Default ports used to talk with the NetROM. */ - -#define DEFAULT_NETROM_LOAD_PORT 1236 -#define DEFAULT_NETROM_CONTROL_PORT 1237 - -static void nrom_close (int quitting); - -/* New commands. */ - -static void nrom_passthru (char *, int); - -/* We talk to the NetROM over these sockets. */ - -static struct serial *load_desc = NULL; -static struct serial *ctrl_desc = NULL; - -static int load_port = DEFAULT_NETROM_LOAD_PORT; -static int control_port = DEFAULT_NETROM_CONTROL_PORT; - -static char nrom_hostname[100]; - -/* Forward data declaration. */ - -extern struct target_ops nrom_ops; - -/* Scan input from the remote system, until STRING is found. Print chars that - don't match. */ - -static int -expect (char *string) -{ - char *p = string; - int c; - - immediate_quit++; - - while (1) - { - c = serial_readchar (ctrl_desc, 5); - - if (c == *p++) - { - if (*p == '\0') - { - immediate_quit--; - return 0; - } - } - else - { - fputc_unfiltered (c, gdb_stdout); - p = string; - if (c == *p) - p++; - } - } -} - -static void -nrom_kill (void) -{ - nrom_close (0); -} - -static struct serial * -open_socket (char *name, int port) -{ - char sockname[100]; - struct serial *desc; - - sprintf (sockname, "%s:%d", name, port); - desc = serial_open (sockname); - if (!desc) - perror_with_name (sockname); - - return desc; -} - -static void -load_cleanup (void) -{ - serial_close (load_desc); - load_desc = NULL; -} - -/* Download a file specified in ARGS to the netROM. */ - -static void -nrom_load (char *args, int fromtty) -{ - int fd, rd_amt, fsize; - bfd *pbfd; - asection *section; - char *downloadstring = "download 0\n"; - struct cleanup *old_chain; - - /* Tell the netrom to get ready to download. */ - if (serial_write (ctrl_desc, downloadstring, strlen (downloadstring))) - error ("nrom_load: control_send() of `%s' failed", downloadstring); - - expect ("Waiting for a connection...\n"); - - load_desc = open_socket (nrom_hostname, load_port); - - old_chain = make_cleanup (load_cleanup, 0); - - pbfd = bfd_openr (args, 0); - - if (pbfd) - { - make_cleanup (bfd_close, pbfd); - - if (!bfd_check_format (pbfd, bfd_object)) - error ("\"%s\": not in executable format: %s", - args, bfd_errmsg (bfd_get_error ())); - - for (section = pbfd->sections; section; section = section->next) - { - if (bfd_get_section_flags (pbfd, section) & SEC_ALLOC) - { - bfd_vma section_address; - unsigned long section_size; - const char *section_name; - - section_name = bfd_get_section_name (pbfd, section); - section_address = bfd_get_section_vma (pbfd, section); - section_size = bfd_section_size (pbfd, section); - - if (bfd_get_section_flags (pbfd, section) & SEC_LOAD) - { - file_ptr fptr; - - printf_filtered ("[Loading section %s at %x (%d bytes)]\n", - section_name, section_address, - section_size); - - fptr = 0; - - while (section_size > 0) - { - char buffer[1024]; - int count; - - count = min (section_size, 1024); - - bfd_get_section_contents (pbfd, section, buffer, fptr, - count); - - serial_write (load_desc, buffer, count); - section_address += count; - fptr += count; - section_size -= count; - } - } - else - /* BSS and such */ - { - printf_filtered ("[section %s: not loading]\n", - section_name); - } - } - } - } - else - error ("\"%s\": Could not open", args); - - do_cleanups (old_chain); -} - -/* Open a connection to the remote NetROM devices. */ - -static void -nrom_open (char *name, int from_tty) -{ - int errn; - - if (!name || strchr (name, '/') || strchr (name, ':')) - error ( - "To open a NetROM connection, you must specify the hostname\n\ -or IP address of the NetROM device you wish to use."); - - strcpy (nrom_hostname, name); - - target_preopen (from_tty); - - unpush_target (&nrom_ops); - - ctrl_desc = open_socket (nrom_hostname, control_port); - - push_target (&nrom_ops); - - if (from_tty) - printf_filtered ("Connected to NetROM device \"%s\"\n", nrom_hostname); -} - -/* Close out all files and local state before this target loses control. */ - -static void -nrom_close (int quitting) -{ - if (load_desc) - serial_close (load_desc); - if (ctrl_desc) - serial_close (ctrl_desc); -} - -/* Pass arguments directly to the NetROM. */ - -static void -nrom_passthru (char *args, int fromtty) -{ - char buf[1024]; - - sprintf (buf, "%s\n", args); - if (serial_write (ctrl_desc, buf, strlen (buf))) - error ("nrom_reset: control_send() of `%s'failed", args); -} - -static void -nrom_mourn (void) -{ - unpush_target (&nrom_ops); - generic_mourn_inferior (); -} - -/* Define the target vector. */ - -struct target_ops nrom_ops; - -static void -init_nrom_ops (void) -{ - nrom_ops.to_shortname = "nrom"; - nrom_ops.to_longname = "Remote XDI `NetROM' target"; - nrom_ops.to_doc = "Remote debug using a NetROM over Ethernet"; - nrom_ops.to_open = nrom_open; - nrom_ops.to_close = nrom_close; - nrom_ops.to_attach = NULL; - nrom_ops.to_post_attach = NULL; - nrom_ops.to_require_attach = NULL; - nrom_ops.to_detach = NULL; - nrom_ops.to_require_detach = NULL; - nrom_ops.to_resume = NULL; - nrom_ops.to_wait = NULL; - nrom_ops.to_post_wait = NULL; - nrom_ops.to_fetch_registers = NULL; - nrom_ops.to_store_registers = NULL; - nrom_ops.to_prepare_to_store = NULL; - nrom_ops.to_xfer_memory = NULL; - nrom_ops.to_files_info = NULL; - nrom_ops.to_insert_breakpoint = NULL; - nrom_ops.to_remove_breakpoint = NULL; - nrom_ops.to_terminal_init = NULL; - nrom_ops.to_terminal_inferior = NULL; - nrom_ops.to_terminal_ours_for_output = NULL; - nrom_ops.to_terminal_ours = NULL; - nrom_ops.to_terminal_info = NULL; - nrom_ops.to_kill = nrom_kill; - nrom_ops.to_load = nrom_load; - nrom_ops.to_lookup_symbol = NULL; - nrom_ops.to_create_inferior = NULL; - nrom_ops.to_post_startup_inferior = NULL; - nrom_ops.to_acknowledge_created_inferior = NULL; - nrom_ops.to_clone_and_follow_inferior = NULL; - nrom_ops.to_post_follow_inferior_by_clone = NULL; - nrom_ops.to_insert_fork_catchpoint = NULL; - nrom_ops.to_remove_fork_catchpoint = NULL; - nrom_ops.to_insert_vfork_catchpoint = NULL; - nrom_ops.to_remove_vfork_catchpoint = NULL; - nrom_ops.to_has_forked = NULL; - nrom_ops.to_has_vforked = NULL; - nrom_ops.to_can_follow_vfork_prior_to_exec = NULL; - nrom_ops.to_post_follow_vfork = NULL; - nrom_ops.to_insert_exec_catchpoint = NULL; - nrom_ops.to_remove_exec_catchpoint = NULL; - nrom_ops.to_has_execd = NULL; - nrom_ops.to_reported_exec_events_per_exec_call = NULL; - nrom_ops.to_has_exited = NULL; - nrom_ops.to_mourn_inferior = nrom_mourn; - nrom_ops.to_can_run = NULL; - nrom_ops.to_notice_signals = 0; - nrom_ops.to_thread_alive = 0; - nrom_ops.to_stop = 0; - nrom_ops.to_pid_to_exec_file = NULL; - nrom_ops.to_stratum = download_stratum; - nrom_ops.DONT_USE = NULL; - nrom_ops.to_has_all_memory = 1; - nrom_ops.to_has_memory = 1; - nrom_ops.to_has_stack = 1; - nrom_ops.to_has_registers = 1; - nrom_ops.to_has_execution = 0; - nrom_ops.to_sections = NULL; - nrom_ops.to_sections_end = NULL; - nrom_ops.to_magic = OPS_MAGIC; -} - -void -_initialize_remote_nrom (void) -{ - init_nrom_ops (); - add_target (&nrom_ops); - - add_show_from_set ( - add_set_cmd ("nrom_load_port", no_class, var_zinteger, (char *) &load_port, - "Set the port to use for NetROM downloads\n", &setlist), - &showlist); - - add_show_from_set ( - add_set_cmd ("nrom_control_port", no_class, var_zinteger, (char *) &control_port, - "Set the port to use for NetROM debugger services\n", &setlist), - &showlist); - - add_cmd ("nrom", no_class, nrom_passthru, - "Pass arguments as command to NetROM", - &cmdlist); -} +// OBSOLETE /* Remote debugging with the XLNT Designs, Inc (XDI) NetROM. +// OBSOLETE Copyright 1990, 1991, 1992, 1995, 1998, 1999, 2000 +// OBSOLETE Free Software Foundation, Inc. +// OBSOLETE Contributed by: +// OBSOLETE Roger Moyers +// OBSOLETE XLNT Designs, Inc. +// OBSOLETE 15050 Avenue of Science, Suite 106 +// OBSOLETE San Diego, CA 92128 +// OBSOLETE (619)487-9320 +// OBSOLETE roger@xlnt.com +// OBSOLETE Adapted from work done at Cygnus Support in remote-nindy.c, +// OBSOLETE later merged in by Stan Shebs at Cygnus. +// OBSOLETE +// OBSOLETE This file is part of GDB. +// OBSOLETE +// OBSOLETE This program is free software; you can redistribute it and/or modify +// OBSOLETE it under the terms of the GNU General Public License as published by +// OBSOLETE the Free Software Foundation; either version 2 of the License, or +// OBSOLETE (at your option) any later version. +// OBSOLETE +// OBSOLETE This program is distributed in the hope that it will be useful, +// OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of +// OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// OBSOLETE GNU General Public License for more details. +// OBSOLETE +// OBSOLETE You should have received a copy of the GNU General Public License +// OBSOLETE along with this program; if not, write to the Free Software +// OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, +// OBSOLETE Boston, MA 02111-1307, USA. */ +// OBSOLETE +// OBSOLETE #include "defs.h" +// OBSOLETE #include "gdbcmd.h" +// OBSOLETE #include "serial.h" +// OBSOLETE #include "target.h" +// OBSOLETE +// OBSOLETE /* Default ports used to talk with the NetROM. */ +// OBSOLETE +// OBSOLETE #define DEFAULT_NETROM_LOAD_PORT 1236 +// OBSOLETE #define DEFAULT_NETROM_CONTROL_PORT 1237 +// OBSOLETE +// OBSOLETE static void nrom_close (int quitting); +// OBSOLETE +// OBSOLETE /* New commands. */ +// OBSOLETE +// OBSOLETE static void nrom_passthru (char *, int); +// OBSOLETE +// OBSOLETE /* We talk to the NetROM over these sockets. */ +// OBSOLETE +// OBSOLETE static struct serial *load_desc = NULL; +// OBSOLETE static struct serial *ctrl_desc = NULL; +// OBSOLETE +// OBSOLETE static int load_port = DEFAULT_NETROM_LOAD_PORT; +// OBSOLETE static int control_port = DEFAULT_NETROM_CONTROL_PORT; +// OBSOLETE +// OBSOLETE static char nrom_hostname[100]; +// OBSOLETE +// OBSOLETE /* Forward data declaration. */ +// OBSOLETE +// OBSOLETE extern struct target_ops nrom_ops; +// OBSOLETE +// OBSOLETE /* Scan input from the remote system, until STRING is found. Print chars that +// OBSOLETE don't match. */ +// OBSOLETE +// OBSOLETE static int +// OBSOLETE expect (char *string) +// OBSOLETE { +// OBSOLETE char *p = string; +// OBSOLETE int c; +// OBSOLETE +// OBSOLETE immediate_quit++; +// OBSOLETE +// OBSOLETE while (1) +// OBSOLETE { +// OBSOLETE c = serial_readchar (ctrl_desc, 5); +// OBSOLETE +// OBSOLETE if (c == *p++) +// OBSOLETE { +// OBSOLETE if (*p == '\0') +// OBSOLETE { +// OBSOLETE immediate_quit--; +// OBSOLETE return 0; +// OBSOLETE } +// OBSOLETE } +// OBSOLETE else +// OBSOLETE { +// OBSOLETE fputc_unfiltered (c, gdb_stdout); +// OBSOLETE p = string; +// OBSOLETE if (c == *p) +// OBSOLETE p++; +// OBSOLETE } +// OBSOLETE } +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nrom_kill (void) +// OBSOLETE { +// OBSOLETE nrom_close (0); +// OBSOLETE } +// OBSOLETE +// OBSOLETE static struct serial * +// OBSOLETE open_socket (char *name, int port) +// OBSOLETE { +// OBSOLETE char sockname[100]; +// OBSOLETE struct serial *desc; +// OBSOLETE +// OBSOLETE sprintf (sockname, "%s:%d", name, port); +// OBSOLETE desc = serial_open (sockname); +// OBSOLETE if (!desc) +// OBSOLETE perror_with_name (sockname); +// OBSOLETE +// OBSOLETE return desc; +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE load_cleanup (void) +// OBSOLETE { +// OBSOLETE serial_close (load_desc); +// OBSOLETE load_desc = NULL; +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Download a file specified in ARGS to the netROM. */ +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nrom_load (char *args, int fromtty) +// OBSOLETE { +// OBSOLETE int fd, rd_amt, fsize; +// OBSOLETE bfd *pbfd; +// OBSOLETE asection *section; +// OBSOLETE char *downloadstring = "download 0\n"; +// OBSOLETE struct cleanup *old_chain; +// OBSOLETE +// OBSOLETE /* Tell the netrom to get ready to download. */ +// OBSOLETE if (serial_write (ctrl_desc, downloadstring, strlen (downloadstring))) +// OBSOLETE error ("nrom_load: control_send() of `%s' failed", downloadstring); +// OBSOLETE +// OBSOLETE expect ("Waiting for a connection...\n"); +// OBSOLETE +// OBSOLETE load_desc = open_socket (nrom_hostname, load_port); +// OBSOLETE +// OBSOLETE old_chain = make_cleanup (load_cleanup, 0); +// OBSOLETE +// OBSOLETE pbfd = bfd_openr (args, 0); +// OBSOLETE +// OBSOLETE if (pbfd) +// OBSOLETE { +// OBSOLETE make_cleanup (bfd_close, pbfd); +// OBSOLETE +// OBSOLETE if (!bfd_check_format (pbfd, bfd_object)) +// OBSOLETE error ("\"%s\": not in executable format: %s", +// OBSOLETE args, bfd_errmsg (bfd_get_error ())); +// OBSOLETE +// OBSOLETE for (section = pbfd->sections; section; section = section->next) +// OBSOLETE { +// OBSOLETE if (bfd_get_section_flags (pbfd, section) & SEC_ALLOC) +// OBSOLETE { +// OBSOLETE bfd_vma section_address; +// OBSOLETE unsigned long section_size; +// OBSOLETE const char *section_name; +// OBSOLETE +// OBSOLETE section_name = bfd_get_section_name (pbfd, section); +// OBSOLETE section_address = bfd_get_section_vma (pbfd, section); +// OBSOLETE section_size = bfd_section_size (pbfd, section); +// OBSOLETE +// OBSOLETE if (bfd_get_section_flags (pbfd, section) & SEC_LOAD) +// OBSOLETE { +// OBSOLETE file_ptr fptr; +// OBSOLETE +// OBSOLETE printf_filtered ("[Loading section %s at %x (%d bytes)]\n", +// OBSOLETE section_name, section_address, +// OBSOLETE section_size); +// OBSOLETE +// OBSOLETE fptr = 0; +// OBSOLETE +// OBSOLETE while (section_size > 0) +// OBSOLETE { +// OBSOLETE char buffer[1024]; +// OBSOLETE int count; +// OBSOLETE +// OBSOLETE count = min (section_size, 1024); +// OBSOLETE +// OBSOLETE bfd_get_section_contents (pbfd, section, buffer, fptr, +// OBSOLETE count); +// OBSOLETE +// OBSOLETE serial_write (load_desc, buffer, count); +// OBSOLETE section_address += count; +// OBSOLETE fptr += count; +// OBSOLETE section_size -= count; +// OBSOLETE } +// OBSOLETE } +// OBSOLETE else +// OBSOLETE /* BSS and such */ +// OBSOLETE { +// OBSOLETE printf_filtered ("[section %s: not loading]\n", +// OBSOLETE section_name); +// OBSOLETE } +// OBSOLETE } +// OBSOLETE } +// OBSOLETE } +// OBSOLETE else +// OBSOLETE error ("\"%s\": Could not open", args); +// OBSOLETE +// OBSOLETE do_cleanups (old_chain); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Open a connection to the remote NetROM devices. */ +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nrom_open (char *name, int from_tty) +// OBSOLETE { +// OBSOLETE int errn; +// OBSOLETE +// OBSOLETE if (!name || strchr (name, '/') || strchr (name, ':')) +// OBSOLETE error ( +// OBSOLETE "To open a NetROM connection, you must specify the hostname\n\ +// OBSOLETE or IP address of the NetROM device you wish to use."); +// OBSOLETE +// OBSOLETE strcpy (nrom_hostname, name); +// OBSOLETE +// OBSOLETE target_preopen (from_tty); +// OBSOLETE +// OBSOLETE unpush_target (&nrom_ops); +// OBSOLETE +// OBSOLETE ctrl_desc = open_socket (nrom_hostname, control_port); +// OBSOLETE +// OBSOLETE push_target (&nrom_ops); +// OBSOLETE +// OBSOLETE if (from_tty) +// OBSOLETE printf_filtered ("Connected to NetROM device \"%s\"\n", nrom_hostname); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Close out all files and local state before this target loses control. */ +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nrom_close (int quitting) +// OBSOLETE { +// OBSOLETE if (load_desc) +// OBSOLETE serial_close (load_desc); +// OBSOLETE if (ctrl_desc) +// OBSOLETE serial_close (ctrl_desc); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Pass arguments directly to the NetROM. */ +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nrom_passthru (char *args, int fromtty) +// OBSOLETE { +// OBSOLETE char buf[1024]; +// OBSOLETE +// OBSOLETE sprintf (buf, "%s\n", args); +// OBSOLETE if (serial_write (ctrl_desc, buf, strlen (buf))) +// OBSOLETE error ("nrom_reset: control_send() of `%s'failed", args); +// OBSOLETE } +// OBSOLETE +// OBSOLETE static void +// OBSOLETE nrom_mourn (void) +// OBSOLETE { +// OBSOLETE unpush_target (&nrom_ops); +// OBSOLETE generic_mourn_inferior (); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Define the target vector. */ +// OBSOLETE +// OBSOLETE struct target_ops nrom_ops; +// OBSOLETE +// OBSOLETE static void +// OBSOLETE init_nrom_ops (void) +// OBSOLETE { +// OBSOLETE nrom_ops.to_shortname = "nrom"; +// OBSOLETE nrom_ops.to_longname = "Remote XDI `NetROM' target"; +// OBSOLETE nrom_ops.to_doc = "Remote debug using a NetROM over Ethernet"; +// OBSOLETE nrom_ops.to_open = nrom_open; +// OBSOLETE nrom_ops.to_close = nrom_close; +// OBSOLETE nrom_ops.to_attach = NULL; +// OBSOLETE nrom_ops.to_post_attach = NULL; +// OBSOLETE nrom_ops.to_require_attach = NULL; +// OBSOLETE nrom_ops.to_detach = NULL; +// OBSOLETE nrom_ops.to_require_detach = NULL; +// OBSOLETE nrom_ops.to_resume = NULL; +// OBSOLETE nrom_ops.to_wait = NULL; +// OBSOLETE nrom_ops.to_post_wait = NULL; +// OBSOLETE nrom_ops.to_fetch_registers = NULL; +// OBSOLETE nrom_ops.to_store_registers = NULL; +// OBSOLETE nrom_ops.to_prepare_to_store = NULL; +// OBSOLETE nrom_ops.to_xfer_memory = NULL; +// OBSOLETE nrom_ops.to_files_info = NULL; +// OBSOLETE nrom_ops.to_insert_breakpoint = NULL; +// OBSOLETE nrom_ops.to_remove_breakpoint = NULL; +// OBSOLETE nrom_ops.to_terminal_init = NULL; +// OBSOLETE nrom_ops.to_terminal_inferior = NULL; +// OBSOLETE nrom_ops.to_terminal_ours_for_output = NULL; +// OBSOLETE nrom_ops.to_terminal_ours = NULL; +// OBSOLETE nrom_ops.to_terminal_info = NULL; +// OBSOLETE nrom_ops.to_kill = nrom_kill; +// OBSOLETE nrom_ops.to_load = nrom_load; +// OBSOLETE nrom_ops.to_lookup_symbol = NULL; +// OBSOLETE nrom_ops.to_create_inferior = NULL; +// OBSOLETE nrom_ops.to_post_startup_inferior = NULL; +// OBSOLETE nrom_ops.to_acknowledge_created_inferior = NULL; +// OBSOLETE nrom_ops.to_clone_and_follow_inferior = NULL; +// OBSOLETE nrom_ops.to_post_follow_inferior_by_clone = NULL; +// OBSOLETE nrom_ops.to_insert_fork_catchpoint = NULL; +// OBSOLETE nrom_ops.to_remove_fork_catchpoint = NULL; +// OBSOLETE nrom_ops.to_insert_vfork_catchpoint = NULL; +// OBSOLETE nrom_ops.to_remove_vfork_catchpoint = NULL; +// OBSOLETE nrom_ops.to_has_forked = NULL; +// OBSOLETE nrom_ops.to_has_vforked = NULL; +// OBSOLETE nrom_ops.to_can_follow_vfork_prior_to_exec = NULL; +// OBSOLETE nrom_ops.to_post_follow_vfork = NULL; +// OBSOLETE nrom_ops.to_insert_exec_catchpoint = NULL; +// OBSOLETE nrom_ops.to_remove_exec_catchpoint = NULL; +// OBSOLETE nrom_ops.to_has_execd = NULL; +// OBSOLETE nrom_ops.to_reported_exec_events_per_exec_call = NULL; +// OBSOLETE nrom_ops.to_has_exited = NULL; +// OBSOLETE nrom_ops.to_mourn_inferior = nrom_mourn; +// OBSOLETE nrom_ops.to_can_run = NULL; +// OBSOLETE nrom_ops.to_notice_signals = 0; +// OBSOLETE nrom_ops.to_thread_alive = 0; +// OBSOLETE nrom_ops.to_stop = 0; +// OBSOLETE nrom_ops.to_pid_to_exec_file = NULL; +// OBSOLETE nrom_ops.to_stratum = download_stratum; +// OBSOLETE nrom_ops.DONT_USE = NULL; +// OBSOLETE nrom_ops.to_has_all_memory = 1; +// OBSOLETE nrom_ops.to_has_memory = 1; +// OBSOLETE nrom_ops.to_has_stack = 1; +// OBSOLETE nrom_ops.to_has_registers = 1; +// OBSOLETE nrom_ops.to_has_execution = 0; +// OBSOLETE nrom_ops.to_sections = NULL; +// OBSOLETE nrom_ops.to_sections_end = NULL; +// OBSOLETE nrom_ops.to_magic = OPS_MAGIC; +// OBSOLETE } +// OBSOLETE +// OBSOLETE void +// OBSOLETE _initialize_remote_nrom (void) +// OBSOLETE { +// OBSOLETE init_nrom_ops (); +// OBSOLETE add_target (&nrom_ops); +// OBSOLETE +// OBSOLETE add_show_from_set ( +// OBSOLETE add_set_cmd ("nrom_load_port", no_class, var_zinteger, (char *) &load_port, +// OBSOLETE "Set the port to use for NetROM downloads\n", &setlist), +// OBSOLETE &showlist); +// OBSOLETE +// OBSOLETE add_show_from_set ( +// OBSOLETE add_set_cmd ("nrom_control_port", no_class, var_zinteger, (char *) &control_port, +// OBSOLETE "Set the port to use for NetROM debugger services\n", &setlist), +// OBSOLETE &showlist); +// OBSOLETE +// OBSOLETE add_cmd ("nrom", no_class, nrom_passthru, +// OBSOLETE "Pass arguments as command to NetROM", +// OBSOLETE &cmdlist); +// OBSOLETE } diff --git a/gdb/remote-vx960.c b/gdb/remote-vx960.c index 08568bc..87435da 100644 --- a/gdb/remote-vx960.c +++ b/gdb/remote-vx960.c @@ -1,160 +1,160 @@ -/* i80960-dependent portions of the RPC protocol - used with a VxWorks target - - Contributed by Wind River Systems. - - 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 <stdio.h> -#include "defs.h" - -#include "vx-share/regPacket.h" -#include "frame.h" -#include "inferior.h" -#include "target.h" -#include "gdbcore.h" -#include "command.h" -#include "symtab.h" -#include "symfile.h" /* for struct complaint */ -#include "regcache.h" - -#include "gdb_string.h" -#include <errno.h> -#include <fcntl.h> -#include <sys/types.h> -#include <sys/time.h> -#include <sys/socket.h> - -#ifdef _AIX /* IBM claims "void *malloc()" not char * */ -#define malloc bogon_malloc -#endif - -#include <rpc/rpc.h> -#include <sys/time.h> /* UTek's <rpc/rpc.h> doesn't #incl this */ -#include <netdb.h> -#include "vx-share/ptrace.h" -#include "vx-share/xdr_ptrace.h" -#include "vx-share/xdr_ld.h" -#include "vx-share/xdr_rdb.h" -#include "vx-share/dbgRpcLib.h" - -/* get rid of value.h if possible */ -#include <value.h> -#include <symtab.h> - -/* Flag set if target has fpu */ - -extern int target_has_fp; - -/* 960 floating point format descriptor, from "i960-tdep.c." */ - -extern struct ext_format ext_format_i960; - -/* Generic register read/write routines in remote-vx.c. */ - -extern void net_read_registers (); -extern void net_write_registers (); - -/* Read a register or registers from the VxWorks target. - REGNO is the register to read, or -1 for all; currently, - it is ignored. FIXME look at regno to improve efficiency. */ - -void -vx_read_register (int regno) -{ - char i960_greg_packet[I960_GREG_PLEN]; - char i960_fpreg_packet[I960_FPREG_PLEN]; - - /* Get general-purpose registers. When copying values into - registers [], don't assume that a location in registers [] - is properly aligned for the target data type. */ - - net_read_registers (i960_greg_packet, I960_GREG_PLEN, PTRACE_GETREGS); - - bcopy (&i960_greg_packet[I960_R_R0], - ®isters[REGISTER_BYTE (R0_REGNUM)], 16 * I960_GREG_SIZE); - bcopy (&i960_greg_packet[I960_R_G0], - ®isters[REGISTER_BYTE (G0_REGNUM)], 16 * I960_GREG_SIZE); - bcopy (&i960_greg_packet[I960_R_PCW], - ®isters[REGISTER_BYTE (PCW_REGNUM)], sizeof (int)); - bcopy (&i960_greg_packet[I960_R_ACW], - ®isters[REGISTER_BYTE (ACW_REGNUM)], sizeof (int)); - bcopy (&i960_greg_packet[I960_R_TCW], - ®isters[REGISTER_BYTE (TCW_REGNUM)], sizeof (int)); - - /* If the target has floating point registers, fetch them. - Otherwise, zero the floating point register values in - registers[] for good measure, even though we might not - need to. */ - - if (target_has_fp) - { - net_read_registers (i960_fpreg_packet, I960_FPREG_PLEN, - PTRACE_GETFPREGS); - bcopy (&i960_fpreg_packet[I960_R_FP0], - ®isters[REGISTER_BYTE (FP0_REGNUM)], - REGISTER_RAW_SIZE (FP0_REGNUM) * 4); - } - else - bzero (®isters[REGISTER_BYTE (FP0_REGNUM)], - REGISTER_RAW_SIZE (FP0_REGNUM) * 4); - - /* Mark the register cache valid. */ - - registers_fetched (); -} - -/* Store a register or registers into the VxWorks target. - REGNO is the register to store, or -1 for all; currently, - it is ignored. FIXME look at regno to improve efficiency. */ - -void -vx_write_register (int regno) -{ - char i960_greg_packet[I960_GREG_PLEN]; - char i960_fpreg_packet[I960_FPREG_PLEN]; - - /* Store floating-point registers. When copying values from - registers [], don't assume that a location in registers [] - is properly aligned for the target data type. */ - - bcopy (®isters[REGISTER_BYTE (R0_REGNUM)], - &i960_greg_packet[I960_R_R0], 16 * I960_GREG_SIZE); - bcopy (®isters[REGISTER_BYTE (G0_REGNUM)], - &i960_greg_packet[I960_R_G0], 16 * I960_GREG_SIZE); - bcopy (®isters[REGISTER_BYTE (PCW_REGNUM)], - &i960_greg_packet[I960_R_PCW], sizeof (int)); - bcopy (®isters[REGISTER_BYTE (ACW_REGNUM)], - &i960_greg_packet[I960_R_ACW], sizeof (int)); - bcopy (®isters[REGISTER_BYTE (TCW_REGNUM)], - &i960_greg_packet[I960_R_TCW], sizeof (int)); - - net_write_registers (i960_greg_packet, I960_GREG_PLEN, PTRACE_SETREGS); - - /* Store floating point registers if the target has them. */ - - if (target_has_fp) - { - bcopy (®isters[REGISTER_BYTE (FP0_REGNUM)], - &i960_fpreg_packet[I960_R_FP0], - REGISTER_RAW_SIZE (FP0_REGNUM) * 4); - - net_write_registers (i960_fpreg_packet, I960_FPREG_PLEN, - PTRACE_SETFPREGS); - } -} +// OBSOLETE /* i80960-dependent portions of the RPC protocol +// OBSOLETE used with a VxWorks target +// OBSOLETE +// OBSOLETE Contributed by Wind River Systems. +// OBSOLETE +// OBSOLETE This file is part of GDB. +// OBSOLETE +// OBSOLETE This program is free software; you can redistribute it and/or modify +// OBSOLETE it under the terms of the GNU General Public License as published by +// OBSOLETE the Free Software Foundation; either version 2 of the License, or +// OBSOLETE (at your option) any later version. +// OBSOLETE +// OBSOLETE This program is distributed in the hope that it will be useful, +// OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of +// OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// OBSOLETE GNU General Public License for more details. +// OBSOLETE +// OBSOLETE You should have received a copy of the GNU General Public License +// OBSOLETE along with this program; if not, write to the Free Software +// OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, +// OBSOLETE Boston, MA 02111-1307, USA. */ +// OBSOLETE +// OBSOLETE #include <stdio.h> +// OBSOLETE #include "defs.h" +// OBSOLETE +// OBSOLETE #include "vx-share/regPacket.h" +// OBSOLETE #include "frame.h" +// OBSOLETE #include "inferior.h" +// OBSOLETE #include "target.h" +// OBSOLETE #include "gdbcore.h" +// OBSOLETE #include "command.h" +// OBSOLETE #include "symtab.h" +// OBSOLETE #include "symfile.h" /* for struct complaint */ +// OBSOLETE #include "regcache.h" +// OBSOLETE +// OBSOLETE #include "gdb_string.h" +// OBSOLETE #include <errno.h> +// OBSOLETE #include <fcntl.h> +// OBSOLETE #include <sys/types.h> +// OBSOLETE #include <sys/time.h> +// OBSOLETE #include <sys/socket.h> +// OBSOLETE +// OBSOLETE #ifdef _AIX /* IBM claims "void *malloc()" not char * */ +// OBSOLETE #define malloc bogon_malloc +// OBSOLETE #endif +// OBSOLETE +// OBSOLETE #include <rpc/rpc.h> +// OBSOLETE #include <sys/time.h> /* UTek's <rpc/rpc.h> doesn't #incl this */ +// OBSOLETE #include <netdb.h> +// OBSOLETE #include "vx-share/ptrace.h" +// OBSOLETE #include "vx-share/xdr_ptrace.h" +// OBSOLETE #include "vx-share/xdr_ld.h" +// OBSOLETE #include "vx-share/xdr_rdb.h" +// OBSOLETE #include "vx-share/dbgRpcLib.h" +// OBSOLETE +// OBSOLETE /* get rid of value.h if possible */ +// OBSOLETE #include <value.h> +// OBSOLETE #include <symtab.h> +// OBSOLETE +// OBSOLETE /* Flag set if target has fpu */ +// OBSOLETE +// OBSOLETE extern int target_has_fp; +// OBSOLETE +// OBSOLETE /* 960 floating point format descriptor, from "i960-tdep.c." */ +// OBSOLETE +// OBSOLETE extern struct ext_format ext_format_i960; +// OBSOLETE +// OBSOLETE /* Generic register read/write routines in remote-vx.c. */ +// OBSOLETE +// OBSOLETE extern void net_read_registers (); +// OBSOLETE extern void net_write_registers (); +// OBSOLETE +// OBSOLETE /* Read a register or registers from the VxWorks target. +// OBSOLETE REGNO is the register to read, or -1 for all; currently, +// OBSOLETE it is ignored. FIXME look at regno to improve efficiency. */ +// OBSOLETE +// OBSOLETE void +// OBSOLETE vx_read_register (int regno) +// OBSOLETE { +// OBSOLETE char i960_greg_packet[I960_GREG_PLEN]; +// OBSOLETE char i960_fpreg_packet[I960_FPREG_PLEN]; +// OBSOLETE +// OBSOLETE /* Get general-purpose registers. When copying values into +// OBSOLETE registers [], don't assume that a location in registers [] +// OBSOLETE is properly aligned for the target data type. */ +// OBSOLETE +// OBSOLETE net_read_registers (i960_greg_packet, I960_GREG_PLEN, PTRACE_GETREGS); +// OBSOLETE +// OBSOLETE bcopy (&i960_greg_packet[I960_R_R0], +// OBSOLETE ®isters[REGISTER_BYTE (R0_REGNUM)], 16 * I960_GREG_SIZE); +// OBSOLETE bcopy (&i960_greg_packet[I960_R_G0], +// OBSOLETE ®isters[REGISTER_BYTE (G0_REGNUM)], 16 * I960_GREG_SIZE); +// OBSOLETE bcopy (&i960_greg_packet[I960_R_PCW], +// OBSOLETE ®isters[REGISTER_BYTE (PCW_REGNUM)], sizeof (int)); +// OBSOLETE bcopy (&i960_greg_packet[I960_R_ACW], +// OBSOLETE ®isters[REGISTER_BYTE (ACW_REGNUM)], sizeof (int)); +// OBSOLETE bcopy (&i960_greg_packet[I960_R_TCW], +// OBSOLETE ®isters[REGISTER_BYTE (TCW_REGNUM)], sizeof (int)); +// OBSOLETE +// OBSOLETE /* If the target has floating point registers, fetch them. +// OBSOLETE Otherwise, zero the floating point register values in +// OBSOLETE registers[] for good measure, even though we might not +// OBSOLETE need to. */ +// OBSOLETE +// OBSOLETE if (target_has_fp) +// OBSOLETE { +// OBSOLETE net_read_registers (i960_fpreg_packet, I960_FPREG_PLEN, +// OBSOLETE PTRACE_GETFPREGS); +// OBSOLETE bcopy (&i960_fpreg_packet[I960_R_FP0], +// OBSOLETE ®isters[REGISTER_BYTE (FP0_REGNUM)], +// OBSOLETE REGISTER_RAW_SIZE (FP0_REGNUM) * 4); +// OBSOLETE } +// OBSOLETE else +// OBSOLETE bzero (®isters[REGISTER_BYTE (FP0_REGNUM)], +// OBSOLETE REGISTER_RAW_SIZE (FP0_REGNUM) * 4); +// OBSOLETE +// OBSOLETE /* Mark the register cache valid. */ +// OBSOLETE +// OBSOLETE registers_fetched (); +// OBSOLETE } +// OBSOLETE +// OBSOLETE /* Store a register or registers into the VxWorks target. +// OBSOLETE REGNO is the register to store, or -1 for all; currently, +// OBSOLETE it is ignored. FIXME look at regno to improve efficiency. */ +// OBSOLETE +// OBSOLETE void +// OBSOLETE vx_write_register (int regno) +// OBSOLETE { +// OBSOLETE char i960_greg_packet[I960_GREG_PLEN]; +// OBSOLETE char i960_fpreg_packet[I960_FPREG_PLEN]; +// OBSOLETE +// OBSOLETE /* Store floating-point registers. When copying values from +// OBSOLETE registers [], don't assume that a location in registers [] +// OBSOLETE is properly aligned for the target data type. */ +// OBSOLETE +// OBSOLETE bcopy (®isters[REGISTER_BYTE (R0_REGNUM)], +// OBSOLETE &i960_greg_packet[I960_R_R0], 16 * I960_GREG_SIZE); +// OBSOLETE bcopy (®isters[REGISTER_BYTE (G0_REGNUM)], +// OBSOLETE &i960_greg_packet[I960_R_G0], 16 * I960_GREG_SIZE); +// OBSOLETE bcopy (®isters[REGISTER_BYTE (PCW_REGNUM)], +// OBSOLETE &i960_greg_packet[I960_R_PCW], sizeof (int)); +// OBSOLETE bcopy (®isters[REGISTER_BYTE (ACW_REGNUM)], +// OBSOLETE &i960_greg_packet[I960_R_ACW], sizeof (int)); +// OBSOLETE bcopy (®isters[REGISTER_BYTE (TCW_REGNUM)], +// OBSOLETE &i960_greg_packet[I960_R_TCW], sizeof (int)); +// OBSOLETE +// OBSOLETE net_write_registers (i960_greg_packet, I960_GREG_PLEN, PTRACE_SETREGS); +// OBSOLETE +// OBSOLETE /* Store floating point registers if the target has them. */ +// OBSOLETE +// OBSOLETE if (target_has_fp) +// OBSOLETE { +// OBSOLETE bcopy (®isters[REGISTER_BYTE (FP0_REGNUM)], +// OBSOLETE &i960_fpreg_packet[I960_R_FP0], +// OBSOLETE REGISTER_RAW_SIZE (FP0_REGNUM) * 4); +// OBSOLETE +// OBSOLETE net_write_registers (i960_fpreg_packet, I960_FPREG_PLEN, +// OBSOLETE PTRACE_SETFPREGS); +// OBSOLETE } +// OBSOLETE } |