va-vr-address ( cursor count -- ptr/f )

Vocabulary

alien.varargs.private

Inputs

cursor	an object
count	an object

Outputs

ptr/f

an object

Definition

USING: accessors alien kernel math ;

IN: alien.varargs.private

:: va-vr-address ( cursor count -- ptr/f )
    cursor vr-offs>> :> offset offset 0 < [
        offset count 16 * + :> next cursor next >>vr-offs drop
        next 0 <=
        [ offset cursor vr-top>> <displaced-alien> ] [ f ] if
    ] [ f ] if ;