small-float-c-type

Vocabulary

alien.c-types

Definition

IN: alien.c-types

TUPLE: small-float-c-type < c-type vararg-type ;

Methods

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

M: small-float-c-type box
    [ [ first ] bi@ ] [ boxer>> ] bi* swap <gc-map> ^^box ;


USING: accessors alien.c-types kernel system ;

M: small-float-c-type c-type-rep
    cpu arm.64?
    [ rep>> ] [ drop small-float-scalar-abi-unsupported ] if ;


USING: alien.c-types arrays compiler.cfg.builder.alien.boxing
kernel ;

M: small-float-c-type flatten-c-type
    [ c-type-rep f f ] [ heap-size ] bi 4array
    1array record-reg-reps ;


USING: accessors alien.c-types arrays
compiler.cfg.builder.alien.boxing compiler.cfg.hats kernel ;

M: small-float-c-type unbox
    [ [ unboxer>> ] [ c-type-rep ] bi ^^unbox 1array ]
    [ nip flatten-c-type ] 2bi ;