diff options
author | sebres <sebres@users.sourceforge.net> | 2017-02-09 13:50:27 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-02-09 13:50:27 (GMT) |
commit | d5c91a755cafe40630668464ed4e070fdd647852 (patch) | |
tree | 71a5c042d24a0725f34d7ee12fd645fa107274a6 /generic/tclClock.c | |
parent | 3d05f0dbea4bb0c707a1ae59adae786c6d5cd43e (diff) | |
parent | c88fb138612db4499a9e841453cd14bfd5db7224 (diff) | |
download | tcl-d5c91a755cafe40630668464ed4e070fdd647852.zip tcl-d5c91a755cafe40630668464ed4e070fdd647852.tar.gz tcl-d5c91a755cafe40630668464ed4e070fdd647852.tar.bz2 |
merge sebres-trunk-timerate
Diffstat (limited to 'generic/tclClock.c')
-rw-r--r-- | generic/tclClock.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index c63f425..cf52673 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -2869,8 +2869,7 @@ ClockClicksObjCmd( #endif break; case CLICKS_MICROS: - Tcl_GetTime(&now); - clicks = ((Tcl_WideInt) now.sec * 1000000) + now.usec; + clicks = TclpGetMicroseconds(); break; } @@ -2940,15 +2939,11 @@ ClockMicrosecondsObjCmd( int objc, /* Parameter count */ Tcl_Obj *const *objv) /* Parameter values */ { - Tcl_Time now; - if (objc != 1) { Tcl_WrongNumArgs(interp, 1, objv, NULL); return TCL_ERROR; } - Tcl_GetTime(&now); - Tcl_SetObjResult(interp, Tcl_NewWideIntObj( - ((Tcl_WideInt) now.sec * 1000000) + now.usec)); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(TclpGetMicroseconds())); return TCL_OK; } |