GaloisInc/macaw
1
1
Fork 0
mirror of https://github.com/GaloisInc/macaw.git synced 2024-11-24 08:53:12 +03:00
Code Issues Projects Releases Wiki Activity

[refinement] Use mkBlockPathCFG.

Browse Source
This commit is contained in:
Andrei Stefanescu 2019-01-31 21:50:38 -08:00
parent 8ee9196cf6
commit 1e2e9aaee0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
refinement/src/Data/Macaw/Refinement/UnknownTransfer.hs
View File

@ -418,7 +418,7 @@ smtSolveTransfer RefinementContext{..} discovery_state (Some block) = do
=<< W.bvLit symbolicBackend W.knownNat (fromIntegral addr) =<< W.bvLit symbolicBackend W.knownNat (fromIntegral addr)
Nothing -> fail $ "unexpected block address: " ++ show (pblockAddr block) Nothing -> fail $ "unexpected block address: " ++ show (pblockAddr block)
init_regs <- initRegs archVals symbolicBackend block_ip_val init_regs <- initRegs archVals symbolicBackend block_ip_val
some_cfg <- liftIO $ stToIO $ MS.mkParsedBlockCFG some_cfg <- liftIO $ stToIO $ MS.mkBlockPathCFG
(MS.archFunctions archVals) (MS.archFunctions archVals)
handleAllocator handleAllocator
Map.empty Map.empty