X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeAsm.lhs;h=9da0e34107efb5fad57fd2b6ccc9d8e9f2e0e61a;hb=aafdba3bce91afb003f5f50e001e141744837bae;hp=f048b9f81d25fbd66a678fc109a03ca0bb847614;hpb=f4c9109d7f1deb6f79c2c141f69ec24b7022776b;p=ghc-hetmet.git

diff --git a/compiler/ghci/ByteCodeAsm.lhs b/compiler/ghci/ByteCodeAsm.lhs
index f048b9f..9da0e34 100644
--- a/compiler/ghci/ByteCodeAsm.lhs
+++ b/compiler/ghci/ByteCodeAsm.lhs
@@ -7,6 +7,13 @@ ByteCodeLink: Bytecode assembler and linker
 \begin{code}
 {-# OPTIONS -optc-DNON_POSIX_SOURCE #-}
 
+{-# 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 ByteCodeAsm (  
 	assembleBCOs, assembleBCO,
 
@@ -271,6 +278,7 @@ mkBits findLabel st proto_insns
 
                SLIDE     n by     -> instr3 st bci_SLIDE n by
                ALLOC_AP  n        -> instr2 st bci_ALLOC_AP n
+               ALLOC_AP_NOUPD n   -> instr2 st bci_ALLOC_AP_NOUPD n
                ALLOC_PAP arity n  -> instr3 st bci_ALLOC_PAP arity n
                MKAP      off sz   -> instr3 st bci_MKAP off sz
                MKPAP     off sz   -> instr3 st bci_MKPAP off sz
@@ -432,6 +440,7 @@ instrSize16s instr
 	PUSH_APPLY_PPPPPP{}	-> 1
         SLIDE{}			-> 3
         ALLOC_AP{}		-> 2
+        ALLOC_AP_NOUPD{}	-> 2
         ALLOC_PAP{}		-> 3
         MKAP{}			-> 3
         MKPAP{}			-> 3