From f96fd197d26faabef756d6cb97d782919685b45e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 2 May 2016 11:11:03 +0200 Subject: [multiple changes] 2016-05-02 Arnaud Charlet * exp_ch5.adb, layout.adb, gnatcmd.adb exp_attr.adb, make.adb, bindgen.adb, debug.adb, exp_pakd.adb, freeze.adb, sem_util.adb, gnatlink.adb, switch-m.adb, exp_ch4.adb, repinfo.adb, adabkend.adb, osint.adb: Remove dead code. 2016-05-02 Yannick Moy * a-tigeli.adb (Get_Line): Fix bound for test to decide when to compensate for character 0 added by call to fgets. From-SVN: r235710 --- gcc/ada/bindgen.adb | 79 ++++------------------------------------------------- 1 file changed, 6 insertions(+), 73 deletions(-) (limited to 'gcc/ada/bindgen.adb') diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 5388fbb..144ab51 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -495,14 +495,6 @@ package body Bindgen is if CodePeer_Mode then WBI (" begin"); - -- When compiling for the AAMP small library, where the standard library - -- is no longer suppressed, we still want to exclude the setting of the - -- various imported globals, which aren't present for that library. - - elsif AAMP_On_Target and then Configurable_Run_Time_On_Target then - WBI (" begin"); - WBI (" null;"); - -- If the standard library is suppressed, then the only global variables -- that might be needed (by the Ravenscar profile) are the priority and -- the processor for the environment task. @@ -1116,38 +1108,9 @@ package body Bindgen is then Set_String (" E"); Set_Unit_Number (Unum_Spec); - - -- The AAMP target has no notion of shared libraries, and - -- there's no possibility of reelaboration, so we treat the - -- the elaboration var as a flag instead of a counter and - -- simply set it. - - if AAMP_On_Target then - Set_String (" := 1;"); - - -- Otherwise (normal case), increment elaboration counter - - else - Set_String (" := E"); - Set_Unit_Number (Unum_Spec); - Set_String (" + 1;"); - end if; - - Write_Statement_Buffer; - - -- In the special case where the target is AAMP and the unit is - -- a spec with a body, the elaboration entity is initialized - -- here. This is done because it's the only way to accomplish - -- initialization of such entities, as there is no mechanism - -- for load time global variable initialization on AAMP. - - elsif AAMP_On_Target - and then U.Utype = Is_Spec - and then Units.Table (Unum_Spec).Set_Elab_Entity - then - Set_String (" E"); + Set_String (" := E"); Set_Unit_Number (Unum_Spec); - Set_String (" := 0;"); + Set_String (" + 1;"); Write_Statement_Buffer; end if; @@ -1171,22 +1134,6 @@ package body Bindgen is -- variables, only calls to 'Elab* subprograms. else - -- In the special case where the target is AAMP and the unit is - -- a spec with a body, the elaboration entity is initialized - -- here. This is done because it's the only way to accomplish - -- initialization of such entities, as there is no mechanism - -- for load time global variable initialization on AAMP. - - if AAMP_On_Target - and then U.Utype = Is_Spec - and then Units.Table (Unum_Spec).Set_Elab_Entity - then - Set_String (" E"); - Set_Unit_Number (Unum_Spec); - Set_String (" := 0;"); - Write_Statement_Buffer; - end if; - -- Check incompatibilities with No_Multiple_Elaboration if not CodePeer_Mode @@ -1270,23 +1217,9 @@ package body Bindgen is then Set_String (" E"); Set_Unit_Number (Unum_Spec); - - -- The AAMP target has no notion of shared libraries, and - -- there's no possibility of reelaboration, so we treat the - -- the elaboration var as a flag instead of a counter and - -- simply set it. - - if AAMP_On_Target then - Set_String (" := 1;"); - - -- Otherwise (normal case), increment elaboration counter - - else - Set_String (" := E"); - Set_Unit_Number (Unum_Spec); - Set_String (" + 1;"); - end if; - + Set_String (" := E"); + Set_Unit_Number (Unum_Spec); + Set_String (" + 1;"); Write_Statement_Buffer; end if; end if; -- cgit v1.1