diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-01-26 20:43:22 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-01-29 14:52:56 -0500 |
| commit | c6bede69443a9f40b0504cee83d9b2c5e9b8163b (patch) | |
| tree | 63a4f37b4cd0c993cc3e6d434b5575ea44b9bbe8 /libraries/ghci | |
| parent | d85a527f493c0ed41736cf6220a4291a26769d50 (diff) | |
| download | haskell-c6bede69443a9f40b0504cee83d9b2c5e9b8163b.tar.gz | |
rts: Rip out SPARC support
Diffstat (limited to 'libraries/ghci')
| -rw-r--r-- | libraries/ghci/GHCi/InfoTable.hsc | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/libraries/ghci/GHCi/InfoTable.hsc b/libraries/ghci/GHCi/InfoTable.hsc index 9cc9ac1557..d92a2f0fbb 100644 --- a/libraries/ghci/GHCi/InfoTable.hsc +++ b/libraries/ghci/GHCi/InfoTable.hsc @@ -67,28 +67,6 @@ funPtrToInt (FunPtr a) = I## (addr2Int## a) mkJumpToAddr :: MonadFail m => EntryFunPtr-> m ItblCodes mkJumpToAddr a = case hostPlatformArch of - ArchSPARC -> pure $ - -- After some consideration, we'll try this, where - -- 0x55555555 stands in for the address to jump to. - -- According to rts/include/rts/MachRegs.h, %g3 is very - -- likely indeed to be baggable. - -- - -- 0000 07155555 sethi %hi(0x55555555), %g3 - -- 0004 8610E155 or %g3, %lo(0x55555555), %g3 - -- 0008 81C0C000 jmp %g3 - -- 000c 01000000 nop - - let w32 = fromIntegral (funPtrToInt a) - - hi22, lo10 :: Word32 -> Word32 - lo10 x = x .&. 0x3FF - hi22 x = (x `shiftR` 10) .&. 0x3FFFF - - in Right [ 0x07000000 .|. (hi22 w32), - 0x8610E000 .|. (lo10 w32), - 0x81C0C000, - 0x01000000 ] - ArchPPC -> pure $ -- We'll use r12, for no particular reason. -- 0xDEADBEEF stands for the address: |