mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-01-23 09:32:15 +03:00
Code Issues 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
llimits.h
View File

@ -1,5 +1,5 @@
/*
** $Id: llimits.h,v 1.32 2001/09/07 17:39:10 roberto Exp $
** $Id: llimits.h,v 1.33 2001/10/02 16:45:03 roberto Exp $
** Limits, basic types, and some other `installation-dependent' definitions
** See Copyright Notice in lua.h
*/
@ -71,10 +71,6 @@ typedef unsigned char lu_byte;
#define MINPOWER2 4 /* minimum size for `growing' vectors */
#ifndef DEFAULT_STACK_SIZE
#define DEFAULT_STACK_SIZE 1024
#endif

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,