Differences From Artifact [e554c03809]:

• File generic/tclThreadTest.c — part of check-in [512220a685] at 2011-09-21 21:45:54 on branch trunk — Revise the thread exit handling of the [testthread] command so that it properly maintains the per-process data structures even when the thread exits for reasons other than the [testthread exit] command. (user: dgp size: 31093) [more...]

To Artifact [96562ce2b1]:

• File generic/tclThreadTest.c — part of check-in [0b4be2fe68] at 2011-11-18 01:01:37 on branch trunk — For [testthread cancel], avoid creating a new Tcl_Obj when the default script cancellation result is desired. (user: mistachkin size: 31124) [more...]

984
985
986
987
988
989
990
991

992
993
994
995
996
997
998

    /*
     * Since Tcl_CancelEval can be safely called from any thread,
     * we do it now.
     */

    Tcl_MutexUnlock(&threadMutex);
    Tcl_ResetResult(interp);
    return Tcl_CancelEval(tsdPtr->interp, Tcl_NewStringObj(result, -1), 0, flags);

}

/*
 *------------------------------------------------------------------------
 *
 * ThreadEventProc --
 *

|
>

984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999

    /*
     * Since Tcl_CancelEval can be safely called from any thread,
     * we do it now.
     */

    Tcl_MutexUnlock(&threadMutex);
    Tcl_ResetResult(interp);
    return Tcl_CancelEval(tsdPtr->interp,
    	(result != NULL) ? Tcl_NewStringObj(result, -1) : NULL, 0, flags);
}

/*
 *------------------------------------------------------------------------
 *
 * ThreadEventProc --
 *