diff options
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index c1ce68c2e..4bbaaef31 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -109,6 +109,7 @@ package body Netlists.Disp_Vhdl is return; end if; + -- Interface names are not versionned, and don't have prefix. if Get_Sname_Kind (N) in Sname_User .. Sname_Artificial and then Get_Sname_Prefix (N) = No_Sname then @@ -142,6 +143,7 @@ package body Netlists.Disp_Vhdl is case Get_Id (M) is when Id_Signal | Id_Isignal => + -- No suffix for signals (it's 'o'). null; when others => Port_Name := Get_Output_Desc (M, Idx).Name; |