nested extended records can't see their fields
Original Reporter info from Mantis: Giel
-
Reporter name:
Original Reporter info from Mantis: Giel
- Reporter name:
Description:
This program won't compile (see steps). It does work if you replace both instances "record" with "object".
Yesterday's build.
Steps to reproduce:
program Project1;
{$mode delphi}{$H+}
type
TFoo1 = record
private
type
TFoo3 = record
private
a, b, c: integer;
public
function GetFoo2: integer;
end;
end;
function TFoo1.TFoo3.GetFoo2: integer;
begin
c := a * b; //Error: Identifier not found "c". Same for "a" and "b
end;
begin
end.
Mantis conversion info:
- Mantis ID: 18768
- OS: win64
- Fixed in version: 3.0.0
- Fixed in revision: 19000 (#389c033a)