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

Fix weeding of things taking up memory

Browse source 
This fixes how instructions and other things that take up space in memory are
parsed. I just forgot to mark the respective memory locations as occupied after
filling them.
This commit is contained in:
Joscha 2019-11-21 18:25:42 +00:00
parent 396f07cdf1
commit ee5c2762d6
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/Mima/Parse/Assembly/Weed/Statement.hs
View file

@ -93,6 +93,7 @@ addAlmostWord :: WithOffset a -> AlmostWord Address -> SWeed ()
addAlmostWord thing aw = do addAlmostWord thing aw = do
addr <- toNextFree thing addr <- toNextFree thing
modifyResult (\r -> r{wrMemory = Map.insert addr aw (wrMemory r)}) modifyResult (\r -> r{wrMemory = Map.insert addr aw (wrMemory r)})
modify (\s -> s{wsOccupied = True})
addLabel :: WithOffset a -> LabelName -> SWeed () addLabel :: WithOffset a -> LabelName -> SWeed ()
addLabel thing l = do addLabel thing l = do