diff options
Diffstat (limited to 'dev-tcltk/tdom/files/tdom-0.8.3-tcl8.6.patch')
-rw-r--r-- | dev-tcltk/tdom/files/tdom-0.8.3-tcl8.6.patch | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/dev-tcltk/tdom/files/tdom-0.8.3-tcl8.6.patch b/dev-tcltk/tdom/files/tdom-0.8.3-tcl8.6.patch new file mode 100644 index 000000000000..5a805931ca31 --- /dev/null +++ b/dev-tcltk/tdom/files/tdom-0.8.3-tcl8.6.patch @@ -0,0 +1,21 @@ + generic/tcldom.c | 5 +++++ + 1 file changed, 5 insertions(+) + +diff --git a/generic/tcldom.c b/generic/tcldom.c +index 91d98c9..0f024b3 100644 +--- a/generic/tcldom.c ++++ b/generic/tcldom.c +@@ -5933,8 +5933,13 @@ int tcldom_EvalLocked ( + ret = Tcl_EvalObj(interp, objv[2]); + if (ret == TCL_ERROR) { + char msg[64 + TCL_INTEGER_SPACE]; ++ #if TCL_MAJOR_VERSION <=8 && TCL_MINOR_VERSION < 6 + sprintf(msg, "\n (\"%s %s\" body line %d)", Tcl_GetString(objv[0]), + Tcl_GetString(objv[1]), interp->errorLine); ++ #else ++ sprintf(msg, "\n (\"%s %s\" body line %d)", Tcl_GetString(objv[0]), ++ Tcl_GetString(objv[1]), Tcl_GetErrorLine(interp)); ++ #endif + Tcl_AddErrorInfo(interp, msg); + } + |