diff options
author | das <das@noemail.net> | 2006-08-28 08:48:07 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2006-08-28 08:48:07 (GMT) |
commit | 8d900216b0ce42ae8b31459a41ce46c3050aa3fe (patch) | |
tree | f9174211ce1b49148fb836d04ab3ef5c5fd2d29d /generic/tclClock.c | |
parent | 65755fbb1f5738c70102d0d41f3bfd08bbd9464d (diff) | |
download | tcl-8d900216b0ce42ae8b31459a41ce46c3050aa3fe.zip tcl-8d900216b0ce42ae8b31459a41ce46c3050aa3fe.tar.gz tcl-8d900216b0ce42ae8b31459a41ce46c3050aa3fe.tar.bz2 |
simplification of previous commit, whitespace cleanup
FossilOrigin-Name: b205841d657377aaaf57beffdfcae799551a3190
Diffstat (limited to 'generic/tclClock.c')
-rw-r--r-- | generic/tclClock.c | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index fb5c144..a92dc67 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclClock.c,v 1.58 2006/08/28 04:13:32 mistachkin Exp $ + * RCS: @(#) $Id: tclClock.c,v 1.59 2006/08/28 08:48:07 das Exp $ */ #include "tclInt.h" @@ -1666,11 +1666,6 @@ ClockClicksObjCmd( }; int index = CLICKS_NATIVE; Tcl_Time now; -#ifndef TCL_WIDE_CLICKS - unsigned long clicks; -#else - Tcl_WideInt clicks; -#endif switch (objc) { case 1: @@ -1689,18 +1684,18 @@ ClockClicksObjCmd( switch (index) { case CLICKS_MILLIS: Tcl_GetTime(&now); - Tcl_SetObjResult(interp, Tcl_NewWideIntObj( (Tcl_WideInt) - now.sec * 1000 + now.usec / 1000 ) ); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj((Tcl_WideInt) + now.sec * 1000 + now.usec / 1000)); break; - case CLICKS_NATIVE: + case CLICKS_NATIVE: { #ifndef TCL_WIDE_CLICKS - clicks = TclpGetClicks(); + unsigned long clicks = TclpGetClicks(); #else - clicks = TclpGetWideClicks(); + Tcl_WideInt clicks = TclpGetWideClicks(); #endif - Tcl_SetObjResult(interp, Tcl_NewWideIntObj( (Tcl_WideInt) - clicks ) ); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj((Tcl_WideInt) clicks)); break; + } case CLICKS_MICROS: Tcl_GetTime(&now); Tcl_SetObjResult(interp, Tcl_NewWideIntObj( |