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 /win/tclWinTest.c | |
| parent | 7c8cdba292435979d0f9c588b6da62c0a994414a (diff) | |
| parent | 3de08d01700c288fa184c887feb45b3de5f3e515 (diff) | |
| download | tcl-cfb29e0e5e7f82be94e68e37379e4b1ced068ee8.zip tcl-cfb29e0e5e7f82be94e68e37379e4b1ced068ee8.tar.gz tcl-cfb29e0e5e7f82be94e68e37379e4b1ced068ee8.tar.bz2 | |
merge 8.5
Diffstat (limited to 'win/tclWinTest.c')
| -rw-r--r-- | win/tclWinTest.c | 7 |
1 files changed, 6 insertions, 1 deletions
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; } |