aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-stzhas.ads
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2009-06-23 11:49:38 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2009-06-23 11:49:38 +0200
commitd6a24cdbbf6412c8b716a9dfddefb0b6796222b6 (patch)
tree8c7c8114c8cd4bd5b787f13806517937d979cc1a /gcc/ada/a-stzhas.ads
parentf91c36dc88741e66ea0210ac26b8bea004b1d776 (diff)
downloadgcc-d6a24cdbbf6412c8b716a9dfddefb0b6796222b6.zip
gcc-d6a24cdbbf6412c8b716a9dfddefb0b6796222b6.tar.gz
gcc-d6a24cdbbf6412c8b716a9dfddefb0b6796222b6.tar.bz2
[multiple changes]
2009-06-23 Javier Miranda <miranda@adacore.com> * exp_ch4.adb (Displace_Allocator_Pointer, Expand_N_Allocator): Handle designated types referencing entities from the limited view. 2009-06-23 Matthew Gingell <gingell@adacore.com> * a-stzhas.ads, a-szfzha.ads: Fix typo. * Makefile.rtl: Ada.Strings.Wide_Wide_Fixed.Wide_Wide_Hash depends on Ada.Strings.Wide_Wide_Hash. So we need to include a-stzhas in the list of RTS files. 2009-06-23 Thomas Quinot <quinot@adacore.com> * ali.adb: Minor reformatting 2009-06-23 Ed Schonberg <schonberg@adacore.com> * sem_ch8.adb: Improve error message. 2009-06-23 Emmanuel Briot <briot@adacore.com> * prj-nmsc.adb: Minor reformating * prj-conf.adb, prj-conf.ads: Remove use of Osint.Fail everywhere (Do_Autoconf): accepts an empty Normalized_Hostname (Process_Project_And_Apply_Config): New subprogram (Parse_Project_And_Apply_Config): On_Load_Config now applies to the project tree rather than the project view. * prj-part.adb, prj.ads (Project_Qualifier): New possible value Configuration. From-SVN: r148838
Diffstat (limited to 'gcc/ada/a-stzhas.ads')
-rw-r--r--gcc/ada/a-stzhas.ads4
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/a-stzhas.ads b/gcc/ada/a-stzhas.ads
index f7060e7..0c87672 100644
--- a/gcc/ada/a-stzhas.ads
+++ b/gcc/ada/a-stzhas.ads
@@ -16,8 +16,10 @@
-- Is this really an RM unit? Doc needed???
with Ada.Containers;
+with System.String_Hash;
function Ada.Strings.Wide_Wide_Hash
- (Key : Wide_Wide_String) return Containers.Hash_Type;
+is new System.String_Hash.Hash
+ (Wide_Wide_Character, Wide_Wide_String, Containers.Hash_Type);
pragma Pure (Ada.Strings.Wide_Wide_Hash);