diff options
| -rw-r--r-- | generic/tclInt.decls | 2 | ||||
| -rw-r--r-- | generic/tclIntDecls.h | 9 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 3 |
3 files changed, 9 insertions, 5 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 6e36971..0e909a2 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -1044,7 +1044,7 @@ declare 257 { Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc) } -declare 260 { +declare 261 { void TclUnusedStubEntry(void) } diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 27fbb86..0282259 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -645,7 +645,8 @@ EXTERN void TclStaticPackage(Tcl_Interp *interp, Tcl_PackageInitProc *safeInitProc); /* Slot 258 is reserved */ /* Slot 259 is reserved */ -/* 260 */ +/* Slot 260 is reserved */ +/* 261 */ EXTERN void TclUnusedStubEntry(void); typedef struct TclIntStubs { @@ -912,7 +913,8 @@ typedef struct TclIntStubs { void (*tclStaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 257 */ void (*reserved258)(void); void (*reserved259)(void); - void (*tclUnusedStubEntry) (void); /* 260 */ + void (*reserved260)(void); + void (*tclUnusedStubEntry) (void); /* 261 */ } TclIntStubs; extern const TclIntStubs *tclIntStubsPtr; @@ -1358,8 +1360,9 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclStaticPackage) /* 257 */ /* Slot 258 is reserved */ /* Slot 259 is reserved */ +/* Slot 260 is reserved */ #define TclUnusedStubEntry \ - (tclIntStubsPtr->tclUnusedStubEntry) /* 260 */ + (tclIntStubsPtr->tclUnusedStubEntry) /* 261 */ #endif /* defined(USE_TCL_STUBS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 82d758c..93efecd 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -749,7 +749,8 @@ static const TclIntStubs tclIntStubs = { TclStaticPackage, /* 257 */ 0, /* 258 */ 0, /* 259 */ - TclUnusedStubEntry, /* 260 */ + 0, /* 260 */ + TclUnusedStubEntry, /* 261 */ }; static const TclIntPlatStubs tclIntPlatStubs = { |