ada/PolyORB
0
0
Fork 0
mirror of https://github.com/AdaCore/PolyORB.git synced 2026-02-12 13:01:15 -08:00
Code Issues Packages Projects Releases Wiki Activity

Ensure compatibility with 3.14p.

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

Subversion-branch: /trunk/polyorb
Subversion-revision: 33685
This commit is contained in:
Laurent Pautet
2002-07-01 22:10:25 +00:00
parent c3dae1ef92
commit de61421405
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
compilers/gnatprfh/g-pehage.adb
View File

@@ -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