From b21548cf0b49c8c217394e862f40dca3b6dba2a9 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 15 Aug 2024 12:30:16 +0000
Subject: Fix for TIP #628: Builds with TCL_MAJOR_VERSION < 9 and without
 USE_TCL_STUBS is possible, just Tcl_InitStubs() cannot be used then.

---
 generic/tcl.h | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/generic/tcl.h b/generic/tcl.h
index b6ca677..f81a344 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -2349,7 +2349,9 @@ void *			TclStubCall(void *arg);
 #endif
 #else
 #if TCL_MAJOR_VERSION < 9
-#   error "Please define -DUSE_TCL_STUBS"
+#   define Tcl_InitStubs(interp, version, exact) \
+	Tcl_Panic(((void)interp, (void)version, \
+		(void)exact, "Please define -DUSE_TCL_STUBS"))
 #elif TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE
 #   define Tcl_InitStubs(interp, version, exact) \
 	Tcl_PkgInitStubsCheck(interp, version, \
-- 
cgit v0.12