diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-30 05:27:25 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-30 05:27:25 +0000 |
| commit | 125da2199fbe37d73f566834eaf8528ee36f18e1 (patch) | |
| tree | ff221cf3fd6ff96b14dcaf091dbf512b2752502b /gcc/ada/a-stzhas.adb | |
| parent | 1d34abac81450ec8b2e2874b91318c6abdc4e5ac (diff) | |
| download | gcc-125da2199fbe37d73f566834eaf8528ee36f18e1.tar.gz | |
2009-06-29 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r149060
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@149081 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-stzhas.adb')
| -rw-r--r-- | gcc/ada/a-stzhas.adb | 31 |
1 files changed, 8 insertions, 23 deletions
diff --git a/gcc/ada/a-stzhas.adb b/gcc/ada/a-stzhas.adb index 1a72e0a554c..a48fd0346a9 100644 --- a/gcc/ada/a-stzhas.adb +++ b/gcc/ada/a-stzhas.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2009, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -24,28 +24,13 @@ -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- -- <http://www.gnu.org/licenses/>. -- -- -- --- This unit was originally developed by Matthew J Heaney. -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- ------------------------------------------------------------------------------ --- Note: source of this algorithm: GNAT.HTable.Hash (g-htable.adb) - -function Ada.Strings.Wide_Wide_Hash - (Key : Wide_Wide_String) return Containers.Hash_Type -is - use Ada.Containers; - - function Rotate_Left - (Value : Hash_Type; - Amount : Natural) return Hash_Type; - pragma Import (Intrinsic, Rotate_Left); - - Tmp : Hash_Type; - -begin - Tmp := 0; - for J in Key'Range loop - Tmp := Rotate_Left (Tmp, 3) + Wide_Wide_Character'Pos (Key (J)); - end loop; +-- This package does not require a body, since it is an instantiation. We +-- provide a dummy file containing a No_Body pragma so that previous versions +-- of the body (which did exist) will not interfere. - return Tmp; -end Ada.Strings.Wide_Wide_Hash; +pragma No_Body; |