Generics Internal error 2014052305
Original Reporter info from Mantis: hnb
-
Reporter name: Maciej Izak
Original Reporter info from Mantis: hnb
- Reporter name: Maciej Izak
Description:
Generics Internal error 2014052305 for this code:
unit Generics.Collections;
{$MODE DELPHI}
{$MACRO ON}
{$DEFINE CUSTOM_DICTIONARY_CONSTRAINTS := TKey, TValue}
interface
uses
Classes, SysUtils;
type
TPair<TKey, TValue> = record
public
Key: TKey;
Value: TValue;
end;
TEnumerator<T> = class abstract
protected
function DoGetCurrent: T; virtual; abstract;
end;
TCustomDictionaryEnumerator<T, CUSTOM_DICTIONARY_CONSTRAINTS> = class abstract(TEnumerator< T >)
protected
function DoGetCurrent: T; override;
function GetCurrent: T; virtual; abstract;
end;
implementation
function TCustomDictionaryEnumerator<T, CUSTOM_DICTIONARY_CONSTRAINTS>.DoGetCurrent: TPair<TKey, TValue>; // compiler should raise error for this line
begin
Result := GetCurrent;
end;
end.
Mantis conversion info:
- Mantis ID: 26484
- Version: 2.7.1