Wibbles for new UNPACK stuff
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 19 Dec 2012 17:26:07 +0000 (17:26 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 19 Dec 2012 17:26:07 +0000 (17:26 +0000)
testsuite/tests/rename/should_fail/rnfail055.stderr
testsuite/tests/typecheck/should_compile/UnboxStrictPrimitiveFields.hs
testsuite/tests/typecheck/should_compile/all.T
testsuite/tests/typecheck/should_fail/all.T

index 45e0965..c87349d 100644 (file)
@@ -75,7 +75,7 @@ RnFail055.hs-boot:23:6:
     Boot file:   data T6
                      No C type associated
                      RecFlag NonRecursive
-                     = T6 :: Int -> T6 HasWrapper Stricts: !
+                     = T6 :: Int -> T6 HasWrapper Stricts: SrictNotUnpacked
                      FamilyInstance: none
 
 RnFail055.hs-boot:25:6:
index e1549bd..f814db9 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE MagicHash #-}
-{-# OPTIONS_GHC -funbox-strict-primitive-fields #-}
+{-# OPTIONS_GHC -funbox-small-strict-fields #-}
 module Test where
 
 import GHC.Exts
index cb24574..5905bb7 100644 (file)
@@ -386,7 +386,7 @@ test('T7171',normal,run_command,
      ['$MAKE -s --no-print-directory T7171'])
 test('T7173', normal, compile, [''])
 test('T7196', normal, compile, [''])
-test('T7050', normal, compile, [''])
+test('T7050', normal, compile, ['-O'])
 test('T7312', normal, compile, [''])
 test('T7384', normal, compile, [''])
 test('T7451', normal, compile, [''])
index 9704f18..2e1ec6e 100644 (file)
@@ -214,7 +214,7 @@ test('T3102', normal, compile_fail, [''])
 test('T3613', normal, compile_fail, [''])
 test('fd-loop', normal, compile_fail, [''])
 test('T3950', normal, compile_fail, [''])
-test('T3966', normal, compile_fail, [''])
+test('T3966', normal, compile_fail, ['-O'])
 test('IPFail', normal, compile_fail, [''])
 
 test('T3468', extra_clean(['T3468.hi-boot', 'T3468.o-boot']),