diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-02 08:22:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-02 08:22:53 +0000 |
| commit | a45d946f0f125cad8b5c4c410b6aca6daf7eb163 (patch) | |
| tree | e4c85d3b2de31fddee8db6bc6b8d7ffa292131aa /gcc/ada/exp_ch7.adb | |
| parent | fb0ac55984bfa884b01e2b013fd9ef6a9f66292e (diff) | |
| download | gcc-a45d946f0f125cad8b5c4c410b6aca6daf7eb163.tar.gz | |
2012-10-02 Robert Dewar <dewar@adacore.com>
* exp_ch7.adb, sem_dim.adb, sem_dim.ads, prj-part.adb, checks.adb,
freeze.adb, sem_ch4.adb, sem_ch13.adb: Minor reformatting.
2012-10-02 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Analyze_Pragma, case Overflow_Checks): Fix
typo preventing proper processing of Overflow_Checks pragmas
for general case.
2012-10-02 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb (Expand_N_Op_Mod): Fix crash in ELIMINATED overflow
checks mode when bignum mode is used.
2012-10-02 Robert Dewar <dewar@adacore.com>
* stylesw.ads, gnat_ugn.texi: Document new style rule for NOT IN.
* par-ch4.adb (P_Relational_Operator): Add style check for NOT IN.
* style.ads, styleg.adb, styleg.ads (Check_Not_In): New procedure.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@191962 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 2a2b7dde4bb..72a98d221af 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -3643,8 +3643,8 @@ package body Exp_Ch7 is -- iterator specification, where a block is created for the expression -- that build the container. - elsif Nkind (Wrap_Node) = N_Iteration_Scheme - or else Nkind (Wrap_Node) = N_Iterator_Specification + elsif Nkind_In (Wrap_Node, N_Iteration_Scheme, + N_Iterator_Specification) then null; |