va-gpr-address ( cursor size alignment -- ptr/f )

Vocabulary

alien.varargs.private

Inputs

cursor	an object
size	an object
alignment	an object

Outputs

ptr/f

an object

Definition

USING: accessors alien kernel math math.order ;

IN: alien.varargs.private

:: va-gpr-address ( cursor size alignment -- ptr/f )
    cursor gr-offs>> :> old old 0 < [
        old alignment 8 max align :> offset offset size 8 align
        + :> next cursor next >>gr-offs drop next 0 <=
        [ offset cursor gr-top>> <displaced-alien> ] [ f ] if
    ] [ f ] if ;