diff options
| -rw-r--r-- | ghc/compiler/ghci/ByteCodeItbls.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ghc/compiler/ghci/ByteCodeItbls.lhs b/ghc/compiler/ghci/ByteCodeItbls.lhs index 2d517bbb3e..280cd35db7 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 |