diff options
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index 6e2628384..b2bba0972 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -321,9 +321,15 @@ package body Netlists.Disp_Vhdl is is Q : constant Character := Get_Lit_Quote (W); begin - Put (Q); - Put ((1 .. Natural (W) => 'X')); - Put (Q); + if W <= 8 then + Put (Q); + Put ((1 .. Natural (W) => 'X')); + Put (Q); + else + Put ('('); + Put_Trim (Uns32'Image (W - 1)); + Put (" downto 0 => 'X')"); + end if; end Disp_X_Lit; procedure Disp_Extract (Inst : Instance); |