summaryrefslogtreecommitdiffstats
path: root/generic/tkImgPhoto.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-08-25 17:19:42 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-08-25 17:19:42 (GMT)
commit7e159bb362ea2362854c55e166b0a20d05059183 (patch)
treea0b7ec0be82515d1947e6cad2a9ed8189d6913af /generic/tkImgPhoto.c
parent722b9e5353b33fdcd23e186a5855e5488e571278 (diff)
downloadtk-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.c4
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;