aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2021-09-15 05:45:51 +0200
committerTristan Gingold <tgingold@free.fr>2021-09-15 05:45:51 +0200
commit422723e31d8642f9674e7ba10975545f612e9bee (patch)
tree795a3bd3fcba295e154105460f72b13b53182509 /src
parentaa58cef7a3590f054228d1856dd0eac63f5ffb81 (diff)
downloadghdl-422723e31d8642f9674e7ba10975545f612e9bee.tar.gz
ghdl-422723e31d8642f9674e7ba10975545f612e9bee.tar.bz2
ghdl-422723e31d8642f9674e7ba10975545f612e9bee.zip
netlists-disp_verilog: fix output of parameter assignments. Fix #1866
Diffstat (limited to 'src')
-rw-r--r--src/synth/netlists-disp_verilog.adb24
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