aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/netlists-disp_vhdl.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
-rw-r--r--src/synth/netlists-disp_vhdl.adb8
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;