Fix testsuite driver for a profiling compiler
[ghc.git] / rts / RetainerProfile.h
index b2adf71..d92563f 100644 (file)
@@ -21,6 +21,9 @@ void endRetainerProfiling  ( void );
 void retainerProfile       ( void );
 void resetStaticObjectForRetainerProfiling( StgClosure *static_objects );
 
+// flip is either 1 or 0, changed at the beginning of retainerProfile()
+// It is used to tell whether a retainer set has been touched so far
+// during this pass.
 extern StgWord flip;
 
 // extract the retainer set field from c
@@ -40,7 +43,7 @@ retainerSetOf( StgClosure *c )
 
 // Used by Storage.c:memInventory()
 #ifdef DEBUG
-extern lnat retainerStackBlocks ( void );
+extern W_ retainerStackBlocks ( void );
 #endif
 
 #include "EndPrivate.h"