diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 11:55:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 11:55:40 (GMT) |
| commit | 74f9c831ac95d109ce2a36f39ee1f6389789bc47 (patch) | |
| tree | d143605e7972f08cc3bdff1d320ccbe293d9b5f2 /generic/tclIOUtil.c | |
| parent | a2d61902c5917155fc102959689720cf55d07895 (diff) | |
| parent | b89c01475a4aa977cfa56b2292504c60de9a7427 (diff) | |
| download | tcl-74f9c831ac95d109ce2a36f39ee1f6389789bc47.zip tcl-74f9c831ac95d109ce2a36f39ee1f6389789bc47.tar.gz tcl-74f9c831ac95d109ce2a36f39ee1f6389789bc47.tar.bz2 | |
Merge tip-548
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 4b3eaa5..3773159 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -327,9 +327,9 @@ Tcl_Stat( oldStyleBuf->st_uid = buf.st_uid; oldStyleBuf->st_gid = buf.st_gid; oldStyleBuf->st_size = (off_t) buf.st_size; - oldStyleBuf->st_atime = buf.st_atime; - oldStyleBuf->st_mtime = buf.st_mtime; - oldStyleBuf->st_ctime = buf.st_ctime; + oldStyleBuf->st_atime = Tcl_GetAccessTimeFromStat(&buf); + oldStyleBuf->st_mtime = Tcl_GetModificationTimeFromStat(&buf); + oldStyleBuf->st_ctime = Tcl_GetChangeTimeFromStat(&buf); #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE oldStyleBuf->st_blksize = buf.st_blksize; #endif @@ -1392,7 +1392,7 @@ TclFSNormalizeToUniquePath( int i; int isVfsPath = 0; - char *path; + const char *path; /* * Paths starting with a UNC prefix whose final character is a colon @@ -4422,8 +4422,8 @@ TclCrossFilesystemCopy( */ if (Tcl_FSLstat(source, &sourceStatBuf) == 0) { - tval.actime = sourceStatBuf.st_atime; - tval.modtime = sourceStatBuf.st_mtime; + tval.actime = Tcl_GetAccessTimeFromStat(&sourceStatBuf); + tval.modtime = Tcl_GetModificationTimeFromStat(&sourceStatBuf); Tcl_FSUtime(target, &tval); } |