Generics of instantiated package are not visible by selection from outside.

For #440.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb
index 749d848fe..329958f6a 100644
--- a/src/vhdl/sem_names.adb
+++ b/src/vhdl/sem_names.adb
@@ -405,13 +405,17 @@ package body Sem_Names is
             declare
                Header : constant Iir := Get_Package_Header (Decl);
             begin
-               if Is_Valid (Header) then
+               if Is_Valid (Header)
+                 and then Get_Is_Within_Flag (Decl)
+               then
                   Iterator_Decl_Chain (Get_Generic_Chain (Header), Id);
                end if;
             end;
          when Iir_Kind_Package_Instantiation_Declaration
            | Iir_Kind_Interface_Package_Declaration =>
-            Iterator_Decl_Chain (Get_Generic_Chain (Decl), Id);
+            --  Generics are not visible in selected name.
+            null;
+            --  Iterator_Decl_Chain (Get_Generic_Chain (Decl), Id);
          when Iir_Kind_Block_Statement =>
             declare
                Header : constant Iir := Get_Block_Header (Decl);