aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorStu Grossman <grossman@cygnus>1995-01-26 02:27:06 +0000
committerStu Grossman <grossman@cygnus>1995-01-26 02:27:06 +0000
commitb66051ec1950ddd647fbfa629bcec40ba8bd5d25 (patch)
treeffc98ed0640a34c74cdbd2bd5d623f42c6a394e7 /gdb
parentee3a45e7b7974472247806e364a034a230b3d61e (diff)
downloadgdb-b66051ec1950ddd647fbfa629bcec40ba8bd5d25.zip
gdb-b66051ec1950ddd647fbfa629bcec40ba8bd5d25.tar.gz
gdb-b66051ec1950ddd647fbfa629bcec40ba8bd5d25.tar.bz2
* gdbtk.c (gdbtk_init): Prevent segfault when gdbtk.tcl can't be
found. * gdbtk.tcl: Initialize expr_update_list() to prevent errors when popping up expression window for the first time.
Diffstat (limited to 'gdb')
-rw-r--r--gdb/ChangeLog7
-rw-r--r--gdb/gdbtk.c7
-rw-r--r--gdb/gdbtk.tcl1
3 files changed, 14 insertions, 1 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 3cc3a34..9dac0e4 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+Wed Jan 25 18:23:46 1995 Stu Grossman (grossman@cygnus.com)
+
+ * gdbtk.c (gdbtk_init): Prevent segfault when gdbtk.tcl can't be
+ found.
+ * gdbtk.tcl: Initialize expr_update_list() to prevent errors when
+ popping up expression window for the first time.
+
Wed Jan 25 18:13:14 1995 Per Bothner <bothner@kalessin.cygnus.com>
* eval.c (evaluate_subexp case OP_ARRAY): Fix calls to memset:
diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index ca7ef40..35b2a91 100644
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -1184,11 +1184,16 @@ gdbtk_init ()
if (Tcl_EvalFile (interp, gdbtk_filename) != TCL_OK)
{
+ char *err;
+
fputs_unfiltered_hook = NULL; /* Force errors to stdout/stderr */
fprintf_unfiltered (stderr, "%s:%d: %s\n", gdbtk_filename,
interp->errorLine, interp->result);
- error ("Stack trace:\n%s", Tcl_GetVar (interp, "errorInfo", 0));
+
+ fputs_unfiltered ("Stack trace:\n", gdb_stderr);
+ fputs_unfiltered (Tcl_GetVar (interp, "errorInfo", 0), gdb_stderr);
+ error ("");
}
discard_cleanups (old_chain);
diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index f44dc74..2df9cf0 100644
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -31,6 +31,7 @@ set cfunc NIL
set line_numbers 1
set breakpoint_file(-1) {[garbage]}
set disassemble_with_source nosource
+set expr_update_list(0) 0
#option add *Foreground Black
#option add *Background White