From 1ff70cdd479751f646b7da61287bc15859563fe0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 13 Sep 2019 20:21:46 +0200
Subject: synth-stmts: fix uninitialized variable.

---
 src/synth/synth-stmts.adb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 6c616af69..cc8ae6da3 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1416,7 +1416,15 @@ package body Synth.Stmts is
       M : Areapools.Mark_Type;
       C : Seq_Context;
    begin
-      C.Inst := Make_Instance (Syn_Inst, Info);
+      C := (Inst => Make_Instance (Syn_Inst, Info),
+            T_En => True,
+            W_En => No_Wire_Id,
+            W_Ret => No_Wire_Id,
+            W_Val => No_Wire_Id,
+            Ret_Init => No_Net,
+            Ret_Value => null,
+            Ret_Typ => null,
+            Nbr_Ret => 0);
       Mark (M, Proc_Pool);
       Instance_Pool := Proc_Pool'Access;
 
-- 
cgit v1.2.3