From 2b5bc5d1a81579a76c13e638de2592e2c39c73f0 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 16 Nov 1994 15:39:16 -0200
Subject: new module for memory allocation

---
 luamem.c | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 luamem.c

(limited to 'luamem.c')

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;
+}
+
-- 
cgit v1.2.3-55-g6feb