Commit 8de2c49b authored by simonmar's avatar simonmar
Browse files

[project @ 2002-02-05 09:49:35 by simonmar]

update to new FFI syntax and update sample output
parent 4e4ef30a
......@@ -4,8 +4,8 @@ module ShouldFail where
import PrelGHC
foreign export foo :: Int# -> IO ()
foreign export ccall foo :: Int# -> IO ()
foo i | i ==# 0# = return ()
foreign export bar :: Int -> Int#
foreign export ccall bar :: Int -> Int#
bar _ = 42#
./cc005.hs:7:
cc005.hs:7:
Unacceptable argument type in foreign declaration: Int#
When checking declaration: foreign export foo foo :: Int# -> IO ()
When checking declaration:
foreign export ccall "foo" foo :: Int# -> IO ()
./cc005.hs:10:
cc005.hs:10:
Unacceptable result type in foreign declaration: Int#
When checking declaration: foreign export bar bar :: Int -> Int#
When checking declaration:
foreign export ccall "bar" bar :: Int -> Int#
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment