1 files changed, 8 insertions, 0 deletions
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;