From c29cb5899da9fe432c45c9f06e40725978f7e3ec Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sun, 14 Dec 2008 15:10:22 +0000
Subject: fix warnings

---
 generic/tclZlib.c | 12 ++++++------
 1 file 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) {
-- 
cgit v0.12