sem_ch13.adb (New_Stream_Function, [...]): For a tagged limited type, the TSS is…

sem_ch13.adb (New_Stream_Function, [...]): For a tagged limited type, the TSS is a newly built renaming declaration...

2005-03-17  Thomas Quinot  <quinot@adacore.com>

	* sem_ch13.adb (New_Stream_Function, New_Stream_Procedure): For a
	tagged limited type, the TSS is a newly built renaming declaration:
	insert it using Set_TSS, not Copy_TSS.

From-SVN: r96673

gcc/ada/sem_ch13.adb

@@ -3373,7 +3373,7 @@ package body Sem_Ch13 is
           Specification => Build_Spec,
           Name => New_Reference_To (Subp, Loc));
 
-      if Is_Tagged_Type (Ent) and then not Is_Limited_Type (Ent) then
+      if Is_Tagged_Type (Ent) then
          Set_TSS (Base_Type (Ent), Subp_Id);
       else
          Insert_Action (N, Subp_Decl);
@@ -3451,7 +3451,7 @@ package body Sem_Ch13 is
           Specification => Build_Spec,
           Name => New_Reference_To (Subp, Loc));
 
-      if Is_Tagged_Type (Ent) and then not Is_Limited_Type (Ent) then
+      if Is_Tagged_Type (Ent) then
          Set_TSS (Base_Type (Ent), Subp_Id);
       else
          Insert_Action (N, Subp_Decl);