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

Update resolver to 15.2

Browse source
This commit is contained in:
Joscha 2020-03-25 14:58:40 +00:00
parent bbd0707a6d
commit 3e0f4e22b1
4 changed files with 6 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Mima/Instruction.hs
View file

@ -107,8 +107,6 @@ parseSmallInstruction mw = do
so <- parseSmallOpcode (getSmallOpcode mw)
pure $ SmallInstruction so (getLargeValue mw)
-- Assumes that all bits not part of the opcode are zeroed. The opcode
-- uses the lowest four bits.
parseSmallOpcode :: Opcode -> Either T.Text SmallOpcode
parseSmallOpcode w = case smallOpcodeMap Map.!? w of
Just oc -> pure oc
@ -120,8 +118,6 @@ parseLargeInstruction mw = do
lo <- parseLargeOpcode (getLargeOpcode mw)
pure $ LargeInstruction lo (getSmallValue mw)
-- Assumes that all bits not part of the opcode are zeroed. The opcode
-- uses the lowest four bits.
parseLargeOpcode :: Opcode -> Either T.Text LargeOpcode
parseLargeOpcode w = case largeOpcodeMap Map.!? w of
Just oc -> pure oc