prepare-varargs ( params -- params )

Vocabulary

stack-checker.alien

Inputs

params

an object

Outputs

params

an object

Definition

USING: accessors alien.c-types.varargs kernel math math.order
sequences system ;

IN: stack-checker.alien

:: prepare-varargs ( params -- params )
    params varargs?>> :> count count t eq?
    os macos? cpu arm.64? and and [ missing-varargs-count ] when
    count integer? [
        count 0 params parameters>> length between? [
            params [
                [| type i |
                    type i count >= [ promote-vararg-type ] when
                ] map-index
            ] change-parameters
        ] [ count params parameters>> invalid-varargs-count ] if
    ] [ params ] if ;