diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-11-22 08:20:42 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-11-22 08:20:42 -0600 |
| commit | eba82bde9957bef68c3a5135771749a66d343abd (patch) | |
| tree | dd74a86b6b7111309cebf6507558fde54216ae87 /compiler/ghci | |
| parent | bb73d1d4a4e5195cbecc5a009a0e798af02aa37b (diff) | |
| download | haskell-eba82bde9957bef68c3a5135771749a66d343abd.tar.gz | |
Untabify buffer.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/ByteCodeItbls.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ghci/ByteCodeItbls.lhs b/compiler/ghci/ByteCodeItbls.lhs index c5b3545fea..ce6bd01f16 100644 --- a/compiler/ghci/ByteCodeItbls.lhs +++ b/compiler/ghci/ByteCodeItbls.lhs @@ -234,8 +234,8 @@ mkJumpToAddr dflags a = case platformArch (targetPlatform dflags) of -- -- which looks like: -- 00000000 <.addr-0x8>: - -- 0: 4900 ldr r1, [pc] ; 8 <.addr> - -- 4: 4708 bx r1 + -- 0: 4900 ldr r1, [pc] ; 8 <.addr> + -- 4: 4708 bx r1 let w32 = fromIntegral (ptrToInt a) :: Word32 in Left [ 0x49, 0x00 , 0x47, 0x08 |