diff options
| author | Elena Zannoni <ezannoni@kwikemart.cygnus.com> | 1998-03-25 19:12:09 +0000 |
|---|---|---|
| committer | Elena Zannoni <ezannoni@kwikemart.cygnus.com> | 1998-03-25 19:12:09 +0000 |
| commit | e924e1625cf71113b12531837289f974f6bc9015 (patch) | |
| tree | fb190fd334e4d4c7ecbb5714d1cd9c41ceb06439 /gdb/gdbtk.c | |
| parent | b35711c4d84befa3e743addb26163c42c5c17296 (diff) | |
| download | gdb-e924e1625cf71113b12531837289f974f6bc9015.zip gdb-e924e1625cf71113b12531837289f974f6bc9015.tar.gz gdb-e924e1625cf71113b12531837289f974f6bc9015.tar.bz2 | |
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.
Diffstat (limited to 'gdb/gdbtk.c')
| -rw-r--r-- | gdb/gdbtk.c | 9 |
1 files changed, 6 insertions, 3 deletions
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. */ |