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

@@ -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