diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-03-12 18:52:21 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-03-12 18:52:21 +0100 |
| commit | b6f0ff834c3b221ab5b2380c871d76c83808493b (patch) | |
| tree | efcffb8fa46f00f2963e9684cd4f1bdc80dab424 | |
| parent | d07caf380c45ae5e0b8e4f1d1e14e824401b6162 (diff) | |
| download | ghdl-b6f0ff834c3b221ab5b2380c871d76c83808493b.tar.gz ghdl-b6f0ff834c3b221ab5b2380c871d76c83808493b.tar.bz2 ghdl-b6f0ff834c3b221ab5b2380c871d76c83808493b.zip | |
netlists-disp_verilog: fix disp_const_bit
| -rw-r--r-- | src/synth/netlists-disp_verilog.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/netlists-disp_verilog.adb b/src/synth/netlists-disp_verilog.adb index 6bdb9186e..23b9d99e5 100644 --- a/src/synth/netlists-disp_verilog.adb +++ b/src/synth/netlists-disp_verilog.adb @@ -272,7 +272,8 @@ package body Netlists.Disp_Verilog is Nd : constant Width := W / 32; Ld : constant Natural := Natural (W mod 32); begin - Put ('"'); + Put_Uns32 (W); + Put ("'b"); if Ld > 0 then Disp_Binary_Digits (Get_Param_Uns32 (Inst, Param_Idx (Nd)), 0, Ld); end if; @@ -280,7 +281,6 @@ package body Netlists.Disp_Verilog is Disp_Binary_Digits (Get_Param_Uns32 (Inst, Param_Idx (I - 1)), 0, 32); end loop; - Put ('"'); end Disp_Const_Bit; procedure Disp_Const_Log (Inst : Instance) |