mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-14 18:00:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Thomas Quinot 2005-03-18 12:51:13 +01:00 committed by Arnaud Charlet
parent bac0819a21
commit 5b846f5abb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/sem_ch13.adb
View File

@ -3373,7 +3373,7 @@ package body Sem_Ch13 is
Specification => Build_Spec, Specification => Build_Spec,
Name => New_Reference_To (Subp, Loc)); 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); Set_TSS (Base_Type (Ent), Subp_Id);
else else
Insert_Action (N, Subp_Decl); Insert_Action (N, Subp_Decl);
@ -3451,7 +3451,7 @@ package body Sem_Ch13 is
Specification => Build_Spec, Specification => Build_Spec,
Name => New_Reference_To (Subp, Loc)); 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); Set_TSS (Base_Type (Ent), Subp_Id);
else else
Insert_Action (N, Subp_Decl); Insert_Action (N, Subp_Decl);