anchor.diff:   *                                                        *
    * hprose common unit for delphi.                         *
    *                                                        *
  - * LastModified: Oct 30, 2016                             *
  + * LastModified: Nov 2, 2016                              *
    * Author: Ma Bingyao <andot@hprose.com>                  *
    *                                                        *
   \**********************************************************/
  
positive.code: begin
    FUserData := TCaseInsensitiveHashMap.Create(16, 0.75, False);
    if AUserData <> nil then FUserData.PutAll(AUserData);
  end;
  
  { TVarObjectType }
  
negative.code:     function OutputFilter(const Data: TBytes; const Context: TContext): TBytes; virtual; abstract;
    end;
  
    { TFilterList }
  
    TFilterList = class
    private
      FFilters: IList;
    public
      constructor Create;
      function Get(Index: Integer): IFilter;
      procedure Put(Index: Integer; const Value: IFilter);
      function GetCount: Integer;
      function Add(const Filter: IFilter): TFilterList;
      function Remove(const Filter: IFilter): TFilterList;
      function InputFilter(const Data: TBytes; const Context: TContext): TBytes;
      function OutputFilter(const Data: TBytes; const Context: TContext): TBytes;
      property Filter[Index: Integer]: IFilter read Get write Put; default;
      property Count: Integer read GetCount;
    end;
  
  const
  
  {$IFDEF CPU64}
  