diff options
| author | dan <dan@noemail.net> | 2010-07-06 10:55:44 +0000 |
|---|---|---|
| committer | dan <dan@noemail.net> | 2010-07-06 10:55:44 +0000 |
| commit | e1a2a990b8541f9032ac9d0c8c75eee11501950f (patch) | |
| tree | 62f3630b45fd95d397fb6403f7b903c280a3632d /src/test_thread.c | |
| parent | 9e55d47d3319d56f8ea68780c901630aa7ee0fba (diff) | |
| download | sqlite-e1a2a990b8541f9032ac9d0c8c75eee11501950f.tar.gz sqlite-e1a2a990b8541f9032ac9d0c8c75eee11501950f.zip | |
Before calling Tcl_ExitThread() in a multi-threaded test, call Tcl_DoOneEvent() as many times as necessary to handle any queued events.
FossilOrigin-Name: b3399b40785d13754979203f15d71c95fec50282
Diffstat (limited to 'src/test_thread.c')
| -rw-r--r-- | src/test_thread.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/test_thread.c b/src/test_thread.c index 08494189c..af38d9184 100644 --- a/src/test_thread.c +++ b/src/test_thread.c @@ -150,6 +150,7 @@ static Tcl_ThreadCreateType tclScriptThread(ClientData pSqlThread){ Tcl_DecrRefCount(pList); Tcl_DecrRefCount(pRes); Tcl_DeleteInterp(interp); + while( Tcl_DoOneEvent(TCL_ALL_EVENTS|TCL_DONT_WAIT) ); Tcl_ExitThread(0); TCL_THREAD_CREATE_RETURN; } |