Always show all flags if flags are visible

This commit is contained in:
Joscha 2019-11-25 18:24:57 +00:00
parent 1975403c3c
commit 885d872539

View file

@ -177,9 +177,13 @@ interestingAddresses = do
env <- ask
let conf = feConf env
s = feState env
pure $ if fcShowRegisterFlags conf
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