summaryrefslogtreecommitdiff
path: root/gcc/ada/a-stzhas.adb
diff options
context:
space:
mode:
authorMatthew Heaney <heaney@adacore.com>2005-06-16 10:56:24 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2005-06-16 10:56:24 +0200
commit8704d4b30e3eace58fc9506cf3533b15835c784a (patch)
tree60bbc3a40631ce4a825ff74330cd04720cf0d624 /gcc/ada/a-stzhas.adb
parentdc8f57914cb54a209cf2d52bb04d21502990842b (diff)
downloadgcc-8704d4b30e3eace58fc9506cf3533b15835c784a.tar.gz
a-swunha.ads, [...]: Removed.
2005-06-14 Matthew Heaney <heaney@adacore.com> * a-swunha.ads, a-swunha.adb: Removed. Replaced by a-swuwha.ad[sb] * a-swuwha.ads, a-swuwha.adb: New files * a-szunha.ads, a-szunha.adb: Removed, replaced by a-szuzha.ad[sb] * a-szuzha.ads, a-szuzha.adb: New files. * a-rbtgso.adb, a-crbtgo.ads, a-crbtgo.adb, a-crbtgk.ads, a-crbtgk.adb, a-crbltr.ads, a-coorse.ads, a-coorse.adb, a-convec.ads, a-convec.adb, a-coinve.ads, a-coinve.adb, a-cohata.ads, a-cohama.ads, a-cohama.adb, a-ciorse.ads, a-ciorse.adb, a-cihama.ads, a-cihama.adb, a-cidlli.ads, a-cidlli.adb, a-chtgop.ads, a-chtgop.adb, a-cdlili.ads, a-cdlili.adb, a-coormu.adb, a-ciormu.adb, a-cihase.adb, a-cohase.adb, a-cohase.ads, a-ciorma.ads, a-coorma.ads, a-ciormu.ads, a-coormu.ads, a-swunha.adb, a-stunha.adb, a-ciorma.adb, a-coorma.adb, a-shcain.ads, a-shcain.adb, a-chtgke.ads, a-chtgke.adb, a-stwiha.ads, a-stwiha.adb, a-strhas.adb, a-stzhas.adb: synchronized to the latest version of the Ada 2005 RM. From-SVN: r101069
Diffstat (limited to 'gcc/ada/a-stzhas.adb')
-rw-r--r--gcc/ada/a-stzhas.adb4
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/a-stzhas.adb b/gcc/ada/a-stzhas.adb
index b6fa3a9904e..9c1b752c418 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;
-
-