diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-09-10 17:57:03 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-09-10 17:57:03 (GMT) |
| commit | 27a3957c2e65717360160b65c14cd53ec494538a (patch) | |
| tree | fec319fb5ea060df95e7c2e9f5212009d1173425 /generic/tclOOMethod.c | |
| parent | eb6fb56fa20feb22f2ee6c09b058ece6fcb981cc (diff) | |
| download | tcl-27a3957c2e65717360160b65c14cd53ec494538a.zip tcl-27a3957c2e65717360160b65c14cd53ec494538a.tar.gz tcl-27a3957c2e65717360160b65c14cd53ec494538a.tar.bz2 | |
[Bug 3400658]: Correction to forwarded method magic so that Tcl_WrongNumArgs
produces the right sort of message.
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 4e7edb8..708295a 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1595,7 +1595,7 @@ InitEnsembleRewrite( if (isRootEnsemble) { iPtr->ensembleRewrite.sourceObjs = objv; iPtr->ensembleRewrite.numRemovedObjs = toRewrite; - iPtr->ensembleRewrite.numInsertedObjs = rewriteLength; + iPtr->ensembleRewrite.numInsertedObjs = rewriteLength - 1; } else { int numIns = iPtr->ensembleRewrite.numInsertedObjs; |