testsuite/tests/ghci/prog014/Primop.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE GHCForeignImportPrim, MagicHash,
             UnliftedFFITypes, UnboxedTuples #-}

import GHC.Exts

foreign import prim "dummy"
   dummy :: Word# -> Word#

foreign import prim "dummy2"
   dummy2 :: Any -> State# RealWorld -> (# State# RealWorld, Word# #)