3017       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
3494       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
3495          Loc : constant Source_Ptr := Sloc (N);
3497          Ras_Type : constant Entity_Id := Defining_Identifier (N);
3498          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
3502          RACW_Type : constant Entity_Id :=
3504          Desig     : constant Entity_Id :=
3507          Stub_Elements : constant Stub_Structure :=
3511          Proc : constant Entity_Id :=
3515          Proc_Spec : Node_Id;
3519          Package_Name : constant Entity_Id :=
3524          Subp_Id : constant Entity_Id :=
3529          Asynch_P : constant Entity_Id :=
3534          All_Calls_Remote : constant Entity_Id :=
3542          Proc_Decls      : List_Id;
3543          Proc_Statements : List_Id;
3545          Origin : constant Entity_Id := Make_Temporary (Loc, 'P');
3549          Proxy_Addr : constant Entity_Id := Make_Temporary (Loc, 'P');
3553          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
3554          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
3556          function Set_Field
3580       --  Start of processing for Add_RAS_Access_TSS  argument
5578       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
6188       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
6189          Loc : constant Source_Ptr := Sloc (N);
6191          Ras_Type : constant Entity_Id := Defining_Identifier (N);
6192          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
6196          RACW_Type : constant Entity_Id :=
6199          Stub_Elements : constant Stub_Structure :=
6202          Proc : constant Entity_Id :=
6206          Proc_Spec : Node_Id;
6210          Package_Name : constant Entity_Id :=
6216          Subp_Id : constant Entity_Id :=
6222          Asynch_P : constant Entity_Id :=
6227          All_Calls_Remote : constant Entity_Id :=
6235          Proc_Decls      : List_Id;
6236          Proc_Statements : List_Id;
6238          Subp_Ref : constant Entity_Id :=
6243          Is_Local : constant Entity_Id :=
6245          Local_Addr : constant Entity_Id :=
6249          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
6250          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
6253          function Set_Field
6277       --  Start of processing for Add_RAS_Access_TSS  argument