From 842ee17d6f2ba6644263a7e2f3335a9e5d613edc Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Tue, 22 Mar 2022 16:45:14 +0000 Subject: Reserve 3 more stub entries --- generic/tcl.decls | 2 +- generic/tclDecls.h | 15 ++++++++++++--- generic/tclStubInit.c | 5 ++++- 3 files changed, 17 insertions(+), 5 deletions(-) diff --git a/generic/tcl.decls b/generic/tcl.decls index 01318dd..8536168 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -2111,7 +2111,7 @@ declare 579 { # ----- BASELINE -- FOR -- 8.5.0 ----- # -declare 670 { +declare 673 { void TclUnusedStubEntry(void) } diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 10e9fc8..b8b17d2 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3502,9 +3502,12 @@ EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, /* Slot 667 is reserved */ /* Slot 668 is reserved */ /* Slot 669 is reserved */ +/* Slot 670 is reserved */ +/* Slot 671 is reserved */ +/* Slot 672 is reserved */ #ifndef TclUnusedStubEntry_TCL_DECLARED #define TclUnusedStubEntry_TCL_DECLARED -/* 670 */ +/* 673 */ EXTERN void TclUnusedStubEntry(void); #endif @@ -4212,7 +4215,10 @@ typedef struct TclStubs { VOID *reserved667; VOID *reserved668; VOID *reserved669; - void (*tclUnusedStubEntry) (void); /* 670 */ + VOID *reserved670; + VOID *reserved671; + VOID *reserved672; + void (*tclUnusedStubEntry) (void); /* 673 */ } TclStubs; extern TclStubs *tclStubsPtr; @@ -6655,9 +6661,12 @@ extern TclStubs *tclStubsPtr; /* Slot 667 is reserved */ /* Slot 668 is reserved */ /* Slot 669 is reserved */ +/* Slot 670 is reserved */ +/* Slot 671 is reserved */ +/* Slot 672 is reserved */ #ifndef TclUnusedStubEntry #define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 670 */ + (tclStubsPtr->tclUnusedStubEntry) /* 673 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 3859995..e7dc0c1 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -1468,7 +1468,10 @@ TclStubs tclStubs = { NULL, /* 667 */ NULL, /* 668 */ NULL, /* 669 */ - TclUnusedStubEntry, /* 670 */ + NULL, /* 670 */ + NULL, /* 671 */ + NULL, /* 672 */ + TclUnusedStubEntry, /* 673 */ }; /* !END!: Do not edit above this line. */ -- cgit v0.12