(sse-version) ( -- n )

Vocabulary

cpu.x86.features.private

Inputs

None

Outputs

n

an object

Definition

USING: alien alien.c-types compiler.codegen.labels
cpu.x86.assembler cpu.x86.assembler.operands namespaces ;

IN: cpu.x86.features.private

: (sse-version) ( -- n )
    int { } cdecl [
        "sse-42" define-label "sse-41" define-label
        "ssse-3" define-label "sse-3" define-label
        "sse-2" define-label "sse-1" define-label
        "end" define-label return-reg 1 MOV CPUID ECX 20 BT
        "sse-42" get JB ECX 19 BT "sse-41" get JB ECX 9 BT
        "ssse-3" get JB ECX 0 BT "sse-3" get JB EDX 26 BT
        "sse-2" get JB EDX 25 BT "sse-1" get JB return-reg 0 MOV
        "end" get JMP "sse-42" resolve-label return-reg 42 MOV
        "end" get JMP "sse-41" resolve-label return-reg 41 MOV
        "end" get JMP "ssse-3" resolve-label return-reg 33 MOV
        "end" get JMP "sse-3" resolve-label return-reg 30 MOV
        "end" get JMP "sse-2" resolve-label return-reg 20 MOV
        "end" get ~8 more~
    ] alien-assembly ;