[commit: ghc] master: Use StgHalfWord instead of a CPP #if (69c974f)
git at git.haskell.org
git at git.haskell.org
Thu May 12 15:30:34 UTC 2016
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/69c974fef825cfc286c9cad17ed8f4e138bf84fc/ghc
>---------------------------------------------------------------
commit 69c974fef825cfc286c9cad17ed8f4e138bf84fc
Author: Tomas Carnecky <tomas.carnecky at gmail.com>
Date: Thu May 12 15:44:42 2016 +0200
Use StgHalfWord instead of a CPP #if
Reviewers: simonmar, bgamari, austin
Reviewed By: bgamari, austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2183
>---------------------------------------------------------------
69c974fef825cfc286c9cad17ed8f4e138bf84fc
rts/RetainerProfile.c | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 04bbd82..7c3b9da 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;
More information about the ghc-commits
mailing list