flatten-struct-type ( type -- pairs )

Vocabulary

compiler.cfg.builder.alien.boxing

Inputs

type

an object

Outputs

pairs

an object

Definition

USING: system ;

IN: compiler.cfg.builder.alien.boxing

HOOK: flatten-struct-type cpu ( type -- pairs )

Methods

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

M: object flatten-struct-type
    heap-size cell align cell /i { int-rep f f } <array>
    record-reg-reps ;


USING: alien.c-types arrays compiler.cfg.builder.alien.boxing
cpu.x86.64.unix generic kernel math sequences system ;

M: x86.64 flatten-struct-type
    dup heap-size 16 <=
    [ flatten-small-struct record-reg-reps ] [
        M\ x86.64 flatten-struct-type (call-next-method)
        unrecord-reg-reps [ first t f 3array ] map
    ] if ;