diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-28 08:31:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-28 08:31:35 (GMT) |
| commit | 5a103eaacbd1947b7ec81e16e572da273c957bce (patch) | |
| tree | 2066b08dc36eabe75b9500bb904db0447f345566 /generic/tclExecute.c | |
| parent | f68a36c8bedfe75b570af667b2fec7a0d81e8f00 (diff) | |
| parent | 8b5a187d44e2ed11ef57b3a94e26e349a20ae2f0 (diff) | |
| download | tcl-5a103eaacbd1947b7ec81e16e572da273c957bce.zip tcl-5a103eaacbd1947b7ec81e16e572da273c957bce.tar.gz tcl-5a103eaacbd1947b7ec81e16e572da273c957bce.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c0af4bd..b4ab1ee 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4944,7 +4944,11 @@ TEBCresume( fromIdx = TclIndexDecode(fromIdx, objc - 1); if (TclHasInternalRep(valuePtr,&tclArithSeriesType)) { - objResultPtr = TclArithSeriesObjRange(valuePtr, fromIdx, toIdx); + objResultPtr = TclArithSeriesObjRange(interp, valuePtr, fromIdx, toIdx); + if (objResultPtr == NULL) { + TRACE_ERROR(interp); + goto gotError; + } } else { objResultPtr = TclListObjRange(valuePtr, fromIdx, toIdx); } |