From 0e4cb088ae99736b2bf14f53c90a533768c9fd90 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 23 Oct 2013 15:34:57 +0000 Subject: Report pc value when VERIFY fails. --- generic/tclExecute.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v0.12