diff options
author | dgp <dgp@users.sourceforge.net> | 2016-01-19 13:06:40 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-01-19 13:06:40 (GMT) |
commit | b29c8c9024a6b9e1b6ede8a02f6d3243607e4410 (patch) | |
tree | 57df9a3646872d41da4caf86b97f8e20ec90bbfe /generic/tclThreadTest.c | |
parent | 75a948c82b849db12be6bbe74005435ff2905812 (diff) | |
parent | 7dd65dcdd0d8e9013803356230cce9a9ac6dfef3 (diff) | |
download | tcl-b29c8c9024a6b9e1b6ede8a02f6d3243607e4410.zip tcl-b29c8c9024a6b9e1b6ede8a02f6d3243607e4410.tar.gz tcl-b29c8c9024a6b9e1b6ede8a02f6d3243607e4410.tar.bz2 |
merge trunkbug_593baa032c
Diffstat (limited to 'generic/tclThreadTest.c')
-rw-r--r-- | generic/tclThreadTest.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 02ee038..75f8a15 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -613,7 +613,7 @@ NewTestThread( */ Tcl_Preserve(tsdPtr->interp); - result = Tcl_Eval(tsdPtr->interp, threadEvalScript); + result = Tcl_EvalEx(tsdPtr->interp, threadEvalScript, -1, 0); if (result != TCL_OK) { ThreadErrorProc(tsdPtr->interp); } @@ -834,7 +834,7 @@ ThreadSend( if (threadId == Tcl_GetCurrentThread()) { Tcl_MutexUnlock(&threadMutex); - return Tcl_GlobalEval(interp, script); + return Tcl_EvalEx(interp, script,-1,TCL_EVAL_GLOBAL); } /* @@ -1029,7 +1029,7 @@ ThreadEventProc( Tcl_Preserve(interp); Tcl_ResetResult(interp); Tcl_CreateThreadExitHandler(ThreadFreeProc, threadEventPtr->script); - code = Tcl_GlobalEval(interp, threadEventPtr->script); + code = Tcl_EvalEx(interp, threadEventPtr->script,-1,TCL_EVAL_GLOBAL); Tcl_DeleteThreadExitHandler(ThreadFreeProc, threadEventPtr->script); if (code != TCL_OK) { errorCode = Tcl_GetVar(interp, "errorCode", TCL_GLOBAL_ONLY); |