diff options
| author | dgp@users.sourceforge.net <dgp> | 2004-10-26 20:14:12 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2004-10-26 20:14:12 (GMT) |
| commit | c630ec11ac61a058f4f9667df071094be99d701c (patch) | |
| tree | d434a0b7fcce12b2effd71b0d201f00fc9b516ca /generic/tclThreadTest.c | |
| parent | 3c98304a7255db77c81695b8ceaaf1d31f530e3a (diff) | |
| download | tcl-c630ec11ac61a058f4f9667df071094be99d701c.zip tcl-c630ec11ac61a058f4f9667df071094be99d701c.tar.gz tcl-c630ec11ac61a058f4f9667df071094be99d701c.tar.bz2 | |
* tests/compile.test (compile-12.4): Backport test for Bug 1001997.
* tests/timer.test (timer-10.1): Backport test for Bug 1016167.
* tests/tcltest.test (tcltest-12.3,4): Backport setup corrections.
* tests/error.test (error-6.3,4,7,9): Backport of some tests.
* tests/basic.test (basic-49.*):
* tests/namespace.test (namespace-8.7):
* tests/init.test (init-2.8): Updated to not rely on http package.
* generic/tclThreadTest.c (ThreadEventProc): Corrected subtle
bug where the returned (char *) from Tcl_GetStringResult(interp)
continued to be used without copying or refcounting, while
activity on the interp continued.
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index c830687..f551746 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -11,7 +11,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.16 2002/01/26 01:10:08 dgp Exp $ + * RCS: @(#) $Id: tclThreadTest.c,v 1.16.2.1 2004/10/26 20:14:29 dgp Exp $ */ #include "tclInt.h" @@ -868,13 +868,13 @@ ThreadEventProc(evPtr, mask) code = Tcl_GlobalEval(interp, threadEventPtr->script); Tcl_DeleteThreadExitHandler(ThreadFreeProc, (ClientData) threadEventPtr->script); - result = Tcl_GetStringResult(interp); if (code != TCL_OK) { errorCode = Tcl_GetVar(interp, "errorCode", TCL_GLOBAL_ONLY); errorInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); } else { errorCode = errorInfo = NULL; } + result = Tcl_GetStringResult(interp); } ckfree(threadEventPtr->script); if (resultPtr) { |