diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-04-09 19:04:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-04-09 19:04:04 (GMT) |
| commit | e3cbe63dfbcaaa99f3e56c4c6b3becafa0fa7d33 (patch) | |
| tree | 1118554d4832f92625b61c3bbd7847c19b1973a3 | |
| parent | 83337cf80be450db1df41219b8f1683c74797666 (diff) | |
| download | tcl-e3cbe63dfbcaaa99f3e56c4c6b3becafa0fa7d33.zip tcl-e3cbe63dfbcaaa99f3e56c4c6b3becafa0fa7d33.tar.gz tcl-e3cbe63dfbcaaa99f3e56c4c6b3becafa0fa7d33.tar.bz2 | |
Use the double-secret iPtr->lookupNsPtr field to get post-enter-trace
re-resolutions of commands done in the right context for oo forwards.
| -rw-r--r-- | generic/tclOOMethod.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 98b4078..5296397 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1429,6 +1429,7 @@ InvokeForwardMethod( contextPtr->oPtr->namespacePtr, 0 /* normal lookup */); } Tcl_NRAddCallback(interp, FinalizeForwardCall, argObjs, NULL, NULL, NULL); + ((Interp *)interp)->lookupNsPtr = contextPtr->oPtr->namespacePtr; return TclNREvalObjv(interp, len, argObjs, TCL_EVAL_INVOKE, cmdPtr); } |