fpcsrc/tests/test/opt/twpo2.pp


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

{ %wpoparas=devirtcalls,optvmts }
{ %wpopasses=1 }

{$mode objfpc}

{ same as two1, except with a unit to test loading wpo info from a ppu file }

uses
  uwpo2;

var
  a: ta;
  ca: class of ta;
begin
  tb.test2;
  a:=cc.create;
  a.test;
  a.free
end.