[fpc-devel] TList slowness in classes

[Mattias Gaertner]

On Fri, 24 Dec 2004 10:56:24 +0100 (W. Europe Standard Time)
Michael Van Canneyt <michael.vancanneyt at wisa.be> wrote:

> > If the answer is yes, then maybe it's safe to compile parts of FPC
> > sources in lists.inc (like TList.Get) inside {$IMPLICITEXCEPTIONS OFF} ?

Why not put it into a sub proc:

function TList.Get(Index: Integer): Pointer;

  procedure RaiseIndexError;
  begin
    Error(SListIndexError,Index);
  end;

begin
  If (Index<0) or (Index>=FCount) then
    RaiseIndexError;
  Result:=FList^[Index];
end;

?


Mattias