diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-23 05:23:01 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-23 05:23:01 (GMT) |
| commit | 9cd23041f3a73559c43adb6120b1ccdf4bd15604 (patch) | |
| tree | 9d892f7c1dc31aa2cccbc6d9344a246c1354f1ea /generic/tclExecute.c | |
| parent | 08d2d4c09be5b73ac1afa73c49d4cad5aff59cf2 (diff) | |
| parent | 00afea1c26cff64d1347e8c667dac60dc0a8f3d8 (diff) | |
| download | tcl-9cd23041f3a73559c43adb6120b1ccdf4bd15604.zip tcl-9cd23041f3a73559c43adb6120b1ccdf4bd15604.tar.gz tcl-9cd23041f3a73559c43adb6120b1ccdf4bd15604.tar.bz2 | |
Merge 8.7 - [d90fee06d0] (lassign) and [203792a48c] (Utf32ToUtf)
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index f22538f..a64880f 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4945,12 +4945,12 @@ TEBCresume( if (TclHasInternalRep(valuePtr,&tclArithSeriesType.objType)) { objResultPtr = TclArithSeriesObjRange(interp, valuePtr, fromIdx, toIdx); - if (objResultPtr == NULL) { - TRACE_ERROR(interp); - goto gotError; - } } else { - objResultPtr = TclListObjRange(valuePtr, fromIdx, toIdx); + objResultPtr = TclListObjRange(interp, valuePtr, fromIdx, toIdx); + } + if (objResultPtr == NULL) { + TRACE_ERROR(interp); + goto gotError; } TRACE_APPEND(("\"%.30s\"", O2S(objResultPtr))); |