mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-26 07:40:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

* sem_ch3.adb: Minor reformatting

Browse Source 
From-SVN: r136139
This commit is contained in:
Arnaud Charlet 2008-05-29 10:05:54 +02:00
parent 2c05a837e5
commit 10619438e6
1 changed files with 5 additions and 6 deletions

11
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;