From: Javier Miranda <miranda@adacore.com>
Date: Thu, 29 May 2008 08:06:31 +0000 (+0200)
Subject: 2008-05-29  Javier Miranda  <miranda@adacore.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=26ff8edeba735f0c4825c855c2375b9a9f9107f9;p=gcc.git

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 ddcc386b06b..e8823b6164f 100644
--- 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));