blob: cdfcfc71fdefd056ad359c442955f90a0d506d32 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
{-# options -fffi #-}
import Foreign
import Foreign.C.Types
main = do
wprint <- wrap8 print
call8 wprint
wprint <- wrap16 print
call16 wprint
wprint <- wrap32 print
call32 wprint
wprint <- wrap64 print
call64 wprint
foreign import ccall "wrapper"
wrap8 :: (Int8 -> IO ()) -> IO (FunPtr (Int8 -> IO ()))
foreign import ccall "FunPtrBug.h call8"
call8 :: FunPtr (Int8 -> IO ()) -> IO ()
foreign import ccall "wrapper"
wrap16 :: (Int16 -> IO ()) -> IO (FunPtr (Int16 -> IO ()))
foreign import ccall "FunPtrBug.h call16"
call16 :: FunPtr (Int16 -> IO ()) -> IO ()
foreign import ccall "wrapper"
wrap32 :: (Int32 -> IO ()) -> IO (FunPtr (Int32 -> IO ()))
foreign import ccall "FunPtrBug.h call32"
call32 :: FunPtr (Int32 -> IO ()) -> IO ()
foreign import ccall "wrapper"
wrap64 :: (Int64 -> IO ()) -> IO (FunPtr (Int64 -> IO ()))
foreign import ccall "FunPtrBug.h call64"
call64 :: FunPtr (Int64 -> IO ()) -> IO ()
|
