diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-08 07:01:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-08 07:01:46 (GMT) |
| commit | eeead325b4cb325227d4f4de61f99fcd50902799 (patch) | |
| tree | 4cd175e2ac4a79e2c57636af2c4689b618c43ecd /generic/tclThreadTest.c | |
| parent | 77bd578d9f6fd5b168738b2a88a37d140a1302ec (diff) | |
| parent | 12647cc4fb256526efeff88b7add979e3e0c59f7 (diff) | |
| download | tcl-eeead325b4cb325227d4f4de61f99fcd50902799.zip tcl-eeead325b4cb325227d4f4de61f99fcd50902799.tar.gz tcl-eeead325b4cb325227d4f4de61f99fcd50902799.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 6da26db..1742eb7 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -174,15 +174,6 @@ TclThread_Init( Tcl_CreateObjCommand(interp, "testthread", ThreadObjCmd, NULL, NULL); return TCL_OK; } - - -void TclThreadTestFinalize() { - if (errorProcString != NULL) { - ckfree(errorProcString); - errorProcString= NULL; - } - return; -} /* *---------------------------------------------------------------------- @@ -1166,6 +1157,14 @@ ThreadExitProc( Tcl_MutexLock(&threadMutex); + if (self == errorThreadId) { + if (errorProcString) { /* Extra safety */ + ckfree(errorProcString); + errorProcString = NULL; + } + errorThreadId = 0; + } + if (threadEvalScript) { ckfree(threadEvalScript); threadEvalScript = NULL; |