diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-03-20 11:01:05 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-03-20 11:01:05 +0100 |
| commit | 3419a445f13438e896a43dabaec0cdb63ce6473e (patch) | |
| tree | c0475decbef9784c0c0131f18eaea38535fce4a4 | |
| parent | ce40d1cea727a4ce523c6a002380ce38a30f4fd8 (diff) | |
| download | gcc-3419a445f13438e896a43dabaec0cdb63ce6473e.zip gcc-3419a445f13438e896a43dabaec0cdb63ce6473e.tar.gz gcc-3419a445f13438e896a43dabaec0cdb63ce6473e.tar.bz2 | |
Minor reformatting.
From-SVN: r185567
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 443c2d1..3e10ac3 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -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; |