?>> ( x n -- x )

Vocabulary

cpu.arm.64.assembler.private

Inputs

x	an object
n	an object

Outputs

x

an object

Definition

USING: kernel math math.bitwise ;

IN: cpu.arm.64.assembler.private

: ?>> ( x n -- x )
    2dup bits [ neg shift ] [ scaling-error ] if-zero ;