From: Jim Ingham Date: Wed, 13 May 1998 18:23:59 +0000 (+0000) Subject: Wed May 13 11:12:58 1998 James Ingham X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b33b741a76edc49a5f6ce995202ab50873efb0c6;p=binutils-gdb.git Wed May 13 11:12:58 1998 James Ingham * 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... --- diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 5d301152797..f9d180ed955 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,10 +1,3 @@ -Tue May 12 12:03:16 1998 James Ingham - - * 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 * config/sparc/tm-sp64.h (CALL_DUMMY): Store and retrieve diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk index c30aa987f42..17c744ac31d 100644 --- a/gdb/ChangeLog-gdbtk +++ b/gdb/ChangeLog-gdbtk @@ -1,9 +1,23 @@ +Wed May 13 11:12:58 1998 James Ingham + + * 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 * 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 +Tue May 12 12:03:16 1998 James Ingham + + * 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 * 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 e62e908d8f6..96aaa97cf5c 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;