diff options
Diffstat (limited to 'libraries/tDOM/tDOM-tcl8.6-compat.patch')
| -rw-r--r-- | libraries/tDOM/tDOM-tcl8.6-compat.patch | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/libraries/tDOM/tDOM-tcl8.6-compat.patch b/libraries/tDOM/tDOM-tcl8.6-compat.patch new file mode 100644 index 0000000000000..ee6cb85bfef81 --- /dev/null +++ b/libraries/tDOM/tDOM-tcl8.6-compat.patch @@ -0,0 +1,31 @@ +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); + } + |