darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-03 23:56:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

import gdb-1999-06-07 snapshot

Browse Source
This commit is contained in:
Jason Molenda 1999-06-07 19:19:32 +00:00
parent eb858bb431
commit cce74817d9
55 changed files with 1634 additions and 964 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

217
gdb/ChangeLog
View File

@ -1,3 +1,220 @@
1999-06-07 Keith Seitz <keiths@cygnus.com>
* v850ice.c (init_hidden_window): Do not rely on the existence of
a gui for window creation. Return boolean status.
(v850ice_open): Use boolean status of init_hidden_window.
Allow any ICE execution command to run under CLI. Maybe one
day gdb will use a real event loop and allow this code to run.
* configure.tgt: Configure the v850 ice for all cygwin-hosted
toolchains.
Mon Jun 7 23:37:26 1999 Andrew Cagney <cagney@amy.cygnus.com>
* config/mips/tm-mips.h (EXTRA_FRAME_INFO): Delete.
* mips-tdep.c (mips_init_extra_frame_info): Allocate saved_regs.
(temp_saved_regs): Replace struct with a simple pointer.
(set_reg_offset, mips32_heuristic_proc_desc, heuristic_proc_desc,
mips_init_extra_frame_info): Update.
Mon Jun 7 21:40:12 1999 Andrew Cagney <cagney@amy.cygnus.com>
* config/mips/tm-mips.h (EXTRA_FRAME_INFO): Move elements from here.
* mips-tdep.c (struct frame_extra_info): To here.
* mips-tdep.c (mips_print_extra_frame_info, mips_find_saved_regs,
mips_init_extra_frame_info, mips_pop_frame): Update
(mips_init_extra_frame_info): Allocate space for the extra info.
Mon Jun 7 21:08:50 1999 Andrew Cagney <cagney@amy.cygnus.com>
* config/mips/tm-mips.h (mips_init_extra_frame_info), mips-tdep.c:
Rename init_extra_frame_info. Add argument ``fromleaf''.
* config/mips/tm-mips.h (mips_print_extra_frame_info),
mips-tdep.c: New function.
(PRINT_EXTRA_FRAME_INFO): Update definition.
Mon Jun 7 20:11:07 1999 Andrew Cagney <cagney@amy.cygnus.com>
* config/mips/tm-mips.h, config/mips/tm-irix3.h,
config/mips/tm-tx19.h, config/mips/tm-tx19l.h,
config/mips/tm-tx39.h, config/mips/tm-tx39l.h: Rename macro
REGISTER_NAMES to MIPS_REGISTER_NAMES.
* config/mips/tm-mips.h (REGISTER_NAME): Define.
* mips-tdep.c (mips_processor_reg_names): New static variable.
(mips_register_name): New function.
(mips_set_processor_type): Update mips_processor_reg_names.
(mips_generic_reg_names): Initialize using MIPS_REGISTER_NAMES.
Sun Jun 6 11:09:19 1999 Andrew Cagney <cagney@b1.cygnus.com>
* remote.c (PBUFSIZ): Re-define so that value is computed at
run-time.
(MAXBUFBYTES): Re-define as a macro function.
1999-06-05 Fernando Nasser <fnasser@totem.to.cygnus.com>
* symtab.c (decode_line_1): Accept filenames with spaces in
'linespecs' when enclosed in double quotation marks and handle
drive specification is DOS format (D:).
1999-06-04 Jim Blandy <jimb@zwingli.cygnus.com>
* parse.c: Don't include <ctype.h> twice.
1999-06-04 David Taylor <taylor@louisiana.cygnus.com>
Sat May 15 12:16:09 1999 Per Bothner <bothner@deneb.cygnus.com>
* eval.c (evaluate_subexp_standard): Remove Gilmore rant.
(Of course C has "expected types", at least if you allow
brace-initializer expressions - as in Gcc.)
Remove NULLing out expect_type. Do pass NULL_TYPE in place
the incoming expect_type where appropriate.
Fri Jun 4 10:56:23 1999 Jeffrey A Law (law@cygnus.com)
* hppa-tdep.c (hppa_fix_call_dummy): Make it work for GCC compiled
executables without end.o. Clean up lots of mis-guided comments.
Fri Jun 4 17:10:36 1999 Andrew Cagney <cagney@b1.cygnus.com>
* parser-defs.h (std_regs): Replace array with pointer.
* parse.c (build_parse): Build the std_regs table according to the
standard registers available.
1999-06-03 Michael Snyder <msnyder@cleaver.cygnus.com>
* thread.c: eliminate the target_thread_vector (functionality
moved into the standard target vector).
* gdbthread.h: eliminate target_thread_vector. Move all related
defines into remote.c, since they are no longer shared with thread.c.
* remote.c: eliminate the target_thread_vector.
(remote_find_new_threads): change return type to void, consistent
with the target vector table. (cont_thread): rename continue_thread.
(record_currthread): remove dead code. (remote_thread_alive):
clean up and simplify. (threadref etc.): move definitions to here
from gdbthread.h.
1999-06-02 Jason Molenda (jsm@bugshack.cygnus.com)
* inftarg.c (child_create_inferior): Remove dead HPUX specific code
which tries to find csh.
* fork-child.c: Remove DEBUGGING predefine and conditionalized
printfs.
(fork_inferior): Remove dead HPUX specific code which assumes shell
is csh.
* hppa-tdep.c: Remove DEBUGGING and #if 0 debugging printfs.
* parse.c: Ditto.
* somread.c: Ditto.
Thu Jun 3 10:12:38 1999 Andrew Cagney <cagney@b1.cygnus.com>
* d10v-tdep.c (do_d10v_pop_frame): Rename d10v_pop_frame. Make
static.
* d10v-tdep.c (d10v_pop_frame), config/d10v/tm-d10v.h: New
function. Call generic_pop_current_frame.
* config/d10v/tm-d10v.h (POP_FRAME): Update.
* gdbarch.h, gdbarch.c (frame_num_args_unknown): New function.
* config/d10v/tm-d10v.h (DMEM_START, IMEM_START, STACK_START,
ARG1_REGNUM, ARGN_REGNUM, RET1_REGNUM): Move definitions from
here.
* d10v-tdep.c: To here.
* config/d10v/tm-d10v.h (struct type): Move declaration from here.
* gdbarch.h: To here.
* config/d10v/tm-d10v.h (struct frame_info, struct
frame_saved_regs, struct type): Delete declarations.
1999-06-02 Robert Hoehne <robert.hoehne@gmx.net>
* go32-nat.c: go32_terminal_init, go32_terminal_inferior and
go32_terminal_ours are new functions to save/restore the inferior`s
stdin/stdout filemodes
1999-06-02 Stan Shebs <shebs@andros.cygnus.com>
* MAINTAINERS: Add Mark Kettenis, Jeff Law, and Philippe De Muyter
as maintainers for Hurd, HP/UX, and COFF, respectively.
1999-06-02 Mark Kettenis <kettenis@gnu.org>
* gnu-nat.c (inf_continue): New function.
(struct inf): Use `unsigned int' instead of `int' for bit-fields.
Add new bit-field named `nomsg'.
(inf_validate_procinfo): Renamed from inf_validate_stopped, all
callers changed. Also update the `nomsg' and `traced' fields of
INF.
(make_inf): Initialize INF->nomsg.
(inf_cleanup): Reset INF->nomsg.
(inf_detach): Call `inf_validate_procinfo'. Call `inf_continue'
instead of `inf_signal' if the inferior does not have a message
port.
(gnu_resume): Likewise.
(gnu_create_inferior): Reset INF->nomsg in `attach_to_child'.
Call `inf_validate_procinfo' after returning from `fork_inferior'.
(gnu_attach): Update signal thread and tracing state.
* config/i386/tm-i386gnu.h: Include "i386/tm-i386.h" instead of
"i386/tm-i386v.h".
(STACK_END_ADDR): Remove.
(SIGCONTEXT_PC_OFFSET): New define.
Include "tm-sysv4.h".
1999-06-02 J.T. Conklin <jtc@redback.com>
* config/tm-vxworks.h: New file, header for definitions common to
all vxWorks targets.
* config/a29k/tm-vx29k.h, config/i960/tm-vx960.h,
config/m68k/tm-vx68.h, config/mips/tm-vxmips.h,
config/sparc/tm-vxsparc.h: Include tm-vxworks.h.
Wed Jun 2 17:37:03 1999 Jeffrey A Law (law@cygnus.com)
* config/pa/tm-hppa.h (IMPORT_SHLIB): New unwind stub type.
1999-06-02 Christopher Faylor <cgf@cygnus.com>
* configure.tgt: Alphabetically reorder some targets.
1999-06-02 Keith Seitz <keiths@cygnus.com>
* v850ice.c (v850ice_xfer_memory): Insert lost "break".
1999-06-02 Jim Blandy <jimb@zwingli.cygnus.com>
* rs6000-tdep.c (variants): Fix description of 750 register set.
(Thanks to J. T. Conklin.)
Wed Jun 2 16:10:08 1999 Andrew Cagney <cagney@b1.cygnus.com>
* config/d10v/tm-d10v.h (FRAME_INIT_SAVED_REGS): Replace
FRAME_FIND_SAVED_REGS.
(d10v_frame_init_saved_regs): Replace d10v_frame_find_saved_regs.
* d10v-tdep.c (d10v_pop_frame, d10v_frame_chain,
d10v_frame_init_saved_regs): Update.
* config/d10v/tm-d10v.h (EXTRA_FRAME_INFO): Delete.
* d10v-tdep.c (struct frame_extra_info): Define.
(d10v_init_extra_frame_info, d10v_pop_frame, d10v_frame_chain,
d10v_frame_find_saved_regs): Update.
Tue Jun 1 13:36:31 1999 Philippe De Muyter <phdm@macqel.be>
* config/m68k/tm-delta68.h (FRAME_NUM_ARGS): Macro prototype fixed.
* config/m68k/tm-news.h, config/ns32k/tm-merlin.h: Ditto.
* config/ns32k/tm-umax.h (FRAME_NUM_ARGS): Old macro definition
removed; new macro prototype fixed.
Wed Jun 2 11:18:37 1999 Andrew Cagney <cagney@b1.cygnus.com>
* defs.h (REGISTER_NAME): Move compatibility definition from here.
* gdbarch.h: To here.
* frame.h, blockframe.c (generic_fix_call_dummy): New
stub function.
Tue Jun 1 18:47:54 1999 Andrew Cagney <cagney@b1.cygnus.com>
* parse.c (build_parse): New function. Initialize

3
gdb/MAINTAINERS
View File

@ -17,10 +17,13 @@ elf reader Jim Blandy jimb@cygnus.com
stabs reader Jim Blandy jimb@cygnus.com
x86 linux native Jim Blandy jimb@cygnus.com
Scheme support Jim Blandy jimb@cygnus.com
hurd native Mark Kettenis kettenis@wins.va.nl
hpux, hp pa native Jeff Law law@cygnus.com
m32r target Michael Snyder msnyder@cygnus.com
tracing Michael Snyder msnyder@cygnus.com
threads Michael Snyder msnyder@cygnus.com
breakpoint.c Michael Snyder msnyder@cygnus.com
coff reader Philippe De Muyter phdm@macqel.be
macos host & native Stan Shebs shebs@cygnus.com
sds protocol Stan Shebs shebs@cygnus.com
rdi/adp protocol Stan Shebs shebs@cygnus.com

2
gdb/Makefile.in
View File

@ -219,7 +219,7 @@ CDEPS = $(XM_CDEPS) $(TM_CDEPS) $(NAT_CDEPS) $(SIM) $(BFD) $(READLINE) \
ADD_FILES = $(REGEX) $(XM_ADD_FILES) $(TM_ADD_FILES) $(NAT_ADD_FILES)
ADD_DEPS = $(REGEX1) $(XM_ADD_FILES) $(TM_ADD_FILES) $(NAT_ADD_FILES)
VERSION = 19990601
VERSION = 19990607
DIST=gdb
LINT=/usr/5bin/lint

20
gdb/blockframe.c
View File

@ -1107,7 +1107,8 @@ pc_in_call_dummy_at_entry_point (pc, sp, frame_address)
* zero, and CALL_DUMMY_LOCATION to AT_ENTRY. Then you must remember
* to define PUSH_RETURN_ADDRESS, because no call instruction will be
* being executed by the target. Also FRAME_CHAIN_VALID as
* generic_frame_chain_valid. */
* generic_frame_chain_valid and FIX_CALL_DUMMY as
* generic_fix_call_dummy. */
/* Dummy frame. This saves the processor state just prior to setting
up the inferior function call. Older targets save the registers
@ -1272,6 +1273,23 @@ generic_frame_chain_valid (fp, fi)
&& !inside_entry_file (FRAME_SAVED_PC(fi)));
}
/* Function: fix_call_dummy
Stub function. Generic dumy frames typically do not need to fix
the frame being created */
void
generic_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
char *dummy;
CORE_ADDR pc;
CORE_ADDR fun;
int nargs;
struct value **args;
struct type *type;
int gcc_p;
{
return;
}
/* Function: get_saved_register
Find register number REGNUM relative to FRAME and put its (raw,
target format) contents in *RAW_BUFFER.

7
gdb/config/a29k/tm-vx29k.h
View File

@ -1,5 +1,5 @@
/* Target machine description for VxWorks on the 29k, for GDB, the GNU debugger.
Copyright 1994 Free Software Foundation, Inc.
Copyright 1994, 1999 Free Software Foundation, Inc.
Contributed by Cygnus Support.
This file is part of GDB.
@ -19,10 +19,7 @@ along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "a29k/tm-a29k.h"
#define GDBINIT_FILENAME ".vxgdbinit"
#define DEFAULT_PROMPT "(vxgdb) "
#include "tm-vxworks.h"
/* Number of registers in a ptrace_getregs call. */

71
gdb/config/d10v/tm-d10v.h
View File

