procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor reformatting.

Browse source 
From-SVN: r185567
This commit is contained in:
Arnaud Charlet 2012-03-20 11:01:05 +01:00
parent ce40d1cea7
commit 3419a445f1
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gcc/ada/sem_ch3.adb
View file

@ -15620,9 +15620,10 @@ package body Sem_Ch3 is
function Root_Corresponding_Discriminant
(Discr : Entity_Id) return Entity_Id
is
D : Entity_Id := Discr;
D : Entity_Id;
begin
D := Discr;
while Present (Corresponding_Discriminant (D)) loop
D := Corresponding_Discriminant (D);
end loop;