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

Fix nested ranges not overwriting their parents

Browse source
This commit is contained in:
I-Al-Istannen 2020-03-28 20:18:06 +01:00
parent 66efb97205
commit d3ba3355e4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Mima/Vm/Flags.hs
View file

@ -60,7 +60,7 @@ flagsFromMetadata metadata =
Flags (flagSet "readonly") (flagSet "executable") (flagSet "breakpoint") Flags (flagSet "readonly") (flagSet "executable") (flagSet "breakpoint")
where where
ranges = mdLocal metadata ranges = mdLocal metadata
rangesToMap key = mconcat . map (rangeToMap key) $ ranges rangesToMap key = mconcat . reverse . map (rangeToMap key) $ ranges
flagSet = Map.keysSet . Map.filter valueToBool . rangesToMap flagSet = Map.keysSet . Map.filter valueToBool . rangesToMap
rangeToMap :: T.Text -> Range -> Map.Map MimaAddress A.Value rangeToMap :: T.Text -> Range -> Map.Map MimaAddress A.Value