diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2001-09-14 20:35:58 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2001-09-14 20:35:58 (GMT) |
| commit | 2117a9e0a851883c3f7cb5d800bf64ae66b6622f (patch) | |
| tree | af1e2d8738f97514fb3f07466e9b32fdf9fbe051 /generic/tkImgGIF.c | |
| parent | cca4b9be51425da771fe18fcd8b0990634e9c479 (diff) | |
| download | tk-2117a9e0a851883c3f7cb5d800bf64ae66b6622f.zip tk-2117a9e0a851883c3f7cb5d800bf64ae66b6622f.tar.gz tk-2117a9e0a851883c3f7cb5d800bf64ae66b6622f.tar.bz2 | |
* generic/tkImgGIF.c:
* generic/tkImgPPM.c:
* generic/tkImgPhoto.c:
* generic/tkMenu.c: Applied patch [461578], provided by Vincent
Darley. This fixes several memory leaks in the image code. They
happen if there are errors during the initialization of the
channel the image is supposed to be read from.
FossilOrigin-Name: 9c9ecdc7b9cdd4df094b1ac9ebcd4d9828752d46
Diffstat (limited to 'generic/tkImgGIF.c')
| -rw-r--r-- | generic/tkImgGIF.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tkImgGIF.c b/generic/tkImgGIF.c index 54c857e..108c7ad 100644 --- a/generic/tkImgGIF.c +++ b/generic/tkImgGIF.c @@ -29,7 +29,7 @@ * | provided "as is" without express or implied warranty. | * +-------------------------------------------------------------------+ * - * RCS: @(#) $Id: tkImgGIF.c,v 1.17 2001/07/03 06:00:45 hobbs Exp $ + * RCS: @(#) $Id: tkImgGIF.c,v 1.18 2001/09/14 20:35:58 andreas_kupries Exp $ */ /* @@ -1354,6 +1354,7 @@ FileWriteGIF (interp, filename, format, blockPtr) return TCL_ERROR; } if (Tcl_SetChannelOption(interp, chan, "-translation", "binary") != TCL_OK) { + Tcl_Close(NULL, chan); return TCL_ERROR; } |