diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-06-16 11:44:04 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-06-16 11:44:04 +0200 |
| commit | fb757f7da43d13603d3d8b821f62076336e412a9 (patch) | |
| tree | 053397ad0da456b40522b26baa0eeb0cfbf88e9e /gcc/ada/bindgen.adb | |
| parent | 17d7bdd87dcafe86ec678cb22604e4aada008948 (diff) | |
| download | gcc-fb757f7da43d13603d3d8b821f62076336e412a9.zip gcc-fb757f7da43d13603d3d8b821f62076336e412a9.tar.gz gcc-fb757f7da43d13603d3d8b821f62076336e412a9.tar.bz2 | |
[multiple changes]
2016-06-16 Hristian Kirtchev <kirtchev@adacore.com>
* exp_attr.adb, inline.adb, sem_attr.adb, sem_elab.adb: Minor
reformatting.
2016-06-16 Bob Duff <duff@adacore.com>
* sem_util.adb (Collect): Avoid Empty Full_T. Otherwise Etype
(Full_T) crashes when assertions are on.
* sem_ch12.adb (Matching_Actual): Correctly handle the case where
"others => <>" appears in a generic formal package, other than
by itself.
2016-06-16 Arnaud Charlet <charlet@adacore.com>
* usage.adb: Remove confusing comment in usage line.
* bindgen.adb: Fix binder generated file in codepeer mode wrt
recent additions.
2016-06-16 Javier Miranda <miranda@adacore.com>
* restrict.adb (Check_Restriction_No_Use_Of_Entity): Avoid
never-ending loop, code cleanup; adding also support for Text_IO.
* sem_ch8.adb (Find_Expanded_Name): Invoke
Check_Restriction_No_Use_Entity.
2016-06-16 Tristan Gingold <gingold@adacore.com>
* exp_ch9.adb: Minor comment fix.
* einfo.ads (Has_Protected): Clarify comment.
* sem_ch9.adb (Analyze_Protected_Type_Declaration): Do not
consider private protected types declared in the runtime for
the No_Local_Protected_Types restriction.
From-SVN: r237507
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 45 |
1 files changed, 24 insertions, 21 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 144ab51..079ebb4 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -930,35 +930,38 @@ package body Bindgen is Gen_Elab_Calls; - -- Call System.Elaboration_Allocators.Mark_Start_Of_Elaboration if - -- restriction No_Standard_Allocators_After_Elaboration is active. + if not CodePeer_Mode then + -- Call System.Elaboration_Allocators.Mark_Start_Of_Elaboration if + -- restriction No_Standard_Allocators_After_Elaboration is active. - if Cumulative_Restrictions.Set - (No_Standard_Allocators_After_Elaboration) - then - WBI (" System.Elaboration_Allocators.Mark_End_Of_Elaboration;"); - end if; + if Cumulative_Restrictions.Set + (No_Standard_Allocators_After_Elaboration) + then + WBI + (" System.Elaboration_Allocators.Mark_End_Of_Elaboration;"); + end if; - -- From this point, no new dispatching domain can be created + -- From this point, no new dispatching domain can be created - if Dispatching_Domains_Used then - WBI (" Freeze_Dispatching_Domains;"); - end if; + if Dispatching_Domains_Used then + WBI (" Freeze_Dispatching_Domains;"); + end if; - -- Sequential partition elaboration policy + -- Sequential partition elaboration policy - if Partition_Elaboration_Policy_Specified = 'S' then - if System_Interrupts_Used then - WBI (" Install_Restricted_Handlers_Sequential;"); - end if; + if Partition_Elaboration_Policy_Specified = 'S' then + if System_Interrupts_Used then + WBI (" Install_Restricted_Handlers_Sequential;"); + end if; - if System_Tasking_Restricted_Stages_Used then - WBI (" Activate_All_Tasks_Sequential;"); + if System_Tasking_Restricted_Stages_Used then + WBI (" Activate_All_Tasks_Sequential;"); + end if; end if; - end if; - if System_BB_CPU_Primitives_Multiprocessors_Used then - WBI (" Start_Slave_CPUs;"); + if System_BB_CPU_Primitives_Multiprocessors_Used then + WBI (" Start_Slave_CPUs;"); + end if; end if; WBI (" end " & Ada_Init_Name.all & ";"); |