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

Vocabulary

alien.varargs

Inputs

ptr

an object

Outputs

cursor

an object

Definition

USING: alien.accessors kernel system ;

IN: alien.varargs

:: native-va-list>cursor ( ptr -- cursor )
    cpu arm.64? [
        os linux? [
            ptr 0 alien-cell ptr 8 alien-cell ptr 16 alien-cell
            ptr 24 alien-signed-4 ptr 28 alien-signed-4
            <va-cursor>
        ] [ ptr f f 0 0 <va-cursor> ] if
    ] [ unsupported-va-list-platform ] if ;