===================================================================
@@ -71,10 +71,10 @@
------------------------------------------------
procedure Build_Common_Dispatching_Select_Statements
- (Loc : Source_Ptr;
- Typ : Entity_Id;
+ (Typ : Entity_Id;
Stmts : List_Id)
is
+ Loc : constant Source_Ptr := Sloc (Typ);
Tag_Node : Node_Id;
begin
===================================================================
@@ -35,12 +35,11 @@
-- location used in constructing the corresponding nodes.
procedure Build_Common_Dispatching_Select_Statements
- (Loc : Source_Ptr;
- Typ : Entity_Id;
+ (Typ : Entity_Id;
Stmts : List_Id);
- -- Ada 2005 (AI-345): Generate statements that are common between timed,
- -- asynchronous, and conditional select expansion.
- -- Comments required saying what parameters mean ???
+ -- Ada 2005 (AI-345): Build statements that are common to the expansion of
+ -- timed, asynchronous, and conditional select and append them to Stmts.
+ -- Typ is the tagged type used for dispatching calls.
procedure Build_CW_Membership
(Loc : Source_Ptr;
===================================================================
@@ -2623,7 +2623,7 @@
-- return;
-- end if;
- Build_Common_Dispatching_Select_Statements (Loc, Typ, Stmts);
+ Build_Common_Dispatching_Select_Statements (Typ, Stmts);
-- Generate:
-- Bnn : Communication_Block;
@@ -3470,7 +3470,7 @@
-- return;
-- end if;
- Build_Common_Dispatching_Select_Statements (Loc, Typ, Stmts);
+ Build_Common_Dispatching_Select_Statements (Typ, Stmts);
-- Generate:
-- I := Get_Entry_Index (tag! (<type>VP), S);