diff options
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
-rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index 413e19e13..77fa364a1 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -102,11 +102,9 @@ 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 - Put_Id (Get_Sname_Suffix (N)); + -- Interface names are not versionned. + if Get_Sname_Kind (N) in Sname_User .. Sname_Artificial then + Put_Name (N); else Put ("*err*"); end if; |