yuzu/unicorn
1
0
Fork 0
mirror of https://github.com/yuzu-emu/unicorn.git synced 2025-01-06 13:25:31 +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 Unicorn.Hook
import qualified Unicorn.CPU.Arm as Arm import qualified Unicorn.CPU.Arm as Arm
import Data.Bits
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import Data.Word import Data.Word
import qualified Numeric as N (showHex) import qualified Numeric as N (showHex)
@ -112,7 +113,7 @@ testThumb = do
-- Emulate machine code in infinite time (last param = Nothing), or -- Emulate machine code in infinite time (last param = Nothing), or
-- when finishing all the code -- when finishing all the code
let codeLen = codeLength thumbCode let codeLen = codeLength thumbCode
start uc address (address + codeLen) Nothing Nothing start uc (address .|. 1) (address + codeLen) Nothing Nothing
-- Return the results -- Return the results
sp <- regRead uc Arm.Sp sp <- regRead uc Arm.Sp