diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-02 14:18:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-02 14:18:15 (GMT) |
| commit | 51e5bda4769c125a8d712a3b7fef28d126cf61d1 (patch) | |
| tree | f5256ba864aa750093686aad7526a50f5e8fc2b2 /generic/tclThreadTest.c | |
| parent | 656b2b4f87a9817fbb7ef66e3b929e77018a7c4f (diff) | |
| download | tcl-51e5bda4769c125a8d712a3b7fef28d126cf61d1.zip tcl-51e5bda4769c125a8d712a3b7fef28d126cf61d1.tar.gz tcl-51e5bda4769c125a8d712a3b7fef28d126cf61d1.tar.bz2 | |
Don't free ctrl.script if thread creation fails: it is a constant string "testthread wait" normally.
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 1 |
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; } |