va-arg-address ( cursor layout -- ptr )

Vocabulary

alien.varargs.private

Inputs

cursor	an object
layout	an object

Outputs

ptr

an object

Definition

USING: accessors alien.accessors alien.varargs kernel math.order
system ;

IN: alien.varargs.private

:: va-arg-address ( cursor layout -- ptr )
    cursor check-va-list cursor layout va-indirect?
    :> indirect? cursor platform>> linux?
    [ cursor layout indirect? va-linux-address ] [
        cursor indirect?
        [ 8 8 ] [ layout size>> layout alignment>> ] if
        cursor platform>> windows? [ 8 min ] when
        va-stack-address
    ] if indirect? [ 0 alien-cell ] when ;