fpc/tests/test/tinline4.pp
2005-01-18 15:47:31 +00:00

19 lines
186 B
ObjectPascal

unit tinline4;
{$inline on}
interface
uses uinline4b;
procedure acall(a,b: longint); inline;
implementation
procedure acall(a,b: longint); inline;
begin
libbase:=nil;
end;
end.