mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-06-21 18:39:34 +08:00
Wed Mar 25 14:08:51 1998 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* gdbtk.c (gdbtk_pre_add_symbol): Use Tcl_merge to form Tcl commands.
This commit is contained in:
@ -1,3 +1,7 @@
|
|||||||
|
Wed Mar 25 14:08:51 1998 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
|
||||||
|
|
||||||
|
* gdbtk.c (gdbtk_pre_add_symbol): Use Tcl_merge to form Tcl commands.
|
||||||
|
|
||||||
Mon Mar 23 13:41:39 1998 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
|
Mon Mar 23 13:41:39 1998 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
|
||||||
|
|
||||||
* gdbtk.c (gdb_get_mem): Rewrite to fetch entire contents
|
* gdbtk.c (gdb_get_mem): Rewrite to fetch entire contents
|
||||||
|
@ -2946,10 +2946,13 @@ void
|
|||||||
gdbtk_pre_add_symbol (name)
|
gdbtk_pre_add_symbol (name)
|
||||||
char *name;
|
char *name;
|
||||||
{
|
{
|
||||||
char command[256];
|
char *merge, *v[2];
|
||||||
|
|
||||||
sprintf (command, "gdbtk_tcl_pre_add_symbol %s", name);
|
v[0] = "gdbtk_tcl_pre_add_symbol";
|
||||||
Tcl_Eval (interp, command);
|
v[1] = name;
|
||||||
|
merge = Tcl_Merge (2, v);
|
||||||
|
Tcl_Eval (interp, merge);
|
||||||
|
Tcl_Free (merge);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* This hook is called whenever we finish loading a symbol file. */
|
/* This hook is called whenever we finish loading a symbol file. */
|
||||||
|
Reference in New Issue
Block a user