diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-01-02 14:37:23 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-01-02 14:37:23 (GMT) |
| commit | 6ba39bbeaa4ebd171089b1943b9521ae7570e249 (patch) | |
| tree | d89982bd2cd0bc211c455c625c08676a6cade532 /generic/tclThreadTest.c | |
| parent | 3583625ad58b7fb413b36654cc3c29fec3c942b5 (diff) | |
| parent | a56cacca9cc35587c00419af2412305a8a4184e8 (diff) | |
| download | tcl-6ba39bbeaa4ebd171089b1943b9521ae7570e249.zip tcl-6ba39bbeaa4ebd171089b1943b9521ae7570e249.tar.gz tcl-6ba39bbeaa4ebd171089b1943b9521ae7570e249.tar.bz2 | |
test Tcl_GetErrorLine() forwards/backwards compatibility in pkgb.so as well.
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 22b5995..b90e33d 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -513,7 +513,6 @@ ThreadCreate( TCL_THREAD_STACK_DEFAULT, joinable) != TCL_OK) { Tcl_MutexUnlock(&threadMutex); Tcl_AppendResult(interp, "can't create a new thread", NULL); - ckfree(ctrl.script); return TCL_ERROR; } |