diff options
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 8 |
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; |