diff options
Diffstat (limited to 'gcc/ada/a-stzhas.adb')
| -rw-r--r-- | gcc/ada/a-stzhas.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/a-stzhas.adb b/gcc/ada/a-stzhas.adb index b6fa3a9..9c1b752 100644 --- a/gcc/ada/a-stzhas.adb +++ b/gcc/ada/a-stzhas.adb @@ -50,10 +50,8 @@ is begin Tmp := 0; for J in Key'Range loop - Tmp := Rotate_Left (Tmp, 1) + Wide_Wide_Character'Pos (Key (J)); + Tmp := Rotate_Left (Tmp, 3) + Wide_Wide_Character'Pos (Key (J)); end loop; return Tmp; end Ada.Strings.Wide_Wide_Hash; - - |