diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-12-12 05:24:29 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-12-12 05:24:29 +0100 |
| commit | 650e68b382f5a3c9404b74c7f39a4b769a46350a (patch) | |
| tree | 5e07ebc00124279c3afceef952ab2475912e53d2 /src/vhdl/sem_inst.adb | |
| parent | 61a92020340fb46d0f68c314d3907b6ef74a3e3a (diff) | |
| download | ghdl-650e68b382f5a3c9404b74c7f39a4b769a46350a.tar.gz ghdl-650e68b382f5a3c9404b74c7f39a4b769a46350a.tar.bz2 ghdl-650e68b382f5a3c9404b74c7f39a4b769a46350a.zip | |
Instantiate declarations of interface packages.
Fix #476
Diffstat (limited to 'src/vhdl/sem_inst.adb')
| -rw-r--r-- | src/vhdl/sem_inst.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/sem_inst.adb b/src/vhdl/sem_inst.adb index 9599da8d2..441d4cd58 100644 --- a/src/vhdl/sem_inst.adb +++ b/src/vhdl/sem_inst.adb @@ -617,6 +617,11 @@ package body Sem_Inst is when Iir_Kind_Interface_Package_Declaration => Set_Uninstantiated_Package_Decl (Res, Get_Uninstantiated_Package_Decl (Inter)); + Set_Generic_Chain + (Res, + Instantiate_Generic_Chain (Res, Get_Generic_Chain (Inter))); + Set_Declaration_Chain + (Res, Instantiate_Iir_Chain (Get_Declaration_Chain (Inter))); when Iir_Kind_Interface_Type_Declaration => Set_Type (Res, Get_Type (Inter)); when Iir_Kinds_Interface_Subprogram_Declaration => |