2011-09-02 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb: (Find_Sources): When the list of sources is
explicitly declared in an extending project, do not warn if a source
for an inherited naming exception is not found.
2011-09-02 Gary Dismukes <dismukes@adacore.com>
* exp_ch6.adb: (Is_Build_In_Place_Function_Call): Return False if
expansion is inactive.
2011-09-02 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (Note_Possible_Modification): If the entity
being modified is the renaming generated for an
Ada2012 iterator
element, the enclosing container or array is modified as well.
From-SVN: r178434
+2011-09-02 Robert Dewar <dewar@adacore.com>
+
+ * prj-proc.adb, prj.ads, sem_util.adb, s-taprop-linux.adb,
+ prj-nmsc.adb, prj-util.ads, prj-env.adb: Minor reformatting.
+
2011-09-02 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb: (Find_Sources): When the list of sources is
and then Unit.File_Names (Spec).File /= No_File
and then
(Namet.Get_Name_String
- (Unit.File_Names (Spec).File) = Original_Name
- or else (Unit.File_Names (Spec).Path /=
- No_Path_Information
+ (Unit.File_Names (Spec).File) = Original_Name
+ or else (Unit.File_Names (Spec).Path /= No_Path_Information
and then
Namet.Get_Name_String
- (Unit.File_Names (Spec).Path.Name) =
- Original_Name))
+ (Unit.File_Names (Spec).Path.Name) =
+ Original_Name))
then
- Project := Ultimate_Extending_Project_Of
- (Unit.File_Names (Spec).Project);
+ Project :=
+ Ultimate_Extending_Project_Of
+ (Unit.File_Names (Spec).Project);
Path := Unit.File_Names (Spec).Path.Display_Name;
if Current_Verbosity > Default then
and then
(Namet.Get_Name_String
(Unit.File_Names (Impl).File) = Original_Name
- or else (Unit.File_Names (Impl).Path /=
- No_Path_Information
- and then Namet.Get_Name_String
- (Unit.File_Names (Impl).Path.Name) =
- Original_Name))
+ or else (Unit.File_Names (Impl).Path /= No_Path_Information
+ and then Namet.Get_Name_String
+ (Unit.File_Names (Impl).Path.Name) =
+ Original_Name))
then
- Project := Ultimate_Extending_Project_Of
- (Unit.File_Names (Impl).Project);
+ Project :=
+ Ultimate_Extending_Project_Of
+ (Unit.File_Names (Impl).Project);
Path := Unit.File_Names (Impl).Path.Display_Name;
if Current_Verbosity > Default then
if Source.Index /= 0 then -- Only multi-unit files
declare
S : Source_Id :=
- Source_Files_Htable.Get
- (Data.Tree.Source_Files_HT, Source.File);
+ Source_Files_Htable.Get
+ (Data.Tree.Source_Files_HT, Source.File);
+
begin
while S /= null loop
if S.Path /= No_Path_Information then
Name_Loc.Source := Source;
Source_Names_Htable.Set
(Project.Source_Names, File_Name, Name_Loc);
-
end if;
-
--- if Source /= No_Source and then Source.Unit /= No_Unit_Index then
--- Units_Htable.Set
--- (Data.Tree.Units_HT,
--- Source.Unit.Name,
--- Source.Unit);
--- end if;
end if;
end if;
Elm.Next := No_Array_Element;
Elm.Restricted := Restricted;
+
-- Change the location
Elm.Value.Location := New_Loc;
-- Create new array element
if Arr.Value = No_Array_Element then
- Arr.Value :=
- Array_Element_Table.Last (Shared.Array_Elements);
+ Arr.Value := Array_Element_Table.Last (Shared.Array_Elements);
else
Shared.Array_Elements.Table (E2).Next :=
Array_Element_Table.Last (Shared.Array_Elements);
Kind : Source_Kind;
Display_Path_Name : Name_Id;
Path_Name : Name_Id;
- Unit_Name : Name_Id := No_Name;
- Index : Int := 0;
+ Unit_Name : Name_Id := No_Name;
+ Index : Int := 0;
Naming_Exception : Naming_Exception_Type := No;
end record;
-- Data read from a source info file for a single source
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;
+ Restricted : Boolean := False;
+ Src_Index : Int := 0;
+ Index_Case_Sensitive : Boolean := True;
Value : Variable_Value;
Next : Array_Element_Id := No_Array_Element;
end record;
Result := pthread_mutexattr_init (Mutex_Attr'Access);
pragma Assert (Result = 0);
- Result := pthread_mutex_init (Self_ID.Common.LL.L'Access,
- Mutex_Attr'Access);
+ Result :=
+ pthread_mutex_init (Self_ID.Common.LL.L'Access, Mutex_Attr'Access);
pragma Assert (Result = 0 or else Result = ENOMEM);
if Result /= 0 then
Result := pthread_condattr_init (Cond_Attr'Access);
pragma Assert (Result = 0);
- Result := pthread_cond_init (Self_ID.Common.LL.CV'Access,
- Cond_Attr'Access);
+ Result :=
+ pthread_cond_init (Self_ID.Common.LL.CV'Access, Cond_Attr'Access);
pragma Assert (Result = 0 or else Result = ENOMEM);
if Result = 0 then
use type System.Multiprocessors.CPU_Range;
begin
- -- Check whether both Dispatching_Domain and CPU are specified for the
- -- task, and the CPU value is not contained within the range of
+ -- Check whether both Dispatching_Domain and CPU are specified for
+ -- the task, and the CPU value is not contained within the range of
-- processors for the domain.
if T.Common.Domain /= null
end if;
Result :=
- pthread_attr_setstacksize
- (Attributes'Access, Adjusted_Stack_Size);
+ pthread_attr_setstacksize (Attributes'Access, Adjusted_Stack_Size);
pragma Assert (Result = 0);
Result :=
-- a modification of the container.
elsif Comes_From_Source (Original_Node (Exp))
- and then
- Nkind_In (Original_Node (Exp),
- N_Selected_Component, N_Indexed_Component)
+ and then Nkind_In (Original_Node (Exp), N_Selected_Component,
+ N_Indexed_Component)
then
Exp := Prefix (Original_Node (Exp));
goto Continue;