X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeFFI.lhs;h=c29b74a91313e5876101e47f0dda1306e6424094;hb=b4470389096913ed1430b077d29a2d1901f3c694;hp=78792e13db0b14795eeb28e1c1d458c7e0de23fb;hpb=bf3339dd17b16dcc13212cd016a7c44a58183336;p=ghc-hetmet.git

diff --git a/compiler/ghci/ByteCodeFFI.lhs b/compiler/ghci/ByteCodeFFI.lhs
index 78792e1..c29b74a 100644
--- a/compiler/ghci/ByteCodeFFI.lhs
+++ b/compiler/ghci/ByteCodeFFI.lhs
@@ -5,6 +5,13 @@
 ByteCodeGen: Generate machine-code sequences for foreign import
 
 \begin{code}
+{-# 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 ByteCodeFFI ( mkMarshalCode, moan64, newExec ) where
 
 #include "HsVersions.h"
@@ -405,7 +412,7 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
 	  f32 = mov_f32_xmm0_rbpoff 0
 	  f64 = mov_f64_xmm0_rbpoff 0
 
--- ######### x86_64 machine code:
+--    ######### x86_64 machine code:
 
 --   0:   48 89 fd                mov    %rdi,%rbp
 --   3:   48 8b bd 78 56 34 12    mov    0x12345678(%rbp),%rdi