implode-struct-type ( src vregs reps c-type -- )

Vocabulary

compiler.cfg.builder.alien.boxing

Inputs

src	an object
vregs	an object
reps	an object
c-type	an object

Outputs

None

Definition

USING: sequences.generalizations ;

IN: compiler.cfg.builder.alien.boxing

:: implode-struct-type ( src vregs reps c-type -- )
    reps c-type struct-components :> ( offsets types ) vregs
    reps offsets types [| vreg rep offset type |
        vreg src offset rep type store-struct-component
    ] 4 neach ;