diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2019-07-16 13:49:16 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-02-17 11:21:10 -0500 |
commit | d7bbaf5d45fd7b88ce331659abe29d16d086684b (patch) | |
tree | 9e3dd30895822ba3f01972008d6313803d6852aa /rts/RetainerProfile.h | |
parent | eecdb0531d98d59d5734828356e65f0d4b9b2977 (diff) | |
download | haskell-d7bbaf5d45fd7b88ce331659abe29d16d086684b.tar.gz |
rts: TraverseHeap: Make trav. data macros into functions
This allows the global 'flip' variable not to be exported. This allows a
future commit to also make it part of the traversalState struct.
Diffstat (limited to 'rts/RetainerProfile.h')
-rw-r--r-- | rts/RetainerProfile.h | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/rts/RetainerProfile.h b/rts/RetainerProfile.h index e7a280fa5d..6a2dc5e846 100644 --- a/rts/RetainerProfile.h +++ b/rts/RetainerProfile.h @@ -20,17 +20,7 @@ void initRetainerProfiling ( void ); void endRetainerProfiling ( void ); void retainerProfile ( void ); -// extract the retainer set field from c -#define RSET(c) ((c)->header.prof.hp.trav) - -static inline RetainerSet * -retainerSetOf( const StgClosure *c ) -{ - ASSERT( isTravDataValid(c) ); - // StgWord has the same size as pointers, so the following type - // casting is okay. - return (RetainerSet *)((StgWord)RSET(c) ^ flip); -} +RetainerSet* retainerSetOf( const StgClosure *c ); // Used by GC.c W_ retainerStackBlocks(void); |