Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | [824752f10e] More robust, portable check for integer overflow. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
cf3aa0440e048aa365999a365195f3b6 |
User & Date: | dgp 2016-11-04 14:48:36 |
Context
2016-11-04
| ||
14:49 | merge mark check-in: 9cd4c5200b user: dgp tags: trunk | |
14:48 | [824752f10e] More robust, portable check for integer overflow. check-in: cf3aa0440e user: dgp tags: trunk | |
14:42 | close fork check-in: e5a5037389 user: dgp tags: trunk | |
14:40 | [824752f10e] More robust, portable check for integer overflow. check-in: b2a4266498 user: dgp tags: core-8-6-branch | |
Changes
Changes to generic/tclListObj.c.
︙ | ︙ | |||
893 894 895 896 897 898 899 | first = 0; } if (first >= numElems) { first = numElems; /* So we'll insert after last element. */ } if (count < 0) { count = 0; | > | < < < < | 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 | first = 0; } if (first >= numElems) { first = numElems; /* So we'll insert after last element. */ } if (count < 0) { count = 0; } else if (first > INT_MAX - count /* Handle integer overflow */ || numElems < first+count) { count = numElems - first; } if (objc > LIST_MAX - (numElems - count)) { if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( |
︙ | ︙ |