From 0f0bd5de077edd194fa5ef0a30076977098f0e3b Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sat, 8 Jul 2023 20:36:56 +0000
Subject: Unbreak Windows build (broken by [765c9c37a2] due to TIP #628)

---
 generic/tclInt.h | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/generic/tclInt.h b/generic/tclInt.h
index c0dabcf..697b685 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -1083,6 +1083,7 @@ typedef struct ActiveInterpTrace {
 #define TCL_TRACE_ENTER_EXEC	1
 #define TCL_TRACE_LEAVE_EXEC	2
 
+#if TCL_MAJOR_VERSION > 8
 /*
  * Versions 0, 1, and 2 are currently supported concurrently for now
  */
@@ -1167,6 +1168,7 @@ TclObjTypeReplace(
 {
     return TclObjTypeHasProc(objPtr, replaceProc)(interp, objPtr, first, numToDelete, numToInsert, insertObjs);
 }
+#endif /* TCL_MAJOR_VERSION > 8 */
 
 
 /*
-- 
cgit v0.12