From: sewardj <unknown>
Date: Fri, 9 Feb 2001 17:00:20 +0000 (+0000)
Subject: [project @ 2001-02-09 17:00:20 by sewardj]
X-Git-Tag: Approximately_9120_patches~2694
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b65c8197b3b173981917f4bf5a2b3d046b04ab18;p=ghc-hetmet.git

[project @ 2001-02-09 17:00:20 by sewardj]
Fix the x86 side of this following the (inevitable) breakage caused by
recent sparc hackery.
---

diff --git a/ghc/compiler/ghci/ByteCodeItbls.lhs b/ghc/compiler/ghci/ByteCodeItbls.lhs
index 2d517bb..280cd35 100644
--- 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