tests/test/opt/tdfa7.pp


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

{ %OPT=-Oodfa -Sew -vw -Oonodeadvalues }
type
  to1 = object
    procedure Init;
  end;

procedure to1.Init;
  begin
  end;


var
  o1,o2 : to1;

begin
  o1.Init;
  o2:=o1;
end.