diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-05 06:41:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-05 06:41:28 (GMT) |
commit | 3cb6c489a3c0515c7b3aade0aaa139e637400559 (patch) | |
tree | ef3a643590b4681a437381be8f7d67804e300fdd /generic/tclArithSeries.c | |
parent | 00199ad335823ec6b18983d1188f70b0b065b25e (diff) | |
download | tcl-3cb6c489a3c0515c7b3aade0aaa139e637400559.zip tcl-3cb6c489a3c0515c7b3aade0aaa139e637400559.tar.gz tcl-3cb6c489a3c0515c7b3aade0aaa139e637400559.tar.bz2 |
Missing error-check in Tcl_GetWideIntFromObj (backported from 9.0, was already fixed there)
Diffstat (limited to 'generic/tclArithSeries.c')
-rwxr-xr-x | generic/tclArithSeries.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c index 6a02caa..11a4254 100755 --- a/generic/tclArithSeries.c +++ b/generic/tclArithSeries.c @@ -306,7 +306,9 @@ TclNewArithSeriesObj( assignNumber(useDoubles, &end, &dend, endObj); } if (lenObj) { - Tcl_GetWideIntFromObj(NULL, lenObj, &len); + if (TCL_OK != Tcl_GetWideIntFromObj(interp, lenObj, &len)) { + return TCL_ERROR; + } } if (startObj && endObj) { @@ -339,7 +341,7 @@ TclNewArithSeriesObj( } } - if (len > ListSizeT_MAX) { + if (TCL_MAJOR_VERSION < 9 && len > ListSizeT_MAX) { Tcl_SetObjResult( interp, Tcl_NewStringObj("max length of a Tcl list exceeded", -1)); |