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.

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index 43ce8ef02165b9b8b5089398a8a6c3ebe803503c..d7afb603ba8b0d9812bb8022d611be354824e2a2 100644 (file)
--- 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 561aff32e57d2bae1d639b02f33f00c339c4681a..50d8a5ccc33d1bd85949899340a33a1432959cf8 100644 (file)
--- 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. */