diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-05 21:25:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-05 21:25:07 (GMT) |
| commit | 0a562b0983eb298ebbcb211ed886a9fef5b4c1ce (patch) | |
| tree | 6c8ddb9903520e02ba236247af064a58d27cd449 | |
| parent | d3ac5d78eb519157fc885e7a20c3d4a8e482e5c1 (diff) | |
| parent | cfb29e0e5e7f82be94e68e37379e4b1ced068ee8 (diff) | |
| download | tcl-0a562b0983eb298ebbcb211ed886a9fef5b4c1ce.zip tcl-0a562b0983eb298ebbcb211ed886a9fef5b4c1ce.tar.gz tcl-0a562b0983eb298ebbcb211ed886a9fef5b4c1ce.tar.bz2 | |
Merge 8.6
| -rw-r--r-- | tests/cmdAH.test | 2 | ||||
| -rw-r--r-- | win/tclWinTest.c | 7 |
2 files changed, 7 insertions, 2 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index b15c77d..3e2597d 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -23,7 +23,7 @@ testConstraint testsetplatform [llength [info commands testsetplatform]] testConstraint testvolumetype [llength [info commands testvolumetype]] testConstraint time64bit [expr { $::tcl_platform(pointerSize) >= 8 || - [llength [info command testsize]] && [testsize time_t] >= 8 + [llength [info command testsize]] && [testsize st_mtime] >= 8 }] testConstraint linkDirectory [expr { ![testConstraint win] || diff --git a/win/tclWinTest.c b/win/tclWinTest.c index c06f10a..04d5c75 100644 --- a/win/tclWinTest.c +++ b/win/tclWinTest.c @@ -327,9 +327,14 @@ TestSizeCmd( Tcl_SetObjResult(interp, Tcl_NewWideIntObj(sizeof(time_t))); return TCL_OK; } + if (strcmp(Tcl_GetString(objv[1]), "st_mtime") == 0) { + Tcl_StatBuf *statPtr; + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(sizeof(statPtr->st_mtime))); + return TCL_OK; + } syntax: - Tcl_WrongNumArgs(interp, 1, objv, "time_t"); + Tcl_WrongNumArgs(interp, 1, objv, "time_t|st_mtime"); return TCL_ERROR; } |