diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-08 20:18:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-08 20:18:38 (GMT) |
| commit | 5d106cabda9edcaad8acbddd569022fe6193c31f (patch) | |
| tree | 8b277982f236d44c30a2293965aed4940deb4d64 /generic | |
| parent | fdf2dd144f3c95beb4ea0b315bd35ae4a32b0bc5 (diff) | |
| parent | 4b7f867f902413fdca08b3f4e7d6beb2158a851f (diff) | |
| download | tcl-5d106cabda9edcaad8acbddd569022fe6193c31f.zip tcl-5d106cabda9edcaad8acbddd569022fe6193c31f.tar.gz tcl-5d106cabda9edcaad8acbddd569022fe6193c31f.tar.bz2 | |
Merge 8.5
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCmdAH.c | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 8a269ec..40a10ba 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -1392,14 +1392,9 @@ FileAttrAccessTimeCmd( #endif if (objc == 3) { - /* - * Need separate variable for reading longs from an object on 64-bit - * platforms. [Bug 698146] - */ - - long newTime; + Tcl_WideInt newTime; - if (TclGetLongFromObj(interp, objv[2], &newTime) != TCL_OK) { + if (Tcl_GetWideIntFromObj(interp, objv[2], &newTime) != TCL_OK) { return TCL_ERROR; } @@ -1478,9 +1473,9 @@ FileAttrModifyTimeCmd( * platforms. [Bug 698146] */ - long newTime; + Tcl_WideInt newTime; - if (TclGetLongFromObj(interp, objv[2], &newTime) != TCL_OK) { + if (Tcl_GetWideIntFromObj(interp, objv[2], &newTime) != TCL_OK) { return TCL_ERROR; } |