diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-07 08:31:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-07 08:31:44 (GMT) |
| commit | efadd7170eafc8ffacab61f82cf3878cc7285ff1 (patch) | |
| tree | 99d87a4b0c5e77209cb0eb3c1f462d6bcd5a0f3c /generic/tclCmdMZ.c | |
| parent | 3e2014216af5a54eec83355257ed2f95f9d8bf41 (diff) | |
| parent | 65baf6c706d7cfa12cfbc06610f7e9a51c5c81e8 (diff) | |
| download | tcl-efadd7170eafc8ffacab61f82cf3878cc7285ff1.zip tcl-efadd7170eafc8ffacab61f82cf3878cc7285ff1.tar.gz tcl-efadd7170eafc8ffacab61f82cf3878cc7285ff1.tar.bz2 | |
Merge 8.6. Remove unneeded code from init.tcl
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 7349515..01d9c27 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -4074,8 +4074,8 @@ Tcl_TimeObjCmd( * Tcl_TimeRateObjCmd -- * * This object-based procedure is invoked to process the "timerate" Tcl - * command. - * This is similar to command "time", except the execution limited by + * command. + * This is similar to command "time", except the execution limited by * given time (in milliseconds) instead of repetition count. * * Example: @@ -4097,8 +4097,7 @@ Tcl_TimeRateObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - static - double measureOverhead = 0; /* global measure-overhead */ + static double measureOverhead = 0; /* global measure-overhead */ double overhead = -1; /* given measure-overhead */ register Tcl_Obj *objPtr; register int result, i; @@ -4186,13 +4185,13 @@ usage: Tcl_Obj *clobjv[6]; Tcl_WideInt maxCalTime = 5000; double lastMeasureOverhead = measureOverhead; - - clobjv[0] = objv[0]; + + clobjv[0] = objv[0]; i = 1; if (direct) { clobjv[i++] = direct; } - clobjv[i++] = objPtr; + clobjv[i++] = objPtr; /* reset last measurement overhead */ measureOverhead = (double)0; @@ -4209,7 +4208,7 @@ usage: i--; clobjv[i++] = calibrate; - clobjv[i++] = objPtr; + clobjv[i++] = objPtr; /* set last measurement overhead to max */ measureOverhead = (double)UWIDE_MAX; @@ -4310,7 +4309,7 @@ usage: maxcnt = 0; result = TCL_OK; } - + /* don't check time up to threshold */ if (--threshold > 0) continue; @@ -4409,7 +4408,7 @@ usage: } objs[2] = Tcl_NewWideIntObj(count); /* iterations */ - + /* calculate speed as rate (count) per sec */ if (!middle) middle++; /* +1 ms, just to avoid divide by zero */ if (count < (WIDE_MAX / 1000000)) { |