X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegSpillClean.hs;h=0ec802349da19c6bd961041cf0d6a3a59e9902f8;hp=df6686eeb7042f6486660a5f76d0d3879efa03e7;hb=7fc749a43b4b6b85d234fa95d4928648259584f4;hpb=f3ebc8951ad495a5a027f1f482b45648dfe11c58

diff --git a/compiler/nativeGen/RegSpillClean.hs b/compiler/nativeGen/RegSpillClean.hs
index df6686e..0ec8023 100644
--- a/compiler/nativeGen/RegSpillClean.hs
+++ b/compiler/nativeGen/RegSpillClean.hs
@@ -22,7 +22,14 @@
 --	This also works if the reloads in B1/B2 were spills instead, because
 --	spilling %r1 to a slot makes that slot have the same value as %r1.
 --
---
+
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 module RegSpillClean (
 	cleanSpills
 )