From 3495bd2531b93a17421d6dc087527ef5fa111118 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 11 May 2011 20:42:14 +0000 Subject: Oops! --- generic/tclListObj.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclListObj.c b/generic/tclListObj.c index b623272..f1daf19 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -908,7 +908,7 @@ Tcl_ListObjReplace( listRepPtr = AttemptNewList(NULL, newMax, NULL); if (listRepPtr == NULL) { unsigned int limit = LIST_MAX - numRequired; - unsigned int extra = numRequired - listRepPtr->elemCount + unsigned int extra = numRequired - numElems + TCL_GROWTH_MIN_ALLOC/sizeof(Tcl_Obj *); int growth = (int) ((extra > limit) ? limit : extra); -- cgit v0.12