diff options
author | dkf <dkf@noemail.net> | 2011-09-16 13:22:39 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2011-09-16 13:22:39 (GMT) |
commit | ee1e54307b661140ad98a09e7c11a80a62a09af5 (patch) | |
tree | 5898505848d2fd5a25dd43f302f76adfff855b8b /generic/tclProc.c | |
parent | fdd4a186791be4c5f08b9d3871f7e409cfbdeca3 (diff) | |
download | tcl-ee1e54307b661140ad98a09e7c11a80a62a09af5.zip tcl-ee1e54307b661140ad98a09e7c11a80a62a09af5.tar.gz tcl-ee1e54307b661140ad98a09e7c11a80a62a09af5.tar.bz2 |
* generic/tclProc.c (ProcWrongNumArgs): [Bugs 3400658,3408830]:
Corrected the handling of procedure error messages (found by TclOO).
FossilOrigin-Name: ed886c774fe72c2139762ebef60a76528f869a59
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 89bd0b9..43e88c6 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1092,6 +1092,8 @@ ProcWrongNumArgs( if (framePtr->isProcCallFrame & FRAME_IS_LAMBDA) { desiredObjs[0] = Tcl_NewStringObj("lambdaExpr", -1); } else { + ((Interp *) interp)->ensembleRewrite.numInsertedObjs -= skip - 1; + #ifdef AVOID_HACKS_FOR_ITCL desiredObjs[0] = framePtr->objv[skip-1]; #else |