box-parameters ( vregs reps params -- )

Vocabulary

compiler.cfg.builder.alien

Inputs

vregs	an object
reps	an object
params	an object

Outputs

None

Definition

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

IN: compiler.cfg.builder.alien

:: box-parameters ( vregs reps params -- )
    params varargs?>> os windows? cpu arm.64? and and [
        vregs reps params parameters>>
        [ base-type box-windows-vararg-parameter ds-push ] 3each
    ] [
        vregs reps params parameters>>
        [ base-type box-parameter ds-push ] 3each
    ] if ;