@ -31,20 +31,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#define FUNCTION_START_OFFSET 0
/* these are the addresses the D10V-EVA board maps data */
/* and instruction memory to. */
#define DMEM_START 0x0000000
#define IMEM_START 0x1000000
#define STACK_START 0x0007ffe
#ifdef __STDC__ /* Forward decls for prototypes */
struct frame_info;
struct frame_saved_regs;
struct type;
struct value;
#endif
/* Advance PC across any function entry prologue instructions
to reach some "real" code. */
@ -74,6 +60,8 @@ extern char *d10v_register_name PARAMS ((int reg_nr));
to be actual register numbers as far as the user is concerned
but do serve to get the desired values when passed to read_register. */
/* Used by both d10v-tdep.c and remote-d10v.c */
#define R0_REGNUM 0
#define LR_REGNUM 13
#define SP_REGNUM 15
@ -85,8 +73,11 @@ extern char *d10v_register_name PARAMS ((int reg_nr));
#define DMAP_REGNUM 34
#define A0_REGNUM 35
/* ??? */
#define REGISTER_SIZE 2
/* Say how much memory is needed to store a copy of the register set */
#define REGISTER_BYTES ((NUM_REGS-2)*2+16)
#define REGISTER_BYTES ((37/*NUM_REGS*/-2)*2+16)
/* Index within `registers' of the first byte of the space for
register N. */
@ -117,14 +108,13 @@ extern int d10v_register_virtual_size PARAMS ((int reg_nr));
extern struct type *d10v_register_virtual_type PARAMS ((int reg_nr));
#define REGISTER_VIRTUAL_TYPE(N) (d10v_register_virtual_type (N))
/* convert $pc and $sp to/from virtual addresses */
extern int d10v_register_convertible PARAMS ((int nr));
#define REGISTER_CONVERTIBLE(N) (d10v_register_convertible ((N)))
extern void d10v_register_convert_to_virtual PARAMS ((int regnum, struct type *type, char *from, char *to));
extern void d10v_register_convert_to_raw PARAMS ((struct type *type, int regnum, char *from, char *to));
#define REGISTER_CONVERTIBLE(N) (d10v_register_convertible ((N)))
#define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \
d10v_register_convert_to_virtual ((REGNUM), (TYPE), (FROM), (TO))
extern void d10v_register_convert_to_raw PARAMS ((struct type *type, int regnum, char *from, char *to));
#define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \
d10v_register_convert_to_raw ((TYPE), (REGNUM), (FROM), (TO))
@ -143,10 +133,6 @@ extern CORE_ADDR d10v_convert_daddr_to_raw PARAMS ((CORE_ADDR x));
extern CORE_ADDR d10v_convert_iaddr_to_raw PARAMS ((CORE_ADDR x));
#define D10V_CONVERT_IADDR_TO_RAW(X) (d10v_convert_iaddr_to_raw (X))
#define ARG1_REGNUM R0_REGNUM
#define ARGN_REGNUM 3
#define RET1_REGNUM R0_REGNUM
/* Store the address of the place in which to copy the structure the
subroutine will return. This is called from call_function.
@ -184,21 +170,14 @@ extern use_struct_convention_fn d10v_use_struct_convention;
#define USE_STRUCT_CONVENTION(gcc_p, type) d10v_use_struct_convention (gcc_p, type)
/* Define other aspects of the stack frame.
we keep a copy of the worked out return pc lying around, since it
is a useful bit of info */
#define EXTRA_FRAME_INFO \
CORE_ADDR return_pc; \
int frameless; \
int size;
extern void d10v_init_extra_frame_info PARAMS ((int fromleaf, struct frame_info *fi));
#define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \
d10v_init_extra_frame_info(fromleaf, fi)
extern void d10v_init_extra_frame_info PARAMS (( int fromleaf, struct frame_info *fi ));
/* 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. */
@ -234,17 +213,15 @@ extern CORE_ADDR d10v_saved_pc_after_call PARAMS ((struct frame_info *frame));
#define FRAME_ARGS_SKIP 0
/* Put here the code to store, into a struct frame_saved_regs,
the addresses of the saved registers of frame described by FRAME_INFO.
/* Put here the code to store, into frame_info->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. */
ways in the stack frame. sp is even more special: the address we
return for it IS the sp for the next frame. */
#define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \
d10v_frame_find_saved_regs(frame_info, &(frame_saved_regs))
extern void d10v_frame_find_saved_regs PARAMS ((struct frame_info *, struct frame_saved_regs *));
extern void d10v_frame_init_saved_regs PARAMS ((struct frame_info *));
#define FRAME_INIT_SAVED_REGS(frame_info) \
d10v_frame_init_saved_regs(frame_info)
/* DUMMY FRAMES. Need these to support inferior function calls. They
work like this on D10V: First we set a breakpoint at 0 or __start.
@ -255,8 +232,8 @@ extern void d10v_frame_find_saved_regs PARAMS ((struct frame_info *, struct fram
breakpoint, clear the break point and pop the old register contents
off the stack. */
extern void d10v_pop_frame PARAMS ((struct frame_info *frame));
#define POP_FRAME generic_pop_current_frame (d10v_pop_frame)
extern void d10v_pop_frame PARAMS ((void));
#define POP_FRAME d10v_pop_frame ()
#define USE_GENERIC_DUMMY_FRAMES 1
#define CALL_DUMMY {0}
@ -289,19 +266,9 @@ extern CORE_ADDR d10v_push_arguments PARAMS ((int, struct value **, CORE_ADDR, i
#define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \
d10v_extract_return_value(TYPE, REGBUF, VALBUF)
extern void
d10v_extract_return_value PARAMS ((struct type *, char *, char *));
extern void d10v_extract_return_value PARAMS ((struct type *, char *, char *));
#define REGISTER_SIZE 2
#ifdef CC_HAS_LONG_LONG
# define LONGEST long long
#else
# define LONGEST long
#endif
#define ULONGEST unsigned LONGEST
void d10v_write_pc PARAMS ((CORE_ADDR val, int pid));
CORE_ADDR d10v_read_pc PARAMS ((int pid));
void d10v_write_sp PARAMS ((CORE_ADDR val));

22
gdb/config/i386/tm-i386gnu.h
View File

@ -1,5 +1,5 @@
/* Macro definitions for i386, GNU Hurd
Copyright (C) 1992 Free Software Foundation, Inc.
Copyright (C) 1992, 1999 Free Software Foundation, Inc.
This file is part of GDB.
@ -17,6 +17,9 @@ 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. */
#ifndef TM_I386GNU_H
#define TM_I386GNU_H 1
/* Include common definitions for gnu systems */
#include "nm-gnu.h"
@ -33,16 +36,15 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* we can do it */
#define ATTACH_DETACH 1
/* Sigh. There should be a file for i386 but no sysv stuff in it */
#include "i386/tm-i386v.h"
#include "i386/tm-i386.h"
/* I want to test this float info code. See comment in tm-i386v.h */
#undef FLOAT_INFO
#define FLOAT_INFO { i386_mach3_float_info (); }
/* Address of end of stack space.
* for MACH, see <machine/vmparam.h>
* @@@ I don't know what is in the 5 ints...
*/
#undef STACK_END_ADDR
#define STACK_END_ADDR (0xc0000000-sizeof(int [5]))
/* Offset to saved PC in sigcontext. */
#define SIGCONTEXT_PC_OFFSET 68
/* We need this file for the SOLIB_TRAMPOLINE stuff. */
#include "tm-sysv4.h"
#endif /* TM_I386GNU_H */

7
gdb/config/i960/tm-vx960.h
View File

@ -1,5 +1,5 @@
/* Parameters for VxWorks Intel 960's, for GDB, the GNU debugger.
Copyright (C) 1986-1991 Free Software Foundation, Inc.
Copyright (C) 1986-1991, 1999 Free Software Foundation, Inc.
Contributed by Cygnus Support.
This file is part of GDB.
@ -19,16 +19,13 @@ 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 "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
#define GDBINIT_FILENAME ".vxgdbinit"
#define DEFAULT_PROMPT "(vxgdb) "
/* We have more complex, useful breakpoints on the target.
Amount ip must be decremented by after a breakpoint. */

2
gdb/config/m68k/tm-delta68.h
View File

@ -76,7 +76,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
Can return -1, meaning no way to tell. */
extern int delta68_frame_num_args PARAMS ((struct frame_info *fi));
#define FRAME_NUM_ARGS (delta68_frame_num_args ((fi)))
#define FRAME_NUM_ARGS(fi) (delta68_frame_num_args ((fi)))
/* On M68040 versions of sysV68 R3V7.1, ptrace(PT_WRITE_I) does not clear
the processor's instruction cache as it should. */

2
gdb/config/m68k/tm-news.h
View File

@ -60,6 +60,6 @@ Here is an m-news.h file for gdb. It supports the 68881 registers.
Can return -1, meaning no way to tell. */
extern int news_frame_num_args PARAMS ((struct frame_info *fi));
#define FRAME_NUM_ARGS (news_frame_num_args ((fi)))
#define FRAME_NUM_ARGS(fi) (news_frame_num_args ((fi)))
#include "m68k/tm-m68k.h"

7
gdb/config/m68k/tm-vx68.h
View File

@ -1,5 +1,5 @@
/* Target machine description for VxWorks m68k's, for GDB, the GNU debugger.
Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc.
Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1999 Free Software Foundation, Inc.
Contributed by Cygnus Support.
This file is part of GDB.
@ -18,10 +18,6 @@ You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#define GDBINIT_FILENAME ".vxgdbinit"
#define DEFAULT_PROMPT "(vxgdb) "
/* GCC is probably the only compiler used on this configuration. So
get this right even if the code which detects gcc2_compiled. is
still broken. */
@ -32,6 +28,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#define DECR_PC_AFTER_BREAK 0
#include "m68k/tm-m68k.h"
#include "tm-vxworks.h"
/* Takes the current frame-struct pointer and returns the chain-pointer
to get to the calling frame.

4
gdb/config/mips/tm-irix3.h
View File

@ -27,7 +27,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* Redefine register numbers for SGI. */
#undef NUM_REGS
#undef REGISTER_NAMES
#undef MIPS_REGISTER_NAMES
#undef FP0_REGNUM
#undef PC_REGNUM
#undef PS_REGNUM
@ -45,7 +45,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* Initializer for an array of names of registers.
There should be NUM_REGS strings in this initializer. */
#define REGISTER_NAMES \
#define MIPS_REGISTER_NAMES \
{ "zero", "at", "v0", "v1", "a0", "a1", "a2", "a3", \
"t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7", \
"s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", \

26
gdb/config/mips/tm-mips.h
View File

@ -151,11 +151,16 @@ extern breakpoint_from_pc_fn mips_breakpoint_from_pc;
#define NUM_REGS 90
#endif
/* Given the register index, return the name of the corresponding
register. */
extern char *mips_register_name PARAMS ((int regnr));
#define REGISTER_NAME(i) mips_register_name (i)
/* Initializer for an array of names of registers.
There should be NUM_REGS strings in this initializer. */
#ifndef REGISTER_NAMES
#define REGISTER_NAMES \
#ifndef MIPS_REGISTER_NAMES
#define MIPS_REGISTER_NAMES \
{ "zero", "at", "v0", "v1", "a0", "a1", "a2", "a3", \
"t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7", \
"s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", \
@ -438,20 +443,13 @@ typedef struct mips_extra_func_info {
PDR pdr; /* Procedure descriptor record */
} *mips_extra_func_info_t;
#define EXTRA_FRAME_INFO \
mips_extra_func_info_t proc_desc; \
int num_args;
#define INIT_EXTRA_FRAME_INFO(fromleaf, fci) init_extra_frame_info(fci)
extern void init_extra_frame_info PARAMS ((struct frame_info *));
extern void mips_init_extra_frame_info PARAMS ((int fromleaf, struct frame_info *));
#define INIT_EXTRA_FRAME_INFO(fromleaf, fci) \
mips_init_extra_frame_info(fromleaf, fci)
extern void mips_print_extra_frame_info PARAMS ((struct frame_info *frame));
#define PRINT_EXTRA_FRAME_INFO(fi) \
{ \
if (fi && fi->proc_desc && fi->proc_desc->pdr.framereg < NUM_REGS) \
printf_filtered (" frame pointer is at %s+%d\n", \
REGISTER_NAME (fi->proc_desc->pdr.framereg), \
fi->proc_desc->pdr.frameoffset); \
}
mips_print_extra_frame_info (fi)
/* It takes two values to specify a frame on the MIPS.

4
gdb/config/mips/tm-tx39.h
View File

@ -22,8 +22,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "mips/tm-bigmips.h"
#undef REGISTER_NAMES
#define REGISTER_NAMES \
#undef MIPS_REGISTER_NAMES
#define MIPS_REGISTER_NAMES \
{ "zero", "at", "v0", "v1", "a0", "a1", "a2", "a3", \
"t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7", \
"s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", \

4
gdb/config/mips/tm-tx39l.h
View File

@ -22,8 +22,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "mips/tm-mips.h"
#undef REGISTER_NAMES
#define REGISTER_NAMES \
#undef MIPS_REGISTER_NAMES
#define MIPS_REGISTER_NAMES \
{ "zero", "at", "v0", "v1", "a0", "a1", "a2", "a3", \
"t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7", \
"s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", \

7
gdb/config/mips/tm-vxmips.h
View File

@ -1,5 +1,5 @@
/* Target machine description for VxWorks MIPS's, for GDB, the GNU debugger.
Copyright 1996 Free Software Foundation, Inc.
Copyright 1996, 1999 Free Software Foundation, Inc.
Contributed by Cygnus Support.
This file is part of GDB.
@ -18,11 +18,8 @@ You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#define GDBINIT_FILENAME ".vxgdbinit"
#define DEFAULT_PROMPT "(vxgdb) "
#include "mips/tm-mips.h"
#include "tm-vxworks.h"
/* FIXME: These are almost certainly wrong. */

2
gdb/config/ns32k/tm-merlin.h
View File

@ -193,7 +193,7 @@ extern CORE_ADDR merlin_skip_prologue PARAMS ((CORE_ADDR));
Can return -1, meaning no way to tell. */
extern int merlin_frame_num_args PARAMS ((struct frame_info *fi));
#define FRAME_NUM_ARGS (merlin_frame_num_args ((fi)))
#define FRAME_NUM_ARGS(fi) (merlin_frame_num_args ((fi)))
/* Return number of bytes at start of arglist that are not really args. */

42
gdb/config/ns32k/tm-umax.h
View File

@ -221,46 +221,6 @@ extern CORE_ADDR umax_skip_prologue PARAMS ((CORE_ADDR));
extern CORE_ADDR ns32k_get_enter_addr ();
/* Return number of args passed to a frame.
Can return -1, meaning no way to tell.
Encore's C compiler often reuses same area on stack for args,
so this will often not work properly. If the arg names
are known, it's likely most of them will be printed. */
#define FRAME_NUM_ARGS(numargs, fi) \
{ CORE_ADDR pc; \
CORE_ADDR enter_addr; \
unsigned int insn; \
unsigned int addr_mode; \
int width; \
\
numargs = -1; \
enter_addr = ns32k_get_enter_addr ((fi)->pc); \
if (enter_addr > 0) \
{ \
pc = (enter_addr == 1) ? \
SAVED_PC_AFTER_CALL (fi) : \
FRAME_SAVED_PC (fi); \
insn = read_memory_integer (pc,2); \
addr_mode = (insn >> 11) & 0x1f; \
insn = insn & 0x7ff; \
if ((insn & 0x7fc) == 0x57c && \
addr_mode == 0x14) /* immediate */ \
{ \
if (insn == 0x57c) /* adjspb */ \
width = 1; \
else if (insn == 0x57d) /* adjspw */ \
width = 2; \
else if (insn == 0x57f) /* adjspd */ \
width = 4; \
numargs = read_memory_integer (pc+2,width); \
if (width > 1) \
flip_bytes (&numargs, width); \
numargs = - sign_extend (numargs, width*8) / 4;\
} \
} \
}
/* Return number of bytes at start of arglist that are not really args. */
#define FRAME_ARGS_SKIP 8
@ -272,7 +232,7 @@ extern CORE_ADDR ns32k_get_enter_addr ();
the address we return for it IS the sp for the next frame. */
extern int umax_frame_num_args PARAMS ((struct frame_info *fi));
#define FRAME_NUM_ARGS (umax_frame_num_args ((fi)))
#define FRAME_NUM_ARGS(fi) (umax_frame_num_args ((fi)))
/* Things needed for making the inferior call functions. */

3
gdb/config/pa/tm-hppa.h
View File

@ -1,5 +1,5 @@
/* Parameters for execution on any Hewlett-Packard PA-RISC machine.
Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1995
Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1995, 1999
Free Software Foundation, Inc.
Contributed by the Center for Software Science at the
@ -723,6 +723,7 @@ enum unwind_stub_types
PARAMETER_RELOCATION = 2,
EXPORT = 10,
IMPORT = 11,
IMPORT_SHLIB = 12,
};
/* We use the objfile->obj_private pointer for two things:

7
gdb/config/sparc/tm-vxsparc.h
View File

@ -1,5 +1,5 @@
/* Target machine description for VxWorks sparc's, for GDB, the GNU debugger.
Copyright 1993 Free Software Foundation, Inc.
Copyright 1993, 1999 Free Software Foundation, Inc.
Contributed by Cygnus Support.
This file is part of GDB.
@ -18,11 +18,8 @@ You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#define GDBINIT_FILENAME ".vxgdbinit"
#define DEFAULT_PROMPT "(vxgdb) "
#include "sparc/tm-spc-em.h"
#include "tm-vxworks.h"
/* FIXME: These are almost certainly wrong. */

9
gdb/configure.tgt
View File

@ -62,8 +62,6 @@ d30v-*-*) gdb_target=d30v ;;
h8300-*-*) gdb_target=h8300 ;;
h8500-*-*) gdb_target=h8500 ;;
sh-*-*) gdb_target=sh ;;
fr30-*-elf*) gdb_target=fr30 ;;
hppa*-*-bsd*) gdb_target=hppabsd ;;
@ -233,6 +231,8 @@ rs6000-*-lynxos*) gdb_target=rs6000lynx ;;
rs6000-*-aix4*) gdb_target=aix4 ;;
rs6000-*-*) gdb_target=rs6000 ;;
sh-*-*) gdb_target=sh ;;
sparc-*-aout*) gdb_target=sparc-em ;;
sparc-*-coff*) gdb_target=sparc-em ;;
sparc-*-elf*) gdb_target=sparc-em ;;
@ -267,6 +267,11 @@ fr30-*-*) gdb_target=fr30
;;
v850*-*-*) gdb_target=v850
case ${gdb_host} in
cygwin*)
CONFIG_OBS="${CONFIG_OBS} v850ice.o" ;;
* ) ;;
esac
;;
w65-*-*) gdb_target=w65 ;;

161
gdb/d10v-tdep.c
View File

