diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-09-15 05:45:51 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-09-15 05:45:51 +0200 |
commit | 422723e31d8642f9674e7ba10975545f612e9bee (patch) | |
tree | 795a3bd3fcba295e154105460f72b13b53182509 /src/synth/netlists-disp_verilog.adb | |
parent | aa58cef7a3590f054228d1856dd0eac63f5ffb81 (diff) | |
download | ghdl-422723e31d8642f9674e7ba10975545f612e9bee.tar.gz ghdl-422723e31d8642f9674e7ba10975545f612e9bee.tar.bz2 ghdl-422723e31d8642f9674e7ba10975545f612e9bee.zip |
netlists-disp_verilog: fix output of parameter assignments. Fix #1866
Diffstat (limited to 'src/synth/netlists-disp_verilog.adb')
-rw-r--r-- | src/synth/netlists-disp_verilog.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/synth/netlists-disp_verilog.adb b/src/synth/netlists-disp_verilog.adb index 69bfdcd2c..e930054d7 100644 --- a/src/synth/netlists-disp_verilog.adb +++ b/src/synth/netlists-disp_verilog.adb @@ -162,16 +162,6 @@ package body Netlists.Disp_Verilog is Put_Name (Name); end if; - -- Instance name - Put (" "); - Name := Get_Instance_Name (Inst); - if Get_Sname_Kind (Name) = Sname_Version then - Put ("inst_"); - Put_Name_Version (Name); - else - Put_Name (Name); - end if; - if Get_Nbr_Params (Imod) /= 0 then Put_Line (" #("); for P in 1 .. Get_Nbr_Params (Inst) loop @@ -205,10 +195,20 @@ package body Netlists.Disp_Verilog is Put (")"); end loop; Put_Line (")"); - Put_Line (" ("); + Put (" "); else - Put_Line (" ("); + Put (" "); + end if; + + -- Instance name + Name := Get_Instance_Name (Inst); + if Get_Sname_Kind (Name) = Sname_Version then + Put ("inst_"); + Put_Name_Version (Name); + else + Put_Name (Name); end if; + Put_Line (" ("); First := True; -- Inputs |