diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 11:11:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 11:11:03 +0200 |
| commit | f96fd197d26faabef756d6cb97d782919685b45e (patch) | |
| tree | 3baada419f5066d0448cfe4adb129eaa98d8f006 /gcc/ada/gnatlink.adb | |
| parent | 3ba1a9eb6ec22706bdb084db2f1ab31a32d4dde8 (diff) | |
| download | gcc-f96fd197d26faabef756d6cb97d782919685b45e.zip gcc-f96fd197d26faabef756d6cb97d782919685b45e.tar.gz gcc-f96fd197d26faabef756d6cb97d782919685b45e.tar.bz2 | |
[multiple changes]
2016-05-02 Arnaud Charlet <charlet@adacore.com>
* 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 <moy@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/gnatlink.adb')
| -rw-r--r-- | gcc/ada/gnatlink.adb | 19 |
1 files changed, 0 insertions, 19 deletions
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 |