anchor.diff:    Sort({$IFDEF FPC}@{$ENDIF}Compare);
   end;
   
  -procedure TAbstractList.Sort(CompareProc: TCompareMethod);
  +procedure TAbstractList.Sort(CompareProc: TListCompareMethod);
     function Partition(L, H: Integer): Integer;
     var
       Elem: Variant;
  
positive.code:     procedure Pack;
      procedure Reverse;
      procedure Sort; overload;
      procedure Sort(CompareProc: TCompareMethod); overload;
      procedure TrimExcess;
      property Item[Index: Integer]: Variant read Get write Put; default;
      property Capacity: Integer read GetCapacity write SetCapacity;
  
negative.code:     procedure Pack;
      procedure Reverse;
      procedure Sort; overload;
      procedure Sort(CompareProc: TListCompareMethod); overload;
      procedure TrimExcess;
      property Item[Index: Integer]: Variant read Get write Put; default;
      property Capacity: Integer read GetCapacity write SetCapacity;
  