diff options
-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 |