add mrb_malloc_simple() that returns NULL on error

1 files changed, 13 insertions, 0 deletions

diff --git a/src/gc.c b/src/gc.c
index 3e33c052c..7eee61dc1 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -183,6 +183,19 @@ mrb_malloc(mrb_state *mrb, size_t len)
 }
 
 void*
+mrb_malloc_simple(mrb_state *mrb, size_t len)
+{
+  void *p2;
+
+  p2 = (mrb->allocf)(mrb, 0, len, mrb->ud);
+  if (!p2 && len > 0 && mrb->heaps) {
+    mrb_garbage_collect(mrb);
+    p2 = (mrb->allocf)(mrb, 0, len, mrb->ud);
+  }
+  return p2;
+}
+
+void*
 mrb_calloc(mrb_state *mrb, size_t nelem, size_t len)
 {
   void *p;