anchor.diff:  var
     Elem: Variant;
   begin
  +  if Index1 = Index2 then exit;
     if (Index1 < 0) or (Index1 >= FCount) then
       raise EArrayListError.CreateResFmt(@SListIndexError, [Index1]);
     if (Index2 < 0) or (Index2 >= FCount) then
  
positive.code:   end;
  end;
  
  procedure TAbstractList.TrimExcess;
  begin
    SetCapacity(Count);
  
negative.code: end;
  {$ENDIF}
  
  {$IF NOT DEFINED(DELPHI2009_UP) AND NOT DEFINED(FPC)}
  const
    MemoryDelta = $2000; { Must be a power of 2 }
  