git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Minor reformatting. 

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;