%box-displaced-alien/dynamic ( DST DISP BASE TEMP end -- )

Vocabulary

cpu.arm.64

Inputs

DST	an object
DISP	an object
BASE	an object
TEMP	an object
end	an object

Outputs

None

Definition

USING: alien compiler.codegen.labels cpu.arm.64.assembler
layouts namespaces ;

IN: cpu.arm.64

:: %box-displaced-alien/dynamic
    ( DST DISP BASE TEMP end -- )
    <label> :> not-f <label> :> not-alien temp BASE tag-mask get
    AND temp \ f type-number CMP not-f BNE
    DST DISP %box-displaced-alien/f end B not-f resolve-label
    temp alien type-number CMP not-alien BNE
    DST DISP BASE TEMP %box-displaced-alien/alien end B
    not-alien resolve-label
    DST DISP BASE TEMP %box-displaced-alien/byte-array ;