diff options
author | dgp <dgp@noemail.net> | 2011-04-21 17:32:20 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-04-21 17:32:20 (GMT) |
commit | e9440d6e98706300a9d65fc87e7c9f9ed796e3dc (patch) | |
tree | ff599a870d9438f3b28c983d0ac8121bea25f65b /generic/tclInt.h | |
parent | 67e50a2085da9cf3879963bfdc831f1bb054fa71 (diff) | |
parent | 2a1de6731749d028cf99d91b1f13bde641463c08 (diff) | |
download | tcl-e9440d6e98706300a9d65fc87e7c9f9ed796e3dc.zip tcl-e9440d6e98706300a9d65fc87e7c9f9ed796e3dc.tar.gz tcl-e9440d6e98706300a9d65fc87e7c9f9ed796e3dc.tar.bz2 |
Limits on list length were too strict. Revised panics to errors where possible.
FossilOrigin-Name: 2d215ce10301664f777957ec9bea469373a8fe17
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index cf32e0d..67aee93 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2441,6 +2441,9 @@ typedef struct List { * accomodate all elements. */ } List; +#define LIST_MAX \ + (1 + (int)(((size_t)UINT_MAX - sizeof(List))/sizeof(Tcl_Obj *))) + /* * Macro used to get the elements of a list object. */ |