* gdbtk.c (gdbtk_init): Prevent segfault when gdbtk.tcl can't be

[binutils.git] / gdb / gdbtk.c

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index ca7ef40913d208cc1c0f68a1eb55bacb70520a07..35b2a91f7ffde4efc6a44ba275691d9e216b3417 100644 (file)
--- 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);