diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-26 18:02:32 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-26 18:40:36 +0200 |
commit | c96c4bd50b89806af87fd85430be544a04bdb5c9 (patch) | |
tree | f7363a6d876973b57e6f9a7162a17d5b29b00444 /src/vhdl/vhdl-sem.adb | |
parent | 993a57ede04be919b80df2494f7b32a5c6105db3 (diff) | |
download | ghdl-c96c4bd50b89806af87fd85430be544a04bdb5c9.tar.gz ghdl-c96c4bd50b89806af87fd85430be544a04bdb5c9.tar.bz2 ghdl-c96c4bd50b89806af87fd85430be544a04bdb5c9.zip |
vhdl: check missing association to generics. Fix #1379
Diffstat (limited to 'src/vhdl/vhdl-sem.adb')
-rw-r--r-- | src/vhdl/vhdl-sem.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb index 8c13b24ce..264cc6861 100644 --- a/src/vhdl/vhdl-sem.adb +++ b/src/vhdl/vhdl-sem.adb @@ -1240,7 +1240,7 @@ package body Vhdl.Sem is Binding : Iir; Entity : Iir_Design_Unit; Comp : Iir_Component_Declaration; - Primary_Entity_Aspect : Iir; + Primary_Binding : Iir; begin -- LRM 10.1 Declarative Region -- 11. A component configuration. @@ -1268,7 +1268,7 @@ package body Vhdl.Sem is end if; -- FIXME: this is wrong (all declarations should be considered). Sem_Component_Specification - (Configured_Block, Conf, Primary_Entity_Aspect); + (Configured_Block, Conf, Primary_Binding); Comp := Get_Named_Entity (Get_Component_Name (Conf)); if Get_Kind (Comp) /= Iir_Kind_Component_Declaration then @@ -1290,9 +1290,9 @@ package body Vhdl.Sem is Sem_Scopes.Add_Component_Declarations (Comp); Binding := Get_Binding_Indication (Conf); if Binding /= Null_Iir then - Sem_Binding_Indication (Binding, Conf, Primary_Entity_Aspect); + Sem_Binding_Indication (Binding, Conf, Primary_Binding); - if Primary_Entity_Aspect /= Null_Iir then + if Primary_Binding /= Null_Iir then -- LRM93 5.2.1 Binding Indication -- It is an error if a formal port appears in the port map aspect -- of the incremental binding indication and it is a formal @@ -1300,7 +1300,7 @@ package body Vhdl.Sem is -- of the primary binding indications. Check_Incremental_Binding (Configured_Block, Conf); end if; - elsif Primary_Entity_Aspect = Null_Iir then + elsif Primary_Binding = Null_Iir then -- LRM93 5.2.1 -- If the generic map aspect or port map aspect of a primary binding -- indication is not present, then the default rules as described |