diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-28 19:47:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-28 19:47:41 (GMT) |
| commit | 3d27e0eb5ceee2d55276e190e53123aaaea99960 (patch) | |
| tree | c7f4f3757c04832c170cb4556b3222a66b2e5daa /generic/tclExecute.c | |
| parent | d8213dd66ae859773e3ee16fd0333c465ccc2e97 (diff) | |
| parent | 42bd6877bcc8794524e5be946458a4427994b7a6 (diff) | |
| download | tcl-3d27e0eb5ceee2d55276e190e53123aaaea99960.zip tcl-3d27e0eb5ceee2d55276e190e53123aaaea99960.tar.gz tcl-3d27e0eb5ceee2d55276e190e53123aaaea99960.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 f8d5493..5f29bfa 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5154,7 +5154,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); } |