prepare-struct-caller ( vregs reps return -- vregs' reps' return-vreg/f )

Vocabulary

compiler.cfg.builder.alien

Inputs

vregs	an object
reps	an object
return	an object

Outputs

vregs'	an object
reps'	an object
return-vreg/f	an object

Definition

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

IN: compiler.cfg.builder.alien

: prepare-struct-caller
    ( vregs reps return -- vregs' reps' return-vreg/f )
    dup large-struct? [
        heap-size cell f ^^local-allot [
            [ prefix ] curry
            [ int-rep struct-return-on-stack? f 3array prefix ]
            bi*
        ] keep
    ] [ drop f ] if ;