Update linker_unload to cope with CAFs
authorSimon Marlow <marlowsd@gmail.com>
Thu, 21 Nov 2013 12:20:13 +0000 (12:20 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 21 Nov 2013 13:26:27 +0000 (13:26 +0000)
testsuite/tests/rts/Test.hs
testsuite/tests/rts/linker_unload.c

index c01485e..a65e7d3 100644 (file)
@@ -1,6 +1,11 @@
 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
+
index 9850318..55870c3 100644 (file)
@@ -30,7 +30,7 @@ int main (int argc, char *argv[])
 
     hs_init(&argc, &argv);
 
-    initLinker();
+    initLinker_(0);
 
     for (i=1; i < argc; i++) {
 #if defined(mingw32_HOST_OS)