diff options
Diffstat (limited to 'src/vhdl/sem.adb')
| -rw-r--r-- | src/vhdl/sem.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index a1bc4dc04..8187ffd36 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -390,7 +390,8 @@ package body Sem is Miss := Missing_Allowed; when Iir_Kind_Block_Header => Miss := Missing_Generic; - when Iir_Kind_Package_Instantiation_Declaration => + when Iir_Kind_Package_Instantiation_Declaration + | Iir_Kind_Package_Header => -- LRM08 4.9 -- Each formal generic (or member thereof) shall be associated -- at most once. @@ -2606,8 +2607,9 @@ package body Sem is Sem_Interface_Chain (Get_Generic_Chain (Header), Generic_Interface_List); if Get_Generic_Map_Aspect_Chain (Header) /= Null_Iir then - -- FIXME: todo - raise Internal_Error; + if not Sem_Generic_Association_Chain (Header, Header) then + null; + end if; end if; end if; |