[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