anchor.diff:   *                                                        *
    * hprose common unit for delphi.                         *
    *                                                        *
  - * LastModified: Nov 30, 2016                             *
  + * LastModified: Dec 1, 2016                              *
    * Author: Ma Bingyao <andot@hprose.com>                  *
    *                                                        *
   \**********************************************************/
  
positive.code:     end;
  {$ENDIF}
    end;
  end;
  
  {$IFDEF FPC}
  
negative.code: function VarIsIntf(const Value: Variant; const IID: TGUID): Boolean; overload;
  function VarToIntf(const Value: Variant; const IID: TGUID; out AIntf): Boolean;
  function IntfToObj(const Intf: IInterface): TInterfacedObject;
  function VarToBytes(const Value: Variant): TBytes;
  function BytesToVar(const Value: TBytes): Variant;
  
  {$IFDEF FPC}
  operator :=(const Source : Variant) Dest : TObject; inline;
  