diff options
Diffstat (limited to 'src/synth/netlists-disp_verilog.adb')
| -rw-r--r-- | src/synth/netlists-disp_verilog.adb | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/synth/netlists-disp_verilog.adb b/src/synth/netlists-disp_verilog.adb index 55f64d68c..83fdc30ca 100644 --- a/src/synth/netlists-disp_verilog.adb +++ b/src/synth/netlists-disp_verilog.adb @@ -186,7 +186,19 @@ package body Netlists.Disp_Verilog is when Param_Uns32 => Put_Uns32 (Get_Param_Uns32 (Inst, P - 1)); when Param_Types_Pval => - Disp_Pval_Binary (Get_Param_Pval (Inst, P - 1)); + declare + Pv : constant Pval := Get_Param_Pval (Inst, P - 1); + Pvlen : constant Uns32 := Get_Pval_Length (Pv); + begin + if Pvlen = 0 then + Put ('"'); + Put ('"'); + else + Put_Uns32 (Pvlen); + Put ("'b"); + Disp_Pval_Binary_Digits (Pv); + end if; + end; when Param_Invalid => Put ("*invalid*"); end case; |