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

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

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index dbd1c7eef067fe27ab5fea17600697837b776265..9eeec66e3c04c7d9f3683b48cfb25d63868a89b3 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/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);