From b54632928e8d3ebda479a7e8e56fa3b53a22f1ce Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Thu, 6 Jun 2024 10:03:52 +0000 Subject: Fix one int -> Tcl_Size --- generic/tclListObj.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 683a0e7..483426d 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -2925,7 +2925,7 @@ TclLsetFlat( result = TCL_OK; /* Allocate if static array for pending invalidations is too small */ - if (indexCount > (int) (sizeof(pendingInvalidates) / + if (indexCount > (Tcl_Size) (sizeof(pendingInvalidates) / sizeof(pendingInvalidates[0]))) { pendingInvalidatesPtr = (Tcl_Obj **) Tcl_Alloc(indexCount * sizeof(*pendingInvalidatesPtr)); @@ -3032,9 +3032,8 @@ TclLsetFlat( * value of the lset variable. Later on, when we set valueObj * in its proper place, then all containing lists will have * their values changed, and will need their string reps - * spoiled. We maintain a list of all those Tcl_Obj's (via a - * little internalrep surgery) so we can spoil them at that - * time. + * spoiled. We maintain a list of all those Tcl_Obj's + * pendingInvalidatesPtr[] so we can spoil them at that time. */ pendingInvalidatesPtr[numPendingInvalidates] = parentList; -- cgit v0.12