blob: 4e1a653dd094b04182eb26dd311c586b35ffb86f (
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
28
29
|
program tw17952b;
{$mode delphi}
// check visibility of nested types in method headers
type
TFoo1 = class
public
type
TFoo2 = object
end;
TFoo3 = object
procedure Proc(value: TFoo2);
end;
end;
TFoo2 = Integer;
// delphi gives an error here. fpc does not.
// people thinks that this is a bug in delphi (QC# 89846)
procedure TFoo1.TFoo3.Proc(value: TFoo2);
begin
end;
begin
end.
|
