diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-05 08:55:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-05 08:55:04 (GMT) |
| commit | 7519883347a28417d8c6d8a3de4460386f66ad29 (patch) | |
| tree | d56bdaa737af202bbae33fbad26498e2f6c7de23 | |
| parent | fad24f563dde5fe658227d9bf6227a9f2afeaac4 (diff) | |
| parent | eb05205f603455afbe3445cef6a03226078d09b0 (diff) | |
| download | tcl-7519883347a28417d8c6d8a3de4460386f66ad29.zip tcl-7519883347a28417d8c6d8a3de4460386f66ad29.tar.gz tcl-7519883347a28417d8c6d8a3de4460386f66ad29.tar.bz2 | |
Fixup the ensemble rewrite conversions
| -rw-r--r-- | generic/tclEnsemble.c | 7 | ||||
| -rw-r--r-- | generic/tclExecute.c | 2 |
2 files changed, 1 insertions, 8 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 6489dea..a9698be 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -1852,12 +1852,7 @@ NsEnsembleImplementationCmdNR( Tcl_ListObjLength(NULL, prefixObj, &prefixObjc); - if (0 && objc == 2) { - /* - * TODO: This branch is disabled because it botches or exposes - * something wrong with nested ensemble usage messages. See - * tests oo-16.1 and oo-17.1 - */ + if (objc == 2) { copyPtr = prefixObj; Tcl_IncrRefCount(copyPtr); TclNRAddCallback(interp, FreeObj, copyPtr, NULL, NULL, NULL); diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 0a6e60e..df0618c 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2074,8 +2074,6 @@ TclNRExecuteByteCode( * Push the callback for bytecode execution */ - TclResetRewriteEnsemble(interp, 1); - TclNRAddCallback(interp, TEBCresume, TD, /* pc */ NULL, /* cleanup */ INT2PTR(0), NULL); return TCL_OK; |