diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-05 17:03:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-05 17:03:59 (GMT) |
| commit | db45aa4434d4a7af38b8c14072648bf9965d462b (patch) | |
| tree | d03b78f7e25c9b04c8646c78d29542b544dfd309 /generic/tclEnsemble.c | |
| parent | eb05205f603455afbe3445cef6a03226078d09b0 (diff) | |
| download | tcl-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.c | 8 |
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); |