diff options
| -rw-r--r-- | generic/tcl.decls | 4 | ||||
| -rw-r--r-- | generic/tclDecls.h | 18 | ||||
| -rw-r--r-- | 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. */ |