From f8e56962463899a75aa424b93e7ba32cabddd504 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 23 Mar 2018 23:12:49 +0000 Subject: [PATCH] re PR ada/85036 (--disable-bootstrap --enable-languages=ada[,c++] fails) PR ada/85036 * gnatlink.adb (Process_Args): Drop existing link switches if multiple switches are passed for --LINK. From-SVN: r258827 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/gnatlink.adb | 5 +++++ 2 files changed, 11 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index cb071fe..d75028d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2018-03-23 Eric Botcazou + + PR ada/85036 + * gnatlink.adb (Process_Args): Drop existing link switches if multiple + switches are passed for --LINK. + 2018-03-12 Eric Botcazou PR ada/82813 diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index e28ba34..cea664b 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -544,6 +544,11 @@ procedure Gnatlink is end if; -- The other arguments are passed as-is to the linker + -- and override those coming from --GCC= if any. + + if L_Args.all'Last >= 2 then + Gcc_Linker_Options.Set_Last (0); + end if; for J in 2 .. L_Args.all'Last loop Gcc_Linker_Options.Increment_Last; -- 2.7.4