From 07cfb2190f1ec3f06fb59425ad6fc3b5edd5dcff Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sun, 15 Mar 2020 22:21:27 +0000 Subject: Add one more reserved stub entry, most likely will be Tcl_GetBytesFromObj() in Tcl 8.7. --- generic/tcl.decls | 6 +++--- generic/tclDecls.h | 9 ++++++--- generic/tclStubInit.c | 3 ++- 3 files changed, 11 insertions(+), 7 deletions(-) diff --git a/generic/tcl.decls b/generic/tcl.decls index f37c0f6..7b153f1 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -2323,12 +2323,12 @@ declare 630 { Tcl_Obj *compressionDictionaryObj) } -declare 648 { +# ----- BASELINE -- FOR -- 8.6.0 ----- # + +declare 649 { void TclUnusedStubEntry(void) } -# ----- BASELINE -- FOR -- 8.6.0 ----- # - ############################################################################## # Define the platform specific public Tcl interface. These functions are only diff --git a/generic/tclDecls.h b/generic/tclDecls.h index a49121a..037b6e5 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1833,7 +1833,8 @@ EXTERN void Tcl_ZlibStreamSetCompressionDictionary( /* Slot 645 is reserved */ /* Slot 646 is reserved */ /* Slot 647 is reserved */ -/* 648 */ +/* Slot 648 is reserved */ +/* 649 */ EXTERN void TclUnusedStubEntry(void); typedef struct { @@ -2518,7 +2519,8 @@ typedef struct TclStubs { void (*reserved645)(void); void (*reserved646)(void); void (*reserved647)(void); - void (*tclUnusedStubEntry) (void); /* 648 */ + void (*reserved648)(void); + void (*tclUnusedStubEntry) (void); /* 649 */ } TclStubs; extern const TclStubs *tclStubsPtr; @@ -3828,8 +3830,9 @@ extern const TclStubs *tclStubsPtr; /* Slot 645 is reserved */ /* Slot 646 is reserved */ /* Slot 647 is reserved */ +/* Slot 648 is reserved */ #define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 648 */ + (tclStubsPtr->tclUnusedStubEntry) /* 649 */ #endif /* defined(USE_TCL_STUBS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index a5de5f4..304b7d2 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -1630,7 +1630,8 @@ const TclStubs tclStubs = { 0, /* 645 */ 0, /* 646 */ 0, /* 647 */ - TclUnusedStubEntry, /* 648 */ + 0, /* 648 */ + TclUnusedStubEntry, /* 649 */ }; /* !END!: Do not edit above this line. */ -- cgit v0.12