diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-21 10:16:48 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-22 07:32:57 +0200 |
| commit | 1bbec5cda2fcebd9190b1cdb05a102f40dee87c3 (patch) | |
| tree | 50df402f4c268cfcb4e751400eb6921b885cdddb /src/synth/netlists-dump.adb | |
| parent | 666522908fb607d867c0bfff49a3b042d7f64314 (diff) | |
| download | ghdl-1bbec5cda2fcebd9190b1cdb05a102f40dee87c3.tar.gz ghdl-1bbec5cda2fcebd9190b1cdb05a102f40dee87c3.tar.bz2 ghdl-1bbec5cda2fcebd9190b1cdb05a102f40dee87c3.zip | |
synth: rework names.
Diffstat (limited to 'src/synth/netlists-dump.adb')
| -rw-r--r-- | src/synth/netlists-dump.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 9e04570ff..e6bb8517e 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -71,7 +71,9 @@ package body Netlists.Dump is end if; Put (Image (Get_Sname_Suffix (N))); when Sname_Version => - Dump_Name (Prefix); + if Prefix /= No_Sname then + Dump_Name (Prefix); + end if; Put ("%"); Put_Trim (Uns32'Image (Get_Sname_Version (N))); end case; |