From 18c87bb1b4d7087f3abe15c1b7847a81f5ce2093 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 16 Mar 2007 02:05:31 +0000
Subject: fix warnings

---
 generic/tclCompCmds.c | 4 ++--
 generic/tclIOUtil.c   | 4 +++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 8ceb0b9..9e96eb3 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCompCmds.c,v 1.102 2007/03/02 10:32:11 dkf Exp $
+ * RCS: @(#) $Id: tclCompCmds.c,v 1.103 2007/03/16 02:05:31 das Exp $
  */
 
 #include "tclInt.h"
@@ -4294,7 +4294,7 @@ PrintJumptableInfo(
     hPtr = Tcl_FirstHashEntry(&jtPtr->hashTable, &search);
     for (; hPtr ; hPtr = Tcl_NextHashEntry(&search)) {
 	keyPtr = Tcl_GetHashKey(&jtPtr->hashTable, hPtr);
-	offset = (int) Tcl_GetHashValue(hPtr);
+	offset = PTR2INT(Tcl_GetHashValue(hPtr));
 
 	if (i++) {
 	    fprintf(stdout, ", ");
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index d4b0667..b275b77 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -17,7 +17,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclIOUtil.c,v 1.141 2007/03/16 00:57:36 mdejong Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.142 2007/03/16 02:05:31 das Exp $
  */
 
 #include "tclInt.h"
@@ -68,10 +68,12 @@ Tcl_Stat(
     Tcl_StatBuf buf;
     Tcl_Obj *pathPtr = Tcl_NewStringObj(path,-1);
 
+#ifndef TCL_WIDE_INT_IS_LONG
     Tcl_WideInt tmp1, tmp2;
 #ifdef HAVE_ST_BLOCKS
     Tcl_WideInt tmp3;
 #endif
+#endif
 
     Tcl_IncrRefCount(pathPtr);
     ret = Tcl_FSStat(pathPtr, &buf);
-- 
cgit v0.12