Does this
1) prevent functions declared in this unit from being inlined (in this
or other units)
2) functions from other units, that are called in this unit from being
inlined:
I get 1, but not 2:
program project1; {$mode objfpc}{$H+} {$INLINE OFF}
uses Classes, types;
function MyPoint(X, Y: Integer): TPoint;
begin
Result.x := x;
Result.y := y;
end;
var a: TPoint;
begin
a := Point(1,1); // inlined
a := MyPoint(1,1); // not inlined
end.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
