anchor.diff:  
   { TBson }
   
  -constructor TBson.Create(const ANativeBson: bson_p; AOwnsNativeBson: Boolean);
  +constructor TBson.Create(ANativeBson: bson_p; AOwnsNativeBson: Boolean);
   begin
     inherited Create;
     FNativeBson := ANativeBson;
  
positive.code: 
  function NewBson(const json: UTF8String): IBson; overload;
  function NewBson(const AData: PByte; len: Cardinal): IBson; overload;
  function NewBson(const ANativeBson: bson_p; AOwnsNativeBson: Boolean): IBson; overload;
  function NewBsonCopy(const b: IBson): IBson;
  
  {$IFDEF DELPHIXE2}
  
negative.code:   Result := TBson.Create(AData, len);
  end;
  
  function NewBson(ANativeBson: bson_p; AOwnsNativeBson: Boolean): IBson;
  begin
    Result := TBson.Create(ANativeBson, AOwnsNativeBson);
  end;
  