diff options
| author | Jim Ingham <jingham@apple.com> | 1998-05-13 18:23:59 +0000 |
|---|---|---|
| committer | Jim Ingham <jingham@apple.com> | 1998-05-13 18:23:59 +0000 |
| commit | b33b741a76edc49a5f6ce995202ab50873efb0c6 (patch) | |
| tree | 0e0eb226aac6d6b63aeff395715100af1b944180 /gdb | |
| parent | afc5e7f23a8ad1ed058b2945028ac40d676eefee (diff) | |
| download | gdb-b33b741a76edc49a5f6ce995202ab50873efb0c6.zip gdb-b33b741a76edc49a5f6ce995202ab50873efb0c6.tar.gz gdb-b33b741a76edc49a5f6ce995202ab50873efb0c6.tar.bz2 | |
Wed May 13 11:12:58 1998 James Ingham <jingham@leda.cygnus.com>
* gdbtk.c: Fixed a goof in the definition of the gdb_get_args &
gdb_get_locals Tcl commands. Moved the previous ChangeLog entry
from ChangeLog to ChangeLog-gdbtk...
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/ChangeLog-gdbtk | 16 | ||||
| -rw-r--r-- | gdb/gdbtk.c | 12 |
3 files changed, 23 insertions, 12 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 5d30115..f9d180e 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,10 +1,3 @@ -Tue May 12 12:03:16 1998 James Ingham <jingham@leda.cygnus.com> - - * gdbtk.c: Add an object call wrapper for the new Tcl_Obj based - commands. This way the obj commands will also go through - catch_errors. This is just a bandaid while I rewrite the - string-based commands to use the object format. - Thu May 7 14:49:38 1998 Bob Manson <manson@charmed.cygnus.com> * config/sparc/tm-sp64.h (CALL_DUMMY): Store and retrieve diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk index c30aa98..17c744a 100644 --- a/gdb/ChangeLog-gdbtk +++ b/gdb/ChangeLog-gdbtk @@ -1,9 +1,23 @@ +Wed May 13 11:12:58 1998 James Ingham <jingham@leda.cygnus.com> + + * gdbtk.c: Fixed a goof in the definition of the gdb_get_args & + gdb_get_locals Tcl commands. Moved the previous ChangeLog entry + from ChangeLog to ChangeLog-gdbtk (here)... + + Tue May 12 13:29:20 1998 Jeff Holcomb <jeffh@cygnus.com> * Makefile.in (install-only): Add images/icons.txt and images2/icons.txt to files that need to be installed. -Tue May 5 09:30:25 1998 Christopher Faylor <cgf@cygnus.com> +Tue May 12 12:03:16 1998 James Ingham <jingham@leda.cygnus.com> + + * gdbtk.c: Add an object call wrapper for the new Tcl_Obj based + commands. This way the obj commands will also go through + catch_errors. This is just a bandaid while I rewrite the + string-based commands to use the object format. + + Tue May 5 09:30:25 1998 Christopher Faylor <cgf@cygnus.com> * gdbtk.c (_initialize_gdbtk): Use correct device names in cygwin-specific call (cosmetic change). diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index e62e908..96aaa97 100644 --- a/gdb/gdbtk.c +++ b/gdb/gdbtk.c @@ -142,6 +142,10 @@ static int gdb_trace_status PARAMS ((ClientData, Tcl_Interp *, int, char *argv[] static int gdb_target_has_execution_command PARAMS ((ClientData, Tcl_Interp *, int, char *argv[])); static int gdb_load_info PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[])); void TclDebug PARAMS ((const char *fmt, ...)); +static int gdb_get_locals_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST + objv[])); +static int gdb_get_args_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST + objv[])); static int gdb_get_vars_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[])); static int gdb_get_function_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[])); static int gdb_get_line_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[])); @@ -2261,9 +2265,9 @@ gdbtk_init ( argv0 ) gdb_trace_status, NULL, NULL); Tcl_CreateObjCommand (interp, "gdb_load_info", call_obj_wrapper, gdb_load_info, NULL); - Tcl_CreateObjCommand (interp, "gdb_get_locals", call_obj_wrapper, gdb_get_vars_command, + Tcl_CreateObjCommand (interp, "gdb_get_locals", call_obj_wrapper, gdb_get_locals_command, NULL); - Tcl_CreateObjCommand (interp, "gdb_get_args", call_obj_wrapper, gdb_get_vars_command, + Tcl_CreateObjCommand (interp, "gdb_get_args", call_obj_wrapper, gdb_get_args_command, NULL); Tcl_CreateObjCommand (interp, "gdb_get_function", call_obj_wrapper, gdb_get_function_command, NULL); @@ -2539,7 +2543,7 @@ gdbtk_load_hash (section, num) */ static int -gdb_get_locals (clientData, interp, objc, objv) +gdb_get_locals_command (clientData, interp, objc, objv) ClientData clientData; Tcl_Interp *interp; int objc; @@ -2551,7 +2555,7 @@ gdb_get_locals (clientData, interp, objc, objv) } static int -gdb_get_args (clientData, interp, objc, objv) +gdb_get_args_command (clientData, interp, objc, objv) ClientData clientData; Tcl_Interp *interp; int objc; |