Tcl Source Code

==== thread-21.16 thread::cond - delete waited variable FAILED
==== Contents of test case:

    ThreadReap
    set tid [thread::create]
    set emutex [thread::mutex create]
    set cond [thread::cond create]
    thread::send -async $tid [subst {
        thread::mutex lock $emutex
        thread::cond wait $cond $emutex 500
        thread::mutex unlock $emutex
    }]
    update
    after 10
    set c1 [catch {thread::cond destroy $cond} r1]
    thread::cond notify $cond
    after 1000
    set c2 [catch {thread::cond destroy $cond} r2]
    ThreadReap
    thread::mutex destroy $emutex
    list $c1 $c2 $r1 $r2

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: no such condition variable "cid30"
    while executing
"thread::cond notify $cond"
    ("uplevel" body line 14)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== thread-21.16 FAILED

Committed after review by mistachkin (thanks Joe).

Attached patch fixes the issue by reordering things in RemoveCondv just like for RemoveMutex.

File Added - 325599: thr2.patch

Any chance someone can look into
these?  

I'd like to consider Thread for
bundling with Tcl 8.6, but failures
like this make me think it's not ready.