fix 32-bit build breakage
authorSimon Marlow <marlowsd@gmail.com>
Fri, 19 Aug 2011 07:14:15 +0000 (08:14 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 19 Aug 2011 07:14:15 +0000 (08:14 +0100)
compiler/prelude/primops.txt.pp

index ee0ec22..8cad832 100644 (file)
@@ -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.}