diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-14 13:16:59 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-14 13:16:59 +0000 |
| commit | 7d6851fbbe990b60d2487070afecf9938c3857f4 (patch) | |
| tree | 0f7f721405eed5f3477da90b21bd20778cbd6a8d /gcc/ada/prj-nmsc.adb | |
| parent | 78beb6359ada309266f91eaddd69024f237ba424 (diff) | |
| download | gcc-7d6851fbbe990b60d2487070afecf9938c3857f4.tar.gz | |
2013-10-14 Robert Dewar <dewar@adacore.com>
* s-valuti.adb, prep.adb, scng.adb, errout.adb: Minor reformatting.
2013-10-14 Eric Botcazou <ebotcazou@adacore.com>
* adaint.c: Further disable __gnat_get_executable_load_address
for Linux.
2013-10-14 Vincent Celier <celier@adacore.com>
* gnat_ugn.texi: Add documentation for comparing symbols to
integers in preprocessing expressions.
2013-10-14 Jose Ruiz <ruiz@adacore.com>
* sem_prag.adb (Analyze_Aspect_Specification): For
Priority and CPU aspects in subprograms, the expression in the
aspect is analyzed and exported.
(Analyze_Pragma): When having a Priority pragma in the
main subprogram, load a unit that will force the initialization
of the tasking run time, which is needed for setting the required
priority.
2013-10-14 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Check_Interfaces): Put in Other_Interfaces all
non Ada interface files.
* prj.ads (Project_Data): New component Other_Interfaces.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@203542 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 12a84e55512..eb647df1492 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -2716,7 +2716,8 @@ package body Prj.Nmsc is Other : Source_Id; Unit_Found : Boolean; - Interface_ALIs : String_List_Id := Nil_String; + Interface_ALIs : String_List_Id := Nil_String; + Other_Interfaces : String_List_Id := Nil_String; begin if not Interfaces.Default then @@ -2771,6 +2772,8 @@ package body Prj.Nmsc is Other.Declared_In_Interfaces := True; end if; + -- Unit based case + if Source.Language.Config.Kind = Unit_Based then if Source.Kind = Spec and then Other_Part (Source) /= No_Source @@ -2794,6 +2797,26 @@ package body Prj.Nmsc is Interface_ALIs := String_Element_Table.Last (Shared.String_Elements); + + -- File based case + + else + String_Element_Table.Increment_Last + (Shared.String_Elements); + + Shared.String_Elements.Table + (String_Element_Table.Last + (Shared.String_Elements)) := + (Value => Name_Id (Source.File), + Index => 0, + Display_Value => Name_Id (Source.Display_File), + Location => No_Location, + Flag => False, + Next => Other_Interfaces); + + Other_Interfaces := + String_Element_Table.Last + (Shared.String_Elements); end if; Debug_Output @@ -2825,6 +2848,7 @@ package body Prj.Nmsc is Project.Interfaces_Defined := True; Project.Lib_Interface_ALIs := Interface_ALIs; + Project.Other_Interfaces := Other_Interfaces; elsif Project.Library and then not Library_Interface.Default then |