Commit 13fd6e2d authored by Simon Marlow's avatar Simon Marlow
Browse files

Update linker_unload to cope with CAFs

parent a1ca534a
module Test where
f :: Int -> Int
f x = x + 1
f x = x + head caf
-- make sure that even when we have a CAF, we can unload the code
caf :: [Int]
caf = [1..10]
foreign export ccall f :: Int -> Int
......@@ -30,7 +30,7 @@ int main (int argc, char *argv[])
hs_init(&argc, &argv);
for (i=1; i < argc; i++) {
#if defined(mingw32_HOST_OS)
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