diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 08:59:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 08:59:09 (GMT) |
| commit | 2d85a1f9deb33cad80923f44a691189b7aefd8a5 (patch) | |
| tree | e4dc525d510f8a4c829630b6636d35d3c7936061 /generic/tclInterp.c | |
| parent | bce65c12f657a40e26fc4b42de6047d98ee7e012 (diff) | |
| parent | 62d4e2a24eedc77e3aff652f43cf553f8eecca3a (diff) | |
| download | tcl-2d85a1f9deb33cad80923f44a691189b7aefd8a5.zip tcl-2d85a1f9deb33cad80923f44a691189b7aefd8a5.tar.gz tcl-2d85a1f9deb33cad80923f44a691189b7aefd8a5.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 92c6159..3188fce 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -3362,7 +3362,7 @@ int Tcl_LimitExceeded( Tcl_Interp *interp) { - register Interp *iPtr = (Interp *) interp; + Interp *iPtr = (Interp *) interp; return iPtr->limit.exceeded != 0; } @@ -3393,10 +3393,10 @@ int Tcl_LimitReady( Tcl_Interp *interp) { - register Interp *iPtr = (Interp *) interp; + Interp *iPtr = (Interp *) interp; if (iPtr->limit.active != 0) { - register int ticker = ++iPtr->limit.granularityTicker; + int ticker = ++iPtr->limit.granularityTicker; if ((iPtr->limit.active & TCL_LIMIT_COMMANDS) && ((iPtr->limit.cmdGranularity == 1) || @@ -3440,7 +3440,7 @@ Tcl_LimitCheck( Tcl_Interp *interp) { Interp *iPtr = (Interp *) interp; - register int ticker = iPtr->limit.granularityTicker; + int ticker = iPtr->limit.granularityTicker; if (Tcl_InterpDeleted(interp)) { return TCL_OK; |