summaryrefslogtreecommitdiff
path: root/editors/e93/files/patch-shell.c
diff options
context:
space:
mode:
authorPietro Cerutti <gahr@FreeBSD.org>2013-05-22 08:03:52 +0000
committerPietro Cerutti <gahr@FreeBSD.org>2013-05-22 08:03:52 +0000
commit153dd8a22fdde23eca5f81d18b4705a92dab0e36 (patch)
tree7e9a5f982f2040a01a8a5a792a21c1cb3b984bfa /editors/e93/files/patch-shell.c
parent- Fix build with Tcl < 8.6 (diff)
- Fix build with Tcl 8.6
Reported by: miwi (Tcl/Tk 86 exp-run latecomers) Approved by: portmgr
Diffstat (limited to 'editors/e93/files/patch-shell.c')
-rw-r--r--editors/e93/files/patch-shell.c20
1 files changed, 20 insertions, 0 deletions
diff --git a/editors/e93/files/patch-shell.c b/editors/e93/files/patch-shell.c
new file mode 100644
index 000000000000..2e68e44ee923
--- /dev/null
+++ b/editors/e93/files/patch-shell.c
@@ -0,0 +1,20 @@
+--- shell.c.orig 2013-05-22 09:35:54.000000000 +0200
++++ shell.c 2013-05-22 09:44:04.000000000 +0200
+@@ -992,7 +992,7 @@
+ Tcl_SetVar(interpreter,"SCRIPTPATH",scriptPath,TCL_LEAVE_ERR_MSG);
+ if(Tcl_EvalFile(interpreter,scriptPath)!=TCL_OK)
+ {
+- SetError("%s:%d:%s",scriptPath,interpreter->errorLine,Tcl_GetStringResult(interpreter));
++ SetError("%s:%d:%s",scriptPath,Tcl_GetErrorLine(interpreter),Tcl_GetStringResult(interpreter));
+ fail=true;
+ }
+ }
+@@ -1066,7 +1066,7 @@
+ }
+ else
+ {
+- SetError("Failed to Tcl_Init(): %s",tclInterpreter->result);
++ SetError("Failed to Tcl_Init(): %s",Tcl_GetStringResult(tclInterpreter));
+ }
+ UnInitChannels(tclInterpreter);
+ }