From 2fb1f1265423957ff13ab7447e9da978e68cba22 Mon Sep 17 00:00:00 2001 From: Jon Trulson Date: Sun, 7 Oct 2018 13:28:04 -0600 Subject: [PATCH] dtdocbook/instant: add Tcl_GetErrorLine check for older versions of Tcl --- cde/programs/dtdocbook/instant/general.h | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/cde/programs/dtdocbook/instant/general.h b/cde/programs/dtdocbook/instant/general.h index 413e9aab..d4c5afc4 100644 --- a/cde/programs/dtdocbook/instant/general.h +++ b/cde/programs/dtdocbook/instant/general.h @@ -55,6 +55,11 @@ static char *gen_h_RCSid = /* get Tcl header so the variables make sense */ #include +/* Compatibility with pre 8.6 versions */ +#if (TCL_MAJOR_VERSION < 8) || (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6) +# define Tcl_GetErrorLine(x) ((x)->errorLine) +#endif + /* instant variable delimiter (can't use '$', collides with Tcl) */ #define VDELIM '@' -- 2.25.1