mark-varargs ( groups parameters -- groups' )

Vocabulary

compiler.cfg.builder.alien

Inputs

groups	an object
parameters	an object

Outputs

groups'

an object

Definition

USING: alien.c-types classes.struct
compiler.cfg.builder.alien.boxing kernel math namespaces
sequences ;

IN: compiler.cfg.builder.alien

:: mark-varargs ( groups parameters -- groups' )
    varargs-named-count get :> named named integer? [
        groups [| reps i |
            i named >= [
                reps i parameters nth
                base-type dup struct-c-type?
                [ frob-struct ] when
                c-type-align mark-vararg-group
            ] [ reps ] if
        ] map-index
    ] [ groups ] if ;