diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-11-28 05:53:50 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-11-28 05:53:50 +0100 |
commit | e9448d5bfebee7a46e20fb99540cad2e5f4160b1 (patch) | |
tree | 01638a70c6cdd0317c9e55426da53ff4594d7db2 | |
parent | f798ed92fb4e3a054e4373cb1ef53bbb3d18d0e7 (diff) | |
download | ghdl-e9448d5bfebee7a46e20fb99540cad2e5f4160b1.tar.gz ghdl-e9448d5bfebee7a46e20fb99540cad2e5f4160b1.tar.bz2 ghdl-e9448d5bfebee7a46e20fb99540cad2e5f4160b1.zip |
synth/netlists: remove unused function.
-rw-r--r-- | src/synth/netlists.adb | 7 | ||||
-rw-r--r-- | src/synth/netlists.ads | 1 |
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); |