diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 15:33:32 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 15:33:32 +0200 |
| commit | 3ddd922ebf36fb7d4701e8f55e633d27fca54296 (patch) | |
| tree | 2cd208abe1d4a90b529b90894e8a74cc9c7d3425 /gcc/ada/exp_ch4.adb | |
| parent | 444acbddf8211319b4adc6c9b161ce836db7d129 (diff) | |
| download | gcc-3ddd922ebf36fb7d4701e8f55e633d27fca54296.zip gcc-3ddd922ebf36fb7d4701e8f55e633d27fca54296.tar.gz gcc-3ddd922ebf36fb7d4701e8f55e633d27fca54296.tar.bz2 | |
[multiple changes]
2011-08-29 Yannick Moy <moy@adacore.com>
* exp_ch13.adb: Adjust previous change.
2011-08-29 Robert Dewar <dewar@adacore.com>
* sem_prag.adb, prj.adb, sem_util.adb, sem_res.adb, gnat1drv.adb,
exp_ch4.adb, sem_ch8.adb: Minor code reorganization
Minor reformatting.
From-SVN: r178226
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 55ea87a..8ac78ac 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -7593,6 +7593,9 @@ package body Exp_Ch4 is Test : Node_Id; begin + -- Do not expand quantified expressions in ALFA mode + -- why not??? + if ALFA_Mode then return; end if; |