From a2fefd7c501decfa882cddf51b77ec0ebb289d0f Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 11 Feb 2022 16:59:53 +0000
Subject: Add more spare unused stub entries

---
 generic/tcl.decls     |  2 +-
 generic/tclDecls.h    | 30 +++++++++++++++++++++++++++---
 generic/tclStubInit.c | 10 +++++++++-
 3 files changed, 37 insertions(+), 5 deletions(-)

diff --git a/generic/tcl.decls b/generic/tcl.decls
index fce6fc0..cea6b93 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -2111,7 +2111,7 @@ declare 579 {
 
 # ----- BASELINE -- FOR -- 8.5.0 ----- #
 
-declare 660 {
+declare 668 {
     void TclUnusedStubEntry(void)
 }
 
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index b7f9223..7a76c4a 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -3492,9 +3492,17 @@ EXTERN void		Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
 /* Slot 657 is reserved */
 /* Slot 658 is reserved */
 /* Slot 659 is reserved */
+/* Slot 660 is reserved */
+/* Slot 661 is reserved */
+/* Slot 662 is reserved */
+/* Slot 663 is reserved */
+/* Slot 664 is reserved */
+/* Slot 665 is reserved */
+/* Slot 666 is reserved */
+/* Slot 667 is reserved */
 #ifndef TclUnusedStubEntry_TCL_DECLARED
 #define TclUnusedStubEntry_TCL_DECLARED
-/* 660 */
+/* 668 */
 EXTERN void		TclUnusedStubEntry(void);
 #endif
 
@@ -4192,7 +4200,15 @@ typedef struct TclStubs {
     VOID *reserved657;
     VOID *reserved658;
     VOID *reserved659;
-    void (*tclUnusedStubEntry) (void); /* 660 */
+    VOID *reserved660;
+    VOID *reserved661;
+    VOID *reserved662;
+    VOID *reserved663;
+    VOID *reserved664;
+    VOID *reserved665;
+    VOID *reserved666;
+    VOID *reserved667;
+    void (*tclUnusedStubEntry) (void); /* 668 */
 } TclStubs;
 
 extern TclStubs *tclStubsPtr;
@@ -6625,9 +6641,17 @@ extern TclStubs *tclStubsPtr;
 /* Slot 657 is reserved */
 /* Slot 658 is reserved */
 /* Slot 659 is reserved */
+/* Slot 660 is reserved */
+/* Slot 661 is reserved */
+/* Slot 662 is reserved */
+/* Slot 663 is reserved */
+/* Slot 664 is reserved */
+/* Slot 665 is reserved */
+/* Slot 666 is reserved */
+/* Slot 667 is reserved */
 #ifndef TclUnusedStubEntry
 #define TclUnusedStubEntry \
-	(tclStubsPtr->tclUnusedStubEntry) /* 660 */
+	(tclStubsPtr->tclUnusedStubEntry) /* 668 */
 #endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 6ef561c..1fcd92b 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -1458,7 +1458,15 @@ TclStubs tclStubs = {
     NULL, /* 657 */
     NULL, /* 658 */
     NULL, /* 659 */
-    TclUnusedStubEntry, /* 660 */
+    NULL, /* 660 */
+    NULL, /* 661 */
+    NULL, /* 662 */
+    NULL, /* 663 */
+    NULL, /* 664 */
+    NULL, /* 665 */
+    NULL, /* 666 */
+    NULL, /* 667 */
+    TclUnusedStubEntry, /* 668 */
 };
 
 /* !END!: Do not edit above this line. */
-- 
cgit v0.12