25#if defined(EMERGENCYGCTESTS)
38#define firsttry(g,block,os,ns) ((*g->frealloc)(g->ud, block, os, ns))
80 int size_elems,
int limit,
const char *what) {
83 if (nelems + 1 <= size)
85 if (size >= limit / 2) {
86 if (l_unlikely(size >= limit))
95 lua_assert(nelems + 1 <= size && size <= limit);
111 int final_n,
int size_elem) {
113 size_t oldsize =
cast_sizet((*size) * size_elem);
114 size_t newsize =
cast_sizet(final_n * size_elem);
149 size_t osize,
size_t nsize) {
167 if (l_unlikely(newblock ==
NULL && nsize > 0)) {
169 if (newblock ==
NULL)
181 if (l_unlikely(newblock ==
NULL && nsize > 0))
193 if (l_unlikely(newblock ==
NULL)) {
195 if (newblock ==
NULL)
void luaG_runerror(lua_State *L, const char *fmt,...)
void luaC_fullgc(lua_State *L)
static void block(LexState *ls)
void * luaM_growaux_(lua_State *L, void *block, int nelems, int *psize, int size_elems, int limit, const char *what)
void luaM_free_(lua_State *L, void *block, size_t osize)
void * luaM_realloc_(lua_State *L, void *block, size_t osize, size_t nsize)
void * luaM_shrinkvector_(lua_State *L, void *block, int *size, int final_n, int size_elem)
void * luaM_saferealloc_(lua_State *L, void *block, size_t osize, size_t nsize)
l_noret luaM_toobig(lua_State *L)
#define firsttry(g, block, os, ns)
static void * tryagain(lua_State *L, void *block, size_t osize, size_t nsize)
void * luaM_malloc_(lua_State *L, size_t size, int tag)