diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-08-25 17:19:42 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-08-25 17:19:42 (GMT) |
| commit | 7e159bb362ea2362854c55e166b0a20d05059183 (patch) | |
| tree | a0b7ec0be82515d1947e6cad2a9ed8189d6913af /generic/tkImgPhoto.c | |
| parent | 722b9e5353b33fdcd23e186a5855e5488e571278 (diff) | |
| download | tk-7e159bb362ea2362854c55e166b0a20d05059183.zip tk-7e159bb362ea2362854c55e166b0a20d05059183.tar.gz tk-7e159bb362ea2362854c55e166b0a20d05059183.tar.bz2 | |
Fix crash reported by Don Porter.
Diffstat (limited to 'generic/tkImgPhoto.c')
| -rw-r--r-- | generic/tkImgPhoto.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tkImgPhoto.c b/generic/tkImgPhoto.c index 74bc6f0..2007559 100644 --- a/generic/tkImgPhoto.c +++ b/generic/tkImgPhoto.c @@ -17,7 +17,7 @@ * Department of Computer Science, * Australian National University. * - * RCS: @(#) $Id: tkImgPhoto.c,v 1.79 2008/08/25 11:44:04 dkf Exp $ + * RCS: @(#) $Id: tkImgPhoto.c,v 1.80 2008/08/25 17:19:43 dkf Exp $ */ #include "tclInt.h" @@ -1678,6 +1678,7 @@ ImgPhotoConfigureMaster( data = objv[i]; j--; } else { + TclStackFree(interp, args); Tcl_AppendResult(interp, "value for \"-data\" missing", NULL); return TCL_ERROR; @@ -1688,6 +1689,7 @@ ImgPhotoConfigureMaster( format = objv[i]; j--; } else { + TclStackFree(interp, args); Tcl_AppendResult(interp, "value for \"-format\" missing", NULL); return TCL_ERROR; |