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 | 366828918a209f70d7d5d4d842ae100b84bdd27d (patch) | |
| tree | 38747b6eae9f73159f5fa06f28901d586c45505f /generic/tclProc.c | |
| parent | 1195cdbd7703cec023f22231e80b9cb84cddf759 (diff) | |
| download | tcl-366828918a209f70d7d5d4d842ae100b84bdd27d.zip tcl-366828918a209f70d7d5d4d842ae100b84bdd27d.tar.gz tcl-366828918a209f70d7d5d4d842ae100b84bdd27d.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/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 172b860..1a3bdb7 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1786,6 +1786,8 @@ TclNRInterpProcCore( * Invoke the commands in the procedure's body. */ + TclResetRewriteEnsemble(interp, 1); + procPtr->refCount++; codePtr = procPtr->bodyPtr->internalRep.twoPtrValue.ptr1; |