diff options
Diffstat (limited to '')
| -rw-r--r-- | llimits.h | 6 | ||||
| -rw-r--r-- | lmem.c | 13 |
2 files changed, 9 insertions, 10 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: llimits.h,v 1.32 2001/09/07 17:39:10 roberto Exp $ | 2 | ** $Id: llimits.h,v 1.33 2001/10/02 16:45:03 roberto Exp $ |
| 3 | ** Limits, basic types, and some other `installation-dependent' definitions | 3 | ** Limits, basic types, and some other `installation-dependent' definitions |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -71,10 +71,6 @@ typedef unsigned char lu_byte; | |||
| 71 | 71 | ||
| 72 | 72 | ||
| 73 | 73 | ||
| 74 | #define MINPOWER2 4 /* minimum size for `growing' vectors */ | ||
| 75 | |||
| 76 | |||
| 77 | |||
| 78 | #ifndef DEFAULT_STACK_SIZE | 74 | #ifndef DEFAULT_STACK_SIZE |
| 79 | #define DEFAULT_STACK_SIZE 1024 | 75 | #define DEFAULT_STACK_SIZE 1024 |
| 80 | #endif | 76 | #endif |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lmem.c,v 1.49 2001/03/26 14:31:49 roberto Exp $ | 2 | ** $Id: lmem.c,v 1.50 2001/08/31 19:46:07 roberto Exp $ |
| 3 | ** Interface to Memory Manager | 3 | ** Interface to Memory Manager |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -23,15 +23,18 @@ | |||
| 23 | #endif | 23 | #endif |
| 24 | 24 | ||
| 25 | 25 | ||
| 26 | #define MINSIZEARRAY 4 | ||
| 27 | |||
| 28 | |||
| 26 | void *luaM_growaux (lua_State *L, void *block, int *size, int size_elems, | 29 | void *luaM_growaux (lua_State *L, void *block, int *size, int size_elems, |
| 27 | int limit, const l_char *errormsg) { | 30 | int limit, const l_char *errormsg) { |
| 28 | void *newblock; | 31 | void *newblock; |
| 29 | int newsize = (*size)*2; | 32 | int newsize = (*size)*2; |
| 30 | if (newsize < MINPOWER2) | 33 | if (newsize < MINSIZEARRAY) |
| 31 | newsize = MINPOWER2; /* minimum size */ | 34 | newsize = MINSIZEARRAY; /* minimum size */ |
| 32 | else if (*size >= limit/2) { /* cannot double it? */ | 35 | else if (*size >= limit/2) { /* cannot double it? */ |
| 33 | if (*size < limit - MINPOWER2) /* try something smaller... */ | 36 | if (*size < limit - MINSIZEARRAY) /* try something smaller... */ |
| 34 | newsize = limit; /* still have at least MINPOWER2 free places */ | 37 | newsize = limit; /* still have at least MINSIZEARRAY free places */ |
| 35 | else luaD_error(L, errormsg); | 38 | else luaD_error(L, errormsg); |
| 36 | } | 39 | } |
| 37 | newblock = luaM_realloc(L, block, | 40 | newblock = luaM_realloc(L, block, |
