Hello,
Fpc version: 3.0 (the one included with Lazarus 1.6).
Please confirm if it is a bug: it seems the compiler doesn't handle operator overloading properly when using generic record with local specializations.
===== Code =====
unit Test;
{$mode delphi}
type
TMyRecord<T> = record
class operator Add(A,B: TMyRecord<T>): TMyRecord<T>;
end;
implementation
class operator TMyRecord<T>.Add(A,B: TMyRecord<T>): TMyRecord<T>;
begin
// add implementation
end;
procedure TestIfCompiles;
type
TInteger = TMyRecord<Integer>;
var
N1, N2: TInteger;
begin
N1 := N2 + N2; /// DOES NOT COMPILE: Operator is not overloaded:
TMyRecord + TMyRecord
end;==== END =====
To compile this code, move the declarion of the type TInteger to the global scope, as follows:
===== Code =====
unit Test;
{$mode delphi}
type
TMyRecord<T> = record
class operator Add(A,B: TMyRecord<T>): TMyRecord<T>;
end;
TInteger = TMyRecord<Integer>;
implementation
class operator TMyRecord<T>.Add(A,B: TMyRecord<T>): TMyRecord<T>;
begin
// add implementation
end;
procedure TestIfCompiles;
var
N1, N2: TInteger;
begin
N1 := N2 + N2;
end;==== END =====
Regards