GaloisInc/macaw
1
1
Fork 0
mirror of https://github.com/GaloisInc/macaw.git synced 2024-11-26 09:22:20 +03:00
Code Issues Projects Releases Wiki Activity

[symbolic] Defer badBehaviorMap creation to caller instead.

Browse Source
This commit is contained in:
Kevin Quick 2020-08-10 14:50:45 -07:00
parent fc419e4c18
commit 1db2d1669c
No known key found for this signature in database
GPG Key ID: E6D7733599CC0A21
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
symbolic/src/Data/Macaw/Symbolic/Memory.hs
View File

@ -117,7 +117,6 @@ import Control.Monad.IO.Class ( MonadIO, liftIO )
import qualified Data.BitVector.Sized as BV
import qualified Data.ByteString as BS
import qualified Data.Foldable as F
import Data.IORef ( newIORef )
import qualified Data.IntervalMap.Strict as IM
import qualified Data.Parameterized.NatRepr as PN
@ -197,6 +196,7 @@ newGlobalMemory :: ( 16 <= MC.ArchAddrWidth arch
, KnownNat (MC.ArchAddrWidth arch)
, CB.IsSymInterface sym
, Ord (WI.SymExpr sym WI.BaseNatType)
, CL.HasLLVMAnn sym
, MonadIO m
)
=> proxy arch
@ -223,8 +223,6 @@ newGlobalMemory proxy sym endian mmc mem = do
memImpl1 sizeBV CLD.noAlignment
(symArray2, tbl) <- populateMemory proxy sym mmc mem symArray1
bbmap <- liftIO $ newIORef mempty
let ?badBehaviorMap = bbmap
memImpl3 <- liftIO $ CL.doArrayStore sym memImpl2 ptr CLD.noAlignment symArray2 sizeBV
let ptrTable = MemPtrTable { memPtrTable = tbl, memPtr = ptr, memRepr = ?ptrWidth }