summaryrefslogtreecommitdiffstats
path: root/generic/tclEnsemble.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-07-05 17:03:59 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-07-05 17:03:59 (GMT)
commitdb45aa4434d4a7af38b8c14072648bf9965d462b (patch)
treed03b78f7e25c9b04c8646c78d29542b544dfd309 /generic/tclEnsemble.c
parenteb05205f603455afbe3445cef6a03226078d09b0 (diff)
downloadtcl-db45aa4434d4a7af38b8c14072648bf9965d462b.zip
tcl-db45aa4434d4a7af38b8c14072648bf9965d462b.tar.gz
tcl-db45aa4434d4a7af38b8c14072648bf9965d462b.tar.bz2
New tests to demo the remaining flaw in ensemble dispatch revisions.
Itcl 4 also demonstrated these problems.
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r--generic/tclEnsemble.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c
index a9698be..818534e 100644
--- a/generic/tclEnsemble.c
+++ b/generic/tclEnsemble.c
@@ -1852,7 +1852,13 @@ NsEnsembleImplementationCmdNR(
Tcl_ListObjLength(NULL, prefixObj, &prefixObjc);
- if (objc == 2) {
+ if (0 && objc == 2) {
+ /*
+ * Branch disabled until it works. See oo-1[67].1.1
+ *
+ * Key here is the difference between the canonical list invocation
+ * and compilation/execution paths.
+ */
copyPtr = prefixObj;
Tcl_IncrRefCount(copyPtr);
TclNRAddCallback(interp, FreeObj, copyPtr, NULL, NULL, NULL);