From 16294762f5e521c6a159b7946794119615dc0b39 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 5 Jul 2022 06:32:00 +0200
Subject: synth-vhdl_insts: do not crash on unconnected input.  Fix #2124

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

(limited to 'src')

diff --git a/src/synth/synth-vhdl_insts.adb b/src/synth/synth-vhdl_insts.adb
index 2d3f3360f..cf7814276 100644
--- a/src/synth/synth-vhdl_insts.adb
+++ b/src/synth/synth-vhdl_insts.adb
@@ -664,6 +664,10 @@ package body Synth.Vhdl_Insts is
             when others =>
                Vhdl.Errors.Error_Kind ("synth_single_input_assoc", Conv);
          end case;
+      elsif Actual = Null_Node then
+         --  No actual, no default value.
+         Act := Create_Value_Net
+           (Build_Const_X (Ctxt, Inter_Typ.W), Inter_Typ);
       else
          Act := Synth_Expression_With_Type (Act_Inst, Actual, Inter_Typ);
       end if;
-- 
cgit v1.2.3