X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeGen.lhs;fp=compiler%2Fghci%2FByteCodeGen.lhs;h=b888747d82a921f4e4f6c5fc71cb8265b1515a7d;hp=9308409dbea68bee50c3805c98a77d2c7b3e19b7;hb=00f44fdc013f29c645d2b69ac5614c2af2a76c7e;hpb=78fe515af5fc16da48ad0de9de00c600b510098d

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index 9308409..b888747 100644
--- a/compiler/ghci/ByteCodeGen.lhs
+++ b/compiler/ghci/ByteCodeGen.lhs
@@ -85,7 +85,7 @@ byteCodeGen dflags binds tycs modBreaks
         dumpIfSet_dyn dflags Opt_D_dump_BCOs
            "Proto-BCOs" (vcat (intersperse (char ' ') (map ppr proto_bcos)))
 
-        assembleBCOs proto_bcos tycs
+        assembleBCOs dflags proto_bcos tycs
 
 -- -----------------------------------------------------------------------------
 -- Generating byte code for an expression
@@ -114,7 +114,7 @@ coreExprToBCOs dflags expr
 
       dumpIfSet_dyn dflags Opt_D_dump_BCOs "Proto-BCOs" (ppr proto_bco)
 
-      assembleBCO proto_bco
+      assembleBCO dflags proto_bco
 
 
 -- -----------------------------------------------------------------------------