va-stack-address ( cursor size alignment -- ptr )

Vocabulary

alien.varargs.private

Inputs

cursor	an object
size	an object
alignment	an object

Outputs

ptr

an object

Definition

USING: accessors alien kernel math math.order ;

IN: alien.varargs.private

:: va-stack-address ( cursor size alignment -- ptr )
    cursor stack>> alignment 8 max align-va-pointer
    :> ptr cursor size 8 align ptr <displaced-alien> >>stack
    drop ptr ;