[fpc-devel] A lot of stuff broke, looking for advice

Anthony Walter sysrpl at gmail.com
Mon Jul 8 16:39:36 CEST 2013


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;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20130708/6f4aaf2c/attachment.html>


More information about the fpc-devel mailing list