diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-02-20 10:03:19 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-02-20 10:03:19 +0100 |
| commit | a18c2b2b4491607c4bdaf723c82979e4fb2ad36f (patch) | |
| tree | 6cb95df2e166bca31bb08010930e02b548d84039 /src/vhdl/vhdl-canon.adb | |
| parent | 83ef1e2db13b3bcc4f607b96f10a3af857b5f92a (diff) | |
| download | ghdl-a18c2b2b4491607c4bdaf723c82979e4fb2ad36f.tar.gz ghdl-a18c2b2b4491607c4bdaf723c82979e4fb2ad36f.tar.bz2 ghdl-a18c2b2b4491607c4bdaf723c82979e4fb2ad36f.zip | |
vhdl-canon.adb: add a missing check on generic associations. Fix #1655
Diffstat (limited to 'src/vhdl/vhdl-canon.adb')
| -rw-r--r-- | src/vhdl/vhdl-canon.adb | 3 |
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 |