%box ( dst src func rep gc-map -- )

Vocabulary

cpu.architecture

Inputs

dst	destination register
src	source register
func	function?
rep	representation class
gc-map	a gc-map

Outputs

None

Word description

Call a function to convert a value into a tagged pointer, possibly allocating a bignum, float, or alien instance, which is then pushed on the data stack.

Definition

USING: system ;

IN: cpu.architecture

HOOK: %box cpu ( dst src func rep gc-map -- )

Methods

USING: assocs cpu.architecture cpu.arm.64 cpu.arm.64.assembler
kernel sequences system ;

M:: arm.64 %box ( DST SRC func rep gc-map -- )
    rep reg-class-of f param-regs at first SRC rep %copy
    rep int-rep? arg2 arg1 ? VM MOV func f gc-map %c-invoke
    DST int-rep %load-return ;


USING: alien assocs cpu.architecture cpu.x86 cpu.x86.64
cpu.x86.assembler kernel sequences system ;

M:: x86.64 %box ( dst src func rep gc-map -- )
    0 rep reg-class-of cdecl param-regs at nth src rep %copy
    rep int-rep? os windows? or param-reg-1 param-reg-0 ?
    vm-reg MOV func f gc-map %c-invoke dst int-rep %load-return
    ;