Here is an example:
{ TObjectList<TItem: TObject> = class(TIndexedList<TItem>) }
bare.types.pas(1176,1) procedure/function constructor Create(Boolean);An
unhandled exception occurred at $0816975E:
bare.types.pas(1182,1) procedure/function procedure Clone:TObject;
Fatal: Compilation aborted
Error: ppc386 returned an error exitcode
{ TObjectList<TItem> }
constructor TObjectList<TItem>.Create(OwnsObjects: Boolean);
begin // line 1176
inherited Create;
FOwnsObjects := OwnsObjects;
end;
function TObjectList<TItem>.Clone: TObject;
begin
Result := TObjectList<TItem>.Create(False);
Assign(Result, Self);
end;
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
