diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-06-06 10:03:52 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-06-06 10:03:52 (GMT) |
| commit | b54632928e8d3ebda479a7e8e56fa3b53a22f1ce (patch) | |
| tree | c7123881b1cfa976b445903945c64cf1f1adeefa | |
| parent | 3891a78d8c67a61b6cb8710671c1207e4e4aa815 (diff) | |
| download | tcl-b54632928e8d3ebda479a7e8e56fa3b53a22f1ce.zip tcl-b54632928e8d3ebda479a7e8e56fa3b53a22f1ce.tar.gz tcl-b54632928e8d3ebda479a7e8e56fa3b53a22f1ce.tar.bz2 | |
Fix one int -> Tcl_Size
| -rw-r--r-- | generic/tclListObj.c | 7 |
1 files 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; |