partial-struct-cell

Vocabulary

compiler.cfg.builder.alien.boxing

Definition

IN: compiler.cfg.builder.alien.boxing

TUPLE: partial-struct-cell size ;

Methods

USING: accessors alien.c-types compiler.cfg.builder.alien.boxing
compiler.cfg.hats cpu.architecture kernel math sequences ;

M:: partial-struct-cell load-struct-component
    ( src offset rep part -- dst )
    part size>> <iota> 0 ^^load-integer [| dst index |
        src offset index + int-rep uchar ^^load-memory-imm
        index 8 * ^^shl-imm dst swap ^^or
    ] reduce ;


USING: accessors alien.c-types compiler.cfg.builder.alien.boxing
compiler.cfg.hats compiler.cfg.instructions cpu.architecture
math sequences ;

M:: partial-struct-cell store-struct-component
    ( value src offset rep part -- )
    part size>> <iota> [| index |
        value index 8 * ^^shr-imm src offset index +
        int-rep uchar ##store-memory-imm,
    ] each ;