ams-vhdl: improve error recovery

1 files changed, 7 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb
index e1cb740b6..98e01ccb3 100644
--- a/src/vhdl/vhdl-sem_stmts.adb
+++ b/src/vhdl/vhdl-sem_stmts.adb
@@ -2107,6 +2107,7 @@ package body Vhdl.Sem_Stmts is
    procedure Sem_Simple_Simultaneous_Statement (Stmt : Iir)
    is
       Left, Right : Iir;
+      Left_Type, Right_Type : Iir;
       Res_Type : Iir;
    begin
       Left := Get_Simultaneous_Left (Stmt);
@@ -2120,6 +2121,12 @@ package body Vhdl.Sem_Stmts is
          return;
       end if;
 
+      Left_Type := Get_Type (Left);
+      Right_Type := Get_Type (Right);
+      if Left_Type = Null_Iir or else Right_Type = Null_Iir then
+         return;
+      end if;
+
       Res_Type := Search_Compatible_Type (Get_Type (Left), Get_Type (Right));
       if Res_Type = Null_Iir then
          Error_Msg_Sem