diff options
| author | Willy Sudiarto Raharjo <willysr@slackbuilds.org> | 2013-11-14 21:52:46 +0700 |
|---|---|---|
| committer | Robby Workman <rworkman@slackbuilds.org> | 2013-11-14 14:32:31 -0600 |
| commit | 18578fcf23cdc50b2776fd196e2efaf314f67d67 (patch) | |
| tree | f9c808ec45722512383fe7b003f813927c99c091 /libraries/tDOM/tDOM-tcl8.6-compat.patch | |
| parent | d168a001be0670dd325a0b7d115518d6dc656544 (diff) | |
| download | slackbuilds-18578fcf23cdc50b2776fd196e2efaf314f67d67.tar.gz | |
libraries/tDOM: Added compatibility patch for tcl 8.6
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
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 0000000000..ee6cb85bfe --- /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); + } + |