diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-04 20:54:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-04 20:54:28 (GMT) |
| commit | 600c5b59541d100659c84992a2e118b7eba65e41 (patch) | |
| tree | 3559aad7f431a5adbdb7ed219044955faceaa83d /generic/tclIntDecls.h | |
| parent | 1081ce3d811ca2df171d764f1611eb89d8a891b3 (diff) | |
| parent | d6de3e27b418588da31a5a14d20a6bf03289c876 (diff) | |
| download | tcl-600c5b59541d100659c84992a2e118b7eba65e41.zip tcl-600c5b59541d100659c84992a2e118b7eba65e41.tar.gz tcl-600c5b59541d100659c84992a2e118b7eba65e41.tar.bz2 | |
Merge 8.6
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 d8f3af8..a72f615 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -552,7 +552,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 */ @@ -895,7 +896,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 */ @@ -1312,7 +1313,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 \ |