Differences From Artifact [8b4885e6d2]:

• File generic/tclThreadTest.c — part of check-in [60c02983ce] at 2024-08-22 21:14:28 on branch unchained — Merge [171d9a4b1326efdd]: More C++-sentinel-related fixes (hopefully, those are the last ones). (user: pooryorick size: 31793) [more...]

To Artifact [7baf78605c]:

• File generic/tclThreadTest.c — part of check-in [d596742ed0] at 2024-08-22 21:15:40 on branch unchained — Fossil merge [e6127d0a7b2b0f53]: [26870862f0] follow-up: of course it was not complete yet. (user: pooryorick size: 31801) [more...]

919
920
921
922
923
924
925
926
927
928
929
930
931
932
933

    resultPtr->nextPtr = NULL;
    resultPtr->prevPtr = NULL;

    Tcl_MutexUnlock(&threadMutex);

    if (resultPtr->code != TCL_OK) {
	if (resultPtr->errorCode) {
	    Tcl_SetErrorCode(interp, resultPtr->errorCode, NULL);
	    Tcl_Free(resultPtr->errorCode);
	}
	if (resultPtr->errorInfo) {
	    Tcl_AddErrorInfo(interp, resultPtr->errorInfo);
	    Tcl_Free(resultPtr->errorInfo);
	}
    }

|

919
920
921
922
923
924
925
926
927
928
929
930
931
932
933

    resultPtr->nextPtr = NULL;
    resultPtr->prevPtr = NULL;

    Tcl_MutexUnlock(&threadMutex);

    if (resultPtr->code != TCL_OK) {
	if (resultPtr->errorCode) {
	    Tcl_SetErrorCode(interp, resultPtr->errorCode, (void *)NULL);
	    Tcl_Free(resultPtr->errorCode);
	}
	if (resultPtr->errorInfo) {
	    Tcl_AddErrorInfo(interp, resultPtr->errorInfo);
	    Tcl_Free(resultPtr->errorInfo);
	}
    }