POPCNT in Delphi XE/XE2 64bit

Question

Delphi XE 또는 XE2에서 매우 빠른 Intel POPCNT 명령어를 사용하여 16/32/64 비트 워드 내에 1 비트 수를 구현하려면 어떻게해야합니까? 이 지침에 직접 액세스 할 수있는 라이브러리 루틴이 있습니까? 누군가가 그것의 사용을 보여주는 데모 asm 섹션을 작성해 주실 수 있습니까? 그리고 마지막으로, 64 비트 델파이 (asm을 사용할 수 없음)의 옵션은 무엇입니까? 미리 감사드립니다. t

Answer 1

Rob Kennedy가 다뤘 듯이 여기에는 32 비트 및 64 비트 Delphi IDE 용 기능이 있습니다.

function GetBitCount(num: integer): integer; 
asm 
    POPCNT eax, num 
end; 

function GetBitCount(num: Int64): integer; 
asm 
    POPCNT rax, num 
end; 

EDIT : 이 32 비트 및 64 비트 호환 버전 델파이

{$IF CompilerVersion < 23} //pre-XE2 
    NativeInt = integer; 
{$IFEND} 

function GetBitCount(num: NativeInt): integer; 
asm 
{$IFNDEF CPUX64} 
    POPCNT eax, num 
{$ELSE CPUX64} 
    POPCNT rax, num 
{$ENDIF CPUX64} 
end;