diff options
author | dgp <dgp@noemail.net> | 2011-05-11 20:33:14 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-05-11 20:33:14 (GMT) |
commit | e08f6a030b04b1c7e81dcdb0ccc2c18f09891ae8 (patch) | |
tree | 619407cc2be5934eeb8535f68999d4b07c32cde5 /generic/tclUtil.c | |
parent | 4e26488136dba988638da0b051f4f3261a11b5c0 (diff) | |
download | tcl-e08f6a030b04b1c7e81dcdb0ccc2c18f09891ae8.zip tcl-e08f6a030b04b1c7e81dcdb0ccc2c18f09891ae8.tar.gz tcl-e08f6a030b04b1c7e81dcdb0ccc2c18f09891ae8.tar.bz2 |
First draft of bug fix.
FossilOrigin-Name: ea441b300ea07139013e7666f2d0e186b2e468f4
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r-- | generic/tclUtil.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index f7f4bf4..3b5b527 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -1786,7 +1786,7 @@ Tcl_ConcatObj( /* * Tcl_ListObjAppendList could be used here, but this saves us a * bit of type checking (since we've already done it). Use of - * INT_MAX tells us to always put the new stuff on the end. It + * LIST_MAX tells us to always put the new stuff on the end. It * will be set right in Tcl_ListObjReplace. * Note that all objs at this point are either lists or have an * empty string rep. @@ -1799,7 +1799,7 @@ Tcl_ConcatObj( TclListObjGetElements(NULL, objPtr, &listc, &listv); if (listc) { if (resPtr) { - Tcl_ListObjReplace(NULL, resPtr, INT_MAX, 0, listc, listv); + Tcl_ListObjReplace(NULL, resPtr, LIST_MAX, 0, listc, listv); } else { resPtr = TclListObjCopy(NULL, objPtr); } |