diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-11-15 16:56:38 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-03-08 11:37:28 -0500 |
| commit | b1867c2b3d76a1d018c38de384c1321a27a7dbb8 (patch) | |
| tree | 99f39975feeadab33c3f193ffd6e97eb0fc02454 | |
| parent | 0535b01644401092444679714625e1c90e7b8e14 (diff) | |
| download | haskell-wip/riscv.tar.gz | |
Disambiguate typewip/riscv
| -rw-r--r-- | libraries/ghci/GHCi/InfoTable.hsc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libraries/ghci/GHCi/InfoTable.hsc b/libraries/ghci/GHCi/InfoTable.hsc index a35da08667..064c9470bb 100644 --- a/libraries/ghci/GHCi/InfoTable.hsc +++ b/libraries/ghci/GHCi/InfoTable.hsc @@ -330,7 +330,8 @@ mkJumpToAddr a = case platform of -- jr t3 -- label: -- .quad <addr> - let w64 = fromIntegral (funPtrToInt a) + let w64 :: Word64 + w64 = fromIntegral (funPtrToInt a) in Right [ 0x00000e17 -- auipc t3, 0x0 , 0x000e3e03 -- ld t3, 0(t3) , 0x000e0067 -- jr t3 |