ghcのllvmバックエンドをmacで使う - Qiita

{-# LANGUAGE UnboxedTuples #-} {-# LANGUAGE MagicHash #-} import GHC.Exts import GHC.Prim plus2 :: Int64X4# -> Int64X4# plus2 = plusInt64X4# (broadcastInt64X4# 2#) main :: IO () main = do let st = packInt64X4# (# 243#, 12#, 46#, 1258# #) p2 = plus2 st (# a,b,c,d #) = unpackInt64X4# p2 print $ I# a $ ghc -O2 simd.hs [1 of 1] Compiling Main ( simd.hs, simd.o ) ghc: sorry! (unimplemented feature or k