3006       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
3483       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
3484          Loc : constant Source_Ptr := Sloc (N);
3486          Ras_Type : constant Entity_Id := Defining_Identifier (N);
3487          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
3491          RACW_Type : constant Entity_Id :=
3493          Desig     : constant Entity_Id :=
3496          Stub_Elements : constant Stub_Structure :=
3500          Proc : constant Entity_Id :=
3504          Proc_Spec : Node_Id;
3508          Package_Name : constant Entity_Id :=
3513          Subp_Id : constant Entity_Id :=
3518          Asynch_P : constant Entity_Id :=
3523          All_Calls_Remote : constant Entity_Id :=
3531          Proc_Decls      : List_Id;
3532          Proc_Statements : List_Id;
3534          Origin : constant Entity_Id := Make_Temporary (Loc, 'P');
3538          Proxy_Addr : constant Entity_Id := Make_Temporary (Loc, 'P');
3542          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
3543          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
3545          function Set_Field
3569       --  Start of processing for Add_RAS_Access_TSS  argument
5567       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
6175       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
6176          Loc : constant Source_Ptr := Sloc (N);
6178          Ras_Type : constant Entity_Id := Defining_Identifier (N);
6179          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
6183          RACW_Type : constant Entity_Id :=
6186          Stub_Elements : constant Stub_Structure :=
6189          Proc : constant Entity_Id :=
6193          Proc_Spec : Node_Id;
6197          Package_Name : constant Entity_Id :=
6203          Subp_Id : constant Entity_Id :=
6209          Asynch_P : constant Entity_Id :=
6214          All_Calls_Remote : constant Entity_Id :=
6222          Proc_Decls      : List_Id;
6223          Proc_Statements : List_Id;
6225          Subp_Ref : constant Entity_Id :=
6230          Is_Local : constant Entity_Id :=
6232          Local_Addr : constant Entity_Id :=
6236          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
6237          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
6240          function Set_Field
6264       --  Start of processing for Add_RAS_Access_TSS  argument