Fix BCO disassembler
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 8 Oct 2014 07:43:36 +0000 (09:43 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 8 Oct 2014 07:43:36 +0000 (09:43 +0200)
GHC-7.8 has https://ghc.haskell.org/trac/ghc/ticket/7518 fixed, so the
byte code parser has to be adjusted. Fixes #1.

src/GHC/Disassembler.hs

index 53dd7f9..c4375f3 100644 (file)
@@ -33,6 +33,7 @@ toBytes n =
 -- byte code instructions, disassembles them into a list of byte code instructions.
 disassemble :: forall box. [box] -> [Word] -> ByteString -> [BCI box]
 disassemble ptrs lits = runGet $ do
+#ifndef GHC_7_7
     -- Ignore length tag. Needs to be skipped with GHC versions with
     -- http://hackage.haskell.org/trac/ghc/ticket/7518 included
     _ <- getWord16host
@@ -41,6 +42,7 @@ disassemble ptrs lits = runGet $ do
     _ <- getWord16host
 #endif
     _n <- getWord16host
+#endif
     nextInst
   where
     getLiteral :: Get Word