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

Fix topBit always returning False

Browse source
This commit is contained in:
Joscha 2019-11-08 18:45:47 +00:00
parent 112a49a7b7
commit 4f5817c032
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Mima/Word.hs
View file

@ -31,7 +31,7 @@ type SmallValue = Word16
type Opcode = Word4 type Opcode = Word4
topBit :: (FiniteBits b) => b -> Bool topBit :: (FiniteBits b) => b -> Bool
topBit b = testBit b $ finiteBitSize b topBit b = testBit b $ finiteBitSize b - 1
bytesToWord :: (Word8, Word8, Word8) -> MimaWord bytesToWord :: (Word8, Word8, Word8) -> MimaWord
bytesToWord (w1, w2, w3) = bytesToWord (w1, w2, w3) =