diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-22 15:06:41 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-22 15:06:41 +0100 |
| commit | f5f6d8d705722d82c007ecfc56cb338ce72ea17c (patch) | |
| tree | 7e53555c034af514a10577b663690b8774a9c944 /gcc/ada/sem_elab.adb | |
| parent | 2e70d415edf3e75ac4c0e90e5418768042484d53 (diff) | |
| download | gcc-f5f6d8d705722d82c007ecfc56cb338ce72ea17c.zip gcc-f5f6d8d705722d82c007ecfc56cb338ce72ea17c.tar.gz gcc-f5f6d8d705722d82c007ecfc56cb338ce72ea17c.tar.bz2 | |
[multiple changes]
2014-01-22 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, exp_util.adb, sem_dim.adb, sem_elab.adb, sem_ch8.adb,
sem_eval.ads: Minor reformatting.
2014-01-22 Thomas Quinot <quinot@adacore.com>
* sem_eval.adb (Compile_Time_Known_Bounds): Return False for
Any_Composite to prevent cascaded errors.
2014-01-22 Yannick Moy <moy@adacore.com>
* errout.adb (Initialize): Do not insert special entry in Warnings
table in GNATprove_Mode.
* erroutc.adb (Set_Warnings_Mode_On): Add info in Warnings table in
GNATprove_Mode.
* gnat1drv.adb (Adjust_Global_Switches): Do not suppress frontend
warnings anymore.
From-SVN: r206922
Diffstat (limited to 'gcc/ada/sem_elab.adb')
| -rw-r--r-- | gcc/ada/sem_elab.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index d3f9b91..b0b4534 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -2917,11 +2917,11 @@ package body Sem_Elab is -- Build check node, possibly with condition - Chk := Make_Raise_Program_Error (Loc, - Reason => PE_Access_Before_Elaboration); + Chk := + Make_Raise_Program_Error (Loc, Reason => PE_Access_Before_Elaboration); + if Present (C) then - Set_Condition (Chk, - Make_Op_Not (Loc, Right_Opnd => C)); + Set_Condition (Chk, Make_Op_Not (Loc, Right_Opnd => C)); end if; -- If we are inserting at the top level, insert in Aux_Decls |