diff options
author | das <das> | 2008-12-14 15:10:22 (GMT) |
---|---|---|
committer | das <das> | 2008-12-14 15:10:22 (GMT) |
commit | c29cb5899da9fe432c45c9f06e40725978f7e3ec (patch) | |
tree | 86949e27534d74b31e469da6e9701ab0e8015f32 /generic | |
parent | 007218ef3654c34fefcef0a00be1ee7619292f5c (diff) | |
download | tcl-c29cb5899da9fe432c45c9f06e40725978f7e3ec.zip tcl-c29cb5899da9fe432c45c9f06e40725978f7e3ec.tar.gz tcl-c29cb5899da9fe432c45c9f06e40725978f7e3ec.tar.bz2 |
fix warnings
Diffstat (limited to 'generic')
-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) { |