va-linux-address ( cursor layout indirect? -- ptr )

Vocabulary

alien.varargs.private

Inputs

cursor	an object
layout	an object
indirect?	an object

Outputs

ptr

an object

Definition

USING: accessors kernel sequences ;

IN: alien.varargs.private

:: va-linux-address ( cursor layout indirect? -- ptr )
    indirect? [ 8 8 ] [ layout size>> layout alignment>> ] if
    :> ( size alignment ) layout homogeneous?>> indirect? not
    and [
        cursor layout members>> length va-vr-address [
            layout aggregate?>>
            [ layout reassemble-va-hfa ] when
        ] [ cursor size alignment va-stack-address ] if*
    ] [
        cursor size alignment va-gpr-address
        [ ] [ cursor size alignment va-stack-address ] if*
    ] if ;