aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/par-ch4.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2010-09-10 16:34:26 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2010-09-10 16:34:26 +0200
commitcd9909a0c90962131d6b58d0af701f6333ecd244 (patch)
treeb877860313e1304b6652f4cf97e7a337ac6efded /gcc/ada/par-ch4.adb
parent2962b1bbdf404ecd418ed0203efda19ee8c37431 (diff)
downloadgcc-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.adb2
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);