From 64025f9a660e39b627e91c08d988138032e11b0e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 31 Jul 2019 05:53:58 +0200
Subject: synth: fix a crash in instantiation.

---
 src/synth/synth-expr.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/synth/synth-expr.adb')

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index b1e88ea3c..943608aaf 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -130,7 +130,7 @@ package body Synth.Expr is
    begin
       if Etype = Logic_Type then
          From_Std_Logic (Enum, Val, Zx);
-      elsif Etype = Boolean_Type then
+      elsif Etype = Boolean_Type or Etype = Bit_Type then
          From_Bit (Enum, Val);
          Zx := 0;
       else
-- 
cgit v1.2.3