mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 13:27:15 +01:00
2f8027c63f
+ the multiplication optimization needs a popcnt function + simple test git-svn-id: trunk@22299 -
15 lines
149 B
ObjectPascal
15 lines
149 B
ObjectPascal
var
|
|
i : longint;
|
|
|
|
begin
|
|
i:=5;
|
|
i:=i*10;
|
|
i:=i*62;
|
|
i:=i*-10;
|
|
i:=i*-62;
|
|
i:=i*87;
|
|
if i<>167214000 then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|