From 3d683addbbf4bd7a96e202a9949b4820590d6134 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 23 Jul 2019 05:27:38 +0200
Subject: synth: use original entity to display netlist.

---
 src/synth/netlists.adb | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb
index edc66dbf8..72ceac948 100644
--- a/src/synth/netlists.adb
+++ b/src/synth/netlists.adb
@@ -80,6 +80,12 @@ package body Netlists is
       return Snames_Table.Table (Name).Prefix;
    end Get_Sname_Prefix;
 
+   procedure Set_Sname_Prefix (Name : Sname; Prefix : Sname) is
+   begin
+      pragma Assert (Is_Valid (Name));
+      Snames_Table.Table (Name).Prefix := Prefix;
+   end Set_Sname_Prefix;
+
    function Get_Sname_Suffix (Name : Sname) return Name_Id
    is
       subtype Snames_Suffix is Sname_Kind range Sname_User .. Sname_Artificial;
-- 
cgit v1.2.3