@ -33,6 +33,26 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "symfile.h"
#include "objfiles.h"
struct frame_extra_info
{
CORE_ADDR return_pc;
int frameless;
int size;
};
/* these are the addresses the D10V-EVA board maps data */
/* and instruction memory to. */
#define DMEM_START 0x0000000
#define IMEM_START 0x1000000
#define STACK_START 0x0007ffe
/* d10v register naming conventions */
#define ARG1_REGNUM R0_REGNUM
#define ARGN_REGNUM 3
#define RET1_REGNUM R0_REGNUM
/* Local functions */
extern void _initialize_d10v_tdep PARAMS ((void));
@ -41,6 +61,15 @@ static void d10v_eva_prepare_to_trace PARAMS ((void));
static void d10v_eva_get_trace_data PARAMS ((void));
static int prologue_find_regs PARAMS ((unsigned short op, struct frame_info *fi, CORE_ADDR addr));
extern void d10v_frame_init_saved_regs PARAMS ((struct frame_info *));
static void do_d10v_pop_frame PARAMS ((struct frame_info *fi));
/* FIXME */
extern void remote_d10v_translate_xfer_address PARAMS ((CORE_ADDR gdb_addr, int gdb_len, CORE_ADDR *rem_addr, int *rem_len));
int
d10v_frame_chain_valid (chain, frame)
CORE_ADDR chain;
@ -278,7 +307,7 @@ CORE_ADDR
d10v_frame_saved_pc (frame)
struct frame_info *frame;
{
return ((frame)->return_pc);
return ((frame)->extra_info->return_pc);
}
CORE_ADDR
@ -311,42 +340,47 @@ d10v_saved_pc_after_call (frame)
registers. */
void
d10v_pop_frame (frame)
struct frame_info *frame;
d10v_pop_frame ()
{
generic_pop_current_frame (do_d10v_pop_frame);
}
static void
do_d10v_pop_frame (fi)
struct frame_info *fi;
{
CORE_ADDR fp;
int regnum;
struct frame_saved_regs fsr;
char raw_buffer[8];
fp = FRAME_FP (frame);
fp = FRAME_FP (fi);
/* fill out fsr with the address of where each */
/* register was stored in the frame */
get_frame_saved_regs (frame, &fsr);
d10v_frame_init_saved_regs (fi);
/* now update the current registers with the old values */
for (regnum = A0_REGNUM; regnum < A0_REGNUM+2 ; regnum++)
{
if (fsr.regs[regnum])
if (fi->saved_regs[regnum])
{
read_memory (fsr.regs[regnum], raw_buffer, REGISTER_RAW_SIZE(regnum));
read_memory (fi->saved_regs[regnum], raw_buffer, REGISTER_RAW_SIZE(regnum));
write_register_bytes (REGISTER_BYTE (regnum), raw_buffer, REGISTER_RAW_SIZE(regnum));
}
}
for (regnum = 0; regnum < SP_REGNUM; regnum++)
{
if (fsr.regs[regnum])
if (fi->saved_regs[regnum])
{
write_register (regnum, read_memory_unsigned_integer (fsr.regs[regnum], REGISTER_RAW_SIZE(regnum)));
write_register (regnum, read_memory_unsigned_integer (fi->saved_regs[regnum], REGISTER_RAW_SIZE(regnum)));
}
}
if (fsr.regs[PSW_REGNUM])
if (fi->saved_regs[PSW_REGNUM])
{
write_register (PSW_REGNUM, read_memory_unsigned_integer (fsr.regs[PSW_REGNUM], REGISTER_RAW_SIZE(PSW_REGNUM)));
write_register (PSW_REGNUM, read_memory_unsigned_integer (fi->saved_regs[PSW_REGNUM], REGISTER_RAW_SIZE(PSW_REGNUM)));
}
write_register (PC_REGNUM, read_register (LR_REGNUM));
write_register (SP_REGNUM, fp + frame->size);
write_register (SP_REGNUM, fp + fi->extra_info->size);
target_store_registers (-1);
flush_cached_frames ();
}
@ -456,36 +490,38 @@ d10v_skip_prologue (pc)
*/
CORE_ADDR
d10v_frame_chain (frame)
struct frame_info *frame;
d10v_frame_chain (fi)
struct frame_info *fi;
{
struct frame_saved_regs fsr;
d10v_frame_init_saved_regs (fi);
d10v_frame_find_saved_regs (frame, &fsr);
if (frame->return_pc == IMEM_START || inside_entry_file(frame->return_pc))
if (fi->extra_info->return_pc == IMEM_START
|| inside_entry_file (fi->extra_info->return_pc))
return (CORE_ADDR)0;
if (!fsr.regs[FP_REGNUM])
if (!fi->saved_regs[FP_REGNUM])
{
if (!fsr.regs[SP_REGNUM] || fsr.regs[SP_REGNUM] == STACK_START)
if (!fi->saved_regs[SP_REGNUM]
|| fi->saved_regs[SP_REGNUM] == STACK_START)
return (CORE_ADDR)0;
return fsr.regs[SP_REGNUM];
return fi->saved_regs[SP_REGNUM];
}
if (!read_memory_unsigned_integer(fsr.regs[FP_REGNUM], REGISTER_RAW_SIZE(FP_REGNUM)))
if (!read_memory_unsigned_integer(fi->saved_regs[FP_REGNUM],
REGISTER_RAW_SIZE(FP_REGNUM)))
return (CORE_ADDR)0;
return D10V_MAKE_DADDR (read_memory_unsigned_integer (fsr.regs[FP_REGNUM], REGISTER_RAW_SIZE (FP_REGNUM)));
return D10V_MAKE_DADDR (read_memory_unsigned_integer (fi->saved_regs[FP_REGNUM],
REGISTER_RAW_SIZE (FP_REGNUM)));
}
static int next_addr, uses_frame;
static int
prologue_find_regs (op, fsr, addr)
prologue_find_regs (op, fi, addr)
unsigned short op;
struct frame_saved_regs *fsr;
struct frame_info *fi;
CORE_ADDR addr;
{
int n;
@ -495,7 +531,7 @@ prologue_find_regs (op, fsr, addr)
{
n = (op & 0x1E0) >> 5;
next_addr -= 2;
fsr->regs[n] = next_addr;
fi->saved_regs[n] = next_addr;
return 1;
}
@ -504,8 +540,8 @@ prologue_find_regs (op, fsr, addr)
{
n = (op & 0x1E0) >> 5;
next_addr -= 4;
fsr->regs[n] = next_addr;
fsr->regs[n+1] = next_addr+2;
fi->saved_regs[n] = next_addr;
fi->saved_regs[n+1] = next_addr+2;
return 1;
}
@ -534,7 +570,7 @@ prologue_find_regs (op, fsr, addr)
if ((op & 0x7E1F) == 0x681E)
{
n = (op & 0x1E0) >> 5;
fsr->regs[n] = next_addr;
fi->saved_regs[n] = next_addr;
return 1;
}
@ -542,23 +578,23 @@ prologue_find_regs (op, fsr, addr)
if ((op & 0x7E3F) == 0x3A1E)
{
n = (op & 0x1E0) >> 5;
fsr->regs[n] = next_addr;
fsr->regs[n+1] = next_addr+2;
fi->saved_regs[n] = next_addr;
fi->saved_regs[n+1] = next_addr+2;
return 1;
}
return 0;
}
/* Put here the code to store, into a struct frame_saved_regs, the
addresses of the saved registers of frame described by FRAME_INFO.
This includes special registers such as pc and fp saved in special
ways in the stack frame. sp is even more special: the address we
return for it IS the sp for the next frame. */
/* Put here the code to store, into fi->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. */
void
d10v_frame_find_saved_regs (fi, fsr)
d10v_frame_init_saved_regs (fi)
struct frame_info *fi;
struct frame_saved_regs *fsr;
{
CORE_ADDR fp, pc;
unsigned long op;
@ -566,7 +602,7 @@ d10v_frame_find_saved_regs (fi, fsr)
int i;
fp = fi->frame;
memset (fsr, 0, sizeof (*fsr));
memset (fi->saved_regs, 0, SIZEOF_FRAME_SAVED_REGS);
next_addr = 0;
pc = get_pc_function_start (fi->pc);
@ -589,15 +625,15 @@ d10v_frame_find_saved_regs (fi, fsr)
/* st rn, @(offset,sp) */
short offset = op & 0xFFFF;
short n = (op >> 20) & 0xF;
fsr->regs[n] = next_addr + offset;
fi->saved_regs[n] = next_addr + offset;
}
else if ((op & 0x3F1F0000) == 0x350F0000)
{
/* st2w rn, @(offset,sp) */
short offset = op & 0xFFFF;
short n = (op >> 20) & 0xF;
fsr->regs[n] = next_addr + offset;
fsr->regs[n+1] = next_addr + offset + 2;
fi->saved_regs[n] = next_addr + offset;
fi->saved_regs[n+1] = next_addr + offset + 2;
}
else
break;
@ -615,45 +651,45 @@ d10v_frame_find_saved_regs (fi, fsr)
op1 = (op & 0x3FFF8000) >> 15;
op2 = op & 0x7FFF;
}
if (!prologue_find_regs(op1,fsr,pc) || !prologue_find_regs(op2,fsr,pc))
if (!prologue_find_regs(op1, fi, pc) || !prologue_find_regs(op2, fi, pc))
break;
}
pc += 4;
}
fi->size = -next_addr;
fi->extra_info->size = -next_addr;
if (!(fp & 0xffff))
fp = D10V_MAKE_DADDR (read_register(SP_REGNUM));
for (i=0; i<NUM_REGS-1; i++)
if (fsr->regs[i])
if (fi->saved_regs[i])
{
fsr->regs[i] = fp - (next_addr - fsr->regs[i]);
fi->saved_regs[i] = fp - (next_addr - fi->saved_regs[i]);
}
if (fsr->regs[LR_REGNUM])
if (fi->saved_regs[LR_REGNUM])
{
CORE_ADDR return_pc = read_memory_unsigned_integer (fsr->regs[LR_REGNUM], REGISTER_RAW_SIZE (LR_REGNUM));
fi->return_pc = D10V_MAKE_IADDR (return_pc);
CORE_ADDR return_pc = read_memory_unsigned_integer (fi->saved_regs[LR_REGNUM], REGISTER_RAW_SIZE (LR_REGNUM));
fi->extra_info->return_pc = D10V_MAKE_IADDR (return_pc);
}
else
{
fi->return_pc = D10V_MAKE_IADDR (read_register(LR_REGNUM));
fi->extra_info->return_pc = D10V_MAKE_IADDR (read_register(LR_REGNUM));
}
/* th SP is not normally (ever?) saved, but check anyway */
if (!fsr->regs[SP_REGNUM])
if (!fi->saved_regs[SP_REGNUM])
{
/* if the FP was saved, that means the current FP is valid, */
/* otherwise, it isn't being used, so we use the SP instead */
if (uses_frame)
fsr->regs[SP_REGNUM] = read_register(FP_REGNUM) + fi->size;
fi->saved_regs[SP_REGNUM] = read_register(FP_REGNUM) + fi->extra_info->size;
else
{
fsr->regs[SP_REGNUM] = fp + fi->size;
fi->frameless = 1;
fsr->regs[FP_REGNUM] = 0;
fi->saved_regs[SP_REGNUM] = fp + fi->extra_info->size;
fi->extra_info->frameless = 1;
fi->saved_regs[FP_REGNUM] = 0;
}
}
}
@ -663,9 +699,13 @@ d10v_init_extra_frame_info (fromleaf, fi)
int fromleaf;
struct frame_info *fi;
{
fi->frameless = 0;
fi->size = 0;
fi->return_pc = 0;
fi->extra_info = (struct frame_extra_info *)
frame_obstack_alloc (sizeof (struct frame_extra_info));
frame_saved_regs_zalloc (fi);
fi->extra_info->frameless = 0;
fi->extra_info->size = 0;
fi->extra_info->return_pc = 0;
/* The call dummy doesn't save any registers on the stack, so we can
return now. */
@ -675,8 +715,7 @@ d10v_init_extra_frame_info (fromleaf, fi)
}
else
{
struct frame_saved_regs dummy;
d10v_frame_find_saved_regs (fi, &dummy);
d10v_frame_init_saved_regs (fi);
}
}

6
gdb/defs.h
View File

@ -747,12 +747,6 @@ extern PTR xmrealloc PARAMS ((PTR, PTR, long));
extern int parse_escape PARAMS ((char **));
/* compat - handle old targets that just define REGISTER_NAMES */
#ifndef REGISTER_NAME
extern char *gdb_register_names[];
#define REGISTER_NAME(i) gdb_register_names[i]
#endif
/* Message to be printed before the error message, when an error occurs. */
extern char *error_pre_print;

12
gdb/doc/ChangeLog
View File

@ -1,3 +1,15 @@
Mon Jun 7 15:49:40 1999 Stan Shebs <shebs@andros.cygnus.com>
From Per Bothner <bothner@cygnus.com>:
* gdb.texinfo: Document Chill support.
Fri Jun 4 16:58:22 1999 Andrew Cagney <cagney@b1.cygnus.com>
* gdbint.texinfo (SP_REGNUM, FP_REGNUM, PC_REGNUM): Add reference
to corresponding TARGET_READ_reg TARGET_WRITE_reg macros.
Document that the value should be greater-than or equal-to zero.
(NO_STD_REGS): Document. Deprecate.
Tue Jun 1 15:04:15 1999 Andrew Cagney <cagney@b1.cygnus.com>
* gdbint.texinfo (TARGET_COMPLEX_BIT, TARGET_DOUBLE_COMPLEX_BIT):

475
gdb/doc/gdb.texinfo
View File

