diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-19 11:49:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-19 11:49:16 (GMT) |
| commit | c670267c5ecc42904d39383d08154bde04d021bd (patch) | |
| tree | 2e9fba63695e0726dc8ea7bd842222685f735cbd | |
| parent | df7056bc09ff07d9e85065b1a2e92d811907bafc (diff) | |
| download | tcl-c670267c5ecc42904d39383d08154bde04d021bd.zip tcl-c670267c5ecc42904d39383d08154bde04d021bd.tar.gz tcl-c670267c5ecc42904d39383d08154bde04d021bd.tar.bz2 | |
Reserve 2 more stub entries for TIP #648
| -rw-r--r-- | generic/tcl.decls | 2 | ||||
| -rw-r--r-- | generic/tclDecls.h | 12 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 4 |
3 files changed, 13 insertions, 5 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 2f21fa5..5cef47a 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -2327,7 +2327,7 @@ declare 630 { # ----- BASELINE -- FOR -- 8.6.0 ----- # -declare 688 { +declare 690 { void TclUnusedStubEntry(void) } diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 8a226a9..7bcf534 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1872,7 +1872,9 @@ EXTERN void Tcl_ZlibStreamSetCompressionDictionary( /* Slot 685 is reserved */ /* Slot 686 is reserved */ /* Slot 687 is reserved */ -/* 688 */ +/* Slot 688 is reserved */ +/* Slot 689 is reserved */ +/* 690 */ EXTERN void TclUnusedStubEntry(void); typedef struct { @@ -2597,7 +2599,9 @@ typedef struct TclStubs { void (*reserved685)(void); void (*reserved686)(void); void (*reserved687)(void); - void (*tclUnusedStubEntry) (void); /* 688 */ + void (*reserved688)(void); + void (*reserved689)(void); + void (*tclUnusedStubEntry) (void); /* 690 */ } TclStubs; extern const TclStubs *tclStubsPtr; @@ -3947,8 +3951,10 @@ extern const TclStubs *tclStubsPtr; /* Slot 685 is reserved */ /* Slot 686 is reserved */ /* Slot 687 is reserved */ +/* Slot 688 is reserved */ +/* Slot 689 is reserved */ #define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 688 */ + (tclStubsPtr->tclUnusedStubEntry) /* 690 */ #endif /* defined(USE_TCL_STUBS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 0a7fb01..cd6d46b 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -1688,7 +1688,9 @@ const TclStubs tclStubs = { 0, /* 685 */ 0, /* 686 */ 0, /* 687 */ - TclUnusedStubEntry, /* 688 */ + 0, /* 688 */ + 0, /* 689 */ + TclUnusedStubEntry, /* 690 */ }; /* !END!: Do not edit above this line. */ |