diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-15 22:21:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-15 22:21:27 (GMT) |
| commit | 07cfb2190f1ec3f06fb59425ad6fc3b5edd5dcff (patch) | |
| tree | f86d4a5e917127a47b28c6aee43fc3f96428b360 /generic | |
| parent | 13be49f5852a9f3bb1a82aa726f16322d00d38e7 (diff) | |
| download | tcl-07cfb2190f1ec3f06fb59425ad6fc3b5edd5dcff.zip tcl-07cfb2190f1ec3f06fb59425ad6fc3b5edd5dcff.tar.gz tcl-07cfb2190f1ec3f06fb59425ad6fc3b5edd5dcff.tar.bz2 | |
Add one more reserved stub entry, most likely will be Tcl_GetBytesFromObj() in Tcl 8.7.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.decls | 6 | ||||
| -rw-r--r-- | generic/tclDecls.h | 9 | ||||
| -rw-r--r-- | 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. */ |