From 35fbed730c692574c71de394cbec2c2b2dd9843b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 11 Mar 2020 18:58:50 +0100
Subject: synth-expr: propagate error.

---
 src/synth/synth-expr.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/synth')

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index b36545e89..3ac24cded 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -1630,6 +1630,9 @@ package body Synth.Expr is
       Val : Value_Acc;
    begin
       Val := Synth_Expression_With_Basetype (Syn_Inst, Expr);
+      if Val = null then
+         return null;
+      end if;
       Strip_Const (Val);
       case Get_Kind (Conv_Type) is
          when Iir_Kind_Integer_Subtype_Definition =>
-- 
cgit v1.2.3