mirror of https://github.com/lua/lua.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
1020 B
55 lines
1020 B
/*
|
|
** mem.c
|
|
** TecCGraf - PUC-Rio
|
|
*/
|
|
|
|
char *rcs_mem = "$Id: mem.c,v 1.7 1996/02/04 16:59:12 roberto Exp roberto $";
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
|
|
#include "mem.h"
|
|
#include "lua.h"
|
|
#include "table.h"
|
|
|
|
static void mem_error (void)
|
|
{
|
|
Long recovered = luaI_collectgarbage(); /* try to collect garbage */
|
|
if (recovered)
|
|
lua_error("not enough memory");
|
|
else
|
|
{ /* if there is no garbage then must exit */
|
|
fprintf(stderr, "lua error: memory overflow - unable to recover\n");
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
void luaI_free (void *block)
|
|
{
|
|
if (block)
|
|
{
|
|
*((int *)block) = -1; /* to catch errors */
|
|
free(block);
|
|
}
|
|
}
|
|
|
|
|
|
void *luaI_malloc (unsigned long size)
|
|
{
|
|
void *block = malloc((size_t)size);
|
|
if (block == NULL)
|
|
mem_error();
|
|
return block;
|
|
}
|
|
|
|
|
|
void *luaI_realloc (void *oldblock, unsigned long size)
|
|
{
|
|
void *block = oldblock ? realloc(oldblock, (size_t)size) :
|
|
malloc((size_t)size);
|
|
if (block == NULL)
|
|
mem_error();
|
|
return block;
|
|
}
|
|
|
|
|