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 | 0d4e358f5ee2c3cde21282807112a2dabfe153b1 (patch) | |
tree | c898d491bd47677de6caa7f90d8908614c027467 /generic/tclEnsemble.c | |
parent | 366828918a209f70d7d5d4d842ae100b84bdd27d (diff) | |
parent | 5f7157f3a2684960a7bfc0e1f4e4499574efdbb2 (diff) | |
download | tcl-0d4e358f5ee2c3cde21282807112a2dabfe153b1.zip tcl-0d4e358f5ee2c3cde21282807112a2dabfe153b1.tar.gz tcl-0d4e358f5ee2c3cde21282807112a2dabfe153b1.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; } |