Do more state formatting

Registers can now be displayed above the memory content.
This commit is contained in:
Joscha 2019-11-19 16:50:37 +00:00
parent ee7639c1c7
commit a7ef16bc4e
5 changed files with 75 additions and 143 deletions

View file

@ -146,7 +146,7 @@ main :: IO ()
main = doRun_ $ do
settings <- lift $ execParser opts
lift $ putStrLn $ "Loading memdump at " ++ infile settings
lift $ putStrLn $ "Loading memdump from " ++ infile settings
ms <- loadStateFromFile (infile settings)
flags <- loadFlags settings
@ -156,7 +156,7 @@ main = doRun_ $ do
then pure ms
else lift $ runMima settings ms flags
unless (quiet settings) $ printState ms flags labels settings
unless (quiet settings) $ printState ms' flags labels settings
forM_ (outfile settings) $ \path -> do
lift $ putStrLn $ "Saving memdump at " ++ path