summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-05-26 17:29:34 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-05-26 17:29:34 (GMT)
commite7a661cb7c9005f267a6f4a6bd8e29dab1e91f61 (patch)
tree1e9d93b9d3f7044fe283c27e9f626d6ca663923d
parent05d072329e0a598e85eae4e081b6ea129a13c0d3 (diff)
downloadtcl-e7a661cb7c9005f267a6f4a6bd8e29dab1e91f61.zip
tcl-e7a661cb7c9005f267a6f4a6bd8e29dab1e91f61.tar.gz
tcl-e7a661cb7c9005f267a6f4a6bd8e29dab1e91f61.tar.bz2
excise debug scaffolding
-rw-r--r--generic/tclExecute.c7
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();