diff options
| author | mig <mig> | 2013-01-07 04:21:38 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-01-07 04:21:38 (GMT) |
| commit | 822c5d44a9c15c0be0ad270775d5a96aa9a71e72 (patch) | |
| tree | 3955843633ca8428aefb9169a994a99a1a06b177 /generic/tclEnsemble.c | |
| parent | e82e2ca61ca3d82c33ef64b6ff754c704df94318 (diff) | |
| download | tcl-822c5d44a9c15c0be0ad270775d5a96aa9a71e72.zip tcl-822c5d44a9c15c0be0ad270775d5a96aa9a71e72.tar.gz tcl-822c5d44a9c15c0be0ad270775d5a96aa9a71e72.tar.bz2 | |
move TCL_EVAL_REDIRECT from iPtr->evalFlags (tclInt.h) to flags passed to the eval functions (tcl.h)
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 9a2d598..48cac8d 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -1914,8 +1914,8 @@ NsEnsembleImplementationCmdNR( * Hand off to the target command. */ - iPtr->evalFlags |= TCL_EVAL_REDIRECT; - return TclNREvalObjEx(interp, copyPtr, TCL_EVAL_INVOKE, NULL,INT_MIN); + return TclNREvalObjEx(interp, copyPtr, + (TCL_EVAL_INVOKE|TCL_EVAL_REDIRECT), NULL,INT_MIN); } unknownOrAmbiguousSubcommand: @@ -2122,8 +2122,7 @@ EnsembleUnknownCallback( */ Tcl_Preserve(ensemblePtr); - ((Interp *) interp)->evalFlags |= TCL_EVAL_REDIRECT; - result = Tcl_EvalObjv(interp, paramc, paramv, 0); + result = Tcl_EvalObjv(interp, paramc, paramv, TCL_EVAL_REDIRECT); if ((result == TCL_OK) && (ensemblePtr->flags & ENSEMBLE_DEAD)) { if (!Tcl_InterpDeleted(interp)) { Tcl_SetObjResult(interp, Tcl_NewStringObj( |