diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-10-06 13:01:20 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-10-06 13:01:20 +0200 |
commit | d44e7227610913a14029ce050aceee887da914dd (patch) | |
tree | 14634a034969ddc28e7693c8b6c405d846549060 /src/synth/netlists-dump.adb | |
parent | fd7ce659ef9b61483dd40419552aa8036fa95bd0 (diff) | |
download | ghdl-d44e7227610913a14029ce050aceee887da914dd.tar.gz ghdl-d44e7227610913a14029ce050aceee887da914dd.tar.bz2 ghdl-d44e7227610913a14029ce050aceee887da914dd.zip |
netlists: remove get_name renaming for modules.
Diffstat (limited to 'src/synth/netlists-dump.adb')
-rw-r--r-- | src/synth/netlists-dump.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 1848f2f82..385d72f22 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -140,7 +140,7 @@ package body Netlists.Dump is Put_Trim (Instance'Image (Inst)); Put ('}'); Put (": "); - Dump_Name (Get_Name (Get_Module (Inst))); + Dump_Name (Get_Module_Name (Get_Module (Inst))); New_Line; if Get_Nbr_Params (Inst) > 0 then @@ -198,7 +198,7 @@ package body Netlists.Dump is Put ("module {m"); Put_Trim (Module'Image (M)); Put ("} "); - Dump_Name (Get_Name (M)); + Dump_Name (Get_Module_Name (M)); New_Line; -- Parameters. @@ -405,7 +405,7 @@ package body Netlists.Dump is end case; end if; - Dump_Name (Get_Name (M)); + Dump_Name (Get_Module_Name (M)); if True then Put ('@'); |