diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-29 10:05:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-29 10:05:54 +0200 |
| commit | 10619438e6edc0ee0511a04aba1f07a51841dec2 (patch) | |
| tree | d9227ddba9aed099c5aea8fe8d9f497f43771f6f | |
| parent | 2c05a837e5aa5bb5e33fe8b276aa0de3ebe49197 (diff) | |
| download | gcc-10619438e6edc0ee0511a04aba1f07a51841dec2.zip gcc-10619438e6edc0ee0511a04aba1f07a51841dec2.tar.gz gcc-10619438e6edc0ee0511a04aba1f07a51841dec2.tar.bz2 | |
* sem_ch3.adb: Minor reformatting
From-SVN: r136139
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 88a4413..f0065b7 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -6285,14 +6285,13 @@ package body Sem_Ch3 is C1 := First_Elmt (New_Discrs); C2 := First_Elmt (Discriminant_Constraint (Derived_Type)); while Present (C1) and then Present (C2) loop - if Fully_Conformant_Expressions (Node (C1), Node (C2)) or else - (Is_OK_Static_Expression (Node (C1)) - and then - Is_OK_Static_Expression (Node (C2)) - and then - Expr_Value (Node (C1)) = Expr_Value (Node (C2))) + (Is_OK_Static_Expression (Node (C1)) + and then + Is_OK_Static_Expression (Node (C2)) + and then + Expr_Value (Node (C1)) = Expr_Value (Node (C2))) then null; |