diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-05-16 10:12:26 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-05-16 10:12:26 +0200 |
commit | 15d517f38815e8c26e2459a8a2f3ffaa45887807 (patch) | |
tree | 0755262ab06f7e134c77b51f2c605bf4e6740fb9 /src/vhdl/vhdl-nodes.adb | |
parent | 919645ce03bacb136318ac96ddf920dfc267eeeb (diff) | |
download | ghdl-15d517f38815e8c26e2459a8a2f3ffaa45887807.tar.gz ghdl-15d517f38815e8c26e2459a8a2f3ffaa45887807.tar.bz2 ghdl-15d517f38815e8c26e2459a8a2f3ffaa45887807.zip |
vhdl: remove unused Get/Set_Alias_Declaration
Diffstat (limited to 'src/vhdl/vhdl-nodes.adb')
-rw-r--r-- | src/vhdl/vhdl-nodes.adb | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb index 8acd7f6ac..b5dd5e0bd 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -5762,22 +5762,6 @@ package body Vhdl.Nodes is Set_Field4 (Name, Val); end Set_Named_Entity; - function Get_Alias_Declaration (Name : Iir) return Iir is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_Alias_Declaration (Get_Kind (Name)), - "no field Alias_Declaration"); - return Get_Field2 (Name); - end Get_Alias_Declaration; - - procedure Set_Alias_Declaration (Name : Iir; Val : Iir) is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_Alias_Declaration (Get_Kind (Name)), - "no field Alias_Declaration"); - Set_Field2 (Name, Val); - end Set_Alias_Declaration; - function Get_Referenced_Name (N : Iir) return Iir is begin pragma Assert (N /= Null_Iir); |