From 498e58924c0478e6d7b27c78146dce35b9bc460b Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 23 Apr 2002 02:54:13 +0000
Subject: generic/tclCmdAH.c (Tcl_FileObjCmd): added cast in FILE_SIZE

---
 generic/tclCmdAH.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index 661bb4c..500f988 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCmdAH.c,v 1.23 2002/02/27 06:39:26 hobbs Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.24 2002/04/23 02:54:13 hobbs Exp $
  */
 
 #include "tclInt.h"
@@ -1158,7 +1158,7 @@ Tcl_FileObjCmd(dummy, interp, objc, objv)
 		    Tcl_SetObjResult(interp, separatorObj);
 		} else {
 		    Tcl_SetObjResult(interp, 
-				     Tcl_NewStringObj("Unrecognised path",-1));
+			    Tcl_NewStringObj("Unrecognised path",-1));
 		    return TCL_ERROR;
 		}
 	    }
@@ -1173,7 +1173,8 @@ Tcl_FileObjCmd(dummy, interp, objc, objv)
 	    if (GetStatBuf(interp, objv[2], Tcl_FSStat, &buf) != TCL_OK) {
 		return TCL_ERROR;
 	    }
-	    Tcl_SetWideIntObj(Tcl_GetObjResult(interp), buf.st_size);
+	    Tcl_SetWideIntObj(Tcl_GetObjResult(interp),
+		    (Tcl_WideInt) buf.st_size);
 	    return TCL_OK;
 	}
 	case FILE_SPLIT: {
-- 
cgit v0.12