diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-05-16 12:41:01 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-05-16 12:41:01 (GMT) |
| commit | 05d83f7b1ab0970c8b7850b81347ca7cbe98ad39 (patch) | |
| tree | 4f6d780f650cba9a388f875c2f93cb08a57c53b1 /generic/tclClock.c | |
| parent | 71a9a4406a6d1f7e004030f8e928d42fa18c3e3c (diff) | |
| parent | f9abf9b060c15ad2d4b00f99f7814a388875c642 (diff) | |
| download | tcl-05d83f7b1ab0970c8b7850b81347ca7cbe98ad39.zip tcl-05d83f7b1ab0970c8b7850b81347ca7cbe98ad39.tar.gz tcl-05d83f7b1ab0970c8b7850b81347ca7cbe98ad39.tar.bz2 | |
back-ported branch sebres-8-6-timerate (new command "timerate" for 8.5)
Diffstat (limited to 'generic/tclClock.c')
| -rw-r--r-- | generic/tclClock.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index 782c681..b019ef9 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -1739,9 +1739,7 @@ ClockClicksObjCmd( break; } case CLICKS_MICROS: - Tcl_GetTime(&now); - Tcl_SetObjResult(interp, Tcl_NewWideIntObj( - ((Tcl_WideInt) now.sec * 1000000) + now.usec)); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(TclpGetMicroseconds())); break; } @@ -1810,15 +1808,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; } |