[project @ 2001-02-09 17:00:20 by sewardj]

[ghc-hetmet.git] / ghc / compiler / ghci / ByteCodeItbls.lhs

diff --git a/ghc/compiler/ghci/ByteCodeItbls.lhs b/ghc/compiler/ghci/ByteCodeItbls.lhs
index 2d517bb..280cd35 100644 (file)
--- a/ghc/compiler/ghci/ByteCodeItbls.lhs
+++ b/ghc/compiler/ghci/ByteCodeItbls.lhs
@@ -160,13 +160,14 @@ mkJumpToAddr a
 -- B8 ZZ YY XX WW FF E0
 mkJumpToAddr a
    = let w32 = fromIntegral (addrToInt a)
+         insnBytes :: [Word8]
          insnBytes
-            = take 16 (
+            = map fromIntegral (take 16 (
                  [0xB8, byte 0 w32, byte 1 w32, 
                         byte 2 w32, byte 3 w32, 
                   0xFF, 0xE0]
                  ++ let nops = 0x90 : nops in nops
-              )
+              ))
      in
          insnBytes
 #endif