From b65c8197b3b173981917f4bf5a2b3d046b04ab18 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 9 Feb 2001 17:00:20 +0000
Subject: [PATCH] [project @ 2001-02-09 17:00:20 by sewardj] Fix the x86 side
 of this following the (inevitable) breakage caused by
 recent sparc hackery.

---
 ghc/compiler/ghci/ByteCodeItbls.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4