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 1d3d28dfbe
commit 216936e085
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 0 deletions

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