[project @ 2003-12-16 13:27:31 by simonmar]

[ghc-hetmet.git] / ghc / rts / RetainerSet.c

diff --git a/ghc/rts/RetainerSet.c b/ghc/rts/RetainerSet.c
index 83e0d9f..45b74b0 100644 (file)
--- a/ghc/rts/RetainerSet.c
+++ b/ghc/rts/RetainerSet.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RetainerSet.c,v 1.2 2001/11/26 16:54:21 simonmar Exp $
+ * $Id: RetainerSet.c,v 1.5 2003/11/12 17:49:08 sof Exp $
  *
  * (c) The GHC Team, 2001
  * Author: Sungwoo Park
@@ -10,6 +10,8 @@
 
 #ifdef PROFILING
 
+#include <stdlib.h>
+
 #include "Rts.h"
 #include "RtsFlags.h"
 #include "Stats.h"
@@ -50,7 +52,7 @@ RetainerSet rs_MANY = {
 /* -----------------------------------------------------------------------------
  * calculate the size of a RetainerSet structure
  * -------------------------------------------------------------------------- */
-static inline size_t
+STATIC_INLINE size_t
 sizeofRetainerSet( int elems )
 {
     return (sizeof(RetainerSet) + elems * sizeof(retainer));
@@ -491,7 +493,7 @@ outputAllRetainerSet(FILE *prof_file)
        fprintf(prof_file, "}\n");
     }
 
-    free(rsArray);
+    stgFree(rsArray);
 }
 #endif // SECOND_APPROACH