fpcsrc/tests/test/tinline4.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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.