1 files changed, 0 insertions, 7 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