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/gnatlink.adb | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'gcc/ada/gnatlink.adb') diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index 7417093..073c2c9 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -1868,25 +1868,6 @@ begin Stack_Op : Boolean := False; begin - if AAMP_On_Target then - - -- Remove extraneous flags not relevant for AAMP - - for J in reverse Linker_Options.First .. Linker_Options.Last loop - if Linker_Options.Table (J)'Length = 0 - or else Linker_Options.Table (J) (1 .. 3) = "-Wl" - or else Linker_Options.Table (J) (1 .. 3) = "-sh" - or else Linker_Options.Table (J) (1 .. 2) = "-O" - or else Linker_Options.Table (J) (1 .. 2) = "-g" - then - Linker_Options.Table (J .. Linker_Options.Last - 1) := - Linker_Options.Table (J + 1 .. Linker_Options.Last); - Linker_Options.Decrement_Last; - Num_Args := Num_Args - 1; - end if; - end loop; - end if; - -- Remove duplicate stack size setting from the Linker_Options table. -- The stack setting option "-Xlinker --stack=R,C" can be found -- in one line when set by a pragma Linker_Options or in two lines -- cgit v1.1