diff options
| -rw-r--r-- | src/vhdl/vhdl-sem_stmts.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb index 29845a471..691c532cf 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -318,6 +318,15 @@ package body Vhdl.Sem_Stmts is begin Target_Object := Name_To_Object (Target); if Target_Object = Null_Iir then + if Get_Kind (Target) = Iir_Kind_Simple_Name + and then Is_Error (Get_Named_Entity (Target)) + then + -- Common case: target is not declared. There was already + -- an error message for it. + return; + end if; + + -- Uncommon case: target is not an object (could be a component). Error_Msg_Sem (+Target, "target is not a signal name"); return; end if; |