diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-10-13 12:47:00 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-10-13 12:47:00 +0200 |
| commit | 3e7302c3cbddf59061529884465a594597ac3f3a (patch) | |
| tree | be019b118f5bc384e66967a00af32c87ecb403da /gcc/ada/sem_ch3.adb | |
| parent | 8417f4b28eb60a8c3eae7d61726a57c468e19b8d (diff) | |
| download | gcc-3e7302c3cbddf59061529884465a594597ac3f3a.zip gcc-3e7302c3cbddf59061529884465a594597ac3f3a.tar.gz gcc-3e7302c3cbddf59061529884465a594597ac3f3a.tar.bz2 | |
[multiple changes]
2011-10-13 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, sem_ch3.adb, impunit.adb, impunit.ads, sem_type.adb,
prj-proc.adb, exp_ch9.adb, s-regpat.adb, sem_ch10.adb, sem_prag.adb,
sem_ch12.adb, freeze.adb, sem_attr.adb, sem_attr.ads, gnatlink.adb,
par-ch6.adb, exp_ch6.adb, sem_ch4.adb, sem_ch6.adb, sem_ch8.adb,
par-util.adb, sem_ch13.adb, lib-xref.adb, g-trasym.adb, g-trasym.ads,
exp_aggr.adb, s-taprop-posix.adb: Minor reformatting.
2011-10-13 Geert Bosch <bosch@adacore.com>
* s-gearop.adb: Minor comment additions.
From-SVN: r179907
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 918763d..607f51c 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -16895,10 +16895,8 @@ package body Sem_Ch3 is when N_Conditional_Expression => declare Then_Expr : constant Node_Id := - Next - (First (Expressions (Original_Node (Exp)))); + Next (First (Expressions (Original_Node (Exp)))); Else_Expr : constant Node_Id := Next (Then_Expr); - begin return OK_For_Limited_Init_In_05 (Typ, Then_Expr) and then OK_For_Limited_Init_In_05 (Typ, Else_Expr); |