mirror of
https://github.com/GaloisInc/macaw.git
synced 2024-11-24 08:53:12 +03:00
[refinement] Use mkBlockPathCFG.
This commit is contained in:
parent
8ee9196cf6
commit
1e2e9aaee0
@ -418,7 +418,7 @@ smtSolveTransfer RefinementContext{..} discovery_state (Some block) = do
|
||||
=<< W.bvLit symbolicBackend W.knownNat (fromIntegral addr)
|
||||
Nothing -> fail $ "unexpected block address: " ++ show (pblockAddr block)
|
||||
init_regs <- initRegs archVals symbolicBackend block_ip_val
|
||||
some_cfg <- liftIO $ stToIO $ MS.mkParsedBlockCFG
|
||||
some_cfg <- liftIO $ stToIO $ MS.mkBlockPathCFG
|
||||
(MS.archFunctions archVals)
|
||||
handleAllocator
|
||||
Map.empty
|
||||
|
Loading…
Reference in New Issue
Block a user