summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-08-14 19:01:38 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-08-14 19:01:38 (GMT)
commit45814c0d69b2f08f1940cd3ca3cd8ce389815779 (patch)
tree702d2b4121fbb791bfdb84ba5af1ce3966c776a7 /generic
parent2b3657769b1d0b9ae6e10113b1d3c038b4967899 (diff)
parent1f563ae9a011345574fb277fe6e8eb7f58916981 (diff)
downloadtcl-45814c0d69b2f08f1940cd3ca3cd8ce389815779.zip
tcl-45814c0d69b2f08f1940cd3ca3cd8ce389815779.tar.gz
tcl-45814c0d69b2f08f1940cd3ca3cd8ce389815779.tar.bz2
[3610404] Re-resolution of command after enter traces invalidate epoch.
Make sure context is such that correct resolution happens.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclOOMethod.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c
index b91fdfd..0799082 100644
--- a/generic/tclOOMethod.c
+++ b/generic/tclOOMethod.c
@@ -1429,6 +1429,8 @@ InvokeForwardMethod(
contextPtr->oPtr->namespacePtr, 0 /* normal lookup */);
}
Tcl_NRAddCallback(interp, FinalizeForwardCall, argObjs, NULL, NULL, NULL);
+ ((Interp *)interp)->lookupNsPtr
+ = (Namespace *) contextPtr->oPtr->namespacePtr;
return TclNREvalObjv(interp, len, argObjs, TCL_EVAL_INVOKE, cmdPtr);
}