fpcsrc/tests/test/tinline6.pp


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
30
31
32
33
34
35
36
37
38
39
40
41
42
43

{$inline on}
{$mode objfpc}

type
  tc = class
    lf: longint;
    procedure t(l: longint); inline;
  end;

var
  a: longint;

procedure tc.t(l: longint); inline;
begin
  lf := 10;
  if (l <> 5) then
    begin
      writeln('error class');
      halt(1);
    end;
end;


procedure t(l: longint); inline;
begin
  a := 10;
  if (l <> 5) then
    begin
      writeln('error proc');
      halt(1);
    end;
end;

var
  c: tc;

begin
  c := tc.create;
  c.lf := 5;
  c.t(c.lf);
  a := 5;
  t(a);
end.