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/TraverseHeap.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/TraverseHeap.h')
| -rw-r--r-- | rts/TraverseHeap.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/TraverseHeap.h b/rts/TraverseHeap.h index a06a7d2f18..cc217a8858 100644 --- a/rts/TraverseHeap.h +++ b/rts/TraverseHeap.h @@ -22,7 +22,7 @@ void resetStaticObjectForProfiling(StgClosure *static_objects); extern StgWord flip; #define isTravDataValid(c) \ - ((((StgWord)(c)->header.prof.hp.trav.lsb & 1) ^ flip) == 0) + ((((StgWord)(c)->header.prof.hp.trav & 1) ^ flip) == 0) typedef struct traverseState_ traverseState; |