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/tclTest.c | |
| 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/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index ab2e459..2986b19 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -8038,22 +8038,22 @@ NREUnwind_callback( Tcl_Interp *interp, TCL_UNUSED(int) /*result*/) { - int none; + void *cStackPtr = TclGetCStackPtr(); if (data[0] == INT2PTR(-1)) { - Tcl_NRAddCallback(interp, NREUnwind_callback, &none, INT2PTR(-1), + Tcl_NRAddCallback(interp, NREUnwind_callback, cStackPtr, INT2PTR(-1), INT2PTR(-1), NULL); } else if (data[1] == INT2PTR(-1)) { - Tcl_NRAddCallback(interp, NREUnwind_callback, data[0], &none, + Tcl_NRAddCallback(interp, NREUnwind_callback, data[0], cStackPtr, INT2PTR(-1), NULL); } else if (data[2] == INT2PTR(-1)) { Tcl_NRAddCallback(interp, NREUnwind_callback, data[0], data[1], - &none, NULL); + cStackPtr, NULL); } else { Tcl_Obj *idata[3]; idata[0] = Tcl_NewWideIntObj(((char *) data[1] - (char *) data[0])); idata[1] = Tcl_NewWideIntObj(((char *) data[2] - (char *) data[0])); - idata[2] = Tcl_NewWideIntObj(((char *) &none - (char *) data[0])); + idata[2] = Tcl_NewWideIntObj(((char *) cStackPtr - (char *) data[0])); Tcl_SetObjResult(interp, Tcl_NewListObj(3, idata)); } return TCL_OK; @@ -8092,10 +8092,10 @@ TestNRELevels( NRE_callback *cbPtr = iPtr->execEnvPtr->callbackPtr; if (refDepth == NULL) { - refDepth = &depth; + refDepth = (ptrdiff_t *)TclGetCStackPtr(); } - depth = (refDepth - &depth); + depth = (refDepth - (ptrdiff_t *)TclGetCStackPtr()); levels[0] = Tcl_NewWideIntObj(depth); levels[1] = Tcl_NewWideIntObj(iPtr->numLevels); |