core: Assert g_free in alloc.

* src/mes.c (alloc): Assert g_free.
This commit is contained in:
Jan Nieuwenhuizen 2018-11-11 10:01:49 +01:00
parent 82df50eae9
commit 331a0c29e6
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -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;
}