diff options
| author | sewardj <unknown> | 2001-02-09 17:00:20 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-02-09 17:00:20 +0000 |
| commit | b65c8197b3b173981917f4bf5a2b3d046b04ab18 (patch) | |
| tree | f481496c0160919787fdecf8ae4c3f3eae1c2d8f /ghc | |
| parent | 9dc6674250dd462fe0f46b916dbc7a4ed4b56a31 (diff) | |
| download | haskell-b65c8197b3b173981917f4bf5a2b3d046b04ab18.tar.gz | |
[project @ 2001-02-09 17:00:20 by sewardj]
Fix the x86 side of this following the (inevitable) breakage caused by
recent sparc hackery.
Diffstat (limited to 'ghc')
| -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 |