diff options
| -rw-r--r-- | gdb/ChangeLog-gdbtk | 4 | ||||
| -rw-r--r-- | gdb/gdbtk.c | 9 |
2 files changed, 10 insertions, 3 deletions
diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk index 43ce8ef..d7afb60 100644 --- a/gdb/ChangeLog-gdbtk +++ b/gdb/ChangeLog-gdbtk @@ -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 diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index 561aff3..50d8a5c 100644 --- a/gdb/gdbtk.c +++ b/gdb/gdbtk.c @@ -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. */ |