blob: 1732a92b3d053699c02f0c99be5f414a399dd626 (
plain)
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
|
{ Old file: tbs0096.pp }
{ problem with objects as parameters OK 0.99.6 (PM) }
type
TParent = object
end;
PParent = ^TParent;
TChild = object(TParent)
end;
procedure aProc(const x : TParent );
begin
end;
procedure anotherProc(var x : TParent );
begin
end;
var
y : TChild;
begin
aProc(y);
anotherProc(y);
end.
|
