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.c | |
| 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.c')
| -rw-r--r-- | rts/RetainerProfile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index b89519b05d..a996e8d2e2 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -251,7 +251,7 @@ associate( StgClosure *c, RetainerSet *s ) { // StgWord has the same size as pointers, so the following type // casting is okay. - RSET(c) = (RetainerSet *)((StgWord)s | flip); + RSET(c) = ((StgWord)s | flip); } static bool |