From b968b5f8b3462947e4bf57b3448c3a91ac1efd1f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 12 Apr 2020 16:01:42 +0200
Subject: synth-expr: avoid a crash after error.

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

(limited to 'src')

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index a12e8725b..2e70dafec 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -1445,10 +1445,14 @@ package body Synth.Expr is
                  & "either constant or dynamic");
             return;
          end if;
+
          Synth_Extract_Dyn_Suffix
            (Get_Build (Syn_Inst), Name,
             Pfx_Bnd, Get_Net (Left), Get_Net (Right), Inp, Step, Off.Net_Off,
             Res_Bnd.Len);
+         if Inp = No_Net then
+            return;
+         end if;
          Inp_W := Get_Width (Inp);
          --  FIXME: convert range to offset.
          --  Extract max from the range.
-- 
cgit v1.2.3