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:
parent
b35711c4d8
commit
e924e1625c
2 changed files with 10 additions and 3 deletions
|
@ -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>
|
||||
|
||||
* gdbtk.c (gdb_get_mem): Rewrite to fetch entire contents
|
||||
|
|
|
@ -2946,10 +2946,13 @@ void
|
|||
gdbtk_pre_add_symbol (name)
|
||||
char *name;
|
||||
{
|
||||
char command[256];
|
||||
char *merge, *v[2];
|
||||
|
||||
sprintf (command, "gdbtk_tcl_pre_add_symbol %s", name);
|
||||
Tcl_Eval (interp, command);
|
||||
v[0] = "gdbtk_tcl_pre_add_symbol";
|
||||
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. */
|
||||
|
|
Loading…
Reference in a new issue