From de614214052d63a47f70fc32aaeab4ffd8828851 Mon Sep 17 00:00:00 2001
From: Laurent Pautet <pautet@adacore.com>
Date: Mon, 1 Jul 2002 22:10:25 +0000
Subject: [PATCH] Ensure compatibility with 3.14p.

[Imported from Perforce change 4872 at 2006-12-01 19:42:11]

Subversion-branch: /trunk/polyorb
Subversion-revision: 33685
---
 compilers/gnatprfh/g-pehage.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compilers/gnatprfh/g-pehage.adb b/compilers/gnatprfh/g-pehage.adb
index a07308bf9..4e2496780 100644
--- a/compilers/gnatprfh/g-pehage.adb
+++ b/compilers/gnatprfh/g-pehage.adb
@@ -1135,7 +1135,8 @@ package body GNAT.Perfect_Hash.Generators is
       Len  : constant Natural := Value'Length;
    begin
       Word (1 .. Len) := Value (Value'First .. Value'First + Len - 1);
-      WT.Set_Item (NK, Word);
+      WT.Set_Last (NK);
+      WT.Table (NK) := Word;
       NK := NK + 1;
       NV := Natural (Float (NK) * K2V);
       if MKL < Len then