Merge branch 'master' of dippy:c:/msys/1.0/home/ian/ghc/.
authorIan Lynagh <igloo@earth.li>
Fri, 17 Jun 2011 18:12:06 +0000 (19:12 +0100)
committerIan Lynagh <igloo@earth.li>
Fri, 17 Jun 2011 18:12:06 +0000 (19:12 +0100)
compiler/cmm/CmmRewriteAssignments.hs
compiler/cmm/CmmSpillReload.hs

index 56045d5..46e877c 100644 (file)
@@ -3,9 +3,14 @@
 {-# LANGUAGE FlexibleContexts #-}
 
 {-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
-#if __GLASGOW_HASKELL__ < 701
--- GHC 7.0.1 improved incomplete pattern warnings with GADTs
+
+-- GHC 7.0.1 improved incomplete pattern warnings with GADTs, but for
+-- older compilers we need to turn warn-incomplete-patterns off.
+-- However, older compilers don't support OPTIONS_GHC inside CPP, so
+-- we instead always turn it off, and then conditionally turn it back on.
 {-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
+#if __GLASGOW_HASKELL__ >= 700
+{-# OPTIONS_GHC -fwarn-incomplete-patterns #-}
 #endif
 
 -- This module implements generalized code motion for assignments to
index e3f631d..031d200 100644 (file)
@@ -3,9 +3,14 @@
 -- If this module lives on I'd like to get rid of this flag in due course
 
 {-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
-#if __GLASGOW_HASKELL__ < 701
--- GHC 7.0.1 improved incomplete pattern warnings with GADTs
+
+-- GHC 7.0.1 improved incomplete pattern warnings with GADTs, but for
+-- older compilers we need to turn warn-incomplete-patterns off.
+-- However, older compilers don't support OPTIONS_GHC inside CPP, so
+-- we instead always turn it off, and then conditionally turn it back on.
 {-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
+#if __GLASGOW_HASKELL__ >= 700
+{-# OPTIONS_GHC -fwarn-incomplete-patterns #-}
 #endif
 
 module CmmSpillReload