procedure/function-of-object type with NESTED genercis triggers Internal Error 2015080101
Original Reporter info from Mantis: ExSystem
-
Reporter name: ExSystem
Original Reporter info from Mantis: ExSystem
- Reporter name: ExSystem
Description:
Cannot declare a procedure/function-of-object type with NESTED genercis, like this one:
TAssertion&LtPos;K, R, M> = Function(Acl: TAcl&LtPos;K, R, M>; Rold: IRole; Resource: IResource; Privilege: String): Boolean Of Object;
Steps to reproduce:
1.Create a new empty Win32 application.
2.Edit Unit1 like this:
=========================================
Unit Unit1;
{mode delphi}{
H+}
Interface
Uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
Type
TForm1 = Class(TForm)
Private
{ private declarations }
Public
{ public declarations }
End;
TAcl<K, R, M> = Class
End;
TAssertion<K, R, M> = Function(Acl: TAcl<K, R, M>): Boolean Of Object;
Var
Form1: TForm1;
Implementation
{$R *.lfm}
End.
=====================================
3.Run the application, and get:
unit1.pas(21,45) Error: Internal error 2015080101
Mantis conversion info:
- Mantis ID: 30030
- Version: 3.1.1
- Fixed in version: 3.1.1
- Fixed in revision: 33544 (#d07b4927)