immr ( pairs -- immr )

Vocabulary

cpu.arm.64.assembler.private

Inputs

pairs

an object

Outputs

immr

an object

Definition

USING: kernel math sequences ;

IN: cpu.arm.64.assembler.private

: immr ( pairs -- immr )
    [ length 1 - ] [ [ { f t } sequence= ] find drop bitnot ] bi
    bitand ;