diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-05-24 19:29:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-05-24 19:29:58 (GMT) |
| commit | c0771697239c868133d1f53442b91259ab58cf25 (patch) | |
| tree | 48e230c3cc80dcd82a5a96dcdc1ca92e47a224fb | |
| parent | ca66ff4b66c7c2c37cf104ead999ae2fc8c85747 (diff) | |
| download | tcl-c0771697239c868133d1f53442b91259ab58cf25.zip tcl-c0771697239c868133d1f53442b91259ab58cf25.tar.gz tcl-c0771697239c868133d1f53442b91259ab58cf25.tar.bz2 | |
The handling of ensemble rewriting here is not right, but I've not yet
found the test case to demonstrate it. Checking in debugging code to
spread to other dev platforms.
| -rw-r--r-- | generic/tclEnsemble.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 986a553..c947459 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -12,6 +12,7 @@ #include "tclInt.h" #include "tclCompile.h" +#include "assert.h" /* * Declarations for functions local to this file: @@ -1891,6 +1892,12 @@ NsEnsembleImplementationCmdNR( * relative to old one. */ if (ni > 0) { iPtr->ensembleRewrite.numRemovedObjs += ni; +fprintf(stdout, "%d == %d\n", +iPtr->ensembleRewrite.numInsertedObjs - 1, +ensemblePtr->numParameters); +fflush(stdout); +assert(iPtr->ensembleRewrite.numInsertedObjs - 1 == ensemblePtr->numParameters); + iPtr->ensembleRewrite.numInsertedObjs += prefixObjc-1; } else { iPtr->ensembleRewrite.numInsertedObjs += prefixObjc-2; |