diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-08-31 20:24:41 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-01 06:36:52 +0200 |
| commit | 4e6853861f3809d45424b6eb372ccd91ed76f0cb (patch) | |
| tree | 68f1ea12f7aeca8c3174dbe9c2eb5225fe677db5 /src/vhdl/sem_names.adb | |
| parent | a7f63a8a08aeaef263c7d4a404d7d827cac89b9a (diff) | |
| download | ghdl-4e6853861f3809d45424b6eb372ccd91ed76f0cb.tar.gz ghdl-4e6853861f3809d45424b6eb372ccd91ed76f0cb.tar.bz2 ghdl-4e6853861f3809d45424b6eb372ccd91ed76f0cb.zip | |
vhdl08: parse and analyze interface types.
Diffstat (limited to 'src/vhdl/sem_names.adb')
| -rw-r--r-- | src/vhdl/sem_names.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index 9290ae6e2..18d0ee338 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -870,7 +870,9 @@ package body Sem_Names is Atype := Get_Named_Entity (Res); if Get_Kind (Atype) = Iir_Kind_Type_Declaration then Atype := Get_Type_Definition (Atype); - elsif Get_Kind (Atype) = Iir_Kind_Subtype_Declaration then + elsif Get_Kind (Atype) = Iir_Kind_Subtype_Declaration + or else Get_Kind (Atype) = Iir_Kind_Interface_Type_Declaration + then Atype := Get_Type (Atype); else Error_Msg_Sem @@ -1517,7 +1519,8 @@ package body Sem_Names is | Iir_Kind_Attribute_Declaration | Iir_Kind_Non_Object_Alias_Declaration | Iir_Kind_Library_Declaration - | Iir_Kind_Interface_Package_Declaration => + | Iir_Kind_Interface_Package_Declaration + | Iir_Kind_Interface_Type_Declaration => Name_Res := Finish_Sem_Denoting_Name (Name, Res); Set_Base_Name (Name_Res, Res); return Name_Res; |