Nimms ( element-bits element-width -- N imms ) (original) (raw)

Nimms ( element-bits element-width -- N imms )

Vocabulary
cpu.arm.64.assembler

Inputs

element-bits an object
element-width an object

Outputs

N an object
imms an object

Definition

USING: kernel math math.bitwise sequences ;

IN: cpu.arm.64.assembler

:: Nimms ( element-bits element-width -- N imms )
element-bits [ ] count 1 -
:> set-bits element-width log2 1 +
:> width-exponent width-exponent on-bits bitnot set-bits
bitor 6 toggle-bit [ -6 shift 1 bits ] [ 6 bits ] bi ;