diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-05-25 18:19:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-05-25 18:19:27 (GMT) |
| commit | 7be6a12649deec9f9d70b5d1a53140b5e0be42e0 (patch) | |
| tree | 719814e131c5f6ea0a0113a8f3ae99d940aaf56a /generic/tclExecute.c | |
| parent | ec75618b67ba6350be88fd617aac6122cecc5250 (diff) | |
| download | tcl-7be6a12649deec9f9d70b5d1a53140b5e0be42e0.zip tcl-7be6a12649deec9f9d70b5d1a53140b5e0be42e0.tar.gz tcl-7be6a12649deec9f9d70b5d1a53140b5e0be42e0.tar.bz2 | |
Put in some missing Resets.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 80598c1..61d75cb 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -3174,7 +3174,9 @@ TEBCresume( } if (!TclInitRewriteEnsemble(interp, opnd, 1, objv)) { -//fprintf(stdout, "INVOKE: '%s'\n", Tcl_GetString(objPtr)); fflush(stdout); +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"); } DECACHE_STACK_INFO(); |