Commit 39ad1665 by Arnaud Charlet

[multiple changes]

2012-04-25  Robert Dewar  <dewar@adacore.com>

	* sem_ch3.adb, csinfo.adb, lib-writ.adb, sem_ch12.adb,
	lib-xref.adb: Minor reformatting.

2012-04-25  Hristian Kirtchev  <kirtchev@adacore.com>

	* exp_ch9.adb: Rename Lock_Free_Sub_Type
	to Lock_Free_Subprogram. Remove type Subprogram_Id.
	Rename LF_Sub_Table to Lock_Free_Subprogram_Table.
	(Allow_Lock_Free_Implementation): Renamed to
	Allows_Lock_Free_Implementation.  Update the comment on
	lock-free restrictions. Code clean up and restructuring.
	(Build_Lock_Free_Protected_Subprogram_Body): Update the
	profile and related comments. Code clean up and restructuring.
	(Build_Lock_Free_Unprotected_Subprogram_Body): Update the
	profile and related comments. Code clean up and restructuring.
	(Comp_Of): Removed.

From-SVN: r186828
parent d024b126
2012-04-25 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, csinfo.adb, lib-writ.adb, sem_ch12.adb,
lib-xref.adb: Minor reformatting.
2012-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch9.adb: Rename Lock_Free_Sub_Type
to Lock_Free_Subprogram. Remove type Subprogram_Id.
Rename LF_Sub_Table to Lock_Free_Subprogram_Table.
(Allow_Lock_Free_Implementation): Renamed to
Allows_Lock_Free_Implementation. Update the comment on
lock-free restrictions. Code clean up and restructuring.
(Build_Lock_Free_Protected_Subprogram_Body): Update the
profile and related comments. Code clean up and restructuring.
(Build_Lock_Free_Unprotected_Subprogram_Body): Update the
profile and related comments. Code clean up and restructuring.
(Comp_Of): Removed.
2012-04-25 Vincent Celier <celier@adacore.com> 2012-04-25 Vincent Celier <celier@adacore.com>
* sem_ch12.adb (Inherit_Context): Compare library units, not * sem_ch12.adb (Inherit_Context): Compare library units, not
......
...@@ -199,36 +199,36 @@ begin ...@@ -199,36 +199,36 @@ begin
-- by Csinfo, since they are specially handled. This means that any field -- by Csinfo, since they are specially handled. This means that any field
-- definition or subprogram with a matching name is ignored. -- definition or subprogram with a matching name is ignored.
Set (Special, "Analyzed", True); Set (Special, "Analyzed", True);
Set (Special, "Assignment_OK", True); Set (Special, "Assignment_OK", True);
Set (Special, "Associated_Node", True); Set (Special, "Associated_Node", True);
Set (Special, "Cannot_Be_Constant", True); Set (Special, "Cannot_Be_Constant", True);
Set (Special, "Chars", True); Set (Special, "Chars", True);
Set (Special, "Comes_From_Source", True); Set (Special, "Comes_From_Source", True);
Set (Special, "Do_Overflow_Check", True); Set (Special, "Do_Overflow_Check", True);
Set (Special, "Do_Range_Check", True); Set (Special, "Do_Range_Check", True);
Set (Special, "Entity", True); Set (Special, "Entity", True);
Set (Special, "Entity_Or_Associated_Node", True); Set (Special, "Entity_Or_Associated_Node", True);
Set (Special, "Error_Posted", True); Set (Special, "Error_Posted", True);
Set (Special, "Etype", True); Set (Special, "Etype", True);
Set (Special, "Evaluate_Once", True); Set (Special, "Evaluate_Once", True);
Set (Special, "First_Itype", True); Set (Special, "First_Itype", True);
Set (Special, "Has_Aspect_Specifications", True); Set (Special, "Has_Aspect_Specifications", True);
Set (Special, "Has_Dynamic_Itype", True); Set (Special, "Has_Dynamic_Itype", True);
Set (Special, "Has_Dynamic_Range_Check", True); Set (Special, "Has_Dynamic_Range_Check", True);
Set (Special, "Has_Dynamic_Length_Check", True); Set (Special, "Has_Dynamic_Length_Check", True);
Set (Special, "Has_Private_View", True); Set (Special, "Has_Private_View", True);
Set (Special, "Implicit_With_From_Instantiation", True); Set (Special, "Implicit_With_From_Instantiation", True);
Set (Special, "Is_Controlling_Actual", True); Set (Special, "Is_Controlling_Actual", True);
Set (Special, "Is_Overloaded", True); Set (Special, "Is_Overloaded", True);
Set (Special, "Is_Static_Expression", True); Set (Special, "Is_Static_Expression", True);
Set (Special, "Left_Opnd", True); Set (Special, "Left_Opnd", True);
Set (Special, "Must_Not_Freeze", True); Set (Special, "Must_Not_Freeze", True);
Set (Special, "Nkind_In", True); Set (Special, "Nkind_In", True);
Set (Special, "Parens", True); Set (Special, "Parens", True);
Set (Special, "Pragma_Name", True); Set (Special, "Pragma_Name", True);
Set (Special, "Raises_Constraint_Error", True); Set (Special, "Raises_Constraint_Error", True);
Set (Special, "Right_Opnd", True); Set (Special, "Right_Opnd", True);
-- Loop to acquire information from node definitions in sinfo.ads, -- Loop to acquire information from node definitions in sinfo.ads,
-- checking for consistency in Op/Flag assignments to each synonym -- checking for consistency in Op/Flag assignments to each synonym
...@@ -627,7 +627,6 @@ begin ...@@ -627,7 +627,6 @@ begin
declare declare
List : constant TV.Table_Array := Convert_To_Array (Fields1); List : constant TV.Table_Array := Convert_To_Array (Fields1);
begin begin
if List'Length /= 0 then if List'Length /= 0 then
Put_Line ("Missing procedure Set_" & List (1).Name & " in body"); Put_Line ("Missing procedure Set_" & List (1).Name & " in body");
......
...@@ -197,8 +197,9 @@ package body Lib.Writ is ...@@ -197,8 +197,9 @@ package body Lib.Writ is
-- Array of flags to show which units have Elaborate_All_Desirable set -- Array of flags to show which units have Elaborate_All_Desirable set
type Yes_No is (Unknown, Yes, No); type Yes_No is (Unknown, Yes, No);
Implicit_With : array (Units.First .. Last_Unit) of Yes_No; Implicit_With : array (Units.First .. Last_Unit) of Yes_No;
-- Indicates if an implicit with has been given for the unit. Yes if
-- certainly present, no if certainly absent, unkonwn if not known.
Sdep_Table : Unit_Ref_Table (1 .. Pos (Last_Unit - Units.First + 2)); Sdep_Table : Unit_Ref_Table (1 .. Pos (Last_Unit - Units.First + 2));
-- Sorted table of source dependencies. One extra entry in case we -- Sorted table of source dependencies. One extra entry in case we
...@@ -284,7 +285,6 @@ package body Lib.Writ is ...@@ -284,7 +285,6 @@ package body Lib.Writ is
if Implicit_With (Unum) /= Yes then if Implicit_With (Unum) /= Yes then
if Implicit_With_From_Instantiation (Item) then if Implicit_With_From_Instantiation (Item) then
Implicit_With (Unum) := Yes; Implicit_With (Unum) := Yes;
else else
Implicit_With (Unum) := No; Implicit_With (Unum) := No;
end if; end if;
......
...@@ -1731,9 +1731,9 @@ package body Lib.Xref is ...@@ -1731,9 +1731,9 @@ package body Lib.Xref is
-- since at the time the reference or definition is made, private -- since at the time the reference or definition is made, private
-- types may be swapped, and the Sloc value may be incorrect. We -- types may be swapped, and the Sloc value may be incorrect. We
-- also set up the pointer vector for the sort. -- also set up the pointer vector for the sort.
-- For user-defined operators we need to skip the initial
-- quote and point to the first character of the name, for -- For user-defined operators we need to skip the initial quote and
-- navigation purposes. -- point to the first character of the name, for navigation purposes.
for J in 1 .. Nrefs loop for J in 1 .. Nrefs loop
declare declare
......
...@@ -7790,6 +7790,7 @@ package body Sem_Ch12 is ...@@ -7790,6 +7790,7 @@ package body Sem_Ch12 is
-- Take care to prevent direct cyclic with's -- Take care to prevent direct cyclic with's
if Lib_Unit /= Current_Unit then if Lib_Unit /= Current_Unit then
-- Do not add a unit if it is already in the context -- Do not add a unit if it is already in the context
Clause := First (Current_Context); Clause := First (Current_Context);
......
...@@ -7755,6 +7755,7 @@ package body Sem_Ch3 is ...@@ -7755,6 +7755,7 @@ package body Sem_Ch3 is
declare declare
Parent_Full : Entity_Id; Parent_Full : Entity_Id;
begin begin
-- Ekind (Parent_Base) is not necessarily E_Record_Type since -- Ekind (Parent_Base) is not necessarily E_Record_Type since
-- Parent_Base can be a private type or private extension. Go -- Parent_Base can be a private type or private extension. Go
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment