diff options
author | Robert Dewar <dewar@adacore.com> | 2010-10-05 10:14:50 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-05 12:14:50 +0200 |
commit | 3ce5ca7546a3772a770a7456d9575b3d10c0380e (patch) | |
tree | ba7fd118079ee940543d3f23197253b06e5567f7 /gcc/ada/gnatlink.adb | |
parent | 96d2756f41a4a5f90fa8c302e38be5e35761d14b (diff) | |
download | gcc-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.adb | 1 |
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" |