diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-10 16:34:26 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-10 16:34:26 +0200 |
commit | cd9909a0c90962131d6b58d0af701f6333ecd244 (patch) | |
tree | b877860313e1304b6652f4cf97e7a337ac6efded /gcc/ada/par-ch4.adb | |
parent | 2962b1bbdf404ecd418ed0203efda19ee8c37431 (diff) | |
download | gcc-cd9909a0c90962131d6b58d0af701f6333ecd244.zip gcc-cd9909a0c90962131d6b58d0af701f6333ecd244.tar.gz gcc-cd9909a0c90962131d6b58d0af701f6333ecd244.tar.bz2 |
[multiple changes]
2010-09-10 Robert Dewar <dewar@adacore.com>
* frontend.adb: Minor reformatting.
2010-09-10 Robert Dewar <dewar@adacore.com>
* par-ch4.adb (P_Conditional_Expression): Use P_Condition for condition
* par-ch5.adb (P_Condition): Move from body to spec
* par.adb (Ch5.P_Condition): Move from body to spec
2010-09-10 Ed Schonberg <schonberg@adacore.com>
* exp_cg.adb (Write_Call_Info): If a type that has been registered in
the call table is private, use its full view to generate information
on its operations.
From-SVN: r164181
Diffstat (limited to 'gcc/ada/par-ch4.adb')
-rw-r--r-- | gcc/ada/par-ch4.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 6de5e84a..2d388f6 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -2788,7 +2788,7 @@ package body Ch4 is end if; Scan; -- past IF or ELSIF - Append_To (Exprs, P_Expression_No_Right_Paren); + Append_To (Exprs, P_Condition); TF_Then; Append_To (Exprs, P_Expression); |