[project @ 2004-11-10 03:20:31 by wolfgang]

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

diff --git a/ghc/rts/RetainerSet.c b/ghc/rts/RetainerSet.c
index 45b74b0..3196843 100644 (file)
--- a/ghc/rts/RetainerSet.c
+++ b/ghc/rts/RetainerSet.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: RetainerSet.c,v 1.5 2003/11/12 17:49:08 sof Exp $
  *
  * (c) The GHC Team, 2001
  * Author: Sungwoo Park
@@ -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;
 }