2 files changed, 0 insertions, 8 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb
index 5ff0dfec6..b2188e822 100644
--- a/src/synth/netlists.adb
+++ b/src/synth/netlists.adb
@@ -105,13 +105,6 @@ package body Netlists is
       return Snames_Table.Table (Name).Suffix;
    end Get_Sname_Version;
 
-   function Get_Sname_Num (Name : Sname) return Uns32 is
-   begin
-      pragma Assert (Is_Valid (Name));
-      pragma Assert (Get_Sname_Kind (Name) = Sname_Artificial);
-      return Snames_Table.Table (Name).Suffix;
-   end Get_Sname_Num;
-
 
    --  Modules
 
diff --git a/src/synth/netlists.ads b/src/synth/netlists.ads
index 0b54c0a9e..7d2b2824d 100644
--- a/src/synth/netlists.ads
+++ b/src/synth/netlists.ads
@@ -66,7 +66,6 @@ package Netlists is
    function Get_Sname_Prefix (Name : Sname) return Sname;
    function Get_Sname_Suffix (Name : Sname) return Name_Id;
    function Get_Sname_Version (Name : Sname) return Uns32;
-   function Get_Sname_Num (Name : Sname) return Uns32;
 
    --  Modifies an Sname.
    procedure Set_Sname_Prefix (Name : Sname; Prefix : Sname);