diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-22 14:24:57 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-22 14:24:57 +0200 |
| commit | d88a51b1ca66baac89d59b5e379ef1b4f3f78eb4 (patch) | |
| tree | 2c2f2f3cdeb10d78e9d0a86792f53fb95d5c97cd /gcc/ada/a-strhas.adb | |
| parent | d58bc084b4b97eb0056a2658604c855fa1775c5f (diff) | |
| download | gcc-d88a51b1ca66baac89d59b5e379ef1b4f3f78eb4.zip gcc-d88a51b1ca66baac89d59b5e379ef1b4f3f78eb4.tar.gz gcc-d88a51b1ca66baac89d59b5e379ef1b4f3f78eb4.tar.bz2 | |
[multiple changes]
2009-06-22 Thomas Quinot <quinot@adacore.com>
* exp_ch3.adb: Minor code reorganization (avoid an unnecessary tree
copy).
2009-06-22 Ed Falis <falis@adacore.com>
* sysdep.c: remove include for nfsLib.h and an NFS specific error
message for VxWorks 653 vThreads: not supported by the OS.
* gsocket.h: disable sockets for VxWorks 653 vThreads.
2009-06-22 Robert Dewar <dewar@adacore.com>
* sem_ch6.adb: Add ??? comment for bad use of Style_Check
2009-06-22 Matthew Gingell <gingell@adacore.com>
Arnaud Charlet <charlet@adacore.com>
* a-stzhas.adb, a-stwiha.adb, impunit.adb, a-swbwha.adb, a-shcain.adb,
s-htable.adb, a-szuzha.adb, a-stunha.adb, a-stboha.adb, a-strhas.adb,
g-spitbo.adb, s-strhas.adb, a-szbzha.adb, s-strhas.ads, Makefile.rtl,
a-swuwha.adb: New unit System.String_Hash.
Refactor redundant cut and pasted hash functions with instances of a
new generic hash function.
Implement a new string hashing algorithm which appears in testing to
be move effective than to previous approach.
* gcc-interface/Make-lang.in: Update dependencies.
* gcc-interface/Makefile.in: Reindent correctly vms targets.
Fix setting of TOOLS_TARGET_PAIRS for bare board platforms.
Disable socket support for Vxworks 653 vThreads.
Improve handling of signals on darwin.
(GNATMAKE_OBJS): Update dependencies.
From-SVN: r148789
Diffstat (limited to 'gcc/ada/a-strhas.adb')
| -rw-r--r-- | gcc/ada/a-strhas.adb | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/gcc/ada/a-strhas.adb b/gcc/ada/a-strhas.adb index 080d295..f0ee060 100644 --- a/gcc/ada/a-strhas.adb +++ b/gcc/ada/a-strhas.adb @@ -27,23 +27,12 @@ -- This unit was originally developed by Matthew J Heaney. -- ------------------------------------------------------------------------------ --- Note: source of this algorithm: GNAT.HTable.Hash (g-htable.adb) +with System.String_Hash; function Ada.Strings.Hash (Key : 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; - + function Hash is new System.String_Hash.Hash + (Character, String, Hash_Type); begin - Tmp := 0; - for J in Key'Range loop - Tmp := Rotate_Left (Tmp, 3) + Character'Pos (Key (J)); - end loop; - - return Tmp; + return Hash (Key); end Ada.Strings.Hash; |