POPCNT 64bit

Question

Çok hızlı Intel POPCNT komutunu kullanarak 16/32/64bit sözcük içinde 1 bitlik bir sayıyı Delphi XE veya XE2 altında nasıl uygularım? Bu eğitime doğrudan erişim sağlayan bir kütüphane rutini var mı? Birisi kullanımını gösteren bir demo asm bölümü yazabilir mi lütfen? Ve son olarak, 64bit Delphi için seçenekler nelerdir (kullanılabilir değil)? şimdiden teşekkür ederiz. t

Answer 1

Rob Kennedy'in suistimal ettiği gibi, burada 32bit ve 64bit Delphi IDE işlevleri vardır.

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

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

DÜZENLEME: Bu 32bit ve 64bit Delphi uyumlu versiyon

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