diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 15:20:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 15:20:29 (GMT) |
| commit | 4796062aab8a24df621cf33dbe862f72b36986f8 (patch) | |
| tree | 29b9e228043f436e5eaff478e6178f21c6c185ee /generic/tclOO.c | |
| parent | 7934f521d7f3b837fc6430fe78d9320756af1d82 (diff) | |
| parent | 2d85a1f9deb33cad80923f44a691189b7aefd8a5 (diff) | |
| download | tcl-4796062aab8a24df621cf33dbe862f72b36986f8.zip tcl-4796062aab8a24df621cf33dbe862f72b36986f8.tar.gz tcl-4796062aab8a24df621cf33dbe862f72b36986f8.tar.bz2 | |
Merge tip-548
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index d2a4361..d9297aa 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -1652,7 +1652,7 @@ Tcl_NewObjectInstance( int skip) /* Number of arguments to _not_ pass to the * constructor. */ { - register Class *classPtr = (Class *) cls; + Class *classPtr = (Class *) cls; Object *oPtr; ClientData clientData[4]; @@ -1722,7 +1722,7 @@ TclNRNewObjectInstance( Tcl_Object *objectPtr) /* Place to write the object reference upon * successful allocation. */ { - register Class *classPtr = (Class *) cls; + Class *classPtr = (Class *) cls; CallContext *contextPtr; Tcl_InterpState state; Object *oPtr; @@ -2656,7 +2656,7 @@ TclOOObjectCmdCore( methodNamePtr = objv[1]; if (oPtr->mapMethodNameProc != NULL) { - register Class **startClsPtr = &startCls; + Class **startClsPtr = &startCls; Tcl_Obj *mappedMethodName = Tcl_DuplicateObj(methodNamePtr); result = oPtr->mapMethodNameProc(interp, (Tcl_Object) oPtr, @@ -2853,7 +2853,7 @@ TclNRObjectContextInvokeNext( Tcl_Obj *const *objv, int skip) { - register CallContext *contextPtr = (CallContext *) context; + CallContext *contextPtr = (CallContext *) context; if (contextPtr->index + 1 >= contextPtr->callPtr->numChain) { /* |