@ -404,24 +404,25 @@ Change things in your program, so you can experiment with correcting the
effects of one bug and go on to learn about another.
@end itemize
You can use @value{GDBN} to debug programs written in C or C++.
@c "MOD2" used as a "miscellaneous languages" flag here.
@c This is acceptable while there is no real doc for Chill and Pascal.
You can use @value{GDBN} to debug programs written in C and C++.
For more information, see @ref{Support,,Supported languages}.
For more information, see @ref{C,,C and C++}.
@cindex Chill
@cindex Modula-2
Support for Modula-2 and Chill is partial. For information on Modula-2,
see @ref{Modula-2,,Modula-2}. There is no further documentation on Chill yet.
see @ref{Modula-2,,Modula-2}. For information on Chill, see @ref{Chill}.
Debugging Pascal programs which use sets, subranges, file variables, or nested
functions does not currently work. @value{GDBN} does not support
entering expressions, printing values, or similar features using Pascal syntax.
@cindex Pascal
Debugging Pascal programs which use sets, subranges, file variables, or
nested functions does not currently work. @value{GDBN} does not support
entering expressions, printing values, or similar features using Pascal
syntax.
@cindex Fortran
@value{GDBN} can be used to debug programs written in Fortran, although
it does not yet support entering expressions, printing values, or
similar features using Fortran syntax. It may be necessary to refer to
some variables with a trailing underscore.
It may be necessary to refer to some variables with a trailing
underscore.
@ifset HPPA
This version of the manual documents HP Wildebeest (WDB) Version 0.75,
@ -5886,7 +5887,8 @@ being set automatically by @value{GDBN}.
@node Support, , Checks, Languages
@section Supported languages
@value{GDBN} supports C, C++, Fortran, Chill, assembly, and Modula-2.
@value{GDBN} supports C, C++, Fortran, Java, Chill, assembly, and Modula-2.
@c This is false ...
Some @value{GDBN} features may be used in expressions regardless of the
language you use: the @value{GDBN} @code{@@} and @code{::} operators,
and the @samp{@{type@}addr} construct (@pxref{Expressions,
@ -5903,7 +5905,8 @@ language reference or tutorial.
@menu
* C:: C and C++
* Modula-2:: Modula-2
* Modula-2:: Modula-2
* Chill:: Chill
@end menu
@node C, Modula-2, , Support
@ -6463,7 +6466,7 @@ available choices, or to finish the type list for you.
@xref{Completion,, Command completion}, for details on how to do this.
@end table
@node Modula-2, , C, Support
@node Modula-2, Chill, C, Support
@subsection Modula-2
@cindex Modula-2
@ -6905,6 +6908,452 @@ address can be specified by an integral constant, the construct
In @value{GDBN} scripts, the Modula-2 inequality operator @code{#} is
interpreted as the beginning of a comment. Use @code{<>} instead.
@node Chill, , Modula-2, Support
@subsection Chill
The extensions made to @value{GDBN} to support Chill only support output
from the GNU Chill compiler. Other Chill compilers are not currently
supported, and attempting to debug executables produced by them is most
likely to give an error as @value{GDBN} reads in the executable's symbol
table.
This section covers the following Chill related topics and the features
of @value{GDBN} which support these topics.
@menu
* How modes are displayed:: How modes are displayed
* Locations:: Locations and their accesses
* Values and their Operations:: Values and their Operations
@end menu
@node How modes are displayed
@subsubsection How modes are displayed
The Chill Datatype- (Mode) support of @value{GDBN} is directly related
with the functionality of the GNU Chill compiler, and therefore deviates
slightly from the standard specification of the Chill language. The
provided modes are:
@table @code
@item @r{@emph{Discrete modes:}}
@itemize @bullet
@item
@emph{Integer Modes} which are predefined by @code{BYTE, UBYTE, INT,
UINT, LONG, ULONG},
@item
@emph{Boolean Mode} which is predefined by @code{BOOL},
@item
@emph{Character Mode} which is predefined by @code{CHAR},
@item
@emph{Set Mode} which is displayed by the keyword @code{SET}.
@smallexample
(@value{GDBP}) ptype x
type = SET (karli = 10, susi = 20, fritzi = 100)
@end smallexample
If the type is an unnumbered set the set element values are omitted.
@item
@emph{Range Mode} which is displayed by @code{type = <basemode>
(<lower bound> : <upper bound>)}, where @code{<lower bound>, <upper
bound>} can be of any discrete literal expression (e.g. set element
names).
@end itemize
@item @r{@emph{Powerset Mode:}}
A Powerset Mode is displayed by the keyword @code{POWERSET} followed by
the member mode of the powerset. The member mode can be any discrete mode.
@smallexample
(@value{GDBP}) ptype x
type = POWERSET SET (egon, hugo, otto)
@end smallexample
@item @r{@emph{Reference Modes:}}
@itemize @bullet
@item
@emph{Bound Reference Mode} which is diplayed by the keyword @code{REF}
followed by the mode name to which the reference is bound.
@item
@emph{Free Reference Mode} which is displayed by the keyword @code{PTR}.
@end itemize
@item @r{@emph{Procedure mode}}
The procedure mode is displayed by @code{type = PROC(<parameter list>)
<return mode> EXCEPTIONS (<exception list>)}. The @code{<parameter
list>} is a list of the parameter modes. @code{<return mode>} indicates
the mode of the result of the procedure if any. The exceptionlist lists
all possible exceptions which can be raised by the procedure.
@ignore
@item @r{@emph{Instance mode}}
The instance mode is represented by a structure, which has a static
type, and is therefore not really of interest.
@end ignore
@item @r{@emph{Synchronization Modes:}}
@itemize @bullet
@item
@emph{Event Mode} which is displayed by @code{EVENT (<event length>)},
where @code{(<event length>)} is optional.
@item
@emph{Buffer Mode} which is displayed by @code{BUFFER (<buffer length>)
<buffer element mode>}, where @code{(<buffer length>)} is optional.
@end itemize
@item @r{@emph{Timing Modes:}}
@itemize @bullet
@item
@emph{Duration Mode} which is predefined by @code{DURATION}
@item
@emph{Absolute Time Mode} which is predefined by @code{TIME}
@end itemize
@item @r{@emph{Real Modes:}}
Real Modes are predefined with @code{REAL} and @code{LONG_REAL}.
@item @r{@emph{String Modes:}}
@itemize @bullet
@item
@emph{Character String Mode} which is displayed by @code{CHARS(<string
length>)}, followed by the keyword @code{VARYING} if the String Mode is
a varying mode
@item
@emph{Bit String Mode} which is displayed by @code{BOOLS(<string
length>)}.
@end itemize
@item @r{@emph{Array Mode:}}
The Array Mode is displayed by the keyword @code{ARRAY(<range>)}
followed by the element mode (which may in turn be an array mode).
@smallexample
(@value{GDBP}) ptype x
type = ARRAY (1:42)
ARRAY (1:20)
SET (karli = 10, susi = 20, fritzi = 100)
@end smallexample
@item @r{@emph{Structure Mode}}
The Structure mode is displayed by the keyword @code{STRUCT(<field
list>)}. The @code{<field list>} consists of names and modes of fields
of the structure. Variant structures have the keyword @code{CASE <field>
OF <variant fields> ESAC} in their field list. Since the current version
of the GNU Chill compiler doesn't implement tag processing (no runtime
checks of variant fields, and therefore no debugging info), the output
always displays all variant fields.
@smallexample
(@value{GDBP}) ptype str
type = STRUCT (
as x,
bs x,
CASE bs OF
(karli):
cs a
(ott):
ds x
ESAC
)
@end smallexample
@end table
@node Locations
@subsubsection Locations and their accesses
A location in Chill is an object which can contain values.
A value of a location is generally accessed by the (declared) name of
the location. The output conforms to the specification of values in
Chill programs. How values are specified, and which operations are valid
is the topic of the next section.
The pseudo-location @code{RESULT} (or @code{result}) can be used to
display or change the result of a currently-active procedure:
@smallexample
set result := EXPR
@end smallexample
- does the same as the Chill action @code{RESULT EXPR} (which
is not available in gdb).
Values of reference mode locations are printed by @code{PTR(<hex
value>)} in case of a free reference mode, and by @code{(REF <reference
mode>) (<hex-value>)} in case of a bound reference. @code{<hex value>}
represents the address where the reference points to. To access the
value of the location referenced by the pointer, use the dereference
operator `@code{->}'.
Values of procedure mode locations are displayed by @code{@{ PROC
(<argument modes> ) <return mode> @} <address> <name of procedure
location>}. @code{<argument modes>} is a list of modes according to the
parameter specification of the procedure and @code{<address>} shows the
address of the entry point.
@ignore
Locations of instance modes are displayed just like a structure with two
fields specifying the @emph{process type} and the @emph{copy number} of
the investigated instance location@footnote{This comes from the current
implementation of instances. They are implemented as a structure (no
na). The output should be something like @code{[<name of the process>;
<instance number>]}.}. The field names are @code{__proc_type} and
@code{__proc_copy}.
Locations of synchronization modes are displayed like a structure with
the field name @code{__event_data} in case of a event mode location, and
like a structure with the field @code{__buffer_data} in case of a buffer
mode location (refer to previous paragraph).
Structure Mode locations are printed by @code{[.<field name>: <value>,
...]}. The @code{<field name>} corresponds to the structure mode
definition and the layout of @code{<value>} varies depending of the mode
of the field. If the investigated structure mode location is of variant
structure mode the variant parts of the structure are enclosed in curled
braces (`@code{@{@}}'). Fields enclosed by `@code{@{,@}}' are residing
on the same memory location and represent the current values of the
memory location in their specific modes. Since no tag processing is done
all variants are displayed. A variant field is printed by
@code{(<variant name>) = .<field name>: <value>}. (who implements the
stuff ???)
@smallexample
(@value{GDBP}) print str1 $4 = [.as: 0, .bs: karli, .<TAG>: { (karli) =
[.cs: []], (susi) = [.ds: susi]}]
@end smallexample
@end ignore
Substructures of string mode-, array mode- or structure mode-values
(e.g. array slices, fields of structure locations) are accessed using
certain operations which are descibed in the next chapter.
A location value may be interpreted as having a different mode using the
location conversion. This mode conversion is written as @code{<mode
name>(<location>)}. The user has to consider that the sizes of the modes
have to be equal otherwise an error message occurs. Further no range
checking of the location against the destination mode is performed and
therefore the result can be quite confusing.
@smallexample
(@value{GDBP}) print int (s(3 up 4)) XXX TO be filled in !! XXX
@end smallexample
@node Values and their Operations
@subsubsection Values and their Operations
Values are used to alter locations, to investigate complex structures in
more detail or to filter relevant information out of a large amount of
data. There are several (mode dependent) operations defined which enable
such investigations. These operations are not only applicable to
constant values but also to locations, which can become quite useful
when debugging complex structures. During parsing the command line
(e.g. evaluating an expression) @value{GDBN} treats location names as
the values behind these locations.
This subchapters describes how values have to be specified and which
operations are legal to be used with such values.
@table @code
@item Literal Values
Literal values are specified in the same manner as in GNU Chill programs.
For detailed specification refer to the GNU Chill implementation Manual
chapter 1.5.
@ignore
@itemize @bullet
@item
@emph{Integer Literals} are specified in the same manner as in Chill
programs (refer z200/88 chpt 5.2.4.2)
@item
@emph{Boolean Literals} are defined by @code{TRUE} and @code{FALSE}.
@item
@emph{Character Literals} are defined by @code{'<character>'}. (e.g.
@code{'M'})
@item
@emph{Set Literals} are defined by a name which was specified in a set
mode. The value delivered by a Set Literal is the set value. This is
comparable to an enumaration in C/C++ language.
@item
@emph{Emptiness Literal} is predefined by @code{NULL}. The value of the
emptiness literal delivers either the empty reference value, the empty
procedure value or the empty instance value.
@item
@emph{Character String Literals} are defined by a sequence of characters
enclosed in single- or double quotes. If a single- or double quote has
to be part of the string literal it has to be stuffed (specified twice).
@item
@emph{Bitstring Literals} are specified in the same manner as in Chill
programs (refer z200/88 chpt 5.2.4.8).
@item
@emph{Floating point literals} are specified in the same manner as in
(gnu-)Chill programs (refer GNU Chill implementation Manual chapter 1.5).
@end itemize
@end ignore
@item Tuple Values
A tuple is specified by @code{<mode name>[<tuple>]}, where @code{<mode
name>} can be omitted if the mode of the tuple is unambigous. This
unambiguity is derived from the context of a evaluated expression.
@code{<tuple>} can be one of the following:
@itemize @bullet
@item @emph{Powerset Tuple}
@item @emph{Array Tuple}
@item @emph{Structure Tuple}
Powerset tuples, array tuples and structure tuples are specified in the
same manner as in Chill programs refer z200/88 chpt 5.2.5.
@end itemize
@item String Element Value
A string element value is specified by @code{<string value>(<index>)},
where @code{<index>} is a integer expression. It delivers a character
value which is equivalent to the character indexed by @code{<index>} in
the string.
@item String Slice Value
A string slice value is specified by @code{<string value>(<slice
spec>)}, where @code{<slice spec>} can be either a range of integer
expressions or specified by @code{<start expr> up <size>}.
@code{<size>} denotes the number of elements which the slice contains.
The delivered value is a string value, which is part of the specified
string.
@item Array Element Values
An array element value is specified by @code{<array value>(<expr>)} and
delivers a array element value of the mode of the specified array.
@item Array Slice Values
An array slice is specified by @code{<array value>(<slice spec>)}, where
@code{<slice spec>} can be either a range specified by expressions or by
@code{<start expr> up <size>}. @code{<size>} denotes the number of
arrayelements the slice contains. The delivered value is an array value
which is part of the specified array.
@item Structure Field Values
A structure field value is derived by @code{<structure value>.<field
name>}, where @code{<field name>} indcates the name of a field specified
in the mode definition of the structure. The mode of the delivered value
corresponds to this mode definition in the structure definition.
@item Procedure Call Value
The procedure call value is derived from the return value of the
procedure@footnote{If a procedure call is used for instance in an
expression, then this procedure is called with all its side
effects. This can lead to confusing results if used carelessly.}.
Values of duration mode locations are represented by ULONG literals.
Values of time mode locations are represented by TIME(<secs>:<nsecs>).
@ignore
This is not implemented yet:
@item Built-in Value
@noindent
The following built in functions are provided:
@table @code
@item @code{ADDR()}
@item @code{NUM()}
@item @code{PRED()}
@item @code{SUCC()}
@item @code{ABS()}
@item @code{CARD()}
@item @code{MAX()}
@item @code{MIN()}
@item @code{SIZE()}
@item @code{UPPER()}
@item @code{LOWER()}
@item @code{LENGTH()}
@item @code{SIN()}
@item @code{COS()}
@item @code{TAN()}
@item @code{ARCSIN()}
@item @code{ARCCOS()}
@item @code{ARCTAN()}
@item @code{EXP()}
@item @code{LN()}
@item @code{LOG()}
@item @code{SQRT()}
@end table
For a detailed description refer to the GNU Chill implementation manual
chapter 1.6.
@end ignore
@item Zero-adic Operator Value
The zero-adic operator value is derived from the instance value for the
current active process.
@item Expression Values
The value delivered by an expression is the result of the evaluation of
the specified expression. If there are error conditions (mode
incompatibility, etc.) the evaluation of expressions is aborted with a
corresponding error message. Expressions may be paranthesised which
causes the evaluation of this expression before any other expression
which uses the result of the paranthesised expression. The following
operators are supported by @value{GDBN}:
@table @code
@item @code{OR, ORIF, XOR}
@item @code{AND, ANDIF}
@item @code{NOT}
Logical operators defined over operands of boolean mode.
@item @code{=, /=}
Equality and inequality operators defined over all modes.
@item @code{>, >=}
@item @code{<, <=}
Relational operators defined over predefined modes.
@item @code{+, -}
@item @code{*, /, MOD, REM}
Arithmetic operators defined over predefined modes.
@item @code{-}
Change sign operator.
@item @code{//}
String concatenation operator.
@item @code{()}
String repetition operator.
@item @code{->}
Referenced location operator which can be used either to take the
address of a location (@code{->loc}), or to dereference a reference
location (@code{loc->}).
@item @code{OR, XOR}
@item @code{AND}
@item @code{NOT}
Powerset and bitstring operators.
@item @code{>, >=}
@item @code{<, <=}
Powerset inclusion operators.
@item @code{IN}
Membership operator.
@end table
@end table
@subsubsection Chill type and range checks
@value{GDBN} considers two Chill variables mode equivalent if the sizes
of the two modes are equal. This rule applies recursively to more
complex datatypes which means that complex modes are treated
eqivalent if all element modes (which also can be complex modes like
structures, arrays, etc.) have the same size.
Range checking is done on all mathematical operations, assignment, array
index bounds and all built in procedures.
Strong type checks are forced using the @value{GDBN} command @code{set
check strong}. This enforces strong type and range checks on all
operations where Chill constructs are used (expressions, built in
functions, etc.) in respect to the semantics as defined in the z.200
language specification.
@noindent
All checks can be disabled by the @value{GDBN} command @code{set check
off}.
@ignore
@subsubsection Deviations from the Chill Standard Z200/88
see last paragraph ?
@end ignore
@subsubsection Chill defaults
If type and range checking are set automatically by @value{GDBN}, they
both default to @code{on} whenever the working language changes to
Chill. This happens regardless of whether you, or @value{GDBN},
selected the working language.
If you allow @value{GDBN} to set the language automatically, then entering
code compiled from a file whose name ends with @file{.ch} sets the
working language to Chill. @xref{Automatically, ,Having @value{GDBN} set
the language automatically}, for further details.
@node Symbols, Altering, Languages, Top
@chapter Examining the Symbol Table

22
gdb/doc/gdbint.texinfo
View File

@ -912,6 +912,9 @@ Your host config file defines this if it includes declarations of
@code{memcpy} and @code{memset}. Define this to avoid conflicts between
the native include files and the declarations in @file{defs.h}.
@item NO_STD_REGS
This macro is deprecated.
@item NO_SYS_FILE
Define this if your system does not have a @code{<sys/file.h>}.
@ -1331,7 +1334,11 @@ If defined, then the `info float' command will print information about
the processor's floating point unit.
@item FP_REGNUM
The number of the frame pointer register.
If the virtual frame pointer is kept in a register, then define this
macro to be the number (greater than or equal to zero) of that register.
This should only need to be defined if @code{TARGET_READ_FP} and
@code{TARGET_WRITE_FP} are not defined.
@item FRAMELESS_FUNCTION_INVOCATION(fi)
Define this to an expression that returns 1 if the function invocation
@ -1500,8 +1507,10 @@ counter. (Defined only for the RS/6000.)
@item PC_REGNUM
If the program counter is kept in a register, then define this macro to
be the number of that register. This need be defined only if
@code{TARGET_WRITE_PC} is not defined.
be the number (greater than or equal to zero) of that register.
This should only need to be defined if @code{TARGET_READ_PC} and
@code{TARGET_WRITE_PC} are not defined.
@item NPC_REGNUM
The number of the ``next program counter'' register, if defined.
@ -1576,8 +1585,11 @@ the functions being called, then define this macro to return a new PC
that is at the start of the real function.
@item SP_REGNUM
Define this to be the number of the register that serves as the stack
pointer.
If the stack-pointer is kept in a register, then define this macro to be
the number (greater than or equal to zero) of that register.
This should only need to be defined if @code{TARGET_WRITE_SP} and
@code{TARGET_WRITE_SP} are not defined.
@item STAB_REG_TO_REGNUM
Define this to convert stab register numbers (as gotten from `r'

17
gdb/eval.c
View File

@ -396,19 +396,6 @@ evaluate_subexp_standard (expect_type, exp, pos, noside)
struct type ** arg_types;
int save_pos1;
/* This expect_type crap should not be used for C. C expressions do
not have any notion of expected types, never has and (goddess
willing) never will. The C++ code uses it for some twisted
purpose (I haven't investigated but I suspect it just the usual
combination of Stroustrup figuring out some crazy language
feature and Tiemann figuring out some crazier way to try to
implement it). CHILL has the tuple stuff; I don't know enough
about CHILL to know whether expected types is the way to do it.
FORTRAN I don't know. */
if (exp->language_defn->la_language != language_cplus
&& exp->language_defn->la_language != language_chill)
expect_type = NULL_TYPE;
pc = (*pos)++;
op = exp->elts[pc].opcode;
@ -421,7 +408,7 @@ evaluate_subexp_standard (expect_type, exp, pos, noside)
0,
exp->elts[pc + 1].type,
&exp->elts[pc + 3].string,
expect_type);
NULL_TYPE);
if (arg1 == NULL)
error ("There is no field named %s", &exp->elts[pc + 3].string);
return arg1;
@ -1635,7 +1622,7 @@ bad_pointer_to_member:
(*pos) += 3 + BYTES_TO_EXP_ELEM (temm + 1);
}
else
evaluate_subexp (expect_type, exp, pos, EVAL_SKIP);
evaluate_subexp (NULL_TYPE, exp, pos, EVAL_SKIP);
goto nosideret;
}
else

40
gdb/fork-child.c
View File

