(box-windows-vararg-parameter) ( vregs reps c-type -- dst )

Vocabulary

compiler.cfg.builder.alien.boxing

Inputs

vregs	an object
reps	an object
c-type	an object

Outputs

dst

an object

Definition

USING: alien.c-types arrays classes.struct compiler.cfg.hats
cpu.architecture kernel sequences ;

IN: compiler.cfg.builder.alien.boxing

:: (box-windows-vararg-parameter)
    ( vregs reps c-type -- dst )
    c-type struct-c-type?
    [ vregs reps c-type box-parameter ] [
        c-type c-type-rep :> rep rep vector-rep? [
            16 16 f ^^local-allot :> buffer buffer vregs
            { int-rep int-rep } implode-struct
            buffer 0 rep f ^^load-memory-imm
            1array rep 1array c-type box-parameter
        ] [
            rep reg-class-of float-regs eq? [
                vregs first rep ^^integer>scalar
                1array rep 1array c-type box-parameter
            ] [ vregs reps c-type box-parameter ] if
        ] if
    ] if ;