blob: 5b9b640b94c817cf2bcffd4d2b350ef003a87e24 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- ../generic/tcldom.c.orig 2007-12-26 00:19:02.000000000 +0100
+++ ../generic/tcldom.c 2013-05-22 09:01:30.000000000 +0200
@@ -5915,6 +5915,9 @@
| tcldom_EvalLocked
|
\---------------------------------------------------------------------------*/
+#if !defined(Tcl_GetErrorLine)
+#define Tcl_GetErrorLine(interp) (interp->errorLine)
+#endif
static
int tcldom_EvalLocked (
@@ -5934,7 +5937,7 @@
if (ret == TCL_ERROR) {
char msg[64 + TCL_INTEGER_SPACE];
sprintf(msg, "\n (\"%s %s\" body line %d)", Tcl_GetString(objv[0]),
- Tcl_GetString(objv[1]), interp->errorLine);
+ Tcl_GetString(objv[1]), Tcl_GetErrorLine(interp));
Tcl_AddErrorInfo(interp, msg);
}
|
