diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-03 14:47:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-03 14:47:23 (GMT) |
| commit | c96ebaeb4031bfb163eeb581f88199121eb876a6 (patch) | |
| tree | 5ca752eb6939afc7675c067c3eb1430607f32e66 | |
| parent | 930a43ed48071b5047e9095dbf45408a3a82daca (diff) | |
| parent | 345e120ec855d9f7d33f9715a2eecbceac2fafd2 (diff) | |
| download | tcl-c96ebaeb4031bfb163eeb581f88199121eb876a6.zip tcl-c96ebaeb4031bfb163eeb581f88199121eb876a6.tar.gz tcl-c96ebaeb4031bfb163eeb581f88199121eb876a6.tar.bz2 | |
Merge 8.7
| -rw-r--r-- | generic/tclCmdAH.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 94ff52a..bc99c2d 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -2185,17 +2185,17 @@ StoreStatData( * cast might fail when there isn't a real arithmetic 'long long' type... */ - STORE_ARY("dev", Tcl_NewWideIntObj(statPtr->st_dev)); + STORE_ARY("dev", Tcl_NewWideIntObj((long)statPtr->st_dev)); STORE_ARY("ino", Tcl_NewWideIntObj(statPtr->st_ino)); - STORE_ARY("nlink", Tcl_NewWideIntObj(statPtr->st_nlink)); - STORE_ARY("uid", Tcl_NewWideIntObj(statPtr->st_uid)); - STORE_ARY("gid", Tcl_NewWideIntObj(statPtr->st_gid)); + STORE_ARY("nlink", Tcl_NewWideIntObj((long)statPtr->st_nlink)); + STORE_ARY("uid", Tcl_NewWideIntObj((long)statPtr->st_uid)); + STORE_ARY("gid", Tcl_NewWideIntObj((long)statPtr->st_gid)); STORE_ARY("size", Tcl_NewWideIntObj(statPtr->st_size)); #ifdef HAVE_STRUCT_STAT_ST_BLOCKS STORE_ARY("blocks", Tcl_NewWideIntObj(statPtr->st_blocks)); #endif #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE - STORE_ARY("blksize", Tcl_NewWideIntObj(statPtr->st_blksize)); + STORE_ARY("blksize", Tcl_NewWideIntObj((long)statPtr->st_blksize)); #endif STORE_ARY("atime", Tcl_NewWideIntObj(Tcl_GetAccessTimeFromStat(statPtr))); STORE_ARY("mtime", Tcl_NewWideIntObj(Tcl_GetModificationTimeFromStat(statPtr))); |