From a572d7070900a843d0b8cc6c6bee105f8411c90c Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Mon, 23 Nov 2009 19:00:49 +0000 Subject: * generic/tclThreadTest.c (NewTestThread): [Bug 2901803] Further machinations to get NewTestThread actually to launch the thread, not just compile. --- ChangeLog | 6 ++++++ generic/tclThreadTest.c | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5f52c3a..bb5fc21 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2009-11-23 Kevin B. Kenny + + * generic/tclThreadTest.c (NewTestThread): [Bug 2901803] + Further machinations to get NewTestThread actually to launch + the thread, not just compile. + 2009-11-22 Donal K. Fellows * generic/tclThreadTest.c (NewTestThread): [Bug 2901803]: Fix small diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index b5409f2..e009a86 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclThreadTest.c,v 1.33 2009/11/23 00:02:51 dkf Exp $ + * RCS: @(#) $Id: tclThreadTest.c,v 1.34 2009/11/23 19:00:49 kennykb Exp $ */ #ifndef USE_TCL_STUBS @@ -588,7 +588,7 @@ NewTestThread( * use by the new thread. */ - result = Tcl_PkgRequire(tsdPtr->interp, "Tcltest", TCL_VERSION, 1); + result = Tcl_Eval(tsdPtr->interp, "load {} Tcltest"); if (result != TCL_OK) { ThreadErrorProc(tsdPtr->interp); } -- cgit v0.12