diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-05-24 19:28:50 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-05-24 19:28:50 (GMT) |
| commit | 6f3bd38c61b5deddb1bcd376c798ca8aa12351a7 (patch) | |
| tree | 38747b6eae9f73159f5fa06f28901d586c45505f /generic/tclBasic.c | |
| parent | ca66ff4b66c7c2c37cf104ead999ae2fc8c85747 (diff) | |
| download | tcl-6f3bd38c61b5deddb1bcd376c798ca8aa12351a7.zip tcl-6f3bd38c61b5deddb1bcd376c798ca8aa12351a7.tar.gz tcl-6f3bd38c61b5deddb1bcd376c798ca8aa12351a7.tar.bz2 | |
Appears that the TclInitRewriteEnsemble() routine was created with an intent
to refactor, but never actually got used. Work on continuing that effort.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index e5d7406..b0c31cc 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -723,9 +723,7 @@ Tcl_CreateInterp(void) * Initialize the ensemble error message rewriting support. */ - iPtr->ensembleRewrite.sourceObjs = NULL; - iPtr->ensembleRewrite.numRemovedObjs = 0; - iPtr->ensembleRewrite.numInsertedObjs = 0; + TclResetRewriteEnsemble(interp, 1); /* * TIP#143: Initialise the resource limit support. @@ -4220,7 +4218,7 @@ EvalObjvCore( * TCL_EVAL_INVOKE was not set: clear rewrite rules */ - iPtr->ensembleRewrite.sourceObjs = NULL; + TclResetRewriteEnsemble(interp, 1); if (flags & TCL_EVAL_GLOBAL) { TEOV_SwitchVarFrame(interp); |