diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-07-12 14:51:30 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-07-12 14:51:30 (GMT) |
| commit | 08c08fbd919645722f3a2fe5db61c2e4dfa97d2c (patch) | |
| tree | 6e718b7c6384b7ada1efaa63ce6b8177eb7ca225 /generic/tclOOInt.h | |
| parent | 044907f34579d3b64afa81854a8b9ffce76562ad (diff) | |
| download | tcl-08c08fbd919645722f3a2fe5db61c2e4dfa97d2c.zip tcl-08c08fbd919645722f3a2fe5db61c2e4dfa97d2c.tar.gz tcl-08c08fbd919645722f3a2fe5db61c2e4dfa97d2c.tar.bz2 | |
Reorganize method cache handling a bit to better support itcl nasty cases.
[Bug 1895546]
Diffstat (limited to 'generic/tclOOInt.h')
| -rw-r--r-- | generic/tclOOInt.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 1579ddb..17db3f1 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -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: tclOOInt.h,v 1.11 2009/04/11 11:18:51 dkf Exp $ + * RCS: @(#) $Id: tclOOInt.h,v 1.12 2009/07/12 14:51:30 dkf Exp $ */ #ifndef TCL_OO_INTERNAL_H @@ -512,7 +512,8 @@ MODULE_SCOPE void TclOODeleteChainCache(Tcl_HashTable *tablePtr); MODULE_SCOPE void TclOODeleteContext(CallContext *contextPtr); MODULE_SCOPE void TclOODelMethodRef(Method *method); MODULE_SCOPE CallContext *TclOOGetCallContext(Object *oPtr, - Tcl_Obj *methodNameObj, int flags); + Tcl_Obj *methodNameObj, int flags, + Tcl_Obj *cacheInThisObj); MODULE_SCOPE Foundation *TclOOGetFoundation(Tcl_Interp *interp); MODULE_SCOPE Tcl_Obj * TclOOGetFwdFromMethod(Method *mPtr); MODULE_SCOPE Proc * TclOOGetProcFromMethod(Method *mPtr); |