lmem.c File Reference

#include "lprefix.h"
#include <stddef.h>
#include "lua.h"
#include "ldebug.h"
#include "ldo.h"
#include "lgc.h"
#include "lmem.h"
#include "lobject.h"
#include "lstate.h"

Go to the source code of this file.

Macros
#define	lmem_c
#define	LUA_CORE
#define	firsttry(g, block, os, ns)   ((*g->frealloc)(g->ud, block, os, ns))
#define	MINSIZEARRAY   4

Functions
void *	luaM_growaux_ (lua_State *L, void *block, int nelems, int *psize, int size_elems, int limit, const char *what)
void *	luaM_shrinkvector_ (lua_State *L, void *block, int *size, int final_n, int size_elem)
l_noret	luaM_toobig (lua_State *L)
void	luaM_free_ (lua_State *L, void *block, size_t osize)
static void *	tryagain (lua_State *L, void *block, size_t osize, size_t nsize)
void *	luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize)
void *	luaM_saferealloc_ (lua_State *L, void *block, size_t osize, size_t nsize)
void *	luaM_malloc_ (lua_State *L, size_t size, int tag)

Macro Definition Documentation

firsttry

#define firsttry	(		g,
			block,
			os,
			ns )   ((*g->frealloc)(g->ud, block, os, ns))

Definition at line 38 of file lua-5.4.3/src/lmem.c.

Referenced by luaM_malloc_(), and luaM_realloc_().

lmem_c

#define lmem_c

Definition at line 7 of file lua-5.4.3/src/lmem.c.

LUA_CORE

#define LUA_CORE

Definition at line 8 of file lua-5.4.3/src/lmem.c.

MINSIZEARRAY

#define MINSIZEARRAY   4

Definition at line 76 of file lua-5.4.3/src/lmem.c.

Referenced by luaM_growaux_().

Function Documentation

luaM_free_()

void luaM_free_	(	lua_State *	L,
		void *	block,
		size_t	osize )

Definition at line 132 of file lua-5.4.3/src/lmem.c.

                                                          {
  global_State *g = G(L);
  lua_assert((osize == 0) == (block == NULL));
  (*g->frealloc)(g->ud, block, osize, 0);
  g->GCdebt -= osize;
}

References block(), global_State::frealloc, G, global_State::GCdebt, lua_assert, NULL, and global_State::ud.

luaM_growaux_()

void * luaM_growaux_	(	lua_State *	L,
		void *	block,
		int	nelems,
		int *	psize,
		int	size_elems,
		int	limit,
		const char *	what )

Definition at line 79 of file lua-5.4.3/src/lmem.c.

                                                                  {
  void *newblock;
  int size = *psize;
  if (nelems + 1 <= size)  /* does one extra element still fit? */
    return block;  /* nothing to be done */
  if (size >= limit / 2) {  /* cannot double it? */
    if (l_unlikely(size >= limit))  /* cannot grow even a little? */
      luaG_runerror(L, "too many %s (limit is %d)", what, limit);
    size = limit;  /* still have at least one free place */
  }
  else {
    size *= 2;
    if (size < MINSIZEARRAY)
      size = MINSIZEARRAY;  /* minimum size */
  }
  lua_assert(nelems + 1 <= size && size <= limit);
  /* 'limit' ensures that multiplication will not overflow */
  newblock = luaM_saferealloc_(L, block, cast_sizet(*psize) * size_elems,
                                         cast_sizet(size) * size_elems);
  *psize = size;  /* update only when everything else is OK */
  return newblock;
}

References block(), cast_sizet, lua_assert, luaG_runerror(), luaM_saferealloc_(), and MINSIZEARRAY.

luaM_malloc_()

void * luaM_malloc_	(	lua_State *	L,
		size_t	size,
		int	tag )

Definition at line 187 of file lua-5.4.3/src/lmem.c.

                                                        {
  if (size == 0)
    return NULL;  /* that's all */
  else {
    global_State *g = G(L);
    void *newblock = firsttry(g, NULL, tag, size);
    if (l_unlikely(newblock == NULL)) {
      newblock = tryagain(L, NULL, tag, size);
      if (newblock == NULL)
        luaM_error(L);
    }
    g->GCdebt += size;
    return newblock;
  }
}

References firsttry, G, global_State::GCdebt, luaM_error, NULL, and tryagain().

luaM_realloc_()

void * luaM_realloc_	(	lua_State *	L,
		void *	block,
		size_t	osize,
		size_t	nsize )

Definition at line 162 of file lua-5.4.3/src/lmem.c.

                                                                            {
  void *newblock;
  global_State *g = G(L);
  lua_assert((osize == 0) == (block == NULL));
  newblock = firsttry(g, block, osize, nsize);
  if (l_unlikely(newblock == NULL && nsize > 0)) {
    newblock = tryagain(L, block, osize, nsize);
    if (newblock == NULL)  /* still no memory? */
      return NULL;  /* do not update 'GCdebt' */
  }
  lua_assert((nsize == 0) == (newblock == NULL));
  g->GCdebt = (g->GCdebt + nsize) - osize;
  return newblock;
}

References block(), firsttry, G, global_State::GCdebt, lua_assert, NULL, and tryagain().

Referenced by luaM_saferealloc_().

luaM_saferealloc_()

void * luaM_saferealloc_	(	lua_State *	L,
		void *	block,
		size_t	osize,
		size_t	nsize )

Definition at line 178 of file lua-5.4.3/src/lmem.c.

                                                                  {
  void *newblock = luaM_realloc_(L, block, osize, nsize);
  if (l_unlikely(newblock == NULL && nsize > 0))  /* allocation failed? */
    luaM_error(L);
  return newblock;
}

References block(), luaM_error, luaM_realloc_(), and NULL.

Referenced by luaM_growaux_(), and luaM_shrinkvector_().

luaM_shrinkvector_()

void * luaM_shrinkvector_	(	lua_State *	L,
		void *	block,
		int *	size,
		int	final_n,
		int	size_elem )

Definition at line 110 of file lua-5.4.3/src/lmem.c.

                                                      {
  void *newblock;
  size_t oldsize = cast_sizet((*size) * size_elem);
  size_t newsize = cast_sizet(final_n * size_elem);
  lua_assert(newsize <= oldsize);
  newblock = luaM_saferealloc_(L, block, oldsize, newsize);
  *size = final_n;
  return newblock;
}

References block(), cast_sizet, lua_assert, and luaM_saferealloc_().

luaM_toobig()

l_noret luaM_toobig

(

lua_State *

L

)

Definition at line 124 of file lua-5.4.3/src/lmem.c.

                                   {
  luaG_runerror(L, "memory allocation error: block too big");
}

References luaG_runerror().

tryagain()

static void * tryagain ( lua_State * L, void * block, size_t osize, size_t nsize )

static

Definition at line 148 of file lua-5.4.3/src/lmem.c.

                                                   {
  global_State *g = G(L);
  if (completestate(g) && !g->gcstopem) {
    luaC_fullgc(L, 1);  /* try to free some memory... */
    return (*g->frealloc)(g->ud, block, osize, nsize);  /* try again */
  }
  else return NULL;  /* cannot free any memory without a full state */
}

References block(), completestate, global_State::frealloc, G, global_State::gcstopem, luaC_fullgc(), NULL, and global_State::ud.

Referenced by luaM_malloc_(), and luaM_realloc_().