From eddb2b2801aceda76f3fef6cbcd93c2b1241f165 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 22 Nov 2022 20:08:07 +0000
Subject: Unused stub entries up to Tcl_DStringToObj() (for Tcl 8.7/9.0)

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

diff --git a/generic/tcl.decls b/generic/tcl.decls
index a933d95..379280a 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -2112,10 +2112,12 @@ declare 579 {
 
 # ----- BASELINE -- FOR -- 8.5.0 ----- #
 
-declare 683 {
+declare 687 {
     void TclUnusedStubEntry(void)
 }
 
+# ----- BASELINE -- FOR -- 8.7.0 / 9.0.0 ----- #
+
 ##############################################################################
 
 # Define the platform specific public Tcl interface. These functions are only
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index d8ec374..66b4782 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -3515,9 +3515,13 @@ EXTERN void		Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
 /* Slot 680 is reserved */
 /* Slot 681 is reserved */
 /* Slot 682 is reserved */
+/* Slot 683 is reserved */
+/* Slot 684 is reserved */
+/* Slot 685 is reserved */
+/* Slot 686 is reserved */
 #ifndef TclUnusedStubEntry_TCL_DECLARED
 #define TclUnusedStubEntry_TCL_DECLARED
-/* 683 */
+/* 687 */
 EXTERN void		TclUnusedStubEntry(void);
 #endif
 
@@ -4238,7 +4242,11 @@ typedef struct TclStubs {
     VOID *reserved680;
     VOID *reserved681;
     VOID *reserved682;
-    void (*tclUnusedStubEntry) (void); /* 683 */
+    VOID *reserved683;
+    VOID *reserved684;
+    VOID *reserved685;
+    VOID *reserved686;
+    void (*tclUnusedStubEntry) (void); /* 687 */
 } TclStubs;
 
 extern TclStubs *tclStubsPtr;
@@ -6694,9 +6702,13 @@ extern TclStubs *tclStubsPtr;
 /* Slot 680 is reserved */
 /* Slot 681 is reserved */
 /* Slot 682 is reserved */
+/* Slot 683 is reserved */
+/* Slot 684 is reserved */
+/* Slot 685 is reserved */
+/* Slot 686 is reserved */
 #ifndef TclUnusedStubEntry
 #define TclUnusedStubEntry \
-	(tclStubsPtr->tclUnusedStubEntry) /* 683 */
+	(tclStubsPtr->tclUnusedStubEntry) /* 687 */
 #endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 9502ba2..4d0e10a 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -1484,7 +1484,11 @@ TclStubs tclStubs = {
     NULL, /* 680 */
     NULL, /* 681 */
     NULL, /* 682 */
-    TclUnusedStubEntry, /* 683 */
+    NULL, /* 683 */
+    NULL, /* 684 */
+    NULL, /* 685 */
+    NULL, /* 686 */
+    TclUnusedStubEntry, /* 687 */
 };
 
 /* !END!: Do not edit above this line. */
-- 
cgit v0.12