diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-23 07:24:49 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-23 07:24:49 (GMT) |
| commit | 6f566fc406752600f7ae67df0c7356d987b753fe (patch) | |
| tree | 6fb5f61f31dda4cc65bf9b4b66a9c598995749fe /generic/tclExecute.c | |
| parent | c7f27e3c8788c57a0e58d4b31140a4c4652a422f (diff) | |
| parent | 9cd23041f3a73559c43adb6120b1ccdf4bd15604 (diff) | |
| download | tcl-6f566fc406752600f7ae67df0c7356d987b753fe.zip tcl-6f566fc406752600f7ae67df0c7356d987b753fe.tar.gz tcl-6f566fc406752600f7ae67df0c7356d987b753fe.tar.bz2 | |
Merge trunk
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 a69d29c..31a8695 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))); |