Handle signal attribute in declarations. Fix alias of implicit signal.

1 files changed, 0 insertions, 40 deletions

diff --git a/src/vhdl/sem_stmts.adb b/src/vhdl/sem_stmts.adb
index e4c8996..fdc590d 100644
--- a/src/vhdl/sem_stmts.adb
+++ b/src/vhdl/sem_stmts.adb
@@ -57,46 +57,6 @@ package body Sem_Stmts is
       return Current_Concurrent_Statement;
    end Get_Current_Concurrent_Statement;
 
-   Current_Declarative_Region_With_Signals :
-     Implicit_Signal_Declaration_Type := (Null_Iir, Null_Iir);
-
-   procedure Push_Signals_Declarative_Part
-     (Cell: out Implicit_Signal_Declaration_Type; Decls_Parent : Iir) is
-   begin
-      Cell := Current_Declarative_Region_With_Signals;
-      Current_Declarative_Region_With_Signals := (Decls_Parent, Null_Iir);
-   end Push_Signals_Declarative_Part;
-
-   procedure Pop_Signals_Declarative_Part
-     (Cell: in Implicit_Signal_Declaration_Type) is
-   begin
-      Current_Declarative_Region_With_Signals := Cell;
-   end Pop_Signals_Declarative_Part;
-
-   procedure Add_Declaration_For_Implicit_Signal (Sig : Iir)
-   is
-      Last : Iir renames
-        Current_Declarative_Region_With_Signals.Last_Decl;
-   begin
-      if Current_Declarative_Region_With_Signals.Decls_Parent = Null_Iir then
-         raise Internal_Error;
-      end if;
-      if Last = Null_Iir then
-         Last := Get_Declaration_Chain
-           (Current_Declarative_Region_With_Signals.Decls_Parent);
-      end if;
-      if Last = Null_Iir then
-         Set_Declaration_Chain
-           (Current_Declarative_Region_With_Signals.Decls_Parent, Sig);
-      else
-         while Get_Chain (Last) /= Null_Iir loop
-            Last := Get_Chain (Last);
-         end loop;
-         Set_Chain (Last, Sig);
-      end if;
-      Last := Sig;
-   end Add_Declaration_For_Implicit_Signal;
-
    --  LRM 8 Sequential statements.
    --  All statements may be labeled.
    --  Such labels are implicitly declared at the beginning of the declarative