summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-10-26 20:14:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-10-26 20:14:12 (GMT)
commit02d8d08520b48fae236b2c0073b0d3e4fcc61845 (patch)
treed434a0b7fcce12b2effd71b0d201f00fc9b516ca /generic
parent52d8c7176f0f89ff442c950f4dea8584f15014e3 (diff)
downloadtcl-02d8d08520b48fae236b2c0073b0d3e4fcc61845.zip
tcl-02d8d08520b48fae236b2c0073b0d3e4fcc61845.tar.gz
tcl-02d8d08520b48fae236b2c0073b0d3e4fcc61845.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')
-rw-r--r--generic/tclThreadTest.c4
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) {