diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-05-26 17:29:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-05-26 17:29:34 (GMT) |
| commit | e7a661cb7c9005f267a6f4a6bd8e29dab1e91f61 (patch) | |
| tree | 1e9d93b9d3f7044fe283c27e9f626d6ca663923d | |
| parent | 05d072329e0a598e85eae4e081b6ea129a13c0d3 (diff) | |
| download | tcl-e7a661cb7c9005f267a6f4a6bd8e29dab1e91f61.zip tcl-e7a661cb7c9005f267a6f4a6bd8e29dab1e91f61.tar.gz tcl-e7a661cb7c9005f267a6f4a6bd8e29dab1e91f61.tar.bz2 | |
excise debug scaffolding
| -rw-r--r-- | generic/tclExecute.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 67eabdb..aed6a48 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -3175,12 +3175,7 @@ TEBCresume( ArgumentBCEnter(interp, codePtr, TD, pc, objc, objv); } - if (!TclInitRewriteEnsemble(interp, opnd, 1, objv)) { -fprintf(stdout, "SOURCE: '%s'\n", Tcl_GetString( - ((Interp *)interp)->ensembleRewrite.sourceObjs[0])); fflush(stdout); -fprintf(stdout, "INVOKE: '%s'\n", Tcl_GetString(objPtr)); fflush(stdout); - Tcl_Panic("INST_INVOKE_REPLACE is not ensemble root"); - } + TclInitRewriteEnsemble(interp, opnd, 1, objv); DECACHE_STACK_INFO(); pc += 6; TEBC_YIELD(); |