core: Assert g_free in alloc.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 09:01:49 +0000 (10:01 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 09:01:49 +0000 (10:01 +0100)
* src/mes.c (alloc): Assert g_free.

src/mes.c

index ca9c9bf6790d927d824f06bbd0d46a8a2429ae2a..698ebe2746a57867e0d5de57c52e6272b568e1e3 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -391,6 +391,8 @@ alloc (long n)
 {
   SCM x = g_free;
   g_free += n;
+  if (g_free > ARENA_SIZE)
+    assert (!"alloc: out of memory");
   return x;
 }