Differences From Artifact [2f579466dc]:

• File generic/tclThreadTest.c — part of check-in [1811f74742] at 2025-07-14 08:11:31 on branch c-std-update — A bunch of small changes building on previous commits (user: dkf size: 31417)

To Artifact [85a3ffd4f0]:

• File generic/tclThreadTest.c — part of check-in [a29f1f8fab] at 2025-07-14 14:26:42 on branch c-std-update — TclSetErrorCode lets us avoid writing a lot of marker values (user: dkf size: 31402)

911
912
913
914
915
916
917
918
919
920
921
922
923
924
925

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

    Tcl_MutexUnlock(&threadMutex);

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

|

911
912
913
914
915
916
917
918
919
920
921
922
923
924
925

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

    Tcl_MutexUnlock(&threadMutex);

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