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

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

From-SVN: r136143

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index ddcc386b06b856c4bc4c2df3e8972c5fa9a39949..e8823b6164fa32a76398f28564d4426bb7d443b5 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -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));