From fb11d0a46b5b1b747e2014f2bce6d30ba93bf760 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 27 Jul 2022 05:06:45 +0200
Subject: netlists-disp_vhdl: adjust output for #2140

---
 src/synth/netlists-disp_vhdl.adb | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'src/synth/netlists-disp_vhdl.adb')

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 2898d8b43..50cdbfd10 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -122,6 +122,7 @@ package body Netlists.Disp_Vhdl is
          Inst : constant Instance := Get_Net_Parent (N);
          Idx : constant Port_Idx := Get_Port_Idx (N);
          M : Module;
+         Id : Module_Id;
          Inst_Name : Sname;
          Port_Name : Sname;
       begin
@@ -132,14 +133,19 @@ package body Netlists.Disp_Vhdl is
             Inst_Name := Get_Instance_Name (Inst);
             Put_Name (Inst_Name);
             M := Get_Module (Inst);
-            case Get_Id (M) is
+            Id := Get_Id (M);
+            case Id is
                when Id_Signal
                  | Id_Isignal =>
                   --  No suffix for signals (it's 'o').
                   null;
                when others =>
                   Port_Name := Get_Output_Desc (M, Idx).Name;
-                  Put ("_c_");
+                  if Id >= Id_User_None then
+                     Put ("_c_");
+                  else
+                     Put ("_");
+                  end if;
                   Put_Interface_Name (Port_Name);
             end case;
          end if;
-- 
cgit v1.2.3