diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-09-25 10:15:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-09-25 10:15:04 (GMT) |
| commit | 2d31ebbd1bc8a4e30fe60d0da6fc679dcb967262 (patch) | |
| tree | 4c24f2b17dea27519d31f7c3e43daef6472985ac /generic/tclOOCall.c | |
| parent | 06f91946030154decdc65de2088fe5633562dae0 (diff) | |
| download | tcl-2d31ebbd1bc8a4e30fe60d0da6fc679dcb967262.zip tcl-2d31ebbd1bc8a4e30fe60d0da6fc679dcb967262.tar.gz tcl-2d31ebbd1bc8a4e30fe60d0da6fc679dcb967262.tar.bz2 | |
slightly more efficient
Diffstat (limited to 'generic/tclOOCall.c')
| -rw-r--r-- | generic/tclOOCall.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index d4b1297..8c6c15b 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOOCall.c,v 1.11 2008/09/25 10:13:30 dkf Exp $ + * RCS: @(#) $Id: tclOOCall.c,v 1.12 2008/09/25 10:15:04 dkf Exp $ */ #ifdef HAVE_CONFIG_H @@ -837,8 +837,6 @@ InitCallChain( if (oPtr->flags & USE_CLASS_CACHE) { oPtr = oPtr->selfCls->thisPtr; callPtr->flags |= USE_CLASS_CACHE; - } else { - callPtr->flags &= ~USE_CLASS_CACHE; } callPtr->epoch = oPtr->fPtr->epoch; callPtr->objectCreationEpoch = oPtr->creationEpoch; |