Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/548765e28739af5479e47e05bc4e6051cd709c66

>---------------------------------------------------------------

commit 548765e28739af5479e47e05bc4e6051cd709c66
Author: Simon Marlow <[email protected]>
Date:   Fri Aug 19 08:14:15 2011 +0100

    fix 32-bit build breakage

>---------------------------------------------------------------

 compiler/prelude/primops.txt.pp |    7 +------
 1 files changed, 1 insertions(+), 6 deletions(-)

diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp
index ee0ec22..8cad832 100644
--- a/compiler/prelude/primops.txt.pp
+++ b/compiler/prelude/primops.txt.pp
@@ -308,13 +308,8 @@ primop   PopCnt16Op   "popCnt16#"   Monadic   Word# -> 
Word#
     {Count the number of set bits in the lower 16 bits of a word.}
 primop   PopCnt32Op   "popCnt32#"   Monadic   Word# -> Word#
     {Count the number of set bits in the lower 32 bits of a word.}
-#if WORD_SIZE_IN_BITS < 64
-primop   PopCnt64Op   "popCnt64#"   Monadic   Word64# -> Word#
-    {Count the number of set bits in a 64-bit word.}
-#else
-primop   PopCnt64Op   "popCnt64#"   Monadic   Word# -> Word#
+primop   PopCnt64Op   "popCnt64#"   GenPrimOp   WORD64 -> Word#
     {Count the number of set bits in a 64-bit word.}
-#endif
 primop   PopCntOp   "popCnt#"   Monadic   Word# -> Word#
     {Count the number of set bits in a word.}
 



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to