3012       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
3489       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
3490          Loc : constant Source_Ptr := Sloc (N);
3492          Ras_Type : constant Entity_Id := Defining_Identifier (N);
3493          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
3497          RACW_Type : constant Entity_Id :=
3499          Desig     : constant Entity_Id :=
3502          Stub_Elements : constant Stub_Structure :=
3506          Proc : constant Entity_Id :=
3510          Proc_Spec : Node_Id;
3514          Package_Name : constant Entity_Id :=
3519          Subp_Id : constant Entity_Id :=
3524          Asynch_P : constant Entity_Id :=
3529          All_Calls_Remote : constant Entity_Id :=
3537          Proc_Decls      : List_Id;
3538          Proc_Statements : List_Id;
3540          Origin : constant Entity_Id := Make_Temporary (Loc, 'P');
3544          Proxy_Addr : constant Entity_Id := Make_Temporary (Loc, 'P');
3548          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
3549          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
3551          function Set_Field
3575       --  Start of processing for Add_RAS_Access_TSS  argument
5573       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
6183       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
6184          Loc : constant Source_Ptr := Sloc (N);
6186          Ras_Type : constant Entity_Id := Defining_Identifier (N);
6187          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
6191          RACW_Type : constant Entity_Id :=
6194          Stub_Elements : constant Stub_Structure :=
6197          Proc : constant Entity_Id :=
6201          Proc_Spec : Node_Id;
6205          Package_Name : constant Entity_Id :=
6211          Subp_Id : constant Entity_Id :=
6217          Asynch_P : constant Entity_Id :=
6222          All_Calls_Remote : constant Entity_Id :=
6230          Proc_Decls      : List_Id;
6231          Proc_Statements : List_Id;
6233          Subp_Ref : constant Entity_Id :=
6238          Is_Local : constant Entity_Id :=
6240          Local_Addr : constant Entity_Id :=
6244          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
6245          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
6248          function Set_Field
6272       --  Start of processing for Add_RAS_Access_TSS  argument