diff options
| -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 |