From 0e4cb088ae99736b2bf14f53c90a533768c9fd90 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
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