| /* |
| ** $Id: lmem.h,v 1.25 2001/11/28 20:13:13 roberto Exp roberto $ |
| ** Interface to Memory Manager |
| ** See Copyright Notice in lua.h |
| */ |
| |
| #ifndef lmem_h |
| #define lmem_h |
| |
| |
| #include <stddef.h> |
| |
| #include "llimits.h" |
| #include "lua.h" |
| |
| #define MEMERRMSG "not enough memory" |
| |
| |
| void *luaM_realloc (lua_State *L, void *oldblock, lu_mem oldsize, lu_mem size); |
| |
| void *luaM_growaux (lua_State *L, void *block, int *size, int size_elem, |
| int limit, const char *errormsg); |
| |
| #define luaM_free(L, b, s) luaM_realloc(L, (b), (s), 0) |
| #define luaM_freelem(L, b) luaM_realloc(L, (b), sizeof(*(b)), 0) |
| #define luaM_freearray(L, b, n, t) luaM_realloc(L, (b), \ |
| cast(lu_mem, n)*cast(lu_mem, sizeof(t)), 0) |
| |
| #define luaM_malloc(L, t) luaM_realloc(L, NULL, 0, (t)) |
| #define luaM_new(L, t) cast(t *, luaM_malloc(L, sizeof(t))) |
| #define luaM_newvector(L, n,t) cast(t *, luaM_malloc(L, \ |
| cast(lu_mem, n)*cast(lu_mem, sizeof(t)))) |
| |
| #define luaM_growvector(L,v,nelems,size,t,limit,e) \ |
| if (((nelems)+1) > (size)) \ |
| ((v)=cast(t *, luaM_growaux(L,v,&(size),sizeof(t),limit,e))) |
| |
| #define luaM_reallocvector(L, v,oldn,n,t) \ |
| ((v)=cast(t *, luaM_realloc(L, v,cast(lu_mem, oldn)*cast(lu_mem, sizeof(t)), \ |
| cast(lu_mem, n)*cast(lu_mem, sizeof(t))))) |
| |
| |
| #endif |
| |