make system random work in VM (#17059)

* make system random work in VM
This commit is contained in:
flywind 2021-02-17 04:52:46 -06:00 • committed by GitHub
commit 4f118721be
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
5 changed files with 90 additions and 19 deletions

View file

@ -56,3 +56,10 @@ proc getNode*(a: VmArgs; i: Natural): PNode =
doAssert i < a.rc-1
doAssert a.slots[i+a.rb+1].kind == rkNode
result = a.slots[i+a.rb+1].node
proc getNodeAddr*(a: VmArgs; i: Natural): PNode =
doAssert i < a.rc-1
doAssert a.slots[i+a.rb+1].kind == rkNodeAddr
let nodeAddr = a.slots[i+a.rb+1].nodeAddr
doAssert nodeAddr != nil
result = nodeAddr[]