From 45a3da641483121d970286aec42e2e0386a15ee3 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 19 Aug 2021 08:38:27 +0000
Subject: Reserve a few more unused stub entries

---
 generic/tcl.decls     |  2 +-
 generic/tclDecls.h    | 18 +++++++++++++++---
 generic/tclStubInit.c |  6 +++++-
 3 files changed, 21 insertions(+), 5 deletions(-)

diff --git a/generic/tcl.decls b/generic/tcl.decls
index 50e9465..fce6fc0 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -2111,7 +2111,7 @@ declare 579 {
 
 # ----- BASELINE -- FOR -- 8.5.0 ----- #
 
-declare 656 {
+declare 660 {
     void TclUnusedStubEntry(void)
 }
 
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 3651a3b..b7f9223 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -3488,9 +3488,13 @@ EXTERN void		Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
 /* Slot 653 is reserved */
 /* Slot 654 is reserved */
 /* Slot 655 is reserved */
+/* Slot 656 is reserved */
+/* Slot 657 is reserved */
+/* Slot 658 is reserved */
+/* Slot 659 is reserved */
 #ifndef TclUnusedStubEntry_TCL_DECLARED
 #define TclUnusedStubEntry_TCL_DECLARED
-/* 656 */
+/* 660 */
 EXTERN void		TclUnusedStubEntry(void);
 #endif
 
@@ -4184,7 +4188,11 @@ typedef struct TclStubs {
     VOID *reserved653;
     VOID *reserved654;
     VOID *reserved655;
-    void (*tclUnusedStubEntry) (void); /* 656 */
+    VOID *reserved656;
+    VOID *reserved657;
+    VOID *reserved658;
+    VOID *reserved659;
+    void (*tclUnusedStubEntry) (void); /* 660 */
 } TclStubs;
 
 extern TclStubs *tclStubsPtr;
@@ -6613,9 +6621,13 @@ extern TclStubs *tclStubsPtr;
 /* Slot 653 is reserved */
 /* Slot 654 is reserved */
 /* Slot 655 is reserved */
+/* Slot 656 is reserved */
+/* Slot 657 is reserved */
+/* Slot 658 is reserved */
+/* Slot 659 is reserved */
 #ifndef TclUnusedStubEntry
 #define TclUnusedStubEntry \
-	(tclStubsPtr->tclUnusedStubEntry) /* 656 */
+	(tclStubsPtr->tclUnusedStubEntry) /* 660 */
 #endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 6968d89..6ef561c 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -1454,7 +1454,11 @@ TclStubs tclStubs = {
     NULL, /* 653 */
     NULL, /* 654 */
     NULL, /* 655 */
-    TclUnusedStubEntry, /* 656 */
+    NULL, /* 656 */
+    NULL, /* 657 */
+    NULL, /* 658 */
+    NULL, /* 659 */
+    TclUnusedStubEntry, /* 660 */
 };
 
 /* !END!: Do not edit above this line. */
-- 
cgit v0.12