Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. /*
  2. ** $Id: lmem.h,v 1.36 2010/04/08 17:16:46 roberto Exp $
  3. ** Interface to Memory Manager
  4. ** See Copyright Notice in lua.h
  5. */
  6.  
  7. #ifndef lmem_h
  8. #define lmem_h
  9.  
  10.  
  11. #include <stddef.h>
  12.  
  13. #include "llimits.h"
  14. #include "lua.h"
  15.  
  16.  
  17. #define luaM_reallocv(L,b,on,n,e) \
  18.         ((cast(size_t, (n)+1) <= MAX_SIZET/(e)) ?  /* +1 to avoid warnings */ \
  19.                 luaM_realloc_(L, (b), (on)*(e), (n)*(e)) : \
  20.                 luaM_toobig(L))
  21.  
  22. #define luaM_freemem(L, b, s)   luaM_realloc_(L, (b), (s), 0)
  23. #define luaM_free(L, b)         luaM_realloc_(L, (b), sizeof(*(b)), 0)
  24. #define luaM_freearray(L, b, n)   luaM_reallocv(L, (b), n, 0, sizeof((b)[0]))
  25.  
  26. #define luaM_malloc(L,s)        luaM_realloc_(L, NULL, 0, (s))
  27. #define luaM_new(L,t)           cast(t *, luaM_malloc(L, sizeof(t)))
  28. #define luaM_newvector(L,n,t) \
  29.                 cast(t *, luaM_reallocv(L, NULL, 0, n, sizeof(t)))
  30.  
  31. #define luaM_newobject(L,tag,s) luaM_realloc_(L, NULL, tag, (s))
  32.  
  33. #define luaM_growvector(L,v,nelems,size,t,limit,e) \
  34.           if ((nelems)+1 > (size)) \
  35.             ((v)=cast(t *, luaM_growaux_(L,v,&(size),sizeof(t),limit,e)))
  36.  
  37. #define luaM_reallocvector(L, v,oldn,n,t) \
  38.    ((v)=cast(t *, luaM_reallocv(L, v, oldn, n, sizeof(t))))
  39.  
  40. LUAI_FUNC void *luaM_toobig (lua_State *L);
  41.  
  42. /* not to be called directly */
  43. LUAI_FUNC void *luaM_realloc_ (lua_State *L, void *block, size_t oldsize,
  44.                                                           size_t size);
  45. LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int *size,
  46.                                size_t size_elem, int limit,
  47.                                const char *what);
  48.  
  49. #endif
  50.  
  51.