From e9448d5bfebee7a46e20fb99540cad2e5f4160b1 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 28 Nov 2019 05:53:50 +0100 Subject: synth/netlists: remove unused function. --- src/synth/netlists.adb | 7 ------- src/synth/netlists.ads | 1 - 2 files changed, 8 deletions(-) (limited to 'src') 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); -- cgit v1.2.3