X-Git-Url: http://sru.miketaylor.org.uk/?a=blobdiff_plain;f=recctrl%2Fregxread.c;h=76f8e59d785022c1f6567698ce568ecf32407760;hb=4d6d0d754cc1f0b1f7f814a2268e679d26b890f7;hp=cc74152915daf333d1fc733b78c97ce4ff370004;hpb=ef696645cc3b7e0f4027008d1dc589c0f0f90c1f;p=idzebra-moved-to-github.git

diff --git a/recctrl/regxread.c b/recctrl/regxread.c
index cc74152..76f8e59 100644
--- a/recctrl/regxread.c
+++ b/recctrl/regxread.c
@@ -4,7 +4,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: regxread.c,v $
- * Revision 1.26  1999-05-26 07:49:14  adam
+ * Revision 1.27  1999-06-28 13:25:40  quinn
+ * Improved diagnostics for Tcl
+ *
+ * Revision 1.26  1999/05/26 07:49:14  adam
  * C++ compilation.
  *
  * Revision 1.25  1999/05/25 12:33:32  adam
@@ -1417,7 +1420,15 @@ static void execTcl (struct lexSpec *spec, struct regxCode *code)
 	    var_buf[var_len] = ch;
 	}
     }
-    Tcl_Eval (spec->tcl_interp, code->str);
+    if (Tcl_Eval (spec->tcl_interp, code->str) != TCL_OK)
+    {
+    	const char *err = Tcl_GetVar(spec->tcl_interp, "errorInfo", 0);
+	logf(LOG_FATAL, "Tcl error, line=%d, \"%s\"\n%s", 
+	    spec->tcl_interp->errorLine,
+	    spec->tcl_interp->result,
+	    err ? err : "[NO ERRORINFO]");
+    }
+
 }
 /* HAVE_TCL_H */
 #endif