diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-20 13:47:41 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-20 13:47:41 +0000 |
| commit | a33565dde5aa15ee77ef57b7249021e36a56579e (patch) | |
| tree | 20cedaea80ab6c277371fd6f8f8dad11295e175f /gcc/ada/exp_ch9.adb | |
| parent | c39cce408b9bbfdd8c3bf5851b6c8a6abd1e00a1 (diff) | |
| download | gcc-a33565dde5aa15ee77ef57b7249021e36a56579e.tar.gz | |
2014-01-20 Yannick Moy <moy@adacore.com>
* exp_spark.adb (Expand_SPARK_Call): Remove procedure.
* opt.adb, opt.ads (Full_Expander_Active): Remove function.
* checks.adb, exp_ch6.adb, exp_ch9.adb, exp_disp.adb, sem_aggr.adb,
* sem_ch10.adb, sem_ch5.adb, sem_ch6.adb, sem_ch8.adb, sem_ch9.adb,
* sem_disp.adb, sem_res.adb Replace Full_Expander_Active by
Expander_Active.
2014-01-20 Yannick Moy <moy@adacore.com>
* sinfo.ads Update documentation of GNATprove mode.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206806 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 8db80bde74b..cdc15433276 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -5813,7 +5813,7 @@ package body Exp_Ch9 is Ldecl2 : Node_Id; begin - if Full_Expander_Active then + if Expander_Active then -- If we have no handled statement sequence, we may need to build -- a dummy sequence consisting of a null statement. This can be @@ -6123,7 +6123,7 @@ package body Exp_Ch9 is -- barrier just as a protected function, and discard the protected -- version of it because it is never called. - if Full_Expander_Active then + if Expander_Active then B_F := Build_Barrier_Function (N, Ent, Prot); Func := Barrier_Function (Ent); Set_Corresponding_Spec (B_F, Func); @@ -6161,7 +6161,7 @@ package body Exp_Ch9 is -- condition does not reference any of the generated renamings -- within the function. - if Full_Expander_Active and then Scope (Entity (Cond)) /= Func then + if Expander_Active and then Scope (Entity (Cond)) /= Func then Set_Declarations (B_F, Empty_List); end if; @@ -12497,7 +12497,7 @@ package body Exp_Ch9 is Error_Msg_CRT ("protected body", N); return; - elsif Full_Expander_Active then + elsif Expander_Active then -- Associate discriminals with the first subprogram or entry body to -- be expanded. |