Subject: Don't free ctrl.script if thread creation fails: it is a constant string "testthread wait" normally.

From: "jan.nijtmans" <[email-masked]>
Date: Wed, 2 Jan 2013 14:18:15 +0000

---
 generic/tclThreadTest.c | 1 -
 1 file changed, 1 deletion(-)

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;
     }
 
-- 
cgit v0.12