Unable to use strict priave type in nested procedure parameter
Original Reporter info from Mantis: alexvins
-
Reporter name: Alexander Shishkin
Original Reporter info from Mantis: alexvins
- Reporter name: Alexander Shishkin
Description:
If class has some strict private type and it used as a parameter of nested procedure in method "Identifier not found" error occurs.
Steps to reproduce:
unit unit2;
{$mode objfpc}{$H+}
interface
type
{ TFoo }
TFoo = class
strict private
type
TBar = type integer;
public
procedure test;
end;
implementation
{ TFoo }
procedure TFoo.test;
procedure Inner(param: TBar)
begin
end;
begin
end;
end.
Mantis conversion info:
- Mantis ID: 20038
- Version: 2.7.1
- Fixed in version: 3.0.0
- Fixed in revision: 19641 (#7f7c665e)
- Monitored by: » alexvins (Alexander Shishkin)