Add some more unused entries to the stub table, keeping up with the table size increase of higher Tcl versions

6 files changed, 50 insertions, 6 deletions

diff --git a/generic/tcl.decls b/generic/tcl.decls
index 6510249..50e9465 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -21,6 +21,7 @@ library tcl
 
 interface tcl
 hooks {tclPlat tclInt tclIntPlat}
+scspec EXTERN
 
 # Declare each of the functions in the public Tcl interface.  Note that
 # the an index should never be reused for a different function in order
@@ -2110,7 +2111,7 @@ declare 579 {
 
 # ----- BASELINE -- FOR -- 8.5.0 ----- #
 
-declare 649 {
+declare 656 {
     void TclUnusedStubEntry(void)
 }
 
@@ -2150,6 +2151,9 @@ declare 1 macosx {
 	    const char *bundleName, const char *bundleVersion,
 	    int hasResourceFile, int maxPathLen, char *libraryPath)
 }
+declare 2 macosx {
+    void TclUnusedStubEntry(void)
+}
 
 ##############################################################################
 
@@ -2191,6 +2195,7 @@ export {
 export {
     TclTomMathStubs *tclTomMathStubsPtr         (fool checkstubs)
 }
+
 # Local Variables:
 # mode: tcl
 # End:
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index a5b7ec1..3651a3b 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -3481,9 +3481,16 @@ EXTERN void		Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
 /* Slot 646 is reserved */
 /* Slot 647 is reserved */
 /* Slot 648 is reserved */
+/* Slot 649 is reserved */
+/* Slot 650 is reserved */
+/* Slot 651 is reserved */
+/* Slot 652 is reserved */
+/* Slot 653 is reserved */
+/* Slot 654 is reserved */
+/* Slot 655 is reserved */
 #ifndef TclUnusedStubEntry_TCL_DECLARED
 #define TclUnusedStubEntry_TCL_DECLARED
-/* 649 */
+/* 656 */
 EXTERN void		TclUnusedStubEntry(void);
 #endif
 
@@ -4170,7 +4177,14 @@ typedef struct TclStubs {
     VOID *reserved646;
     VOID *reserved647;
     VOID *reserved648;
-    void (*tclUnusedStubEntry) (void); /* 649 */
+    VOID *reserved649;
+    VOID *reserved650;
+    VOID *reserved651;
+    VOID *reserved652;
+    VOID *reserved653;
+    VOID *reserved654;
+    VOID *reserved655;
+    void (*tclUnusedStubEntry) (void); /* 656 */
 } TclStubs;
 
 extern TclStubs *tclStubsPtr;
@@ -6592,9 +6606,16 @@ extern TclStubs *tclStubsPtr;
 /* Slot 646 is reserved */
 /* Slot 647 is reserved */
 /* Slot 648 is reserved */
+/* Slot 649 is reserved */
+/* Slot 650 is reserved */
+/* Slot 651 is reserved */
+/* Slot 652 is reserved */
+/* Slot 653 is reserved */
+/* Slot 654 is reserved */
+/* Slot 655 is reserved */
 #ifndef TclUnusedStubEntry
 #define TclUnusedStubEntry \
-	(tclStubsPtr->tclUnusedStubEntry) /* 649 */
+	(tclStubsPtr->tclUnusedStubEntry) /* 656 */
 #endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 892f977..df39bef 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -17,6 +17,7 @@ library tcl
 # Define the unsupported generic interfaces.
 
 interface tclInt
+scspec EXTERN
 
 # Declare each of the functions in the unsupported internal Tcl
 # interface.  These interfaces are allowed to changed between versions.
diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h
index ef23c84..16e8af0 100644
--- a/generic/tclPlatDecls.h
+++ b/generic/tclPlatDecls.h
@@ -75,6 +75,11 @@ EXTERN int		Tcl_MacOSXOpenVersionedBundleResources(
 				int hasResourceFile, int maxPathLen,
 				char *libraryPath);
 #endif
+#ifndef TclUnusedStubEntry_TCL_DECLARED
+#define TclUnusedStubEntry_TCL_DECLARED
+/* 2 */
+EXTERN void		TclUnusedStubEntry(void);
+#endif
 #endif /* MACOSX */
 
 typedef struct TclPlatStubs {
@@ -88,6 +93,7 @@ typedef struct TclPlatStubs {
 #ifdef MAC_OSX_TCL /* MACOSX */
     int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, CONST char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */
     int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, CONST char *bundleName, CONST char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */
+    void (*tclUnusedStubEntry) (void); /* 2 */
 #endif /* MACOSX */
 } TclPlatStubs;
 
@@ -122,6 +128,10 @@ extern TclPlatStubs *tclPlatStubsPtr;
 #define Tcl_MacOSXOpenVersionedBundleResources \
 	(tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */
 #endif
+#ifndef TclUnusedStubEntry
+#define TclUnusedStubEntry \
+	(tclPlatStubsPtr->tclUnusedStubEntry) /* 2 */
+#endif
 #endif /* MACOSX */
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 1a83752..6968d89 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -675,6 +675,7 @@ TclPlatStubs tclPlatStubs = {
 #ifdef MAC_OSX_TCL /* MACOSX */
     Tcl_MacOSXOpenBundleResources, /* 0 */
     Tcl_MacOSXOpenVersionedBundleResources, /* 1 */
+    TclUnusedStubEntry, /* 2 */
 #endif /* MACOSX */
 };
 
@@ -1446,7 +1447,14 @@ TclStubs tclStubs = {
     NULL, /* 646 */
     NULL, /* 647 */
     NULL, /* 648 */
-    TclUnusedStubEntry, /* 649 */
+    NULL, /* 649 */
+    NULL, /* 650 */
+    NULL, /* 651 */
+    NULL, /* 652 */
+    NULL, /* 653 */
+    NULL, /* 654 */
+    NULL, /* 655 */
+    TclUnusedStubEntry, /* 656 */
 };
 
 /* !END!: Do not edit above this line. */
diff --git a/generic/tclTomMath.decls b/generic/tclTomMath.decls
index dfb6956..56993f2 100644
--- a/generic/tclTomMath.decls
+++ b/generic/tclTomMath.decls
@@ -17,7 +17,6 @@ library tcl
 # Define the unsupported generic interfaces.
 
 interface tclTomMath
-# hooks {tclTomMathInt}
 scspec EXTERN
 
 # Declare each of the functions in the Tcl tommath interface