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); |