3005       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
3482       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
3483          Loc : constant Source_Ptr := Sloc (N);
3485          Ras_Type : constant Entity_Id := Defining_Identifier (N);
3486          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
3490          RACW_Type : constant Entity_Id :=
3492          Desig     : constant Entity_Id :=
3495          Stub_Elements : constant Stub_Structure :=
3499          Proc : constant Entity_Id :=
3503          Proc_Spec : Node_Id;
3507          Package_Name : constant Entity_Id :=
3512          Subp_Id : constant Entity_Id :=
3517          Asynch_P : constant Entity_Id :=
3522          All_Calls_Remote : constant Entity_Id :=
3530          Proc_Decls      : List_Id;
3531          Proc_Statements : List_Id;
3533          Origin : constant Entity_Id := Make_Temporary (Loc, 'P');
3537          Proxy_Addr : constant Entity_Id := Make_Temporary (Loc, 'P');
3541          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
3542          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
3544          function Set_Field
3568       --  Start of processing for Add_RAS_Access_TSS  argument
5566       procedure Add_RAS_Access_TSS (N : Node_Id);  subprogspec
6176       procedure Add_RAS_Access_TSS (N : Node_Id) is  subprogram
6177          Loc : constant Source_Ptr := Sloc (N);
6179          Ras_Type : constant Entity_Id := Defining_Identifier (N);
6180          Fat_Type : constant Entity_Id := Equivalent_Type (Ras_Type);
6184          RACW_Type : constant Entity_Id :=
6187          Stub_Elements : constant Stub_Structure :=
6190          Proc : constant Entity_Id :=
6194          Proc_Spec : Node_Id;
6198          Package_Name : constant Entity_Id :=
6204          Subp_Id : constant Entity_Id :=
6210          Asynch_P : constant Entity_Id :=
6215          All_Calls_Remote : constant Entity_Id :=
6223          Proc_Decls      : List_Id;
6224          Proc_Statements : List_Id;
6226          Subp_Ref : constant Entity_Id :=
6231          Is_Local : constant Entity_Id :=
6233          Local_Addr : constant Entity_Id :=
6237          Local_Stub : constant Entity_Id := Make_Temporary (Loc, 'L');
6238          Stub_Ptr   : constant Entity_Id := Make_Temporary (Loc, 'S');
6241          function Set_Field
6265       --  Start of processing for Add_RAS_Access_TSS  argument