diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-04 14:45:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-04 14:45:41 (GMT) |
| commit | d6de3e27b418588da31a5a14d20a6bf03289c876 (patch) | |
| tree | 396ef6b6d5e9e4e89c6d73ccc588dc8fbdff1c1f /generic/tclIntDecls.h | |
| parent | 6c67bd02861aa2363f0e2ef8dd4639566a114351 (diff) | |
| parent | 9220b96d3c8ec555212d8aee0f81f1c898c75190 (diff) | |
| download | tcl-d6de3e27b418588da31a5a14d20a6bf03289c876.zip tcl-d6de3e27b418588da31a5a14d20a6bf03289c876.tar.gz tcl-d6de3e27b418588da31a5a14d20a6bf03289c876.tar.bz2 | |
Fix [7371b6270b]: AddressSanitizer use-after-return detection breaks NRE tests, coroutines
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 e958733..cb13327 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -532,7 +532,8 @@ EXTERN void TclPopStackFrame(Tcl_Interp *interp); /* Slot 220 is reserved */ /* Slot 221 is reserved */ /* Slot 222 is reserved */ -/* Slot 223 is reserved */ +/* 223 */ +EXTERN void * TclGetCStackPtr(void); /* 224 */ EXTERN TclPlatformType * TclGetPlatform(void); /* 225 */ @@ -875,7 +876,7 @@ typedef struct TclIntStubs { void (*reserved220)(void); void (*reserved221)(void); void (*reserved222)(void); - void (*reserved223)(void); + void * (*tclGetCStackPtr) (void); /* 223 */ TclPlatformType * (*tclGetPlatform) (void); /* 224 */ Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags); /* 225 */ int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */ @@ -1289,7 +1290,8 @@ extern const TclIntStubs *tclIntStubsPtr; /* Slot 220 is reserved */ /* Slot 221 is reserved */ /* Slot 222 is reserved */ -/* Slot 223 is reserved */ +#define TclGetCStackPtr \ + (tclIntStubsPtr->tclGetCStackPtr) /* 223 */ #define TclGetPlatform \ (tclIntStubsPtr->tclGetPlatform) /* 224 */ #define TclTraceDictPath \ |