tests/webtbs/tw0825.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

{$mode tp}
{ args for destructors
  are allowed in TP mode for compatibility only PM }

program   test_destructor_with_args;

var
  z : longint;

  type
    tt = object
     constructor dummy;
     destructor done(x : longint);virtual;
    end;

  constructor tt.dummy;
    begin
    end;

  destructor tt.done;
    begin
      Writeln('x in tt.done is ',x);
      z:=x;
    end;

  var
    pt : ^tt;

begin
  Writeln('ln(5)=',ln(5));
  new(pt,dummy);
  pt^.done(4);
  if z<>4 then
    Halt(1);
  pt^.dummy;
  dispose(pt,done(5));
  if z<>5 then
    Halt(1);
end.