diff options
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; } |