named-callee-parameters ( params -- vregs reps )

Vocabulary

compiler.cfg.builder.alien

Inputs

params

an object

Outputs

vregs	an object
reps	an object

Definition

USING: accessors alien.c-types assocs
compiler.cfg.builder.alien.boxing
compiler.cfg.builder.alien.params kernel sequences system ;

IN: compiler.cfg.builder.alien

:: named-callee-parameters ( params -- vregs reps )
    params varargs?>> os windows? cpu arm.64? and and [
        params parameters>>
        [ base-type flatten-windows-vararg-type ] map [
            [
                [
                    dup prepare-parameter-group
                    [ first3 ] [ param-natural-size ] bi
                    callee-parameter
                ] map
            ] map
        ] [ [ keys ] map ] bi
    ] [
        params parameters>> [ base-type ] map
        (callee-parameters)
    ] if ;