<platform-va-cursor> ( stack gr-top vr-top gr-offs vr-offs platform -- cursor )

Vocabulary

alien.varargs

Inputs

stack	an object
gr-top	an object
vr-top	an object
gr-offs	an object
vr-offs	an object
platform	an object

Outputs

cursor

an object

Definition

USING: accessors alien.varargs.private kernel ;

IN: alien.varargs

:: <platform-va-cursor>
    ( stack gr-top vr-top gr-offs vr-offs platform -- cursor )
    va-cursor new stack >>stack gr-top >>gr-top vr-top >>vr-top
    gr-offs >>gr-offs vr-offs >>vr-offs platform >>platform
    active-va-lifetime >>lifetime ;