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

Add support for flags in execution

Browse source
This commit is contained in:
Joscha 2019-11-12 12:17:26 +00:00
parent 86f8b723b5
commit 9caa8298fc
4 changed files with 244 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/MimaRun/PrintState.hs
View file

@ -113,7 +113,7 @@ printMemoryLocationLn addr word = do
printMemoryLn :: Bool -> MimaMemory -> IO ()
printMemoryLn sparse mem = do
let addresses = if sparse then sparseAddressRange mem else addressRange mem
let addresses = if sparse then sparseUsedAddresses mem else usedAddresses mem
forM_ addresses $ \addr -> do
printMemoryLocationLn addr (readAt addr mem)