?sbits ( x n -- x )

Vocabulary

cpu.arm.64.assembler.private

Inputs

x	an object
n	an object

Outputs

x

an object

Definition

USING: kernel math.bitwise ;

IN: cpu.arm.64.assembler.private

: ?sbits ( x n -- x )
    2dup >signed dup reach =
    [ drop bits ] [ arm64-encoding-imm ] if ; inline