anchor.diff:  
         procedure FillBlock(var Ax, Ay, ACurrentBlock: TBlock; AWithXor: Boolean);
   
  +      {
  +        *designed by the Lyra PHC team */
  +        /* a <- a + b + 2*aL*bL
  +        * + == addition modulo 2^64
  +        * aL = least 32 bit
  +        * }
  +      class procedure FBlaMka(var ABlock: TBlock; Ax, Ay: Int32);
  +        static; inline;
  +      class procedure Rotr64(var ABlock: TBlock; Av, Aw, Ac: Int32);
  +        static; inline;
  +      class procedure F(var ABlock: TBlock; Aa, Ab, Ac, Ad: Int32);
  +        static; inline;
  +      class procedure RoundFunction(var ABlock: TBlock;
  +        Av0, Av1, Av2, Av3, Av4, Av5, Av6, Av7, Av8, Av9, Av10, Av11, Av12,
  +        Av13, Av14, Av15: Int32); static; inline;
  +
       public
         property R: TBlock read GetR;
         property Z: TBlock read GetZ;
  
positive.code:     (APosition.FSlice * FSegmentLength) + LStartingIndex;
    LPrevOffset := GetPrevOffset(LCurrentOffset);
  
    if (LDataIndependentAddressing) then
    begin
      LAddressBlock := LFiller.AddressBlock.Clear();
  
negative.code:   inherited Destroy;
  end;
  
  end.
  