procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sem_ch8.adb (Find_Type): In case of tagged types that are concurrent types use the corresponding record type.

Browse source 
2005-12-05  Javier Miranda  <miranda@adacore.com>

	* sem_ch8.adb (Find_Type): In case of tagged types that are concurrent
	types use the corresponding record type. This was not needed before
	the implementation of Ada 2005 synchronized types because
	concurrent types were never tagged types in Ada 95.

From-SVN: r108304
This commit is contained in:
Javier Miranda 2005-12-09 18:21:38 +01:00 • committed by Arnaud Charlet
parent d39d6bb8a0
commit 39edfb4572
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/ada/sem_ch8.adb
View file

@ -4684,7 +4684,13 @@ package body Sem_Ch8 is
-- Case of tagged type
else
C := Class_Wide_Type (Entity (Prefix (N)));
if Is_Concurrent_Type (T) then
C := Class_Wide_Type
(Corresponding_Record_Type (Entity (Prefix (N))));
else
C := Class_Wide_Type (Entity (Prefix (N)));
end if;
Set_Entity_With_Style_Check (N, C);
Generate_Reference (C, N);
Set_Etype (N, C);