X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FArena.c;h=ea109accbf1e84610c978d0c4694e0263ce19ebc;hb=9e6162f9d0102d1f5738bf78258b24ea5a647ea4;hp=5043f45fca98764151f64e1a0e904e19dcc87705;hpb=9508bce26ec071c7414336c36f23f03f936ee2d8;p=ghc-hetmet.git

diff --git a/ghc/rts/Arena.c b/ghc/rts/Arena.c
index 5043f45..ea109ac 100644
--- a/ghc/rts/Arena.c
+++ b/ghc/rts/Arena.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
-   $Id: Arena.c,v 1.5 2003/02/18 05:40:20 sof Exp $ 
+   $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
@@ -109,7 +109,7 @@ arenaFree( Arena *arena )
 	ASSERT(arena_blocks >= 0);
 	freeGroup(bd);
     }
-    free(arena);
+    stgFree(arena);
 }
 
 unsigned long