GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-14 05:43:00 +08:00
Code Issues Projects Releases Wiki Activity

2^15 does not fit in a 16-bit int

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2002-01-25 19:51:33 -02:00
parent 74907fb71e
commit eb262bc617
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ltable.c
View File

@ -35,10 +35,10 @@
/*
** max size of array part is 2^MAXBITS
*/
#if BITS_INT > 24
#if BITS_INT > 26
#define MAXBITS 24
#else
#define MAXBITS (BITS_INT-1)
#define MAXBITS (BITS_INT-2)
#endif
/* check whether `x' < 2^MAXBITS */
@ -140,9 +140,9 @@ int luaH_nexti (Table *t, int i, TObject *where) {
static void computesizes (int nums[], int ntotal, int *narray, int *nhash) {
int n = 0; /* (log of) optimal size for array part */
int na = 0; /* number of elements to go to array part */
int i=0;
int i;
int a = nums[0]; /* number of elements smaller than 2^i */
while (++i <= MAXBITS && *narray >= twoto(i-1)) {
for (i = 1; i <= MAXBITS && *narray >= twoto(i-1); i++) {
if (nums[i] == 0) continue;
a += nums[i];
if (a >= twoto(i-1)) { /* more than half elements in use? */
@ -152,7 +152,7 @@ static void computesizes (int nums[], int ntotal, int *narray, int *nhash) {
}
lua_assert(na <= *narray && *narray <= ntotal);
*nhash = ntotal - na;
*narray = (n == 0) ? 0 : (1<<n);
*narray = (n == 0) ? 0 : twoto(n);
lua_assert(na <= *narray && na >= *narray/2);
}
@ -199,8 +199,6 @@ static void numuse (const Table *t, int *narray, int *nhash) {
static void setarrayvector (lua_State *L, Table *t, int size) {
int i;
if (size > twoto(MAXBITS))
luaD_error(L, "table overflow");
luaM_reallocvector(L, t->array, t->sizearray, size, TObject);
for (i=t->sizearray; i<size; i++)
setnilvalue(&t->array[i]);