diff options
| author | Javier Miranda <miranda@adacore.com> | 2008-05-29 10:06:31 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-29 10:06:31 +0200 |
| commit | 26ff8edeba735f0c4825c855c2375b9a9f9107f9 (patch) | |
| tree | cc8ff5cc4a51af6e637dfe1e6b404a50d671d8a9 | |
| parent | 623fba708e6a8c331b4c20e2b9a9d01a30857742 (diff) | |
| download | gcc-26ff8edeba735f0c4825c855c2375b9a9f9107f9.zip gcc-26ff8edeba735f0c4825c855c2375b9a9f9107f9.tar.gz gcc-26ff8edeba735f0c4825c855c2375b9a9f9107f9.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/sem_util.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index ddcc386..e8823b6 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)); |