gcc/ada/exp_ch9.adb

322       Current_Node : in out Node_Id;
5111       Current_Node : in out Node_Id;
5154                   Insert_After (Current_Node, Bas_Decl);
5155                   Current_Node := Bas_Decl;
5174             Insert_After (Current_Node, Efam_Decl);
5175             Current_Node := Efam_Decl;
8456       Current_Node : Node_Id;  variable
8557          Current_Node := Corresponding_Stub (Parent (N));
8559          Current_Node := N;
8592                   Insert_After (Current_Node, New_Op_Body);
8593                   Current_Node := New_Op_Body;
8620                      Insert_After (Current_Node, New_Op_Body);
8623                      Current_Node := New_Op_Body;
8637                         Insert_After (Current_Node, Disp_Op_Body);
8640                         Current_Node := Disp_Op_Body;
8649                Insert_After (Current_Node, New_Op_Body);
8650                Current_Node := New_Op_Body;
8657                Insert_After (Current_Node, New_Copy (Op_Body));
8668                Insert_After (Current_Node, New_Op_Body);
8669                Current_Node := New_Op_Body;
8674                Insert_After (Current_Node, New_Op_Body);
8675                Current_Node := New_Op_Body;
8681                Insert_After (Current_Node, New_Op_Body);
8682                Current_Node := New_Op_Body;
8700          Insert_After (Current_Node, New_Op_Body);
8701          Current_Node := New_Op_Body;
8710          Build_Wrapper_Bodies (Loc, Pid, Current_Node);
8801       Current_Node : Node_Id := N;  variable
8896          Insert_After (Current_Node, Subp);
8897          Current_Node := Subp;
8919          Insert_After (Current_Node, Subp);
8920          Current_Node := Subp;
8950                           Defining_Unit_Name (Specification (Current_Node));
9028       Collect_Entry_Families (Loc, Cdecls, Current_Node, Prot_Typ);
9032       Insert_After (Current_Node, Rec_Decl);
9033       Current_Node := Rec_Decl;
9162                Insert_After (Current_Node, Sub);
9169                Current_Node := Sub;
9177                Insert_After (Current_Node, Sub);
9179                Current_Node := Sub;
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;
9401                      Insert_After (Current_Node, Sub);
9404                      Current_Node := Sub;
9525                Insert_After (Current_Node, Max_Vals);
9526                Current_Node := Max_Vals;
9576          Insert_After (Current_Node, Body_Arr);
9577          Current_Node := Body_Arr;
9594             Insert_After (Current_Node, Sub);