X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FArena.c;h=76ac23cf88d3e81c65e2208627fefc4c48cb2946;hb=524a6f8bdf35c37998072fc1692c681c45a336f7;hp=ea109accbf1e84610c978d0c4694e0263ce19ebc;hpb=2548429c5147b40adc0f14a78d24659462358d41;p=ghc-hetmet.git diff --git a/ghc/rts/Arena.c b/ghc/rts/Arena.c index ea109ac..76ac23c 100644 --- a/ghc/rts/Arena.c +++ b/ghc/rts/Arena.c @@ -1,5 +1,4 @@ /* ----------------------------------------------------------------------------- - $Id: Arena.c,v 1.6 2003/03/25 17:58:47 sof Exp $ (c) The University of Glasgow 2001 Arena allocation. Arenas provide fast memory allocation at the @@ -19,12 +18,13 @@ which most allocations are small. -------------------------------------------------------------------------- */ -#include #include "Rts.h" #include "RtsUtils.h" #include "BlockAlloc.h" #include "Arena.h" +#include + // Each arena struct is allocated using malloc(). struct _Arena { bdescr *current;