Ensure that MimaMemory is always sparse

2019-11-06 16:43:57 +00:00 · 2019-11-06 16:43:57 +00:00 · a1f532172a
commit a1f532172a
parent 5fdbf2fbd2
1 changed files with 4 additions and 1 deletions
--- a/src/Mima/State.hs
+++ b/src/Mima/State.hs
@ -33,7 +33,10 @@ addressRange (MimaMemory m) =
  in  [minBound..maxAddr]

 wordsToMemory :: [MimaWord] -> MimaMemory
-wordsToMemory = MimaMemory . Map.fromAscList . zip [minBound..]
+wordsToMemory = MimaMemory
+              . Map.filter (/= zeroBits)
+              . Map.fromAscList
+              . zip [minBound..]

 memoryToWords :: MimaMemory -> [MimaWord]
 memoryToWords mem = map (\addr -> readAt addr mem) $ addressRange mem