3016       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
3493       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
3494          Loc : constant Source_Ptr := Sloc (N);
3496          Ras_Type : constant Entity_Id := Defining_Identifier (N);
3497          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
3501          RACW_Type : constant Entity_Id :=
3503          Desig     : constant Entity_Id :=
3506          Stub_Elements : constant Stub_Structure :=
3510          Proc : constant Entity_Id :=
3514          Proc_Spec : Node_Id;
3518          Package_Name : constant Entity_Id :=
3523          Subp_Id : constant Entity_Id :=
3528          Asynch_P : constant Entity_Id :=
3533          All_Calls_Remote : constant Entity_Id :=
3541          Proc_Decls      : List_Id;
3542          Proc_Statements : List_Id;
3544          Origin : constant Entity_Id := Make_Temporary (Loc, 'P');
3548          Proxy_Addr : constant Entity_Id := Make_Temporary (Loc, 'P');
3552          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
3553          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
3555          function Set_Field
3579       --  Start of processing for Add_RAS_Access_TSS  argument
5577       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
6187       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
6188          Loc : constant Source_Ptr := Sloc (N);
6190          Ras_Type : constant Entity_Id := Defining_Identifier (N);
6191          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
6195          RACW_Type : constant Entity_Id :=
6198          Stub_Elements : constant Stub_Structure :=
6201          Proc : constant Entity_Id :=
6205          Proc_Spec : Node_Id;
6209          Package_Name : constant Entity_Id :=
6215          Subp_Id : constant Entity_Id :=
6221          Asynch_P : constant Entity_Id :=
6226          All_Calls_Remote : constant Entity_Id :=
6234          Proc_Decls      : List_Id;
6235          Proc_Statements : List_Id;
6237          Subp_Ref : constant Entity_Id :=
6242          Is_Local : constant Entity_Id :=
6244          Local_Addr : constant Entity_Id :=
6248          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
6249          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
6252          function Set_Field
6276       --  Start of processing for Add_RAS_Access_TSS  argument