POPCNT在Delphi XE/XE2 64

Question

如何實現用非常快的英特爾POPCNT指令16/32/64位字中的1位的計數，在德爾福XE或XE2？是否有一個庫函數直接訪問這條指令？有人可以寫一個演示asm部分說明它的使用嗎？ 最後，有什麼選擇64位德爾福（沒有asm可用）？ 在此先感謝 t

Answer 1

隨着羅布肯尼迪擁塞，在這裏你有32位和64位Delphi IDE功能。

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

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

編輯： 這是32位和64位的Delphi兼容版本

{$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;