diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 08:10:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 08:10:11 (GMT) |
| commit | ab449cd1d2b045f11c52324c43feb38f00d12dda (patch) | |
| tree | 67ff12657f597df926639a6aef0753add8985a0a /generic/tclCmdMZ.c | |
| parent | be3995f91a73707ad23aa2454b143f6ee0301005 (diff) | |
| parent | 62d4e2a24eedc77e3aff652f43cf553f8eecca3a (diff) | |
| download | tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.zip tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.tar.gz tcl-ab449cd1d2b045f11c52324c43feb38f00d12dda.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 79d5d09..482c8d4 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1664,7 +1664,7 @@ StringIsCmd( const char *elemStart, *nextElem; int lenRemain; size_t elemSize; - register const char *p; + const char *p; string1 = TclGetStringFromObj(objPtr, &length1); end = string1 + length1; @@ -1845,7 +1845,7 @@ StringIsCmd( const char *elemStart, *nextElem; size_t lenRemain; size_t elemSize; - register const char *p; + const char *p; string1 = TclGetStringFromObj(objPtr, &length1); end = string1 + length1; @@ -4071,9 +4071,9 @@ Tcl_TimeObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - register Tcl_Obj *objPtr; + Tcl_Obj *objPtr; Tcl_Obj *objs[4]; - register int i, result; + int i, result; int count; double totalMicroSec; #ifndef TCL_WIDE_CLICKS @@ -4172,8 +4172,8 @@ Tcl_TimeRateObjCmd( static double measureOverhead = 0; /* global measure-overhead */ double overhead = -1; /* given measure-overhead */ - register Tcl_Obj *objPtr; - register int result, i; + Tcl_Obj *objPtr; + int result, i; Tcl_Obj *calibrate = NULL, *direct = NULL; Tcl_WideUInt count = 0; /* Holds repetition count */ Tcl_WideInt maxms = WIDE_MIN; @@ -4187,7 +4187,7 @@ Tcl_TimeRateObjCmd( * zero (i.e., never < 1) */ unsigned short factor = 50; /* Factor (4..50) limiting threshold to avoid * growth of execution time. */ - register Tcl_WideInt start, middle, stop; + Tcl_WideInt start, middle, stop; #ifndef TCL_WIDE_CLICKS Tcl_Time now; #endif /* !TCL_WIDE_CLICKS */ |