1 files changed, 35 insertions, 0 deletions
diff --git a/luamem.c b/luamem.c
new file mode 100644
index 00000000..ddbd5e47
--- /dev/null
+++ b/luamem.c
@@ -0,0 +1,35 @@
+/*
+** 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;
+}

diff --git a/luamem.c b/luamem.c new file mode 100644 index 00000000..ddbd5e47 --- /dev/null +++ b/luamem.c
@@ -0,0 +1,35 @@
	1	/*
	2	** mem.c
	3	** TecCGraf - PUC-Rio
	4	*/
	5
	6	char *rcs_mem = "$Id: $";
	7
	8	#include <stdlib.h>
	9
	10	#include "mem.h"
	11	#include "lua.h"
	12
	13	void luaI_free (void *block)
	14	{
	15	free(block);
	16	}
	17
	18
	19	void *luaI_malloc (unsigned long size)
	20	{
	21	void *block = malloc(size);
	22	if (block == NULL)
	23	lua_error("not enough memory");
	24	return block;
	25	}
	26
	27
	28	void luaI_realloc (void oldblock, unsigned long size)
	29	{
	30	void *block = realloc(oldblock, size);
	31	if (block == NULL)
	32	lua_error("not enough memory");
	33	return block;
	34	}
	35