Current_Node : Node_Id;
Disp_Op_Body : Node_Id;
New_Op_Body : Node_Id;
- Num_Entries : Natural := 0;
Op_Body : Node_Id;
Op_Id : Entity_Id;
when N_Entry_Body =>
Op_Id := Defining_Identifier (Op_Body);
- Num_Entries := Num_Entries + 1;
-
New_Op_Body := Build_Protected_Entry (Op_Body, Op_Id, Pid);
Insert_After (Current_Node, New_Op_Body);