anchor.diff:  function TDBufferBuilder.GetInstanceSize: Integer;
   begin
     Result := FCapacity;
  +end;
  +
  +function TDBufferBuilder.ReadData(var vDest; pvStart, pvLength: Integer):
  +    Integer;
  +begin
  +  if pvStart >= self.FSize then
  +  begin
  +    Result := 0;
  +    exit;
  +  end;
  +  
  +  if pvStart + pvLength > self.FSize then
  +  begin
  +    pvLength := self.FSize - pvStart;
  +  end;
  +  Move(self.FData[pvStart], vDest, pvLength);
  +  Result := pvLength;
   end;
   
   function TDBufferBuilder.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
  
positive.code: function TDBufferBuilder.Append(const w: Word): TDBufferBuilder;
  begin
    Result := AppendBuffer(@w, 2);
  end;
  
  function TDBufferBuilder.AppendBreakLineBytes: TDBufferBuilder;
  
negative.code: end; { CAS64 }
  
  
  
  
  
  function __InterlockedCompareExchange64;
  begin
    Result := InterlockedCompareExchange64Func(Destination, Exchange, Comparand);
  