diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-05-24 20:29:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-05-24 20:29:35 (GMT) |
| commit | 55a0957a84fa30d7881c6ed4ca5d10d9760aa6c1 (patch) | |
| tree | c898d491bd47677de6caa7f90d8908614c027467 /generic/tclEnsemble.c | |
| parent | 6f3bd38c61b5deddb1bcd376c798ca8aa12351a7 (diff) | |
| parent | 0a2318649c91cff9d31bef133fb6a96ad9786bed (diff) | |
| download | tcl-55a0957a84fa30d7881c6ed4ca5d10d9760aa6c1.zip tcl-55a0957a84fa30d7881c6ed4ca5d10d9760aa6c1.tar.gz tcl-55a0957a84fa30d7881c6ed4ca5d10d9760aa6c1.tar.bz2 | |
Merge the bug fix and test case.
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index f108030..e37ad1a 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -1901,7 +1901,8 @@ NsEnsembleImplementationCmdNR( if (ni > 0) { //fprintf(stdout, "COVER\n"); fflush(stdout); iPtr->ensembleRewrite.numRemovedObjs += ni; - iPtr->ensembleRewrite.numInsertedObjs += prefixObjc-1; + iPtr->ensembleRewrite.numInsertedObjs + = prefixObjc + ensemblePtr->numParameters; } else { iPtr->ensembleRewrite.numInsertedObjs += prefixObjc-2; } |