long-long-type

Vocabulary

alien.c-types

Definition

IN: alien.c-types

TUPLE: long-long-type < c-type ;

Methods

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

M: long-long-type box
    [ first2 ] [ drop ] [ boxer>> ] tri*
    <gc-map> ^^box-long-long ;


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

M: long-long-type flatten-c-type
    drop 2 [ int-rep long-long-on-stack? f 3array ] replicate
    record-reg-reps ;


USING: accessors alien.c-types arrays
compiler.cfg.builder.alien.boxing compiler.cfg.instructions
compiler.cfg.registers cpu.architecture kernel ;

M: long-long-type unbox
    [ next-vreg next-vreg 2dup ] 2dip
    unboxer>> ##unbox-long-long, 2array
    int-rep long-long-on-stack? long-long-odd-register? 3array
    int-rep long-long-on-stack? f 3array 2array record-reg-reps
    ;


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

M: long-long-type unbox-parameter unbox ;