1 files changed, 0 insertions, 16 deletions
diff --git a/src/vhdl/vhdl-sem_decls.adb b/src/vhdl/vhdl-sem_decls.adb
index 913d889fc..19fd36b75 100644
--- a/src/vhdl/vhdl-sem_decls.adb
+++ b/src/vhdl/vhdl-sem_decls.adb
@@ -131,22 +131,6 @@ package body Vhdl.Sem_Decls is
       end if;
    end Insert_Pending_Implicit_Declarations;
 
-   procedure Add_Implicit_Declaration (Sig : Iir) is
-   begin
-      --  Only for anonymous signals, which appear in instantiations (so
-      --  once the declarations have been analyzed).
-      pragma Assert (Get_Kind (Sig) = Iir_Kind_Anonymous_Signal_Declaration);
-      pragma Assert (Current_Signals_Region.Decls_Analyzed);
-
-      if Current_Signals_Region.Last_Decl = Null_Iir then
-         Set_Declaration_Chain (Current_Signals_Region.Decls_Parent, Sig);
-      else
-         Set_Chain (Current_Signals_Region.Last_Decl, Sig);
-      end if;
-      Current_Signals_Region.Last_Decl := Sig;
-      Set_Parent (Sig, Current_Signals_Region.Decls_Parent);
-   end Add_Implicit_Declaration;
-
    --  Mark the end of declaration analysis.  New implicit declarations will
    --  simply be appended to the last declaration.
    procedure End_Of_Declarations_For_Implicit_Declarations