From b0aac11cdb0e31babc4c89aeda27223f4a731162 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 29 Aug 2022 20:53:44 +0000
Subject: Add 2 unused (internal) stub entries

---
 generic/tclInt.decls  | 2 +-
 generic/tclIntDecls.h | 9 ++++++---
 generic/tclStubInit.c | 3 ++-
 3 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index df39bef..b76d06b 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -957,7 +957,7 @@ declare 257 {
 	    Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc)
 }
 
-declare 260 {
+declare 261 {
     void TclUnusedStubEntry(void)
 }
 
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index 4d98d00..a8bb18e 100644
--- a/generic/tclIntDecls.h
+++ b/generic/tclIntDecls.h
@@ -1078,9 +1078,10 @@ EXTERN void		TclStaticPackage(Tcl_Interp *interp,
 #endif
 /* Slot 258 is reserved */
 /* Slot 259 is reserved */
+/* Slot 260 is reserved */
 #ifndef TclUnusedStubEntry_TCL_DECLARED
 #define TclUnusedStubEntry_TCL_DECLARED
-/* 260 */
+/* 261 */
 EXTERN void		TclUnusedStubEntry(void);
 #endif
 
@@ -1348,7 +1349,8 @@ typedef struct TclIntStubs {
     void (*tclStaticPackage) (Tcl_Interp *interp, CONST char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 257 */
     VOID *reserved258;
     VOID *reserved259;
-    void (*tclUnusedStubEntry) (void); /* 260 */
+    VOID *reserved260;
+    void (*tclUnusedStubEntry) (void); /* 261 */
 } TclIntStubs;
 
 extern TclIntStubs *tclIntStubsPtr;
@@ -2094,9 +2096,10 @@ extern TclIntStubs *tclIntStubsPtr;
 #endif
 /* Slot 258 is reserved */
 /* Slot 259 is reserved */
+/* Slot 260 is reserved */
 #ifndef TclUnusedStubEntry
 #define TclUnusedStubEntry \
-	(tclIntStubsPtr->tclUnusedStubEntry) /* 260 */
+	(tclIntStubsPtr->tclUnusedStubEntry) /* 261 */
 #endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 0bebc15..0d2a3c2 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -561,7 +561,8 @@ TclIntStubs tclIntStubs = {
     TclStaticPackage, /* 257 */
     NULL, /* 258 */
     NULL, /* 259 */
-    TclUnusedStubEntry, /* 260 */
+    NULL, /* 260 */
+    TclUnusedStubEntry, /* 261 */
 };
 
 TclIntPlatStubs tclIntPlatStubs = {
-- 
cgit v0.12