diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-28 05:53:41 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-28 05:53:41 +0100 |
| commit | f798ed92fb4e3a054e4373cb1ef53bbb3d18d0e7 (patch) | |
| tree | 4b8f9c5979d2068a7541ea156f6bb54fa82dcbf5 /src/synth | |
| parent | cceab917794f7c6016519380dadd51a8f537e976 (diff) | |
| download | ghdl-f798ed92fb4e3a054e4373cb1ef53bbb3d18d0e7.tar.gz ghdl-f798ed92fb4e3a054e4373cb1ef53bbb3d18d0e7.tar.bz2 ghdl-f798ed92fb4e3a054e4373cb1ef53bbb3d18d0e7.zip | |
netlists-dump: adjust dump output to be more easily
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/netlists-dump.adb | 23 |
1 files changed, 7 insertions, 16 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 841c5d831..4c0c2b192 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -46,28 +46,19 @@ package body Netlists.Dump is end if; Prefix := Get_Sname_Prefix (N); + if Prefix /= No_Sname then + Dump_Name (Prefix); + Put ("."); + end if; case Get_Sname_Kind (N) is when Sname_User => - if Prefix = No_Sname then - Put ("\"); - else - Dump_Name (Prefix); - Put ("."); - end if; + Put ("\"); Put (Image (Get_Sname_Suffix (N))); when Sname_Artificial => - if Prefix = No_Sname then - Put ("$"); - else - Dump_Name (Prefix); - Put ("."); - end if; + Put ("$"); Put (Image (Get_Sname_Suffix (N))); when Sname_Version => - if Prefix /= No_Sname then - Dump_Name (Prefix); - end if; Put ("%"); Put_Uns32 (Get_Sname_Version (N)); end case; @@ -322,7 +313,7 @@ package body Netlists.Dump is Dump_Name (Get_Input_Desc (Get_Module (Inst), Idx).Name); else Dump_Name (Get_Instance_Name (Inst)); - Put ('.'); + Put (':'); Dump_Name (Get_Output_Desc (Get_Module (Inst), Idx).Name); end if; end; |