Наиболее эффективная хэш-функция Unicode для Delphi 2009

мне нужна самая быстрая хэш-функция, возможная в Delphi 2009, которая создаст хэшированные значения из строки Unicode, которая будет распределяться довольно случайным образом в ведра.

Я изначально начал с Габрфункция HashOf от GpStringHash:

function HashOf(const key: string): cardinal;
asm
  xor edx,edx     { result := 0 }
  and eax,eax     { test if 0 }
  jz @End         { skip if nil }
  mov ecx,[eax-4] { ecx := string length }
  jecxz @End      { skip if length = 0 }
@loop:            { repeat }
  rol edx,2       { edx := (edx shl 2) or (edx shr 30)... }
  xor dl,[eax]    { ... xor Ord(key[eax]) }
  inc eax         { inc(eax) }
  loop @loop      { until ecx = 0 }
@End:
  mov eax,edx     { result := eax }
end; { HashOf }

но я обнаружил, что это не дает хороших чисел из строк Unicode. Я отметил, что процедуры Gabr не были обновлены до Delphi 2009.

затем я обнаружил HashNameMBCS в SysUtils of Delphi 2009 и перевел его на эту простую функцию (где "string" - строка Юникода Delphi 2009):

function HashOf(const key: string): cardinal;
var
  I: integer;
begin
  Result := 0;
  for I := 1 to length(key) do
  begin
    Result := (Result shl 5) or (Result shr 27);
    Result := Result xor Cardinal(key[I]);
  end;
end; { HashOf }

Я думал, что это было довольно хорошо, пока я не посмотрел на окно CPU и не увидел код ассемблера, который он создал:

Process.pas.1649: Result := 0;
0048DEA8 33DB             xor ebx,ebx
Process.pas.1650: for I := 1 to length(key) do begin
0048DEAA 8BC6             mov eax,esi
0048DEAC E89734F7FF       call 401348
0048DEB1 85C0             test eax,eax
0048DEB3 7E1C             jle 48ded1
0048DEB5 BA01000000       mov edx,000001
Process.pas.1651: Result := (Result shl 5) or (Result shr 27);
0048DEBA 8BCB             mov ecx,ebx
0048DEBC C1E105           shl ecx,
0048DEBF C1EB1B           shr ebx,b
0048DEC2 0BCB             or ecx,ebx
0048DEC4 8BD9             mov ebx,ecx
Process.pas.1652: Result := Result xor Cardinal(key[I]);
0048DEC6 0FB74C56FE       movzx ecx,[esi+edx*2-]
0048DECB 33D9             xor ebx,ecx
Process.pas.1653: end;
0048DECD 42               inc edx
Process.pas.1650: for I := 1 to length(key) do begin
0048DECE 48               dec eax
0048DECF 75E9             jnz 48deba
Process.pas.1654: end; { HashOf }
0048DED1 8BC3             mov eax,ebx

Это, кажется, содержит немного больше кода ассемблера, чем код Габра.

скорость. Есть ли что-нибудь, что я могу сделать, чтобы улучшить код pascal, который я написал, или ассемблер, который мой код генерируется?

продолжение.

я, наконец, пошел с функцией HashOf, основанной на SysUtils.HashNameMBCS. Кажется, это дает хороший хэш-дистрибутив для строк Unicode и кажется довольно быстрым.

Да, генерируется много ассемблерного кода, но код Delphi, который генерирует его, настолько прост и использует только операции битового сдвига, что трудно поверить, что это не будет быстро.