cursor>native-va-list ( cursor -- ptr )

Vocabulary

alien.varargs

Inputs

cursor

an object

Outputs

ptr

an object

Definition

USING: accessors alien classes.struct kernel system ;

IN: alien.varargs

:: cursor>native-va-list ( cursor -- ptr )
    cursor check-va-list cursor platform>> os =
    [ unsupported-va-list-platform ] unless cpu arm.64? [
        os linux? [
            native-va-list-storage <struct> :> native native
            cursor stack>> >>stack cursor gr-top>> >>gr-top
            cursor vr-top>> >>vr-top cursor gr-offs>> >>gr-offs
            cursor vr-offs>> >>vr-offs >c-ptr
        ] [ cursor stack>> ] if
    ] [ unsupported-va-list-platform ] if ;