diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-25 13:07:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-25 13:07:59 (GMT) |
| commit | b6f2a4b5d6cfc40e6b66cdff21a3f6b2936eb796 (patch) | |
| tree | 679f1017e76d0436284b6fd6ad417469b14b3394 | |
| parent | c613302b0a77973cf40e4b5801111522c8bf9712 (diff) | |
| download | tcl-b6f2a4b5d6cfc40e6b66cdff21a3f6b2936eb796.zip tcl-b6f2a4b5d6cfc40e6b66cdff21a3f6b2936eb796.tar.gz tcl-b6f2a4b5d6cfc40e6b66cdff21a3f6b2936eb796.tar.bz2 | |
Another memory leak, and one Tcl_Free -> ckfree
FossilOrigin-Name: 248353f6a64015303fa835e6cd581ff1b68b1792
| -rw-r--r-- | generic/tclThreadTest.c | 1 | ||||
| -rw-r--r-- | unix/tclUnixTime.c | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 1115ff0..8708f9a 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -930,6 +930,7 @@ ThreadSend( Tcl_ConditionFinalize(&resultPtr->done); code = resultPtr->code; + ckfree(resultPtr->result); ckfree(resultPtr); return code; diff --git a/unix/tclUnixTime.c b/unix/tclUnixTime.c index c7921fe..926e8f4 100644 --- a/unix/tclUnixTime.c +++ b/unix/tclUnixTime.c @@ -503,7 +503,7 @@ SetTZIfNecessary(void) if (lastTZ == NULL) { Tcl_CreateExitHandler(CleanupMemory, NULL); } else { - Tcl_Free(lastTZ); + ckfree(lastTZ); } lastTZ = ckalloc(strlen(newTZ) + 1); strcpy(lastTZ, newTZ); |