gcc/ada/exp_dist.adb

655       function Build_Subprogram_Receiving_Stubs  subprogspec
729       function Build_Subprogram_Receiving_Stubs  subprogspec
4724       function Build_Subprogram_Receiving_Stubs  subprogram
4732          Loc : constant Source_Ptr := Sloc (Vis_Decl);
4734          Request_Parameter : constant Entity_Id := Make_Temporary (Loc, 'R');
4738          Decls : constant List_Id := New_List;
4742          Statements : constant List_Id := New_List;
4744          Extra_Formal_Statements : constant List_Id := New_List;
4747          After_Statements : constant List_Id := New_List;
4750          Inner_Decls : List_Id := No_List;
4754          Excep_Handlers : List_Id := No_List;
4755          Excep_Choice   : Entity_Id;
4756          Excep_Code     : List_Id;
4758          Parameter_List : constant List_Id := New_List;
4761          Current_Parameter : Node_Id;
4763          Ordered_Parameters_List : constant List_Id :=
4767          Subp_Spec : Node_Id;
4770          Called_Subprogram : Node_Id;
4773          Null_Raise_Statement : Node_Id;
4775          Dynamic_Async : Entity_Id;
7694       function Build_Subprogram_Receiving_Stubs  subprogram
7702          Loc : constant Source_Ptr := Sloc (Vis_Decl);
7704          Request_Parameter : constant Entity_Id := Make_Temporary (Loc, 'R');
7708          Outer_Decls : constant List_Id := New_List;
7713          Outer_Statements : constant List_Id := New_List;
7717          Outer_Extra_Formal_Statements : constant List_Id := New_List;
7721          Decls : constant List_Id := New_List;
7726          Statements : constant List_Id := New_List;
7728          After_Statements : constant List_Id := New_List;
7731          Inner_Decls : List_Id := No_List;
7735          Excep_Handlers : List_Id := No_List;
7737          Parameter_List : constant List_Id := New_List;
7740          First_Controlling_Formal_Seen : Boolean := False;
7742          Current_Parameter : Node_Id;
7744          Ordered_Parameters_List : constant List_Id :=
7748          Arguments : constant Entity_Id := Make_Temporary (Loc, 'A');
7751          Subp_Spec : Node_Id;
7754          Called_Subprogram : Node_Id;