diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-01 13:55:43 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-01 13:55:43 +0000 |
| commit | 38846e90212948ff6a6d568ba804f36cf0883b76 (patch) | |
| tree | 894bb96665c4da61e1c1a8cc7d06587a70198889 /gcc/ada/prj.ads | |
| parent | 96b86b94d7f72c986b12cb8a548bb305276fc3d1 (diff) | |
| download | gcc-38846e90212948ff6a6d568ba804f36cf0883b76.tar.gz | |
2011-09-01 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, s-taprop-linux.adb, gnatls.adb: Minor reformatting.
2011-09-01 Jose Ruiz <ruiz@adacore.com>
* adaint.h (__gnat_cpu_free): Fix the name of this profile.
* adaint.c (__gnat_cpu_alloc, __gnat_cpu_alloc_size, __gnat_cpu_free,
__gnat_cpu_zero, __gnat_cpu_set): Create version of these subprograms
specific for systems where their glibc version does not define the
routines to handle dynamically allocated CPU sets.
2011-09-01 Vincent Celier <celier@adacore.com>
* prj-proc.adb, prj.ads, prj-nmsc.adb, prj-util.adb, prj-util.ads,
prj-env.adb: Implement inheritance of naming exceptions in extending
projects.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178418 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index 3ab0f3e62d3..0c404201c0f 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -187,6 +187,7 @@ package Prj is No_Array_Element : constant Array_Element_Id := 0; type Array_Element is record Index : Name_Id; + Restricted : Boolean := False; Src_Index : Int := 0; Index_Case_Sensitive : Boolean := True; Value : Variable_Value; @@ -679,6 +680,8 @@ package Prj is -- corresponding to an Ada file). In general, these are dependencies that -- cannot be computed automatically by the builder. + type Naming_Exception_Type is (No, Yes, Inherited); + -- Structure to define source data type Source_Data is record @@ -791,7 +794,7 @@ package Prj is Switches_TS : Time_Stamp_Type := Empty_Time_Stamp; -- Switches file time stamp - Naming_Exception : Boolean := False; + Naming_Exception : Naming_Exception_Type := No; -- True if the source has an exceptional name Duplicate_Unit : Boolean := False; @@ -840,7 +843,7 @@ package Prj is Switches => No_File, Switches_Path => No_Path, Switches_TS => Empty_Time_Stamp, - Naming_Exception => False, + Naming_Exception => No, Duplicate_Unit => False, Next_In_Lang => No_Source, Next_With_File_Name => No_Source, @@ -864,14 +867,6 @@ package Prj is Equal => "="); -- Mapping of source paths to source ids - package Unit_Sources_Htable is new Simple_HTable - (Header_Num => Header_Num, - Element => Source_Id, - No_Element => No_Source, - Key => Name_Id, - Hash => Hash, - Equal => "="); - type Lib_Kind is (Static, Dynamic, Relocatable); type Policy is (Autonomous, Compliant, Controlled, Restricted, Direct); |