From ee5c2762d62dee240beaca06f600563a2e4aca24 Mon Sep 17 00:00:00 2001 From: Joscha Date: Thu, 21 Nov 2019 18:25:42 +0000 Subject: [PATCH] Fix weeding of things taking up memory 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. --- src/Mima/Parse/Assembly/Weed/Statement.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Mima/Parse/Assembly/Weed/Statement.hs b/src/Mima/Parse/Assembly/Weed/Statement.hs index 5798ab1..3ea77a9 100644 --- a/src/Mima/Parse/Assembly/Weed/Statement.hs +++ b/src/Mima/Parse/Assembly/Weed/Statement.hs @@ -93,6 +93,7 @@ addAlmostWord :: WithOffset a -> AlmostWord Address -> SWeed () addAlmostWord thing aw = do addr <- toNextFree thing modifyResult (\r -> r{wrMemory = Map.insert addr aw (wrMemory r)}) + modify (\s -> s{wsOccupied = True}) addLabel :: WithOffset a -> LabelName -> SWeed () addLabel thing l = do