anchor.diff:    Stream.WriteBuffer(Pointer(S)^, Length(S));
   end;
   
  -procedure TCustomIntegerList.Sort;
  +procedure TCustomCardinalList.Sort;
   begin
     inherited Sort({$IFDEF FPC}@{$ENDIF}SortBySmall );
   end;
   
  -procedure TCustomIntegerList.AddIntegers(IntegerList: TCustomIntegerList);
  +procedure TCustomCardinalList.AddIntegers(IntegerList: TCustomCardinalList);
   var
     ICounter : integer;
   begin
  
positive.code:   end;
  end;
  
  procedure TCustomIntegerList.SaveToFile(const FileName: string);
  var
    Stream: TStream;
  begin
  
negative.code:   end;
  end;
  
  function TSortedCardinalList.InternalGet(Index: Integer): mUnsignedInt;
  begin
  Result := inherited Get(Index);
  end;
  
  procedure TSortedCardinalList.Notify(Ptr: Pointer; Action: TListNotification);
  begin
    FSorted := false;
  end;
  
  procedure TSortedCardinalList.Sort;
  begin
    if FSorted then
      exit;
  