diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-06 11:12:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-08-06 11:12:47 (GMT) |
| commit | 6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d (patch) | |
| tree | 10b477c4f96989d84a5453310c9715aaef2b3413 /generic/tclIOUtil.c | |
| parent | 351ab9f3bf86ea2d971416a759964c836e91c1b9 (diff) | |
| parent | e92ac699c1a4fc8683a61f855f5250c72d12b1c1 (diff) | |
| download | tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.zip tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.tar.gz tcl-6c41478f2cdcbefeae9c340e1ba2bc9d8d51d47d.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 8b87a51..e630702 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -290,10 +290,10 @@ Tcl_Stat( * Tcl_WideInt. */ - tmp1 = (Tcl_WideInt) buf.st_ino; - tmp2 = (Tcl_WideInt) buf.st_size; + tmp1 = buf.st_ino; + tmp2 = buf.st_size; #ifdef HAVE_STRUCT_STAT_ST_BLOCKS - tmp3 = (Tcl_WideInt) buf.st_blocks; + tmp3 = buf.st_blocks; #endif if (OUT_OF_URANGE(tmp1) || OUT_OF_RANGE(tmp2) || OUT_OF_RANGE(tmp3)) { @@ -2267,8 +2267,7 @@ Tcl_FSOpenFileChannel( * Apply appropriate flags parsed out above. */ - if (seekFlag && Tcl_Seek(retVal, (Tcl_WideInt) 0, SEEK_END) - < (Tcl_WideInt) 0) { + if (seekFlag && (Tcl_Seek(retVal, 0, SEEK_END) < 0)) { if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "could not seek to end of file while opening \"%s\": %s", @@ -3304,7 +3303,7 @@ Tcl_LoadFile( * Tcl_Read takes an int: check that file size isn't wide. */ - if (size != (Tcl_WideInt) statBuf.st_size) { + if (size != (Tcl_WideInt)statBuf.st_size) { goto mustCopyToTempAnyway; } data = Tcl_FSOpenFileChannel(interp, pathPtr, "rb", 0666); |