From bbc192a3d332d60e80c16f3dcf04984aab8677c7 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Sat, 19 Jan 2013 11:20:18 -0500
Subject: [PATCH] made start-up tcl error reporting compatible with tcl 8.6
---
pd/src/t_tkcmd.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c
index 0b5f03714..c6b5ff747 100644
--- a/pd/src/t_tkcmd.c
+++ b/pd/src/t_tkcmd.c
@@ -582,7 +582,8 @@ void pdgui_doevalfile(Tcl_Interp *interp, char *s)
if (Tcl_EvalFile(interp, buf) != TCL_OK)
{
char buf2[1000];
- printf("error in file %s line %d: %s\n", buf, interp->errorLine, Tcl_GetStringResult(interp));
+ const char *trace = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
+ printf("error in file %s: %s\n", buf, trace);
sprintf(buf2, "puts [concat tcl: %s: can't open script]\n",
buf);
tcl_mess(buf2);
--
GitLab