diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-09-05 16:10:19 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-09-05 16:10:19 (GMT) |
| commit | cfb29e0e5e7f82be94e68e37379e4b1ced068ee8 (patch) | |
| tree | 3418a3e5e5fcb0f555af3efb033ea1892340d125 | |
| parent | 7c8cdba292435979d0f9c588b6da62c0a994414a (diff) | |
| parent | 3de08d01700c288fa184c887feb45b3de5f3e515 (diff) | |
| download | tcl-cfb29e0e5e7f82be94e68e37379e4b1ced068ee8.zip tcl-cfb29e0e5e7f82be94e68e37379e4b1ced068ee8.tar.gz tcl-cfb29e0e5e7f82be94e68e37379e4b1ced068ee8.tar.bz2 | |
merge 8.5
| -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 a1b3d40..883e29c 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 4ae840d..5f5ede9 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; } |