mirror of
https://github.com/yuzu-emu/unicorn.git
synced 2024-12-26 23:55:37 +00:00
21 lines
545 B
Forth
21 lines
545 B
Forth
|
namespace UnicornManaged
|
||
|
|
|
||
|
|
open System
|
||
|
|
|
||
|
|
[<AutoOpen>]
|
||
|
|
module internal ConvertUtility =
|
||
|
|
|
||
|
|
let int64ToBytes(v: Int64) =
|
||
|
|
let res = Array.zeroCreate<Byte> 8
|
||
|
|
let mutable uv = uint64 v
|
||
|
|
for i = 0 to res.Length-1 do
|
||
|
|
res.[i] <- byte (uv &&& uint64 0xFF)
|
||
|
|
uv <- uv >>> 8
|
||
|
|
res
|
||
|
|
|
||
|
|
let bytesToInt64(v: Byte array) =
|
||
|
|
let mutable res = uint64 0
|
||
|
|
for i = 0 to v.Length-1 do
|
||
|
|
let tmpV = v.[i] &&& byte 0xFF
|
||
|
|
res <- res + (uint64 tmpV <<< (i * 8))
|
||
|
|
int64 res
|