1 files changed, 0 insertions, 16 deletions
diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb
index cb72b4699..b1fe4f277 100644
--- a/src/vhdl/iirs.adb
+++ b/src/vhdl/iirs.adb
@@ -2525,22 +2525,6 @@ package body Iirs is
       Set_Field2 (Target, El);
    end Set_Base_Element_Declaration;
 
-   function Get_Element_Declaration (Target : Iir) return Iir is
-   begin
-      pragma Assert (Target /= Null_Iir);
-      pragma Assert (Has_Element_Declaration (Get_Kind (Target)),
-                     "no field Element_Declaration");
-      return Get_Field5 (Target);
-   end Get_Element_Declaration;
-
-   procedure Set_Element_Declaration (Target : Iir; El : Iir) is
-   begin
-      pragma Assert (Target /= Null_Iir);
-      pragma Assert (Has_Element_Declaration (Get_Kind (Target)),
-                     "no field Element_Declaration");
-      Set_Field5 (Target, El);
-   end Set_Element_Declaration;
-
    function Get_Selected_Element (Target : Iir) return Iir is
    begin
       pragma Assert (Target /= Null_Iir);