@ -1,5 +1,5 @@
/* Fork a Unix child process, and set up to debug it, for GDB.
Copyright 1990, 1991, 1992, 1993, 1994, 1996 Free Software Foundation, Inc.
Copyright 1990, 91, 92, 93, 94, 1996, 1999 Free Software Foundation, Inc.
Contributed by Cygnus Support.
This file is part of GDB.
@ -33,8 +33,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include <unistd.h>
#endif
#define DEBUGGING 0
/* This just gets used as a default if we can't find SHELL */
#ifndef SHELL_FILE
#define SHELL_FILE "/bin/sh"
@ -57,9 +55,6 @@ breakup_args (
{
char *cp = scratch;
#if DEBUGGING
printf ("breakup_args: input = %s\n", scratch);
#endif
for (;;)
{
@ -126,7 +121,6 @@ fork_inferior (exec_file, allargs, env, traceme_fun, init_trace_fun,
char **save_our_env;
int shell = 0;
char **argv;
char *tryname;
/* If no exec file handed to us, get it from the exec-file command -- with
a good, common error message if none is specified. */
@ -147,10 +141,6 @@ fork_inferior (exec_file, allargs, env, traceme_fun, init_trace_fun,
shell = 1;
}
#if DEBUGGING
printf ("shell is %s\n", shell_file);
#endif
/* Multiplying the length of exec_file by 4 is to account for the fact
that it may expand when quoted; it is a worst-case number based on
every character being '. */
@ -169,14 +159,6 @@ fork_inferior (exec_file, allargs, env, traceme_fun, init_trace_fun,
{
/* We're going to call execvp. Create argv */
/* Largest case: every other character is a separate arg */
#if DEBUGGING
printf ("allocating argv, length = %d\n",
(
(strlen (allargs) + 1) / (unsigned) 2
+ 2
) * sizeof (*argv)
);
#endif
argv = (char **) xmalloc (((strlen (allargs) + 1) / (unsigned) 2 + 2) * sizeof (*argv));
argv[0] = exec_file;
breakup_args (allargs, &argv[1]);
@ -334,16 +316,7 @@ fork_inferior (exec_file, allargs, env, traceme_fun, init_trace_fun,
*/
if (shell)
{
#if 0
/* HP change is problematic. The -f option has different meanings
for different shells. It is particularly inappropriate for
bourne shells. */
execlp (shell_file, shell_file, "-f", "-c", shell_command, (char *) 0);
#else
execlp (shell_file, shell_file, "-c", shell_command, (char *) 0);
#endif
/* If we get here, it's an error */
fprintf_unfiltered (gdb_stderr, "Cannot exec %s: %s.\n", shell_file,
@ -356,16 +329,7 @@ fork_inferior (exec_file, allargs, env, traceme_fun, init_trace_fun,
/* Otherwise, we directly exec the target program with execvp. */
int i;
char *errstring;
#if DEBUGGING
printf ("about to exec target, exec_file = %s\n", exec_file);
i = 0;
while (argv[i] != NULL)
{
printf ("strlen(argv[%d]) is %d\n", i, strlen (argv[i]));
printf ("argv[%d] is %s\n", i, argv[i]);
i++;
}
#endif
execvp (exec_file, argv);
/* If we get here, it's an error */

4
gdb/frame.h
View File

@ -241,6 +241,10 @@ extern int generic_pc_in_call_dummy PARAMS ((CORE_ADDR pc,
extern char * generic_find_dummy_frame PARAMS ((CORE_ADDR pc,
CORE_ADDR fp));
extern void generic_fix_call_dummy PARAMS ((char *dummy, CORE_ADDR pc, CORE_ADDR fun,
int nargs, struct value **args,
struct type *type, int gcc_p));
#ifdef __GNUC__
/* Some native compilers, even ones that are supposed to be ANSI and for which __STDC__
is true, complain about forward decls of enums. */

9
gdb/gdbarch.c
View File

@ -339,6 +339,15 @@ set_architecture_from_file (abfd)
}
/* Misc helper functions for targets. */
int
frame_num_args_unknown (fi)
struct frame_info *fi;
{
return -1;
}
/* Disassembler */

20
gdb/gdbarch.h
View File

@ -20,6 +20,12 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#ifndef GDBARCH_H
#define GDBARCH_H
#ifdef __STDC__
struct frame_info;
struct value;
enum lval_type;
#endif
/* The target-system-dependant byte order is dynamic */
/* TARGET_BYTE_ORDER_SELECTABLE_P determines if the target endianness
@ -140,6 +146,14 @@ extern disassemble_info tm_print_insn_info;
#endif
/* Fallback definition for REGISTER_NAME for systems still defining
REGISTER_NAMES. */
#ifndef REGISTER_NAME
extern char *gdb_register_names[];
#define REGISTER_NAME(i) gdb_register_names[i]
#endif
/* Set the dynamic target-system-dependant parameters (architecture,
byte-order, ...) using information found in the BFD */
@ -152,6 +166,12 @@ extern void set_gdbarch_from_file PARAMS ((bfd *));
extern void set_architecture_from_arch_mach PARAMS ((enum bfd_architecture, unsigned long));
/* Helper function for targets that don't know how my arguments are
being passed */
extern int frame_num_args_unknown PARAMS ((struct frame_info *fi));
/* gdbarch trace variable */
extern int gdbarch_debug;

63
gdb/gdbthread.h
View File

@ -55,67 +55,4 @@ extern void save_infrun_state PARAMS ((int, CORE_ADDR, CORE_ADDR, char *,
/* Commands with a prefix of `thread'. */
extern struct cmd_list_element *thread_cmd_list;
/* Support for external (remote) systems with threads (processes) */
/* For example real time operating systems */
#define OPAQUETHREADBYTES 8
/* a 64 bit opaque identifier */
typedef unsigned char threadref[OPAQUETHREADBYTES] ;
/* WARNING: This threadref data structure comes from the remote O.S., libstub
protocol encoding, and remote.c. it is not particularly changable */
/* Right now, the internal structure is int. We want it to be bigger.
Plan to fix this.
*/
typedef int gdb_threadref ; /* internal GDB thread reference */
/* gdb_ext_thread_info is an internal GDB data structure which is
equivalint to the reply of the remote threadinfo packet */
struct gdb_ext_thread_info
{
threadref threadid ; /* External form of thread reference */
int active ; /* Has state interesting to GDB? , regs, stack */
char display[256] ; /* Brief state display, name, blocked/syspended */
char shortname[32] ; /* To be used to name threads */
char more_display[256] ; /* Long info, statistics, queue depth, whatever */
} ;
/* The volume of remote transfers can be limited by submitting
a mask containing bits specifying the desired information.
Use a union of these values as the 'selection' parameter to
get_thread_info. FIXME: Make these TAG names more thread specific.
*/
#define TAG_THREADID 1
#define TAG_EXISTS 2
#define TAG_DISPLAY 4
#define TAG_THREADNAME 8
#define TAG_MOREDISPLAY 16
/* Always initialize an instance of this structure using run time assignments */
/* Because we are likely to add entrtries to it. */
/* Alternatly, WE COULD ADD THESE TO THE TARGET VECTOR */
struct target_thread_vector
{
int (*find_new_threads)PARAMS((void)) ;
int (*get_thread_info) PARAMS((
gdb_threadref * ref,
int selection,
struct gdb_ext_thread_info * info
)) ;
/* to_thread_alive - Already in the target vector */
/* to_switch_thread - Done via select frame */
} ;
extern void bind_target_thread_vector PARAMS((struct target_thread_vector * vec)) ;
extern struct target_thread_vector * unbind_target_thread_vector PARAMS ((void)) ;
extern int target_get_thread_info PARAMS((
gdb_threadref * ref,
int selection,
struct gdb_ext_thread_info * info)) ;
#endif /* GDBTHREAD_H */

90
gdb/gnu-nat.c
View File

@ -1,5 +1,5 @@
/* Interface GDB to the GNU Hurd
Copyright (C) 1992, 1995, 1996, 1997 Free Software Foundation, Inc.
Copyright (C) 1992, 1995, 1996, 1997, 1999 Free Software Foundation, Inc.
This file is part of GDB.
@ -108,6 +108,7 @@ void inf_set_step_thread (struct inf *inf, struct proc *proc);
void inf_detach (struct inf *inf);
void inf_attach (struct inf *inf, int pid);
void inf_signal (struct inf *inf, enum target_signal sig);
void inf_continue (struct inf *inf);
#define inf_debug(_inf, msg, args...) \
do { struct inf *__inf = (_inf); \
@ -194,19 +195,22 @@ struct inf
/* True if we think at least one thread in the inferior could currently be
running. */
int running : 1;
unsigned int running : 1;
/* True if the process has stopped (in the proc server sense). Note that
since a proc server `stop' leaves the signal thread running, the inf can
be RUNNING && STOPPED... */
int stopped : 1;
unsigned int stopped : 1;
/* True if the inferior has no message port. */
unsigned int nomsg : 1;
/* True if the inferior is traced. */
int traced : 1;
unsigned int traced : 1;
/* True if we shouldn't try waiting for the inferior, usually because we
can't for some reason. */
int no_wait : 1;
unsigned int no_wait : 1;
/* When starting a new inferior, we don't try to validate threads until all
the proper execs have been done. This is a count of how many execs we
@ -635,8 +639,9 @@ struct inf *make_inf ()
inf->step_thread = 0;
inf->signal_thread = 0;
inf->event_port = MACH_PORT_NULL;
inf->stopped = 0;
inf->running = 0;
inf->stopped = 0;
inf->nomsg = 1;
inf->traced = 0;
inf->no_wait = 0;
inf->pending_execs = 0;
@ -680,10 +685,11 @@ inf_cleanup (struct inf *inf)
inf_set_pid (inf, -1);
inf->pid = 0;
inf->running = 0;
inf->stopped = 0;
inf->nomsg = 1;
inf->traced = 0;
inf->no_wait = 0;
inf->stopped = 0;
inf->running = 0;
inf->pending_execs = 0;
if (inf->event_port)
@ -760,9 +766,12 @@ inf_set_pid (struct inf *inf, pid_t pid)
inf->pid = -1;
}
/* Validates INF's stopped field from the actual proc server state. */
/* Validates INF's stopped, nomsg and traced field from the actual
proc server state. Note that the traced field is only updated from
the proc server state if we do not have a message port. If we do
have a message port we'd better look at the tracemask itself. */
static void
inf_validate_stopped (struct inf *inf)
inf_validate_procinfo (struct inf *inf)
{
char *noise;
mach_msg_type_number_t noise_len = 0;
@ -776,6 +785,9 @@ inf_validate_stopped (struct inf *inf)
if (! err)
{
inf->stopped = !!(pi->state & PI_STOPPED);
inf->nomsg = !!(pi->state & PI_NOMSG);
if (inf->nomsg)
inf->traced = !!(pi->state & PI_TRACED);
vm_deallocate (mach_task_self (), (vm_address_t)pi, pi_len);
if (noise_len > 0)
vm_deallocate (mach_task_self (), (vm_address_t)noise, noise_len);
@ -1147,9 +1159,16 @@ inf_detach (struct inf *inf)
{
struct proc *thread;
inf_validate_procinfo (inf);
inf_set_traced (inf, 0);
if (inf->stopped)
inf_signal (inf, TARGET_SIGNAL_0);
{
if (inf->nomsg)
inf_continue (inf);
else
inf_signal (inf, TARGET_SIGNAL_0);
}
proc_restore_exc_port (task);
task->sc = inf->detach_sc;
@ -1291,6 +1310,34 @@ inf_signal (struct inf *inf, enum target_signal sig)
#undef NAME
}
/* Continue INF without delivering a signal. This is meant to be used
when INF does not have a message port. */
void
inf_continue (struct inf *inf)
{
process_t proc;
error_t err = proc_pid2proc (proc_server, inf->pid, &proc);
if (! err)
{
inf_debug (inf, "continuing process");
err = proc_mark_cont (proc);
if (! err)
{
struct proc *thread;
for (thread = inf->threads; thread; thread = thread->next)
thread_resume (thread->port);
inf->stopped = 0;
}
}
if (err)
warning ("Can't continue process: %s", strerror (err));
}
/* The inferior used for all gdb target ops. */
struct inf *current_inferior = 0;
@ -1800,8 +1847,15 @@ gnu_resume (int tid, int step, enum target_signal sig)
inf_debug (inf, "tid = %d, step = %d, sig = %d", tid, step, sig);
inf_validate_procinfo (inf);
if (sig != TARGET_SIGNAL_0 || inf->stopped)
inf_signal (inf, sig);
{
if (sig == TARGET_SIGNAL_0 && inf->nomsg)
inf_continue (inf);
else
inf_signal (inf, sig);
}
else if (inf->wait.exc.reply != MACH_PORT_NULL)
/* We received an exception to which we have chosen not to forward, so
abort the faulting thread, which will perhaps retake it. */
@ -1923,6 +1977,7 @@ gnu_create_inferior (exec_file, allargs, env)
push_target (&gnu_ops);
inf->pending_execs = 2;
inf->nomsg = 1;
inf->traced = 1;
/* Now let the child run again, knowing that it will stop immediately
@ -1938,6 +1993,7 @@ gnu_create_inferior (exec_file, allargs, env)
fork_inferior (exec_file, allargs, env, trace_me, attach_to_child,
NULL, NULL);
inf_validate_procinfo (inf);
inf_update_signal_thread (inf);
inf_set_traced (inf, inf->want_signals);
@ -2007,13 +2063,13 @@ gnu_attach (args, from_tty)
/* We have to initialize the terminal settings now, since the code
below might try to restore them. */
target_terminal_init ();
inf_update_signal_thread (inf);
inf_set_traced (inf, inf->want_signals);
/* If the process was stopped before we attached, make it continue the next
time the user does a continue. */
inf_validate_stopped (inf);
inf_validate_procinfo (inf);
inf_update_signal_thread (inf);
inf_set_traced (inf, inf->want_signals);
#if 0 /* Do we need this? */
renumber_threads (0); /* Give our threads reasonable names. */

47
gdb/go32-nat.c
View File

@ -166,6 +166,12 @@ static int go32_insert_nonaligned_watchpoint (int pid, CORE_ADDR waddr,
CORE_ADDR addr, int len, int rw);
static struct target_ops go32_ops;
static void
go32_terminal_init (void);
static void
go32_terminal_inferior (void);
static void
go32_terminal_ours (void);
static void
print_387_status (unsigned short status, struct env387 *ep)
@ -812,6 +818,41 @@ go32_insert_hw_breakpoint (CORE_ADDR addr, CORE_ADDR shadow)
return 0;
}
static int inf_flags_valid = 0;
static int inf_in_flag;
static int inf_out_flag;
static void
go32_terminal_init (void)
{
/* Save the filemodes for stdin/stout */
inf_in_flag = setmode(0, 0);
setmode(0, inf_in_flag);
inf_out_flag = setmode(1, 0);
setmode(1, inf_out_flag);
inf_flags_valid = 1;
}
static void
go32_terminal_inferior (void)
{
/* set the filemodes for stdin/stdout of the inferior */
if (inf_flags_valid)
{
setmode(0, inf_in_flag);
setmode(1, inf_out_flag);
}
}
static void
go32_terminal_ours (void)
{
/* Switch to text mode on stdin/stdout always on the gdb terminal and
save the inferior modes to be restored later */
inf_in_flag = setmode(0, O_TEXT);
inf_out_flag = setmode(1, O_TEXT);
}
static void
init_go32_ops (void)
{
@ -831,10 +872,10 @@ init_go32_ops (void)
go32_ops.to_files_info = go32_files_info;
go32_ops.to_insert_breakpoint = memory_insert_breakpoint;
go32_ops.to_remove_breakpoint = memory_remove_breakpoint;
go32_ops.to_terminal_init = ignore;
go32_ops.to_terminal_inferior = ignore;
go32_ops.to_terminal_init = go32_terminal_init;
go32_ops.to_terminal_inferior = go32_terminal_inferior;
go32_ops.to_terminal_ours_for_output = ignore;
go32_ops.to_terminal_ours = ignore;
go32_ops.to_terminal_ours = go32_terminal_ours;
go32_ops.to_terminal_info = ignore2;
go32_ops.to_kill = go32_kill_inferior;
go32_ops.to_create_inferior = go32_create_inferior;

222
gdb/hppa-tdep.c
View File

@ -1923,7 +1923,22 @@ cover_find_stub_with_shl_get (args)
On the hppa we need to call the stack dummy through $$dyncall.
Therefore our version of FIX_CALL_DUMMY takes an extra argument,
real_pc, which is the location where gdb should start up the
inferior to do the function call. */
inferior to do the function call.
This has to work across several versions of hpux, bsd, osf1. It has to
work regardless of what compiler was used to build the inferior program.
It should work regardless of whether or not end.o is available. It has
to work even if gdb can not call into the dynamic loader in the inferior
to query it for symbol names and addresses.
Yes, all those cases should work. Luckily code exists to handle most
of them. The complexity is in selecting exactly what scheme should
be used to perform the inferior call.
At the current time this routine is known not to handle cases where
the program was linked with HP's compiler without including end.o.
Please contact Jeff Law (law@cygnus.com) before changing this code. */
CORE_ADDR
hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
@ -1939,20 +1954,35 @@ hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
struct minimal_symbol *msymbol;
struct minimal_symbol *trampoline;
int flags = read_register (FLAGS_REGNUM);
struct unwind_table_entry *u;
CORE_ADDR new_stub=0;
CORE_ADDR solib_handle=0;
struct unwind_table_entry *u = NULL;
CORE_ADDR new_stub = 0;
CORE_ADDR solib_handle = 0;
/* Nonzero if we will use GCC's PLT call routine. This routine must be
passed an import stub, not a PLABEL. It is also necessary to set %r19
(the PIC register) before performing the call.
If zero, then we are using __d_plt_call (HP's PLT call routine) or we
are calling the target directly. When using __d_plt_call we want to
use a PLABEL instead of an import stub. */
int using_gcc_plt_call = 1;
/* Prefer __gcc_plt_call over the HP supplied routine because
__gcc_plt_call works for any number of arguments. */
trampoline = NULL;
if (lookup_minimal_symbol ("__gcc_plt_call", NULL, NULL) == NULL)
using_gcc_plt_call = 0;
msymbol = lookup_minimal_symbol ("$$dyncall", NULL, NULL);
if (msymbol == NULL)
error ("Can't find an address for $$dyncall trampoline"); /* purecov: deadcode */
error ("Can't find an address for $$dyncall trampoline");
dyncall_addr = SYMBOL_VALUE_ADDRESS (msymbol);
/* FUN could be a procedure label, in which case we have to get
its real address and the value of its GOT/DP. */
if (fun & 0x2)
its real address and the value of its GOT/DP if we plan to
call the routine via gcc_plt_call. */
if ((fun & 0x2) && using_gcc_plt_call)
{
/* Get the GOT/DP value for the target function. It's
at *(fun+4). Note the call dummy is *NOT* allowed to
@ -1967,20 +1997,14 @@ hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
{
#ifndef GDB_TARGET_IS_PA_ELF
/* FUN could be either an export stub, or the real address of a
function in a shared library. We must call an import stub
rather than the export stub or real function for lazy binding
to work correctly. */
/* FUN could be an export stub, the real address of a function, or
a PLABEL. When using gcc's PLT call routine we must call an import
stub rather than the export stub or real function for lazy binding
to work correctly
/* elz: let's see if fun is in a shared library */
solib_handle = som_solib_get_solib_by_pc(fun);
/* elz: for 10.30 and 11.00 the calls via __d_plt_call cannot be made
via import stubs, only via plables, so this code here becomes useless.
On 10.20, the plables mechanism works too, so we just ignore this import
stub stuff */
#if 0
if (solib_handle)
/* If we are using the gcc PLT call routine, then we need to
get the import stub for the target function. */
if (using_gcc_plt_call && som_solib_get_got_by_pc (fun))
{
struct objfile *objfile;
struct minimal_symbol *funsymbol, *stub_symbol;
@ -1994,8 +2018,14 @@ hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
right name. */
ALL_OBJFILES (objfile)
{
stub_symbol = lookup_minimal_symbol (SYMBOL_NAME (funsymbol),
NULL, objfile);
stub_symbol
= lookup_minimal_symbol_solib_trampoline
(SYMBOL_NAME (funsymbol), NULL, objfile);
if (! stub_symbol)
stub_symbol = lookup_minimal_symbol (SYMBOL_NAME (funsymbol),
NULL, objfile);
/* Found a symbol with the right name. */
if (stub_symbol)
{
@ -2006,7 +2036,9 @@ hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
/* It must also be an import stub. */
u = find_unwind_entry (SYMBOL_VALUE (stub_symbol));
if (!u || u->stub_unwind.stub_type != IMPORT)
if (!u
|| (u->stub_unwind.stub_type != IMPORT)
&& u->stub_unwind.stub_type != IMPORT_SHLIB)
continue;
/* OK. Looks like the correct import stub. */
@ -2014,92 +2046,79 @@ hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
fun = newfun;
}
}
/* Ouch. We did not find an import stub. Make an attempt to
do the right thing instead of just croaking. Most of the
time this will actually work. */
if (newfun == 0)
write_register (19, som_solib_get_got_by_pc (fun));
u = find_unwind_entry (fun);
if (u
&& (u->stub_unwind.stub_type == IMPORT
|| u->stub_unwind.stub_type == IMPORT_SHLIB))
trampoline = lookup_minimal_symbol ("__gcc_plt_call", NULL, NULL);
/* If we found the import stub in the shared library, then we have
to set %r19 before we call the stub. */
if (u && u->stub_unwind.stub_type == IMPORT_SHLIB)
write_register (19, som_solib_get_got_by_pc (fun));
}
#endif /* end of if 0 */
#endif
}
/* If we are calling an import stub (eg calling into a dynamic library)
then have sr4export call the magic __d_plt_call routine which is linked
in from end.o. (You can't use _sr4export to call the import stub as
the value in sp-24 will get fried and you end up returning to the
wrong location. You can't call the import stub directly as the code
to bind the PLT entry to a function can't return to a stack address.) */
/* If we are calling into another load module then have sr4export call the
magic __d_plt_call routine which is linked in from end.o.
/* elz:
There does not have to be an import stub to call a routine in a
different load module (note: a "load module" is an a.out or a shared
library). If you call a routine indirectly, going through $$dyncall (or
$$dyncall_external), you won't go through an import stub. Import stubs
are only used for direct calls to an imported routine.
You can't use _sr4export to make the call as the value in sp-24 will get
fried and you end up returning to the wrong location. You can't call the
target as the code to bind the PLT entry to a function can't return to a
stack address.
What you (wdb) need is to go through $$dyncall with a proper plabel for
the imported routine. shl_findsym() returns you the address of a plabel
suitable for use in making an indirect call through, e.g., through
$$dyncall.
This is taken care below with the call to find_stub_.... */
#if 0
/* elz: this check here is not necessary if we are going to call stuff through
plabels only, we just now check whether the function we call is in a shlib */
u = find_unwind_entry (fun);
if (u && u->stub_unwind.stub_type == IMPORT ||
(!(u && u->stub_unwind.stub_type == IMPORT) && solib_handle))
#endif /* 0 */
if (solib_handle)
Also, query the dynamic linker in the inferior to provide a suitable
PLABEL for the target function. */
if (! using_gcc_plt_call)
{
CORE_ADDR new_fun;
/* Prefer __gcc_plt_call over the HP supplied routine because
__gcc_plt_call works for any number of arguments. */
trampoline = lookup_minimal_symbol ("__gcc_plt_call", NULL, NULL);
if (trampoline == NULL)
trampoline = lookup_minimal_symbol ("__d_plt_call", NULL, NULL);
/* Get a handle for the shared library containing FUN. Given the
handle we can query the shared library for a PLABEL. */
solib_handle = som_solib_get_solib_by_pc (fun);
if (trampoline == NULL)
if (solib_handle)
{
error ("Can't find an address for __d_plt_call or __gcc_plt_call trampoline\nSuggest linking executable with -g (links in /opt/langtools/lib/end.o)");
}
/* This is where sr4export will jump to. */
new_fun = SYMBOL_VALUE_ADDRESS (trampoline);
struct minimal_symbol *fmsymbol = lookup_minimal_symbol_by_pc (fun);
if (strcmp (SYMBOL_NAME (trampoline), "__d_plt_call") == 0)
{
/* if the function is in a shared library, but we have no import sub for
it, we need to get the plabel from a call to __d_shl_get, which is a
function in end.o. To call this function we need to set up various things */
/* actually now we just use the plabel any time we make the call,
because on 10.30 and 11.00 this is the only acceptable way. This also
works fine for 10.20 */
/* if (!(u && u->stub_unwind.stub_type == IMPORT) && solib_handle) */
{
struct minimal_symbol *fmsymbol = lookup_minimal_symbol_by_pc(fun);
new_stub = find_stub_with_shl_get(fmsymbol, solib_handle);
trampoline = lookup_minimal_symbol ("__d_plt_call", NULL, NULL);
if (new_stub == NULL)
error("Can't find an import stub for %s", SYMBOL_NAME(fmsymbol)); /* purecov: deadcode */
}
if (trampoline == NULL)
{
error ("Can't find an address for __d_plt_call or __gcc_plt_call trampoline\nSuggest linking executable with -g or compiling with gcc.");
}
/* This is where sr4export will jump to. */
new_fun = SYMBOL_VALUE_ADDRESS (trampoline);
/* If the function is in a shared library, then call __d_shl_get to
get a PLABEL for the target function. */
new_stub = find_stub_with_shl_get (fmsymbol, solib_handle);
if (new_stub == 0)
error ("Can't find an import stub for %s", SYMBOL_NAME (fmsymbol));
/* We have to store the address of the stub in __shlib_funcptr. */
msymbol = lookup_minimal_symbol ("__shlib_funcptr", NULL,
(struct objfile *)NULL);
if (msymbol == NULL)
error ("Can't find an address for __shlib_funcptr"); /* purecov: deadcode */
msymbol = lookup_minimal_symbol ("__shlib_funcptr", NULL,
(struct objfile *)NULL);
/* if (new_stub != NULL) */
target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol), (char *)&new_stub, 4);
/* this is no longer used */
/* else
target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol), (char *)&fun, 4); */
if (msymbol == NULL)
error ("Can't find an address for __shlib_funcptr");
target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol),
(char *)&new_stub, 4);
/* We want sr4export to call __d_plt_call, so we claim it is
the final target. Clear trampoline. */
fun = new_fun;
trampoline = NULL;
fun = new_fun;
trampoline = NULL;
}
}
@ -2131,7 +2150,7 @@ hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
{
msymbol = lookup_minimal_symbol ("_sr4export", NULL, NULL);
if (msymbol == NULL)
error ("Can't find an address for _sr4export trampoline"); /* purecov: deadcode */
error ("Can't find an address for _sr4export trampoline");
trampoline_addr = SYMBOL_VALUE_ADDRESS (msymbol);
}
@ -2176,7 +2195,6 @@ hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p)
#endif
else
return dyncall_addr;
}
@ -3961,10 +3979,6 @@ initialize_hp_cxx_exception_support ()
return 0;
}
#if 0 /* DEBUGGING */
printf ("Hook addr found is %lx\n", eh_notify_hook_addr);
#endif
/* Next look for the notify callback routine in end.o */
/* This is always available in the SOM symbol dictionary if end.o is linked in */
msym = lookup_minimal_symbol (HP_ACC_EH_notify_callback, NULL, NULL);
@ -4011,10 +4025,6 @@ initialize_hp_cxx_exception_support ()
message, RETURN_MASK_ALL);
recurse--;
#if 0 /* DEBUGGING */
printf ("found plabel for eh notify callback: %x\n", eh_notify_callback_addr);
#endif
exception_catchpoints_are_fragile = 1;
if (!eh_notify_callback_addr)
@ -4029,10 +4039,6 @@ initialize_hp_cxx_exception_support ()
else
exception_catchpoints_are_fragile = 0;
#if 0 /* DEBUGGING */
printf ("Cb addr found is %lx\n", eh_notify_callback_addr);
#endif
/* Now, look for the breakpointable routine in end.o */
/* This should also be available in the SOM symbol dict. if end.o linked in */
msym = lookup_minimal_symbol (HP_ACC_EH_break, NULL, NULL);
@ -4050,10 +4056,6 @@ initialize_hp_cxx_exception_support ()
return 0;
}
#if 0 /* DEBUGGING */
printf ("break addr found is %lx\n", eh_break_addr);
#endif
/* Next look for the catch enable flag provided in end.o */
sym = lookup_symbol (HP_ACC_EH_catch_catch, (struct block *) NULL,
VAR_NAMESPACE, 0, (struct symtab **) NULL);
@ -4079,10 +4081,6 @@ initialize_hp_cxx_exception_support ()
}
}
#if 0 /* DEBUGGING */
printf ("catch catch addr found is %lx\n", eh_catch_catch_addr);
#endif
/* Next look for the catch enable flag provided end.o */
sym = lookup_symbol (HP_ACC_EH_catch_catch, (struct block *) NULL,
VAR_NAMESPACE, 0, (struct symtab **) NULL);
@ -4108,10 +4106,6 @@ initialize_hp_cxx_exception_support ()
}
}
#if 0 /* DEBUGGING */
printf ("catch throw addr found is %lx\n", eh_catch_throw_addr);
#endif
/* Set the flags */
hp_cxx_exception_support = 2; /* everything worked so far */
hp_cxx_exception_support_initialized = 1;

60
gdb/inftarg.c
View File

@ -508,67 +508,7 @@ child_create_inferior (exec_file, allargs, env)
char *allargs;
char **env;
{
#ifdef HPUXHPPA
char *tryname;
char *shell_file;
char *p;
char *p1;
char *path = getenv ("PATH");
int len;
struct stat statbuf;
/* On HP-UX, we have a possible bad interaction between
* the start-up-with-shell code and our catch-fork/catch-exec
* logic. To avoid the bad interaction, we start up with the
* C shell ("csh") and pass it the "-f" flag (fast start-up,
* don't run .cshrc code).
* See further comments in inferior.h toward the bottom
* (STARTUP_WITH_SHELL flag) and in fork-child.c
*/
/* Rather than passing in a hard-wired path like "/bin/csh",
* we look down the PATH to find csh. I took this code from
* procfs.c, which is the file in the Sun-specific part of GDB
* analogous to inftarg.c. See procfs.c for more detailed
* comments. - RT
*/
shell_file = "csh";
if (path == NULL)
path = "/bin:/usr/bin";
tryname = alloca (strlen (path) + strlen (shell_file) + 2);
for (p = path; p != NULL; p = p1 ? p1 + 1: NULL)
{
p1 = strchr (p, ':');
if (p1 != NULL)
len = p1 - p;
else
len = strlen (p);
strncpy (tryname, p, len);
tryname[len] = '\0';
strcat (tryname, "/");
strcat (tryname, shell_file);
if (access (tryname, X_OK) < 0)
continue;
if (stat (tryname, &statbuf) < 0)
continue;
if (!S_ISREG (statbuf.st_mode))
/* We certainly need to reject directories. I'm not quite
as sure about FIFOs, sockets, etc., but I kind of doubt
that people want to exec() these things. */
continue;
break;
}
if (p == NULL)
/* Not found. I replaced the error() which existed in procfs.c
* with simply passing in NULL and hoping fork_inferior()
* can deal with it. - RT
*/
/* error ("Can't find shell %s in PATH", shell_file); */
shell_file = NULL;
else
shell_file = tryname;
fork_inferior (exec_file, allargs, env, ptrace_me, ptrace_him, pre_fork_inferior, NULL);
#else
fork_inferior (exec_file, allargs, env, ptrace_me, ptrace_him, NULL, NULL);

70
gdb/mips-tdep.c
View File

@ -36,6 +36,12 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "opcode/mips.h"
struct frame_extra_info
{
mips_extra_func_info_t proc_desc;
int num_args;
};
/* Some MIPS boards don't support floating point while others only
support single-precision floating-point operations. See also
FP_REGISTER_DOUBLE. */
@ -106,7 +112,16 @@ char *tmp_mips_processor_type;
/* A set of original names, to be used when restoring back to generic
registers from a specific set. */
char *mips_generic_reg_names[] = REGISTER_NAMES;
char *mips_generic_reg_names[] = MIPS_REGISTER_NAMES;
char **mips_processor_reg_names = mips_generic_reg_names;
char *
mips_register_name (i)
int i;
{
return mips_processor_reg_names[i];
}
/* Names of IDT R3041 registers. */
@ -219,6 +234,18 @@ struct linked_proc_info
struct linked_proc_info *next;
} *linked_proc_desc_table = NULL;
void
mips_print_extra_frame_info (fi)
struct frame_info *fi;
{
if (fi
&& fi->extra_info
&& fi->extra_info->proc_desc
&& fi->extra_info->proc_desc->pdr.framereg < NUM_REGS)
printf_filtered (" frame pointer is at %s+%d\n",
REGISTER_NAME (fi->extra_info->proc_desc->pdr.framereg),
fi->extra_info->proc_desc->pdr.frameoffset);
}
/* Should the upper word of 64-bit addresses be zeroed? */
static int mask_address_p = 1;
@ -873,7 +900,7 @@ mips_find_saved_regs (fci)
return;
}
proc_desc = fci->proc_desc;
proc_desc = fci->extra_info->proc_desc;
if (proc_desc == NULL)
/* I'm not sure how/whether this can happen. Normally when we can't
find a proc_desc, we "synthesize" one using heuristic_proc_desc
@ -1065,7 +1092,7 @@ mips_frame_saved_pc(frame)
struct frame_info *frame;
{
CORE_ADDR saved_pc;
mips_extra_func_info_t proc_desc = frame->proc_desc;
mips_extra_func_info_t proc_desc = frame->extra_info->proc_desc;
/* We have to get the saved pc from the sigcontext
if it is a signal handler frame. */
int pcreg = frame->signal_handler_caller ? PC_REGNUM
@ -1080,7 +1107,7 @@ mips_frame_saved_pc(frame)
}
static struct mips_extra_func_info temp_proc_desc;
static struct frame_saved_regs temp_saved_regs;
static CORE_ADDR temp_saved_regs[NUM_REGS];
/* Set a register's saved stack address in temp_saved_regs. If an address
has already been set for this register, do nothing; this way we will
@ -1092,8 +1119,8 @@ set_reg_offset (regno, offset)
int regno;
CORE_ADDR offset;
{
if (temp_saved_regs.regs[regno] == 0)
temp_saved_regs.regs[regno] = offset;
if (temp_saved_regs[regno] == 0)
temp_saved_regs[regno] = offset;
}
@ -1405,7 +1432,7 @@ mips32_heuristic_proc_desc(start_pc, limit_pc, next_frame, sp)
CORE_ADDR cur_pc;
CORE_ADDR frame_addr = 0; /* Value of $r30. Used by gcc for frame-pointer */
restart:
memset (&temp_saved_regs, '\0', sizeof(struct frame_saved_regs));
memset (temp_saved_regs, '\0', SIZEOF_FRAME_SAVED_REGS);
PROC_FRAME_OFFSET(&temp_proc_desc) = 0;
PROC_FRAME_ADJUST (&temp_proc_desc) = 0; /* offset of FP from SP */
for (cur_pc = start_pc; cur_pc < limit_pc; cur_pc += MIPS_INSTLEN)
@ -1508,7 +1535,7 @@ heuristic_proc_desc(start_pc, limit_pc, next_frame)
if (start_pc == 0) return NULL;
memset (&temp_proc_desc, '\0', sizeof(temp_proc_desc));
memset (&temp_saved_regs, '\0', sizeof(struct frame_saved_regs));
memset (&temp_saved_regs, '\0', SIZEOF_FRAME_SAVED_REGS);
PROC_LOW_ADDR (&temp_proc_desc) = start_pc;
PROC_FRAME_REG (&temp_proc_desc) = SP_REGNUM;
PROC_PC_REG (&temp_proc_desc) = RA_REGNUM;
@ -1676,7 +1703,8 @@ mips_frame_chain(frame)
}
void
init_extra_frame_info(fci)
mips_init_extra_frame_info(fromleaf, fci)
int fromleaf;
struct frame_info *fci;
{
int regnum;
@ -1685,8 +1713,11 @@ init_extra_frame_info(fci)
mips_extra_func_info_t proc_desc =
fci->next ? cached_proc_desc : find_proc_desc(fci->pc, fci->next);
fci->extra_info = (struct frame_extra_info *)
frame_obstack_alloc (sizeof (struct frame_extra_info));
fci->saved_regs = NULL;
fci->proc_desc =
fci->extra_info->proc_desc =
proc_desc == &temp_proc_desc ? 0 : proc_desc;
if (proc_desc)
{
@ -1711,21 +1742,21 @@ init_extra_frame_info(fci)
(CORE_ADDR *)NULL,(CORE_ADDR *)NULL);
if (!IN_SIGTRAMP (fci->pc, name))
{
fci->saved_regs = (CORE_ADDR*)
frame_obstack_alloc (SIZEOF_FRAME_SAVED_REGS);
memcpy (fci->saved_regs, temp_saved_regs.regs, SIZEOF_FRAME_SAVED_REGS);
frame_saved_regs_zalloc (fci);
memcpy (fci->saved_regs, temp_saved_regs, SIZEOF_FRAME_SAVED_REGS);
fci->saved_regs[PC_REGNUM]
= fci->saved_regs[RA_REGNUM];
}
}
/* hack: if argument regs are saved, guess these contain args */
fci->num_args = -1; /* assume we can't tell how many args for now */
/* assume we can't tell how many args for now */
fci->extra_info->num_args = -1;
for (regnum = MIPS_LAST_ARG_REGNUM; regnum >= A0_REGNUM; regnum--)
{
if (PROC_REG_MASK(proc_desc) & (1 << regnum))
{
fci->num_args = regnum - A0_REGNUM + 1;
fci->extra_info->num_args = regnum - A0_REGNUM + 1;
break;
}
}
@ -2109,7 +2140,7 @@ mips_pop_frame()
struct frame_info *frame = get_current_frame ();
CORE_ADDR new_sp = FRAME_FP (frame);
mips_extra_func_info_t proc_desc = frame->proc_desc;
mips_extra_func_info_t proc_desc = frame->extra_info->proc_desc;
write_register (PC_REGNUM, FRAME_SAVED_PC(frame));
if (frame->saved_regs == NULL)
@ -3012,13 +3043,8 @@ mips_set_processor_type (str)
if (strcasecmp (str, mips_processor_type_table[i].name) == 0)
{
mips_processor_type = str;
for (j = 0; j < NUM_REGS; ++j)
/* FIXME - MIPS should be defining REGISTER_NAME() instead */
gdb_register_names[j] = mips_processor_type_table[i].regnames[j];
mips_processor_reg_names = mips_processor_type_table[i].regnames;
return 1;
/* FIXME tweak fpu flag too */
}
}

