summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-04-23 02:54:13 (GMT)
committerhobbs <hobbs>2002-04-23 02:54:13 (GMT)
commit498e58924c0478e6d7b27c78146dce35b9bc460b (patch)
tree20202c3693bf4a9e917d34415562296eeeef4d54 /generic
parente7b3455b3987ebad734cf186b7e376fde83eacf1 (diff)
downloadtcl-498e58924c0478e6d7b27c78146dce35b9bc460b.zip
tcl-498e58924c0478e6d7b27c78146dce35b9bc460b.tar.gz
tcl-498e58924c0478e6d7b27c78146dce35b9bc460b.tar.bz2
generic/tclCmdAH.c (Tcl_FileObjCmd): added cast in FILE_SIZE
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdAH.c7
1 files 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: {