element-size ( imm imm-size -- imm element-size )

Vocabulary

cpu.arm.64.assembler.private

Inputs

imm	an object
imm-size	an object

Outputs

imm	an object
element-size	an object

Definition

USING: kernel math math.bitwise ;

IN: cpu.arm.64.assembler.private

: element-size ( imm imm-size -- imm element-size )
    [
        2dup 2/ [ neg shift ] 2keep [ on-bits bitand ] curry
        same?
    ] [ 2/ ] while ;