Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename opcode-related things

Browse source
This commit is contained in:
Joscha 2019-11-07 10:45:17 +00:00
parent 2d76ff4f93
commit 75b06c3a9f
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/Mima/Word.hs
View file

@ -197,13 +197,13 @@ instance Word32Based LargeValue_ where
instance Show LargeValue_ where instance Show LargeValue_ where
show lv = T.unpack $ "LargeValue_ 0x" <> toHex 5 (toWord32 lv) show lv = T.unpack $ "LargeValue_ 0x" <> toHex 5 (toWord32 lv)
largeValueToHex :: MimaWord -> T.Text largeValueToHex :: LargeValue -> T.Text
largeValueToHex = toHex 5 . toWord32 largeValueToHex = toHex 5 . toWord32
largeValueToDec :: MimaWord -> T.Text largeValueToDec :: LargeValue -> T.Text
largeValueToDec = toDec 7 . toWord32 largeValueToDec = toDec 7 . toWord32
largeValueToHexDec :: MimaWord -> T.Text largeValueToHexDec :: LargeValue -> T.Text
largeValueToHexDec mw = largeValueToHex mw <> " (" <> largeValueToDec mw <> ")" largeValueToHexDec mw = largeValueToHex mw <> " (" <> largeValueToDec mw <> ")"
bytesToLargeValue :: Word8 -> Word8 -> Word8 -> LargeValue bytesToLargeValue :: Word8 -> Word8 -> Word8 -> LargeValue
@ -226,13 +226,13 @@ instance Word32Based SmallValue_ where
instance Show SmallValue_ where instance Show SmallValue_ where
show lv = T.unpack $ "SmallValue_ 0x" <> toHex 4 (toWord32 lv) show lv = T.unpack $ "SmallValue_ 0x" <> toHex 4 (toWord32 lv)
smallValueToHex :: MimaWord -> T.Text smallValueToHex :: SmallValue -> T.Text
smallValueToHex = toHex 4 . toWord32 smallValueToHex = toHex 4 . toWord32
smallValueToDec :: MimaWord -> T.Text smallValueToDec :: SmallValue -> T.Text
smallValueToDec = toDec 5 . toWord32 smallValueToDec = toDec 5 . toWord32
smallValueToHexDec :: MimaWord -> T.Text smallValueToHexDec :: SmallValue -> T.Text
smallValueToHexDec mw = smallValueToHex mw <> " (" <> smallValueToDec mw <> ")" smallValueToHexDec mw = smallValueToHex mw <> " (" <> smallValueToDec mw <> ")"
signedSmallValueToWord :: SmallValue -> MimaWord signedSmallValueToWord :: SmallValue -> MimaWord