summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordas <das>2006-08-28 08:48:07 (GMT)
committerdas <das>2006-08-28 08:48:07 (GMT)
commitd42ab6ae6dc8432bcfc0ea59fba79e352e9dc2f0 (patch)
treef9174211ce1b49148fb836d04ab3ef5c5fd2d29d /generic
parentcbb9f9765dfcb25ac116bc06e4cb33aba4b6d2d4 (diff)
downloadtcl-d42ab6ae6dc8432bcfc0ea59fba79e352e9dc2f0.zip
tcl-d42ab6ae6dc8432bcfc0ea59fba79e352e9dc2f0.tar.gz
tcl-d42ab6ae6dc8432bcfc0ea59fba79e352e9dc2f0.tar.bz2
simplification of previous commit, whitespace cleanup
Diffstat (limited to 'generic')
-rw-r--r--generic/tclClock.c21
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(