popcnt? ( -- ? )

Vocabulary

cpu.x86.features

Inputs

None

Outputs

?

an object

Definition

USING: alien alien.c-types cpu.x86.assembler
cpu.x86.assembler.operands cpu.x86.features.private kernel ;

IN: cpu.x86.features

: popcnt? ( -- ? )
    bool { } cdecl [
        return-reg 1 MOV CPUID return-reg dup XOR ECX 23 BT
        return-reg SETB
    ] alien-assembly ;