Permalink
Browse files

Add test files for mutually recursive modules.

  • Loading branch information...
1 parent 4b5a2a1 commit 8f675ebd7016daf0955a15e5b2720360110a4dab @nominolo nominolo committed Jan 15, 2011
Showing with 32 additions and 1 deletion.
  1. +3 −1 .gitignore
  2. +4 −0 tests/GHC/Bool.hs
  3. +11 −0 tests/MutRecA.hs
  4. +8 −0 tests/MutRecB.hs
  5. +6 −0 tests/MutRecB.hs-boot
View
@@ -2,9 +2,11 @@
asm_offsets.incl
gen_offs
*.hi
+*.hi-boot
+*.o-boot
.deps
*~
-tests/*.lcbc
+*.lcbc
# Util executables
utils/genopcodes
utils/print_config
View
@@ -0,0 +1,4 @@
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+module GHC.Bool (Bool(..)) where
+
+data Bool = False | True
View
@@ -0,0 +1,11 @@
+{-# LANGUAGE NoImplicitPrelude, MagicHash #-}
+module MutRecA where
+
+import GHC.Prim
+
+import {-# SOURCE #-} MutRecB
+
+data A = A Int# B
+
+f :: A -> Int#
+f (A n _) = n
View
@@ -0,0 +1,8 @@
+{-# LANGUAGE NoImplicitPrelude, MagicHash #-}
+module MutRecB where
+
+import GHC.Bool
+
+import MutRecA
+
+data B = B Bool A
View
@@ -0,0 +1,6 @@
+{-# LANGUAGE NoImplicitPrelude, MagicHash #-}
+module MutRecB where
+
+import GHC.Bool
+
+data B -- = B Bool A

0 comments on commit 8f675eb

Please sign in to comment.