windows-vararg-payload ( vreg rep -- vregs reps )

Vocabulary

compiler.cfg.builder.alien

Inputs

vreg	an object
rep	an object

Outputs

vregs	an object
reps	an object

Definition

USING: arrays compiler.cfg.builder.alien.params
compiler.cfg.hats compiler.cfg.instructions cpu.architecture
kernel sequences ;

IN: compiler.cfg.builder.alien

:: windows-vararg-payload ( vreg rep -- vregs reps )
    rep first :> representation representation vector-rep? [
        16 16 f ^^local-allot
        :> buffer vreg buffer 0 representation f
        ##store-memory-imm, buffer 0 int-rep f ^^load-memory-imm
        buffer 8 int-rep f ^^load-memory-imm 2array
        { { int-rep f f 8 } { int-rep f f 8 } }
    ] [
        representation reg-class-of float-regs eq? [
            vreg representation ^^scalar>integer
            int-rep f f rep param-natural-size 4array
        ] [ vreg rep ] if [ 1array ] bi@
    ] if ;