blob: f32e7bc78e43152fb9f29966d041dc26b2d0f18d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{-# LANGUAGE GHCForeignImportPrim #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnliftedFFITypes #-}
{-# LANGUAGE NoImplicitPrelude #-}
module TestPrim
(
tpo#
, tpo
) where
import GHC.Base -- Int and I#
foreign import prim "test_prim_op" tpo# :: Int# -> Int# -> Int#
tpo :: Int -> Int -> Int
tpo (I# a) (I# b) = I# (tpo# a b)
|
