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

Always show all flags if flags are visible

Browse source
This commit is contained in:
Joscha 2019-11-25 18:24:57 +00:00
parent 1975403c3c
commit 885d872539
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Mima/Format/State.hs
View file

@ -177,9 +177,13 @@ interestingAddresses = do
env <- ask
let conf = feConf env
s = feState env
pure $ if fcShowRegisterFlags conf
then Set.fromList [msIAR s, msRA s, msSP s, msFP s]
else Set.empty
regAddrs = if fcShowRegisterFlags conf
then Set.fromList [msIAR s, msRA s, msSP s, msFP s]
else Set.empty
labelAddrs = if fcShowLabels conf
then Map.keysSet $ feLabels env
else Set.empty
pure $ Set.union regAddrs labelAddrs
getAddresses :: FormatReader [MimaAddress]
getAddresses = do