From: Elena Zannoni <ezannoni@kwikemart.cygnus.com>
Date: Wed, 25 Mar 1998 19:12:09 +0000 (+0000)
Subject: Wed Mar 25 14:08:51 1998  Elena Zannoni  <ezannoni@kwikemart.cygnus.com>
X-Git-Url: http://git.efficios.com/?a=commitdiff_plain;h=e924e1625cf71113b12531837289f974f6bc9015;p=deliverable%2Fbinutils-gdb.git

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 43ce8ef021..d7afb603ba 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 561aff32e5..50d8a5ccc3 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. */