X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRetainerSet.c;h=3196843604e730552839ba6ab7490c4b34504449;hb=0d52a0a134871d317b5f8b53a952c882ce5ae5b6;hp=6834676dafd794f392922c4b34464d2a3a0ce0a9;hpb=2548429c5147b40adc0f14a78d24659462358d41;p=ghc-hetmet.git

diff --git a/ghc/rts/RetainerSet.c b/ghc/rts/RetainerSet.c
index 6834676..3196843 100644
--- a/ghc/rts/RetainerSet.c
+++ b/ghc/rts/RetainerSet.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: RetainerSet.c,v 1.4 2003/03/25 17:58:49 sof Exp $
  *
  * (c) The GHC Team, 2001
  * Author: Sungwoo Park
@@ -52,7 +51,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));
@@ -148,7 +147,7 @@ addElement(retainer r, RetainerSet *rs)
     StgWord hk;         // Hash Key
 
 #ifdef DEBUG_RETAINER
-    // fprintf(stderr, "addElement(%p, %p) = ", r, rs);
+    // debugBelch("addElement(%p, %p) = ", r, rs);
 #endif
 
     ASSERT(rs != NULL);
@@ -188,7 +187,7 @@ addElement(retainer r, RetainerSet *rs)
 	if (i < rs->num) continue;
 
 #ifdef DEBUG_RETAINER
-	// fprintf(stderr, "%p\n", nrs);
+	// debugBelch("%p\n", nrs);
 #endif
 	// The set we are seeking already exists!
 	return nrs;
@@ -211,7 +210,7 @@ addElement(retainer r, RetainerSet *rs)
     hashTable[hash(hk)] = nrs;
 
 #ifdef DEBUG_RETAINER
-    // fprintf(stderr, "%p\n", nrs);
+    // debugBelch("%p\n", nrs);
 #endif
     return nrs;
 }