anchor.diff:    LCount: Int32;
     LPtrCV: PCardinal;
   begin
  -  // LPtrAData := PByte(AData);
     LPtrAData := PByte(AData) + AIndex;
     System.SetLength(LCV, 8);
     LPtrCV := PCardinal(LCV);
  
positive.code:     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);
  
negative.code: {$ENDIF FPC}
  end;
  
  constructor TBlake3.CreateInternal(AHashSize: Int32;
    const AKeyWords: THashLibUInt32Array; AFlags: UInt32);
  var
  