32 lines
1.1 KiB
Diff
32 lines
1.1 KiB
Diff
diff -Nur tDOM-0.8.3.orig/generic/dom.h tDOM-0.8.3/generic/dom.h
|
|
--- tDOM-0.8.3.orig/generic/dom.h 2013-11-14 21:27:44.677606548 +0700
|
|
+++ tDOM-0.8.3/generic/dom.h 2013-11-14 21:28:45.463749065 +0700
|
|
@@ -87,6 +87,15 @@
|
|
#endif
|
|
|
|
/*
|
|
+ * Beginning with 8.6, interp->errorLine isn't public visible anymore
|
|
+ * (TIP 330)
|
|
+*/
|
|
+
|
|
+#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6)
|
|
+# define Tcl_GetErrorLine(interp) (interp)->errorLine
|
|
+#endif
|
|
+
|
|
+/*
|
|
* Beginning with 8.4, Tcl API is CONST'ified
|
|
*/
|
|
#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION <= 3)
|
|
diff -Nur tDOM-0.8.3.orig/generic/tcldom.c tDOM-0.8.3/generic/tcldom.c
|
|
--- tDOM-0.8.3.orig/generic/tcldom.c 2013-11-14 21:27:44.675606577 +0700
|
|
+++ tDOM-0.8.3/generic/tcldom.c 2013-11-14 21:30:34.804206653 +0700
|
|
@@ -5934,7 +5934,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);
|
|
}
|
|
|