mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-09 04:21:49 +08:00
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...
This commit is contained in:
parent
afc5e7f23a
commit
b33b741a76
@ -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
|
||||
|
@ -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).
|
||||
|
12
gdb/gdbtk.c
12
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;
|
||||
|
Loading…
Reference in New Issue
Block a user