Use wordHost instead of CPP stuff
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 28 Feb 2013 14:57:16 +0000 (14:57 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 28 Feb 2013 14:57:16 +0000 (14:57 +0000)
src/GHC/Disassembler.hs

index 982a0aa..53dd7f9 100644 (file)
@@ -27,11 +27,7 @@ toBytes n =
     BS.take (fromIntegral n) .
     toLazyByteString .
     mconcat .
-#if SIZEOF_VOID_P == 8
-    map (word64Host . fromIntegral)
-#else
-    map (word32Host . fromIntegral)
-#endif
+    map (wordHost . fromIntegral)
 
 -- | Given a list of pointers, a list of literals and a ByteString containing
 -- byte code instructions, disassembles them into a list of byte code instructions.