From 2da979cd8e0bfb96bc57578f2ff2413efd393e5c Mon Sep 17 00:00:00 2001 From: sebres Date: Fri, 29 Jul 2022 10:55:37 +0000 Subject: amend for [4eb3a155ac] SF-fix: 8.7 specific implementation and warnings silencing --- generic/tclProc.c | 10 +++++----- 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]; -- cgit v0.12