diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-11-04 14:48:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-11-04 14:48:36 (GMT) |
| commit | 480c51780a02e0e4bb97435754100d850b948ffa (patch) | |
| tree | 3f9b95f9723fcea8b344a2efc4b391d84dd6b99d /generic/tclListObj.c | |
| parent | 6305a931335f3d309db7906c7c9a1022839ed6c5 (diff) | |
| download | tcl-480c51780a02e0e4bb97435754100d850b948ffa.zip tcl-480c51780a02e0e4bb97435754100d850b948ffa.tar.gz tcl-480c51780a02e0e4bb97435754100d850b948ffa.tar.bz2 | |
[824752f10e] More robust, portable check for integer overflow.
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 2929423..344d0fd 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -897,11 +897,8 @@ Tcl_ListObjReplace( } if (count < 0) { count = 0; - } else if (numElems < first+count || first+count < 0) { - /* - * The 'first+count < 0' condition here guards agains integer - * overflow in determining 'first+count'. - */ + } else if (first > INT_MAX - count /* Handle integer overflow */ + || numElems < first+count) { count = numElems - first; } |