unbox-struct-parameter ( src c-type -- vregs reps )

Vocabulary

compiler.cfg.builder.alien.boxing

Inputs

src	an object
c-type	an object

Outputs

vregs	an object
reps	an object

Definition

USING: system ;

IN: compiler.cfg.builder.alien.boxing

HOOK: unbox-struct-parameter cpu ( src c-type -- vregs reps )

Methods

USING: alien.c-types arrays assocs
compiler.cfg.builder.alien.boxing compiler.cfg.hats
cpu.architecture kernel layouts math.order ;

M: object unbox-struct-parameter
    dup value-struct?
    [ unbox ] [
        [
            nip [ heap-size ] [ c-type-align cell max ] bi
            f ^^local-allot dup
        ] [ [ ^^unbox-any-c-ptr ] dip explode-struct keys ] 2bi
        implode-struct 1array { { int-rep f f } }
    ] if ;