nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no more MINPOWER2

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2001-10-25 17:13:33 -02:00
parent 0b551a24f8
commit fffb6f3814
2 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lmem.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lmem.c,v 1.49 2001/03/26 14:31:49 roberto Exp $
** $Id: lmem.c,v 1.50 2001/08/31 19:46:07 roberto Exp $
** Interface to Memory Manager
** See Copyright Notice in lua.h
*/
@@ -23,15 +23,18 @@
#endif
#define MINSIZEARRAY 4
void *luaM_growaux (lua_State *L, void *block, int *size, int size_elems,
int limit, const l_char *errormsg) {
void *newblock;
int newsize = (*size)*2;
if (newsize < MINPOWER2)
newsize = MINPOWER2; /* minimum size */
if (newsize < MINSIZEARRAY)
newsize = MINSIZEARRAY; /* minimum size */
else if (*size >= limit/2) { /* cannot double it? */
if (*size < limit - MINPOWER2) /* try something smaller... */
newsize = limit; /* still have at least MINPOWER2 free places */
if (*size < limit - MINSIZEARRAY) /* try something smaller... */
newsize = limit; /* still have at least MINSIZEARRAY free places */
else luaD_error(L, errormsg);
}
newblock = luaM_realloc(L, block,