%unbox-any-c-ptr ( dst src -- )

Vocabulary

cpu.architecture

Inputs

dst	an object
src	an object

Outputs

None

Definition

USING: system ;

IN: cpu.architecture

HOOK: %unbox-any-c-ptr cpu ( dst src -- )

Methods

USING: cpu.architecture kernel system ;

M: arm.64 %unbox-any-c-ptr 2drop ;


USING: alien compiler.codegen.labels compiler.constants
cpu.architecture cpu.x86.assembler cpu.x86.assembler.operands
layouts namespaces system ;

M:: x86 %unbox-any-c-ptr ( dst src -- )
    <label> :> end dst dst XOR src \ f type-number CMP end JE
    dst src MOV dst tag-mask get AND dst alien type-number CMP
    dst src byte-array-offset [+] LEA end JNE
    dst src alien-offset [+] MOV end resolve-label ;