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 /generic/tclProc.c | |
| 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
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 10 |
1 files changed, 5 insertions, 5 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); } |