summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-02 14:18:15 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-02 14:18:15 (GMT)
commit3f4534b92ba967574dc4106bc346ccbbfed9d638 (patch)
treef5256ba864aa750093686aad7526a50f5e8fc2b2 /generic
parent27cb36afb649f2c7fc5594e7150b4755ba29599f (diff)
downloadtcl-3f4534b92ba967574dc4106bc346ccbbfed9d638.zip
tcl-3f4534b92ba967574dc4106bc346ccbbfed9d638.tar.gz
tcl-3f4534b92ba967574dc4106bc346ccbbfed9d638.tar.bz2
Don't free ctrl.script if thread creation fails: it is a constant string "testthread wait" normally.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclThreadTest.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c
index d298e5b..9d17f56 100644
--- a/generic/tclThreadTest.c
+++ b/generic/tclThreadTest.c
@@ -420,7 +420,6 @@ TclCreateThread(interp, script, joinable)
TCL_THREAD_STACK_DEFAULT, joinable) != TCL_OK) {
Tcl_MutexUnlock(&threadMutex);
Tcl_AppendResult(interp,"can't create a new thread",NULL);
- ckfree((void*)ctrl.script);
return TCL_ERROR;
}