Lines Matching defs:Expand_Formal_Container_Loop
154 procedure Expand_Formal_Container_Loop (N : Node_Id); subprogspec
3357 procedure Expand_Formal_Container_Loop (N : Node_Id) is subprogram
3358 Loc : constant Source_Ptr := Sloc (N);
3359 Isc : constant Node_Id := Iteration_Scheme (N);
3360 I_Spec : constant Node_Id := Iterator_Specification (Isc);
3361 Cursor : constant Entity_Id := Defining_Identifier (I_Spec);
3362 Container : constant Node_Id := Entity (Name (I_Spec));
3363 Stats : constant List_Id := Statements (N);
3365 Advance : Node_Id;
3366 Init_Decl : Node_Id;
3367 Init_Name : Entity_Id;
3368 New_Loop : Node_Id;