/* -----------------------------------------------------------------------------
- $Id: Arena.c,v 1.5 2003/02/18 05:40:20 sof Exp $
(c) The University of Glasgow 2001
Arena allocation. Arenas provide fast memory allocation at the
which most allocations are small.
-------------------------------------------------------------------------- */
-#include <stdlib.h>
#include "Rts.h"
#include "RtsUtils.h"
#include "BlockAlloc.h"
#include "Arena.h"
+#include <stdlib.h>
+
// Each arena struct is allocated using malloc().
struct _Arena {
bdescr *current;
ASSERT(arena_blocks >= 0);
freeGroup(bd);
}
- free(arena);
+ stgFree(arena);
}
unsigned long