Source position: sha1.inc line 23
procedure swiSHA1Calc(
digest: pointer;
data: pointer;
len: size_t
);