diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-04 21:12:59 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-04 21:12:59 (GMT) |
commit | 1cd654263730690628b68026df15dd43e94f8e66 (patch) | |
tree | e56c722c99076cf07c7240789f95436896d39eed /generic/tclIntDecls.h | |
parent | 0305895d047badbfb753c5303b67728a4ac8c107 (diff) | |
parent | 600c5b59541d100659c84992a2e118b7eba65e41 (diff) | |
download | tcl-1cd654263730690628b68026df15dd43e94f8e66.zip tcl-1cd654263730690628b68026df15dd43e94f8e66.tar.gz tcl-1cd654263730690628b68026df15dd43e94f8e66.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r-- | generic/tclIntDecls.h | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index dcbf3b6..21f4e91 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -469,7 +469,8 @@ EXTERN Tcl_Obj * TclListTestObj(size_t length, size_t leadingSpace, /* 222 */ EXTERN void TclListObjValidate(Tcl_Interp *interp, Tcl_Obj *listObj); -/* Slot 223 is reserved */ +/* 223 */ +EXTERN void * TclGetCStackPtr(void); /* 224 */ EXTERN TclPlatformType * TclGetPlatform(void); /* 225 */ @@ -810,7 +811,7 @@ typedef struct TclIntStubs { void (*reserved220)(void); Tcl_Obj * (*tclListTestObj) (size_t length, size_t leadingSpace, size_t endSpace); /* 221 */ void (*tclListObjValidate) (Tcl_Interp *interp, Tcl_Obj *listObj); /* 222 */ - void (*reserved223)(void); + void * (*tclGetCStackPtr) (void); /* 223 */ TclPlatformType * (*tclGetPlatform) (void); /* 224 */ Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, Tcl_Size keyc, Tcl_Obj *const keyv[], int flags); /* 225 */ int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */ @@ -1196,7 +1197,8 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclListTestObj) /* 221 */ #define TclListObjValidate \ (tclIntStubsPtr->tclListObjValidate) /* 222 */ -/* Slot 223 is reserved */ +#define TclGetCStackPtr \ + (tclIntStubsPtr->tclGetCStackPtr) /* 223 */ #define TclGetPlatform \ (tclIntStubsPtr->tclGetPlatform) /* 224 */ #define TclTraceDictPath \ |