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

Ensure that MimaMemory is always sparse

Browse source
This commit is contained in:
Joscha 2019-11-06 16:43:57 +00:00
parent 5fdbf2fbd2
commit a1f532172a
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Mima/State.hs
View file

@ -33,7 +33,10 @@ addressRange (MimaMemory m) =
in [minBound..maxAddr] in [minBound..maxAddr]
wordsToMemory :: [MimaWord] -> MimaMemory wordsToMemory :: [MimaWord] -> MimaMemory
wordsToMemory = MimaMemory . Map.fromAscList . zip [minBound..] wordsToMemory = MimaMemory
. Map.filter (/= zeroBits)
. Map.fromAscList
. zip [minBound..]
memoryToWords :: MimaMemory -> [MimaWord] memoryToWords :: MimaMemory -> [MimaWord]
memoryToWords mem = map (\addr -> readAt addr mem) $ addressRange mem memoryToWords mem = map (\addr -> readAt addr mem) $ addressRange mem