6
gdb/ns32k-tdep.c
View File

@ -100,6 +100,12 @@ merlin_frame_num_args (fi)
return numargs;
}
/* Return number of args passed to a frame.
Can return -1, meaning no way to tell.
Encore's C compiler often reuses same area on stack for args,
so this will often not work properly. If the arg names
are known, it's likely most of them will be printed. */
int
umax_frame_num_args (fi)
struct frame_info *fi;

85
gdb/parse.c
View File

@ -1,5 +1,5 @@
/* Parse expressions for GDB.
Copyright (C) 1986, 89, 90, 91, 94, 1998 Free Software Foundation, Inc.
Copyright (C) 1986, 89, 90, 91, 94, 98, 1999 Free Software Foundation, Inc.
Modified from expread.y by the Department of Computer Science at the
State University of New York at Buffalo, 1991.
@ -28,9 +28,10 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
during the process of parsing; the lower levels of the tree always
come first in the result. */
#include <ctype.h>
#include "defs.h"
#include "gdb_string.h"
#include <ctype.h>
#include "symtab.h"
#include "gdbtypes.h"
#include "frame.h"
@ -41,7 +42,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "parser-defs.h"
#include "gdbcmd.h"
#include "symfile.h" /* for overlay functions */
#include <ctype.h>
/* Global variables declared in parser-defs.h (and commented there). */
struct expression *expout;
@ -86,30 +86,8 @@ static struct funcall *funcall_chain;
/* Assign machine-independent names to certain registers
(unless overridden by the REGISTER_NAMES table) */
#ifdef NO_STD_REGS
unsigned num_std_regs = 0;
struct std_regs std_regs[1];
#else
struct std_regs std_regs[] = {
#ifdef PC_REGNUM
{ "pc", PC_REGNUM },
#endif
#ifdef FP_REGNUM
{ "fp", FP_REGNUM },
#endif
#ifdef SP_REGNUM
{ "sp", SP_REGNUM },
#endif
#ifdef PS_REGNUM
{ "ps", PS_REGNUM },
#endif
};
unsigned num_std_regs = (sizeof std_regs / sizeof std_regs[0]);
#endif
struct std_regs *std_regs;
/* The generic method for targets to specify how their registers are
named. The mapping can be derived from three sources:
@ -691,10 +669,6 @@ parse_nested_classes_for_hpacc (name, len, token, class_prefix, argptr)
prefix = tmp;
prefix_len = strlen (prefix);
#if 0 /* DEBUGGING */
printf ("Searching for nested class spec: Prefix is %s\n", prefix);
#endif
/* See if the prefix we have now is something we know about */
if (!done)
@ -741,10 +715,6 @@ parse_nested_classes_for_hpacc (name, len, token, class_prefix, argptr)
if (argptr)
*argptr = done ? p : end;
#if 0 /* DEBUGGING */
printf ("Searching for nested class spec: Token is %s, class_prefix %d\n", *token, *class_prefix);
#endif
return sym_var ? sym_var : sym_class; /* found */
}
@ -1321,6 +1291,8 @@ static void build_parse PARAMS ((void));
static void
build_parse ()
{
int i;
msym_text_symbol_type =
init_type (TYPE_CODE_FUNC, 1, 0, "<text variable, no debug info>", NULL);
TYPE_TARGET_TYPE (msym_text_symbol_type) = builtin_type_int;
@ -1331,6 +1303,51 @@ build_parse ()
init_type (TYPE_CODE_INT, 1, 0,
"<variable (not text or data), no debug info>",
NULL);
/* create the std_regs table */
num_std_regs = 0;
#ifdef PC_REGNUM
if (PC_REGNUM >= 0)
num_std_regs++;
#endif
#ifdef FP_REGNUM
if (FP_REGNUM >= 0)
num_std_regs++;
#endif
#ifdef FP_REGNUM
if (SP_REGNUM >= 0)
num_std_regs++;
#endif
#ifdef PS_REGNUM
if (PS_REGNUM >= 0)
num_std_regs++;
#endif
/* create an empty table */
std_regs = xmalloc ((num_std_regs + 1) * sizeof *std_regs);
i = 0;
/* fill it in */
#ifdef PC_REGNUM
std_regs[i].name = "pc";
std_regs[i].regnum = PC_REGNUM;
i++;
#endif
#ifdef FP_REGNUM
std_regs[i].name = "fp";
std_regs[i].regnum = FP_REGNUM;
i++;
#endif
#ifdef SP_REGNUM
std_regs[i].name = "sp";
std_regs[i].regnum = SP_REGNUM;
i++;
#endif
#ifdef PS_REGNUM
std_regs[i].name = "ps";
std_regs[i].regnum = PS_REGNUM;
i++;
#endif
memset (&std_regs[i], 0, sizeof (std_regs[i]));
}
void

