Source position: flcCryptoHash.pas line 221
procedure Digest512XOR32(
var Digest: T512BitDigest;
const A: Word32
);