From a18c2b2b4491607c4bdaf723c82979e4fb2ad36f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 20 Feb 2021 10:03:19 +0100 Subject: vhdl-canon.adb: add a missing check on generic associations. Fix #1655 --- src/vhdl/vhdl-canon.adb | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/vhdl') 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 -- cgit v1.2.3