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/gdbtk.c | |
| 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/gdbtk.c')
| -rw-r--r-- | gdb/gdbtk.c | 12 |
1 files changed, 8 insertions, 4 deletions
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; |