2
gdb/parser-defs.h
View File

@ -27,7 +27,7 @@ struct std_regs {
int regnum;
};
extern struct std_regs std_regs[];
extern struct std_regs *std_regs;
extern unsigned num_std_regs;
extern struct expression *expout;

488
gdb/remote.c
View File

@ -313,6 +313,242 @@ static void packet_command PARAMS ((char *, int));
static int stub_unpack_int PARAMS ((char *buff, int fieldlength));
static int remote_current_thread PARAMS ((int oldpid));
static void remote_find_new_threads PARAMS ((void));
static void record_currthread PARAMS ((int currthread));
/* exported functions */
extern int fromhex PARAMS ((int a));
extern void getpkt PARAMS ((char *buf, int forever));
extern int putpkt PARAMS ((char *buf));
static int putpkt_binary PARAMS ((char *buf, int cnt));
void remote_console_output PARAMS ((char *));
static void check_binary_download PARAMS ((CORE_ADDR addr));
/* Define the target subroutine names */
void open_remote_target PARAMS ((char *, int, struct target_ops *, int));
void _initialize_remote PARAMS ((void));
/* */
static struct target_ops remote_ops;
static struct target_ops extended_remote_ops;
/* This was 5 seconds, which is a long time to sit and wait.
Unless this is going though some terminal server or multiplexer or
other form of hairy serial connection, I would think 2 seconds would
be plenty. */
/* Changed to allow option to set timeout value.
was static int remote_timeout = 2; */
extern int remote_timeout;
/* This variable chooses whether to send a ^C or a break when the user
requests program interruption. Although ^C is usually what remote
systems expect, and that is the default here, sometimes a break is
preferable instead. */
static int remote_break;
/* Descriptor for I/O to remote machine. Initialize it to NULL so that
remote_open knows that we don't have a file open when the program
starts. */
static serial_t remote_desc = NULL;
/* This variable (available to the user via "set remotebinarydownload")
dictates whether downloads are sent in binary (via the 'X' packet).
We assume that the stub can, and attempt to do it. This will be cleared if
the stub does not understand it. This switch is still needed, though
in cases when the packet is supported in the stub, but the connection
does not allow it (i.e., 7-bit serial connection only). */
static int remote_binary_download = 1;
/* Have we already checked whether binary downloads work? */
static int remote_binary_checked;
/* Maximum number of bytes to read/write at once. The value here
is chosen to fill up a packet (the headers account for the 32). */
#define MAXBUFBYTES(N) (((N)-32)/2)
/* Having this larger than 400 causes us to be incompatible with m68k-stub.c
and i386-stub.c. Normally, no one would notice because it only matters
for writing large chunks of memory (e.g. in downloads). Also, this needs
to be more than 400 if required to hold the registers (see below, where
we round it up based on REGISTER_BYTES). */
/* Round up PBUFSIZ to hold all the registers, at least. */
#define PBUFSIZ ((REGISTER_BYTES > MAXBUFBYTES (400)) \
? (REGISTER_BYTES * 2 + 32) \
: 400)
/* This variable sets the number of bytes to be written to the target
in a single packet. Normally PBUFSIZ is satisfactory, but some
targets need smaller values (perhaps because the receiving end
is slow). */
static int remote_write_size;
/* This variable sets the number of bits in an address that are to be
sent in a memory ("M" or "m") packet. Normally, after stripping
leading zeros, the entire address would be sent. This variable
restricts the address to REMOTE_ADDRESS_SIZE bits. HISTORY: The
initial implementation of remote.c restricted the address sent in
memory packets to ``host::sizeof long'' bytes - (typically 32
bits). Consequently, for 64 bit targets, the upper 32 bits of an
address was never sent. Since fixing this bug may cause a break in
some remote targets this variable is principly provided to
facilitate backward compatibility. */
static int remote_address_size;
/* This is the size (in chars) of the first response to the `g' command. This
is used to limit the size of the memory read and write commands to prevent
stub buffers from overflowing. The size does not include headers and
trailers, it is only the payload size. */
static int remote_register_buf_size = 0;
/* Should we try the 'P' request? If this is set to one when the stub
doesn't support 'P', the only consequence is some unnecessary traffic. */
static int stub_supports_P = 1;
/* These are pointers to hook functions that may be set in order to
modify resume/wait behavior for a particular architecture. */
void (*target_resume_hook) PARAMS ((void));
void (*target_wait_loop_hook) PARAMS ((void));
/* These are the threads which we last sent to the remote system.
-1 for all or -2 for not sent yet. */
static int general_thread;
static int continue_thread;
/* Call this function as a result of
1) A halt indication (T packet) containing a thread id
2) A direct query of currthread
3) Successful execution of set thread
*/
static void
record_currthread (currthread)
int currthread;
{
general_thread = currthread;
/* If this is a new thread, add it to GDB's thread list.
If we leave it up to WFI to do this, bad things will happen. */
if (!in_thread_list (currthread))
add_thread (currthread);
}
#define MAGIC_NULL_PID 42000
static void
set_thread (th, gen)
int th;
int gen;
{
char buf[PBUFSIZ];
int state = gen ? general_thread : continue_thread;
if (state == th)
return;
buf[0] = 'H';
buf[1] = gen ? 'g' : 'c';
if (th == MAGIC_NULL_PID)
{
buf[2] = '0';
buf[3] = '\0';
}
else if (th < 0)
sprintf (&buf[2], "-%x", -th);
else
sprintf (&buf[2], "%x", th);
putpkt (buf);
getpkt (buf, 0);
if (gen)
general_thread = th;
else
continue_thread = th;
}
/* Return nonzero if the thread TH is still alive on the remote system. */
static int
remote_thread_alive (tid)
int tid;
{
char buf[16];
if (tid < 0)
sprintf (buf, "T-%08x", -tid);
else
sprintf (buf, "T%08x", tid);
putpkt (buf);
getpkt (buf, 0);
return (buf[0] == 'O' && buf[1] == 'K');
}
/* About these extended threadlist and threadinfo packets. They are
variable length packets but, the fields within them are often fixed
length. They are redundent enough to send over UDP as is the
remote protocol in general. There is a matching unit test module
in libstub. */
#define OPAQUETHREADBYTES 8
/* a 64 bit opaque identifier */
typedef unsigned char threadref[OPAQUETHREADBYTES];
/* WARNING: This threadref data structure comes from the remote O.S., libstub
protocol encoding, and remote.c. it is not particularly changable */
/* Right now, the internal structure is int. We want it to be bigger.
Plan to fix this.
*/
typedef int gdb_threadref; /* internal GDB thread reference */
/* gdb_ext_thread_info is an internal GDB data structure which is
equivalint to the reply of the remote threadinfo packet */
struct gdb_ext_thread_info
{
threadref threadid; /* External form of thread reference */
int active; /* Has state interesting to GDB? , regs, stack */
char display[256]; /* Brief state display, name, blocked/syspended */
char shortname[32]; /* To be used to name threads */
char more_display[256]; /* Long info, statistics, queue depth, whatever */
};
/* The volume of remote transfers can be limited by submitting
a mask containing bits specifying the desired information.
Use a union of these values as the 'selection' parameter to
get_thread_info. FIXME: Make these TAG names more thread specific.
*/
#define TAG_THREADID 1
#define TAG_EXISTS 2
#define TAG_DISPLAY 4
#define TAG_THREADNAME 8
#define TAG_MOREDISPLAY 16
#define BUF_THREAD_ID_SIZE (OPAQUETHREADBYTES*2)
char *unpack_varlen_hex PARAMS ((char *buff, int *result));
static char *unpack_nibble PARAMS ((char *buf, int *val));
@ -381,221 +617,6 @@ static int remote_threadlist_iterator PARAMS ((rmt_thread_action stepfunction,
static int remote_newthread_step PARAMS ((threadref *ref, void *context));
static int remote_current_thread PARAMS ((int oldpid));
int remote_find_new_threads PARAMS ((void));
static void record_currthread PARAMS ((int currthread));
static void init_remote_threads PARAMS ((void));
/* exported functions */
extern int fromhex PARAMS ((int a));
extern void getpkt PARAMS ((char *buf, int forever));
extern int putpkt PARAMS ((char *buf));
static int putpkt_binary PARAMS ((char *buf, int cnt));
void remote_console_output PARAMS ((char *));
static void check_binary_download PARAMS ((CORE_ADDR addr));
/* Define the target subroutine names */
void open_remote_target PARAMS ((char *, int, struct target_ops *, int));
void _initialize_remote PARAMS ((void));
/* */
static struct target_ops remote_ops;
static struct target_ops extended_remote_ops;
static struct target_thread_vector remote_thread_vec;
/* This was 5 seconds, which is a long time to sit and wait.
Unless this is going though some terminal server or multiplexer or
other form of hairy serial connection, I would think 2 seconds would
be plenty. */
/* Changed to allow option to set timeout value.
was static int remote_timeout = 2; */
extern int remote_timeout;
/* This variable chooses whether to send a ^C or a break when the user
requests program interruption. Although ^C is usually what remote
systems expect, and that is the default here, sometimes a break is
preferable instead. */
static int remote_break;
/* Descriptor for I/O to remote machine. Initialize it to NULL so that
remote_open knows that we don't have a file open when the program
starts. */
static serial_t remote_desc = NULL;
/* This variable (available to the user via "set remotebinarydownload")
dictates whether downloads are sent in binary (via the 'X' packet).
We assume that the stub can, and attempt to do it. This will be cleared if
the stub does not understand it. This switch is still needed, though
in cases when the packet is supported in the stub, but the connection
does not allow it (i.e., 7-bit serial connection only). */
static int remote_binary_download = 1;
/* Have we already checked whether binary downloads work? */
static int remote_binary_checked;
/* Having this larger than 400 causes us to be incompatible with m68k-stub.c
and i386-stub.c. Normally, no one would notice because it only matters
for writing large chunks of memory (e.g. in downloads). Also, this needs
to be more than 400 if required to hold the registers (see below, where
we round it up based on REGISTER_BYTES). */
#define PBUFSIZ 400
/* Maximum number of bytes to read/write at once. The value here
is chosen to fill up a packet (the headers account for the 32). */
#define MAXBUFBYTES ((PBUFSIZ-32)/2)
/* Round up PBUFSIZ to hold all the registers, at least. */
/* The blank line after the #if seems to be required to work around a
bug in HP's PA compiler. */
#if REGISTER_BYTES > MAXBUFBYTES
#undef PBUFSIZ
#define PBUFSIZ (REGISTER_BYTES * 2 + 32)
#endif
/* This variable sets the number of bytes to be written to the target
in a single packet. Normally PBUFSIZ is satisfactory, but some
targets need smaller values (perhaps because the receiving end
is slow). */
static int remote_write_size = PBUFSIZ;
/* This variable sets the number of bits in an address that are to be
sent in a memory ("M" or "m") packet. Normally, after stripping
leading zeros, the entire address would be sent. This variable
restricts the address to REMOTE_ADDRESS_SIZE bits. HISTORY: The
initial implementation of remote.c restricted the address sent in
memory packets to ``host::sizeof long'' bytes - (typically 32
bits). Consequently, for 64 bit targets, the upper 32 bits of an
address was never sent. Since fixing this bug may cause a break in
some remote targets this variable is principly provided to
facilitate backward compatibility. */
static int remote_address_size;
/* This is the size (in chars) of the first response to the `g' command. This
is used to limit the size of the memory read and write commands to prevent
stub buffers from overflowing. The size does not include headers and
trailers, it is only the payload size. */
static int remote_register_buf_size = 0;
/* Should we try the 'P' request? If this is set to one when the stub
doesn't support 'P', the only consequence is some unnecessary traffic. */
static int stub_supports_P = 1;
/* These are pointers to hook functions that may be set in order to
modify resume/wait behavior for a particular architecture. */
void (*target_resume_hook) PARAMS ((void));
void (*target_wait_loop_hook) PARAMS ((void));
/* These are the threads which we last sent to the remote system.
-1 for all or -2 for not sent yet. */
static int general_thread;
static int cont_thread;
/* Call this function as a result of
1) A halt indication (T packet) containing a thread id
2) A direct query of currthread
3) Successful execution of set thread
*/
static void
record_currthread (currthread)
int currthread;
{
#if 0 /* target_wait must not modify inferior_pid! */
inferior_pid = currthread;
#endif
general_thread = currthread;
#if 0 /* setting cont_thread has a different meaning
from having the target report its thread id. */
cont_thread = currthread;
#endif
/* If this is a new thread, add it to GDB's thread list.
If we leave it up to WFI to do this, bad things will happen. */
if (!in_thread_list (currthread))
add_thread (currthread);
}
#define MAGIC_NULL_PID 42000
static void
set_thread (th, gen)
int th;
int gen;
{
char buf[PBUFSIZ];
int state = gen ? general_thread : cont_thread;
if (state == th)
return;
buf[0] = 'H';
buf[1] = gen ? 'g' : 'c';
if (th == MAGIC_NULL_PID)
{
buf[2] = '0';
buf[3] = '\0';
}
else if (th < 0)
sprintf (&buf[2], "-%x", -th);
else
sprintf (&buf[2], "%x", th);
putpkt (buf);
getpkt (buf, 0);
if (gen)
general_thread = th;
else
cont_thread = th;
}
/* Return nonzero if the thread TH is still alive on the remote system. */
static int
remote_thread_alive (th)
int th;
{
char buf[PBUFSIZ];
buf[0] = 'T';
if (th < 0)
sprintf (&buf[1], "-%08x", -th);
else
sprintf (&buf[1], "%08x", th);
putpkt (buf);
getpkt (buf, 0);
return (buf[0] == 'O' && buf[1] == 'K');
}
/* About these extended threadlist and threadinfo packets. They are
variable length packets but, the fields within them are often fixed
length. They are redundent enough to send over UDP as is the
remote protocol in general. There is a matching unit test module
in libstub. */
#define BUF_THREAD_ID_SIZE (OPAQUETHREADBYTES*2)
/* encode 64 bits in 16 chars of hex */
static const char hexchars[] = "0123456789abcdef";
@ -1232,26 +1253,15 @@ remote_current_thread (oldpid)
return oldpid;
}
int
/* Find new threads for info threads command. */
static void
remote_find_new_threads ()
{
int ret;
ret = remote_threadlist_iterator (remote_newthread_step, 0,
remote_threadlist_iterator (remote_newthread_step, 0,
CRAZY_MAX_THREADS);
if (inferior_pid == MAGIC_NULL_PID) /* ack ack ack */
inferior_pid = remote_current_thread (inferior_pid);
return ret;
}
/* Initialize the thread vector which is used by threads.c */
/* The thread stub is a package, it has an initializer */
static void
init_remote_threads ()
{
remote_thread_vec.find_new_threads = remote_find_new_threads;
remote_thread_vec.get_thread_info = adapt_remote_get_threadinfo;
}
@ -1467,19 +1477,14 @@ serial device is attached to the remote system (e.g. /dev/ttya).");
}
push_target (target); /* Switch to using remote target now */
/* The target vector does not have the thread functions in it yet,
so we use this function to call back into the thread module and
register the thread vector and its contained functions. */
bind_target_thread_vector (&remote_thread_vec);
/* Start out by trying the 'P' request to set registers. We set
this each time that we open a new target so that if the user
switches from one stub to another, we can (if the target is
closed and reopened) cope. */
stub_supports_P = 1;
general_thread = -2;
cont_thread = -2;
general_thread = -2;
continue_thread = -2;
/* Force remote_write_bytes to check whether target supports
binary downloading. */
@ -3121,7 +3126,7 @@ remote_query (query_type, buf, outbuf, bufsiz)
if (! bufsiz)
error ("null pointer to remote bufer size specified");
/* minimum outbuf size is PBUFSIZE - if bufsiz is not large enough let
/* minimum outbuf size is PBUFSIZ - if bufsiz is not large enough let
the caller know and return what the minimum size is */
/* Note: a zero bufsiz can be used to query the minimum buffer size */
if ( *bufsiz < PBUFSIZ )
@ -3385,7 +3390,7 @@ Specify the serial device it is connected to (e.g. /dev/ttya).";
remote_ops.to_load = generic_load;
remote_ops.to_mourn_inferior = remote_mourn;
remote_ops.to_thread_alive = remote_thread_alive;
remote_ops.to_find_new_threads = (void*) remote_find_new_threads;
remote_ops.to_find_new_threads = remote_find_new_threads;
remote_ops.to_stop = remote_stop;
remote_ops.to_query = remote_query;
remote_ops.to_stratum = process_stratum;
@ -3420,12 +3425,15 @@ Specify the serial device it is connected to (e.g. /dev/ttya).",
void
_initialize_remote ()
{
/* runtime constants */
remote_write_size = PBUFSIZ;
init_remote_ops ();
add_target (&remote_ops);
init_extended_remote_ops ();
add_target (&extended_remote_ops);
init_remote_threads ();
#if 0
init_remote_threadtests ();
#endif

2
gdb/rs6000-tdep.c
View File

@ -1639,7 +1639,7 @@ variants[] =
num_registers (register_names_603), register_names_603 },
{ "604", "Motorola PowerPC 604 or 604e",
num_registers (register_names_604), register_names_604 },
{ "750", "Motorola/IBM PowerPC 750 or 750",
{ "750", "Motorola/IBM PowerPC 750 or 740",
num_registers (register_names_750), register_names_750 },
{ 0, 0, 0, 0 }
};

26
gdb/somread.c
View File

@ -1,5 +1,5 @@
/* Read HP PA/Risc object files for GDB.
Copyright 1991, 1992, 1996 Free Software Foundation, Inc.
Copyright 1991, 1992, 1996, 1999 Free Software Foundation, Inc.
Written by Fred Fish at Cygnus Support.
This file is part of GDB.
@ -547,10 +547,6 @@ init_import_symbols (objfile)
objfile->import_list = NULL;
objfile->import_list_size = 0;
#if 0 /* DEBUGGING */
printf ("Processing import list for %s\n", objfile->name);
#endif
/* It doesn't work, for some reason, to read in space $TEXT$;
the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
text_section = bfd_get_section_by_name (objfile->obfd, "$SHLIB_INFO$");
@ -606,10 +602,6 @@ init_import_symbols (objfile)
else /* null type */
objfile->import_list[k] = NULL;
#if 0 /* DEBUGGING */
printf ("Import String %d:%d (%d), type %d is %s\n", j, i, k,
(int) buffer[i].type, objfile->import_list[k]);
#endif
}
}
@ -629,10 +621,6 @@ init_import_symbols (objfile)
}
else
objfile->import_list[k] = NULL;
#if 0 /* DEBUGGING */
printf ("Import String F:%d (%d), type %d, is %s\n", i, k,
(int) buffer[i].type, objfile->import_list[k]);
#endif
}
objfile->import_list_size = import_list_size;
@ -681,10 +669,6 @@ init_export_symbols (objfile)
objfile->export_list = NULL;
objfile->export_list_size = 0;
#if 0 /* DEBUGGING */
printf ("Processing export list for %s\n", objfile->name);
#endif
/* It doesn't work, for some reason, to read in space $TEXT$;
the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
text_section = bfd_get_section_by_name (objfile->obfd, "$SHLIB_INFO$");
@ -743,10 +727,6 @@ init_export_symbols (objfile)
objfile->export_list[k].name = NULL;
objfile->export_list[k].address = 0;
}
#if 0 /* DEBUGGING */
printf ("Export String %d:%d (%d), type %d is %s\n", j, i, k,
(int) buffer[i].type, objfile->export_list[k].name);
#endif
}
}
@ -770,10 +750,6 @@ init_export_symbols (objfile)
objfile->export_list[k].name = NULL;
objfile->export_list[k].address = 0;
}
#if 0 /* DEBUGGING */
printf ("Export String F:%d (%d), type %d, value %x is %s\n", i, k,
(int) buffer[i].type, buffer[i].value, objfile->export_list[k].name);
#endif
}
objfile->export_list_size = export_list_size;

