Typos in comments [ci skip]
[ghc.git] / rts / RetainerProfile.h
index 0e75327..180c4e2 100644 (file)
@@ -33,7 +33,7 @@ extern StgWord flip;
   ((((StgWord)(c)->header.prof.hp.rs & 1) ^ flip) == 0)
 
 static inline RetainerSet *
-retainerSetOf( StgClosure *c )
+retainerSetOf( const StgClosure *c )
 {
     ASSERT( isRetainerSetFieldValid(c) );
     // StgWord has the same size as pointers, so the following type
@@ -43,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"