fpcsrc/tests/tbs/ub0489.pp


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

{$mode delphi}
{$inline on}

unit ub0489;

interface

function test(b:integer;const x;c:integer):integer inline;

implementation

uses
  ub0489b;

function test(b:integer;const x;c:integer):integer inline;
begin
  result:=fpwrite(b,x,c);
end;

end.