From bc668ed6d2f12408bab169fde7fb560560271358 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 27 Nov 2019 20:22:37 +0100
Subject: netlists-disp_vhdl: handle UB32 in Disp_Const_Bit.  Fix #1039

---
 src/synth/netlists-disp_vhdl.adb | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src')

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 77ee517e6..4247c4390 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -379,6 +379,14 @@ package body Netlists.Disp_Vhdl is
             Zx := 0;
             Val := Get_Param_Uns32 (Inst, Param_Idx (Off / 32));
             Val := Shift_Right (Val, Natural (Off mod 32)) and 1;
+         when Id_Const_UB32 =>
+            Zx := 0;
+            if Off < 32 then
+               Val := Get_Param_Uns32 (Inst, 0);
+            else
+               Val := 0;
+            end if;
+            Val := Shift_Right (Val, Natural (Off mod 32)) and 1;
          when others =>
             raise Internal_Error;
       end case;
-- 
cgit v1.2.3