diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 15:32:59 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 15:32:59 (GMT) |
commit | aca56ccb68a14a617153b07b8c272f8838d1f3f6 (patch) | |
tree | cf6160c091b5ee6acfc819dde7e126bbfef70a63 /generic/tclDecls.h | |
parent | cccb9994ce059b965d7537c824ddd63a839f8c21 (diff) | |
download | tcl-aca56ccb68a14a617153b07b8c272f8838d1f3f6.zip tcl-aca56ccb68a14a617153b07b8c272f8838d1f3f6.tar.gz tcl-aca56ccb68a14a617153b07b8c272f8838d1f3f6.tar.bz2 |
Make TclObjInterpProc a macro (since it always should be used through TclGetObjInterpProc())
Add some unused stub entries. Add some more type-casts to tclProc.c
Diffstat (limited to 'generic/tclDecls.h')
-rw-r--r-- | generic/tclDecls.h | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index f2eed87..8731144 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1859,7 +1859,13 @@ EXTERN void Tcl_ZlibStreamSetCompressionDictionary( /* Slot 672 is reserved */ /* Slot 673 is reserved */ /* Slot 674 is reserved */ -/* 675 */ +/* Slot 675 is reserved */ +/* Slot 676 is reserved */ +/* Slot 677 is reserved */ +/* Slot 678 is reserved */ +/* Slot 679 is reserved */ +/* Slot 680 is reserved */ +/* 681 */ EXTERN void TclUnusedStubEntry(void); typedef struct { @@ -2571,7 +2577,13 @@ typedef struct TclStubs { void (*reserved672)(void); void (*reserved673)(void); void (*reserved674)(void); - void (*tclUnusedStubEntry) (void); /* 675 */ + void (*reserved675)(void); + void (*reserved676)(void); + void (*reserved677)(void); + void (*reserved678)(void); + void (*reserved679)(void); + void (*reserved680)(void); + void (*tclUnusedStubEntry) (void); /* 681 */ } TclStubs; extern const TclStubs *tclStubsPtr; @@ -3908,8 +3920,14 @@ extern const TclStubs *tclStubsPtr; /* Slot 672 is reserved */ /* Slot 673 is reserved */ /* Slot 674 is reserved */ +/* Slot 675 is reserved */ +/* Slot 676 is reserved */ +/* Slot 677 is reserved */ +/* Slot 678 is reserved */ +/* Slot 679 is reserved */ +/* Slot 680 is reserved */ #define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 675 */ + (tclStubsPtr->tclUnusedStubEntry) /* 681 */ #endif /* defined(USE_TCL_STUBS) */ |