diff options
Diffstat (limited to 'gcc/ada/a-stunha.adb')
| -rw-r--r-- | gcc/ada/a-stunha.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/a-stunha.adb b/gcc/ada/a-stunha.adb index a6b6920514e..1f8d6bcf3e5 100644 --- a/gcc/ada/a-stunha.adb +++ b/gcc/ada/a-stunha.adb @@ -2,11 +2,11 @@ -- -- -- GNAT LIBRARY COMPONENTS -- -- -- --- ADA.STRINGS.UNBOUNDED.HASH -- +-- A D A . S T R I N G S . U N B O U N D E D . H A S H -- -- -- -- B o d y -- -- -- --- Copyright (C) 2004 Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2005 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -50,7 +50,7 @@ is begin Tmp := 0; for J in 1 .. Key.Last loop - Tmp := Rotate_Left (Tmp, 1) + Character'Pos (Key.Reference (J)); + Tmp := Rotate_Left (Tmp, 3) + Character'Pos (Key.Reference (J)); end loop; return Tmp; |