dtdocbook/instant: add Tcl_GetErrorLine check for older versions of Tcl

2018-10-07 13:28:04 -06:00
parent 1db1e96b08
commit 2fb1f12654
1 changed files with 5 additions and 0 deletions
--- 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 <tcl.h>

+/* 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		'@'