diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-10-19 18:39:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-10-19 18:39:58 (GMT) |
| commit | 91a8a2453afae40f8b0ea245f5ad809cc58cb829 (patch) | |
| tree | 16181e123a2aae36dc453accc1839aba7fa497d5 /generic/tclClock.c | |
| parent | ab736a53a85538ce60e2cdc6ec235ed0f5edc91f (diff) | |
| download | tcl-91a8a2453afae40f8b0ea245f5ad809cc58cb829.zip tcl-91a8a2453afae40f8b0ea245f5ad809cc58cb829.tar.gz tcl-91a8a2453afae40f8b0ea245f5ad809cc58cb829.tar.bz2 | |
* generic/tclClock.c: Removed some dead code.
* generic/tclCmdIL.c:
* generic/tclCompCmds.c:
* generic/tclDictObj.c:
* generic/tclExecute.c:
* generic/tclLiteral.c:
* generic/tclParseExpr.c:
* generic/tclScan.c:
* generic/tclUtil.c:
* generic/tclVar.c:
Diffstat (limited to 'generic/tclClock.c')
| -rw-r--r-- | generic/tclClock.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index 9134ab4..c5a851e 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.40 2005/08/12 23:55:28 kennykb Exp $ + * RCS: @(#) $Id: tclClock.c,v 1.41 2005/10/19 18:39:58 dgp Exp $ */ #include "tclInt.h" @@ -407,17 +407,9 @@ TclClockClicksObjCmd(clientData, interp, objc, objv) now.sec * 1000 + now.usec / 1000 ) ); break; case CLICKS_NATIVE: -#if 0 - /* - * The following code will be used once this is incorporated - * into Tcl. But TEA bugs prevent it for right now. :( - * So we fall through this case and return the microseconds - * instead. - */ Tcl_SetObjResult(interp, Tcl_NewWideIntObj( (Tcl_WideInt) TclpGetClicks())); break; -#endif case CLICKS_MICROS: Tcl_GetTime(&now); Tcl_SetObjResult(interp, Tcl_NewWideIntObj( |