3004       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
3481       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
3482          Loc : constant Source_Ptr := Sloc (N);
3484          Ras_Type : constant Entity_Id := Defining_Identifier (N);
3485          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
3489          RACW_Type : constant Entity_Id :=
3491          Desig     : constant Entity_Id :=
3494          Stub_Elements : constant Stub_Structure :=
3498          Proc : constant Entity_Id :=
3502          Proc_Spec : Node_Id;
3506          Package_Name : constant Entity_Id :=
3511          Subp_Id : constant Entity_Id :=
3516          Asynch_P : constant Entity_Id :=
3521          All_Calls_Remote : constant Entity_Id :=
3529          Proc_Decls      : List_Id;
3530          Proc_Statements : List_Id;
3532          Origin : constant Entity_Id := Make_Temporary (Loc, 'P');
3536          Proxy_Addr : constant Entity_Id := Make_Temporary (Loc, 'P');
3540          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
3541          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
3543          function Set_Field
3567       --  Start of processing for Add_RAS_Access_TSS  argument
5565       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