diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-10-23 15:34:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-10-23 15:34:57 (GMT) |
| commit | 0e4cb088ae99736b2bf14f53c90a533768c9fd90 (patch) | |
| tree | aab04b4cfa1ec43882f5fea9673d2695eb8becdb | |
| parent | 65e312c749478df27e6d3ec9f23f516d7fc91849 (diff) | |
| download | tcl-dgp_stack_depth_tester.zip tcl-dgp_stack_depth_tester.tar.gz tcl-dgp_stack_depth_tester.tar.bz2 | |
Report pc value when VERIFY fails.dgp_stack_depth_tester
| -rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index b86668b..813154e 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2741,7 +2741,8 @@ TEBCresume( int estimate = TclGetUInt4AtPtr(pc+1); if (CURR_DEPTH != estimate + (auxObjList ? auxObjList->length : 0)) { - Tcl_Panic("Bad stack estimate = %d; truth = %ld", estimate, + Tcl_Panic("(%d) Bad stack estimate = %d; truth = %ld", + (int)(pc - TD->pc), estimate, CURR_DEPTH - (auxObjList ? auxObjList->length : 0)); } #endif |