diff options
| author | sebres <sebres@users.sourceforge.net> | 2022-07-29 10:55:37 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2022-07-29 10:55:37 (GMT) |
| commit | 2da979cd8e0bfb96bc57578f2ff2413efd393e5c (patch) | |
| tree | e18c0e49c685dd5c31bbd6ee95fc95d7ae35ba17 | |
| parent | 13c23e76277ca29f8f7d8db582816d407ac02a6c (diff) | |
| download | tcl-2da979cd8e0bfb96bc57578f2ff2413efd393e5c.zip tcl-2da979cd8e0bfb96bc57578f2ff2413efd393e5c.tar.gz tcl-2da979cd8e0bfb96bc57578f2ff2413efd393e5c.tar.bz2 | |
amend for [4eb3a155ac] SF-fix: 8.7 specific implementation and warnings silencing
| -rw-r--r-- | generic/tclProc.c | 10 | ||||
| -rw-r--r-- | generic/tclTest.c | 6 |
2 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 311ea4e..e6b1372 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2162,11 +2162,11 @@ TclProcCleanupProc( if (bodyPtr != NULL) { /* procPtr is stored in body's ByteCode, so ensure to reset it. */ - if (bodyPtr->typePtr == &tclByteCodeType) { - ByteCode *codePtr = bodyPtr->internalRep.twoPtrValue.ptr1; - if (codePtr->procPtr == procPtr) { - codePtr->procPtr = NULL; - } + ByteCode *codePtr; + + ByteCodeGetInternalRep(bodyPtr, &tclByteCodeType, codePtr); + if (codePtr != NULL && codePtr->procPtr == procPtr) { + codePtr->procPtr = NULL; } Tcl_DecrRefCount(bodyPtr); } diff --git a/generic/tclTest.c b/generic/tclTest.c index 77540e2..ed5f34b 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -8145,10 +8145,10 @@ TestInterpResolverCmd( *------------------------------------------------------------------------ */ int TestApplyLambdaObjCmd ( - ClientData notUsed, + TCL_UNUSED(void*), Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const objv[]) /* Argument objects. */ + TCL_UNUSED(int), /* objc. */ + TCL_UNUSED(Tcl_Obj *const *)) /* objv. */ { Tcl_Obj *lambdaObjs[2]; Tcl_Obj *evalObjs[2]; |