testsuite/tests/codeGen/should_run/PopCnt.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE MagicHash,GHCForeignImportPrim,UnliftedFFITypes #-}
module Main where

import GHC.Exts

foreign import prim "do_popcnt32" popcnt32 :: Int# -> Int#

main = print (I# (popcnt32 0xffff#))