Fix testsuite driver for a profiling compiler
[ghc.git] / rts / RetainerProfile.h
index 0e75327..d92563f 100644 (file)
@@ -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"