From 5257269714cc2a8444e2f5602e8232b1f9f3c594 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 26 Sep 2022 12:18:46 +0000
Subject: Add some more unused stub entries

---
 generic/tcl.decls     |  6 +++---
 generic/tclDecls.h    | 27 ++++++++++++++++++++++++---
 generic/tclStubInit.c |  9 ++++++++-
 3 files changed, 35 insertions(+), 7 deletions(-)

diff --git a/generic/tcl.decls b/generic/tcl.decls
index e07ae5e..9716b32 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -5,8 +5,8 @@
 #	This file is used to generate the tclDecls.h, tclPlatDecls.h
 #	and tclStubInit.c files.
 #
-# Copyright (c) 1998-1999 by Scriptics Corporation.
-# Copyright (c) 2001, 2002 by Kevin B. Kenny.  All rights reserved.
+# Copyright (c) 1998-1999 Scriptics Corporation.
+# Copyright (c) 2001, 2002 Kevin B. Kenny.  All rights reserved.
 # Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net>
 #
 # See the file "license.terms" for information on usage and redistribution
@@ -2111,7 +2111,7 @@ declare 579 {
 
 # ----- BASELINE -- FOR -- 8.5.0 ----- #
 
-declare 675 {
+declare 682 {
     void TclUnusedStubEntry(void)
 }
 
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 246e2c9..6d7a8a3 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -3507,9 +3507,16 @@ EXTERN void		Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
 /* Slot 672 is reserved */
 /* Slot 673 is reserved */
 /* Slot 674 is reserved */
+/* Slot 675 is reserved */
+/* Slot 676 is reserved */
+/* Slot 677 is reserved */
+/* Slot 678 is reserved */
+/* Slot 679 is reserved */
+/* Slot 680 is reserved */
+/* Slot 681 is reserved */
 #ifndef TclUnusedStubEntry_TCL_DECLARED
 #define TclUnusedStubEntry_TCL_DECLARED
-/* 675 */
+/* 682 */
 EXTERN void		TclUnusedStubEntry(void);
 #endif
 
@@ -4222,7 +4229,14 @@ typedef struct TclStubs {
     VOID *reserved672;
     VOID *reserved673;
     VOID *reserved674;
-    void (*tclUnusedStubEntry) (void); /* 675 */
+    VOID *reserved675;
+    VOID *reserved676;
+    VOID *reserved677;
+    VOID *reserved678;
+    VOID *reserved679;
+    VOID *reserved680;
+    VOID *reserved681;
+    void (*tclUnusedStubEntry) (void); /* 682 */
 } TclStubs;
 
 extern TclStubs *tclStubsPtr;
@@ -6670,9 +6684,16 @@ extern TclStubs *tclStubsPtr;
 /* Slot 672 is reserved */
 /* Slot 673 is reserved */
 /* Slot 674 is reserved */
+/* Slot 675 is reserved */
+/* Slot 676 is reserved */
+/* Slot 677 is reserved */
+/* Slot 678 is reserved */
+/* Slot 679 is reserved */
+/* Slot 680 is reserved */
+/* Slot 681 is reserved */
 #ifndef TclUnusedStubEntry
 #define TclUnusedStubEntry \
-	(tclStubsPtr->tclUnusedStubEntry) /* 675 */
+	(tclStubsPtr->tclUnusedStubEntry) /* 682 */
 #endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 0d2a3c2..f1cf6a2 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -1474,7 +1474,14 @@ TclStubs tclStubs = {
     NULL, /* 672 */
     NULL, /* 673 */
     NULL, /* 674 */
-    TclUnusedStubEntry, /* 675 */
+    NULL, /* 675 */
+    NULL, /* 676 */
+    NULL, /* 677 */
+    NULL, /* 678 */
+    NULL, /* 679 */
+    NULL, /* 680 */
+    NULL, /* 681 */
+    TclUnusedStubEntry, /* 682 */
 };
 
 /* !END!: Do not edit above this line. */
-- 
cgit v0.12