67
gdb/symtab.c
View File

@ -2489,8 +2489,10 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
struct symbol *sym_class;
int i1;
int is_quoted;
int is_quote_enclosed;
int has_parens;
int has_if = 0;
int has_comma = 0;
struct symbol **sym_arr;
struct type *t;
char *saved_arg = *argptr;
@ -2562,12 +2564,33 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
if (has_if)
*ii = ' ';
/* Maybe we were called with a line range FILENAME:LINENUM,FILENAME:LINENUM
and we must isolate the first half. Outer layers will call again later
for the second half */
if ((ii = strchr(*argptr, ',')) != NULL)
has_comma = 1;
/* Temporarily zap out second half to not
* confuse the code below.
* This is undone below. Do not change ii!!
*/
if (has_comma) {
*ii = '\0';
}
/* Maybe arg is FILE : LINENUM or FILE : FUNCTION */
/* May also be CLASS::MEMBER, or NAMESPACE::NAME */
/* Look for ':', but ignore inside of <> */
s = NULL;
for (p = *argptr; *p; p++)
p = *argptr;
if (p[0] == '"')
{
is_quote_enclosed = 1;
p++;
}
else
is_quote_enclosed = 0;
for ( ; *p; p++)
{
if (p[0] == '<')
{
@ -2576,8 +2599,15 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
error ("malformed template specification in command");
p = temp_end;
}
if (p[0] == ':' || p[0] == ' ' || p[0] == '\t' || !*p)
break;
/* Check for the end of the first half of the linespec. End of line,
a tab, a double colon or the last single colon, or a space. But
if enclosed in double quotes we do not break on enclosed spaces */
if (!*p
|| p[0] == '\t'
|| ((p[0] == ':')
&& ((p[1] == ':') || (strchr (p + 1, ':') == NULL)))
|| ((p[0] == ' ') && ! is_quote_enclosed))
break;
if (p[0] == '.' && strchr (p, ':') == NULL) /* Java qualified method. */
{
/* Find the *last* '.', since the others are package qualifiers. */
@ -2590,6 +2620,16 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
}
}
while (p[0] == ' ' || p[0] == '\t') p++;
/* if the closing double quote was left at the end, remove it */
if (is_quote_enclosed && ((pp = strchr (p, '"')) != NULL))
if (!*(pp+1))
*pp = '\0';
/* Now that we've safely parsed the first half,
* put back ',' so outer layers can see it
*/
if (has_comma)
*ii = ',';
if ((p[0] == ':' || p[0] == '.') && !has_parens)
{
@ -2811,8 +2851,6 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
sym = lookup_symbol (copy, 0, VAR_NAMESPACE, 0, &sym_symtab);
s = (struct symtab *) 0;
/* Prepare to jump: restore the " if (condition)" so outer layers see it */
if (has_if)
*ii = ' ';
/* Symbol was found --> jump to normal symbol processing.
Code following "symbol_found" expects "copy" to have the
symbol name, "sym" to have the symbol pointer, "s" to be
@ -2837,9 +2875,22 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
/* Extract the file name. */
p1 = p;
while (p != *argptr && p[-1] == ' ') --p;
if ((*p == '"') && is_quote_enclosed) --p;
copy = (char *) alloca (p - *argptr + 1);
memcpy (copy, *argptr, p - *argptr);
copy[p - *argptr] = 0;
if ((**argptr == '"') && is_quote_enclosed)
{
memcpy (copy, *argptr + 1, p - *argptr - 1);
/* It may have the ending quote right after the file name */
if (copy[p - *argptr - 2] == '"')
copy[p - *argptr - 2] = 0;
else
copy[p - *argptr - 1] = 0;
}
else
{
memcpy (copy, *argptr, p - *argptr);
copy[p - *argptr] = 0;
}
/* Find that file's data. */
s = lookup_symtab (copy);
@ -2882,8 +2933,6 @@ decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical)
/* Yes, we have a symbol; jump to symbol processing */
/* Code after symbol_found expects S, SYM_SYMTAB, SYM,
and COPY to be set correctly */
if (has_if)
*ii = ' ';
*argptr = (*p == '\'') ? p + 1 : p;
s = (struct symtab *) 0;
goto symbol_found;

19
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,22 @@
Fri Jun 4 10:47:46 1999 Jeffrey A Law (law@cygnus.com)
* gdb.base/a1-selftest.exp: Remove bogus hppa xfail.
* gdb.base/mips_pro.exp: Likewise.
1999-06-02 Keith Seitz <keiths@cygnus.com>
* gdb.c++/templates.cc: Change all "new" operators to throw
an exception.
* gdb.c++/cplusfuncs.cc: Likewise.
* gdb.base/Makefile.in (EXECUTABLES): Add smoke1, annota1, and annota2.
Wed Jun 2 17:37:05 1999 Andrew Cagney <cagney@b1.cygnus.com>
* gdb.base/condbreak.exp: Use rerun_to_main to start the program.
* gdb.base/ending-run.exp: When stepping out of main, accept a
step into an arbitrary assembler file.
1999-05-20 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* gdb.base/annota1.exp: Allow any number of "frames-invalid" and

9
gdb/testsuite/configure vendored
View File

@ -638,7 +638,14 @@ test "$host_alias" != "$target_alias" &&
# Directories to use in all configurations.
configdirs="gdb.asm gdb.base gdb.c++ gdb.disasm gdb.chill gdb.threads gdb.trace"
configdirs="gdb.asm \
gdb.base \
gdb.c++ \
gdb.disasm \
gdb.chill \
gdb.threads \
gdb.trace"
# Directories to use for a configuration which uses stabs.
stabsdirs="gdb.stabs"

9
gdb/testsuite/configure.in
View File

@ -13,7 +13,14 @@ AC_CONFIG_AUX_DIR(`cd $srcdir;pwd`/../..)
AC_CANONICAL_SYSTEM
# Directories to use in all configurations.
configdirs="gdb.asm gdb.base gdb.c++ gdb.disasm gdb.chill gdb.threads gdb.trace"
configdirs="gdb.asm \
gdb.base \
gdb.c++ \
gdb.disasm \
gdb.chill \
gdb.threads \
gdb.trace"
# Directories to use for a configuration which uses stabs.
stabsdirs="gdb.stabs"

4
gdb/testsuite/gdb.base/Makefile.in
View File

@ -1,7 +1,7 @@
VPATH = @srcdir@
srcdir = @srcdir@
EXECUTABLES = all-types bitfields break \
EXECUTABLES = all-types annota1 annota2 bitfields break \
call-ar-st call-rt-st call-strs callfuncs callfuncs2 commands \
compiler condbreak constvars coremaker display \
ending-run exprs funcargs int-type interrupt \
@ -10,7 +10,7 @@ EXECUTABLES = all-types bitfields break \
mips_pro miscexprs nodebug opaque pointers pointers2 printcmds ptype \
recurse reread reread1 restore return run \
scope section_command setshow setvar \
shmain sigall signals smoke \
shmain sigall signals smoke smoke1 \
solib so-impl-ld so-indr-cl \
step-test structs structs2 twice-tmp varargs watchpoint whatis

6
gdb/testsuite/gdb.base/a1-selftest.exp
View File

@ -74,6 +74,10 @@ proc do_steps_and_nexts {} {
set description "step over ttyarg initialization"
set command "step"
}
-re ".*interparg = NULL.*$gdb_prompt $" {
set description "step over interparg initialization"
set command "step"
}
-re ".*time_at_startup = get_run_time.*$gdb_prompt $" {
set description "next over get_run_time and everything it calls"
set command "next"
@ -269,7 +273,7 @@ proc test_with_self { executable } {
# If we don't actually enter the xmalloc call when we give a
# step command that seems like a genuine bug. It seems to happen
# on most RISC processors.
setup_xfail "alpha-*-*" "hppa*-*-*" "mips-*-*"
setup_xfail "alpha-*-*" "mips-*-*"
set description "step into xmalloc call"
send_gdb "step\n"
gdb_expect {

2
gdb/testsuite/gdb.base/condbreak.exp
View File

@ -122,7 +122,7 @@ gdb_test "info break" \
#
gdb_run_cmd
rerun_to_main
#
# run until the breakpoint at a line number

7
gdb/testsuite/gdb.base/ending-run.exp
View File

@ -151,9 +151,12 @@ gdb_expect {
-re ".*in.*start.*$gdb_prompt $" {
pass "step out of main"
}
-re ".*Program received signal SIGTRAP.*$gdb_prompt $" {
-re ".*in.*currently asm.*$gdb_prompt $" {
pass "step out of main into assembler"
}
-re ".*Program received signal SIGTRAP.*$gdb_prompt $" {
pass "Cygmon stopped in ending trap."
}
}
timeout { fail "hang or timeout on step at end 1" }
}

2
gdb/testsuite/gdb.base/mips_pro.exp
View File

@ -55,7 +55,7 @@ gdb_load ${binfile}
if [runto middle] then {
# PR 3016
if {$gcc_compiled} then {
setup_xfail "hppa*-*-*" "mips*-sgi-irix4*" "mips64*-*-elf"
setup_xfail "mips*-sgi-irix4*" "mips64*-*-elf"
}
gdb_test "backtrace" "#0.*middle.*#1.*top.*#2.*main.*"
}

4
gdb/testsuite/gdb.c++/cplusfuncs.cc
View File

@ -45,7 +45,7 @@ public:
void operator ->* (foo&);
void operator [] (foo&);
void operator () (foo&);
void* operator new (size_t);
void* operator new (size_t) throw ();
void operator delete (void *);
/**/ operator int ();
/**/ operator char* ();
@ -114,7 +114,7 @@ void foo::operator ^= (foo& afoo) { afoo.ifoo = 0; }
void foo::operator ->* (foo& afoo) { afoo.ifoo = 0; }
void foo::operator [] (foo& afoo) { afoo.ifoo = 0; }
void foo::operator () (foo& afoo) { afoo.ifoo = 0; }
void* foo::operator new (size_t ival) { ival = 0; return 0; }
void* foo::operator new (size_t ival) throw () { ival = 0; return 0; }
void foo::operator delete (void *ptr) { ptr = 0; }
/**/ foo::operator int () { return 0; }
/**/ foo::operator char* () { return 0; }

8
gdb/testsuite/gdb.c++/templates.cc
View File

@ -290,7 +290,7 @@ void printf(const char *format, ... )
class T1 {
public:
static void* operator new(size_t);
static void* operator new(size_t) throw ();
static void operator delete(void *pointer);
void operator=(const T1&);
@ -365,7 +365,7 @@ public:
};
void*
T1::operator new(size_t)
T1::operator new(size_t) throw ()
{ return 0; }
void
@ -456,7 +456,7 @@ public:
T5(int);
T5(const T5<T>&);
~T5();
static void* operator new(size_t);
static void* operator new(size_t) throw ();
static void operator delete(void *pointer);
int value();
@ -479,7 +479,7 @@ T5<T>::~T5()
template<class T>
void*
T5<T>::operator new(size_t)
T5<T>::operator new(size_t) throw ()
{ return 0; }
template<class T>

66
gdb/thread.c
View File

@ -79,10 +79,6 @@ void _initialize_thread PARAMS ((void));
/* Prototypes for local functions. */
#if !defined(FIND_NEW_THREADS)
#define FIND_NEW_THREADS local_find_new_threads
#endif
static struct thread_info *thread_list = NULL;
static int highest_thread_num;
@ -96,68 +92,6 @@ static void thread_apply_command PARAMS ((char *, int));
static void restore_current_thread PARAMS ((int));
static void switch_to_thread PARAMS ((int pid));
static void prune_threads PARAMS ((void));
static int local_find_new_threads PARAMS ((void));
/* If the host has threads, the host machine definition may set this
macro. But, for remote thread debugging, it gets more complex and
setting macros does not bind to the various target dependent
methods well. So, we use the vector target_thread_functions */
static struct target_thread_vector *target_thread_functions;
static int
local_find_new_threads ()
{
int retval = 0;
if (target_thread_functions &&
target_thread_functions->find_new_threads)
retval = (*(target_thread_functions->find_new_threads)) ();
return retval; /* no support */
}
int
target_get_thread_info PARAMS ((gdb_threadref * ref,
int selection, /* FIXME: Selection */
struct gdb_ext_thread_info * info));
int
target_get_thread_info (ref, selection, info)
gdb_threadref *ref;
int selection;
/* FIXME: Selection */
struct gdb_ext_thread_info *info;
{
int retval = 0;
if (target_thread_functions
&& target_thread_functions->get_thread_info)
retval = (*(target_thread_functions->get_thread_info)) (ref, selection, info);
return retval;
}
/* It is possible that these bind and unbinf functions implement a
stack the interface allows it, but its not implemented that way
*/
void
bind_target_thread_vector (vec)
struct target_thread_vector *vec;
{
target_thread_functions = vec;
}
struct target_thread_vector *
unbind_target_thread_vector ()
{
struct target_thread_vector *retval;
retval = target_thread_functions;
target_thread_functions = 0;
return retval;
} /* unbind_target_thread-vector */
void
init_thread_list ()