Error of identifier name resolving
Original Reporter info from Mantis: kazalex
-
Reporter name: Kazantsev Alexey
Original Reporter info from Mantis: kazalex
- Reporter name: Kazantsev Alexey
Description:
Reproduced for nested types in advanced record
Steps to reproduce:
program fpc_identifier_resolving_bug;
{$mode delphi}
{.$mode objfpc}
{.$modeswitch advancedrecords}
type
C = class
type
tmyintf = class(TInterfacedObject, iinterface)
function _AddRef : longint; stdcall;
end;
end;
R = record
type
tmyintf = class(TInterfacedObject, iinterface)
function _AddRef : longint; stdcall;
end;
end;
function C.tmyintf._AddRef: longint; stdcall;
begin
result := inherited _AddRef; // OK
end;
function R.tmyintf._AddRef: longint; stdcall;
begin
result := inherited _AddRef; // FAIL
end;
begin
end.
Mantis conversion info:
- Mantis ID: 27349
- Build: 29513
- Version: 3.1.1
- Fixed in version: 3.1.1
- Fixed in revision: 34714 (#d4e573c1)
- Monitored by: » kazalex (Kazantsev Alexey)