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/tclOOCall.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/tclOOCall.c')
-rw-r--r-- | generic/tclOOCall.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index df0f435..e13ba7f 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -168,7 +168,7 @@ void TclOODeleteContext( CallContext *contextPtr) { - register Object *oPtr = contextPtr->oPtr; + Object *oPtr = contextPtr->oPtr; TclOODeleteChain(contextPtr->callPtr); if (oPtr != NULL) { @@ -314,7 +314,7 @@ TclOOInvokeContext( int objc, /* The number of arguments. */ Tcl_Obj *const objv[]) /* The arguments as actually seen. */ { - register CallContext *const contextPtr = clientData; + CallContext *const contextPtr = clientData; Method *const mPtr = contextPtr->callPtr->chain[contextPtr->index].mPtr; const int isFilter = contextPtr->callPtr->chain[contextPtr->index].isFilter; @@ -968,7 +968,7 @@ AddMethodToCallChain( * looking to add things from a mixin and have * not passed a mixin. */ { - register CallChain *callPtr = cbPtr->callChainPtr; + CallChain *callPtr = cbPtr->callChainPtr; int i; /* @@ -1656,7 +1656,7 @@ AddPrivatesFromClassChainToCallContext( (char *) methodName); if (hPtr != NULL) { - register Method *mPtr = Tcl_GetHashValue(hPtr); + Method *mPtr = Tcl_GetHashValue(hPtr); if (IS_PRIVATE(mPtr)) { AddMethodToCallChain(mPtr, cbPtr, doneFilters, filterDecl, @@ -1740,7 +1740,7 @@ AddSimpleClassChainToCallContext( privateDanger |= 1; } if (hPtr != NULL) { - register Method *mPtr = Tcl_GetHashValue(hPtr); + Method *mPtr = Tcl_GetHashValue(hPtr); if (!IS_PRIVATE(mPtr)) { if (!(flags & KNOWN_STATE)) { |