summaryrefslogtreecommitdiffstats
path: root/generic/tclIOUtil.c
diff options
context:
space:
mode:
authordas <das>2007-03-16 02:05:31 (GMT)
committerdas <das>2007-03-16 02:05:31 (GMT)
commit18c87bb1b4d7087f3abe15c1b7847a81f5ce2093 (patch)
tree5a325a6ed85f7181b4c608c1b47ad1b80fca19f9 /generic/tclIOUtil.c
parent8bdda3336b26381617a3da78b450ee0d3eeead8c (diff)
downloadtcl-18c87bb1b4d7087f3abe15c1b7847a81f5ce2093.zip
tcl-18c87bb1b4d7087f3abe15c1b7847a81f5ce2093.tar.gz
tcl-18c87bb1b4d7087f3abe15c1b7847a81f5ce2093.tar.bz2
fix warnings
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r--generic/tclIOUtil.c4
1 files changed, 3 insertions, 1 deletions
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);