aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gnatlink.adb
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2010-10-05 10:14:50 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2010-10-05 12:14:50 +0200
commit3ce5ca7546a3772a770a7456d9575b3d10c0380e (patch)
treeba7fd118079ee940543d3f23197253b06e5567f7 /gcc/ada/gnatlink.adb
parent96d2756f41a4a5f90fa8c302e38be5e35761d14b (diff)
downloadgcc-3ce5ca7546a3772a770a7456d9575b3d10c0380e.zip
gcc-3ce5ca7546a3772a770a7456d9575b3d10c0380e.tar.gz
gcc-3ce5ca7546a3772a770a7456d9575b3d10c0380e.tar.bz2
exp_ch3.adb, [...]: Minor code reorganization.
2010-10-05 Robert Dewar <dewar@adacore.com> * exp_ch3.adb, exp_ch5.adb, exp_disp.adb, exp_dist.adb, gnatlink.adb, makeutl.adb, par-ch6.adb, prj-dect.adb, prj-env.adb, prj-env.ads, prj-ext.adb, prj-nmsc.adb, prj-part.adb, prj-pp.ads: Minor code reorganization. Minor reformatting. From-SVN: r164979
Diffstat (limited to 'gcc/ada/gnatlink.adb')
-rw-r--r--gcc/ada/gnatlink.adb1
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb
index b2fcf23..bd41b34 100644
--- a/gcc/ada/gnatlink.adb
+++ b/gcc/ada/gnatlink.adb
@@ -2001,6 +2001,7 @@ begin
for J in reverse Linker_Options.First .. Linker_Options.Last loop
-- Remove flags that are not accepted
+
if Linker_Options.Table (J)'Length = 0
or else Linker_Options.Table (J) (1 .. 2) = "-l"
or else Linker_Options.Table (J) (1 .. 3) = "-Wl"