diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-31 12:18:47 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-31 12:18:47 +0100 |
| commit | 62a64085bac5eec7bb46c2ea678e3928d8787329 (patch) | |
| tree | 3152e1e54de318f59d597345cbc3c7e8836f3869 /gcc/ada/exp_ch4.adb | |
| parent | c288810f69853733df4452f25b78baaae0350a6c (diff) | |
| download | gcc-62a64085bac5eec7bb46c2ea678e3928d8787329.zip gcc-62a64085bac5eec7bb46c2ea678e3928d8787329.tar.gz gcc-62a64085bac5eec7bb46c2ea678e3928d8787329.tar.bz2 | |
[multiple changes]
2014-10-31 Eric Botcazou <ebotcazou@adacore.com>
* exp_ch4.adb: Minor tweak.
2014-10-31 Eric Botcazou <ebotcazou@adacore.com>
* sem_ch12.adb (Analyze_Package_Instantiation): Do not inline with
back-end inlining.
(Must_Inline_Subp): Delete.
* sem_util.ads, sem_util.adb (Must_Inline): Likewise.
2014-10-31 Ed Schonberg <schonberg@adacore.com>
* freeze.adb (Freeze_Entity): A default_pool does not apply to
internal access types generated for 'access references.
* sem_prag (Analyze_Pragma, case Default_Pool): If the name is
not null it must designate a variable.
2014-10-31 Eric Botcazou <ebotcazou@adacore.com>
* inline.adb: Minor reformatting.
2014-10-31 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Build_Derived_Private_Type): If the derived
type has access discriminants, create itype references for their
anonymous types, so that they are elaborated before the generated
bodies for the primitive operations of the type.
2014-10-31 Tristan Gingold <gingold@adacore.com>
* prj-conf.adb (Locate_Runtime): Remove procedure.
From-SVN: r216963
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index eeada2c..1ed8f3b 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -3610,7 +3610,7 @@ package body Exp_Ch4 is if Atyp = Standard_String and then NN in 2 .. 9 and then (Lib_Level_Target - or else ((Opt.Optimization_Level = 0 or else Debug_Flag_Dot_CC) + or else ((Optimization_Level = 0 or else Debug_Flag_Dot_CC) and then not Debug_Flag_Dot_C)) then declare |