diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-20 12:57:55 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-20 12:57:55 +0100 |
| commit | e4dc33272aaa7bb8660b94019627cba85740a49c (patch) | |
| tree | 06043834a9b94039c853a17d0a8ccbb091f3d5e5 /gcc/ada/bindgen.adb | |
| parent | 5ae7c3cf2e21534dda6af57c5c34318d30d0c98a (diff) | |
| download | gcc-e4dc33272aaa7bb8660b94019627cba85740a49c.zip gcc-e4dc33272aaa7bb8660b94019627cba85740a49c.tar.gz gcc-e4dc33272aaa7bb8660b94019627cba85740a49c.tar.bz2 | |
[multiple changes]
2015-02-20 Gary Dismukes <dismukes@adacore.com>
* sem_res.adb: Minor reformatting.
2015-02-20 Vincent Celier <celier@adacore.com>
* switch-c.adb (Scan_Front_End_Switches): When comparing runtime
path name for several switches --RTS, use the normalized path
names.
2015-02-20 Vincent Celier <celier@adacore.com>
* bindgen.adb: Minor reformatting and code reorganization.
2015-02-20 Jose Ruiz <ruiz@adacore.com>
* a-stcoed.ads: Add spec for this package (Unimplemented_Unit).
* impunit.adb (Non_Imp_File_Names_12): Mark unit a-stcoed.ads as
defined by Ada 2012.
From-SVN: r220853
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 31 |
1 files changed, 17 insertions, 14 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 9f4f105..b3589d4 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1992,6 +1992,21 @@ package body Bindgen is end loop; end if; + if not (Opt.No_Run_Time_Mode or Opt.No_Stdlib) then + Name_Len := 0; + + if Opt.Shared_Libgnat then + Add_Str_To_Name_Buffer ("-shared"); + else + Add_Str_To_Name_Buffer ("-static"); + end if; + + -- Write directly to avoid inclusion in -K output as -static and + -- -shared are not usually specified linker options. + + WBI (" -- " & Name_Buffer (1 .. Name_Len)); + end if; + -- Sort linker options -- This sort accomplishes two important purposes: @@ -2050,18 +2065,6 @@ package body Bindgen is -- linking (not clear if this is still the case, but it is harmless). if not (Opt.No_Run_Time_Mode or else Opt.No_Stdlib) then - Name_Len := 0; - - if Opt.Shared_Libgnat then - Add_Str_To_Name_Buffer ("-shared"); - else - Add_Str_To_Name_Buffer ("-static"); - end if; - - -- Write directly to avoid -K output (why???) - - WBI (" -- " & Name_Buffer (1 .. Name_Len)); - if With_GNARL then Name_Len := 0; @@ -2923,7 +2926,7 @@ package body Bindgen is end if; end Check_Package; - -- Start of processing for Check_Package + -- Start of processing for Resolve_Binder_Options begin for E in Elab_Order.First .. Elab_Order.Last loop |