blob: a49feb9d6cc67a2a2ae9f7532f309457c28c70ff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %cpu=i386 }
TYPE TRSC = 0..64;
FUNCTION COUNTBIT32 { 32 BIT VERSION }
(VAR A: QWORD): TRSC;
ASSEMBLER; NOSTACKFRAME;
ASM
POPCNT (%EAX),%EDX
POPCNT 4(%EAX),%EAX
ADDL %EDX,%EAX
END;
const
expected : array[0..8] of byte =
($F3,$0F,$B8,$10,
$F3,$0F,$B8,$40,$04
);
var
i : Integer;
begin
for i:=low(expected) to high(expected) do
if (pbyte(@countbit32)+i)^<>expected[i] then
halt(1);
writeln('ok');
end.
|
