mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-24 04:00:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

2008-05-29 Javier Miranda <miranda@adacore.com>

Browse Source 
* sem_util.adb:
	(Abstract_Interface_List): Add missing support for full type-declaration
	associated with synchronized types.

From-SVN: r136143
This commit is contained in:
Javier Miranda 2008-05-29 10:06:31 +02:00 committed by Arnaud Charlet
parent 623fba708e
commit 26ff8edeba
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/sem_util.adb
View File

@ -99,6 +99,10 @@ package body Sem_Util is
Nod := Parent (Base_Type (Typ));
if Nkind (Nod) = N_Full_Type_Declaration then
return Empty_List;
end if;
elsif Ekind (Typ) = E_Record_Type_With_Private then
if Nkind (Parent (Typ)) = N_Full_Type_Declaration then
Nod := Type_Definition (Parent (Typ));