summaryrefslogtreecommitdiff
path: root/rts/RetainerProfile.h
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2019-07-16 13:49:16 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-02-17 11:21:10 -0500
commitd7bbaf5d45fd7b88ce331659abe29d16d086684b (patch)
tree9e3dd30895822ba3f01972008d6313803d6852aa /rts/RetainerProfile.h
parenteecdb0531d98d59d5734828356e65f0d4b9b2977 (diff)
downloadhaskell-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.h12
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);