diff options
| author | hobbs <hobbs@noemail.net> | 1999-10-30 11:09:42 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 1999-10-30 11:09:42 (GMT) |
| commit | 19d37cea3398c5d08431fc9346d9dc7aa69a1eaa (patch) | |
| tree | d7e89d4d2d749a55cd7c8e1c6461a6358f989c9e /unix/tclUnixTest.c | |
| parent | 728b709f10ce32b2a8786f9402b734b061c01b8b (diff) | |
| download | tcl-19d37cea3398c5d08431fc9346d9dc7aa69a1eaa.zip tcl-19d37cea3398c5d08431fc9346d9dc7aa69a1eaa.tar.gz tcl-19d37cea3398c5d08431fc9346d9dc7aa69a1eaa.tar.bz2 | |
* unix/Makefile.in: purify has to use -best-effort to instrument
* unix/tclUnixPipe.c: fixed mem leak in TclpCreateProcess when
doing alloc between vfork and execvp.
* unix/tclUnixTest.c: fixed mem leak in findexecutable test command
* unix/tclUnixNotfy.c: fixed event/io threading problems by
making triggerPipe non-blocking
FossilOrigin-Name: 07e490e23d760249c9356de7656ede4f6e882c6f
Diffstat (limited to 'unix/tclUnixTest.c')
| -rw-r--r-- | unix/tclUnixTest.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index 7c7559b..8ac0b9b 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixTest.c,v 1.10 1999/04/16 00:48:05 stanton Exp $ + * RCS: @(#) $Id: tclUnixTest.c,v 1.10.6.1 1999/10/30 11:09:45 hobbs Exp $ */ #include "tclInt.h" @@ -465,6 +465,9 @@ TestfindexecutableCmd(clientData, interp, argc, argv) Tcl_SetResult(interp, tclExecutableName, TCL_VOLATILE); ckfree(tclExecutableName); } + if (tclNativeExecutableName != NULL) { + ckfree(tclNativeExecutableName); + } tclExecutableName = oldName; tclNativeExecutableName = oldNativeName; |