mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
2cd6951205
The patch reworks the LeaLea2Lea optimisation and hopefully fixes the bug (admittedly by adding a brand new optimisation!). git-svn-id: trunk@48792 -
16 lines
240 B
ObjectPascal
16 lines
240 B
ObjectPascal
{%OPT=-O2}
|
|
|
|
{$mode objfpc}
|
|
|
|
function F(n: SizeUint): SizeUint;
|
|
begin
|
|
result := 4 * n + 4 * n;
|
|
end;
|
|
|
|
begin
|
|
writeln('Reference F(5): ', 4 * 5 + 4 * 5);
|
|
writeln(' Actual F(5): ', F(5));
|
|
if (F(5) <> 40) then
|
|
halt(1);
|
|
end.
|