From 68a7010349341dfaa8aa7b8b27701bf639ea0857 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 7 Sep 2022 04:48:11 +0200
Subject: simul: do not propagate errors from resolution function

---
 src/simul/simul-vhdl_simul.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb
index a9393b277..856f18a0b 100644
--- a/src/simul/simul-vhdl_simul.adb
+++ b/src/simul/simul-vhdl_simul.adb
@@ -2341,6 +2341,9 @@ package body Simul.Vhdl_Simul is
                                             Create_Value_Memory (Val));
                Res := Synth.Vhdl_Expr.Synth_Subtype_Conversion
                  (Inst, Res, Res_Typ, False, Func);
+               if Res = No_Valtyp then
+                  Grt.Errors.Fatal_Error;
+               end if;
                return Synth.Vhdl_Expr.Get_Value_Memtyp (Res);
             end;
          when others =>
-- 
cgit v1.2.3