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