diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-07-16 13:39:57 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-02-17 11:21:10 -0500 |
| commit | eecdb0531d98d59d5734828356e65f0d4b9b2977 (patch) | |
| tree | 553f70bfe8e102143f62e1aa246792a0d147bcfc /rts/RetainerProfile.h | |
| parent | 7bca0e545998f737c6f6eff08b2c2c38d7558976 (diff) | |
| download | haskell-eecdb0531d98d59d5734828356e65f0d4b9b2977.tar.gz | |
rts: TraverseHeap: Simplify profiling header
Having a union in the closure profiling header really just complicates
things so get back to basics, we just have a single StgWord there for now.
Diffstat (limited to 'rts/RetainerProfile.h')
| -rw-r--r-- | rts/RetainerProfile.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RetainerProfile.h b/rts/RetainerProfile.h index ba0161c98d..e7a280fa5d 100644 --- a/rts/RetainerProfile.h +++ b/rts/RetainerProfile.h @@ -21,7 +21,7 @@ void endRetainerProfiling ( void ); void retainerProfile ( void ); // extract the retainer set field from c -#define RSET(c) ((c)->header.prof.hp.trav.rs) +#define RSET(c) ((c)->header.prof.hp.trav) static inline RetainerSet * retainerSetOf( const StgClosure *c ) |