diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-05-28 20:38:38 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-05-28 20:38:38 +0200 |
| commit | e6a26cc19e4c3f5b48ece9a0ad570c698b83a00d (patch) | |
| tree | a04745b49e8e10b6b5a33f9d3c2800e2f66dbb7f | |
| parent | 99314f7e46dbba6b3438cd7174179288b4b01fbe (diff) | |
| download | ghdl-e6a26cc19e4c3f5b48ece9a0ad570c698b83a00d.tar.gz ghdl-e6a26cc19e4c3f5b48ece9a0ad570c698b83a00d.tar.bz2 ghdl-e6a26cc19e4c3f5b48ece9a0ad570c698b83a00d.zip | |
vhdl-sem_stmts.adb: avoid duplicate error message
| -rw-r--r-- | src/vhdl/vhdl-sem_stmts.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb index b52476f9b..dfe49cfd2 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -1878,6 +1878,9 @@ package body Vhdl.Sem_Stmts is Comp_Name := Sem_Denoting_Name (Inst); Set_Instantiated_Unit (Stmt, Comp_Name); Comp := Get_Named_Entity (Comp_Name); + if Is_Error (Comp) then + return Null_Iir; + end if; if Get_Kind (Comp) /= Iir_Kind_Component_Declaration then Error_Class_Match (Comp_Name, "component"); return Null_Iir; |