diff options
| -rw-r--r-- | generic/tclZlib.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 00d54e6..305bcd9 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclZlib.c,v 1.10 2008/12/13 17:36:34 dkf Exp $ + * RCS: @(#) $Id: tclZlib.c,v 1.11 2008/12/14 15:10:22 das Exp $ */ #include "tclInt.h" @@ -1404,8 +1404,8 @@ ZlibCmd( int objc, Tcl_Obj *const objv[]) { - int command, dlen, mode, format, i, option; - unsigned start, level = -1, buffersize = 0; + int command, dlen, mode, format, i, option, level = -1; + unsigned start, buffersize = 0; Tcl_ZlibStream zh; Byte *data; Tcl_Obj *obj = Tcl_GetObjResult(interp); @@ -1479,7 +1479,7 @@ ZlibCmd( return TCL_ERROR; } if (objc > 3) { - if (Tcl_GetIntFromObj(interp, objv[3], (int *)&level) != TCL_OK) { + if (Tcl_GetIntFromObj(interp, objv[3], &level) != TCL_OK) { return TCL_ERROR; } if (level < 0 || level > 9) { @@ -1495,7 +1495,7 @@ ZlibCmd( return TCL_ERROR; } if (objc > 3) { - if (Tcl_GetIntFromObj(interp, objv[3], (int *)&level) != TCL_OK) { + if (Tcl_GetIntFromObj(interp, objv[3], &level) != TCL_OK) { return TCL_ERROR; } if (level < 0 || level > 9) { @@ -1527,7 +1527,7 @@ ZlibCmd( break; case 1: if (Tcl_GetIntFromObj(interp, objv[i+1], - (int *)&level) != TCL_OK) { + &level) != TCL_OK) { return TCL_ERROR; } if (level < 0 || level > 9) { |