From: Jon Trulson <jon@radscan.com>
Date: Sun, 7 Oct 2018 19:28:04 +0000 (-0600)
Subject: dtdocbook/instant: add Tcl_GetErrorLine check for older versions of Tcl
X-Git-Tag: 2.3.0a~25^2~6
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=2fb1f1265423957ff13ab7447e9da978e68cba22;p=oweals%2Fcde.git

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

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 <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		'@'