mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
13 lines
177 B
ObjectPascal
13 lines
177 B
ObjectPascal
{ %cpu=i386,x86_64 }
|
|
{ %opt=-Cpcoreavx2 }
|
|
function popc ( a, b: byte):byte;
|
|
var z,v: byte;
|
|
begin
|
|
z:=a+b;
|
|
v:=popcnt(z); //-- this line
|
|
popc:=v;
|
|
end;
|
|
|
|
begin
|
|
end.
|