anchor.diff:      end;
       // Compress input bytes into the current chunk state.
       LCount := Min(ChunkSize - FCS.BytesConsumed, ADataLength);
  -    // FCS.Update(LPtrAData + AIndex, LCount);
  -    // System.Inc(AIndex, LCount);
       FCS.Update(LPtrAData, LCount);
       System.Inc(LPtrAData, LCount);
       System.Dec(ADataLength, LCount);
  
positive.code:   LCount: Int32;
    LPtrCV: PCardinal;
  begin
    // LPtrAData := PByte(AData);
    LPtrAData := PByte(AData) + AIndex;
    System.SetLength(LCV, 8);
    LPtrCV := PCardinal(LCV);
  
negative.code: {$ENDIF FPC}
  end;
  
  constructor TBlake3.CreateInternal(AHashSize: Int32;
    const AKeyWords: THashLibUInt32Array; AFlags: UInt32);
  var
  