gcc/ada/exp_ch9.adb

322       Current_Node : in out Node_Id;
5325       Current_Node : in out Node_Id;
5368                   Insert_After (Current_Node, Bas_Decl);
5369                   Current_Node := Bas_Decl;
5388             Insert_After (Current_Node, Efam_Decl);
5389             Current_Node := Efam_Decl;
8508       Current_Node : Node_Id;  variable
8609          Current_Node := Corresponding_Stub (Parent (N));
8611          Current_Node := N;
8644                   Insert_After (Current_Node, New_Op_Body);
8645                   Current_Node := New_Op_Body;
8672                      Insert_After (Current_Node, New_Op_Body);
8675                      Current_Node := New_Op_Body;
8689                         Insert_After (Current_Node, Disp_Op_Body);
8692                         Current_Node := Disp_Op_Body;
8701                Insert_After (Current_Node, New_Op_Body);
8702                Current_Node := New_Op_Body;
8709                Insert_After (Current_Node, New_Copy (Op_Body));
8720                Insert_After (Current_Node, New_Op_Body);
8721                Current_Node := New_Op_Body;
8726                Insert_After (Current_Node, New_Op_Body);
8727                Current_Node := New_Op_Body;
8733                Insert_After (Current_Node, New_Op_Body);
8734                Current_Node := New_Op_Body;
8753          Insert_After (Current_Node, New_Op_Body);
8754          Current_Node := New_Op_Body;
8763          Build_Wrapper_Bodies (Loc, Pid, Current_Node);
8861       Current_Node : Node_Id := N;  variable
8954          Insert_After (Current_Node, Sub);
8965          Current_Node := Sub;
8975          Insert_After (Current_Node, Sub);
8980          Current_Node := Sub;
9005                           Defining_Unit_Name (Specification (Current_Node));
9069       Collect_Entry_Families (Loc, Cdecls, Current_Node, Prot_Typ);
9159                Insert_After (Current_Node, Sub);
9166                Current_Node := Sub;
9174                Insert_After (Current_Node, Sub);
9176                Current_Node := Sub;
9291       Insert_After (Current_Node, Rec_Decl);
9292       Current_Node := Rec_Decl;
9306          Build_Wrapper_Specs (Loc, Prot_Typ, Current_Node);
9337             Insert_After (Current_Node, Sub);
9348             Current_Node := Sub;
9356             Insert_After (Current_Node, Sub);
9359             Current_Node := Sub;
9374                Insert_After (Current_Node, Sub);
9377                Current_Node := Sub;
9457          Insert_After (Current_Node, Body_Arr);
9458          Current_Node := Body_Arr;
9474             Insert_After (Current_Node, Sub);