Differences From Artifact [6d212e9a9a]:

• File generic/tclProc.c — part of check-in [ae45d3af73] at 2022-07-29 10:55:37 on branch core-8-branch — amend for [4eb3a155ac] SF-fix: 8.7 specific implementation and warnings silencing (user: sebres size: 80658) [more...]

To Artifact [065a3eb472]:

• File generic/tclProc.c — part of check-in [cee192b957] at 2022-08-26 20:23:14 on branch core-8-branch — [37108037b9]: Code cleanups to support CHERI: Apply patch 0007 (modified) (user: jan.nijtmans size: 80657) [more...]

2159
2160
2161
2162
2163
2164
2165
2166

2167
2168
2169
2170
2171
2172
2173

2159
2160
2161
2162
2163
2164
2165

2166
2167
2168
2169
2170
2171
2172
2173

-
+

    Tcl_HashEntry *hePtr = NULL;
    CmdFrame *cfPtr = NULL;
    Interp *iPtr = procPtr->iPtr;

    if (bodyPtr != NULL) {
	/* procPtr is stored in body's ByteCode, so ensure to reset it. */
	ByteCode *codePtr;
	

	ByteCodeGetInternalRep(bodyPtr, &tclByteCodeType, codePtr);
	if (codePtr != NULL && codePtr->procPtr == procPtr) {
	    codePtr->procPtr = NULL;
	}
	Tcl_DecrRefCount(bodyPtr);
    }
    for (localPtr = procPtr->firstLocalPtr; localPtr != NULL; ) {