36 lines
494 B
C
36 lines
494 B
C
/*
|
|
** mem.c
|
|
** TecCGraf - PUC-Rio
|
|
*/
|
|
|
|
char *rcs_mem = "$Id: $";
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include "mem.h"
|
|
#include "lua.h"
|
|
|
|
void luaI_free (void *block)
|
|
{
|
|
free(block);
|
|
}
|
|
|
|
|
|
void *luaI_malloc (unsigned long size)
|
|
{
|
|
void *block = malloc(size);
|
|
if (block == NULL)
|
|
lua_error("not enough memory");
|
|
return block;
|
|
}
|
|
|
|
|
|
void *luaI_realloc (void *oldblock, unsigned long size)
|
|
{
|
|
void *block = realloc(oldblock, size);
|
|
if (block == NULL)
|
|
lua_error("not enough memory");
|
|
return block;
|
|
}
|
|
|