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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96673 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index dbd1c7e..9eeec66 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);