From de2793025fcbb875f0ac1e7efed956bbfedca273 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 2 Sep 2020 16:20:20 +0000
Subject: Different fix where existing protection tools for nesting bytecode
 execution calls are used.  This solution suggests there may be many more
 places needing protection. Any routine that gets passed "interp" is a
 possibility.

---
 generic/tclExecute.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 0f1c2cc..70ed54a 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5298,10 +5298,13 @@ TEBCresume(
 	 */
 
 	length = Tcl_GetCharLength(valuePtr);
+	DECACHE_STACK_INFO();
 	if (TclGetIntForIndexM(interp, value2Ptr, length-1, &index)!=TCL_OK) {
+	    CACHE_STACK_INFO();
 	    TRACE_ERROR(interp);
 	    goto gotError;
 	}
+	CACHE_STACK_INFO();
 
 	if ((index < 0) || (index >= length)) {
 	    TclNewObj(objResultPtr);
-- 
cgit v0.12