Lines Matching defs:Expand_Formal_Container_Loop
132 procedure Expand_Formal_Container_Loop (N : Node_Id); subprogspec
3155 procedure Expand_Formal_Container_Loop (N : Node_Id) is subprogram
3156 Loc : constant Source_Ptr := Sloc (N);
3157 Isc : constant Node_Id := Iteration_Scheme (N);
3158 I_Spec : constant Node_Id := Iterator_Specification (Isc);
3159 Cursor : constant Entity_Id := Defining_Identifier (I_Spec);
3160 Container : constant Node_Id := Entity (Name (I_Spec));
3161 Stats : constant List_Id := Statements (N);
3163 Advance : Node_Id;
3164 Init_Decl : Node_Id;
3165 Init_Name : Entity_Id;
3166 New_Loop : Node_Id;