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 /win/tclWinTest.c | |
| parent | d3ac5d78eb519157fc885e7a20c3d4a8e482e5c1 (diff) | |
| parent | cfb29e0e5e7f82be94e68e37379e4b1ced068ee8 (diff) | |
| download | tcl-0a562b0983eb298ebbcb211ed886a9fef5b4c1ce.zip tcl-0a562b0983eb298ebbcb211ed886a9fef5b4c1ce.tar.gz tcl-0a562b0983eb298ebbcb211ed886a9fef5b4c1ce.tar.bz2 | |
Merge 8.6
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 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; } |