vhdl-canon.adb: add a missing check on generic associations. Fix #1655

1 files changed, 3 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb
index 9af658868..f0bc15438 100644
--- a/src/vhdl/vhdl-canon.adb
+++ b/src/vhdl/vhdl-canon.adb
@@ -2418,6 +2418,9 @@ package body Vhdl.Canon is
                if Is_Config and then Is_Valid (Entity) then
                   Map_Chain := Sem_Specs.Create_Default_Map_Aspect
                     (Comp, Entity, Sem_Specs.Map_Generic, Bind);
+                  --  Check all non-associated generics have a default value.
+                  Sem_Specs.Sem_Check_Missing_Generic_Association
+                    (Get_Generic_Chain (Entity), Map_Chain, Null_Iir, Bind);
                end if;
             else
                Map_Chain := Canon_Association_Chain