diff options
author | Vincent Celier <celier@adacore.com> | 2010-06-14 09:22:35 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 11:22:35 +0200 |
commit | 5d993afdcbc8174b8edc27911da2d371838b4c07 (patch) | |
tree | 67bd26981d944dcf47ffdd97d64395c9921ade20 /gcc/ada/ali.adb | |
parent | 49d140bba45474cb8153c4fdc56db0387261d3b1 (diff) | |
download | gcc-5d993afdcbc8174b8edc27911da2d371838b4c07.zip gcc-5d993afdcbc8174b8edc27911da2d371838b4c07.tar.gz gcc-5d993afdcbc8174b8edc27911da2d371838b4c07.tar.bz2 |
gnatbind.adb: Call Scan_ALI with Directly_Scanned set to True for all the ALI files on the...
2010-06-14 Vincent Celier <celier@adacore.com>
* gnatbind.adb: Call Scan_ALI with Directly_Scanned set to True for all
the ALI files on the command line.
* ali.adb (Scan_ALI): Set component Directly_Scanned of the unit(s) to
the same value as the parameter of the same name.
* ali.ads (Scan_ALI): New Boolean parameter Directly_Scanned, defaulted
to False.
* bindgen.adb (Gen_Versions_Ada): Never emit version symbols for
Stand-Alone Library interfaces. When binding Stand-Alone Libraries,
emit version symbols only for the units of the library.
(Gen_Versions_C): Ditto.
From-SVN: r160715
Diffstat (limited to 'gcc/ada/ali.adb')
-rw-r--r-- | gcc/ada/ali.adb | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 20438cf..7655dcc 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -119,14 +119,15 @@ package body ALI is -------------- function Scan_ALI - (F : File_Name_Type; - T : Text_Buffer_Ptr; - Ignore_ED : Boolean; - Err : Boolean; - Read_Xref : Boolean := False; - Read_Lines : String := ""; - Ignore_Lines : String := "X"; - Ignore_Errors : Boolean := False) return ALI_Id + (F : File_Name_Type; + T : Text_Buffer_Ptr; + Ignore_ED : Boolean; + Err : Boolean; + Read_Xref : Boolean := False; + Read_Lines : String := ""; + Ignore_Lines : String := "X"; + Ignore_Errors : Boolean := False; + Directly_Scanned : Boolean := False) return ALI_Id is P : Text_Ptr := T'First; Line : Logical_Line_Number := 1; @@ -1415,6 +1416,7 @@ package body ALI is UL.First_Arg := First_Arg; UL.Elab_Position := 0; UL.SAL_Interface := ALIs.Table (Id).SAL_Interface; + UL.Directly_Scanned := Directly_Scanned; UL.Body_Needed_For_SAL := False; UL.Elaborate_Body_Desirable := False; UL.Optimize_Alignment := 'O'; |