1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
{ %fail } { %OPT=-vn -Sen } {$mode objfpc} program Project1; type TObj = Class procedure proc1; procedure proc2; inline; End; procedure TObj.proc1; begin proc2; end; procedure TObj.proc2; begin writeln('2'); end; begin tobj.create.proc1; end.