In tclExecute.c call DECACHE_STACK_INFO() before calling TclLindexLis…

…t().
tcltk · May 12, 2023 · d6ed36f · d6ed36f
1 parent 14d2bc5
commit d6ed36f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
@@ -4698,7 +4698,9 @@ TEBCresume(
 	    Tcl_ResetResult(interp);
 	}
 
+	DECACHE_STACK_INFO();
 	objResultPtr = TclLindexList(interp, valuePtr, value2Ptr);
+	CACHE_STACK_INFO();
 
     lindexDone:
 	if (!objResultPtr) {