diff options
| author | Tomas Carnecky <tomas.carnecky@gmail.com> | 2016-05-12 15:44:42 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-05-12 17:33:39 +0200 |
| commit | 69c974fef825cfc286c9cad17ed8f4e138bf84fc (patch) | |
| tree | 10ff5ddcab66c7a5c9be1fb992a50af81afcfd33 | |
| parent | 6bf0eef74d2b2ce9a48c7acc08ca2a1c0c8a7fbc (diff) | |
| download | haskell-69c974fef825cfc286c9cad17ed8f4e138bf84fc.tar.gz | |
Use StgHalfWord instead of a CPP #if
Reviewers: simonmar, bgamari, austin
Reviewed By: bgamari, austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2183
| -rw-r--r-- | rts/RetainerProfile.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 04bbd82e04..7c3b9dadce 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -117,14 +117,9 @@ typedef union { // layout.payload struct { - // See StgClosureInfo in InfoTables.h -#if SIZEOF_VOID_P == 8 - StgWord32 pos; - StgWord32 ptrs; -#else - StgWord16 pos; - StgWord16 ptrs; -#endif + // See StgClosureInfo in InfoTables.h + StgHalfWord pos; + StgHalfWord ptrs; StgPtr payload; } ptrs; |