yuzu/unicorn
1
0
Fork 0
mirror of https://github.com/yuzu-emu/unicorn.git synced 2024-12-31 22:55:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/unicorn-engine/unicorn

Browse source
This commit is contained in:
Nguyen Anh Quynh 2016-09-22 08:46:30 +08:00
parent d90ec0e74d 8181a5eaf0
commit 60a7371ec2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bindings/haskell/samples/SampleArm.hs
View file

@ -4,6 +4,7 @@ import Unicorn
import Unicorn.Hook
import qualified Unicorn.CPU.Arm as Arm
import Data.Bits
import qualified Data.ByteString as BS
import Data.Word
import qualified Numeric as N (showHex)
@ -112,7 +113,7 @@ testThumb = do
-- Emulate machine code in infinite time (last param = Nothing), or
-- when finishing all the code
let codeLen = codeLength thumbCode
start uc address (address + codeLen) Nothing Nothing
start uc (address .|. 1) (address + codeLen) Nothing Nothing
-- Return the results
sp <- regRead uc Arm.Sp