diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-11 12:59:13 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-11 12:59:13 (GMT) |
commit | d852753be2883cd493304baf8fe53eaf7920df1f (patch) | |
tree | ace3e7c00a072507cefb8816699c6568841c7a11 | |
parent | f7429e323099dee3d15b340936276850974dbbe7 (diff) | |
download | tcl-d852753be2883cd493304baf8fe53eaf7920df1f.zip tcl-d852753be2883cd493304baf8fe53eaf7920df1f.tar.gz tcl-d852753be2883cd493304baf8fe53eaf7920df1f.tar.bz2 |
Wrap DECACHE_STACK_INFO around Tcl_ListObjIndex call from bytecode engine.
-rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index b74c74a..84331a3 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -6553,12 +6553,15 @@ TEBCresume( if (valIndex >= listLen) { TclNewObj(valuePtr); } else { + DECACHE_STACK_INFO(); status = Tcl_ListObjIndex( interp, listPtr, valIndex, &valuePtr); if (status != TCL_OK) { /* Could happen for abstract lists */ + CACHE_STACK_INFO(); goto gotError; } + CACHE_STACK_INFO(); if (valuePtr == NULL) { /* Permitted for Tcl_LOI to return NULL */ TclNewObj(valuePtr); |