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

Merge branch 'master' of gitlab-ext.galois.com:macaw/macaw

Browse Source
This commit is contained in:
Joe Hendrix 2017-07-07 14:19:17 -07:00
commit 95a3721524
No known key found for this signature in database
GPG Key ID: 8DFA5FF784098C4F
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Macaw/Discovery.hs
View File

@ -101,9 +101,10 @@ concretizeAbsCodePointers mem (FinSet s) =
, Just sa <- [absoluteAddrSegment mem (fromInteger a)]
, Perm.isExecutable (segmentFlags (addrSegment sa))
]
concretizeAbsCodePointers _ (CodePointers s _) =
concretizeAbsCodePointers mem (CodePointers s _) =
[ sa
| sa <- Set.toList s
| a <- Set.toList s
, Just sa <- [absoluteAddrSegment mem (_addrOffset a)]
, Perm.isExecutable (segmentFlags (addrSegment sa))
]
-- FIXME: this is dangerous !!