From fb757f7da43d13603d3d8b821f62076336e412a9 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 16 Jun 2016 11:44:04 +0200 Subject: [multiple changes] 2016-06-16 Hristian Kirtchev * exp_attr.adb, inline.adb, sem_attr.adb, sem_elab.adb: Minor reformatting. 2016-06-16 Bob Duff * 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 * 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 * 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 * 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 --- gcc/ada/bindgen.adb | 45 ++++++++++++++++++++++++--------------------- 1 file changed, 24 insertions(+), 21 deletions(-) (limited to 'gcc/ada/bindgen.adb') 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 & ";"); -- cgit v1.1