chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
gitignore
[chiark-tcl.git]
/
base
/
scriptinv.c
diff --git
a/base/scriptinv.c
b/base/scriptinv.c
index 5757d47b52f9ef8549a577ee29f76b7d2a050f78..26d5030f762ed6fd62c5e16eaebd8c17f9403ccc 100644
(file)
--- a/
base/scriptinv.c
+++ b/
base/scriptinv.c
@@
-45,6
+45,7
@@
int cht_scriptinv_set(ScriptToInvoke *si, Tcl_Interp *ip,
if (xargs) {
rc= Tcl_ListObjLength(ip, xargs, &xlength); if (rc) return rc;
Tcl_IncrRefCount(xargs);
+ assert(si->llen < INT_MAX/2 && xlength < INT_MAX/2);
si->llen += xlength;
}