summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-04-09 19:04:04 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-04-09 19:04:04 (GMT)
commite3cbe63dfbcaaa99f3e56c4c6b3becafa0fa7d33 (patch)
tree1118554d4832f92625b61c3bbd7847c19b1973a3
parent83337cf80be450db1df41219b8f1683c74797666 (diff)
downloadtcl-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.c1
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);
}