diff options
| author | das <das@noemail.net> | 2007-03-16 02:05:30 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2007-03-16 02:05:30 (GMT) |
| commit | a7d4b5c853445304b5cf44715f22812f318cbf68 (patch) | |
| tree | 5a325a6ed85f7181b4c608c1b47ad1b80fca19f9 /generic/tclIOUtil.c | |
| parent | ee9b488d6535a56e61d60e2d852a6f925d7de21f (diff) | |
| download | tcl-a7d4b5c853445304b5cf44715f22812f318cbf68.zip tcl-a7d4b5c853445304b5cf44715f22812f318cbf68.tar.gz tcl-a7d4b5c853445304b5cf44715f22812f318cbf68.tar.bz2 | |
fix warnings
FossilOrigin-Name: 71ba415c3996c8c4b15086f2a9a2f6ae2b3bc380
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 4 |
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); |