aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorElena Zannoni <ezannoni@kwikemart.cygnus.com>1998-03-25 19:12:09 +0000
committerElena Zannoni <ezannoni@kwikemart.cygnus.com>1998-03-25 19:12:09 +0000
commite924e1625cf71113b12531837289f974f6bc9015 (patch)
treefb190fd334e4d4c7ecbb5714d1cd9c41ceb06439 /gdb
parentb35711c4d84befa3e743addb26163c42c5c17296 (diff)
downloadgdb-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')
-rw-r--r--gdb/ChangeLog-gdbtk4
-rw-r--r--gdb/gdbtk.c9
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. */