blob: ebc05ca879c42cf88db307c38262e513023725a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %fail }
{ Source provided for Free Pascal Bug Report 3047 }
{ Submitted by "GBD" on 2004-04-12 }
{ e-mail: }
{$mode delphi}
function JenkinsHashBuffer(const buffer; length : Integer; initVal : Integer) : longword;
begin
end;
function JenkinsHashString(const s : String) : longword;
begin
result := JenkinsHashBuffer(PChar(s), Length(s), 0)
end;
begin
end.
|
