/* -----------------------------------------------------------------------------
- * $Id: RetainerProfile.h,v 1.2 2001/11/26 16:54:21 simonmar Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
extern void retainerProfile ( void );
extern void resetStaticObjectForRetainerProfiling ( void );
-extern StgWord flip;
+extern StgWord RTS_VAR(flip);
// extract the retainer set field from c
#define RSET(c) ((c)->header.prof.hp.rs)
return (RetainerSet *)((StgWord)RSET(c) ^ flip);
}
-// firstStack is exported because memInventory() in Schedule.c uses it.
+// Used by Storage.c:memInventory()
#ifdef DEBUG
-extern bdescr *firstStack;
+extern lnat retainerStackBlocks ( void );
#endif
#endif /* PROFILING */