OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

g-pehage.adb: Minor reformatting

Browse Source 
2008-07-31  Thomas Quinot  <quinot@adacore.com>

	* g-pehage.adb: Minor reformatting

From-SVN: r138379
This commit is contained in:
Thomas Quinot 2008-07-31 12:25:50 +02:00 committed by Arnaud Charlet
parent b4205ab59d
commit c969c5cac3
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/g-pehage.adb
View File

@ -591,7 +591,7 @@ package body GNAT.Perfect_Hash_Generators is
-- Start of processing for Assign_Values_To_Vertices
begin
-- Value -1 denotes an unitialized value as it is supposed to
-- Value -1 denotes an uninitialized value as it is supposed to
-- be in the range 0 .. NK.
if G = No_Table then
@ -1141,11 +1141,10 @@ package body GNAT.Perfect_Hash_Generators is
Tries : Positive := Default_Tries)
is
begin
-- Deallocated the part of the table concerning the reduced
-- words. Initial words are already present in the table. We
-- may have reduced words already there because a previous
-- computation failed. We are currently retrying and the
-- reduced words have to be deallocated.
-- Deallocate the part of the table concerning the reduced words.
-- Initial words are already present in the table. We may have reduced
-- words already there because a previous computation failed. We are
-- currently retrying and the reduced words have to be deallocated.
for W in NK .. WT.Last loop
Free_Word (WT.Table (W));