POPCNT in Delphi XE/XE2 64bit

Question

Come si implementa un conteggio di 1 bit in una parola 16/32/64 bit utilizzando l'istruzione Intel POPCNT molto veloce, in Delphi XE o XE2? Esiste una routine di biblioteca che dà accesso diretto a queste istruzioni? Qualcuno può scrivere una sezione demo di Asm che ne illustri l'uso per favore? E infine, quali sono le opzioni per Delphi a 64 bit (non disponibile ASM)? grazie in anticipo t

Answer 1

Come suggerito da Rob Kennedy, ecco le funzioni per Delphi IDE a 32 bit e 64 bit.

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

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

EDIT: Questo è 32bit e 64bit versione compatibile 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;